Skip to content

Commit

Permalink
Bug fix for FMS2 issue mom-ocean#761, broadcast from root pe
Browse files Browse the repository at this point in the history
- This addresses the FMS issue $761
NOAA-GFDL/FMS#761

- There is a mpp_broadcast in the FMS2 subroutine
get_unlimited_dimension_name() and this subroutine has to be called by
all pes, so it cannot be inside a if(is_root_pe()) block
  • Loading branch information
nikizadehgfdl committed Jul 12, 2021
1 parent 52fe576 commit b9075a8
Showing 1 changed file with 0 additions and 2 deletions.
2 changes: 0 additions & 2 deletions src/framework/MOM_restart.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1092,7 +1092,6 @@ subroutine restore_state(filename, directory, day, G, CS)

! Check the remaining files for different times and issue a warning
! if they differ from the first time.
if (is_root_pe()) then
do m = n+1,num_file
call get_file_times(IO_handles(n), time_vals, ntime)
if (ntime < 1) cycle
Expand All @@ -1107,7 +1106,6 @@ subroutine restore_state(filename, directory, day, G, CS)
call MOM_error(WARNING, "MOM_restart: "//mesg)
endif
enddo
endif

! Read each variable from the first file in which it is found.
do n=1,num_file
Expand Down

0 comments on commit b9075a8

Please sign in to comment.