I implicitAdvection, advectionScheme, tracerIdentity,
IF (implicitAdvection) THEN
LOGICAL implicitAdvection
IF (implicitAdvection) rAdvFac = 0. _d 0
I calcAdvection, implicitAdvection,
IF (calcAdvection .AND. .NOT.implicitAdvection .AND. K.GE.2 .AND.
IF (calcAdvection .AND. .NOT.implicitAdvection .AND. K.GE.2) THEN
I implicitAdvection, advectionScheme, vertAdvecScheme,
IF ( implicitAdvection ) THEN
IF ( .NOT.implicitAdvection ) THEN