I calcAdvection, saltImplVertAdv,
LOGICAL calcAdvection
calcAdvection = saltAdvection .AND. .NOT.saltMultiDimAdvec
I calcAdvection, PTRACERS_ImplVertAdv(iTracer),
calcAdvection = .NOT.multiDimAdvection
IF (calcAdvection) advFac = 1. _d 0
I calcAdvection, implicitAdvection,
IF (calcAdvection) THEN
IF (calcAdvection .AND. .NOT.implicitAdvection .AND. K.GE.2 .AND.
IF (calcAdvection .AND. .NOT.implicitAdvection .AND. K.GE.2) THEN
I calcAdvection, tempImplVertAdv,
calcAdvection = tempAdvection .AND. .NOT.tempMultiDimAdvec