| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_k3d.F |
60 |
GMREDI_K3D |
INTEGER surfk(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_k3d.F |
612 |
GMREDI_K3D |
surfk(i,j) = 0 |
|
./pkg/gmredi/gmredi_k3d.F |
619 |
GMREDI_K3D |
& surfk(i,j) = k |
|
./pkg/gmredi/gmredi_k3d.F |
634 |
GMREDI_K3D |
IF(surfk(i,j).GE.kLowC(i,j,bi,bj)) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
709 |
GMREDI_K3D |
IF(k.LE.surfk(i,j)) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
719 |
GMREDI_K3D |
IF(kLow_U(i,j).LT.surfk(i,j)) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
723 |
GMREDI_K3D |
kk=surfk(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
738 |
GMREDI_K3D |
IF(kLow_V(i,j).LT.surfk(i,j)) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
742 |
GMREDI_K3D |
kk=surfk(i,j) |