File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_clockstuff.F |
1048 |
TIME_BOUND |
MONTH = NMONF(NYMD) |
./pkg/fizhi/fizhi_clockstuff.F |
1049 |
TIME_BOUND |
DAY = NDAYF(NYMD) |
./pkg/fizhi/fizhi_clockstuff.F |
1106 |
TIME2FREQ2 |
subroutine TIME2FREQ2(MMDD,NYMD,NHMS,timeleft) |
./pkg/fizhi/fizhi_clockstuff.F |
1144 |
TIME2FREQ2 |
YEAR = NYMD / 10000 |
./pkg/fizhi/fizhi_clockstuff.F |
1145 |
TIME2FREQ2 |
MONTH = MOD(NYMD,10000) / 100 |
./pkg/fizhi/fizhi_clockstuff.F |
1146 |
TIME2FREQ2 |
DAY = MOD(NYMD,100) |
./pkg/fizhi/fizhi_clockstuff.F |
373 |
GET_TIME |
YEAR = NYMD / 10000 |
./pkg/fizhi/fizhi_clockstuff.F |
374 |
GET_TIME |
MONTH = MOD(NYMD,10000) / 100 |
./pkg/fizhi/fizhi_clockstuff.F |
375 |
GET_TIME |
DAY = MOD(NYMD,100) |
./pkg/fizhi/fizhi_clockstuff.F |
470 |
INTERP_TIME |
YEAR = NYMD / 10000 |
./pkg/fizhi/fizhi_clockstuff.F |
471 |
INTERP_TIME |
MONTH = MOD(NYMD,10000) / 100 |
./pkg/fizhi/fizhi_clockstuff.F |
472 |
INTERP_TIME |
DAY = MOD(NYMD,100) |
./pkg/fizhi/fizhi_clockstuff.F |
531 |
TICK |
NYMD = INCYMD (NYMD,1) |
./pkg/fizhi/fizhi_clockstuff.F |
537 |
TICK |
NYMD = INCYMD (NYMD,1) |
./pkg/fizhi/fizhi_clockstuff.F |
543 |
TICK |
NYMD = INCYMD (NYMD,-1) |
./pkg/fizhi/fizhi_clockstuff.F |
551 |
TICK |
NYMD = 20040321 |
./pkg/fizhi/fizhi_clockstuff.F |
576 |
TIC_TIME |
NYMD = INCYMD (NYMD,1) |
./pkg/fizhi/fizhi_clockstuff.F |
582 |
TIC_TIME |
NYMD = INCYMD (NYMD,1) |
./pkg/fizhi/fizhi_clockstuff.F |
588 |
TIC_TIME |
NYMD = INCYMD (NYMD,-1) |
./pkg/fizhi/fizhi_clockstuff.F |
603 |
TIC_TIME |
FUNCTION NALARM (MHMS,NYMD,NHMS,NYMD0,NHMS0) |
./pkg/fizhi/fizhi_clockstuff.F |
618 |
TIC_TIME |
integer nalarm,MHMS,NYMD,NHMS,NYMD0,NHMS0 |
./pkg/fizhi/fizhi_clockstuff.F |
644 |
TIC_TIME |
YEAR = NYMD / 10000 |
./pkg/fizhi/fizhi_clockstuff.F |
645 |
TIC_TIME |
MONTH = MOD(NYMD,10000) / 100 |
./pkg/fizhi/fizhi_clockstuff.F |
646 |
TIC_TIME |
DAY = MOD(NYMD,100) |
./pkg/fizhi/fizhi_clockstuff.F |
672 |
TIC_TIME |
FUNCTION NALARM2(MHMS,NYMD,NHMS,NYMD0,NHMS0) |
./pkg/fizhi/fizhi_clockstuff.F |
687 |
TIC_TIME |
integer nalarm2,MHMS,NYMD,NHMS,NYMD0,NHMS0 |
./pkg/fizhi/fizhi_clockstuff.F |
718 |
TIC_TIME |
YEAR = NYMD / 10000 |
./pkg/fizhi/fizhi_clockstuff.F |
719 |
TIC_TIME |
MONTH = MOD(NYMD,10000) / 100 |
./pkg/fizhi/fizhi_clockstuff.F |
720 |
TIC_TIME |
DAY = MOD(NYMD,100) |
./pkg/fizhi/fizhi_clockstuff.F |
785 |
TIC_TIME |
FUNCTION INCYMD (NYMD,M) |
./pkg/fizhi/fizhi_clockstuff.F |
808 |
TIC_TIME |
NY = NYMD / 10000 |
./pkg/fizhi/fizhi_clockstuff.F |
809 |
TIC_TIME |
NM = MOD(NYMD,10000) / 100 |
./pkg/fizhi/fizhi_clockstuff.F |
810 |
TIC_TIME |
ND = MOD(NYMD,100) + M |
./pkg/fizhi/fizhi_clockstuff.F |
842 |
TIC_TIME |
ENTRY MODYMD (NYMD) |
./pkg/fizhi/fizhi_clockstuff.F |
844 |
TIC_TIME |
NY = NYMD / 10000 |
./pkg/fizhi/fizhi_clockstuff.F |
845 |
TIC_TIME |
NM = MOD(NYMD,10000) / 100 |
./pkg/fizhi/fizhi_clockstuff.F |
846 |
TIC_TIME |
ND = MOD(NYMD,100) |
./pkg/fizhi/fizhi_clockstuff.F |
861 |
ASTRO |
SUBROUTINE ASTRO ( NYMD,NHMS,ALAT,ALON,IRUN,COSZ,RA ) |
./pkg/fizhi/fizhi_clockstuff.F |
941 |
ASTRO |
YEAR = NYMD / 10000 |
./pkg/fizhi/fizhi_clockstuff.F |
942 |
ASTRO |
MONTH = MOD(NYMD,10000) / 100 |
./pkg/fizhi/fizhi_clockstuff.F |
943 |
ASTRO |
DAY = MOD(NYMD,100) |
./pkg/fizhi/fizhi_swrad.F |
138 |
SWRIO |
NYMD2 = NYMD |
./pkg/fizhi/fizhi_swrad.F |
143 |
SWRIO |
CALL ASTRO ( NYMD, NHMS, XLATS,XLONS, im*jm, TEMP1,RA ) |
./pkg/fizhi/fizhi_swrad.F |
144 |
SWRIO |
NYMD2 = NYMD |
./pkg/fizhi/fizhi_turb.F |
1271 |
TRBFLX |
4 irun,nlev,nltop,NYMD,NHMS,grav,cp,rgas,faceps,virtcon,undef, |
./pkg/chronos/chronos.F |
329 |
GET_TIME |
YEAR = NYMD / 10000 |
./pkg/chronos/chronos.F |
330 |
GET_TIME |
MONTH = MOD(NYMD,10000) / 100 |
./pkg/chronos/chronos.F |
331 |
GET_TIME |
DAY = MOD(NYMD,100) |
./pkg/chronos/chronos.F |
424 |
INTERP_TIME |
YEAR = NYMD / 10000 |
./pkg/chronos/chronos.F |
425 |
INTERP_TIME |
MONTH = MOD(NYMD,10000) / 100 |
./pkg/chronos/chronos.F |
426 |
INTERP_TIME |
DAY = MOD(NYMD,100) |
./pkg/chronos/chronos.F |
485 |
TICK |
NYMD = INCYMD (NYMD,1) |
./pkg/chronos/chronos.F |
491 |
TICK |
NYMD = INCYMD (NYMD,1) |
./pkg/chronos/chronos.F |
497 |
TICK |
NYMD = INCYMD (NYMD,-1) |
./pkg/chronos/chronos.F |
526 |
TIC_TIME |
NYMD = INCYMD (NYMD,1) |
./pkg/chronos/chronos.F |
532 |
TIC_TIME |
NYMD = INCYMD (NYMD,1) |
./pkg/chronos/chronos.F |
538 |
TIC_TIME |
NYMD = INCYMD (NYMD,-1) |
./pkg/chronos/chronos.F |
553 |
TIC_TIME |
FUNCTION NALARM (MHMS,NYMD,NHMS,NYMD0,NHMS0) |
./pkg/chronos/chronos.F |
568 |
TIC_TIME |
integer nalarm,MHMS,NYMD,NHMS,NYMD0,NHMS0 |
./pkg/chronos/chronos.F |
594 |
TIC_TIME |
YEAR = NYMD / 10000 |
./pkg/chronos/chronos.F |
595 |
TIC_TIME |
MONTH = MOD(NYMD,10000) / 100 |
./pkg/chronos/chronos.F |
596 |
TIC_TIME |
DAY = MOD(NYMD,100) |
./pkg/chronos/chronos.F |
622 |
TIC_TIME |
FUNCTION INCYMD (NYMD,M) |
./pkg/chronos/chronos.F |
645 |
TIC_TIME |
NY = NYMD / 10000 |
./pkg/chronos/chronos.F |
646 |
TIC_TIME |
NM = MOD(NYMD,10000) / 100 |
./pkg/chronos/chronos.F |
647 |
TIC_TIME |
ND = MOD(NYMD,100) + M |
./pkg/chronos/chronos.F |
679 |
TIC_TIME |
ENTRY MODYMD (NYMD) |
./pkg/chronos/chronos.F |
681 |
TIC_TIME |
NY = NYMD / 10000 |
./pkg/chronos/chronos.F |
682 |
TIC_TIME |
NM = MOD(NYMD,10000) / 100 |
./pkg/chronos/chronos.F |
683 |
TIC_TIME |
ND = MOD(NYMD,100) |
./pkg/chronos/chronos.F |
698 |
ASTRO |
SUBROUTINE ASTRO ( NYMD,NHMS,ALAT,ALON,IRUN,COSZ,RA ) |
./pkg/chronos/chronos.F |
774 |
ASTRO |
YEAR = NYMD / 10000 |
./pkg/chronos/chronos.F |
775 |
ASTRO |
MONTH = MOD(NYMD,10000) / 100 |
./pkg/chronos/chronos.F |
776 |
ASTRO |
DAY = MOD(NYMD,100) |
./pkg/chronos/chronos.F |
881 |
TIME_BOUND |
MONTH = NMONF(NYMD) |
./pkg/chronos/chronos.F |
882 |
TIME_BOUND |
DAY = NDAYF(NYMD) |