CALL WRITE_0D_L( tempAdvection, INDEX_NONE,
& tempDiffusion, tempAdvection, tempForcing,
tempAdvection = tempStepping .AND. tempAdvection
tempImplVertAdv = tempAdvection .AND. tempImplVertAdv
& tempAdvection, tempForcing,
LOGICAL tempAdvection
tempMultiDimAdvec = multiDimAdvection .AND. tempAdvection
tempAdvection = .TRUE.
calcAdvection = tempAdvection .AND. .NOT.tempMultiDimAdvec