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 174 THSICE_CALC_THICKN 
      _RL rec_nlyr
./pkg/thsice/thsice_calc_thickn.F 238 THSICE_CALC_THICKN 
      rec_nlyr = nlyr
./pkg/thsice/thsice_calc_thickn.F 239 THSICE_CALC_THICKN 
      rec_nlyr = 1. _d 0 / rec_nlyr
./pkg/thsice/thsice_calc_thickn.F 486 THSICE_CALC_THICKN 
         hnew(i,j,k) = hIce(i,j) * rec_nlyr
./pkg/thsice/thsice_calc_thickn.F 948 THSICE_CALC_THICKN 
          hlyr = hIce(i,j) * rec_nlyr