| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_k3d.F |
1109 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(cDopp, 'GM_C ',0, 1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
197 |
GMREDI_K3D |
_RL cDopp(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_k3d.F |
568 |
GMREDI_K3D |
cDopp(i,j) = Ubaro(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
571 |
GMREDI_K3D |
IF (ABS(cDopp(i,j)).GT.GM_K3D_maxC) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
572 |
GMREDI_K3D |
cDopp(i,j) = MAX(GM_K3D_maxC, cDopp(i,j)) |
|
./pkg/gmredi/gmredi_k3d.F |
594 |
GMREDI_K3D |
umc(i,j,k) =ubar(i,j,k) - cDopp(i,j) |