| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_tensor.F |
108 |
GMREDI_CALC_TENSOR |
fCoriLoc = op5*(fCori(i-1,j,bi,bj)+fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
109 |
GMREDI_CALC_TENSOR |
IF (fCoriLoc.NE.0.) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
110 |
GMREDI_CALC_TENSOR |
ldd97_LrhoW(i,j) = Cspd/ABS(fCoriLoc) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
123 |
GMREDI_CALC_TENSOR |
fCoriLoc = op5*(fCori(i,j-1,bi,bj)+fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
124 |
GMREDI_CALC_TENSOR |
IF (fCoriLoc.NE.0.) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
125 |
GMREDI_CALC_TENSOR |
ldd97_LrhoS(i,j) = Cspd/ABS(fCoriLoc) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
56 |
GMREDI_CALC_TENSOR |
_RL Cspd, LrhoInf, LrhoSup, fCoriLoc |