Symbol Description Uses
frace 14


File Line number Procedure Code
./pkg/thsice/thsice_calc_thickn.F 208 THSICE_CALC_THICKN 
      _RL  frace, rs, hq
./pkg/thsice/thsice_calc_thickn.F 392 THSICE_CALC_THICKN 
        frace = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 394 THSICE_CALC_THICKN 
        frace = (iceFrac - lowIcFrac1)/(lowIcFrac2-iceMaskMin)
./pkg/thsice/thsice_calc_thickn.F 395 THSICE_CALC_THICKN 
        frace = MIN( enFrcMlt, MAX( 0. _d 0, frace ) )
./pkg/thsice/thsice_calc_thickn.F 400 THSICE_CALC_THICKN 
       frace = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 403 THSICE_CALC_THICKN 
       frace = 1. _d 0
./pkg/thsice/thsice_calc_thickn.F 405 THSICE_CALC_THICKN 
       frace = fracEnMelt
./pkg/thsice/thsice_calc_thickn.F 411 THSICE_CALC_THICKN 
       frace = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 413 THSICE_CALC_THICKN 
       frace = MIN( frace, fracEnMelt )
./pkg/thsice/thsice_calc_thickn.F 419 THSICE_CALC_THICKN 
          etop = (1. _d 0-frace)*sHeating * dt
./pkg/thsice/thsice_calc_thickn.F 420 THSICE_CALC_THICKN 
          etope = frace*sHeating * dt
./pkg/thsice/thsice_calc_thickn.F 440 THSICE_CALC_THICKN 
         ebote = frace*ebot