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