& use3Dsolver, implicitIntGravWave, staggerTimeStep,
LOGICAL implicitIntGravWave
IF ( implicitIntGravWave ) igwFac = 1. _d 0
IF ( .NOT.implicitIntGravWave )
IF ( .NOT.implicitIntGravWave ) THEN
IF ( implicitIntGravWave ) WRITE(msgBuf,'(A)')
IF ( implicitIntGravWave ) THEN
IF ( nonHydrostatic.OR.implicitIntGravWave )
& implicitIntGravWave, staggerTimeStep,
ELSEIF ( implicitIntGravWave ) THEN
IF ( implicitIntGravWave ) igwFac = horiVertRatio*horiVertRatio
IF ( implicitIntGravWave )
CALL WRITE_0D_L( implicitIntGravWave, INDEX_NONE,
implicitIntGravWave=momPressureForcing .AND. implicitIntGravWave
use3Dsolver = nonHydrostatic.OR. implicitIntGravWave
IF ( .NOT.staggerTimeStep .AND. .NOT. implicitIntGravWave ) THEN
implicitIntGravWave = .FALSE.
& (staggerTimeStep .OR. implicitIntGravWave) ) THEN
IF ( implicitIntGravWave ) exchInOut = 2