From 2a3e8bcdec40dcc747f72bb65d441f67653aa259 Mon Sep 17 00:00:00 2001 From: Nick Szapiro Date: Tue, 6 May 2025 14:15:51 -0500 Subject: [PATCH] Use ymd instead of uninitialized date in cicecore/drivers/nuopc/cmeps/ice_shr_methods.F90 --- cicecore/drivers/nuopc/cmeps/ice_shr_methods.F90 | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/cicecore/drivers/nuopc/cmeps/ice_shr_methods.F90 b/cicecore/drivers/nuopc/cmeps/ice_shr_methods.F90 index 0a3a72840..0a2feea11 100644 --- a/cicecore/drivers/nuopc/cmeps/ice_shr_methods.F90 +++ b/cicecore/drivers/nuopc/cmeps/ice_shr_methods.F90 @@ -971,8 +971,7 @@ subroutine timeInit( Time, ymd, cal, tod, rc) ! local variables integer :: year, mon, day ! year, month, day as integers - integer :: tdate ! temporary date - integer :: date ! coded-date (yyyymmdd) + integer :: tdate ! temporary date (yyyymmdd) character(len=*), parameter :: subname='(timeInit)' !------------------------------------------------------------------------------- @@ -982,9 +981,9 @@ subroutine timeInit( Time, ymd, cal, tod, rc) call abort_ice( subname//'ERROR yymmdd is a negative number or time-of-day out of bounds' ) end if - tdate = abs(date) + tdate = abs(ymd) year = int(tdate/10000) - if (date < 0) year = -year + if (ymd < 0) year = -year mon = int( mod(tdate,10000)/ 100) day = mod(tdate, 100)