set noleap_time and julian_time back to original

mlee03 · Dec 18, 2023 · e2cfd94 · e2cfd94
1 parent ac0d086
commit e2cfd94
Showing 1 changed file with 3 additions and 7 deletions.
diff --git a/interpolator/include/interpolator.inc b/interpolator/include/interpolator.inc
@@ -535,9 +535,7 @@ if(dimension_exists(fileobj, "time")) then
            !    convert file times from noleap to julian.
            !---------------------------------------------------------------------
            else if ( (model_calendar == JULIAN .and. trim(adjustl(lowercase(file_calendar))) == 'noleap')) then
-              Noleap_time = set_time( INT((time_in(n)-real(INT(time_in(n)),r8_kind))*SECONDS_PER_DAY), &
-                   INT(time_in(n))) + base_time
-             !Noleap_time = set_time (0, INT(time_in(n))) + base_time
+             Noleap_time = set_time (0, INT(time_in(n))) + base_time
              call get_date_no_leap (Noleap_time, yr, mo, dy, hr, mn, sc)
              clim_type%time_slice(n) = set_date_julian (yr, mo, dy, hr, mn, sc)
              if (n == 1) then
@@ -550,13 +548,11 @@ if(dimension_exists(fileobj, "time")) then
              endif
 
 
-           !---------------------------------------------------------------------
+             !---------------------------------------------------------------------
            !    convert file times from julian to noleap.
            !---------------------------------------------------------------------
            else if ( (model_calendar == NOLEAP .and. trim(adjustl(lowercase(file_calendar))) == 'julian')) then
-              Julian_time = set_time( INT( (time_in(n)-real(INT(time_in(n)),r8_kind))*SECONDS_PER_DAY), &
-                   INT(time_in(n))) + base_time
-              !Julian_time = set_time (0, INT(time_in(n))) + base_time
+             Julian_time = set_time (0, INT(time_in(n))) + base_time
              call get_date_julian (Julian_time, yr, mo, dy, hr, mn, sc)
              clim_type%time_slice(n) = set_date_no_leap (yr, mo, dy,hr, mn, sc)
              if (n == 1) then