Symbol Description Uses
IT ice thickness category index (MULTICATEGORIES and ITD code) 241


File Line number Procedure Code
./pkg/seaice/seaice_growth.F 1004 SEAICE_GROWTH 
         DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 1007 SEAICE_GROWTH 
            a_QbyATMmult_cover(I,J,IT)   = 0. _d 0
./pkg/seaice/seaice_growth.F 1008 SEAICE_GROWTH 
            r_QbyATMmult_cover(I,J,IT)   = 0. _d 0
./pkg/seaice/seaice_growth.F 1009 SEAICE_GROWTH 
            a_QSWbyATMmult_cover(I,J,IT) = 0. _d 0
./pkg/seaice/seaice_growth.F 102 SEAICE_GROWTH 
      INTEGER IT
./pkg/seaice/seaice_growth.F 1074 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 1227 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 1234 SEAICE_GROWTH 
     &     MAX(MIN(r_FWbySublimMult(I,J,IT),HSNOWITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 1236 SEAICE_GROWTH 
          d_HSNWbySublim_ITD(I,J,IT) = - tmpscal2 * ICE2SNOW
./pkg/seaice/seaice_growth.F 1240 SEAICE_GROWTH 
          r_FWbySublimMult(I,J,IT)= r_FWbySublimMult(I,J,IT) - tmpscal2
./pkg/seaice/seaice_growth.F 1258 SEAICE_GROWTH 
     &     MAX(MIN(r_FWbySublimMult(I,J,IT),HEFFITD(I,J,IT,bi,bj)),ZERO)
./pkg/seaice/seaice_growth.F 1259 SEAICE_GROWTH 
          d_HEFFbySublim_ITD(I,J,IT) = - tmpscal2
./pkg/seaice/seaice_growth.F 1262 SEAICE_GROWTH 
          r_FWbySublimMult(I,J,IT) = r_FWbySublimMult(I,J,IT) - tmpscal2
./pkg/seaice/seaice_growth.F 1277 SEAICE_GROWTH 
          a_QbyATMmult_cover(I,J,IT) = a_QbyATMmult_cover(I,J,IT)
./pkg/seaice/seaice_growth.F 1278 SEAICE_GROWTH 
     &                               - r_FWbySublimMult(I,J,IT)
./pkg/seaice/seaice_growth.F 1279 SEAICE_GROWTH 
          r_QbyATMmult_cover(I,J,IT) = r_QbyATMmult_cover(I,J,IT)
./pkg/seaice/seaice_growth.F 1280 SEAICE_GROWTH 
     &                               - r_FWbySublimMult(I,J,IT)
./pkg/seaice/seaice_growth.F 1303 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 1309 SEAICE_GROWTH 
           tmpscal1=MAX(r_QbyOCN(i,j)*areaFracFactor(I,J,IT),
./pkg/seaice/seaice_growth.F 1310 SEAICE_GROWTH 
     &                               -HEFFITD(I,J,IT,bi,bj))
./pkg/seaice/seaice_growth.F 1311 SEAICE_GROWTH 
           d_HEFFbyOCNonICE_ITD(I,J,IT)=tmpscal1
./pkg/seaice/seaice_growth.F 1354 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 1359 SEAICE_GROWTH 
           tmpscal1=MAX(r_QbyATMmult_cover(I,J,IT),
./pkg/seaice/seaice_growth.F 1360 SEAICE_GROWTH 
     &                  -HSNOWITD(I,J,IT,bi,bj)*SNOW2ICE)
./pkg/seaice/seaice_growth.F 1366 SEAICE_GROWTH 
           d_HSNWbyATMonSNW_ITD(I,J,IT) = tmpscal2*ICE2SNOW
./pkg/seaice/seaice_growth.F 1369 SEAICE_GROWTH 
           r_QbyATMmult_cover(I,J,IT)=r_QbyATMmult_cover(I,J,IT)
./pkg/seaice/seaice_growth.F 1406 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 1409 SEAICE_GROWTH 
           tmpscal1 = HEFFITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 1410 SEAICE_GROWTH 
     &              + d_HEFFbySublim_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1411 SEAICE_GROWTH 
     &              + d_HEFFbyOCNonICE_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1413 SEAICE_GROWTH 
     &                     r_QbyATMmult_cover(I,J,IT)
./pkg/seaice/seaice_growth.F 1415 SEAICE_GROWTH 
     &              + AREAITDpreTH(I,J,IT) * r_QbyOCN(I,J))
./pkg/seaice/seaice_growth.F 1416 SEAICE_GROWTH 
           d_HEFFbyATMonOCN_cover_ITD(I,J,IT) = tmpscal2
./pkg/seaice/seaice_growth.F 1419 SEAICE_GROWTH 
           d_HEFFbyATMonOCN_ITD(I,J,IT) = d_HEFFbyATMonOCN_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1423 SEAICE_GROWTH 
           r_QbyATMmult_cover(I,J,IT)  = r_QbyATMmult_cover(I,J,IT)
./pkg/seaice/seaice_growth.F 1497 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 1500 SEAICE_GROWTH 
           d_HSNWbyRAIN_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1501 SEAICE_GROWTH 
     &     = d_HSNWbyRAIN(I,J)*areaFracFactor(I,J,IT)
./pkg/seaice/seaice_growth.F 1532 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 1535 SEAICE_GROWTH 
           tmpscal4 = HSNWITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 1536 SEAICE_GROWTH 
     &              + d_HSNWbySublim_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1537 SEAICE_GROWTH 
     &              + d_HSNWbyATMonSNW_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1538 SEAICE_GROWTH 
     &              + d_HSNWbyRAIN_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1539 SEAICE_GROWTH 
           tmpscal1=MAX(r_QbyOCN(i,j)*ICE2SNOW*areaFracFactor(I,J,IT),
./pkg/seaice/seaice_growth.F 1546 SEAICE_GROWTH 
           d_HSNWbyOCNonSNW_ITD(I,J,IT) = tmpscal2
./pkg/seaice/seaice_growth.F 1693 SEAICE_GROWTH 
         DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 1696 SEAICE_GROWTH 
            tmpscal3 = HEFFITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 1697 SEAICE_GROWTH 
     &               + d_HEFFbySublim_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1698 SEAICE_GROWTH 
     &               + d_HEFFbyOCNonICE_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1699 SEAICE_GROWTH 
     &               + d_HEFFbyATMonOCN_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1700 SEAICE_GROWTH 
            tmpscal4 = HSNWITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 1701 SEAICE_GROWTH 
     &               + d_HSNWbySublim_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1702 SEAICE_GROWTH 
     &               + d_HSNWbyATMonSNW_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1703 SEAICE_GROWTH 
     &               + d_HSNWbyRAIN_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1708 SEAICE_GROWTH 
            d_HEFFbyFLOODING_ITD(I,J,IT) = tmpscal1
./pkg/seaice/seaice_growth.F 1731 SEAICE_GROWTH 
         DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 1734 SEAICE_GROWTH 
            HEFFITD(I,J,IT,bi,bj) = HEFFITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 1735 SEAICE_GROWTH 
     &                            + d_HEFFbySublim_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1736 SEAICE_GROWTH 
     &                            + d_HEFFbyOCNonICE_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1737 SEAICE_GROWTH 
     &                            + d_HEFFbyATMonOCN_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1738 SEAICE_GROWTH 
     &                            + d_HEFFbyFLOODING_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1739 SEAICE_GROWTH 
            HSNOWITD(I,J,IT,bi,bj) = HSNOWITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 1740 SEAICE_GROWTH 
     &                            + d_HSNWbySublim_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1741 SEAICE_GROWTH 
     &                            + d_HSNWbyATMonSNW_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1742 SEAICE_GROWTH 
     &                            + d_HSNWbyRAIN_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1743 SEAICE_GROWTH 
     &                            + d_HSNWbyOCNonSNW_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1744 SEAICE_GROWTH 
     &                            - d_HEFFbyFLOODING_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1883 SEAICE_GROWTH 
         DO IT=2,SEAICE_multDim
./pkg/seaice/seaice_growth.F 1886 SEAICE_GROWTH 
            IF (HEFFITD(I,J,IT,bi,bj).LE.ZERO) THEN
./pkg/seaice/seaice_growth.F 1888 SEAICE_GROWTH 
             AREAITD(I,J,IT,bi,bj)=ZERO
./pkg/seaice/seaice_growth.F 1894 SEAICE_GROWTH 
             IF ( HEFFITDpreTH(I,J,IT).LE.ZERO ) THEN
./pkg/seaice/seaice_growth.F 1897 SEAICE_GROWTH 
              tmpscal1=AREAITDpreTH(I,J,IT)*
./pkg/seaice/seaice_growth.F 1898 SEAICE_GROWTH 
     &             HEFFITD(I,J,IT,bi,bj)/HEFFITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 1902 SEAICE_GROWTH 
             AREAITD(I,J,IT,bi,bj) = AREAITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 1903 SEAICE_GROWTH 
     &                             * (ONE - latMeltFrac(I,J,IT))
./pkg/seaice/seaice_growth.F 1907 SEAICE_GROWTH 
             AREAITD(I,J,IT,bi,bj) = max(AREAITD(I,J,IT,bi,bj),
./pkg/seaice/seaice_growth.F 1912 SEAICE_GROWTH 
     &                           +AREAITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 1924 SEAICE_GROWTH 
         DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 1927 SEAICE_GROWTH 
            AREAITD(I,J,IT,bi,bj) = AREAITDpreTH(I,J,IT) + 0.1 _d 0 *
./pkg/seaice/seaice_growth.F 1928 SEAICE_GROWTH 
     &               ( HEFFITD(I,J,IT,bi,bj) - HEFFITDpreTH(I,J,IT) )
./pkg/seaice/seaice_growth.F 2168 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 2182 SEAICE_GROWTH 
     &      + a_QbyATMmult_cover(I,J,IT)
./pkg/seaice/seaice_growth.F 2184 SEAICE_GROWTH 
     &      + r_QbyATMmult_cover(I,J,IT)
./pkg/seaice/seaice_growth.F 2186 SEAICE_GROWTH 
     &      + a_QSWbyATMmult_cover(I,J,IT)
./pkg/seaice/seaice_growth.F 2188 SEAICE_GROWTH 
     &      + r_FWbySublimMult(I,J,IT)
./pkg/seaice/seaice_growth.F 371 SEAICE_GROWTH 
      DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 372 SEAICE_GROWTH 
       denominator = denominator + IT * SEAICE_pdf(IT)
./pkg/seaice/seaice_growth.F 466 SEAICE_GROWTH 
          DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 467 SEAICE_GROWTH 
            ticeInMult(I,J,IT)            = 0.0 _d 0
./pkg/seaice/seaice_growth.F 468 SEAICE_GROWTH 
            ticeOutMult(I,J,IT)           = 0.0 _d 0
./pkg/seaice/seaice_growth.F 469 SEAICE_GROWTH 
            a_QbyATMmult_cover(I,J,IT)    = 0.0 _d 0
./pkg/seaice/seaice_growth.F 470 SEAICE_GROWTH 
            a_QSWbyATMmult_cover(I,J,IT)  = 0.0 _d 0
./pkg/seaice/seaice_growth.F 471 SEAICE_GROWTH 
            a_FWbySublimMult(I,J,IT)      = 0.0 _d 0
./pkg/seaice/seaice_growth.F 473 SEAICE_GROWTH 
            latentHeatFluxMaxMult(I,J,IT) = 0.0 _d 0
./pkg/seaice/seaice_growth.F 476 SEAICE_GROWTH 
            d_HEFFbySublim_ITD(I,J,IT)         = 0.0 _d 0
./pkg/seaice/seaice_growth.F 477 SEAICE_GROWTH 
            d_HSNWbySublim_ITD(I,J,IT)         = 0.0 _d 0
./pkg/seaice/seaice_growth.F 478 SEAICE_GROWTH 
            d_HEFFbyOCNonICE_ITD(I,J,IT)       = 0.0 _d 0
./pkg/seaice/seaice_growth.F 479 SEAICE_GROWTH 
            d_HSNWbyATMonSNW_ITD(I,J,IT)       = 0.0 _d 0
./pkg/seaice/seaice_growth.F 480 SEAICE_GROWTH 
            d_HEFFbyATMonOCN_ITD(I,J,IT)       = 0.0 _d 0
./pkg/seaice/seaice_growth.F 481 SEAICE_GROWTH 
            d_HEFFbyATMonOCN_cover_ITD(I,J,IT) = 0.0 _d 0
./pkg/seaice/seaice_growth.F 482 SEAICE_GROWTH 
            d_HEFFbyATMonOCN_open_ITD(I,J,IT)  = 0.0 _d 0
./pkg/seaice/seaice_growth.F 483 SEAICE_GROWTH 
            d_HSNWbyRAIN_ITD(I,J,IT)           = 0.0 _d 0
./pkg/seaice/seaice_growth.F 484 SEAICE_GROWTH 
            d_HSNWbyOCNonSNW_ITD(I,J,IT)       = 0.0 _d 0
./pkg/seaice/seaice_growth.F 485 SEAICE_GROWTH 
            d_HEFFbyFLOODING_ITD(I,J,IT)       = 0.0 _d 0
./pkg/seaice/seaice_growth.F 486 SEAICE_GROWTH 
            r_QbyATMmult_cover(I,J,IT)         = 0.0 _d 0
./pkg/seaice/seaice_growth.F 487 SEAICE_GROWTH 
            r_FWbySublimMult(I,J,IT)           = 0.0 _d 0
./pkg/seaice/seaice_growth.F 489 SEAICE_GROWTH 
            latMeltFrac(I,J,IT)                = 0.0 _d 0
./pkg/seaice/seaice_growth.F 490 SEAICE_GROWTH 
            latMeltRate(I,J,IT)                = 0.0 _d 0
./pkg/seaice/seaice_growth.F 528 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 531 SEAICE_GROWTH 
           HEFFITDpreTH(I,J,IT)=HEFFITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 532 SEAICE_GROWTH 
           HSNWITDpreTH(I,J,IT)=HSNOWITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 533 SEAICE_GROWTH 
           AREAITDpreTH(I,J,IT)=AREAITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 537 SEAICE_GROWTH 
            areaFracFactor(I,J,IT)=AREAITD(I,J,IT,bi,bj)/AREA(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 540 SEAICE_GROWTH 
            IF (IT .EQ. 1) THEN
./pkg/seaice/seaice_growth.F 541 SEAICE_GROWTH 
             areaFracFactor(I,J,IT)=ONE
./pkg/seaice/seaice_growth.F 543 SEAICE_GROWTH 
             areaFracFactor(I,J,IT)=ZERO
./pkg/seaice/seaice_growth.F 600 SEAICE_GROWTH 
         DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 603 SEAICE_GROWTH 
            HEFFITDpreTH(I,J,IT) = 0. _d 0
./pkg/seaice/seaice_growth.F 604 SEAICE_GROWTH 
            HSNWITDpreTH(I,J,IT) = 0. _d 0
./pkg/seaice/seaice_growth.F 605 SEAICE_GROWTH 
            AREAITDpreTH(I,J,IT) = 0. _d 0
./pkg/seaice/seaice_growth.F 630 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 633 SEAICE_GROWTH 
           IF (HEFFITDpreTH(I,J,IT) .GT. ZERO) THEN
./pkg/seaice/seaice_growth.F 635 SEAICE_GROWTH 
            tmpscal1 = SQRT(AREAITDpreTH(I,J,IT) * AREAITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 638 SEAICE_GROWTH 
            tmpscal2 = HEFFITDpreTH(I,J,IT) / tmpscal1
./pkg/seaice/seaice_growth.F 640 SEAICE_GROWTH 
            heffActualMult(I,J,IT) = SQRT(tmpscal2 * tmpscal2
./pkg/seaice/seaice_growth.F 643 SEAICE_GROWTH 
            hsnowActualMult(I,J,IT) = HSNWITDpreTH(I,J,IT) / tmpscal1
./pkg/seaice/seaice_growth.F 645 SEAICE_GROWTH 
            recip_heffActualMult(I,J,IT)  = AREAITDpreTH(I,J,IT) /
./pkg/seaice/seaice_growth.F 646 SEAICE_GROWTH 
     &           sqrt(HEFFITDpreTH(I,J,IT) * HEFFITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 650 SEAICE_GROWTH 
            heffActualMult(I,J,IT) = ZERO
./pkg/seaice/seaice_growth.F 651 SEAICE_GROWTH 
            hsnowActualMult(I,J,IT) = ZERO
./pkg/seaice/seaice_growth.F 652 SEAICE_GROWTH 
            recip_heffActualMult(I,J,IT)  = ZERO
./pkg/seaice/seaice_growth.F 695 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 698 SEAICE_GROWTH 
           IF (HEFFITDpreTH(I,J,IT) .GT. ZERO) THEN
./pkg/seaice/seaice_growth.F 699 SEAICE_GROWTH 
            latentHeatFluxMaxMult(I,J,IT) = lhSublim*recip_deltaTtherm *
./pkg/seaice/seaice_growth.F 700 SEAICE_GROWTH 
     &           (HEFFITDpreTH(I,J,IT)*SEAICE_rhoIce +
./pkg/seaice/seaice_growth.F 701 SEAICE_GROWTH 
     &            HSNWITDpreTH(I,J,IT)*SEAICE_rhoSnow)
./pkg/seaice/seaice_growth.F 702 SEAICE_GROWTH 
     &           /AREAITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 704 SEAICE_GROWTH 
            latentHeatFluxMaxMult(I,J,IT) = ZERO
./pkg/seaice/seaice_growth.F 789 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 792 SEAICE_GROWTH 
           ticeInMult(I,J,IT)  = TICES(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 793 SEAICE_GROWTH 
           ticeOutMult(I,J,IT) = TICES(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 794 SEAICE_GROWTH 
           TICES(I,J,IT,bi,bj) = ZERO
./pkg/seaice/seaice_growth.F 801 SEAICE_GROWTH 
         pFac = (2.0 _d 0*IT - 1.0 _d 0)*recip_denominator
./pkg/seaice/seaice_growth.F 806 SEAICE_GROWTH 
           heffActualMult(I,J,IT)        = heffActual(I,J)*pFac
./pkg/seaice/seaice_growth.F 807 SEAICE_GROWTH 
           hsnowActualMult(I,J,IT)       = hsnowActual(I,J)*pFacSnow
./pkg/seaice/seaice_growth.F 809 SEAICE_GROWTH 
           latentHeatFluxMaxMult(I,J,IT) = latentHeatFluxMax(I,J)*pFac
./pkg/seaice/seaice_growth.F 832 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 834 SEAICE_GROWTH 
     I        UG, heffActualMult(1,1,IT), hsnowActualMult(1,1,IT),
./pkg/seaice/seaice_growth.F 836 SEAICE_GROWTH 
     I        latentHeatFluxMaxMult(1,1,IT),
./pkg/seaice/seaice_growth.F 838 SEAICE_GROWTH 
     U        ticeInMult(1,1,IT), ticeOutMult(1,1,IT),
./pkg/seaice/seaice_growth.F 839 SEAICE_GROWTH 
     O        a_QbyATMmult_cover(1,1,IT),
./pkg/seaice/seaice_growth.F 840 SEAICE_GROWTH 
     O        a_QSWbyATMmult_cover(1,1,IT),
./pkg/seaice/seaice_growth.F 841 SEAICE_GROWTH 
     O        a_FWbySublimMult(1,1,IT),
./pkg/seaice/seaice_growth.F 861 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 879 SEAICE_GROWTH 
           TICES(I,J,IT,bi,bj) = ticeOutMult(I,J,IT)
./pkg/seaice/seaice_growth.F 885 SEAICE_GROWTH 
     &          + a_QbyATMmult_cover(I,J,IT)*areaFracFactor(I,J,IT)
./pkg/seaice/seaice_growth.F 887 SEAICE_GROWTH 
     &          + a_QSWbyATMmult_cover(I,J,IT)*areaFracFactor(I,J,IT)
./pkg/seaice/seaice_growth.F 889 SEAICE_GROWTH 
     &          + a_FWbySublimMult(I,J,IT)*areaFracFactor(I,J,IT)
./pkg/seaice/seaice_growth.F 892 SEAICE_GROWTH 
     &          + a_QbyATMmult_cover(I,J,IT)*SEAICE_PDF(IT)
./pkg/seaice/seaice_growth.F 894 SEAICE_GROWTH 
     &          + a_QSWbyATMmult_cover(I,J,IT)*SEAICE_PDF(IT)
./pkg/seaice/seaice_growth.F 896 SEAICE_GROWTH 
     &          + a_FWbySublimMult(I,J,IT)*SEAICE_PDF(IT)
./pkg/seaice/seaice_growth.F 931 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 934 SEAICE_GROWTH 
           a_QbyATMmult_cover(I,J,IT)   = a_QbyATMmult_cover(I,J,IT)
./pkg/seaice/seaice_growth.F 935 SEAICE_GROWTH 
     &          * convertQ2HI * AREAITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 936 SEAICE_GROWTH 
           a_QSWbyATMmult_cover(I,J,IT) = a_QSWbyATMmult_cover(I,J,IT)
./pkg/seaice/seaice_growth.F 937 SEAICE_GROWTH 
     &          * convertQ2HI * AREAITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 939 SEAICE_GROWTH 
           r_QbyATMmult_cover(I,J,IT)=a_QbyATMmult_cover(I,J,IT)
./pkg/seaice/seaice_growth.F 943 SEAICE_GROWTH 
           a_FWbySublimMult(I,J,IT) = ZERO
./pkg/seaice/seaice_growth.F 945 SEAICE_GROWTH 
           a_FWbySublimMult(I,J,IT) = SEAICE_deltaTtherm*recip_rhoIce
./pkg/seaice/seaice_growth.F 946 SEAICE_GROWTH 
     &            * a_FWbySublimMult(I,J,IT)*AREAITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 947 SEAICE_GROWTH 
           r_FWbySublimMult(I,J,IT)=a_FWbySublimMult(I,J,IT)
./pkg/seaice/seaice_reg_ridge.F 158 SEAICE_REG_RIDGE 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_reg_ridge.F 163 SEAICE_REG_RIDGE 
           tmpscal1=MAX(-HEFFITD(I,J,IT,bi,bj),0. _d 0)
./pkg/seaice/seaice_reg_ridge.F 164 SEAICE_REG_RIDGE 
           HEFFITD(I,J,IT,bi,bj)=HEFFITD(I,J,IT,bi,bj)+tmpscal1
./pkg/seaice/seaice_reg_ridge.F 166 SEAICE_REG_RIDGE 
           tmpscal2=MAX(-HSNOWITD(I,J,IT,bi,bj),0. _d 0)
./pkg/seaice/seaice_reg_ridge.F 167 SEAICE_REG_RIDGE 
           HSNOWITD(I,J,IT,bi,bj)=HSNOWITD(I,J,IT,bi,bj)+tmpscal2
./pkg/seaice/seaice_reg_ridge.F 169 SEAICE_REG_RIDGE 
           AREAITD(I,J,IT,bi,bj)=MAX(AREAITD(I,J,IT,bi,bj),0. _d 0)
./pkg/seaice/seaice_reg_ridge.F 203 SEAICE_REG_RIDGE 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_reg_ridge.F 207 SEAICE_REG_RIDGE 
            HEFFITD(I,J,IT,bi,bj) = 0. _d 0
./pkg/seaice/seaice_reg_ridge.F 208 SEAICE_REG_RIDGE 
            HSNOWITD(I,J,IT,bi,bj) = 0. _d 0
./pkg/seaice/seaice_reg_ridge.F 224 SEAICE_REG_RIDGE 
           DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_reg_ridge.F 225 SEAICE_REG_RIDGE 
            TICES(I,J,IT,bi,bj)=celsius2K
./pkg/seaice/seaice_reg_ridge.F 238 SEAICE_REG_RIDGE 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_reg_ridge.F 241 SEAICE_REG_RIDGE 
           IF ( (HEFFITD(I,J,IT,bi,bj) .EQ.0. _d 0).AND.
./pkg/seaice/seaice_reg_ridge.F 242 SEAICE_REG_RIDGE 
     &          (HSNOWITD(I,J,IT,bi,bj).EQ.0. _d 0))
./pkg/seaice/seaice_reg_ridge.F 243 SEAICE_REG_RIDGE 
     &          AREAITD(I,J,IT,bi,bj)=0. _d 0
./pkg/seaice/seaice_reg_ridge.F 265 SEAICE_REG_RIDGE 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_reg_ridge.F 268 SEAICE_REG_RIDGE 
           IF ((HEFFITD(I,J,IT,bi,bj).GT.0).OR.
./pkg/seaice/seaice_reg_ridge.F 269 SEAICE_REG_RIDGE 
     &          (HSNOWITD(I,J,IT,bi,bj).GT.0)) THEN
./pkg/seaice/seaice_reg_ridge.F 273 SEAICE_REG_RIDGE 
            AREAITD(I,J,IT,bi,bj)=
./pkg/seaice/seaice_reg_ridge.F 274 SEAICE_REG_RIDGE 
     &        MAX(AREAITD(I,J,IT,bi,bj),SEAICE_area_floor*recip_nitd)
./pkg/seaice/seaice_reg_ridge.F 327 SEAICE_REG_RIDGE 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_reg_ridge.F 333 SEAICE_REG_RIDGE 
     &          +        TICES(I,J,IT,bi,bj) * HEFFITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_reg_ridge.F 334 SEAICE_REG_RIDGE 
           tmpscal2itd(i,j)=tmpscal2itd(i,j) + HEFFITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_reg_ridge.F 336 SEAICE_REG_RIDGE 
           tmpscal3itd(i,j)=tmpscal3itd(i,j) + AREAITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_reg_ridge.F 64 SEAICE_REG_RIDGE 
      INTEGER IT