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