| Symbol | Description | Uses |
| NY | 39 |
| 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 |