| File |
Line number |
Procedure |
Code |
|
./pkg/shap_filt/shap_filt_tracerold.F |
34 |
SHAP_FILT_TRACEROLD |
INTEGER I,J,N,N1,N2 |
|
./pkg/shap_filt/shap_filt_tracerold.F |
44 |
SHAP_FILT_TRACEROLD |
N1=1+mod(N+1,2) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
49 |
SHAP_FILT_TRACEROLD |
& ( tmpFldX(i+1,j,N1)-tmpFldX( i ,j,N1) ) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
51 |
SHAP_FILT_TRACEROLD |
& -( tmpFldX( i ,j,N1)-tmpFldX(i-1,j,N1) ) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
74 |
SHAP_FILT_TRACEROLD |
N1=1+mod(N+1,2) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
79 |
SHAP_FILT_TRACEROLD |
& ( tmpFldY(i,j+1,N1)-tmpFldY(i, j ,N1) ) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
81 |
SHAP_FILT_TRACEROLD |
& -( tmpFldY(i, j ,N1)-tmpFldY(i,j-1,N1) ) |
|
./pkg/shap_filt/shap_filt_u.F |
33 |
SHAP_FILT_U |
INTEGER I,J,N,N1,N2 |
|
./pkg/shap_filt/shap_filt_u.F |
44 |
SHAP_FILT_U |
N1=1+mod(N+1,2) |
|
./pkg/shap_filt/shap_filt_u.F |
49 |
SHAP_FILT_U |
& tmpFldX(i-1,j,N1) + tmpFldX(i+1,j,N1) |
|
./pkg/shap_filt/shap_filt_u.F |
50 |
SHAP_FILT_U |
& - 2.*tmpFldX(i,j,N1) |
|
./pkg/shap_filt/shap_filt_u.F |
82 |
SHAP_FILT_U |
N1=1+mod(N+1,2) |
|
./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) |
|
./pkg/shap_filt/shap_filt_v.F |
33 |
SHAP_FILT_V |
INTEGER I,J,N,N1,N2 |
|
./pkg/shap_filt/shap_filt_v.F |
52 |
SHAP_FILT_V |
N1=1+mod(N+1,2) |
|
./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_v.F |
85 |
SHAP_FILT_V |
N1=1+mod(N+1,2) |
|
./pkg/shap_filt/shap_filt_v.F |
90 |
SHAP_FILT_V |
& tmpFldY(i,j-1,N1) + tmpFldY(i,j+1,N1) |
|
./pkg/shap_filt/shap_filt_v.F |
91 |
SHAP_FILT_V |
& - 2.*tmpFldY(i,j,N1) |