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


File Line number Procedure Code
./pkg/thsice/thsice_advdiff.F 192 THSICE_ADVDIFF 
         iceVol(i,j) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 246 THSICE_ADVDIFF 
     U       iceVol, iceFrc,
./pkg/thsice/thsice_advdiff.F 253 THSICE_ADVDIFF 
          iceVol(i,j) = iceMask(i,j,bi,bj)*rA(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 259 THSICE_ADVDIFF 
     U       iceVol, snowHeight(1-OLx,1-OLy,bi,bj),
./pkg/thsice/thsice_advdiff.F 270 THSICE_ADVDIFF 
          iceVol(i,j) = iceMask(i,j,bi,bj)*rA(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 271 THSICE_ADVDIFF 
          oldVol(i,j) = iceVol(i,j)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 277 THSICE_ADVDIFF 
     U       iceVol, iceHeight(1-OLx,1-OLy,bi,bj),
./pkg/thsice/thsice_advdiff.F 294 THSICE_ADVDIFF 
           tmpVar = ABS(iceVol(i,j)-iceFrc(i,j)*rA(i,j,bi,bj))
./pkg/thsice/thsice_advdiff.F 303 THSICE_ADVDIFF 
     &                        iceVol(i,j),iceFrc(i,j)*rA(i,j,bi,bj),
./pkg/thsice/thsice_advdiff.F 351 THSICE_ADVDIFF 
          iceVol(i,j) = oldVol(i,j)
./pkg/thsice/thsice_advdiff.F 357 THSICE_ADVDIFF 
     U       iceVol, Qice1(1-OLx,1-OLy,bi,bj),
./pkg/thsice/thsice_advdiff.F 388 THSICE_ADVDIFF 
          iceVol(i,j) = oldVol(i,j)
./pkg/thsice/thsice_advdiff.F 394 THSICE_ADVDIFF 
     U       iceVol, Qice2(1-OLx,1-OLy,bi,bj),
./pkg/thsice/thsice_advdiff.F 404 THSICE_ADVDIFF 
           tmpVar = ABS(iceVol(i,j)
./pkg/thsice/thsice_advdiff.F 414 THSICE_ADVDIFF 
     &      iceVol(i,j),iceHeight(i,j,bi,bj)*iceFrc(i,j)*rA(i,j,bi,bj),
./pkg/thsice/thsice_advdiff.F 476 THSICE_ADVDIFF 
           iceVol(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 478 THSICE_ADVDIFF 
           IF ( iceVol(i,j).GE.hIceMin*iceMaskMin ) THEN
./pkg/thsice/thsice_advdiff.F 479 THSICE_ADVDIFF 
            iceMask(i,j,bi,bj)    = iceVol(i,j)/hIceMin
./pkg/thsice/thsice_advdiff.F 560 THSICE_ADVDIFF 
           iceVol(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 565 THSICE_ADVDIFF 
     I                   iceVol,tmpFac,1,'SI_AdvQ1',
./pkg/thsice/thsice_advdiff.F 569 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 332 THSICE_ADVECTION 
     &                               iceVol, bi,bj, myThid )
./pkg/thsice/thsice_advection.F 350 THSICE_ADVECTION 
     &        MAX( uTrans(i,j), 0. _d 0 )/MAX( iceVol(i-1,j), iceEps )
./pkg/thsice/thsice_advection.F 351 THSICE_ADVECTION 
     &       +MAX(-uTrans(i,j), 0. _d 0 )/MAX( iceVol( i ,j), iceEps )
./pkg/thsice/thsice_advection.F 391 THSICE_ADVECTION 
     &                               iceVol, bi,bj, myThid )
./pkg/thsice/thsice_advection.F 426 THSICE_ADVECTION 
             tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 427 THSICE_ADVECTION 
             iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 430 THSICE_ADVECTION 
             IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 434 THSICE_ADVECTION 
     &                     )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 459 THSICE_ADVECTION 
             tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 460 THSICE_ADVECTION 
             iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 463 THSICE_ADVECTION 
             IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 467 THSICE_ADVECTION 
     &                     )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 498 THSICE_ADVECTION 
             tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 499 THSICE_ADVECTION 
             iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 502 THSICE_ADVECTION 
             IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 506 THSICE_ADVECTION 
     &                     )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 552 THSICE_ADVECTION 
     &                               iceVol, bi,bj, myThid )
./pkg/thsice/thsice_advection.F 570 THSICE_ADVECTION 
     &        MAX( vTrans(i,j), 0. _d 0 )/MAX( iceVol(i,j-1), iceEps )
./pkg/thsice/thsice_advection.F 571 THSICE_ADVECTION 
     &       +MAX(-vTrans(i,j), 0. _d 0 )/MAX( iceVol(i, j ), iceEps )
./pkg/thsice/thsice_advection.F 610 THSICE_ADVECTION 
     &                               iceVol, bi,bj, myThid )
./pkg/thsice/thsice_advection.F 645 THSICE_ADVECTION 
             tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 646 THSICE_ADVECTION 
             iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 649 THSICE_ADVECTION 
             IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 653 THSICE_ADVECTION 
     &                     )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 678 THSICE_ADVECTION 
             tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 679 THSICE_ADVECTION 
             iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 682 THSICE_ADVECTION 
             IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 686 THSICE_ADVECTION 
     &                     )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 717 THSICE_ADVECTION 
             tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 718 THSICE_ADVECTION 
             iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 721 THSICE_ADVECTION 
             IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 725 THSICE_ADVECTION 
     &                     )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 87 THSICE_ADVECTION 
      _RL iceVol(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_extend.F 108 THSICE_EXTEND 
      _RL iceVol
./pkg/thsice/thsice_extend.F 182 THSICE_EXTEND 
        iceVol = iceFrac*iceThick
./pkg/thsice/thsice_extend.F 207 THSICE_EXTEND 
        ELSEIF ( iceVol.LT.hiMax*iceMaskMax ) THEN
./pkg/thsice/thsice_extend.F 214 THSICE_EXTEND 
            iceThick = MIN(hiMax,(iceVol+newIce)/iceFrac)
./pkg/thsice/thsice_extend.F 217 THSICE_EXTEND 
            iceFormed = iceThick*iceFrac - iceVol