LOGICAL GM_AdvForm
& GM_AdvForm, GM_AdvSeparate,
IF (GM_AdvForm) THEN
IF ( GM_AdvForm ) THEN
IF ( GM_useSubMeso .AND. GM_AdvForm ) THEN
IF ( GM_useK3D .AND. .NOT. GM_AdvForm) THEN
IF ( GM_useSubMeso .AND. .NOT.GM_AdvForm ) THEN
IF (.NOT. GM_AdvForm) THEN
IF ( GM_InMomAsStress .AND. .NOT.GM_AdvForm ) THEN
IF ( GM_AdvForm .AND. .NOT.GM_AdvSeparate
CALL WRITE_0D_L( GM_AdvForm, INDEX_NONE,
& .AND. GM_AdvForm
GM_AdvForm = .FALSE.
ELSEIF( GM_AdvForm .AND. .NOT.GM_AdvSeparate
IF (GM_AdvForm .AND. GM_AdvSeparate
IF ( .NOT.GM_AdvForm ) THEN