& upwindVorticity, highOrderVorticity,
LOGICAL highOrderVorticity
IF ( (highOrderVorticity.OR.upwindVorticity)
ELSEIF ( (highOrderVorticity.OR.upwindVorticity) ) THEN
IF ( useCubedSphereExchange.AND.highOrderVorticity ) THEN
IF ( highOrderVorticity.AND.upwindVorticity ) THEN
CALL WRITE_0D_L( highOrderVorticity, INDEX_NONE,
& selectVortScheme, upwindVorticity, highOrderVorticity,
highOrderVorticity = .FALSE.
IF ( highOrderVorticity ) selectVortScheme = 0