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