2 |
C $Name$ |
C $Name$ |
3 |
|
|
4 |
#include "PACKAGES_CONFIG.h" |
#include "PACKAGES_CONFIG.h" |
5 |
|
#include "AD_CONFIG.h" |
6 |
#include "CPP_OPTIONS.h" |
#include "CPP_OPTIONS.h" |
7 |
|
|
8 |
CBOP |
CBOP |
57 |
#include "SIZE.h" |
#include "SIZE.h" |
58 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
59 |
#include "PARAMS.h" |
#include "PARAMS.h" |
60 |
|
#ifdef ALLOW_AUTODIFF_TAMC |
61 |
|
# include "DYNVARS.h" |
62 |
|
# include "tamc.h" |
63 |
|
# include "tamc_keys.h" |
64 |
|
#endif |
65 |
|
|
66 |
C !INPUT/OUTPUT PARAMETERS: |
C !INPUT/OUTPUT PARAMETERS: |
67 |
C === Routine arguments === |
C === Routine arguments === |
120 |
#endif |
#endif |
121 |
|
|
122 |
#ifdef ALLOW_AUTODIFF |
#ifdef ALLOW_AUTODIFF |
123 |
|
CADJ STORE theta = tapelev3, key = 1 |
124 |
c-- Initialise auxiliary xx_ fields |
c-- Initialise auxiliary xx_ fields |
125 |
CALL CTRL_INIT_VARIABLES ( mythid ) |
CALL CTRL_INIT_VARIABLES ( mythid ) |
126 |
c-- Map the control variables onto the model state. |
c-- Map the control variables onto the model state. |
136 |
cph#endif |
cph#endif |
137 |
|
|
138 |
#ifdef ALLOW_EBM |
#ifdef ALLOW_EBM |
139 |
|
# ifdef ALLOW_AUTODIFF |
140 |
|
CADJ STORE theta = tapelev3, key = 1 |
141 |
|
# endif |
142 |
IF (useEBM) CALL EBM_INI_VARS( mythid ) |
IF (useEBM) CALL EBM_INI_VARS( mythid ) |
143 |
#endif |
#endif |
144 |
|
|