| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_tensor.F |
179 |
GMREDI_CALC_TENSOR |
fCoriLoc = op5*(fCori(i-1,j,bi,bj)+fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
180 |
GMREDI_CALC_TENSOR |
IF (fCoriLoc.NE.0.) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
181 |
GMREDI_CALC_TENSOR |
ldd97_LrhoW(i,j) = Cspd/ABS(fCoriLoc) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
196 |
GMREDI_CALC_TENSOR |
fCoriLoc = op5*(fCori(i,j-1,bi,bj)+fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
197 |
GMREDI_CALC_TENSOR |
IF (fCoriLoc.NE.0.) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
198 |
GMREDI_CALC_TENSOR |
ldd97_LrhoS(i,j) = Cspd/ABS(fCoriLoc) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
83 |
GMREDI_CALC_TENSOR |
_RL Cspd, LrhoInf, LrhoSup, fCoriLoc |