File |
Line number |
Procedure |
Code |
./pkg/gmredi/gmredi_k3d.F |
223 |
GMREDI_K3D |
kLow_C(i,j) = kLowC(i,j,bi,bj) |
./pkg/gmredi/gmredi_k3d.F |
228 |
GMREDI_K3D |
kLow_U(i,j) = MIN( kLow_C(i,j), kLow_C(i-1,j) ) |
./pkg/gmredi/gmredi_k3d.F |
233 |
GMREDI_K3D |
kLow_V(i,j) = MIN( kLow_C(i,j), kLow_C(i,j-1) ) |
./pkg/gmredi/gmredi_k3d.F |
410 |
GMREDI_K3D |
IF (kLow_C(i,j).GT.0) THEN |
./pkg/gmredi/gmredi_k3d.F |
457 |
GMREDI_K3D |
I kLow_C, maskC(:,:,:,bi,bj), |
./pkg/gmredi/gmredi_k3d.F |
508 |
GMREDI_K3D |
IF ( (kLow_C(i,j).GE.k) .AND. |
./pkg/gmredi/gmredi_k3d.F |
556 |
GMREDI_K3D |
k=kLow_C(i,j) |
./pkg/gmredi/gmredi_k3d.F |
587 |
GMREDI_K3D |
IF (k.LE.kLow_C(i,j)) THEN |
./pkg/gmredi/gmredi_k3d.F |
62 |
GMREDI_K3D |
INTEGER kLow_C(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |