Symbol Description Uses
iTrGrease 20



File Line number Procedure Code
./pkg/seaice/seaice_growth.F 1136 SEAICE_GROWTH
          SItracer(I,J,bi,bj,iTrGrease) =
./pkg/seaice/seaice_growth.F 1137 SEAICE_GROWTH
     &     SItracer(I,J,bi,bj,iTrGrease) * HEFF(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1196 SEAICE_GROWTH
           tmpscal4 = 4. _d 0 * SItracer(I,J,bi,bj,iTrGrease) * tmpscal3
./pkg/seaice/seaice_growth.F 155 SEAICE_GROWTH
      INTEGER iTrGrease
./pkg/seaice/seaice_growth.F 1621 SEAICE_GROWTH
           tmpscal3 = tmpscal3 + SItracer(I,J,bi,bj,iTrGrease)
./pkg/seaice/seaice_growth.F 1622 SEAICE_GROWTH
           SItracer(I,J,bi,bj,iTrGrease) = 0. _d 0
./pkg/seaice/seaice_growth.F 1636 SEAICE_GROWTH
     &             SItracer(I,J,bi,bj,iTrGrease)
./pkg/seaice/seaice_growth.F 1639 SEAICE_GROWTH
           SItracer(I,J,bi,bj,iTrGrease) =
./pkg/seaice/seaice_growth.F 1640 SEAICE_GROWTH
     &             SItracer(I,J,bi,bj,iTrGrease) * tmpscal1
./pkg/seaice/seaice_growth.F 1642 SEAICE_GROWTH
           SItrBucket(I,J,bi,bj,iTrGrease) =
./pkg/seaice/seaice_growth.F 1643 SEAICE_GROWTH
     &             SItrBucket(I,J,bi,bj,iTrGrease)
./pkg/seaice/seaice_growth.F 1648 SEAICE_GROWTH
           SItracer(i,j,bi,bj,iTrGrease) =
./pkg/seaice/seaice_growth.F 1649 SEAICE_GROWTH
     &      SItracer(i,j,bi,bj,iTrGrease) + greaseNewFrazil
./pkg/seaice/seaice_growth.F 1652 SEAICE_GROWTH
          tmpscal3=tmpscal3+SItrBucket(I,J,bi,bj,iTrGrease)
./pkg/seaice/seaice_growth.F 1654 SEAICE_GROWTH
          SItrBucket(I,J,bi,bj,iTrGrease)=0. _d 0
./pkg/seaice/seaice_growth.F 1959 SEAICE_GROWTH
           SItracer(I,J,bi,bj,iTrGrease) =
./pkg/seaice/seaice_growth.F 1960 SEAICE_GROWTH
     &      SItracer(I,J,bi,bj,iTrGrease) / HEFF(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1962 SEAICE_GROWTH
           SItracer(I,J,bi,bj,iTrGrease) = 0. _d 0
./pkg/seaice/seaice_growth.F 415 SEAICE_GROWTH
        iTrGrease=-1
./pkg/seaice/seaice_growth.F 417 SEAICE_GROWTH
         if (SItrName(iTr).EQ.'grease') iTrGrease=iTr