282 |
C-- For cube need one pass for each of red, green and blue axes. |
C-- For cube need one pass for each of red, green and blue axes. |
283 |
DO ipass=1,nipass |
DO ipass=1,nipass |
284 |
#ifdef ALLOW_AUTODIFF_TAMC |
#ifdef ALLOW_AUTODIFF_TAMC |
285 |
passkey = ipass + (k-1) *maxcube |
passkey = ipass |
286 |
& + (igadkey-1)*maxcube*Nr |
& + (k-1) *maxpass |
287 |
|
& + (igadkey-1)*maxpass*Nr |
288 |
IF (nipass .GT. maxpass) THEN |
IF (nipass .GT. maxpass) THEN |
289 |
STOP 'GAD_ADVECTION: nipass > maxcube. check tamc.h' |
STOP 'GAD_ADVECTION: nipass > maxcube. check tamc.h' |
290 |
ENDIF |
ENDIF |
727 |
#ifdef ALLOW_AUTODIFF_TAMC |
#ifdef ALLOW_AUTODIFF_TAMC |
728 |
CADJ STORE rtrans(:,:) = |
CADJ STORE rtrans(:,:) = |
729 |
CADJ & comlev1_bibj_k_gad, key=kkey, byte=isbyte |
CADJ & comlev1_bibj_k_gad, key=kkey, byte=isbyte |
730 |
CADJ STORE wfld(:,:) = |
cphCADJ STORE wfld(:,:) = |
731 |
CADJ & comlev1_bibj_k_gad, key=kkey, byte=isbyte |
cphCADJ & comlev1_bibj_k_gad, key=kkey, byte=isbyte |
732 |
#endif |
#endif |
733 |
|
|
734 |
C-- Compute Vertical transport |
C-- Compute Vertical transport |