26 |
integer ctrlprec |
integer ctrlprec |
27 |
parameter ( ctrlprec = 64 ) |
parameter ( ctrlprec = 64 ) |
28 |
|
|
|
character*2 yadprefix |
|
|
#ifdef ALLOW_TANGENTLINEAR_RUN |
|
|
parameter ( yadprefix = 'g_') |
|
|
#else |
|
|
parameter ( yadprefix = 'ad') |
|
|
#endif |
|
|
|
|
29 |
common /controlvars_i/ |
common /controlvars_i/ |
30 |
& nvartype, |
& nvartype, |
31 |
& nvarlength, |
& nvarlength, |
93 |
|
|
94 |
common /controlvars_c/ |
common /controlvars_c/ |
95 |
& ncvargrd |
& ncvargrd |
96 |
|
& , yadprefix |
97 |
character*(1) ncvargrd(maxcvars) |
character*(1) ncvargrd(maxcvars) |
98 |
|
character*(2) yadprefix |
99 |
|
|
100 |
c Control variables: |
c Control variables: |
101 |
c ================== |
c ================== |