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