Merge branch 'escomp_sealevelponds_InitModfix' into escomp_sealevelponds

ESCOMP · Jan 13, 2025 · 250b4a0 · 250b4a0
2 parents b819e42 + d85fbe5
commit 250b4a0
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/configuration/driver/icedrv_InitMod.F90 b/configuration/driver/icedrv_InitMod.F90
@@ -112,6 +112,11 @@ subroutine icedrv_initialize
       call init_restart         ! initialize restart variables
       call init_history_therm   ! initialize thermo history variables
 
+      call icepack_query_tracer_flags(tr_pond_sealvl_out=tr_pond_sealvl)
+      call icepack_warnings_flush(nu_diag)
+      if (icepack_warnings_aborted(subname)) then
+         call icedrv_system_abort(file=__FILE__,line=__LINE__)
+      endif
       if (tr_pond_sealvl) call icepack_init_sealvlpnd   ! sealvl ponds
 
       if (restart) &
@@ -134,7 +139,6 @@ subroutine icedrv_initialize
       call icepack_query_tracer_flags(tr_aero_out=tr_aero)
       call icepack_query_tracer_flags(tr_iso_out=tr_iso)
       call icepack_query_tracer_flags(tr_zaero_out=tr_zaero)
-      call icepack_query_tracer_flags(tr_pond_sealvl_out=tr_pond_sealvl)
       call icepack_warnings_flush(nu_diag)
       if (icepack_warnings_aborted()) call icedrv_system_abort(string=subname, &
           file=__FILE__,line= __LINE__)