Symbol Description Uses
NY 26


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