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

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

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


Revision 1.2 - (show annotations) (download)
Thu Jan 17 17:03:34 2002 UTC (22 years, 3 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint46n_post, checkpoint47e_post, checkpoint44e_post, checkpoint46l_post, checkpoint46g_pre, checkpoint47c_post, checkpoint50c_post, checkpoint46f_post, checkpoint48e_post, checkpoint50c_pre, checkpoint44f_post, checkpoint46b_post, checkpoint48i_post, checkpoint46l_pre, chkpt44d_post, checkpoint51, checkpoint50, checkpoint50d_post, checkpoint50b_pre, checkpoint44e_pre, checkpoint51f_post, checkpoint48b_post, checkpoint51d_post, checkpoint48c_pre, checkpoint47d_pre, checkpoint47a_post, checkpoint48d_pre, checkpoint47i_post, checkpoint47d_post, checkpoint46d_pre, checkpoint48d_post, checkpoint48f_post, checkpoint45d_post, checkpoint46j_pre, chkpt44a_post, checkpoint44h_pre, checkpoint48h_post, checkpoint51b_pre, checkpoint46a_post, checkpoint47g_post, checkpoint46j_post, checkpoint46k_post, chkpt44c_pre, checkpoint48a_post, checkpoint45a_post, checkpoint50f_post, checkpoint50a_post, checkpoint50f_pre, checkpoint47j_post, branch-exfmods-tag, checkpoint44g_post, branchpoint-genmake2, checkpoint46e_pre, checkpoint48c_post, checkpoint45b_post, checkpoint46b_pre, release1_final_v1, checkpoint51b_post, checkpoint51c_post, checkpoint46c_pre, checkpoint46, checkpoint47b_post, checkpoint44b_post, checkpoint46h_pre, checkpoint46m_post, checkpoint46a_pre, checkpoint50g_post, checkpoint45c_post, checkpoint44h_post, checkpoint46g_post, checkpoint50h_post, checkpoint50e_pre, checkpoint50i_post, checkpoint47f_post, checkpoint50e_post, chkpt44a_pre, checkpoint46i_post, checkpoint46c_post, checkpoint50d_pre, checkpoint46e_post, checkpoint51e_post, checkpoint44b_pre, checkpoint47, checkpoint44, checkpoint45, checkpoint48, checkpoint49, checkpoint46h_post, checkpoint51f_pre, chkpt44c_post, checkpoint48g_post, checkpoint47h_post, checkpoint44f_pre, checkpoint46d_post, checkpoint50b_post, checkpoint51a_post
Branch point for: branch-exfmods-curt, release1_final, branch-genmake2
Changes since 1.1: +6 -0 lines
File MIME type: text/plain
* added Atlantic heat transport cost function
* added vector-valued cost function
...and corresponding options.

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 The individual cost function contributions are multiplied by
9 c factors mult_"var" which allow to switch off these contributions
10 c without removing them in the adjoint code. This is useful for
11 c doing tests with the adjoint and perhaps useful in assimilation
12 c experiments where individual contributions are successively
13 c switched on. For future applications it would be better to place
14 c the initialisation of the multipliers somewhere else, for example
15 c in a namelist, which is read in at the start of the model.
16 c
17 c started: Christian Eckert eckert@mit.edu 06-Apr-2000
18 c
19 c changed: Christian Eckert eckert@mit.edu
20 c
21 c
22 c ==================================================================
23 c HEADER ADCOST
24 c ==================================================================
25
26 common /adcost_r/
27 & adfc,
28 & adobjf_hflux,
29 & adobjf_sflux,
30 & adobjf_tauu,
31 & adobjf_tauv,
32 & adobjf_hmean,
33 & adobjf_h,
34 & adobjf_temp,
35 & adobjf_salt,
36 & adobjf_sst,
37 & adobjf_ctds,
38 & adobjf_ctdt
39 _RL adfc
40 _RL adobjf_hflux (nsx,nsy)
41 _RL adobjf_sflux (nsx,nsy)
42 _RL adobjf_tauu (nsx,nsy)
43 _RL adobjf_tauv (nsx,nsy)
44 _RL adobjf_hmean
45 _RL adobjf_h (nsx,nsy)
46 _RL adobjf_temp (nsx,nsy)
47 _RL adobjf_salt (nsx,nsy)
48 _RL adobjf_sst (nsx,nsy)
49 _RL adobjf_ctds (nsx,nsy)
50 _RL adobjf_ctdt (nsx,nsy)
51
52 #ifdef ALLOW_COST_VECTOR
53 common /adcost_array/
54 & adobjf_vector
55 _RL adobjf_vector(snx,nsx,nsy)
56 #endif
57
58 c ==================================================================
59 c END OF HEADER ADCOST
60 c ==================================================================
61

  ViewVC Help
Powered by ViewVC 1.1.22