& use3Dsolver, implicitIntGravWave, staggerTimeStep,
LOGICAL use3Dsolver
IF (use3Dsolver) THEN
IF (nonlinFreeSurf.NE.0 .AND. use3Dsolver) THEN
IF ( selectImplicitDrag.EQ.2 .AND. use3Dsolver ) THEN
IF ( implicitViscosity .AND. use3Dsolver ) THEN
CALL WRITE_0D_L( use3Dsolver, INDEX_NONE,
IF ( use3Dsolver ) THEN
use3Dsolver = nonHydrostatic.OR. implicitIntGravWave
oldFreeSurfTerm = use3Dsolver .AND. .NOT.exactConserv
IF ( use3Dsolver .AND. implicitNHPress.NE.1. _d 0 ) THEN