Symbol Description Uses
LrhoSup 10



File Line number Procedure Code
./pkg/gmredi/gmredi_calc_tensor.F 161 GMREDI_CALC_TENSOR
       LrhoSup = 100. _d 3
./pkg/gmredi/gmredi_calc_tensor.F 168 GMREDI_CALC_TENSOR
           ldd97_LrhoC(i,j) = LrhoSup
./pkg/gmredi/gmredi_calc_tensor.F 170 GMREDI_CALC_TENSOR
         ldd97_LrhoC(i,j) = MAX(LrhoInf,MIN(ldd97_LrhoC(i,j),LrhoSup))
./pkg/gmredi/gmredi_calc_tensor.F 176 GMREDI_CALC_TENSOR
        ldd97_LrhoW(1-OLx,j) = LrhoSup
./pkg/gmredi/gmredi_calc_tensor.F 183 GMREDI_CALC_TENSOR
           ldd97_LrhoW(i,j) = LrhoSup
./pkg/gmredi/gmredi_calc_tensor.F 185 GMREDI_CALC_TENSOR
         ldd97_LrhoW(i,j) = MAX(LrhoInf,MIN(ldd97_LrhoW(i,j),LrhoSup))
./pkg/gmredi/gmredi_calc_tensor.F 191 GMREDI_CALC_TENSOR
         ldd97_LrhoS(i,1-OLy) = LrhoSup
./pkg/gmredi/gmredi_calc_tensor.F 200 GMREDI_CALC_TENSOR
           ldd97_LrhoS(i,j) = LrhoSup
./pkg/gmredi/gmredi_calc_tensor.F 202 GMREDI_CALC_TENSOR
         ldd97_LrhoS(i,j) = MAX(LrhoInf,MIN(ldd97_LrhoS(i,j),LrhoSup))
./pkg/gmredi/gmredi_calc_tensor.F 83 GMREDI_CALC_TENSOR
      _RL Cspd, LrhoInf, LrhoSup, fCoriLoc