From a2c3ec76e87645c9cf6ac9e8fe361385321e022b Mon Sep 17 00:00:00 2001 From: bzhao Date: Mon, 11 Sep 2023 14:24:07 -0400 Subject: [PATCH] add extracting c grid currents --- config_src/drivers/FMS_cap/ocean_model_MOM.F90 | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/config_src/drivers/FMS_cap/ocean_model_MOM.F90 b/config_src/drivers/FMS_cap/ocean_model_MOM.F90 index 005e3a6723..ca2305ea71 100644 --- a/config_src/drivers/FMS_cap/ocean_model_MOM.F90 +++ b/config_src/drivers/FMS_cap/ocean_model_MOM.F90 @@ -1201,6 +1201,14 @@ subroutine ocean_model_get_UV_surf(OS, Ocean, name, array2D, isc, jsc) array2D(i,j) = G%mask2dBu(I+i0,J+j0) * & 0.5*(sfc_state%v(i+i0,J+j0)+sfc_state%v(i+i0+1,J+j0)) enddo ; enddo + case('uc') + do j=jsc_bnd,jec_bnd ; do i=isc_bnd,iec_bnd + array2D(i,j) = G%mask2dCu(I+i0,J+j0) * sfc_state%u(I+i0,j+j0) + enddo ; enddo + case('vc') + do j=jsc_bnd,jec_bnd ; do i=isc_bnd,iec_bnd + array2D(i,j) = G%mask2dCv(I+i0,J+j0) * sfc_state%v(i+i0,J+j0) + enddo ; enddo case default call MOM_error(FATAL,'ocean_model_get_UV_surf: unknown argument name='//name) end select