calcAdvection = .NOT.multiDimAdvection
& multiDimAdvection .AND.
& multiDimAdvection, useMultiDimAdvec,
LOGICAL multiDimAdvection
IF (.NOT. multiDimAdvection) THEN
& multiDimAdvection, useEnergyConservingCoriolis,
CALL WRITE_0D_L( multiDimAdvection, INDEX_NONE,
multiDimAdvection = .TRUE.
IF ( multiDimAdvection ) THEN
tempMultiDimAdvec = multiDimAdvection .AND. tempAdvection
saltMultiDimAdvec = multiDimAdvection .AND. saltAdvection