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

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

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

revision 1.1 by heimbach, Thu Oct 2 21:26:06 2003 UTC revision 1.2 by heimbach, Thu Nov 6 22:03:49 2003 UTC
# Line 5  c     ================================== Line 5  c     ==================================
5  c  c
6  c     o Header for model-data comparison; adjoint part.  c     o Header for model-data comparison; adjoint part.
7  c  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  
8  c     started: Christian Eckert eckert@mit.edu  06-Apr-2000  c     started: Christian Eckert eckert@mit.edu  06-Apr-2000
 c  
9  c     changed: Christian Eckert eckert@mit.edu  c     changed: Christian Eckert eckert@mit.edu
10  c  c     heimbach@mit.edu 5-Nov-2003 retain only adfc
11  c  c
12  c     ==================================================================  c     ==================================================================
13  c     HEADER G_COST  c     HEADER G_COST
14  c     ==================================================================  c     ==================================================================
15    
16        common /g_cost_r/        common /g_cost_r/
17       &                  g_fc,       &                  g_fc
      &                  g_objf_hflux,  
      &                  g_objf_sflux,  
      &                  g_objf_tauu,  
      &                  g_objf_tauv,  
      &                  g_objf_hmean,  
      &                  g_objf_h,  
      &                  g_objf_temp,  
      &                  g_objf_salt,  
      &                  g_objf_sst,  
      &                  g_objf_ctds,  
      &                  g_objf_ctdt  
18        _RL  g_fc        _RL  g_fc
       _RL  g_objf_hflux   (nsx,nsy)  
       _RL  g_objf_sflux   (nsx,nsy)  
       _RL  g_objf_tauu (nsx,nsy)  
       _RL  g_objf_tauv (nsx,nsy)  
       _RL  g_objf_hmean  
       _RL  g_objf_h    (nsx,nsy)  
       _RL  g_objf_temp (nsx,nsy)  
       _RL  g_objf_salt (nsx,nsy)  
       _RL  g_objf_sst  (nsx,nsy)  
       _RL  g_objf_ctds (nsx,nsy)  
       _RL  g_objf_ctdt (nsx,nsy)  
19    
20  #ifdef ALLOW_COST_STATE_FINAL  #ifdef ALLOW_COST_STATE_FINAL
21        common /g_cost_state_final_r/        common /g_cost_state_final_r/
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22