& selectNHfreeSurf, selectP_inEOS_Zc,
INTEGER selectNHfreeSurf
ELSEIF ( selectNHfreeSurf.GE.1 ) THEN
IF ( k.GT.1 .OR. selectNHfreeSurf.GE.1 ) THEN
IF ( k.EQ.1 .AND. selectNHfreeSurf.GE.1 ) THEN
IF ( k.EQ.1 .AND. selectNHfreeSurf.LE.0 ) msk_1 = 0.
IF ( selectNHfreeSurf.GE.1 ) THEN
CALL WRITE_0D_I( selectNHfreeSurf, INDEX_NONE,
IF ( selectNHfreeSurf.NE.0 ) THEN
& ' Free-Surf option (selectNHfreeSurf=',selectNHfreeSurf,' )'
& nonHydrostatic, selectNHfreeSurf, quasiHydrostatic,
IF ( selectNHfreeSurf.GE.1 .AND.
selectNHfreeSurf = 0
IF ( selectNHfreeSurf.NE.0 .AND.