| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
804 |
TIC_TIME |
LEAP(NY) = MOD(NY,4).EQ.0 .AND. (NY.NE.0 .OR. MOD(NY00,400).EQ.0) |
|
./pkg/fizhi/fizhi_clockstuff.F |
808 |
TIC_TIME |
NY = NYMD / 10000 |
|
./pkg/fizhi/fizhi_clockstuff.F |
816 |
TIC_TIME |
NY = NY - 1 |
|
./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 |
829 |
TIC_TIME |
NY = NY + 1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
834 |
TIC_TIME |
INCYMD = NY*10000 + NM*100 + ND |
|
./pkg/fizhi/fizhi_clockstuff.F |
844 |
TIC_TIME |
NY = NYMD / 10000 |
|
./pkg/fizhi/fizhi_clockstuff.F |
852 |
TIC_TIME |
IF (NM.EQ.2 .AND. LEAP(NY)) ND = ND + 1 |
|
./pkg/chronos/chronos.F |
641 |
TIC_TIME |
LEAP(NY) = MOD(NY,4).EQ.0 .AND. (NY.NE.0 .OR. MOD(NY00,400).EQ.0) |
|
./pkg/chronos/chronos.F |
645 |
TIC_TIME |
NY = NYMD / 10000 |
|
./pkg/chronos/chronos.F |
653 |
TIC_TIME |
NY = NY - 1 |
|
./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 |
666 |
TIC_TIME |
NY = NY + 1 |
|
./pkg/chronos/chronos.F |
671 |
TIC_TIME |
INCYMD = NY*10000 + NM*100 + ND |
|
./pkg/chronos/chronos.F |
681 |
TIC_TIME |
NY = NYMD / 10000 |
|
./pkg/chronos/chronos.F |
689 |
TIC_TIME |
IF (NM.EQ.2 .AND. LEAP(NY)) ND = ND + 1 |