MITgcm |
|
|
|
|||
File indexing completed on 2018-03-02 18:38:33 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC1e7adfddf9 Patr*0001 c ================================================================== 0002 c HEADER G_COST 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 1e7adfddf9 Patr*0010 c 0011 c ================================================================== 0012 c HEADER G_COST 0013 c ================================================================== 0014 0015 common /g_cost_r/ 2f1693fad8 Patr*0016 & g_fc 1e7adfddf9 Patr*0017 _RL g_fc 0018 0019 #ifdef ALLOW_COST_STATE_FINAL 0020 common /g_cost_state_final_r/ 0021 & g_objf_state_final a8da18f773 Patr*0022 cph _RL g_objf_state_final (snx,sny,nsx,nsy) a7be24eb39 Patr*0023 _RL g_objf_state_final (snx,sny,nsx,nsy,4*Nr+1) 1e7adfddf9 Patr*0024 #endif 0025 0026 #ifdef ALLOW_COST_VECTOR 0027 common /g_cost_vector_r/ 0028 & g_objf_vector 0029 _RL g_objf_vector(snx,nsx,nsy) 0030 #endif 0031 0032 c ================================================================== 0033 c END OF HEADER G_COST 0034 c ================================================================== 0035
| [ 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 |
|