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