From 861aa5dadfc623275e4060f85be121774d950996 Mon Sep 17 00:00:00 2001 From: nicholasbalasus Date: Thu, 28 Dec 2023 20:27:53 -0500 Subject: [PATCH] remove month loop in GetIndex2Interp --- src/Core/hcoio_util_mod.F90 | 21 --------------------- 1 file changed, 21 deletions(-) diff --git a/src/Core/hcoio_util_mod.F90 b/src/Core/hcoio_util_mod.F90 index 6c878b01..a29537ae 100644 --- a/src/Core/hcoio_util_mod.F90 +++ b/src/Core/hcoio_util_mod.F90 @@ -1177,27 +1177,6 @@ SUBROUTINE GetIndex2Interp ( HcoState, Lct, & IF ( tidx2 > 0 ) EXIT ENDDO - ! Repeat above but now only modify month. - IF ( tidx2 < 0 ) THEN - tmpYMDhm = availYMDhm(tidx1) - DO - ! Increase by one month - tmpYMDhm = tmpYMDhm + 1.0e6_dp - - ! Exit if we are beyond available dates - IF ( tmpYMDhm > availYMDhm(nTime) ) EXIT - - ! Check if there is a time slice with that date - DO I = tidx1,nTime - IF ( ABS( tmpYMDhm - availYMDhm(I) ) < EPSILON ) THEN - tidx2 = I - EXIT - ENDIF - ENDDO - IF ( tidx2 > 0 ) EXIT - ENDDO - ENDIF - ! Repeat above but now only modify day IF ( tidx2 < 0 ) THEN tmpYMDhm = availYMDhm(tidx1)