/[MITgcm]/MITgcm/pkg/autodiff/checkpoint_lev2_directives.h
ViewVC logotype

Annotation of /MITgcm/pkg/autodiff/checkpoint_lev2_directives.h

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

Revision 1.2 - (hide annotations) (download)
Thu Feb 7 20:00:09 2002 UTC (22 years, 4 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint44e_post, checkpoint46l_post, checkpoint46g_pre, checkpoint46f_post, checkpoint44f_post, checkpoint46b_post, checkpoint46l_pre, chkpt44d_post, checkpoint44e_pre, checkpoint46d_pre, checkpoint45d_post, checkpoint46j_pre, checkpoint44h_pre, checkpoint46a_post, checkpoint46j_post, checkpoint46k_post, chkpt44c_pre, checkpoint45a_post, checkpoint44g_post, checkpoint46e_pre, checkpoint45b_post, checkpoint46b_pre, release1_final_v1, checkpoint46c_pre, checkpoint46, checkpoint44b_post, checkpoint46h_pre, checkpoint46m_post, checkpoint46a_pre, checkpoint45c_post, checkpoint44h_post, checkpoint46g_post, checkpoint46i_post, checkpoint46c_post, checkpoint46e_post, checkpoint45, checkpoint46h_post, chkpt44c_post, checkpoint44f_pre, checkpoint46d_post
Branch point for: release1_final, release1
Changes since 1.1: +28 -0 lines
File MIME type: text/plain 
o merge of relevant stuff from the ecco-branch:
  - genmake: removed $S64 overwrite for case SunOS
  - pkg/exf: update and corrections for field swapping and obcs
  - pkg/ecco: parameter lists for the_model_main, the_main_loop
              harmonized between ECCO and MITgcm
  - pkg/autodiff: added flow directives for obcs, mdsio_gl_slice
                  updated checkpointing_lev... lists for obcs
  - model/src: minor changes in forward_step, plot_field
               added directive for divided adjoint in the_main_loop
  - pkg/mdsio: added mdsio_gl_slice
1 heimbach 1.1 c
2     c store directives for checkpoint level 2
3     c
4     c created: heimbach@mit.edu 10-Jan-2002
5     c
6     CADJ STORE gsnm1 = tapelev2, key = ilev_2
7     CADJ STORE gtnm1 = tapelev2, key = ilev_2
8     CADJ STORE gunm1 = tapelev2, key = ilev_2
9     CADJ STORE gvnm1 = tapelev2, key = ilev_2
10     CADJ STORE theta = tapelev2, key = ilev_2
11     CADJ STORE salt = tapelev2, key = ilev_2
12     CADJ STORE uvel = tapelev2, key = ilev_2
13     CADJ STORE vvel = tapelev2, key = ilev_2
14     CADJ STORE wvel = tapelev2, key = ilev_2
15     CADJ STORE etan = tapelev2, key = ilev_2
16     CADJ STORE gu = tapelev2, key = ilev_2
17     CADJ STORE gv = tapelev2, key = ilev_2
18    
19     #ifdef INCLUDE_CD_CODE
20     CADJ STORE uveld = tapelev2, key = ilev_2
21     CADJ STORE vveld = tapelev2, key = ilev_2
22     CADJ STORE etanm1 = tapelev2, key = ilev_2
23     CADJ STORE unm1 = tapelev2, key = ilev_2
24     CADJ STORE vnm1 = tapelev2, key = ilev_2
25     CADJ STORE gucd = tapelev2, key = ilev_2
26     CADJ STORE gvcd = tapelev2, key = ilev_2
27     #endif
28    
29     #ifdef ALLOW_PASSIVE_TRACER
30     CADJ STORE tr1 = tapelev2, key = ilev_2
31     CADJ STORE gtr1nm1 = tapelev2, key = ilev_2
32     #endif
33    
34     #ifdef EXACT_CONSERV
35     CADJ STORE etaH = tapelev2, key = ilev_2
36     CADJ STORE hDivFlow = tapelev2, key = ilev_2
37     #endif
38    
39     #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
40     # ifdef ALLOW_ATM_TEMP
41     CADJ STORE aqh0 = tapelev2, key = ilev_2
42     CADJ STORE aqh1 = tapelev2, key = ilev_2
43     CADJ STORE atemp0 = tapelev2, key = ilev_2
44     CADJ STORE atemp1 = tapelev2, key = ilev_2
45     CADJ STORE precip0 = tapelev2, key = ilev_2
46     CADJ STORE precip1 = tapelev2, key = ilev_2
47     CADJ STORE lwflux0 = tapelev2, key = ilev_2
48     CADJ STORE lwflux1 = tapelev2, key = ilev_2
49     CADJ STORE swflux0 = tapelev2, key = ilev_2
50     CADJ STORE swflux1 = tapelev2, key = ilev_2
51     # else
52     CADJ STORE hflux0 = tapelev2, key = ilev_2
53     CADJ STORE hflux1 = tapelev2, key = ilev_2
54     CADJ STORE sflux0 = tapelev2, key = ilev_2
55     CADJ STORE sflux1 = tapelev2, key = ilev_2
56     # ifdef ALLOW_KPP
57     CADJ STORE swflux0 = tapelev2, key = ilev_2
58     CADJ STORE swflux1 = tapelev2, key = ilev_2
59     # endif
60     # endif /* ALLOW_ATM_TEMP */
61     # ifdef ALLOW_ATM_WIND
62     CADJ STORE uwind0 = tapelev2, key = ilev_2
63     CADJ STORE uwind1 = tapelev2, key = ilev_2
64     CADJ STORE vwind0 = tapelev2, key = ilev_2
65     CADJ STORE vwind1 = tapelev2, key = ilev_2
66     # else
67     CADJ STORE ustress0 = tapelev2, key = ilev_2
68     CADJ STORE ustress1 = tapelev2, key = ilev_2
69     CADJ STORE vstress0 = tapelev2, key = ilev_2
70     CADJ STORE vstress1 = tapelev2, key = ilev_2
71     # endif /* ALLOW_ATM_WIND */
72     #endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */
73 heimbach 1.2
74     #ifdef ALLOW_OBCS
75     #ifdef ALLOW_OBCS_NORTH
76     CADJ STORE OBNu = tapelev2, key = ilev_2
77     CADJ STORE OBNv = tapelev2, key = ilev_2
78     CADJ STORE OBNt = tapelev2, key = ilev_2
79     CADJ STORE OBNs = tapelev2, key = ilev_2
80     #endif /* ALLOW_OBCS_NORTH */
81     #ifdef ALLOW_OBCS_SOUTH
82     CADJ STORE OBSu = tapelev2, key = ilev_2
83     CADJ STORE OBSv = tapelev2, key = ilev_2
84     CADJ STORE OBSt = tapelev2, key = ilev_2
85     CADJ STORE OBSs = tapelev2, key = ilev_2
86     #endif /* ALLOW_OBCS_SOUTH */
87     #ifdef ALLOW_OBCS_EAST
88     CADJ STORE OBEu = tapelev2, key = ilev_2
89     CADJ STORE OBEv = tapelev2, key = ilev_2
90     CADJ STORE OBEt = tapelev2, key = ilev_2
91     CADJ STORE OBEs = tapelev2, key = ilev_2
92     #endif /* ALLOW_OBCS_EAST */
93     #ifdef ALLOW_OBCS_WEST
94     CADJ STORE OBWu = tapelev2, key = ilev_2
95     CADJ STORE OBWv = tapelev2, key = ilev_2
96     CADJ STORE OBWt = tapelev2, key = ilev_2
97     CADJ STORE OBWs = tapelev2, key = ilev_2
98     #endif /* ALLOW_OBCS_WEST */
99     #endif /* ALLOW_OBCS */
100    
  ViewVC Help
Powered by ViewVC 1.1.22