IF (momPressureForcing) THEN
CALL WRITE_0D_L( momPressureForcing, INDEX_NONE,
& momPressureForcing, metricTerms, vectorInvariantMomentum,
momPressureForcing= momStepping .AND. momPressureForcing
IF ( momPressureForcing ) THEN
& momPressureForcing, vectorInvariantMomentum,
LOGICAL momPressureForcing
momPressureForcing = .TRUE.