CAM single colum fix (CICE-Consortium#957)

This only impacts single column CAM (CESM) runs.
ESCOMP · May 18, 2024 · 44c5998 · 44c5998
1 parent 4587504
commit 44c5998
Showing 1 changed file with 6 additions and 0 deletions.
diff --git 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 ***
        ! *******************