& .AND. GM_Visbeck_alpha.NE.0.
CALL WRITE_0D_R8( GM_Visbeck_alpha, INDEX_NONE,
IF (GM_Visbeck_alpha .NE. 0.) THEN
IF (GM_Visbeck_alpha.NE.0.)
_RL GM_Visbeck_alpha
& GM_Visbeck_alpha,
GM_ExtraDiag = GM_Visbeck_alpha.NE.0. .OR. GM_isopycK.NE.0.
GM_Visbeck_alpha = 0.
& *GM_Visbeck_alpha*GM_Visbeck_length*GM_Visbeck_length*SN
IF ( GM_Visbeck_alpha.NE.0. ) THEN