From c91173a645c2421c0badd479931b28f689d46208 Mon Sep 17 00:00:00 2001 From: "denise.worthen" Date: Wed, 31 Jan 2024 09:34:32 -0500 Subject: [PATCH 1/2] fix dummy arguments w/o values --- cicecore/drivers/nuopc/cmeps/ice_prescribed_mod.F90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/cicecore/drivers/nuopc/cmeps/ice_prescribed_mod.F90 b/cicecore/drivers/nuopc/cmeps/ice_prescribed_mod.F90 index 0a11ee6ea..b46f22ff7 100644 --- a/cicecore/drivers/nuopc/cmeps/ice_prescribed_mod.F90 +++ b/cicecore/drivers/nuopc/cmeps/ice_prescribed_mod.F90 @@ -7,7 +7,8 @@ module ice_prescribed_mod ! Ice/ocean fluxes are set to zero, and ice dynamics are not calculated. ! Regridding and data cycling capabilities are included. - use ESMF + use ESMF, only : ESMF_Clock, ESMF_Mesh, ESMF_SUCCESS, ESMF_FAILURE + use ESMF, only : ESMF_LogFoundError, ESMF_LOGERR_PASSTHRU, ESMF_Finalize, ESMF_END_ABORT #ifndef CESMCOUPLED @@ -23,6 +24,7 @@ subroutine ice_prescribed_init(clock, mesh, rc) type(ESMF_Mesh) , intent(in) :: mesh integer , intent(out) :: rc ! do nothing + rc = ESMF_SUCCESS end subroutine ice_prescribed_init #else From bac6ca34539d9f704f31ee5555d8364f634163e1 Mon Sep 17 00:00:00 2001 From: Denise Worthen Date: Tue, 5 Mar 2024 12:30:00 -0500 Subject: [PATCH 2/2] fix missing j-loop in export 4d --- cicecore/drivers/nuopc/cmeps/ice_import_export.F90 | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/cicecore/drivers/nuopc/cmeps/ice_import_export.F90 b/cicecore/drivers/nuopc/cmeps/ice_import_export.F90 index a932e0b2b..14a7b5155 100644 --- a/cicecore/drivers/nuopc/cmeps/ice_import_export.F90 +++ b/cicecore/drivers/nuopc/cmeps/ice_import_export.F90 @@ -1763,9 +1763,11 @@ subroutine state_setexport_4d(state, fldname, input, index, lmask, ifrac, ungrid end do end do else - do i = ilo, ihi - n = n+1 - dataPtr1d(n) = input(i,j,index,iblk) + do j = jlo, jhi + do i = ilo, ihi + n = n+1 + dataPtr1d(n) = input(i,j,index,iblk) + end do end do end if end do