1 |
C $Header: $ |
2 |
C $Name: $ |
3 |
|
4 |
c ================================================================== |
5 |
c HEADER G_COST |
6 |
c ================================================================== |
7 |
c |
8 |
c o Header for model-data comparison; adjoint part. |
9 |
c |
10 |
c started: Christian Eckert eckert@mit.edu 06-Apr-2000 |
11 |
c changed: Christian Eckert eckert@mit.edu |
12 |
c heimbach@mit.edu 5-Nov-2003 retain only adfc |
13 |
c |
14 |
c ================================================================== |
15 |
c HEADER G_COST |
16 |
c ================================================================== |
17 |
|
18 |
common /g_cost_r/ |
19 |
& g_fc |
20 |
_RL g_fc |
21 |
|
22 |
#ifdef ALLOW_COST_STATE_FINAL |
23 |
common /g_cost_state_final_r/ |
24 |
& g_objf_state_final |
25 |
cph _RL g_objf_state_final (snx,sny,nsx,nsy) |
26 |
_RL g_objf_state_final (snx,sny,nsx,nsy,4*Nr+1) |
27 |
#endif |
28 |
|
29 |
#ifdef ALLOW_COST_VECTOR |
30 |
common /g_cost_vector_r/ |
31 |
& g_objf_vector |
32 |
_RL g_objf_vector(snx,nsx,nsy) |
33 |
#endif |
34 |
|
35 |
c ================================================================== |
36 |
c END OF HEADER G_COST |
37 |
c ================================================================== |
38 |
|