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