File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_clockstuff.F |
480 |
INTERP_TIME |
YEAR2 = NYMD2 / 10000 |
./pkg/fizhi/fizhi_clockstuff.F |
481 |
INTERP_TIME |
MONTH2 = MOD(NYMD2,10000) / 100 |
./pkg/fizhi/fizhi_clockstuff.F |
482 |
INTERP_TIME |
DAY2 = MOD(NYMD2,100) |
./pkg/fizhi/fizhi_swrad.F |
138 |
SWRIO |
NYMD2 = NYMD |
./pkg/fizhi/fizhi_swrad.F |
140 |
SWRIO |
CALL TICK ( NYMD2, NHMS2, NTMSTP ) |
./pkg/fizhi/fizhi_swrad.F |
144 |
SWRIO |
NYMD2 = NYMD |
./pkg/fizhi/fizhi_swrad.F |
146 |
SWRIO |
CALL TICK ( NYMD2, NHMS2, NTMSTP ) |
./pkg/fizhi/fizhi_swrad.F |
147 |
SWRIO |
CALL ASTRO ( NYMD2, NHMS2, XLATS,XLONS, im*jm, TEMP2,RA ) |
./pkg/chronos/chronos.F |
434 |
INTERP_TIME |
YEAR2 = NYMD2 / 10000 |
./pkg/chronos/chronos.F |
435 |
INTERP_TIME |
MONTH2 = MOD(NYMD2,10000) / 100 |
./pkg/chronos/chronos.F |
436 |
INTERP_TIME |
DAY2 = MOD(NYMD2,100) |