File |
Line number |
Procedure |
Code |
./pkg/shap_filt/shap_filt_tracerold.F |
32 |
SHAP_FILT_TRACEROLD |
_RL tmpFldX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,2) |
./pkg/shap_filt/shap_filt_tracerold.F |
38 |
SHAP_FILT_TRACEROLD |
tmpFldX(i,j,1) = field(i,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_tracerold.F |
48 |
SHAP_FILT_TRACEROLD |
tmpFldX(i,j,N2) = -0.25*( |
./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 |
60 |
SHAP_FILT_TRACEROLD |
tmpFldX(i,j,N2) = field(i,j,k,bi,bj) - tmpFldX(i,j,N2) |
./pkg/shap_filt/shap_filt_tracerold.F |
61 |
SHAP_FILT_TRACEROLD |
tmpFldY(i,j,1) = tmpFldX(i,j,N2) |
./pkg/shap_filt/shap_filt_tracerold.F |
91 |
SHAP_FILT_TRACEROLD |
field(i,j,k,bi,bj) = tmpFldX(i,j,N2) - tmpFldY(i,j,N2) |
./pkg/shap_filt/shap_filt_tracerold.F |
98 |
SHAP_FILT_TRACEROLD |
& -0.5*( tmpFldX(i,j,N2)+tmpFldY(i,j,N2) ) |
./pkg/shap_filt/shap_filt_u.F |
101 |
SHAP_FILT_U |
uVel(i,j,k,bi,bj) = tmpFldX(i,j,N2) - tmpFldY(i,j,N2) |
./pkg/shap_filt/shap_filt_u.F |
108 |
SHAP_FILT_U |
& -0.5*( tmpFldX(i,j,N2)+tmpFldY(i,j,N2) ) |
./pkg/shap_filt/shap_filt_u.F |
30 |
SHAP_FILT_U |
_RL tmpFldX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,2) |
./pkg/shap_filt/shap_filt_u.F |
37 |
SHAP_FILT_U |
tmpFldX(i,j,1) = uVel(i,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_u.F |
48 |
SHAP_FILT_U |
tmpFldX(i,j,N2) = -0.25*( |
./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 |
67 |
SHAP_FILT_U |
tmpFldX(i,j,N2) = uVel(i,j,k,bi,bj) - tmpFldX(i,j,N2) |
./pkg/shap_filt/shap_filt_u.F |
68 |
SHAP_FILT_U |
tmpFldY(i,j,1) = tmpFldX(i,j,N2) |
./pkg/shap_filt/shap_filt_v.F |
101 |
SHAP_FILT_V |
vVel(i,j,k,bi,bj) = tmpFldX(i,j,N2) - tmpFldY(i,j,N2) |
./pkg/shap_filt/shap_filt_v.F |
108 |
SHAP_FILT_V |
& -0.5*( tmpFldX(i,j,N2)+tmpFldY(i,j,N2) ) |
./pkg/shap_filt/shap_filt_v.F |
30 |
SHAP_FILT_V |
_RL tmpFldX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,2) |
./pkg/shap_filt/shap_filt_v.F |
45 |
SHAP_FILT_V |
tmpFldX(i,j,1) = vVel(i,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_v.F |
56 |
SHAP_FILT_V |
tmpFldX(i,j,N2) = -0.25*( |
./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 |
70 |
SHAP_FILT_V |
tmpFldX(i,j,N2) = vVel(i,j,k,bi,bj) - tmpFldX(i,j,N2) |
./pkg/shap_filt/shap_filt_v.F |
71 |
SHAP_FILT_V |
tmpFldY(i,j,1) = tmpFldX(i,j,N2) |