/[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.30 - (hide annotations) (download)
Wed Jun 7 01:55:13 2006 UTC (18 years ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint58k_post, checkpoint58h_post, checkpoint58j_post, checkpoint58i_post
Changes since 1.29: +5 -1 lines
File MIME type: text/plain 
Modifications for bottom topography control
o replace hFacC by _hFacC at various places
o replace ALLOW_HFACC_CONTROL by ALLOW_DEPTH_CONTROL
o add non-self-adjoint cg2d_nsa
o update autodiff support routines
o re-initialise hfac after ctrl_depth_ini
o works for 5x5 box, doesnt work for global_ocean.90x40x15
1 heimbach 1.30 C $Header: /u/gcmpack/MITgcm/pkg/autodiff/checkpoint_lev2_directives.h,v 1.29 2006/05/03 23:35:38 heimbach Exp $
2 heimbach 1.19 C $Name: $
3 heimbach 1.1 c
4     c store directives for checkpoint level 2
5     c
6     c created: heimbach@mit.edu 10-Jan-2002
7     c
8 heimbach 1.22 CADJ STORE gs = tapelev2, key = ilev_2
9     CADJ STORE gt = tapelev2, key = ilev_2
10 heimbach 1.1 CADJ STORE gsnm1 = tapelev2, key = ilev_2
11     CADJ STORE gtnm1 = tapelev2, key = ilev_2
12     CADJ STORE gunm1 = tapelev2, key = ilev_2
13     CADJ STORE gvnm1 = tapelev2, key = ilev_2
14     CADJ STORE theta = tapelev2, key = ilev_2
15     CADJ STORE salt = tapelev2, key = ilev_2
16     CADJ STORE uvel = tapelev2, key = ilev_2
17     CADJ STORE vvel = tapelev2, key = ilev_2
18     CADJ STORE wvel = tapelev2, key = ilev_2
19     CADJ STORE etan = tapelev2, key = ilev_2
20 heimbach 1.6 CADJ STORE totphihyd = tapelev2, key = ilev_2
21 heimbach 1.22 CADJ STORE surfaceforcingTice = tapelev2, key = ilev_2
22     cnewCADJ STORE ivdconvcount = tapelev2, key = ilev_2
23 heimbach 1.1
24 heimbach 1.12 #ifdef EXACT_CONSERV
25 heimbach 1.13 CADJ STORE etaH = tapelev2, key = ilev_2
26 heimbach 1.20 CADJ STORE dEtaHdt = tapelev2, key = ilev_2
27 heimbach 1.22 CADJ STORE PmEpR = tapelev2, key = ilev_2
28 heimbach 1.20 cphCADJ STORE hDivFlow = tapelev2, key = ilev_2
29 heimbach 1.12 #endif /* EXACT_CONSERV */
30    
31 heimbach 1.1 #ifdef ALLOW_PASSIVE_TRACER
32     CADJ STORE tr1 = tapelev2, key = ilev_2
33     CADJ STORE gtr1nm1 = tapelev2, key = ilev_2
34 heimbach 1.7 #endif /* ALLOW_PASSIVE_TRACER */
35 heimbach 1.15
36 heimbach 1.26 #ifdef NONLIN_FRSURF
37     CADJ STORE hfac_surfc = tapelev2, key = ilev_2
38     CADJ STORE hfac_surfs = tapelev2, key = ilev_2
39     CADJ STORE hfac_surfw = tapelev2, key = ilev_2
40     CADJ STORE hfacc = tapelev2, key = ilev_2
41     CADJ STORE hfacs = tapelev2, key = ilev_2
42     CADJ STORE hfacw = tapelev2, key = ilev_2
43     CADJ STORE recip_hfacc = tapelev2, key = ilev_2
44     CADJ STORE recip_hfacs = tapelev2, key = ilev_2
45     CADJ STORE recip_hfacw = tapelev2, key = ilev_2
46 heimbach 1.29 # ifndef DISABLE_RSTAR_CODE
47     CADJ STORE rstarexpc,rstarexps,rstarexpw
48     CADJ & = tapelev2, key = ilev_2
49     CADJ STORE rstarfacc,rstarfacs,rstarfacw
50     CADJ & = tapelev2, key = ilev_2
51     CADJ STORE rstardhcdt,rstardhsdt,rstardhwdt
52     CADJ & = tapelev2, key = ilev_2
53     CADJ STORE h0facc,h0facs,h0facw
54     CADJ & = tapelev2, key = ilev_2
55     # endif
56 heimbach 1.26 #endif /* NONLIN_FRSURF */
57    
58 heimbach 1.15 #ifdef ALLOW_CD_CODE
59     # include "cd_code_ad_check_lev2_dir.h"
60     #endif /* ALLOW_CD_CODE */
61 heimbach 1.1
62 edhill 1.16 #ifdef ALLOW_EXF
63 heimbach 1.13 # include "exf_ad_check_lev2_dir.h"
64 edhill 1.16 #else /* ALLOW_EXF undef */
65 heimbach 1.3
66     CADJ STORE taux0 = tapelev2, key = ilev_2
67     CADJ STORE taux1 = tapelev2, key = ilev_2
68     CADJ STORE tauy0 = tapelev2, key = ilev_2
69     CADJ STORE tauy1 = tapelev2, key = ilev_2
70     CADJ STORE Qnet0 = tapelev2, key = ilev_2
71     CADJ STORE Qnet1 = tapelev2, key = ilev_2
72     CADJ STORE EmPmR0 = tapelev2, key = ilev_2
73     CADJ STORE EmPmR1 = tapelev2, key = ilev_2
74     CADJ STORE SST0 = tapelev2, key = ilev_2
75     CADJ STORE SST1 = tapelev2, key = ilev_2
76     CADJ STORE SSS0 = tapelev2, key = ilev_2
77     CADJ STORE SSS1 = tapelev2, key = ilev_2
78 heimbach 1.25 CADJ STORE saltFlux0 = tapelev2, key = ilev_2
79     CADJ STORE saltFlux1 = tapelev2, key = ilev_2
80 heimbach 1.4 #ifdef SHORTWAVE_HEATING
81 heimbach 1.3 CADJ STORE Qsw0 = tapelev2, key = ilev_2
82     CADJ STORE Qsw1 = tapelev2, key = ilev_2
83 heimbach 1.4 #endif
84     #ifdef ATMOSPHERIC_LOADING
85     CADJ STORE pload0 = tapelev2, key = ilev_2
86     CADJ STORE pload1 = tapelev2, key = ilev_2
87     #endif
88 heimbach 1.3
89 edhill 1.16 #endif /* ALLOW_EXF */
90 heimbach 1.2
91 heimbach 1.13 #ifdef ALLOW_PTRACERS
92     # include "ptracers_ad_check_lev2_dir.h"
93     #endif /* ALLOW_PTRACERS */
94    
95 heimbach 1.2 #ifdef ALLOW_OBCS
96 heimbach 1.13 # include "obcs_ad_check_lev2_dir.h"
97 heimbach 1.2 #endif /* ALLOW_OBCS */
98 heimbach 1.7
99     #ifdef ALLOW_SEAICE
100 heimbach 1.13 # include "seaice_ad_check_lev2_dir.h"
101 heimbach 1.7 #endif /* ALLOW_SEAICE */
102 heimbach 1.2
103 heimbach 1.28 #ifdef ALLOW_THSICE
104     # include "thsice_ad_check_lev2_dir.h"
105     #endif /* ALLOW_SEAICE */
106    
107 heimbach 1.19 #ifdef ALLOW_EBM
108 heimbach 1.22 CADJ STORE fu = tapelev2, key = ilev_2
109     CADJ STORE fv = tapelev2, key = ilev_2
110     CADJ STORE qnet = tapelev2, key = ilev_2
111     CADJ STORE qsw = tapelev2, key = ilev_2
112     CADJ STORE sss = tapelev2, key = ilev_2
113     CADJ STORE empmr = tapelev2, key = ilev_2
114 heimbach 1.19 # include "ebm_ad_check_lev2_dir.h"
115     #endif /* ALLOW_ebm */
116 heimbach 1.23
117 heimbach 1.27 #if (defined (ALLOW_COST_TEST) || defined (ALLOW_COST_ATLANTIC_HEAT))
118 heimbach 1.23 CADJ STORE cMeanTheta = tapelev2, key = ilev_2
119     CADJ STORE cMeanUVel = tapelev2, key = ilev_2
120     CADJ STORE cMeanVVel = tapelev2, key = ilev_2
121     #endif
122 heimbach 1.24
123     #ifdef ALLOW_COST_TRACER
124     CADJ STORE objf_tracer = tapelev2, key = ilev_2
125     #endif
126 heimbach 1.30
127     #ifdef ALLOW_COST_TRANSPORT
128     CADJ STORE objf_transport = tapelev2, key = ilev_2
129     #endif
  ViewVC Help
Powered by ViewVC 1.1.22