| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
451 |
INTERP_TIME |
_RL time00, time1, time2 |
|
./pkg/fizhi/fizhi_clockstuff.F |
501 |
INTERP_TIME |
time1 = DAY1 + MNDY(MONTH1+12*MOD(YEAR1,4)) + float(sec1)/86400. |
|
./pkg/fizhi/fizhi_clockstuff.F |
504 |
INTERP_TIME |
if( time00 .lt.time1 ) time00 = time00 + dayscy |
|
./pkg/fizhi/fizhi_clockstuff.F |
505 |
INTERP_TIME |
if( time2.lt.time1 ) time2 = time2 + dayscy |
|
./pkg/fizhi/fizhi_clockstuff.F |
507 |
INTERP_TIME |
fac1 = (time2-time00)/(time2-time1) |
|
./pkg/fizhi/fizhi_clockstuff.F |
508 |
INTERP_TIME |
fac2 = (time00-time1)/(time2-time1) |
|
./pkg/chronos/chronos.F |
405 |
INTERP_TIME |
_RL time, time1, time2 |
|
./pkg/chronos/chronos.F |
455 |
INTERP_TIME |
time1 = DAY1 + MNDY(MONTH1,MOD(YEAR1,4)+1) + float(sec1)/86400. |
|
./pkg/chronos/chronos.F |
458 |
INTERP_TIME |
if( time .lt.time1 ) time = time + dayscy |
|
./pkg/chronos/chronos.F |
459 |
INTERP_TIME |
if( time2.lt.time1 ) time2 = time2 + dayscy |
|
./pkg/chronos/chronos.F |
461 |
INTERP_TIME |
fac1 = (time2-time)/(time2-time1) |
|
./pkg/chronos/chronos.F |
462 |
INTERP_TIME |
fac2 = (time-time1)/(time2-time1) |