From 7872ef120f7470afb770dd273a36f6419cd0a75c Mon Sep 17 00:00:00 2001 From: jiandewang Date: Mon, 11 Dec 2017 10:30:48 -0500 Subject: [PATCH] fix corner lat/lon issue, use getLatBu/getLonBu instead of ulon/vlat --- mom_cap.F90 | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/mom_cap.F90 b/mom_cap.F90 index 8d4f2dc..97b5451 100644 --- a/mom_cap.F90 +++ b/mom_cap.F90 @@ -1154,7 +1154,12 @@ subroutine InitializeRealize(gcomp, importState, exportState, clock, rc) enddo enddo +#ifdef MOM5_CAP call ocean_model_data_get(Ocean_state, Ocean_sfc, 'ulon', ofld, isc, jsc) +#endif +#ifdef MOM6_CAP + call ocean_model_data_get(Ocean_state, Ocean_sfc, 'geoLonBu', ofld, isc, jsc) +#endif write(tmpstr,*) subname//' ofld xu = ',minval(ofld),maxval(ofld) call ESMF_LogWrite(trim(tmpstr), ESMF_LOGMSG_INFO, rc=dbrc) call mpp_global_field(Ocean_sfc%domain, ofld, gfld) @@ -1190,7 +1195,7 @@ subroutine InitializeRealize(gcomp, importState, exportState, clock, rc) #endif #ifdef MOM6_CAP - call ocean_model_data_get(Ocean_state, Ocean_sfc, 'vlat', ofld, isc, jsc) + call ocean_model_data_get(Ocean_state, Ocean_sfc, 'geoLatBu', ofld, isc, jsc) #endif write(tmpstr,*) subname//' ofld yu = ',minval(ofld),maxval(ofld)