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

Fixed default values for surface parameters 11 and 12 to ensure the code works as it did before

parent c34988ba
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/read_input_file.f90
+ 2
− 2
View file @ 3f482494
......@@ -391,9 +391,9 @@ do i=1,params%ns
if (iproc==0) call scanfile (params%infile,'surface_param_09_'//cm(il:3),surface(i)%sp09,ires)
surface(i)%sp10 = 0.d0
if (iproc==0) call scanfile (params%infile,'surface_param_10_'//cm(il:3),surface(i)%sp10,ires)
surface(i)%sp11 = 0.d0
surface(i)%sp11 = surface(i)%sp01
if (iproc==0) call scanfile (params%infile,'surface_param_11_'//cm(il:3),surface(i)%sp11,ires)
surface(i)%sp12 = 0.d0
surface(i)%sp12 = 45.d0
if (iproc==0) call scanfile (params%infile,'surface_param_12_'//cm(il:3),surface(i)%sp12,ires)
call mpi_bcast(surface(i)%sp01,1,mpi_double_precision,0,mpi_comm_world,ierr)
......
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