_RL GM_Visbeck_alpha
& GM_Visbeck_alpha, GM_Visbeck_length,
IF ( GM_Visbeck_alpha.NE.0. ) THEN
IF ( GM_Visbeck_alpha.GT.0. .AND.
& +deltaH*GM_Visbeck_alpha
IF ( GM_Visbeck_alpha.GT.0. ) THEN
& .AND. GM_Visbeck_alpha.NE.0.
CALL WRITE_0D_RL( GM_Visbeck_alpha, INDEX_NONE,
IF (GM_Visbeck_alpha.NE.0.)
IF (GM_Visbeck_alpha.NE.0.) THEN
GM_Visbeck_alpha = 0. _d 0
GM_ExtraDiag = GM_Visbeck_alpha.NE.0. .OR. GM_isopycK.NE.0.