From da93b491c8bf8a6a8be24cf68ed38f133c2dd5c2 Mon Sep 17 00:00:00 2001 From: David Huber Date: Fri, 26 Dec 2025 16:38:26 -0500 Subject: [PATCH] Allow ihr to be non-multiples of 6 --- physics/Interstitials/UFS_SCM_NEPTUNE/sfcsub.F | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/physics/Interstitials/UFS_SCM_NEPTUNE/sfcsub.F b/physics/Interstitials/UFS_SCM_NEPTUNE/sfcsub.F index a69dbea26..7b9960053 100644 --- a/physics/Interstitials/UFS_SCM_NEPTUNE/sfcsub.F +++ b/physics/Interstitials/UFS_SCM_NEPTUNE/sfcsub.F @@ -8749,13 +8749,10 @@ subroutine fixrda(lugb,fngrib,kpds5,slmask, & ! ! no matching ih found. search nearest hour ! - if(ihr.eq.6) then + if(ihr.gt.0.and.ihr.le.12) then ihr=0 go to 50 - elseif(ihr.eq.12) then - ihr=0 - go to 50 - elseif(ihr.eq.18) then + elseif(ihr.gt.0.and.ihr.le.23) then ihr=12 go to 50 elseif(ihr.eq.0.or.ihr.eq.-1) then