Symbol Description Uses
frsnow fractional snow cover 4



File Line number Procedure Code
./pkg/thsice/thsice_solve4temp.F 136 THSICE_SOLVE4TEMP
      frsnow = 0. _d 0
./pkg/thsice/thsice_solve4temp.F 137 THSICE_SOLVE4TEMP
      if (hs .gt. 0. _d 0) frsnow = 1. _d 0
./pkg/thsice/thsice_solve4temp.F 140 THSICE_SOLVE4TEMP
      fswpen  = flxSW * (1. _d 0 - frsnow) * i0
./pkg/thsice/thsice_solve4temp.F 93 THSICE_SOLVE4TEMP
      _RL  frsnow        ! fractional snow cover