From 4132d493d311eb53330cedbb8161022bbec65a43 Mon Sep 17 00:00:00 2001 From: Nick Szapiro Date: Tue, 14 May 2024 01:46:13 +0000 Subject: [PATCH] Remove CESMCOUPLED so models initialize ice_prescribed at end of ice_prescribed_init --- cicecore/drivers/nuopc/cmeps/ice_prescribed_mod.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/cicecore/drivers/nuopc/cmeps/ice_prescribed_mod.F90 b/cicecore/drivers/nuopc/cmeps/ice_prescribed_mod.F90 index 5d50a65b4..d33e5f44b 100644 --- a/cicecore/drivers/nuopc/cmeps/ice_prescribed_mod.F90 +++ b/cicecore/drivers/nuopc/cmeps/ice_prescribed_mod.F90 @@ -170,6 +170,7 @@ subroutine ice_prescribed_init(gcomp, clock, mesh, rc) endif #ifndef CESMCOUPLED + !CESM does this elsewhere call dshr_pio_init(gcomp, sdat, nu_diag, rc) #endif @@ -206,10 +207,9 @@ 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