| File |
Line number |
Procedure |
Code |
|
./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 |
33 |
SHAP_FILT_V |
INTEGER I,J,N,N1,N2 |
|
./pkg/shap_filt/shap_filt_v.F |
53 |
SHAP_FILT_V |
N2=1+mod( N ,2) |
|
./pkg/shap_filt/shap_filt_v.F |
56 |
SHAP_FILT_V |
tmpFldX(i,j,N2) = -0.25*( |
|
./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) |
|
./pkg/shap_filt/shap_filt_v.F |
86 |
SHAP_FILT_V |
N2=1+mod( N ,2) |
|
./pkg/shap_filt/shap_filt_v.F |
89 |
SHAP_FILT_V |
tmpFldY(i,j,N2) = -0.25*( |
|
./pkg/shap_filt/shap_filt_tracerold.F |
34 |
SHAP_FILT_TRACEROLD |
INTEGER I,J,N,N1,N2 |
|
./pkg/shap_filt/shap_filt_tracerold.F |
45 |
SHAP_FILT_TRACEROLD |
N2=1+mod( N ,2) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
48 |
SHAP_FILT_TRACEROLD |
tmpFldX(i,j,N2) = -0.25*( |
|
./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 |
75 |
SHAP_FILT_TRACEROLD |
N2=1+mod( N ,2) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
78 |
SHAP_FILT_TRACEROLD |
tmpFldY(i,j,N2) = -0.25*( |
|
./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 |
33 |
SHAP_FILT_U |
INTEGER I,J,N,N1,N2 |
|
./pkg/shap_filt/shap_filt_u.F |
45 |
SHAP_FILT_U |
N2=1+mod( N ,2) |
|
./pkg/shap_filt/shap_filt_u.F |
48 |
SHAP_FILT_U |
tmpFldX(i,j,N2) = -0.25*( |
|
./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_u.F |
83 |
SHAP_FILT_U |
N2=1+mod( N ,2) |
|
./pkg/shap_filt/shap_filt_u.F |
86 |
SHAP_FILT_U |
tmpFldY(i,j,N2) = -0.25*( |
|
./pkg/gmredi/gmredi_calc_tensor.F |
253 |
GMREDI_CALC_TENSOR |
N2= -Gravity*recip_RhoConst*dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
254 |
GMREDI_CALC_TENSOR |
SN=sqrt(Ssq(i,j)*N2) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
61 |
GMREDI_CALC_TENSOR |
_RL N2,SN |