| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_tensor.F |
173 |
GMREDI_CALC_TENSOR |
fCoriLoc = op5*(fCori(i-1,j,bi,bj)+fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
174 |
GMREDI_CALC_TENSOR |
IF (fCoriLoc.NE.0.) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
175 |
GMREDI_CALC_TENSOR |
ldd97_LrhoW(i,j) = Cspd/ABS(fCoriLoc) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
190 |
GMREDI_CALC_TENSOR |
fCoriLoc = op5*(fCori(i,j-1,bi,bj)+fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
191 |
GMREDI_CALC_TENSOR |
IF (fCoriLoc.NE.0.) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
192 |
GMREDI_CALC_TENSOR |
ldd97_LrhoS(i,j) = Cspd/ABS(fCoriLoc) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
78 |
GMREDI_CALC_TENSOR |
_RL Cspd, LrhoInf, LrhoSup, fCoriLoc |