From eee289ac34efe1cbdc7dd489e5c327e4db411734 Mon Sep 17 00:00:00 2001
From: Nick Szapiro <Nick.Szapiro@noaa.gov>
Date: Sat, 27 Apr 2024 05:07:16 +0000
Subject: [PATCH] Call ice_prescribed_run after ice_prescribed_init

---
 cicecore/drivers/nuopc/cmeps/ice_prescribed_mod.F90 | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/cicecore/drivers/nuopc/cmeps/ice_prescribed_mod.F90 b/cicecore/drivers/nuopc/cmeps/ice_prescribed_mod.F90
index b95ca6299..9a3479397 100644
--- a/cicecore/drivers/nuopc/cmeps/ice_prescribed_mod.F90
+++ b/cicecore/drivers/nuopc/cmeps/ice_prescribed_mod.F90
@@ -25,7 +25,7 @@ module ice_prescribed_mod
   use ice_blocks        , only : nx_block, ny_block, block, get_block
   use ice_domain        , only : nblocks, distrb_info, blocks_ice
   use ice_grid          , only : TLAT, TLON, hm, tmask, tarea, grid_type, ocn_gridcell_frac
-  use ice_calendar      , only : idate, calendar_type
+  use ice_calendar      , only : idate, msec, calendar_type
   use ice_arrays_column , only : hin_max
   use ice_read_write
   use ice_exit          , only: abort_ice
@@ -201,6 +201,10 @@ subroutine ice_prescribed_init(gcomp, clock, mesh, rc)
           hin_max(1) = 999._dbl_kind
        end if
 
+#ifndef CESMCOUPLED 
+       ! If need initial cice values for coupling
+       call ice_prescribed_run(idate, msec)
+#endif
     end if  ! end of if prescribed ice mode
 
   end subroutine ice_prescribed_init