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

Fixed more typos

parent a7dcb8f1
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 @ c20c593f
...@@ -634,7 +634,7 @@ select case(surface_type) ...@@ -634,7 +634,7 @@ select case(surface_type)
elseif (x(i).le.x2a) then elseif (x(i).le.x2a) then
zx=sp01-sp06 zx=sp01-sp06
elseif (x(i).le.x2b) then elseif (x(i).le.x2b) then
zx=sp01-(1.d0+(((x(i)-x2a)/(-sp06/m))*sp06)) zx=sp01-((1.d0+((x(i)-x2a)/(-sp06/m)))*sp06)
!zx=sp01-((1.d0-((x(i)-x2a)/(sp06/m)))*sp06) !zx=sp01-((1.d0-((x(i)-x2a)/(sp06/m)))*sp06)
else else
zx=sp01 zx=sp01
...@@ -646,7 +646,7 @@ select case(surface_type) ...@@ -646,7 +646,7 @@ select case(surface_type)
elseif (y(i).le.y2a) then elseif (y(i).le.y2a) then
z(i)=min(sp01-sp06,zx) z(i)=min(sp01-sp06,zx)
elseif (y(i).le.y2b) then elseif (y(i).le.y2b) then
z(i)=min(sp01-(1.d0+(((y(i)-y2a)/(-sp06/m))*sp06)),zx) z(i)=min(sp01-((1.d0+((y(i)-y2a)/(-sp06/m)))*sp06),zx)
else else
z(i)=sp01 z(i)=sp01
endif endif
......
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