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


File Line number Procedure Code
./pkg/seaice/seaice_growth.F 1056 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 1205 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 1212 SEAICE_GROWTH 
     &     MAX(MIN(r_FWbySublimMult(I,J,IT),HSNOWITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 1214 SEAICE_GROWTH 
          d_HSNWbySublim_ITD(I,J,IT) = - tmpscal2 * ICE2SNOW
./pkg/seaice/seaice_growth.F 1218 SEAICE_GROWTH 
          r_FWbySublimMult(I,J,IT)= r_FWbySublimMult(I,J,IT) - tmpscal2
./pkg/seaice/seaice_growth.F 1236 SEAICE_GROWTH 
     &     MAX(MIN(r_FWbySublimMult(I,J,IT),HEFFITD(I,J,IT,bi,bj)),ZERO)
./pkg/seaice/seaice_growth.F 1237 SEAICE_GROWTH 
          d_HEFFbySublim_ITD(I,J,IT) = - tmpscal2
./pkg/seaice/seaice_growth.F 1240 SEAICE_GROWTH 
          r_FWbySublimMult(I,J,IT) = r_FWbySublimMult(I,J,IT) - tmpscal2
./pkg/seaice/seaice_growth.F 1255 SEAICE_GROWTH 
          a_QbyATMmult_cover(I,J,IT) = a_QbyATMmult_cover(I,J,IT)
./pkg/seaice/seaice_growth.F 1256 SEAICE_GROWTH 
     &                               - r_FWbySublimMult(I,J,IT)
./pkg/seaice/seaice_growth.F 1257 SEAICE_GROWTH 
          r_QbyATMmult_cover(I,J,IT) = r_QbyATMmult_cover(I,J,IT)
./pkg/seaice/seaice_growth.F 1258 SEAICE_GROWTH 
     &                               - r_FWbySublimMult(I,J,IT)
./pkg/seaice/seaice_growth.F 1281 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 1287 SEAICE_GROWTH 
           tmpscal1=MAX(r_QbyOCN(i,j)*areaFracFactor(I,J,IT),
./pkg/seaice/seaice_growth.F 1288 SEAICE_GROWTH 
     &                               -HEFFITD(I,J,IT,bi,bj))
./pkg/seaice/seaice_growth.F 1289 SEAICE_GROWTH 
           d_HEFFbyOCNonICE_ITD(I,J,IT)=tmpscal1
./pkg/seaice/seaice_growth.F 1332 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 1337 SEAICE_GROWTH 
           tmpscal1=MAX(r_QbyATMmult_cover(I,J,IT),
./pkg/seaice/seaice_growth.F 1338 SEAICE_GROWTH 
     &                  -HSNOWITD(I,J,IT,bi,bj)*SNOW2ICE)
./pkg/seaice/seaice_growth.F 1344 SEAICE_GROWTH 
           d_HSNWbyATMonSNW_ITD(I,J,IT) = tmpscal2*ICE2SNOW
./pkg/seaice/seaice_growth.F 1347 SEAICE_GROWTH 
           r_QbyATMmult_cover(I,J,IT)=r_QbyATMmult_cover(I,J,IT)
./pkg/seaice/seaice_growth.F 1384 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 1387 SEAICE_GROWTH 
           tmpscal1 = HEFFITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 1388 SEAICE_GROWTH 
     &              + d_HEFFbySublim_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1389 SEAICE_GROWTH 
     &              + d_HEFFbyOCNonICE_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1391 SEAICE_GROWTH 
     &                     r_QbyATMmult_cover(I,J,IT)
./pkg/seaice/seaice_growth.F 1393 SEAICE_GROWTH 
     &              + AREAITDpreTH(I,J,IT) * r_QbyOCN(I,J))
./pkg/seaice/seaice_growth.F 1394 SEAICE_GROWTH 
           d_HEFFbyATMonOCN_cover_ITD(I,J,IT) = tmpscal2
./pkg/seaice/seaice_growth.F 1397 SEAICE_GROWTH 
           d_HEFFbyATMonOCN_ITD(I,J,IT) = d_HEFFbyATMonOCN_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1401 SEAICE_GROWTH 
           r_QbyATMmult_cover(I,J,IT)  = r_QbyATMmult_cover(I,J,IT)
./pkg/seaice/seaice_growth.F 1475 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 1478 SEAICE_GROWTH 
           d_HSNWbyRAIN_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1479 SEAICE_GROWTH 
     &     = d_HSNWbyRAIN(I,J)*areaFracFactor(I,J,IT)
./pkg/seaice/seaice_growth.F 1510 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 1513 SEAICE_GROWTH 
           tmpscal4 = HSNWITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 1514 SEAICE_GROWTH 
     &              + d_HSNWbySublim_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1515 SEAICE_GROWTH 
     &              + d_HSNWbyATMonSNW_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1516 SEAICE_GROWTH 
     &              + d_HSNWbyRAIN_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1517 SEAICE_GROWTH 
           tmpscal1=MAX(r_QbyOCN(i,j)*ICE2SNOW*areaFracFactor(I,J,IT),
./pkg/seaice/seaice_growth.F 1524 SEAICE_GROWTH 
           d_HSNWbyOCNonSNW_ITD(I,J,IT) = tmpscal2
./pkg/seaice/seaice_growth.F 1671 SEAICE_GROWTH 
         DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 1674 SEAICE_GROWTH 
            tmpscal3 = HEFFITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 1675 SEAICE_GROWTH 
     &               + d_HEFFbySublim_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1676 SEAICE_GROWTH 
     &               + d_HEFFbyOCNonICE_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1677 SEAICE_GROWTH 
     &               + d_HEFFbyATMonOCN_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1678 SEAICE_GROWTH 
            tmpscal4 = HSNWITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 1679 SEAICE_GROWTH 
     &               + d_HSNWbySublim_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1680 SEAICE_GROWTH 
     &               + d_HSNWbyATMonSNW_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1681 SEAICE_GROWTH 
     &               + d_HSNWbyRAIN_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1686 SEAICE_GROWTH 
            d_HEFFbyFLOODING_ITD(I,J,IT) = tmpscal1
./pkg/seaice/seaice_growth.F 1709 SEAICE_GROWTH 
         DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 1712 SEAICE_GROWTH 
            HEFFITD(I,J,IT,bi,bj) = HEFFITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 1713 SEAICE_GROWTH 
     &                            + d_HEFFbySublim_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1714 SEAICE_GROWTH 
     &                            + d_HEFFbyOCNonICE_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1715 SEAICE_GROWTH 
     &                            + d_HEFFbyATMonOCN_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1716 SEAICE_GROWTH 
     &                            + d_HEFFbyFLOODING_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1717 SEAICE_GROWTH 
            HSNOWITD(I,J,IT,bi,bj) = HSNOWITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 1718 SEAICE_GROWTH 
     &                            + d_HSNWbySublim_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1719 SEAICE_GROWTH 
     &                            + d_HSNWbyATMonSNW_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1720 SEAICE_GROWTH 
     &                            + d_HSNWbyRAIN_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1721 SEAICE_GROWTH 
     &                            + d_HSNWbyOCNonSNW_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1722 SEAICE_GROWTH 
     &                            - d_HEFFbyFLOODING_ITD(I,J,IT)
./pkg/seaice/seaice_growth.F 1857 SEAICE_GROWTH 
         DO IT=2,SEAICE_multDim
./pkg/seaice/seaice_growth.F 1860 SEAICE_GROWTH 
            IF (HEFFITD(I,J,IT,bi,bj).LE.ZERO) THEN
./pkg/seaice/seaice_growth.F 1862 SEAICE_GROWTH 
             AREAITD(I,J,IT,bi,bj)=ZERO
./pkg/seaice/seaice_growth.F 1865 SEAICE_GROWTH 
             tmpscal1=HEFFITDpreTH(I,J,IT)/AREAITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 1868 SEAICE_GROWTH 
             AREAITD(I,J,IT,bi,bj) = AREAITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 1869 SEAICE_GROWTH 
     &                             * (ONE - latMeltFrac(I,J,IT))
./pkg/seaice/seaice_growth.F 1870 SEAICE_GROWTH 
             AREAITD(I,J,IT,bi,bj) = max(ZERO,AREAITD(I,J,IT,bi,bj))
./pkg/seaice/seaice_growth.F 1872 SEAICE_GROWTH 
             AREAITD(I,J,IT,bi,bj) = max(AREAITD(I,J,IT,bi,bj),
./pkg/seaice/seaice_growth.F 1873 SEAICE_GROWTH 
     &                                   HEFFITD(I,J,IT,bi,bj)/tmpscal1)
./pkg/seaice/seaice_growth.F 1877 SEAICE_GROWTH 
     &                           +AREAITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 1889 SEAICE_GROWTH 
         DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 1892 SEAICE_GROWTH 
            AREAITD(I,J,IT,bi,bj) = AREAITDpreTH(I,J,IT) + 0.1 _d 0 *
./pkg/seaice/seaice_growth.F 1893 SEAICE_GROWTH 
     &               ( HEFFITD(I,J,IT,bi,bj) - HEFFITDpreTH(I,J,IT) )
./pkg/seaice/seaice_growth.F 2130 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 2144 SEAICE_GROWTH 
     &      + a_QbyATMmult_cover(I,J,IT)
./pkg/seaice/seaice_growth.F 2146 SEAICE_GROWTH 
     &      + r_QbyATMmult_cover(I,J,IT)
./pkg/seaice/seaice_growth.F 2148 SEAICE_GROWTH 
     &      + a_QSWbyATMmult_cover(I,J,IT)
./pkg/seaice/seaice_growth.F 2150 SEAICE_GROWTH 
     &      + r_FWbySublimMult(I,J,IT)
./pkg/seaice/seaice_growth.F 448 SEAICE_GROWTH 
          DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 449 SEAICE_GROWTH 
            ticeInMult(I,J,IT)            = 0.0 _d 0
./pkg/seaice/seaice_growth.F 450 SEAICE_GROWTH 
            ticeOutMult(I,J,IT)           = 0.0 _d 0
./pkg/seaice/seaice_growth.F 451 SEAICE_GROWTH 
            a_QbyATMmult_cover(I,J,IT)    = 0.0 _d 0
./pkg/seaice/seaice_growth.F 452 SEAICE_GROWTH 
            a_QSWbyATMmult_cover(I,J,IT)  = 0.0 _d 0
./pkg/seaice/seaice_growth.F 453 SEAICE_GROWTH 
            a_FWbySublimMult(I,J,IT)      = 0.0 _d 0
./pkg/seaice/seaice_growth.F 455 SEAICE_GROWTH 
            latentHeatFluxMaxMult(I,J,IT) = 0.0 _d 0
./pkg/seaice/seaice_growth.F 458 SEAICE_GROWTH 
            d_HEFFbySublim_ITD(I,J,IT)         = 0.0 _d 0
./pkg/seaice/seaice_growth.F 459 SEAICE_GROWTH 
            d_HSNWbySublim_ITD(I,J,IT)         = 0.0 _d 0
./pkg/seaice/seaice_growth.F 460 SEAICE_GROWTH 
            d_HEFFbyOCNonICE_ITD(I,J,IT)       = 0.0 _d 0
./pkg/seaice/seaice_growth.F 461 SEAICE_GROWTH 
            d_HSNWbyATMonSNW_ITD(I,J,IT)       = 0.0 _d 0
./pkg/seaice/seaice_growth.F 462 SEAICE_GROWTH 
            d_HEFFbyATMonOCN_ITD(I,J,IT)       = 0.0 _d 0
./pkg/seaice/seaice_growth.F 463 SEAICE_GROWTH 
            d_HEFFbyATMonOCN_cover_ITD(I,J,IT) = 0.0 _d 0
./pkg/seaice/seaice_growth.F 464 SEAICE_GROWTH 
            d_HEFFbyATMonOCN_open_ITD(I,J,IT)  = 0.0 _d 0
./pkg/seaice/seaice_growth.F 465 SEAICE_GROWTH 
            d_HSNWbyRAIN_ITD(I,J,IT)           = 0.0 _d 0
./pkg/seaice/seaice_growth.F 466 SEAICE_GROWTH 
            d_HSNWbyOCNonSNW_ITD(I,J,IT)       = 0.0 _d 0
./pkg/seaice/seaice_growth.F 467 SEAICE_GROWTH 
            d_HEFFbyFLOODING_ITD(I,J,IT)       = 0.0 _d 0
./pkg/seaice/seaice_growth.F 468 SEAICE_GROWTH 
            r_QbyATMmult_cover(I,J,IT)         = 0.0 _d 0
./pkg/seaice/seaice_growth.F 469 SEAICE_GROWTH 
            r_FWbySublimMult(I,J,IT)           = 0.0 _d 0
./pkg/seaice/seaice_growth.F 471 SEAICE_GROWTH 
            latMeltFrac(I,J,IT)                = 0.0 _d 0
./pkg/seaice/seaice_growth.F 472 SEAICE_GROWTH 
            latMeltRate(I,J,IT)                = 0.0 _d 0
./pkg/seaice/seaice_growth.F 510 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 513 SEAICE_GROWTH 
           HEFFITDpreTH(I,J,IT)=HEFFITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 514 SEAICE_GROWTH 
           HSNWITDpreTH(I,J,IT)=HSNOWITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 515 SEAICE_GROWTH 
           AREAITDpreTH(I,J,IT)=AREAITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 519 SEAICE_GROWTH 
            areaFracFactor(I,J,IT)=AREAITD(I,J,IT,bi,bj)/AREA(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 522 SEAICE_GROWTH 
            IF (IT .EQ. 1) THEN
./pkg/seaice/seaice_growth.F 523 SEAICE_GROWTH 
             areaFracFactor(I,J,IT)=ONE
./pkg/seaice/seaice_growth.F 525 SEAICE_GROWTH 
             areaFracFactor(I,J,IT)=ZERO
./pkg/seaice/seaice_growth.F 582 SEAICE_GROWTH 
         DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 585 SEAICE_GROWTH 
            HEFFITDpreTH(I,J,IT) = 0. _d 0
./pkg/seaice/seaice_growth.F 586 SEAICE_GROWTH 
            HSNWITDpreTH(I,J,IT) = 0. _d 0
./pkg/seaice/seaice_growth.F 587 SEAICE_GROWTH 
            AREAITDpreTH(I,J,IT) = 0. _d 0
./pkg/seaice/seaice_growth.F 612 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 615 SEAICE_GROWTH 
           IF (HEFFITDpreTH(I,J,IT) .GT. ZERO) THEN
./pkg/seaice/seaice_growth.F 617 SEAICE_GROWTH 
            tmpscal1 = SQRT(AREAITDpreTH(I,J,IT) * AREAITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 620 SEAICE_GROWTH 
            tmpscal2 = HEFFITDpreTH(I,J,IT) / tmpscal1
./pkg/seaice/seaice_growth.F 622 SEAICE_GROWTH 
            heffActualMult(I,J,IT) = SQRT(tmpscal2 * tmpscal2
./pkg/seaice/seaice_growth.F 625 SEAICE_GROWTH 
            hsnowActualMult(I,J,IT) = HSNWITDpreTH(I,J,IT) / tmpscal1
./pkg/seaice/seaice_growth.F 627 SEAICE_GROWTH 
            recip_heffActualMult(I,J,IT)  = AREAITDpreTH(I,J,IT) /
./pkg/seaice/seaice_growth.F 628 SEAICE_GROWTH 
     &           sqrt(HEFFITDpreTH(I,J,IT) * HEFFITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 632 SEAICE_GROWTH 
            heffActualMult(I,J,IT) = ZERO
./pkg/seaice/seaice_growth.F 633 SEAICE_GROWTH 
            hsnowActualMult(I,J,IT) = ZERO
./pkg/seaice/seaice_growth.F 634 SEAICE_GROWTH 
            recip_heffActualMult(I,J,IT)  = ZERO
./pkg/seaice/seaice_growth.F 677 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 680 SEAICE_GROWTH 
           IF (HEFFITDpreTH(I,J,IT) .GT. ZERO) THEN
./pkg/seaice/seaice_growth.F 681 SEAICE_GROWTH 
            latentHeatFluxMaxMult(I,J,IT) = lhSublim*recip_deltaTtherm *
./pkg/seaice/seaice_growth.F 682 SEAICE_GROWTH 
     &           (HEFFITDpreTH(I,J,IT)*SEAICE_rhoIce +
./pkg/seaice/seaice_growth.F 683 SEAICE_GROWTH 
     &            HSNWITDpreTH(I,J,IT)*SEAICE_rhoSnow)
./pkg/seaice/seaice_growth.F 684 SEAICE_GROWTH 
     &           /AREAITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 686 SEAICE_GROWTH 
            latentHeatFluxMaxMult(I,J,IT) = ZERO
./pkg/seaice/seaice_growth.F 771 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 774 SEAICE_GROWTH 
           ticeInMult(I,J,IT)  = TICES(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 775 SEAICE_GROWTH 
           ticeOutMult(I,J,IT) = TICES(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 776 SEAICE_GROWTH 
           TICES(I,J,IT,bi,bj) = ZERO
./pkg/seaice/seaice_growth.F 783 SEAICE_GROWTH 
         pFac = (2.0 _d 0*IT - 1.0 _d 0)*recip_multDim
./pkg/seaice/seaice_growth.F 788 SEAICE_GROWTH 
           heffActualMult(I,J,IT)        = heffActual(I,J)*pFac
./pkg/seaice/seaice_growth.F 789 SEAICE_GROWTH 
           hsnowActualMult(I,J,IT)       = hsnowActual(I,J)*pFacSnow
./pkg/seaice/seaice_growth.F 791 SEAICE_GROWTH 
           latentHeatFluxMaxMult(I,J,IT) = latentHeatFluxMax(I,J)*pFac
./pkg/seaice/seaice_growth.F 814 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 816 SEAICE_GROWTH 
     I        UG, heffActualMult(1,1,IT), hsnowActualMult(1,1,IT),
./pkg/seaice/seaice_growth.F 818 SEAICE_GROWTH 
     I        latentHeatFluxMaxMult(1,1,IT),
./pkg/seaice/seaice_growth.F 820 SEAICE_GROWTH 
     U        ticeInMult(1,1,IT), ticeOutMult(1,1,IT),
./pkg/seaice/seaice_growth.F 821 SEAICE_GROWTH 
     O        a_QbyATMmult_cover(1,1,IT),
./pkg/seaice/seaice_growth.F 822 SEAICE_GROWTH 
     O        a_QSWbyATMmult_cover(1,1,IT),
./pkg/seaice/seaice_growth.F 823 SEAICE_GROWTH 
     O        a_FWbySublimMult(1,1,IT),
./pkg/seaice/seaice_growth.F 843 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 861 SEAICE_GROWTH 
           TICES(I,J,IT,bi,bj) = ticeOutMult(I,J,IT)
./pkg/seaice/seaice_growth.F 867 SEAICE_GROWTH 
     &          + a_QbyATMmult_cover(I,J,IT)*areaFracFactor(I,J,IT)
./pkg/seaice/seaice_growth.F 869 SEAICE_GROWTH 
     &          + a_QSWbyATMmult_cover(I,J,IT)*areaFracFactor(I,J,IT)
./pkg/seaice/seaice_growth.F 871 SEAICE_GROWTH 
     &          + a_FWbySublimMult(I,J,IT)*areaFracFactor(I,J,IT)
./pkg/seaice/seaice_growth.F 874 SEAICE_GROWTH 
     &          + a_QbyATMmult_cover(I,J,IT)*recip_multDim
./pkg/seaice/seaice_growth.F 876 SEAICE_GROWTH 
     &          + a_QSWbyATMmult_cover(I,J,IT)*recip_multDim
./pkg/seaice/seaice_growth.F 878 SEAICE_GROWTH 
     &          + a_FWbySublimMult(I,J,IT)*recip_multDim
./pkg/seaice/seaice_growth.F 913 SEAICE_GROWTH 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 916 SEAICE_GROWTH 
           a_QbyATMmult_cover(I,J,IT)   = a_QbyATMmult_cover(I,J,IT)
./pkg/seaice/seaice_growth.F 917 SEAICE_GROWTH 
     &          * convertQ2HI * AREAITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 918 SEAICE_GROWTH 
           a_QSWbyATMmult_cover(I,J,IT) = a_QSWbyATMmult_cover(I,J,IT)
./pkg/seaice/seaice_growth.F 919 SEAICE_GROWTH 
     &          * convertQ2HI * AREAITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 921 SEAICE_GROWTH 
           r_QbyATMmult_cover(I,J,IT)=a_QbyATMmult_cover(I,J,IT)
./pkg/seaice/seaice_growth.F 925 SEAICE_GROWTH 
           a_FWbySublimMult(I,J,IT) = ZERO
./pkg/seaice/seaice_growth.F 927 SEAICE_GROWTH 
           a_FWbySublimMult(I,J,IT) = SEAICE_deltaTtherm*recip_rhoIce
./pkg/seaice/seaice_growth.F 928 SEAICE_GROWTH 
     &            * a_FWbySublimMult(I,J,IT)*AREAITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 929 SEAICE_GROWTH 
           r_FWbySublimMult(I,J,IT)=a_FWbySublimMult(I,J,IT)
./pkg/seaice/seaice_growth.F 986 SEAICE_GROWTH 
         DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_growth.F 989 SEAICE_GROWTH 
            a_QbyATMmult_cover(I,J,IT)   = 0. _d 0
./pkg/seaice/seaice_growth.F 990 SEAICE_GROWTH 
            r_QbyATMmult_cover(I,J,IT)   = 0. _d 0
./pkg/seaice/seaice_growth.F 991 SEAICE_GROWTH 
            a_QSWbyATMmult_cover(I,J,IT) = 0. _d 0
./pkg/seaice/seaice_growth.F 99 SEAICE_GROWTH 
      INTEGER IT
./pkg/seaice/seaice_reg_ridge.F 155 SEAICE_REG_RIDGE 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_reg_ridge.F 160 SEAICE_REG_RIDGE 
           tmpscal1=MAX(-HEFFITD(I,J,IT,bi,bj),0. _d 0)
./pkg/seaice/seaice_reg_ridge.F 161 SEAICE_REG_RIDGE 
           HEFFITD(I,J,IT,bi,bj)=HEFFITD(I,J,IT,bi,bj)+tmpscal1
./pkg/seaice/seaice_reg_ridge.F 163 SEAICE_REG_RIDGE 
           tmpscal2=MAX(-HSNOWITD(I,J,IT,bi,bj),0. _d 0)
./pkg/seaice/seaice_reg_ridge.F 164 SEAICE_REG_RIDGE 
           HSNOWITD(I,J,IT,bi,bj)=HSNOWITD(I,J,IT,bi,bj)+tmpscal2
./pkg/seaice/seaice_reg_ridge.F 166 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 200 SEAICE_REG_RIDGE 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_reg_ridge.F 204 SEAICE_REG_RIDGE 
            HEFFITD(I,J,IT,bi,bj) = 0. _d 0
./pkg/seaice/seaice_reg_ridge.F 205 SEAICE_REG_RIDGE 
            HSNOWITD(I,J,IT,bi,bj) = 0. _d 0
./pkg/seaice/seaice_reg_ridge.F 221 SEAICE_REG_RIDGE 
           DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_reg_ridge.F 222 SEAICE_REG_RIDGE 
            TICES(I,J,IT,bi,bj)=celsius2K
./pkg/seaice/seaice_reg_ridge.F 235 SEAICE_REG_RIDGE 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_reg_ridge.F 238 SEAICE_REG_RIDGE 
           IF ( (HEFFITD(I,J,IT,bi,bj) .EQ.0. _d 0).AND.
./pkg/seaice/seaice_reg_ridge.F 239 SEAICE_REG_RIDGE 
     &          (HSNOWITD(I,J,IT,bi,bj).EQ.0. _d 0))
./pkg/seaice/seaice_reg_ridge.F 240 SEAICE_REG_RIDGE 
     &          AREAITD(I,J,IT,bi,bj)=0. _d 0
./pkg/seaice/seaice_reg_ridge.F 262 SEAICE_REG_RIDGE 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_reg_ridge.F 265 SEAICE_REG_RIDGE 
           IF ((HEFFITD(I,J,IT,bi,bj).GT.0).OR.
./pkg/seaice/seaice_reg_ridge.F 266 SEAICE_REG_RIDGE 
     &          (HSNOWITD(I,J,IT,bi,bj).GT.0)) THEN
./pkg/seaice/seaice_reg_ridge.F 270 SEAICE_REG_RIDGE 
            AREAITD(I,J,IT,bi,bj)=
./pkg/seaice/seaice_reg_ridge.F 271 SEAICE_REG_RIDGE 
     &        MAX(AREAITD(I,J,IT,bi,bj),SEAICE_area_floor*recip_nitd)
./pkg/seaice/seaice_reg_ridge.F 324 SEAICE_REG_RIDGE 
        DO IT=1,SEAICE_multDim
./pkg/seaice/seaice_reg_ridge.F 330 SEAICE_REG_RIDGE 
     &          +        TICES(I,J,IT,bi,bj) * HEFFITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_reg_ridge.F 331 SEAICE_REG_RIDGE 
           tmpscal2itd(i,j)=tmpscal2itd(i,j) + HEFFITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_reg_ridge.F 333 SEAICE_REG_RIDGE 
           tmpscal3itd(i,j)=tmpscal3itd(i,j) + AREAITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_reg_ridge.F 61 SEAICE_REG_RIDGE 
      INTEGER IT