Remove CESMCOUPLED so models initialize ice_prescribed at end of ice_…

…prescribed_init
NOAA-EMC · May 14, 2024 · 4132d49 · 4132d49
1 parent afddf54
commit 4132d49
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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