Symbol Description Uses
frsnow fractional snow cover 7


File Line number Procedure Code
./pkg/thsice/thsice_solve4temp.F 159 THSICE_SOLVE4TEMP 
      _RL  frsnow
./pkg/thsice/thsice_solve4temp.F 274 THSICE_SOLVE4TEMP 
           frsnow = 1. _d 0
./pkg/thsice/thsice_solve4temp.F 276 THSICE_SOLVE4TEMP 
           frsnow = hSnow1(i,j)*recip_dhSnowLin/icMask(i,j)
./pkg/thsice/thsice_solve4temp.F 277 THSICE_SOLVE4TEMP 
           IF ( frsnow.GT.0. _d 0 ) frsnow = SQRT(frsnow)
./pkg/thsice/thsice_solve4temp.F 281 THSICE_SOLVE4TEMP 
          fswpen = flxSW(i,j) * (1. _d 0 - frsnow) * i0swFrac