77 |
#include "CD_CODE_VARS.h" |
#include "CD_CODE_VARS.h" |
78 |
#endif |
#endif |
79 |
#include "GRID.h" |
#include "GRID.h" |
|
#ifdef ALLOW_PASSIVE_TRACER |
|
|
#include "TR1.h" |
|
|
#endif |
|
80 |
#ifdef ALLOW_AUTODIFF_TAMC |
#ifdef ALLOW_AUTODIFF_TAMC |
81 |
# include "tamc.h" |
# include "tamc.h" |
82 |
# include "tamc_keys.h" |
# include "tamc_keys.h" |
345 |
c |
c |
346 |
CADJ STORE totphihyd (:,:,k,bi,bj) |
CADJ STORE totphihyd (:,:,k,bi,bj) |
347 |
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
|
CADJ STORE gt (:,:,k,bi,bj) |
|
|
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
|
|
CADJ STORE gs (:,:,k,bi,bj) |
|
|
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
|
348 |
CADJ STORE theta (:,:,k,bi,bj) |
CADJ STORE theta (:,:,k,bi,bj) |
349 |
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
350 |
CADJ STORE salt (:,:,k,bi,bj) |
CADJ STORE salt (:,:,k,bi,bj) |