From 17afc2b5e32c1ad2ee1f9e379a29a3cb7a7d7e36 Mon Sep 17 00:00:00 2001 From: sanAkel Date: Tue, 23 Mar 2021 14:41:28 -0400 Subject: [PATCH] A call to pass_vector(...) is needed to correctly do a halo exchange before getting currents in A- or B-grid staggering. Now added. --- config_src/drivers/FMS_cap/ocean_model_MOM.F90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/config_src/drivers/FMS_cap/ocean_model_MOM.F90 b/config_src/drivers/FMS_cap/ocean_model_MOM.F90 index f635e886a5..b7f8c2a84e 100644 --- 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