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