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