Shap_alwaysExchUV = .TRUE.
CALL WRITE_0D_L( Shap_alwaysExchUV, INDEX_NONE,
& Shap_alwaysExchUV, Shap_alwaysExchTr,
Shap_alwaysExchUV = .FALSE.
LOGICAL Shap_alwaysExchUV, Shap_alwaysExchTr
& Shap_alwaysExchUV, Shap_alwaysExchTr
IF ( .NOT.Shap_alwaysExchUV
IF ( MOD(n,2).EQ.1 .OR. Shap_alwaysExchUV ) THEN