From 2119908d6d213863fd9f82d67831be7e8ca3fe85 Mon Sep 17 00:00:00 2001 From: Jim Edwards Date: Fri, 27 Sep 2024 09:09:43 -0600 Subject: [PATCH] avoid printing in initialization as ice log is not yet ready --- cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90 | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90 b/cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90 index c6b90f53a..597f1cdca 100644 --- a/cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90 +++ b/cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90 @@ -404,6 +404,7 @@ subroutine InitializeAdvertise(gcomp, importState, exportState, clock, rc) ! Determine attributes - also needed in realize phase to get grid information !---------------------------------------------------------------------------- + ! Get orbital values ! Note that these values are obtained in a call to init_orbit in ice_shortwave.F90 ! if CESMCOUPLED is not defined @@ -1520,11 +1521,14 @@ subroutine ice_orbital_init(gcomp, clock, logunit, mastertask, rc) else orb_year = orb_iyear end if + if (orb_year .ne. prev_orb_year) then lprint = mastertask - prev_orb_year = orb_year + ! this prevents the orbital print happening before the log file is opened. + if (.not. first_time) prev_orb_year = orb_year endif eccen = orb_eccen + call shr_orb_params(orb_year, eccen, orb_obliq, orb_mvelp, obliqr, lambm0, mvelpp, lprint) if ( eccen == SHR_ORB_UNDEF_REAL .or. obliqr == SHR_ORB_UNDEF_REAL .or. &