79 |
CADJ & = comlev1_bibj_ptracers, key=iptrkey, byte=isbyte |
CADJ & = comlev1_bibj_ptracers, key=iptrkey, byte=isbyte |
80 |
#endif /* ALLOW_AUTODIFF_TAMC */ |
#endif /* ALLOW_AUTODIFF_TAMC */ |
81 |
|
|
82 |
#if defined(GAD_ALLOW_SOM_ADVECT) && defined(PTRACERS_ALLOW_DYN_STATE) |
#ifdef PTRACERS_ALLOW_DYN_STATE |
83 |
IF ( PTRACERS_SOM_Advection(iTracer) ) THEN |
IF ( PTRACERS_SOM_Advection(iTracer) ) THEN |
84 |
#ifdef ALLOW_DEBUG |
#ifdef ALLOW_DEBUG |
85 |
IF ( debugLevel .GE. debLevB ) |
IF ( debugLevel .GE. debLevB ) |
96 |
O gPtr(1-Olx,1-Oly,1,1,1,iTracer), |
O gPtr(1-Olx,1-Oly,1,1,1,iTracer), |
97 |
I bi,bj,myTime,myIter,myThid) |
I bi,bj,myTime,myIter,myThid) |
98 |
ELSEIF ( PTRACERS_MultiDimAdv(iTracer) ) THEN |
ELSEIF ( PTRACERS_MultiDimAdv(iTracer) ) THEN |
99 |
#else /* GAD_ALLOW_SOM_ADVECT && PTRACERS_ALLOW_DYN_STATE */ |
#else /* PTRACERS_ALLOW_DYN_STATE */ |
100 |
IF ( PTRACERS_MultiDimAdv(iTracer) ) THEN |
IF ( PTRACERS_MultiDimAdv(iTracer) ) THEN |
101 |
#endif /* GAD_ALLOW_SOM_ADVECT && PTRACERS_ALLOW_DYN_STATE */ |
#endif /* PTRACERS_ALLOW_DYN_STATE */ |
102 |
CALL GAD_ADVECTION( |
CALL GAD_ADVECTION( |
103 |
I PTRACERS_ImplVertAdv(iTracer), |
I PTRACERS_ImplVertAdv(iTracer), |
104 |
I PTRACERS_advScheme(iTracer), |
I PTRACERS_advScheme(iTracer), |