1 |
heimbach |
1.1 |
|
2 |
|
|
c ================================================================== |
3 |
|
|
c HEADER ADCOST |
4 |
|
|
c ================================================================== |
5 |
|
|
c |
6 |
|
|
c o Header for model-data comparison; adjoint part. |
7 |
|
|
c |
8 |
|
|
c started: Christian Eckert eckert@mit.edu 06-Apr-2000 |
9 |
|
|
c changed: Christian Eckert eckert@mit.edu |
10 |
heimbach |
1.4 |
c heimbach@mit.edu 5-Nov-2003 retain only adfc |
11 |
heimbach |
1.1 |
c |
12 |
|
|
c ================================================================== |
13 |
|
|
c HEADER ADCOST |
14 |
|
|
c ================================================================== |
15 |
|
|
|
16 |
|
|
common /adcost_r/ |
17 |
heimbach |
1.4 |
& adfc |
18 |
heimbach |
1.1 |
_RL adfc |
19 |
|
|
|
20 |
heimbach |
1.3 |
#ifdef ALLOW_COST_STATE_FINAL |
21 |
|
|
common /adcost_state_final_r/ |
22 |
|
|
& adobjf_state_final |
23 |
|
|
_RL adobjf_state_final (snx,sny,nsx,nsy) |
24 |
|
|
cph _RL adobjf_state_final (snx,sny,nr,nsx,nsy,2) |
25 |
|
|
#endif |
26 |
|
|
|
27 |
heimbach |
1.2 |
#ifdef ALLOW_COST_VECTOR |
28 |
heimbach |
1.3 |
common /adcost_vector_r/ |
29 |
heimbach |
1.2 |
& adobjf_vector |
30 |
|
|
_RL adobjf_vector(snx,nsx,nsy) |
31 |
|
|
#endif |
32 |
|
|
|
33 |
heimbach |
1.1 |
c ================================================================== |
34 |
|
|
c END OF HEADER ADCOST |
35 |
|
|
c ================================================================== |
36 |
|
|
|