Symbol Description Uses
LEAP 15


File Line number Procedure Code
./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
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F 817 TIC_TIME 
      LOGICAL LEAP
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F 819 TIC_TIME 
      LEAP(NY) = MOD(NY,4).EQ.0 .AND. (NY.NE.0 .OR. MOD(NY00,400).EQ.0)
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F 834 TIC_TIME 
      IF (NM.EQ.2 .AND. LEAP(NY))  ND = 29
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F 837 TIC_TIME 
      IF (ND.EQ.29 .AND. NM.EQ.2 .AND. LEAP(NY))  GO TO 20
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F 867 TIC_TIME 
      IF (NM.EQ.2 .AND. LEAP(NY))  ND = ND + 1
./pkg/fizhi/fizhi_clockstuff.F 815 TIC_TIME 
      LOGICAL LEAP
./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 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 865 TIC_TIME 
      IF (NM.EQ.2 .AND. LEAP(NY))  ND = ND + 1