Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:38:31 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
2dcaa8b9a5 Patr*0001 c     ==================================================================
                0002 c     HEADER ADCOST
                0003 c     ==================================================================
                0004 c
                0005 c     o Header for model-data comparison; adjoint part.
                0006 c
                0007 c     started: Christian Eckert eckert@mit.edu  06-Apr-2000
                0008 c     changed: Christian Eckert eckert@mit.edu
2f1693fad8 Patr*0009 c     heimbach@mit.edu 5-Nov-2003 retain only adfc
2dcaa8b9a5 Patr*0010 c
                0011 c     ==================================================================
                0012 c     HEADER ADCOST
                0013 c     ==================================================================
                0014 
                0015       common /adcost_r/
2f1693fad8 Patr*0016      &                  adfc
2dcaa8b9a5 Patr*0017       _RL  adfc
                0018 
9eb96e5404 Patr*0019 #ifdef ALLOW_COST_STATE_FINAL
                0020       common /adcost_state_final_r/
                0021      &                adobjf_state_final
a8da18f773 Patr*0022 cph      _RL  adobjf_state_final (snx,sny,nsx,nsy)
a7be24eb39 Patr*0023       _RL  adobjf_state_final (snx,sny,nsx,nsy,4*Nr+1)
9eb96e5404 Patr*0024 #endif
                0025 
720be40b89 Patr*0026 #ifdef ALLOW_COST_VECTOR
9eb96e5404 Patr*0027       common /adcost_vector_r/
720be40b89 Patr*0028      &                  adobjf_vector
                0029       _RL  adobjf_vector(snx,nsx,nsy)
                0030 #endif
                0031 
1826cda3a0 Patr*0032 #ifdef ALLOW_DIC
                0033          COMMON /addic_cost_ctrl/
                0034      &    adtotcost
                0035       _RL  adtotcost
                0036 #endif
                0037 
2dcaa8b9a5 Patr*0038 c     ==================================================================
                0039 c     END OF HEADER ADCOST
                0040 c     ==================================================================
                0041