| File |
Line number |
Procedure |
Code |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
147 |
SHAP_FILT_APPLY_UV |
dKE_shap(i,j) = 0.5 _d 0 *( |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
168 |
SHAP_FILT_APPLY_UV |
& - dKE_shap(i,j)*drF(k)*rUnit2mass |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
177 |
SHAP_FILT_APPLY_UV |
dKE_shap(i,j) = dKE_shap(i,j) * recip_rA(i,j,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
180 |
SHAP_FILT_APPLY_UV |
CALL DIAGNOSTICS_FILL( dKE_shap, 'SHAP_dKE', |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
68 |
SHAP_FILT_APPLY_UV |
_RL dKE_shap(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |