Merge pull request mom-ocean#166 from marshallward/master

ACCESS-CM: mpp_global_field bugfix
StephenGriffies · Feb 3, 2017 · 911d2dc · 911d2dc
2 parents 0036c92 + 59e3f5a
commit 911d2dc
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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