& SadournyCoriolis, upwindVorticity, highOrderVorticity,
LOGICAL upwindVorticity
CALL WRITE_0D_L( upwindVorticity, INDEX_NONE,
upwindVorticity = .FALSE.
IF (upwindVorticity) THEN