| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_k3d.F |
150 |
GMREDI_K3D |
_RL fCoriV(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_k3d.F |
273 |
GMREDI_K3D |
fCoriV(i,j)= op5*( fCori(i,j,bi,bj)+fCori(i,j-1,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
275 |
GMREDI_K3D |
coriV(i,j) = SIGN( MAX( ABS(fCoriV(i,j)),GM_K3D_minCori ), |
|
./pkg/gmredi/gmredi_k3d.F |
276 |
GMREDI_K3D |
& fCoriV(i,j) ) |
|
./pkg/gmredi/gmredi_k3d.F |
288 |
GMREDI_K3D |
fCoriV(i,j)= fCori(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
682 |
GMREDI_K3D |
tfluxY(i,j,k) = -fCoriV(i,j)*SlopeY(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
701 |
GMREDI_K3D |
tfluxY(i,j,k)=-fCoriV(i,j)*(SlopeY(i,j,k)-SlopeY(i,j,k+1)) |
|
./pkg/gmredi/gmredi_k3d.F |
756 |
GMREDI_K3D |
tfluxY(i,j,k) = -fCoriV(i,j)*maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
759 |
GMREDI_K3D |
tfluxY(i,j,k) = -fCoriV(i,j)*maskS(i,j,k,bi,bj) |