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

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

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


Revision 1.11 - (hide annotations) (download)
Thu Aug 16 04:15:18 2007 UTC (16 years, 9 months ago) by heimbach
Branch: MAIN
Changes since 1.10: +4 -1 lines
File MIME type: text/plain
Fix TAF problems when including correction code for
source/sink of tracer due to the linear free surface
(S/R CALC_WSURF_TR)
(I had removed the ifndef ALLOW_AUTODIFF_TAMC, thought it was trivial)

1 heimbach 1.11 C $Header: /u/gcmpack/MITgcm/pkg/autodiff/checkpoint_lev4_directives.h,v 1.10 2007/06/01 23:30:16 heimbach Exp $
2 heimbach 1.1 C $Name: $
3     c
4     c store directives for checkpoint level 4
5     c
6     c created: heimbach@mit.edu 10-Jan-2002
7     c
8 heimbach 1.10
9     CADJ STORE StoreDynVars3D = tapelev4, key = ilev_4
10     CADJ STORE StoreDynVars2D = tapelev4, key = ilev_4
11     cnewCADJ STORE ivdconvcount = tapelevx, key = ilev_x
12 heimbach 1.1
13 heimbach 1.11 CADJ STORE TsurfCor = tapelev4, key = ilev_4
14     CADJ STORE SsurfCor = tapelev4, key = ilev_4
15    
16 heimbach 1.1 #ifdef EXACT_CONSERV
17     cphCADJ STORE hDivFlow = tapelev4, key = ilev_4
18     #endif /* EXACT_CONSERV */
19    
20     #ifdef ALLOW_PASSIVE_TRACER
21     CADJ STORE tr1 = tapelev4, key = ilev_4
22     CADJ STORE gtr1nm1 = tapelev4, key = ilev_4
23     #endif /* ALLOW_PASSIVE_TRACER */
24    
25 heimbach 1.3 #ifdef NONLIN_FRSURF
26     CADJ STORE hfac_surfc = tapelev4, key = ilev_4
27     CADJ STORE hfac_surfs = tapelev4, key = ilev_4
28     CADJ STORE hfac_surfw = tapelev4, key = ilev_4
29     CADJ STORE hfacc = tapelev4, key = ilev_4
30     CADJ STORE hfacs = tapelev4, key = ilev_4
31     CADJ STORE hfacw = tapelev4, key = ilev_4
32     CADJ STORE recip_hfacc = tapelev4, key = ilev_4
33     CADJ STORE recip_hfacs = tapelev4, key = ilev_4
34     CADJ STORE recip_hfacw = tapelev4, key = ilev_4
35     # ifndef DISABLE_RSTAR_CODE
36     CADJ STORE rstarexpc,rstarexps,rstarexpw
37     CADJ & = tapelev4, key = ilev_4
38     CADJ STORE rstarfacc,rstarfacs,rstarfacw
39     CADJ & = tapelev4, key = ilev_4
40     CADJ STORE rstardhcdt,rstardhsdt,rstardhwdt
41     CADJ & = tapelev4, key = ilev_4
42     CADJ STORE h0facc,h0facs,h0facw
43     CADJ & = tapelev4, key = ilev_4
44     # endif
45     #endif /* NONLIN_FRSURF */
46    
47 heimbach 1.1 #ifdef ALLOW_CD_CODE
48     # include "cd_code_ad_check_lev4_dir.h"
49     #endif /* ALLOW_CD_CODE */
50    
51     #ifdef ALLOW_EXF
52     # include "exf_ad_check_lev4_dir.h"
53 heimbach 1.10 #endif /* ALLOW_EXF */
54 heimbach 1.1
55     #ifdef ALLOW_PTRACERS
56     # include "ptracers_ad_check_lev4_dir.h"
57     #endif
58    
59     #ifdef ALLOW_OBCS
60     # include "obcs_ad_check_lev4_dir.h"
61     #endif /* ALLOW_OBCS */
62    
63     #ifdef ALLOW_SEAICE
64     # include "seaice_ad_check_lev4_dir.h"
65     #endif /* ALLOW_SEAICE */
66    
67 heimbach 1.5 #ifdef ALLOW_THSICE
68     # include "thsice_ad_check_lev4_dir.h"
69     #endif /* ALLOW_THSICE */
70    
71     #ifdef ALLOW_RBCS
72     # include "rbcs_ad_check_lev4_dir.h"
73     #endif /* ALLOW_rbcs */
74    
75 heimbach 1.1 #ifdef ALLOW_EBM
76     CADJ STORE fu = tapelev4, key = ilev_4
77     CADJ STORE fv = tapelev4, key = ilev_4
78     CADJ STORE qnet = tapelev4, key = ilev_4
79     CADJ STORE qsw = tapelev4, key = ilev_4
80     CADJ STORE sss = tapelev4, key = ilev_4
81     CADJ STORE empmr = tapelev4, key = ilev_4
82     # include "ebm_ad_check_lev4_dir.h"
83     #endif /* ALLOW_EBM */
84    
85 dfer 1.6 #ifdef ALLOW_COST
86 heimbach 1.1 CADJ STORE cMeanTheta = tapelev4, key = ilev_4
87     CADJ STORE cMeanUVel = tapelev4, key = ilev_4
88     CADJ STORE cMeanVVel = tapelev4, key = ilev_4
89 heimbach 1.8 CADJ STORE cMeanThetaUVel = tapelev4, key = ilev_4
90     CADJ STORE cMeanThetaVVel = tapelev4, key = ilev_4
91 heimbach 1.1 #endif
92    
93     #ifdef ALLOW_COST_TRACER
94     CADJ STORE objf_tracer = tapelev4, key = ilev_4
95     #endif
96 heimbach 1.4
97     #ifdef ALLOW_COST_TRANSPORT
98     CADJ STORE objf_transport = tapelev4, key = ilev_4
99     #endif

  ViewVC Help
Powered by ViewVC 1.1.22