Symbol Description Uses
newIce new ice volume to produce 10


File Line number Procedure Code
./pkg/thsice/thsice_extend.F 109 THSICE_EXTEND 
      _RL newIce
./pkg/thsice/thsice_extend.F 191 THSICE_EXTEND 
        newIce = esurp*deltaTice/qicAv
./pkg/thsice/thsice_extend.F 198 THSICE_EXTEND 
          IF ( newIce.GT.hIceMin*iceMaskMin ) THEN
./pkg/thsice/thsice_extend.F 202 THSICE_EXTEND 
            iceThick  = MIN(hThinIce,newIce/iceMaskMin)
./pkg/thsice/thsice_extend.F 203 THSICE_EXTEND 
            iceThick  = MAX(iceThick,newIce/iceMaskMax)
./pkg/thsice/thsice_extend.F 204 THSICE_EXTEND 
            iceFrac   = newIce/iceThick
./pkg/thsice/thsice_extend.F 205 THSICE_EXTEND 
            iceFormed = newIce
./pkg/thsice/thsice_extend.F 211 THSICE_EXTEND 
            iceFrac = MIN(icFrac(i,j)+newIce/hNewIce,iceMaskMax)
./pkg/thsice/thsice_extend.F 214 THSICE_EXTEND 
            iceThick = MIN(hiMax,(iceVol+newIce)/iceFrac)
./pkg/thsice/thsice_extend.F 230 THSICE_EXTEND 
     &                       iceThick, newIce, iceFrac-icFrac(i,j)