/[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.3 - (show annotations) (download)
Tue Oct 26 20:10:25 2004 UTC (19 years, 7 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint57t_post, checkpoint57o_post, checkpoint57v_post, checkpoint57m_post, checkpoint57s_post, checkpoint57k_post, checkpoint57d_post, checkpoint57g_post, checkpoint57b_post, checkpoint57c_pre, checkpoint55j_post, checkpoint56b_post, checkpoint57i_post, checkpoint57y_post, checkpoint57e_post, checkpoint57g_pre, checkpoint56c_post, checkpoint57y_pre, checkpoint57f_pre, checkpoint57a_post, checkpoint57r_post, checkpoint57a_pre, checkpoint55i_post, checkpoint57, checkpoint56, eckpoint57e_pre, checkpoint57h_done, checkpoint57x_post, checkpoint57n_post, checkpoint57w_post, checkpoint57p_post, checkpint57u_post, checkpoint57f_post, checkpoint57q_post, checkpoint57c_post, checkpoint57j_post, checkpoint57h_pre, checkpoint57l_post, checkpoint57h_post, checkpoint56a_post
Changes since 1.2: +2 -2 lines
File MIME type: text/plain 
Modified objf_state_final
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 cph _RL g_objf_state_final (snx,sny,nsx,nsy)
24 _RL g_objf_state_final (snx,sny,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