File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_clockstuff.F |
1115 |
TIME2FREQ2 |
integer testnymd |
./pkg/fizhi/fizhi_clockstuff.F |
1139 |
TIME2FREQ2 |
testnymd=nymd + mmdd |
./pkg/fizhi/fizhi_clockstuff.F |
1140 |
TIME2FREQ2 |
yearnext=testnymd/10000 |
./pkg/fizhi/fizhi_clockstuff.F |
1141 |
TIME2FREQ2 |
monthnext=mod(testnymd,10000)/100 |
./pkg/fizhi/fizhi_clockstuff.F |
1147 |
TIME2FREQ2 |
testnymd = yearnext*10000 + monthnext*100 + daynext |
./pkg/fizhi/fizhi_clockstuff.F |
690 |
TIC_TIME |
integer testnymd,testnhms,testndpm |
./pkg/fizhi/fizhi_clockstuff.F |
729 |
TIC_TIME |
testnymd=nymd0 |
./pkg/fizhi/fizhi_clockstuff.F |
734 |
TIC_TIME |
testnymd=testnymd + nmmdd |
./pkg/fizhi/fizhi_clockstuff.F |
736 |
TIC_TIME |
year0=testnymd/10000 |
./pkg/fizhi/fizhi_clockstuff.F |
737 |
TIC_TIME |
month0=mod(testnymd,10000)/100 |
./pkg/fizhi/fizhi_clockstuff.F |
738 |
TIC_TIME |
day0 = mod(testnymd,100) |
./pkg/fizhi/fizhi_clockstuff.F |
743 |
TIC_TIME |
testnymd = testnymd + 1 |
./pkg/fizhi/fizhi_clockstuff.F |
747 |
TIC_TIME |
testnymd = testnymd - testndpm |
./pkg/fizhi/fizhi_clockstuff.F |
748 |
TIC_TIME |
testnymd = testnymd + 100 |
./pkg/fizhi/fizhi_clockstuff.F |
755 |
TIC_TIME |
testnymd = testnymd + 10000 - 1200 |
./pkg/fizhi/fizhi_clockstuff.F |
760 |
TIC_TIME |
if( (testnymd.gt.nymd) .or. |
./pkg/fizhi/fizhi_clockstuff.F |
761 |
TIC_TIME |
. (testnymd.eq.testnymd) .and. (testnhms.gt.nhms) ) |