94 |
#endif /* ALLOW_AUTODIFF_TAMC */ |
#endif /* ALLOW_AUTODIFF_TAMC */ |
95 |
|
|
96 |
#ifdef INCLUDE_IMPLVERTADV_CODE |
#ifdef INCLUDE_IMPLVERTADV_CODE |
97 |
c IF ( PTRACERS_ImplVertAdv(iTracer) ) THEN |
IF ( PTRACERS_ImplVertAdv(iTracer) ) THEN |
|
IF ( (dTtracerLev(1).NE.dTtracerLev(Nr).AND.implicitDiffusion) |
|
|
& .OR.PTRACERS_ImplVertAdv(iTracer) ) THEN |
|
98 |
|
|
99 |
CALL GAD_IMPLICIT_R( |
CALL GAD_IMPLICIT_R( |
100 |
I PTRACERS_ImplVertAdv(iTracer), |
I PTRACERS_ImplVertAdv(iTracer), |
110 |
|
|
111 |
CALL IMPLDIFF( |
CALL IMPLDIFF( |
112 |
I bi, bj, iMin, iMax, jMin, jMax, |
I bi, bj, iMin, iMax, jMin, jMax, |
113 |
I dTtracerLev(1), kappaRk, recip_HFacC, |
I GAD_TR, kappaRk, recip_HFacC, |
114 |
U gPtr(1-Olx,1-Oly,1,1,1,iTracer), |
U gPtr(1-Olx,1-Oly,1,1,1,iTracer), |
115 |
I myThid ) |
I myThid ) |
116 |
|
|