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