Symbol Description Uses
newIce 7


File Line number Procedure Code
./pkg/thsice/thsice_extend.F 103 THSICE_EXTEND 
            newIceFrac=MIN(newIce/iceThick,iceMaskmax-iceFraction)
./pkg/thsice/thsice_extend.F 114 THSICE_EXTEND 
     &     iceThick, newIce, newIceFrac
./pkg/thsice/thsice_extend.F 66 THSICE_EXTEND 
      _RL newIce
./pkg/thsice/thsice_extend.F 89 THSICE_EXTEND 
        newIce = esurp*deltaTice/qicAv
./pkg/thsice/thsice_extend.F 94 THSICE_EXTEND 
          IF (newIce.GE.himin0*iceMaskmin) THEN
./pkg/thsice/thsice_extend.F 96 THSICE_EXTEND 
            iceThick   = MAX(himin0,newIce/iceMaskmax)
./pkg/thsice/thsice_extend.F 97 THSICE_EXTEND 
            newIceFrac = MIN(newIce/himin0,iceMaskmax)