From d85fbe52f9e58548f1d86beb48d686788be189a4 Mon Sep 17 00:00:00 2001 From: David Clemens-Sewall Date: Mon, 13 Jan 2025 15:14:04 -0700 Subject: [PATCH] moved querying tr_pond_sealvl --- configuration/driver/icedrv_InitMod.F90 | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/configuration/driver/icedrv_InitMod.F90 b/configuration/driver/icedrv_InitMod.F90 index 7e9c4cf0..2bd76e05 100644 --- 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__)