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 UTC2dcaa8b9a5 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
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team |
|