| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_k3d.F |
149 |
GMREDI_K3D |
_RL fCoriU(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_k3d.F |
264 |
GMREDI_K3D |
fCoriU(i,j)= op5*( fCori(i,j,bi,bj)+fCori(i-1,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
266 |
GMREDI_K3D |
coriU(i,j) = SIGN( MAX( ABS(fCoriU(i,j)),GM_K3D_minCori ), |
|
./pkg/gmredi/gmredi_k3d.F |
267 |
GMREDI_K3D |
& fCoriU(i,j) ) |
|
./pkg/gmredi/gmredi_k3d.F |
282 |
GMREDI_K3D |
fCoriU(i,j)= fCori(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
679 |
GMREDI_K3D |
tfluxX(i,j,k) = -fCoriU(i,j)*SlopeX(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
697 |
GMREDI_K3D |
tfluxX(i,j,k)=-fCoriU(i,j)*(SlopeX(i,j,k)-SlopeX(i,j,k+1)) |
|
./pkg/gmredi/gmredi_k3d.F |
737 |
GMREDI_K3D |
tfluxX(i,j,k) = -fCoriU(i,j)*maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
740 |
GMREDI_K3D |
tfluxX(i,j,k) = -fCoriU(i,j)*maskW(i,j,k,bi,bj) |