pkg/cost/adcost.h


c     ==================================================================
c     HEADER ADCOST
c     ==================================================================
c
c     o Header for model-data comparison; adjoint part.
c
c     The individual cost function contributions are multiplied by
c     factors mult_"var" which allow to switch off these contributions
c     without removing them in the adjoint code. This is useful for
c     doing tests with the adjoint and perhaps useful in assimilation
c     experiments where individual contributions are successively
c     switched on. For future applications it would be better to place
c     the initialisation of the multipliers somewhere else, for example
c     in a namelist, which is read in at the start of the model.
c
c     started: Christian Eckert eckert@mit.edu  06-Apr-2000
c
c     changed: Christian Eckert eckert@mit.edu
c
c
c     ==================================================================
c     HEADER ADCOST
c     ==================================================================

      common /adcost_r/
     &                  adfc,
     &                  adobjf_hflux,
     &                  adobjf_sflux,
     &                  adobjf_tauu,
     &                  adobjf_tauv,
     &                  adobjf_hmean,
     &                  adobjf_h,
     &                  adobjf_temp,
     &                  adobjf_salt,
     &                  adobjf_sst,
     &                  adobjf_ctds,
     &                  adobjf_ctdt
      _RL  adfc
      _RL  adobjf_hflux   (nsx,nsy)
      _RL  adobjf_sflux   (nsx,nsy)
      _RL  adobjf_tauu (nsx,nsy)
      _RL  adobjf_tauv (nsx,nsy)
      _RL  adobjf_hmean
      _RL  adobjf_h    (nsx,nsy)
      _RL  adobjf_temp (nsx,nsy)
      _RL  adobjf_salt (nsx,nsy)
      _RL  adobjf_sst  (nsx,nsy)
      _RL  adobjf_ctds (nsx,nsy)
      _RL  adobjf_ctdt (nsx,nsy)

c     ==================================================================
c     END OF HEADER ADCOST
c     ==================================================================

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	c ==================================================================
53	c END OF HEADER ADCOST
54	c ==================================================================
55