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

More typos fixed

parent c20c593f
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 @ f3c39841
...@@ -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