File |
Line number |
Procedure |
Code |
./pkg/mom_fluxform/mom_uv_boundary.F |
105 |
MOM_UV_BOUNDARY |
aBndU(i,j) = uTrans(i+1,j)-uTrans(i,j) |
./pkg/mom_fluxform/mom_uv_boundary.F |
107 |
MOM_UV_BOUNDARY |
aBndW(i,j) = ABS(aBndU(i,j)+aBndV(i,j)) |
./pkg/mom_fluxform/mom_uv_boundary.F |
108 |
MOM_UV_BOUNDARY |
aBndU(i,j) = ABS(aBndU(i,j)) |
./pkg/mom_fluxform/mom_uv_boundary.F |
115 |
MOM_UV_BOUNDARY |
tmpVar = aBndU(i,j)+aBndV(i,j)+aBndW(i,j) |
./pkg/mom_fluxform/mom_uv_boundary.F |
118 |
MOM_UV_BOUNDARY |
aBndU(i,j) = aBndU(i,j)*tmpVar |
./pkg/mom_fluxform/mom_uv_boundary.F |
134 |
MOM_UV_BOUNDARY |
& (aBndU(i-1,j)+aBndU(i,j)) |
./pkg/mom_fluxform/mom_uv_boundary.F |
148 |
MOM_UV_BOUNDARY |
& (aBndU(i,j-1)+aBndU(i,j)) |
./pkg/mom_fluxform/mom_uv_boundary.F |
59 |
MOM_UV_BOUNDARY |
_RL aBndU(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/mom_fluxform/mom_uv_boundary.F |
86 |
MOM_UV_BOUNDARY |
aBndU(i,j) = 0. |