| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
796 |
TIC_TIME |
ND = MOD(NYMD,100) + M |
|
./pkg/fizhi/fizhi_clockstuff.F |
798 |
TIC_TIME |
IF (ND.EQ.0) THEN |
|
./pkg/fizhi/fizhi_clockstuff.F |
804 |
TIC_TIME |
ND = NDPM(NM) |
|
./pkg/fizhi/fizhi_clockstuff.F |
805 |
TIC_TIME |
IF (NM.EQ.2 .AND. LEAP(NY)) ND = 29 |
|
./pkg/fizhi/fizhi_clockstuff.F |
808 |
TIC_TIME |
IF (ND.EQ.29 .AND. NM.EQ.2 .AND. LEAP(NY)) GO TO 20 |
|
./pkg/fizhi/fizhi_clockstuff.F |
810 |
TIC_TIME |
IF (ND.GT.NDPM(NM)) THEN |
|
./pkg/fizhi/fizhi_clockstuff.F |
811 |
TIC_TIME |
ND = 1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
820 |
TIC_TIME |
INCYMD = NY*10000 + NM*100 + ND |
|
./pkg/fizhi/fizhi_clockstuff.F |
832 |
TIC_TIME |
ND = MOD(NYMD,100) |
|
./pkg/fizhi/fizhi_clockstuff.F |
837 |
TIC_TIME |
ND = ND + NDPM(NM) |
|
./pkg/fizhi/fizhi_clockstuff.F |
838 |
TIC_TIME |
IF (NM.EQ.2 .AND. LEAP(NY)) ND = ND + 1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
842 |
TIC_TIME |
MODYMD = ND |
|
./pkg/chronos/chronos.F |
647 |
TIC_TIME |
ND = MOD(NYMD,100) + M |
|
./pkg/chronos/chronos.F |
649 |
TIC_TIME |
IF (ND.EQ.0) THEN |
|
./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 |
662 |
TIC_TIME |
ND = 1 |
|
./pkg/chronos/chronos.F |
671 |
TIC_TIME |
INCYMD = NY*10000 + NM*100 + ND |
|
./pkg/chronos/chronos.F |
683 |
TIC_TIME |
ND = MOD(NYMD,100) |
|
./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 |
|
./pkg/chronos/chronos.F |
693 |
TIC_TIME |
MODYMD = ND |