Symbol Description Uses
YEAR1 6



File Line number Procedure Code
./pkg/fizhi/fizhi_clockstuff.F 448 INTERP_TIME
      INTEGER  YEAR1, MONTH1, DAY1, SEC1
./pkg/fizhi/fizhi_clockstuff.F 475 INTERP_TIME
      YEAR1  = NYMD1 / 10000
./pkg/fizhi/fizhi_clockstuff.F 501 INTERP_TIME
      time1 = DAY1 + MNDY(MONTH1+12*MOD(YEAR1,4)) + float(sec1)/86400.
./pkg/chronos/chronos.F 402 INTERP_TIME
      INTEGER  YEAR1, MONTH1, DAY1, SEC1
./pkg/chronos/chronos.F 429 INTERP_TIME
      YEAR1  = NYMD1 / 10000
./pkg/chronos/chronos.F 455 INTERP_TIME
      time1 = DAY1 + MNDY(MONTH1,MOD(YEAR1,4)+1) + float(sec1)/86400.