fix: time_manager missing changes from year to yr, month to mo, day t…

…o dy (#1169)
NOAA-GFDL · Mar 28, 2023 · 7188e3a · 7188e3a
1 parent 6362657
commit 7188e3a
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/time_interp/time_interp.F90 b/time_interp/time_interp.F90
@@ -391,7 +391,7 @@ subroutine time_interp_month ( Time, weight, year1, year2, month1, month2 )
     ! mid point of current month in seconds
       mid_month = days_in_month(Time) * halfday
     ! time into current month in seconds
-      cur_month = second + secmin*minute + sechour*hour + secday*(day-1)
+      cur_month = second + secmin*minute + sechour*hour + secday*(dy-1)
 
       if ( cur_month >= mid_month ) then
     ! current time is after mid point of current month
@@ -466,8 +466,8 @@ subroutine time_interp_day ( Time, weight, year1, year2, month1, month2, day1, d
            endif
       else
     ! current time is before mid point of day
-           year2 = year;  month2 = month;  day2 = day
-           year1 = year;  month1 = month;  day1 = day - 1
+           year2 = yr;  month2 = mo   ;  day2 = dy
+           year1 = yr;  month1 = mo;  day1 = dy - 1
            weight  = real(sday + halfday) / real(secday)
 
            if (day1 < 1) then