Call ice_prescribed_run after ice_prescribed_init

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