From c851dc512cd1494a5b7bc7d711d01846321b5fb1 Mon Sep 17 00:00:00 2001 From: Dustin Swales Date: Wed, 4 Feb 2026 22:59:12 +0000 Subject: [PATCH 1/2] Chagne to not using ozone physics DDT when not active --- .../Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.fv3.F90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.fv3.F90 b/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.fv3.F90 index 378b9a8d2..48a4bc792 100644 --- a/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.fv3.F90 +++ b/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.fv3.F90 @@ -864,10 +864,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) @@ -875,6 +875,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) From c6686ab5fe9b720739d903be49dda8d95b9ea94b Mon Sep 17 00:00:00 2001 From: Dustin Swales Date: Wed, 15 Apr 2026 21:37:00 +0000 Subject: [PATCH 2/2] Bug in gcycle error message --- physics/Interstitials/UFS_SCM_NEPTUNE/gcycle.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/physics/Interstitials/UFS_SCM_NEPTUNE/gcycle.F90 b/physics/Interstitials/UFS_SCM_NEPTUNE/gcycle.F90 index 329121359..f81724400 100644 --- a/physics/Interstitials/UFS_SCM_NEPTUNE/gcycle.F90 +++ b/physics/Interstitials/UFS_SCM_NEPTUNE/gcycle.F90 @@ -253,7 +253,7 @@ subroutine gcycle (me, nthrds, nx, ny, isc, jsc, nsst, tile_num, nlunit, fn_nml, inquire (file=trim(fn_nml),exist=exists) if (.not. exists) then errflg = 1 - errmsg = 'ERROR(gcycle): namelist file: ',trim(fn_nml),' does not exist.' + errmsg = 'ERROR(gcycle): namelist file: '//trim(fn_nml)//' does not exist.' return else open (unit=nlunit, file=trim(fn_nml), action='READ', status='OLD', iostat=ios)