From ca0ce66ae11b8dd41654c86d2b56d326572f184e Mon Sep 17 00:00:00 2001 From: Grant Firl Date: Wed, 17 Jun 2026 16:15:33 -0400 Subject: [PATCH] copy fix from FV3 version to SCM version of GFS_phys_time_vary --- .../Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.scm.F90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.scm.F90 b/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.scm.F90 index 85fc6fc68..99196f69d 100644 --- a/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.scm.F90 +++ b/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.scm.F90 @@ -771,10 +771,10 @@ subroutine GFS_phys_time_vary_timestep_init ( jday = 0 call w3doxdat(jdat,jdow,jdoy,jday) rjday = jdoy + jdat(5) / 24. - if (rjday < ozphys%time(1)) rjday = rjday + 365. !> - Update ozone concentration. if (ntoz > 0) then + if (rjday < ozphys%time(1)) rjday = rjday + 365. call find_photochem_time_index(ozphys%ntime, ozphys%time, rjday, n1, n2) call ozphys%update_o3prog(jindx1_o3, jindx2_o3, ddy_o3, rjday, n1, n2, ozpl) @@ -782,6 +782,7 @@ subroutine GFS_phys_time_vary_timestep_init ( !> - Update stratospheric h2o concentration. if (h2o_phys) then + if (rjday < h2ophys%time(1)) rjday = rjday + 365. call find_photochem_time_index(h2ophys%ntime, h2ophys%time, rjday, n1, n2) call h2ophys%update(jindx1_h, jindx2_h, ddy_h, rjday, n1, n2, h2opl)