Skip to content
Snippets Groups Projects
Commit b12c2766 authored by Dave Whipp's avatar Dave Whipp
Browse files

Fixed typos

parent daedb91d
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 2 deletions
src/create_surfaces.f90
+ 2
− 2
View file @ b12c2766
...@@ -490,7 +490,7 @@ integer i ...@@ -490,7 +490,7 @@ integer i
double precision dist,ran,m,x1a,x1b,x2a,x2b,y1a,y1b,y2a,y2b,zx double precision dist,ran,m,x1a,x1b,x2a,x2b,y1a,y1b,y2a,y2b,zx
double precision psi,theta1,theta2,theta1s,theta2s,psis,y0s,y1s,y2s,x0,y0w double precision psi,theta1,theta2,theta1s,theta2s,psis,y0s,y1s,y2s,x0,y0w
double precision y0a,y0b,y0,y1,y2,a1,b1,bb1,c1,m1,a2,b2,bb2,c2,m2,a3,b3,bb3,c3 double precision y0a,y0b,y0,y1,y2,a1,b1,bb1,c1,m1,a2,b2,bb2,c2,m2,a3,b3,bb3,c3
double precision m3,a4,b4,bb4,c4,m4,eps,psi2,psi2s,dz1,dz2 double precision m3,a4,b4,bb4,c4,m4,eps,psi2,psi2s,psi3,psi3s,dz1,dz2,dz3,dz4
!------------------------------------------------------------------------------| !------------------------------------------------------------------------------|
!------------------------------------------------------------------------------| !------------------------------------------------------------------------------|
...@@ -691,7 +691,7 @@ select case(surface_type) ...@@ -691,7 +691,7 @@ select case(surface_type)
theta2=sp10*pi/180.d0 theta2=sp10*pi/180.d0
psis=sign(tan(psi),dz1) psis=sign(tan(psi),dz1)
psi2s=sign(tan(psi2),dz2) psi2s=sign(tan(psi2),dz2)
psi3s=sign(tan(psi3,dz3) psi3s=sign(tan(psi3),dz3)
theta1s=tan(theta1) theta1s=tan(theta1)
theta2s=tan(theta2) theta2s=tan(theta2)
y0s=1.d0 y0s=1.d0
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment