Skip to content

Commit

Permalink
ACCESS-CM: mpp_global_field bugfix
Browse files Browse the repository at this point in the history
This patch adds the XUPDATE and YUPDATE flags to the mpp_global_field
calls for the OASIS restart file writes.  The previous version worked
without any problems, but raised warnings because these flags were not
present.  This patch removes those warnings.
  • Loading branch information
marshallward committed Feb 3, 2017
1 parent 6e17586 commit 59e3f5a
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions src/access_coupler/mom_oasis3_interface.F90
Original file line number Diff line number Diff line change
Expand Up @@ -89,7 +89,7 @@ module mom_oasis3_interface_mod
mpp_get_data_domain, &
mpp_get_global_domain, &
mpp_global_field
use mpp_parameter_mod, only: GLOBAL_ROOT_ONLY
use mpp_parameter_mod, only: GLOBAL_ROOT_ONLY, XUPDATE, YUPDATE
use ocean_types_mod, only: ice_ocean_boundary_type, &
ocean_public_type, &
ocean_domain_type
Expand Down Expand Up @@ -791,10 +791,10 @@ subroutine write_coupler_restart(step,Ocean_sfc,write_restart)

if (parallel_coupling) then
call mpp_global_field(Ocean_sfc%domain, vtmp(iisc:iiec,jjsc:jjec), &
gtmp, flags=GLOBAL_ROOT_ONLY)
gtmp, flags=GLOBAL_ROOT_ONLY+XUPDATE+YUPDATE)
else
call mpp_global_field(Ocean_sfc%domain, vtmp(iisc:iiec,jjsc:jjec), &
vwork, flags=GLOBAL_ROOT_ONLY)
vwork, flags=GLOBAL_ROOT_ONLY+XUPDATE+YUPDATE)
end if

if (mpp_pe() == mpp_root_pe()) then
Expand Down

0 comments on commit 59e3f5a

Please sign in to comment.