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