IF (useSHAP_FILT .AND. shap_filt_uvStar) THEN
LOGICAL shap_filt_uvStar, shap_filt_TrStagg
& shap_filt_uvStar, shap_filt_TrStagg,
CALL WRITE_0D_L( shap_filt_uvStar, INDEX_NONE,
IF ( .NOT.shap_filt_uvStar ) THEN
& Shap_funct, shap_filt_uvStar, shap_filt_TrStagg,
shap_filt_uvStar = .TRUE.