LOGICAL GM_ExtraDiag
& GM_ExtraDiag, GM_MNC, GM_MDSIO,
IF ( GM_ExtraDiag ) THEN
CALL WRITE_0D_L( GM_ExtraDiag, INDEX_NONE,
IF (GM_ExtraDiag) THEN
GM_ExtraDiag = GM_Visbeck_alpha.NE.0. .OR. GM_isopycK.NE.0.
GM_ExtraDiag = GM_isopycK.NE.GM_background_K
GM_ExtraDiag = .TRUE.