From 44c59980dc9b0cbcdab0a168083f43307b009258 Mon Sep 17 00:00:00 2001 From: "David A. Bailey" Date: Sat, 18 May 2024 07:43:53 -0600 Subject: [PATCH] CAM single colum fix (#957) This only impacts single column CAM (CESM) runs. --- 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 *** ! *******************