IF (no_slip_bottom) viscFac=1.
CALL WRITE_0D_L( no_slip_bottom, INDEX_NONE,
& no_slip_sides,no_slip_bottom,
LOGICAL no_slip_bottom
IF ( no_slip_bottom
no_slip_bottom = .TRUE.