diff --git a/Overlap/eddy_graph.f90 b/Overlap/eddy_graph.f90 index da7154e2f97c031d1e112d66dc4914e4146b6d2c..9d255a95783e6a86e08e497449c66a9fe65c2f3a 100644 --- a/Overlap/eddy_graph.f90 +++ b/Overlap/eddy_graph.f90 @@ -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