From 59e3f5a7d78ff3ec26adc9bc67431fe93aca0e8e Mon Sep 17 00:00:00 2001 From: Marshall Ward Date: Fri, 3 Feb 2017 12:08:42 +1100 Subject: [PATCH] ACCESS-CM: mpp_global_field bugfix 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. --- src/access_coupler/mom_oasis3_interface.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/access_coupler/mom_oasis3_interface.F90 b/src/access_coupler/mom_oasis3_interface.F90 index a2386884fd..4b4a39e4b6 100644 --- a/src/access_coupler/mom_oasis3_interface.F90 +++ b/src/access_coupler/mom_oasis3_interface.F90 @@ -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 @@ -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