| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_k3d.F |
1101 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(cDopp, 'GM_C ',0, 1,0,1,1,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
197 |
GMREDI_K3D |
_RL cDopp(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_k3d.F |
555 |
GMREDI_K3D |
cDopp(i,j) = op5*( Ubaro(i,j)+Ubaro(i+1,j) ) |
|
./pkg/gmredi/gmredi_k3d.F |
558 |
GMREDI_K3D |
IF (ABS(cDopp(i,j)).GT.GM_K3D_maxC) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
559 |
GMREDI_K3D |
cDopp(i,j) = MAX(GM_K3D_maxC, cDopp(i,j)) |
|
./pkg/gmredi/gmredi_k3d.F |
581 |
GMREDI_K3D |
umc(i,j,k) =ubar(i,j,k,bi,bj) - cDopp(i,j) |