Symbol Description Uses
rec_nlyr reciprocal of number of ice layers (real value) 6


File Line number Procedure Code
./pkg/thsice/thsice_calc_thickn.F 172 THSICE_CALC_THICKN 
      _RL rec_nlyr
./pkg/thsice/thsice_calc_thickn.F 237 THSICE_CALC_THICKN 
      rec_nlyr = nlyr
./pkg/thsice/thsice_calc_thickn.F 238 THSICE_CALC_THICKN 
      rec_nlyr = 1. _d 0 / rec_nlyr
./pkg/thsice/thsice_calc_thickn.F 485 THSICE_CALC_THICKN 
         hnew(i,j,k) = hIce(i,j) * rec_nlyr
./pkg/thsice/thsice_calc_thickn.F 943 THSICE_CALC_THICKN 
          hlyr = hIce(i,j) * rec_nlyr