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