| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
817 |
TIC_TIME |
LEAP(NY) = MOD(NY,4).EQ.0 .AND. (NY.NE.0 .OR. MOD(NY00,400).EQ.0) |
|
./pkg/fizhi/fizhi_clockstuff.F |
821 |
TIC_TIME |
NY = NYMD / 10000 |
|
./pkg/fizhi/fizhi_clockstuff.F |
829 |
TIC_TIME |
NY = NY - 1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
832 |
TIC_TIME |
IF (NM.EQ.2 .AND. LEAP(NY)) ND = 29 |
|
./pkg/fizhi/fizhi_clockstuff.F |
835 |
TIC_TIME |
IF (ND.EQ.29 .AND. NM.EQ.2 .AND. LEAP(NY)) GO TO 20 |
|
./pkg/fizhi/fizhi_clockstuff.F |
842 |
TIC_TIME |
NY = NY + 1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
847 |
TIC_TIME |
INCYMD = NY*10000 + NM*100 + ND |
|
./pkg/fizhi/fizhi_clockstuff.F |
857 |
TIC_TIME |
NY = NYMD / 10000 |
|
./pkg/fizhi/fizhi_clockstuff.F |
865 |
TIC_TIME |
IF (NM.EQ.2 .AND. LEAP(NY)) ND = ND + 1 |