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

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

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

Revision 1.2 - (show 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 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
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