File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_clockstuff.F |
448 |
INTERP_TIME |
INTEGER YEAR1, MONTH1, DAY1, SEC1 |
./pkg/fizhi/fizhi_clockstuff.F |
476 |
INTERP_TIME |
MONTH1 = MOD(NYMD1,10000) / 100 |
./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 |
430 |
INTERP_TIME |
MONTH1 = MOD(NYMD1,10000) / 100 |
./pkg/chronos/chronos.F |
455 |
INTERP_TIME |
time1 = DAY1 + MNDY(MONTH1,MOD(YEAR1,4)+1) + float(sec1)/86400. |