Skip to content
Snippets Groups Projects
Commit ac2b171e authored by Lionel GUEZ's avatar Lionel GUEZ
Browse files

Read `main_nml` before `n_slices`

Because we are going to introduce the choice of a slice in the namelist.
parent 246be5cb
No related branches found
No related tags found
No related merge requests found
......@@ -47,6 +47,12 @@ program eddy_graph
call config_graph(rank)
if (rank == 0) then
! main_nml:
write(unit = *, nml = main_nml)
print *, "Enter namelist main_nml."
read(unit = *, nml = main_nml)
write(unit = *, nml = main_nml)
! n_slices:
call new_unit(unit)
......@@ -62,11 +68,6 @@ program eddy_graph
n_slices = 1
end if
! main_nml:
write(unit = *, nml = main_nml)
print *, "Enter namelist main_nml."
read(unit = *, nml = main_nml)
write(unit = *, nml = main_nml)
call assert(n_dates == huge(0) .or. n_slices == 1, "If we have several " &
// "slices then we read all the dates from them")
end if
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment