& rigidLid, implicitFreeSurface, exactConserv, linFSConserveTr,
LOGICAL rigidLid
& .NOT.rigidLid .AND. nonlinFreeSurf.LE.0 ) THEN
IF ( (rigidLid.OR.nonlinFreeSurf.GE.1) .AND. k.EQ.1 ) THEN
ELSEIF ( rigidLid.OR.nonlinFreeSurf.GE.1 ) THEN
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,
IF ( rigidLid ) THEN
& implicitFreeSurface, rigidLid, freeSurfFac,
IF ( .NOT.rigidLid .AND.
IF ( rigidLid ) freeSurfFac = 0. _d 0
IF (rigidLid) THEN
rigidLid = .FALSE.