| File |
Line number |
Procedure |
Code |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
144 |
SHAP_FILT_UV_S2 |
maskZ = (maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj)) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
146 |
SHAP_FILT_UV_S2 |
IF (maskZ.LT.1.) vort3(i,j)=0. |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
172 |
SHAP_FILT_UV_S2 |
maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
174 |
SHAP_FILT_UV_S2 |
IF (maskZ.GE.2.) THEN |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
188 |
SHAP_FILT_UV_S2 |
maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
190 |
SHAP_FILT_UV_S2 |
IF (maskZ.GE.2.) THEN |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
204 |
SHAP_FILT_UV_S2 |
maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
206 |
SHAP_FILT_UV_S2 |
IF (maskZ.GE.2.) THEN |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
220 |
SHAP_FILT_UV_S2 |
maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
222 |
SHAP_FILT_UV_S2 |
IF (maskZ.GE.2.) THEN |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
72 |
SHAP_FILT_UV_S2 |
_RS maskZ |
|
./pkg/shap_filt/shap_filt_v.F |
32 |
SHAP_FILT_V |
_RS maskZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/shap_filt/shap_filt_v.F |
38 |
SHAP_FILT_V |
maskZ(i,j) = _maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
57 |
SHAP_FILT_V |
& (tmpFldX(i+1,j,N1)-tmpFldX( i ,j,N1))*maskZ(i+1,j) |
|
./pkg/shap_filt/shap_filt_v.F |
58 |
SHAP_FILT_V |
& -(tmpFldX( i ,j,N1)-tmpFldX(i-1,j,N1))*maskZ( i ,j) |
|
./pkg/shap_filt/shap_filt_v.F |
60 |
SHAP_FILT_V |
& -2.*(2.-maskZ(i,j)-maskZ(i+1,j))*tmpFldX(i,j,N1) |
|
./pkg/shap_filt/shap_filt_u.F |
32 |
SHAP_FILT_U |
_RS maskZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/shap_filt/shap_filt_u.F |
59 |
SHAP_FILT_U |
maskZ(i,j) = _maskS(i-1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
87 |
SHAP_FILT_U |
& (tmpFldY(i,j+1,N1)-tmpFldY(i, j ,N1))*maskZ(i,j+1) |
|
./pkg/shap_filt/shap_filt_u.F |
88 |
SHAP_FILT_U |
& -(tmpFldY(i, j ,N1)-tmpFldY(i,j-1,N1))*maskZ(i, j ) |
|
./pkg/shap_filt/shap_filt_u.F |
90 |
SHAP_FILT_U |
& -2.*(2.-maskZ(i,j)-maskZ(i,j+1))*tmpFldY(i,j,N1) |