| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_k3d.F |
61 |
GMREDI_K3D |
INTEGER surfk(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_k3d.F |
623 |
GMREDI_K3D |
surfk(i,j) = 0 |
|
./pkg/gmredi/gmredi_k3d.F |
630 |
GMREDI_K3D |
& surfk(i,j) = k |
|
./pkg/gmredi/gmredi_k3d.F |
645 |
GMREDI_K3D |
IF(surfk(i,j).GE.kLowC(i,j,bi,bj)) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
718 |
GMREDI_K3D |
IF(k.LE.surfk(i,j)) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
728 |
GMREDI_K3D |
IF(kLow_U(i,j).LT.surfk(i,j)) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
732 |
GMREDI_K3D |
kk=surfk(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
747 |
GMREDI_K3D |
IF(kLow_V(i,j).LT.surfk(i,j)) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
751 |
GMREDI_K3D |
kk=surfk(i,j) |