IF ( no_slip_sides ) THEN
CALL WRITE_0D_L( no_slip_sides, INDEX_NONE,
& no_slip_sides,no_slip_bottom,
LOGICAL no_slip_sides
IF (no_slip_sides) THEN
IF (momViscosity.AND.no_slip_sides) THEN
IF ( (viscA4.NE.0. .AND. no_slip_sides)
no_slip_sides = .TRUE.