A call to pass_vector(...) is needed to correctly do a halo exchange …

…before getting currents in A- or B-grid staggering. Now added.
NOAA-GFDL · Mar 23, 2021 · 17afc2b · 17afc2b
1 parent 3193ab0
commit 17afc2b
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/config_src/drivers/FMS_cap/ocean_model_MOM.F90 b/config_src/drivers/FMS_cap/ocean_model_MOM.F90
@@ -1162,6 +1162,8 @@ subroutine ocean_model_get_UV_surf(OS, Ocean, name, array2D, isc, jsc)
 
   sfc_state => OS%sfc_state
 
+  call pass_vector(sfc_state%u, sfc_state%v, G%Domain)
+
   select case(name)
   case('ua')
     do j=jsc_bnd,jec_bnd ; do i=isc_bnd,iec_bnd