Symbol Description Uses
TO 145


File Line number Procedure Code
./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 849 TIC_TIME 
      IF (NM.LE.1)  GO TO 60
./pkg/fizhi/fizhi_clockstuff.F 853 TIC_TIME 
      GO TO 40
./pkg/fizhi/fizhi_turb.F 1943 TRBFLX 
        IF(IBIT.GE.1)GO TO 310
./pkg/fizhi/fizhi_turb.F 1977 TRBFLX 
       GO TO 550
./pkg/fizhi/fizhi_turb.F 2437 SFCFLX 
      IF (.NOT. FIRST) GO TO 100
./pkg/fizhi/fizhi_turb.F 2544 SFCFLX 
      GO TO 125
./pkg/fizhi/fizhi_turb.F 2957 PHI 
      IF( IBIT1 .LE. 0 ) GO TO 200
./pkg/fizhi/fizhi_turb.F 2963 PHI 
      IF( IBIT2 .LE. 0 ) GO TO 60
./pkg/fizhi/fizhi_turb.F 2982 PHI 
      IF( IFLAG .GT. 2 ) GO TO 100
./pkg/fizhi/fizhi_turb.F 2994 PHI 
      IF( IFLAG .EQ. 2 ) GO TO 200
./pkg/fizhi/fizhi_turb.F 3005 PHI 
      IF( IBIT1 .GE. N ) GO TO 500
./pkg/fizhi/fizhi_turb.F 3011 PHI 
      IF( IFLAG .GT. 2 ) GO TO 300
./pkg/fizhi/fizhi_turb.F 3019 PHI 
      IF( IFLAG .EQ. 2 ) GO TO 500
./pkg/fizhi/fizhi_turb.F 3116 PSI 
      IF(IBIT.LE.0)  GO TO 100
./pkg/fizhi/fizhi_turb.F 3139 PSI 
      IF(IFLAG.GE.3) GO TO 75
./pkg/fizhi/fizhi_turb.F 3175 PSI 
      IF(IFLAG.EQ.2) GO TO 100
./pkg/fizhi/fizhi_turb.F 3222 PSI 
      IF(IBIT.LE.0)  GO TO 300
./pkg/fizhi/fizhi_turb.F 3281 PSI 
      IF( IFLAG.GE.3 ) GO TO 225
./pkg/fizhi/fizhi_turb.F 3303 PSI 
       IF(IFLAG.EQ.2)GO TO 300
./pkg/fizhi/fizhi_turb.F 3414 TRBLEN 
      IF ( INIT.EQ.2 ) GO TO 1200
./pkg/fizhi/fizhi_turb.F 3438 TRBLEN 
      IF(IBIT.GE.1) GO TO 50
./pkg/zonal_filt/fftpack.F 1157 R8ADBG 
      IF (IDO .LT. L1) GO TO 103
./pkg/zonal_filt/fftpack.F 1163 R8ADBG 
      GO TO 106
./pkg/zonal_filt/fftpack.F 1177 R8ADBG 
      IF (IDO .EQ. 1) GO TO 116
./pkg/zonal_filt/fftpack.F 1178 R8ADBG 
      IF (NBD .LT. L1) GO TO 112
./pkg/zonal_filt/fftpack.F 1191 R8ADBG 
      GO TO 116
./pkg/zonal_filt/fftpack.F 1242 R8ADBG 
      IF (IDO .EQ. 1) GO TO 132
./pkg/zonal_filt/fftpack.F 1243 R8ADBG 
      IF (NBD .LT. L1) GO TO 128
./pkg/zonal_filt/fftpack.F 1255 R8ADBG 
      GO TO 132
./pkg/zonal_filt/fftpack.F 1277 R8ADBG 
      IF (NBD .GT. L1) GO TO 139
./pkg/zonal_filt/fftpack.F 1290 R8ADBG 
      GO TO 143
./pkg/zonal_filt/fftpack.F 1318 R8FFTB1 
         IF (IP .NE. 4) GO TO 103
./pkg/zonal_filt/fftpack.F 1321 R8FFTB1 
         IF (NA .NE. 0) GO TO 101
./pkg/zonal_filt/fftpack.F 1323 R8FFTB1 
         GO TO 102
./pkg/zonal_filt/fftpack.F 1326 R8FFTB1 
         GO TO 115
./pkg/zonal_filt/fftpack.F 1327 R8FFTB1 
  103    IF (IP .NE. 2) GO TO 106
./pkg/zonal_filt/fftpack.F 1328 R8FFTB1 
         IF (NA .NE. 0) GO TO 104
./pkg/zonal_filt/fftpack.F 1330 R8FFTB1 
         GO TO 105
./pkg/zonal_filt/fftpack.F 1333 R8FFTB1 
         GO TO 115
./pkg/zonal_filt/fftpack.F 1334 R8FFTB1 
  106    IF (IP .NE. 3) GO TO 109
./pkg/zonal_filt/fftpack.F 1336 R8FFTB1 
         IF (NA .NE. 0) GO TO 107
./pkg/zonal_filt/fftpack.F 1338 R8FFTB1 
         GO TO 108
./pkg/zonal_filt/fftpack.F 1341 R8FFTB1 
         GO TO 115
./pkg/zonal_filt/fftpack.F 1342 R8FFTB1 
  109    IF (IP .NE. 5) GO TO 112
./pkg/zonal_filt/fftpack.F 1346 R8FFTB1 
         IF (NA .NE. 0) GO TO 110
./pkg/zonal_filt/fftpack.F 1348 R8FFTB1 
         GO TO 111
./pkg/zonal_filt/fftpack.F 1351 R8FFTB1 
         GO TO 115
./pkg/zonal_filt/fftpack.F 1352 R8FFTB1 
  112    IF (NA .NE. 0) GO TO 113
./pkg/zonal_filt/fftpack.F 1354 R8FFTB1 
         GO TO 114
./pkg/zonal_filt/fftpack.F 1569 R8ADFG 
      IF (IDO .EQ. 1) GO TO 119
./pkg/zonal_filt/fftpack.F 1578 R8ADFG 
      IF (NBD .GT. L1) GO TO 107
./pkg/zonal_filt/fftpack.F 1591 R8ADFG 
      GO TO 111
./pkg/zonal_filt/fftpack.F 1604 R8ADFG 
  111 IF (NBD .LT. L1) GO TO 115
./pkg/zonal_filt/fftpack.F 1616 R8ADFG 
      GO TO 121
./pkg/zonal_filt/fftpack.F 1628 R8ADFG 
      GO TO 121
./pkg/zonal_filt/fftpack.F 1672 R8ADFG 
      IF (IDO .LT. L1) GO TO 132
./pkg/zonal_filt/fftpack.F 1678 R8ADFG 
      GO TO 135
./pkg/zonal_filt/fftpack.F 1693 R8ADFG 
      IF (NBD .LT. L1) GO TO 141
./pkg/zonal_filt/fftpack.F 1739 R8FFTF1 
         IF (IP .NE. 4) GO TO 102
./pkg/zonal_filt/fftpack.F 1742 R8FFTF1 
         IF (NA .NE. 0) GO TO 101
./pkg/zonal_filt/fftpack.F 1744 R8FFTF1 
         GO TO 110
./pkg/zonal_filt/fftpack.F 1746 R8FFTF1 
         GO TO 110
./pkg/zonal_filt/fftpack.F 1747 R8FFTF1 
  102    IF (IP .NE. 2) GO TO 104
./pkg/zonal_filt/fftpack.F 1748 R8FFTF1 
         IF (NA .NE. 0) GO TO 103
./pkg/zonal_filt/fftpack.F 1750 R8FFTF1 
         GO TO 110
./pkg/zonal_filt/fftpack.F 1752 R8FFTF1 
         GO TO 110
./pkg/zonal_filt/fftpack.F 1753 R8FFTF1 
  104    IF (IP .NE. 3) GO TO 106
./pkg/zonal_filt/fftpack.F 1755 R8FFTF1 
         IF (NA .NE. 0) GO TO 105
./pkg/zonal_filt/fftpack.F 1757 R8FFTF1 
         GO TO 110
./pkg/zonal_filt/fftpack.F 1759 R8FFTF1 
         GO TO 110
./pkg/zonal_filt/fftpack.F 1760 R8FFTF1 
  106    IF (IP .NE. 5) GO TO 108
./pkg/zonal_filt/fftpack.F 1764 R8FFTF1 
         IF (NA .NE. 0) GO TO 107
./pkg/zonal_filt/fftpack.F 1766 R8FFTF1 
         GO TO 110
./pkg/zonal_filt/fftpack.F 1768 R8FFTF1 
         GO TO 110
./pkg/zonal_filt/fftpack.F 1770 R8FFTF1 
         IF (NA .NE. 0) GO TO 109
./pkg/zonal_filt/fftpack.F 1773 R8FFTF1 
         GO TO 110
./pkg/zonal_filt/fftpack.F 1802 R8FFTI1 
      GO TO 104
./pkg/zonal_filt/fftpack.F 1810 R8FFTI1 
      IF (NTRY .NE. 2) GO TO 107
./pkg/zonal_filt/fftpack.F 1811 R8FFTI1 
      IF (NF .EQ. 1) GO TO 107
./pkg/zonal_filt/fftpack.F 1817 R8FFTI1 
  107 IF (NL .NE. 1) GO TO 104
./pkg/zonal_filt/fftpack.F 230 RADBG 
      IF (IDO .LT. L1) GO TO 103
./pkg/zonal_filt/fftpack.F 236 RADBG 
      GO TO 106
./pkg/zonal_filt/fftpack.F 250 RADBG 
      IF (IDO .EQ. 1) GO TO 116
./pkg/zonal_filt/fftpack.F 251 RADBG 
      IF (NBD .LT. L1) GO TO 112
./pkg/zonal_filt/fftpack.F 264 RADBG 
      GO TO 116
./pkg/zonal_filt/fftpack.F 315 RADBG 
      IF (IDO .EQ. 1) GO TO 132
./pkg/zonal_filt/fftpack.F 316 RADBG 
      IF (NBD .LT. L1) GO TO 128
./pkg/zonal_filt/fftpack.F 328 RADBG 
      GO TO 132
./pkg/zonal_filt/fftpack.F 350 RADBG 
      IF (NBD .GT. L1) GO TO 139
./pkg/zonal_filt/fftpack.F 363 RADBG 
      GO TO 143
./pkg/zonal_filt/fftpack.F 393 RFFTB1 
         IF (IP .NE. 4) GO TO 103
./pkg/zonal_filt/fftpack.F 396 RFFTB1 
         IF (NA .NE. 0) GO TO 101
./pkg/zonal_filt/fftpack.F 398 RFFTB1 
         GO TO 102
./pkg/zonal_filt/fftpack.F 401 RFFTB1 
         GO TO 115
./pkg/zonal_filt/fftpack.F 402 RFFTB1 
  103    IF (IP .NE. 2) GO TO 106
./pkg/zonal_filt/fftpack.F 403 RFFTB1 
         IF (NA .NE. 0) GO TO 104
./pkg/zonal_filt/fftpack.F 405 RFFTB1 
         GO TO 105
./pkg/zonal_filt/fftpack.F 408 RFFTB1 
         GO TO 115
./pkg/zonal_filt/fftpack.F 409 RFFTB1 
  106    IF (IP .NE. 3) GO TO 109
./pkg/zonal_filt/fftpack.F 411 RFFTB1 
         IF (NA .NE. 0) GO TO 107
./pkg/zonal_filt/fftpack.F 413 RFFTB1 
         GO TO 108
./pkg/zonal_filt/fftpack.F 416 RFFTB1 
         GO TO 115
./pkg/zonal_filt/fftpack.F 417 RFFTB1 
  109    IF (IP .NE. 5) GO TO 112
./pkg/zonal_filt/fftpack.F 421 RFFTB1 
         IF (NA .NE. 0) GO TO 110
./pkg/zonal_filt/fftpack.F 423 RFFTB1 
         GO TO 111
./pkg/zonal_filt/fftpack.F 426 RFFTB1 
         GO TO 115
./pkg/zonal_filt/fftpack.F 427 RFFTB1 
  112    IF (NA .NE. 0) GO TO 113
./pkg/zonal_filt/fftpack.F 429 RFFTB1 
         GO TO 114
./pkg/zonal_filt/fftpack.F 656 RADFG 
      IF (IDO .EQ. 1) GO TO 119
./pkg/zonal_filt/fftpack.F 665 RADFG 
      IF (NBD .GT. L1) GO TO 107
./pkg/zonal_filt/fftpack.F 678 RADFG 
      GO TO 111
./pkg/zonal_filt/fftpack.F 691 RADFG 
  111 IF (NBD .LT. L1) GO TO 115
./pkg/zonal_filt/fftpack.F 703 RADFG 
      GO TO 121
./pkg/zonal_filt/fftpack.F 715 RADFG 
      GO TO 121
./pkg/zonal_filt/fftpack.F 759 RADFG 
      IF (IDO .LT. L1) GO TO 132
./pkg/zonal_filt/fftpack.F 765 RADFG 
      GO TO 135
./pkg/zonal_filt/fftpack.F 780 RADFG 
      IF (NBD .LT. L1) GO TO 141
./pkg/zonal_filt/fftpack.F 828 RFFTF1 
         IF (IP .NE. 4) GO TO 102
./pkg/zonal_filt/fftpack.F 831 RFFTF1 
         IF (NA .NE. 0) GO TO 101
./pkg/zonal_filt/fftpack.F 833 RFFTF1 
         GO TO 110
./pkg/zonal_filt/fftpack.F 835 RFFTF1 
         GO TO 110
./pkg/zonal_filt/fftpack.F 836 RFFTF1 
  102    IF (IP .NE. 2) GO TO 104
./pkg/zonal_filt/fftpack.F 837 RFFTF1 
         IF (NA .NE. 0) GO TO 103
./pkg/zonal_filt/fftpack.F 839 RFFTF1 
         GO TO 110
./pkg/zonal_filt/fftpack.F 841 RFFTF1 
         GO TO 110
./pkg/zonal_filt/fftpack.F 842 RFFTF1 
  104    IF (IP .NE. 3) GO TO 106
./pkg/zonal_filt/fftpack.F 844 RFFTF1 
         IF (NA .NE. 0) GO TO 105
./pkg/zonal_filt/fftpack.F 846 RFFTF1 
         GO TO 110
./pkg/zonal_filt/fftpack.F 848 RFFTF1 
         GO TO 110
./pkg/zonal_filt/fftpack.F 849 RFFTF1 
  106    IF (IP .NE. 5) GO TO 108
./pkg/zonal_filt/fftpack.F 853 RFFTF1 
         IF (NA .NE. 0) GO TO 107
./pkg/zonal_filt/fftpack.F 855 RFFTF1 
         GO TO 110
./pkg/zonal_filt/fftpack.F 857 RFFTF1 
         GO TO 110
./pkg/zonal_filt/fftpack.F 859 RFFTF1 
         IF (NA .NE. 0) GO TO 109
./pkg/zonal_filt/fftpack.F 862 RFFTF1 
         GO TO 110
./pkg/zonal_filt/fftpack.F 896 RFFTI1 
      GO TO 104
./pkg/zonal_filt/fftpack.F 904 RFFTI1 
      IF (NTRY .NE. 2) GO TO 107
./pkg/zonal_filt/fftpack.F 905 RFFTI1 
      IF (NF .EQ. 1) GO TO 107
./pkg/zonal_filt/fftpack.F 911 RFFTI1 
  107 IF (NL .NE. 1) GO TO 104
./pkg/aim_v23/phy_convmf.F 202 CONVMF 
      IF (ITOP(J).EQ.Ktmp) GO TO 300
./pkg/aim_v23/phy_radiat.F 577 RADLW 
      IF (IMODE.EQ.1) GO TO 410
./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 686 TIC_TIME 
      IF (NM.LE.1)  GO TO 60
./pkg/chronos/chronos.F 690 TIC_TIME 
      GO TO 40