| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_tensor.F |
182 |
GMREDI_CALC_TENSOR |
fCoriLoc = op5*(fCori(i-1,j,bi,bj)+fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
183 |
GMREDI_CALC_TENSOR |
IF (fCoriLoc.NE.0.) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
184 |
GMREDI_CALC_TENSOR |
ldd97_LrhoW(i,j) = Cspd/ABS(fCoriLoc) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
199 |
GMREDI_CALC_TENSOR |
fCoriLoc = op5*(fCori(i,j-1,bi,bj)+fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
200 |
GMREDI_CALC_TENSOR |
IF (fCoriLoc.NE.0.) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
201 |
GMREDI_CALC_TENSOR |
ldd97_LrhoS(i,j) = Cspd/ABS(fCoriLoc) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
86 |
GMREDI_CALC_TENSOR |
_RL Cspd, LrhoInf, LrhoSup, fCoriLoc |