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 182 THSICE_EXTEND 
        newIce = esurp*deltaTice/qicAv
./pkg/thsice/thsice_extend.F 189 THSICE_EXTEND 
          IF ( newIce.GT.hIceMin*iceMaskMin ) THEN
./pkg/thsice/thsice_extend.F 193 THSICE_EXTEND 
            iceThick  = MIN(hThinIce,newIce/iceMaskMin)
./pkg/thsice/thsice_extend.F 194 THSICE_EXTEND 
            iceThick  = MAX(iceThick,newIce/iceMaskMax)
./pkg/thsice/thsice_extend.F 195 THSICE_EXTEND 
            iceFrac   = newIce/iceThick
./pkg/thsice/thsice_extend.F 196 THSICE_EXTEND 
            iceFormed = newIce
./pkg/thsice/thsice_extend.F 202 THSICE_EXTEND 
            iceFrac = MIN(icFrac(i,j)+newIce/hNewIce,iceMaskMax)
./pkg/thsice/thsice_extend.F 205 THSICE_EXTEND 
            iceThick = MIN(hiMax,(iceVol+newIce)/iceFrac)
./pkg/thsice/thsice_extend.F 221 THSICE_EXTEND 
     &                       iceThick, newIce, iceFrac-icFrac(i,j)