Symbol Description Uses
diag_dKE 5


File Line number Procedure Code
./pkg/shap_filt/shap_filt_apply_uv.F 130 SHAP_FILT_APPLY_UV 
         diag_dKE = .FALSE.
./pkg/shap_filt/shap_filt_apply_uv.F 137 SHAP_FILT_APPLY_UV 
           diag_dKE = DIAGNOSTICS_IS_ON('SHAP_dKE',myThid)
./pkg/shap_filt/shap_filt_apply_uv.F 141 SHAP_FILT_APPLY_UV 
         IF ( addFrictionHeating .OR. diag_dKE ) THEN
./pkg/shap_filt/shap_filt_apply_uv.F 174 SHAP_FILT_APPLY_UV 
              IF ( diag_dKE ) THEN
./pkg/shap_filt/shap_filt_apply_uv.F 64 SHAP_FILT_APPLY_UV 
      LOGICAL diag_dKE