From 2d3c8dab1cb6bf8256488c48d340dbe53974c81d Mon Sep 17 00:00:00 2001
From: Jean Braun <Jean.Braun@ujf-grenoble.fr>
Date: Sun, 12 Jun 2011 20:40:08 +0000
Subject: [PATCH] Tweaked sine/cosine wave surface geometries
---
src/create_surfaces.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/create_surfaces.f90 b/src/create_surfaces.f90
index 1f4833b5..fd05c751 100644
--- a/src/create_surfaces.f90
+++ b/src/create_surfaces.f90
@@ -560,7 +560,7 @@ select case(surface_type)
! sp03 is the amplitude
! sp04 is the phase
do i=1,ns
- z(i)=sp01+sp03*sin(x(i)*2.d0*pi/sp02+sp04)
+ z(i)=sp01+sp03*sin(2.d0*pi*(x(i)/sp02+sp04))
end do
case (7)
! a noisy surface,
@@ -587,7 +587,7 @@ select case(surface_type)
! sp03 is the amplitude
! sp04 is the phase
do i=1,ns
- z(i)=sp01+sp03*cos(x(i)*2.d0*pi/sp02+sp04)
+ z(i)=sp01+sp03*cos(2.d0*pi*(x(i)/sp02+sp04))
end do
case (10)
! a 2D embankment
--
GitLab