/[MITgcm]/MITgcm/pkg/cost/g_cost.h
ViewVC logotype

Contents of /MITgcm/pkg/cost/g_cost.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.2 - (show annotations) (download)
Thu Nov 6 22:03:49 2003 UTC (20 years, 7 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint52l_pre, checkpoint52e_pre, hrcube4, checkpoint52n_post, checkpoint52j_post, checkpoint53d_post, checkpoint54a_pre, checkpoint55c_post, checkpoint54e_post, checkpoint52e_post, checkpoint54a_post, checkpoint53c_post, checkpoint55d_pre, hrcube_1, branch-netcdf, checkpoint52d_pre, checkpoint52l_post, checkpoint55h_post, checkpoint52k_post, checkpoint52b_pre, checkpoint54b_post, checkpoint53b_pre, checkpoint55b_post, checkpoint54d_post, checkpoint52m_post, checkpoint55, checkpoint53a_post, checkpoint54, checkpoint54f_post, checkpoint53b_post, checkpoint55g_post, checkpoint52a_pre, checkpoint55f_post, checkpoint53, checkpoint52, checkpoint52d_post, checkpoint52a_post, checkpoint52b_post, checkpoint53g_post, checkpoint52f_post, checkpoint52c_post, ecco_c52_e35, hrcube5, checkpoint55e_post, checkpoint52i_post, checkpoint52j_pre, checkpoint53f_post, checkpoint55a_post, checkpoint53d_pre, checkpoint54c_post, checkpoint52i_pre, checkpoint51u_post, checkpoint52h_pre, checkpoint52f_pre, hrcube_2, hrcube_3, checkpoint55d_post
Branch point for: netcdf-sm0
Changes since 1.1: +2 -34 lines
File MIME type: text/plain
o merging from ecco-branch
o modularized cost package
  - ECCO-specific terms are now in pkg/ecco
  - cost package is driver

1
2 c ==================================================================
3 c HEADER G_COST
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 c heimbach@mit.edu 5-Nov-2003 retain only adfc
11 c
12 c ==================================================================
13 c HEADER G_COST
14 c ==================================================================
15
16 common /g_cost_r/
17 & g_fc
18 _RL g_fc
19
20 #ifdef ALLOW_COST_STATE_FINAL
21 common /g_cost_state_final_r/
22 & g_objf_state_final
23 _RL g_objf_state_final (snx,sny,nsx,nsy)
24 cph _RL g_objf_state_final (snx,sny,nr,nsx,nsy,2)
25 #endif
26
27 #ifdef ALLOW_COST_VECTOR
28 common /g_cost_vector_r/
29 & g_objf_vector
30 _RL g_objf_vector(snx,nsx,nsy)
31 #endif
32
33 c ==================================================================
34 c END OF HEADER G_COST
35 c ==================================================================
36

  ViewVC Help
Powered by ViewVC 1.1.22