diff --git a/Inst_eddies/input_ssh.f90 b/Inst_eddies/input_ssh.f90 index 2bda5ece8eb8e095a19653d6d7acb159444c9238..5ae9b857acd56532c9fc9bd19c495409487c51e4 100644 --- a/Inst_eddies/input_ssh.f90 +++ b/Inst_eddies/input_ssh.f90 @@ -57,6 +57,9 @@ contains !---------------------------------------------------------------------- + periodic = .false. ! default value + print *, "input_ssh: Enter input_ssh_nml:" + read(unit = *, nml = input_ssh_nml) call nf95_open(ssh_fname, nf95_nowrite, ncid) call nf95_find_coord(ncid, dimid = dimid, varid = varid, & std_name = "longitude") @@ -77,9 +80,6 @@ contains write(unit, nml = grid_nml) close(unit) step = step_deg * deg_to_rad - periodic = .false. ! default value - print *, "input_ssh: Enter input_ssh_nml:" - read(unit = *, nml = input_ssh_nml) if (periodic) call assert(4 * max_radius(1) < nlon, "input_ssh: max_radius") copy = merge(max_radius(1), 0, periodic) allocate(ssh(1 - copy:nlon + copy, nlat), u(1 - copy:nlon + copy, nlat), &