Symbol Description Uses
iceVol temporary array used in advection S/R 67


File Line number Procedure Code
./pkg/thsice/thsice_advdiff.F 158 THSICE_ADVDIFF 
         iceVol(i,j) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 212 THSICE_ADVDIFF 
     U       iceVol, iceFrc,
./pkg/thsice/thsice_advdiff.F 219 THSICE_ADVDIFF 
          iceVol(i,j) = iceMask(i,j,bi,bj)*rA(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 225 THSICE_ADVDIFF 
     U       iceVol, snowHeight(1-Olx,1-Oly,bi,bj),
./pkg/thsice/thsice_advdiff.F 236 THSICE_ADVDIFF 
          iceVol(i,j) = iceMask(i,j,bi,bj)*rA(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 237 THSICE_ADVDIFF 
          oldVol(i,j) = iceVol(i,j)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 243 THSICE_ADVDIFF 
     U       iceVol, iceHeight(1-Olx,1-Oly,bi,bj),
./pkg/thsice/thsice_advdiff.F 260 THSICE_ADVDIFF 
           tmpVar = ABS(iceVol(i,j)-iceFrc(i,j)*rA(i,j,bi,bj))
./pkg/thsice/thsice_advdiff.F 269 THSICE_ADVDIFF 
     &                        iceVol(i,j),iceFrc(i,j)*rA(i,j,bi,bj),
./pkg/thsice/thsice_advdiff.F 317 THSICE_ADVDIFF 
          iceVol(i,j) = oldVol(i,j)
./pkg/thsice/thsice_advdiff.F 323 THSICE_ADVDIFF 
     U       iceVol, Qice1(1-Olx,1-Oly,bi,bj),
./pkg/thsice/thsice_advdiff.F 354 THSICE_ADVDIFF 
          iceVol(i,j) = oldVol(i,j)
./pkg/thsice/thsice_advdiff.F 360 THSICE_ADVDIFF 
     U       iceVol, Qice2(1-Olx,1-Oly,bi,bj),
./pkg/thsice/thsice_advdiff.F 370 THSICE_ADVDIFF 
           tmpVar = ABS(iceVol(i,j)
./pkg/thsice/thsice_advdiff.F 380 THSICE_ADVDIFF 
     &      iceVol(i,j),iceHeight(i,j,bi,bj)*iceFrc(i,j)*rA(i,j,bi,bj),
./pkg/thsice/thsice_advdiff.F 442 THSICE_ADVDIFF 
           iceVol(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 444 THSICE_ADVDIFF 
           IF ( iceVol(i,j).GE.hIceMin*iceMaskMin ) THEN
./pkg/thsice/thsice_advdiff.F 445 THSICE_ADVDIFF 
            iceMask(i,j,bi,bj)    = iceVol(i,j)/hIceMin
./pkg/thsice/thsice_advdiff.F 525 THSICE_ADVDIFF 
           iceVol(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 530 THSICE_ADVDIFF 
     I                   iceVol,tmpFac,1,'SI_AdvQ1',
./pkg/thsice/thsice_advdiff.F 534 THSICE_ADVDIFF 
     I                   iceVol,tmpFac,1,'SI_AdvQ2',
./pkg/thsice/thsice_advdiff.F 90 THSICE_ADVDIFF 
      _RL iceVol    (1-Olx:sNx+Olx,1-Oly:sNy+Oly)
./pkg/thsice/thsice_advection.F 19 THSICE_ADVECTION 
     U     iceVol, iceFld,
./pkg/thsice/thsice_advection.F 306 THSICE_ADVECTION 
     &                               iceVol, bi,bj, myThid )
./pkg/thsice/thsice_advection.F 324 THSICE_ADVECTION 
     &        MAX( uTrans(i,j), 0. _d 0 )/MAX( iceVol(i-1,j), iceEps )
./pkg/thsice/thsice_advection.F 325 THSICE_ADVECTION 
     &       +MAX(-uTrans(i,j), 0. _d 0 )/MAX( iceVol( i ,j), iceEps )
./pkg/thsice/thsice_advection.F 363 THSICE_ADVECTION 
     &                               iceVol, bi,bj, myThid )
./pkg/thsice/thsice_advection.F 397 THSICE_ADVECTION 
            tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 398 THSICE_ADVECTION 
            iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 401 THSICE_ADVECTION 
            IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 405 THSICE_ADVECTION 
     &                    )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 421 THSICE_ADVECTION 
            tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 422 THSICE_ADVECTION 
            iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 425 THSICE_ADVECTION 
            IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 429 THSICE_ADVECTION 
     &                    )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 467 THSICE_ADVECTION 
            tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 468 THSICE_ADVECTION 
            iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 471 THSICE_ADVECTION 
            IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 475 THSICE_ADVECTION 
     &                    )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 520 THSICE_ADVECTION 
     &                               iceVol, bi,bj, myThid )
./pkg/thsice/thsice_advection.F 538 THSICE_ADVECTION 
     &        MAX( vTrans(i,j), 0. _d 0 )/MAX( iceVol(i,j-1), iceEps )
./pkg/thsice/thsice_advection.F 539 THSICE_ADVECTION 
     &       +MAX(-vTrans(i,j), 0. _d 0 )/MAX( iceVol(i, j ), iceEps )
./pkg/thsice/thsice_advection.F 576 THSICE_ADVECTION 
     &                               iceVol, bi,bj, myThid )
./pkg/thsice/thsice_advection.F 610 THSICE_ADVECTION 
            tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 611 THSICE_ADVECTION 
            iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 614 THSICE_ADVECTION 
            IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 618 THSICE_ADVECTION 
     &                    )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 634 THSICE_ADVECTION 
            tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 635 THSICE_ADVECTION 
            iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 638 THSICE_ADVECTION 
            IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 642 THSICE_ADVECTION 
     &                    )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 680 THSICE_ADVECTION 
            tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 681 THSICE_ADVECTION 
            iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 684 THSICE_ADVECTION 
            IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 688 THSICE_ADVECTION 
     &                    )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 86 THSICE_ADVECTION 
      _RL iceVol(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_extend.F 111 THSICE_EXTEND 
      _RL iceVol
./pkg/thsice/thsice_extend.F 167 THSICE_EXTEND 
        iceVol = iceFrac*iceThick
./pkg/thsice/thsice_extend.F 192 THSICE_EXTEND 
        ELSEIF ( iceVol.LT.hiMax*iceMaskMax ) THEN
./pkg/thsice/thsice_extend.F 199 THSICE_EXTEND 
            iceThick = MIN(hiMax,(iceVol+newIce)/iceFrac)
./pkg/thsice/thsice_extend.F 202 THSICE_EXTEND 
            iceFormed = iceThick*iceFrac - iceVol