File |
Line number |
Procedure |
Code |
./pkg/gmredi/gmredi_k3d.F |
730 |
GMREDI_K3D |
hsurf = -rLowW(i,j,bi,bj) |
./pkg/gmredi/gmredi_k3d.F |
733 |
GMREDI_K3D |
hsurf = -surfkz(i,j) |
./pkg/gmredi/gmredi_k3d.F |
738 |
GMREDI_K3D |
& *SlopeX(i,j,kk)/hsurf |
./pkg/gmredi/gmredi_k3d.F |
741 |
GMREDI_K3D |
& *( SlopeX(i,j,kk)-SlopeX(i,j,kk+1) )/hsurf |
./pkg/gmredi/gmredi_k3d.F |
749 |
GMREDI_K3D |
hsurf = -rLowS(i,j,bi,bj) |
./pkg/gmredi/gmredi_k3d.F |
752 |
GMREDI_K3D |
hsurf = -surfkz(i,j) |
./pkg/gmredi/gmredi_k3d.F |
757 |
GMREDI_K3D |
& *SlopeY(i,j,kk)/hsurf |
./pkg/gmredi/gmredi_k3d.F |
760 |
GMREDI_K3D |
& *( SlopeY(i,j,kk)-SlopeY(i,j,kk+1) )/hsurf |
./pkg/gmredi/gmredi_k3d.F |
88 |
GMREDI_K3D |
_RL hsurf, mskp1 |