File |
Line number |
Procedure |
Code |
./pkg/gmredi/gmredi_calc_tensor.F |
164 |
GMREDI_CALC_TENSOR |
LrhoSup = 100. _d 3 |
./pkg/gmredi/gmredi_calc_tensor.F |
171 |
GMREDI_CALC_TENSOR |
ldd97_LrhoC(i,j) = LrhoSup |
./pkg/gmredi/gmredi_calc_tensor.F |
173 |
GMREDI_CALC_TENSOR |
ldd97_LrhoC(i,j) = MAX(LrhoInf,MIN(ldd97_LrhoC(i,j),LrhoSup)) |
./pkg/gmredi/gmredi_calc_tensor.F |
179 |
GMREDI_CALC_TENSOR |
ldd97_LrhoW(1-OLx,j) = LrhoSup |
./pkg/gmredi/gmredi_calc_tensor.F |
186 |
GMREDI_CALC_TENSOR |
ldd97_LrhoW(i,j) = LrhoSup |
./pkg/gmredi/gmredi_calc_tensor.F |
188 |
GMREDI_CALC_TENSOR |
ldd97_LrhoW(i,j) = MAX(LrhoInf,MIN(ldd97_LrhoW(i,j),LrhoSup)) |
./pkg/gmredi/gmredi_calc_tensor.F |
194 |
GMREDI_CALC_TENSOR |
ldd97_LrhoS(i,1-OLy) = LrhoSup |
./pkg/gmredi/gmredi_calc_tensor.F |
203 |
GMREDI_CALC_TENSOR |
ldd97_LrhoS(i,j) = LrhoSup |
./pkg/gmredi/gmredi_calc_tensor.F |
205 |
GMREDI_CALC_TENSOR |
ldd97_LrhoS(i,j) = MAX(LrhoInf,MIN(ldd97_LrhoS(i,j),LrhoSup)) |
./pkg/gmredi/gmredi_calc_tensor.F |
86 |
GMREDI_CALC_TENSOR |
_RL Cspd, LrhoInf, LrhoSup, fCoriLoc |