Symbol Description Uses
LrhoSup 10



File Line number Procedure Code
./pkg/gmredi/gmredi_calc_tensor.F 155 GMREDI_CALC_TENSOR
       LrhoSup = 100. _d 3
./pkg/gmredi/gmredi_calc_tensor.F 162 GMREDI_CALC_TENSOR
           ldd97_LrhoC(i,j) = LrhoSup
./pkg/gmredi/gmredi_calc_tensor.F 164 GMREDI_CALC_TENSOR
         ldd97_LrhoC(i,j) = MAX(LrhoInf,MIN(ldd97_LrhoC(i,j),LrhoSup))
./pkg/gmredi/gmredi_calc_tensor.F 170 GMREDI_CALC_TENSOR
        ldd97_LrhoW(1-Olx,j) = LrhoSup
./pkg/gmredi/gmredi_calc_tensor.F 177 GMREDI_CALC_TENSOR
           ldd97_LrhoW(i,j) = LrhoSup
./pkg/gmredi/gmredi_calc_tensor.F 179 GMREDI_CALC_TENSOR
         ldd97_LrhoW(i,j) = MAX(LrhoInf,MIN(ldd97_LrhoW(i,j),LrhoSup))
./pkg/gmredi/gmredi_calc_tensor.F 185 GMREDI_CALC_TENSOR
         ldd97_LrhoS(i,1-Oly) = LrhoSup
./pkg/gmredi/gmredi_calc_tensor.F 194 GMREDI_CALC_TENSOR
           ldd97_LrhoS(i,j) = LrhoSup
./pkg/gmredi/gmredi_calc_tensor.F 196 GMREDI_CALC_TENSOR
         ldd97_LrhoS(i,j) = MAX(LrhoInf,MIN(ldd97_LrhoS(i,j),LrhoSup))
./pkg/gmredi/gmredi_calc_tensor.F 78 GMREDI_CALC_TENSOR
      _RL Cspd, LrhoInf, LrhoSup, fCoriLoc