| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
809 |
TIC_TIME |
NM = MOD(NYMD,10000) / 100 |
|
./pkg/fizhi/fizhi_clockstuff.F |
813 |
TIC_TIME |
NM = NM - 1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
814 |
TIC_TIME |
IF (NM.EQ.0) THEN |
|
./pkg/fizhi/fizhi_clockstuff.F |
815 |
TIC_TIME |
NM = 12 |
|
./pkg/fizhi/fizhi_clockstuff.F |
818 |
TIC_TIME |
ND = NDPM(NM) |
|
./pkg/fizhi/fizhi_clockstuff.F |
819 |
TIC_TIME |
IF (NM.EQ.2 .AND. LEAP(NY)) ND = 29 |
|
./pkg/fizhi/fizhi_clockstuff.F |
822 |
TIC_TIME |
IF (ND.EQ.29 .AND. NM.EQ.2 .AND. LEAP(NY)) GO TO 20 |
|
./pkg/fizhi/fizhi_clockstuff.F |
824 |
TIC_TIME |
IF (ND.GT.NDPM(NM)) THEN |
|
./pkg/fizhi/fizhi_clockstuff.F |
826 |
TIC_TIME |
NM = NM + 1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
827 |
TIC_TIME |
IF (NM.GT.12) THEN |
|
./pkg/fizhi/fizhi_clockstuff.F |
828 |
TIC_TIME |
NM = 1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
834 |
TIC_TIME |
INCYMD = NY*10000 + NM*100 + ND |
|
./pkg/fizhi/fizhi_clockstuff.F |
845 |
TIC_TIME |
NM = MOD(NYMD,10000) / 100 |
|
./pkg/fizhi/fizhi_clockstuff.F |
849 |
TIC_TIME |
IF (NM.LE.1) GO TO 60 |
|
./pkg/fizhi/fizhi_clockstuff.F |
850 |
TIC_TIME |
NM = NM - 1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
851 |
TIC_TIME |
ND = ND + NDPM(NM) |
|
./pkg/fizhi/fizhi_clockstuff.F |
852 |
TIC_TIME |
IF (NM.EQ.2 .AND. LEAP(NY)) ND = ND + 1 |
|
./pkg/chronos/chronos.F |
646 |
TIC_TIME |
NM = MOD(NYMD,10000) / 100 |
|
./pkg/chronos/chronos.F |
650 |
TIC_TIME |
NM = NM - 1 |
|
./pkg/chronos/chronos.F |
651 |
TIC_TIME |
IF (NM.EQ.0) THEN |
|
./pkg/chronos/chronos.F |
652 |
TIC_TIME |
NM = 12 |
|
./pkg/chronos/chronos.F |
655 |
TIC_TIME |
ND = NDPM(NM) |
|
./pkg/chronos/chronos.F |
656 |
TIC_TIME |
IF (NM.EQ.2 .AND. LEAP(NY)) ND = 29 |
|
./pkg/chronos/chronos.F |
659 |
TIC_TIME |
IF (ND.EQ.29 .AND. NM.EQ.2 .AND. LEAP(NY)) GO TO 20 |
|
./pkg/chronos/chronos.F |
661 |
TIC_TIME |
IF (ND.GT.NDPM(NM)) THEN |
|
./pkg/chronos/chronos.F |
663 |
TIC_TIME |
NM = NM + 1 |
|
./pkg/chronos/chronos.F |
664 |
TIC_TIME |
IF (NM.GT.12) THEN |
|
./pkg/chronos/chronos.F |
665 |
TIC_TIME |
NM = 1 |
|
./pkg/chronos/chronos.F |
671 |
TIC_TIME |
INCYMD = NY*10000 + NM*100 + ND |
|
./pkg/chronos/chronos.F |
682 |
TIC_TIME |
NM = MOD(NYMD,10000) / 100 |
|
./pkg/chronos/chronos.F |
686 |
TIC_TIME |
IF (NM.LE.1) GO TO 60 |
|
./pkg/chronos/chronos.F |
687 |
TIC_TIME |
NM = NM - 1 |
|
./pkg/chronos/chronos.F |
688 |
TIC_TIME |
ND = ND + NDPM(NM) |
|
./pkg/chronos/chronos.F |
689 |
TIC_TIME |
IF (NM.EQ.2 .AND. LEAP(NY)) ND = ND + 1 |