File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_clockstuff.F |
449 |
INTERP_TIME |
INTEGER YEAR2, MONTH2, DAY2, SEC2 |
./pkg/fizhi/fizhi_clockstuff.F |
481 |
INTERP_TIME |
MONTH2 = MOD(NYMD2,10000) / 100 |
./pkg/fizhi/fizhi_clockstuff.F |
502 |
INTERP_TIME |
time2 = DAY2 + MNDY(MONTH2+12*MOD(YEAR2,4)) + float(sec2)/86400. |
./pkg/chronos/chronos.F |
403 |
INTERP_TIME |
INTEGER YEAR2, MONTH2, DAY2, SEC2 |
./pkg/chronos/chronos.F |
435 |
INTERP_TIME |
MONTH2 = MOD(NYMD2,10000) / 100 |
./pkg/chronos/chronos.F |
456 |
INTERP_TIME |
time2 = DAY2 + MNDY(MONTH2,MOD(YEAR2,4)+1) + float(sec2)/86400. |