| File |
Line number |
Procedure |
Code |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
175 |
SHAP_FILT_UV_S1 |
maskZj=_maskS(i-1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
181 |
SHAP_FILT_UV_S1 |
& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
182 |
SHAP_FILT_UV_S1 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
190 |
SHAP_FILT_UV_S1 |
maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
194 |
SHAP_FILT_UV_S1 |
& -(tmpFldU(i, j ,k,bi,bj)-0*tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
195 |
SHAP_FILT_UV_S1 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
198 |
SHAP_FILT_UV_S1 |
maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
202 |
SHAP_FILT_UV_S1 |
& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
203 |
SHAP_FILT_UV_S1 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
217 |
SHAP_FILT_UV_S1 |
maskZj=_maskW( i ,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
223 |
SHAP_FILT_UV_S1 |
& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
224 |
SHAP_FILT_UV_S1 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
232 |
SHAP_FILT_UV_S1 |
maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
236 |
SHAP_FILT_UV_S1 |
& -(tmpFldV( i ,j,k,bi,bj)-0*tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
237 |
SHAP_FILT_UV_S1 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
240 |
SHAP_FILT_UV_S1 |
maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
244 |
SHAP_FILT_UV_S1 |
& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
245 |
SHAP_FILT_UV_S1 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
56 |
SHAP_FILT_UV_S1 |
_RL maskZj,maskZp |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
100 |
SHAP_FILT_UV_S2C |
maskZj=_maskS(i-1, j ,k,bi,bj)*_maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
106 |
SHAP_FILT_UV_S2C |
& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
107 |
SHAP_FILT_UV_S2C |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
114 |
SHAP_FILT_UV_S2C |
maskZj=_maskS(i-1, j ,k,bi,bj)*_maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
120 |
SHAP_FILT_UV_S2C |
& -(tmpFldU(i,j,k,bi,bj)-0*tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
121 |
SHAP_FILT_UV_S2C |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
123 |
SHAP_FILT_UV_S2C |
maskZj=_maskS(i-1, j ,k,bi,bj)*_maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
129 |
SHAP_FILT_UV_S2C |
& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
130 |
SHAP_FILT_UV_S2C |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
144 |
SHAP_FILT_UV_S2C |
maskZj=_maskW( i ,j-1,k,bi,bj)*_maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
150 |
SHAP_FILT_UV_S2C |
& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
151 |
SHAP_FILT_UV_S2C |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
158 |
SHAP_FILT_UV_S2C |
maskZj=_maskW( i ,j-1,k,bi,bj)*_maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
164 |
SHAP_FILT_UV_S2C |
& -(tmpFldV(i,j,k,bi,bj)-0*tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
165 |
SHAP_FILT_UV_S2C |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
167 |
SHAP_FILT_UV_S2C |
maskZj=_maskW( i ,j-1,k,bi,bj)*_maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
173 |
SHAP_FILT_UV_S2C |
& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
174 |
SHAP_FILT_UV_S2C |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
56 |
SHAP_FILT_UV_S2C |
_RL maskZj,maskZp |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
172 |
SHAP_FILT_UV_S4 |
maskZj=_maskS(i-1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
178 |
SHAP_FILT_UV_S4 |
& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
179 |
SHAP_FILT_UV_S4 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
187 |
SHAP_FILT_UV_S4 |
maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
191 |
SHAP_FILT_UV_S4 |
& -(tmpFldU(i, j ,k,bi,bj)-0*tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
192 |
SHAP_FILT_UV_S4 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
197 |
SHAP_FILT_UV_S4 |
maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
201 |
SHAP_FILT_UV_S4 |
& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
202 |
SHAP_FILT_UV_S4 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
216 |
SHAP_FILT_UV_S4 |
maskZj=_maskW( i ,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
222 |
SHAP_FILT_UV_S4 |
& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
223 |
SHAP_FILT_UV_S4 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
231 |
SHAP_FILT_UV_S4 |
maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
235 |
SHAP_FILT_UV_S4 |
& -(tmpFldV( i ,j,k,bi,bj)-0*tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
236 |
SHAP_FILT_UV_S4 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
237 |
SHAP_FILT_UV_S4 |
& -2.*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
242 |
SHAP_FILT_UV_S4 |
maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
246 |
SHAP_FILT_UV_S4 |
& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
247 |
SHAP_FILT_UV_S4 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
56 |
SHAP_FILT_UV_S4 |
_RL maskZj,maskZp |