Symbol Description Uses
iceFraction 6


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 106 THSICE_EXTEND 
            snowThick = snowThick*iceFraction/compact
./pkg/thsice/thsice_extend.F 68 THSICE_EXTEND 
      _RL iceFraction
./pkg/thsice/thsice_extend.F 79 THSICE_EXTEND 
        iceFraction = compact
./pkg/thsice/thsice_extend.F 91 THSICE_EXTEND 
        IF (iceFraction.EQ.0. _d 0) THEN