266 |
CALL GAD_DST3FL_ADV_X( |
CALL GAD_DST3FL_ADV_X( |
267 |
& bi,bj,k,deltaTtracer,uTrans,uVel,localTij,af,myThid) |
& bi,bj,k,deltaTtracer,uTrans,uVel,localTij,af,myThid) |
268 |
ELSE |
ELSE |
|
write(0,*) advectionScheme |
|
269 |
STOP 'GAD_ADVECTION: adv. scheme incompatibale with multi-dim' |
STOP 'GAD_ADVECTION: adv. scheme incompatibale with multi-dim' |
270 |
ENDIF |
ENDIF |
271 |
|
|
389 |
#ifdef ALLOW_AUTODIFF_TAMC |
#ifdef ALLOW_AUTODIFF_TAMC |
390 |
CADJ STORE localTijk(:,:,k) |
CADJ STORE localTijk(:,:,k) |
391 |
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
392 |
|
CADJ STORE rTrans(:,:) |
393 |
|
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
394 |
#endif /* ALLOW_AUTODIFF_TAMC */ |
#endif /* ALLOW_AUTODIFF_TAMC */ |
395 |
|
|
396 |
C-- Compute Vertical transport |
C-- Compute Vertical transport |