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