diff --git a/tools/fv_io.F90 b/tools/fv_io.F90 index 359e01a59..7941d04ae 100644 --- a/tools/fv_io.F90 +++ b/tools/fv_io.F90 @@ -690,8 +690,9 @@ subroutine remap_restart(Atm) call read_restart(Atm(1)%Rsf_restart, ignore_checksum=Atm(1)%flagstruct%ignore_rst_cksum) call close_file(Atm(1)%Rsf_restart) Atm(1)%Rsf_restart_is_open = .false. - call mpp_error(NOTE,'==> Warning from remap_restart: Expected file '//trim(fname)//' does not exist') - Atm%flagstruct%srf_init = .false. + else + call mpp_error(NOTE,'==> Warning from remap_restart: Expected file '//trim(fname)//' does not exist') + Atm%flagstruct%srf_init = .false. endif if ( Atm(1)%flagstruct%fv_land ) then @@ -701,6 +702,7 @@ subroutine remap_restart(Atm) if (Atm(1)%Mg_restart_is_open) then call read_data(Atm(1)%Mg_restart, 'ghprime', Atm(1)%sgh) call close_file(Atm(1)%Mg_restart) + Atm(1)%Mg_restart_is_open = .false. else call mpp_error(NOTE,'==> Warning from remap_restart: Expected file '//trim(fname)//' does not exist') endif @@ -710,6 +712,7 @@ subroutine remap_restart(Atm) if (Atm(1)%Lnd_restart_is_open) then call read_data(Atm(1)%Lnd_restart, 'oro', Atm(1)%oro) call close_file(Atm(1)%Lnd_restart) + Atm(1)%Lnd_restart_is_open = .false. else call mpp_error(NOTE,'==> Warning from remap_restart: Expected file '//trim(fname)//' does not exist') endif @@ -1294,11 +1297,13 @@ subroutine fv_io_write_BCs(Atm, timestamp) if (Atm%neststruct%BCfile_sw_is_open) then call write_restart_bc(Atm%neststruct%BCfile_sw) call close_file(Atm%neststruct%BCfile_sw) + Atm%neststruct%BCfile_sw_is_open = .false. endif if (Atm%neststruct%BCfile_ne_is_open) then call write_restart_bc(Atm%neststruct%BCfile_ne) call close_file(Atm%neststruct%BCfile_ne) + Atm%neststruct%BCfile_ne_is_open = .false. endif deallocate(all_pelist) @@ -1328,11 +1333,13 @@ subroutine fv_io_read_BCs(Atm) if (Atm%neststruct%BCfile_sw_is_open) then call read_restart_bc(Atm%neststruct%BCfile_sw, ignore_checksum=Atm%flagstruct%ignore_rst_cksum) call close_file(Atm%neststruct%BCfile_sw) + Atm%neststruct%BCfile_sw_is_open = .false. endif if (Atm%neststruct%BCfile_ne_is_open) then call read_restart_bc(Atm%neststruct%BCfile_ne, ignore_checksum=Atm%flagstruct%ignore_rst_cksum) call close_file(Atm%neststruct%BCfile_ne) + Atm%neststruct%BCfile_ne_is_open = .false. endif