| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
802 |
TIC_TIME |
LOGICAL LEAP |
|
./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 |
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 |
852 |
TIC_TIME |
IF (NM.EQ.2 .AND. LEAP(NY)) ND = ND + 1 |
|
./pkg/chronos/chronos.F |
639 |
TIC_TIME |
LOGICAL LEAP |
|
./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 |
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 |
689 |
TIC_TIME |
IF (NM.EQ.2 .AND. LEAP(NY)) ND = ND + 1 |