Symbol Description Uses
newIceFrac 12


File Line number Procedure Code
./pkg/thsice/thsice_extend.F 103 THSICE_EXTEND 
            newIceFrac=MIN(newIce/iceThick,iceMaskmax-iceFraction)
./pkg/thsice/thsice_extend.F 104 THSICE_EXTEND 
            compact = iceFraction + newIceFrac
./pkg/thsice/thsice_extend.F 107 THSICE_EXTEND 
            sst=(1. _d 0-newIceFrac)*sst+newIceFrac*Tf
./pkg/thsice/thsice_extend.F 109 THSICE_EXTEND 
        qleft= iceThick*newIceFrac*qicAv/deltaTice
./pkg/thsice/thsice_extend.F 110 THSICE_EXTEND 
        fresh=-(rhoi*iceThick)*newIceFrac/deltaTice
./pkg/thsice/thsice_extend.F 111 THSICE_EXTEND 
        fsalt=-(rhoi*iceThick*saltice)*newIceFrac/deltaTice
./pkg/thsice/thsice_extend.F 114 THSICE_EXTEND 
     &     iceThick, newIce, newIceFrac
./pkg/thsice/thsice_extend.F 67 THSICE_EXTEND 
      _RL newIceFrac
./pkg/thsice/thsice_extend.F 80 THSICE_EXTEND 
        newIceFrac = 0. _d 0
./pkg/thsice/thsice_extend.F 97 THSICE_EXTEND 
            newIceFrac = MIN(newIce/himin0,iceMaskmax)
./pkg/thsice/thsice_extend.F 98 THSICE_EXTEND 
            compact = newIceFrac