Skip to content
Open
7 changes: 2 additions & 5 deletions physics/Interstitials/UFS_SCM_NEPTUNE/sfcsub.F
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down