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