& rigidLid, implicitFreeSurface,
LOGICAL rigidLid
noFlowAcrossSurf = rigidLid .OR. nonlinFreeSurf.GE.1
ELSEIF ( k.GT.Nr .OR. (k.EQ.1.AND.rigidLid) ) THEN
IF ( select_rStar.EQ.0 .AND. .NOT.rigidLid ) THEN
& .AND. rigidLid ) THEN
IF ( rigidLid .AND. implicitFreeSurface ) THEN
IF (rigidLid .AND. exactConserv) THEN
IF (rigidLid .AND. useRealFreshWaterFlux) THEN
IF ( selectAddFluid.GE.1 .AND. rigidLid ) THEN
CALL WRITE_0D_L( rigidLid, INDEX_NONE, 'rigidLid =',
IF ( rigidLid ) THEN
& implicitFreeSurface, rigidLid, freeSurfFac,
IF ( .NOT.rigidLid .AND.
IF ( rigidLid ) freeSurfFac = 0. _d 0
IF (rigidLid) THEN
rigidLid = .FALSE.