From 18a5942c14d244f7d347fed3086d7a8864b313b2 Mon Sep 17 00:00:00 2001 From: David Bailey Date: Fri, 17 May 2024 14:07:35 -0600 Subject: [PATCH] CAM single colum fix --- cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90 | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90 b/cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90 index 6228c0bdd..3423fbf36 100644 --- a/cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90 +++ b/cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90 @@ -919,6 +919,12 @@ subroutine InitializeRealize(gcomp, importState, exportState, clock, rc) end if enddo deallocate(lfieldnamelist) + call State_SetScalar(dble(0), flds_scalar_index_nx, exportState, & + flds_scalar_name, flds_scalar_num, rc) + if (ChkErr(rc,__LINE__,u_FILE_u)) return + call State_SetScalar(dble(0), flds_scalar_index_ny, exportState, & + flds_scalar_name, flds_scalar_num, rc) + if (ChkErr(rc,__LINE__,u_FILE_u)) return ! ******************* ! *** RETURN HERE *** ! *******************