& momPressureForcing, metricTerms, useNHMTerms,
LOGICAL momPressureForcing
IF (momPressureForcing) THEN
CALL WRITE_0D_L( momPressureForcing, INDEX_NONE,
& momPressureForcing, metricTerms, vectorInvariantMomentum,
momPressureForcing = .TRUE.
IF ( momPressureForcing ) THEN
tempIsActiveTr = momPressureForcing .AND. tempAdvection
saltIsActiveTr = momPressureForcing .AND. saltAdvection
momPressureForcing= momStepping .AND. momPressureForcing
implicitIntGravWave=momPressureForcing .AND. implicitIntGravWave