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

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

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


Revision 1.37 - (hide annotations) (download)
Thu Aug 16 04:15:18 2007 UTC (16 years, 10 months ago) by heimbach
Branch: MAIN
Changes since 1.36: +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.37 C $Header: /u/gcmpack/MITgcm/pkg/autodiff/checkpoint_lev3_directives.h,v 1.36 2007/06/01 23:30:16 heimbach Exp $
2 heimbach 1.19 C $Name: $
3 heimbach 1.1 c
4 heimbach 1.36 c store directives for checkpoint level 4
5 heimbach 1.1 c
6     c created: heimbach@mit.edu 10-Jan-2002
7     c
8 heimbach 1.36
9     CADJ STORE StoreDynVars3D = tapelev3, key = ilev_3
10     CADJ STORE StoreDynVars2D = tapelev3, key = ilev_3
11     cnewCADJ STORE ivdconvcount = tapelevx, key = ilev_x
12 heimbach 1.1
13 heimbach 1.37 CADJ STORE TsurfCor = tapelev3, key = ilev_3
14     CADJ STORE SsurfCor = tapelev3, key = ilev_3
15    
16 heimbach 1.12 #ifdef EXACT_CONSERV
17 heimbach 1.20 cphCADJ STORE hDivFlow = tapelev3, key = ilev_3
18 heimbach 1.12 #endif /* EXACT_CONSERV */
19    
20 heimbach 1.1 #ifdef ALLOW_PASSIVE_TRACER
21     CADJ STORE tr1 = tapelev3, key = ilev_3
22     CADJ STORE gtr1nm1 = tapelev3, key = ilev_3
23 heimbach 1.7 #endif /* ALLOW_PASSIVE_TRACER */
24 heimbach 1.15
25 heimbach 1.26 #ifdef NONLIN_FRSURF
26     CADJ STORE hfac_surfc = tapelev3, key = ilev_3
27     CADJ STORE hfac_surfs = tapelev3, key = ilev_3
28     CADJ STORE hfac_surfw = tapelev3, key = ilev_3
29     CADJ STORE hfacc = tapelev3, key = ilev_3
30     CADJ STORE hfacs = tapelev3, key = ilev_3
31     CADJ STORE hfacw = tapelev3, key = ilev_3
32     CADJ STORE recip_hfacc = tapelev3, key = ilev_3
33     CADJ STORE recip_hfacs = tapelev3, key = ilev_3
34     CADJ STORE recip_hfacw = tapelev3, key = ilev_3
35 heimbach 1.29 # ifndef DISABLE_RSTAR_CODE
36     CADJ STORE rstarexpc,rstarexps,rstarexpw
37     CADJ & = tapelev3, key = ilev_3
38     CADJ STORE rstarfacc,rstarfacs,rstarfacw
39     CADJ & = tapelev3, key = ilev_3
40     CADJ STORE rstardhcdt,rstardhsdt,rstardhwdt
41     CADJ & = tapelev3, key = ilev_3
42     CADJ STORE h0facc,h0facs,h0facw
43     CADJ & = tapelev3, key = ilev_3
44     # endif
45 heimbach 1.26 #endif /* NONLIN_FRSURF */
46    
47 heimbach 1.15 #ifdef ALLOW_CD_CODE
48     # include "cd_code_ad_check_lev3_dir.h"
49     #endif /* ALLOW_CD_CODE */
50 heimbach 1.1
51 edhill 1.16 #ifdef ALLOW_EXF
52 heimbach 1.13 # include "exf_ad_check_lev3_dir.h"
53 heimbach 1.36 #endif /* ALLOW_EXF */
54 heimbach 1.3
55 heimbach 1.13 #ifdef ALLOW_PTRACERS
56     # include "ptracers_ad_check_lev3_dir.h"
57 heimbach 1.7 #endif
58    
59 heimbach 1.13 #ifdef ALLOW_OBCS
60     # include "obcs_ad_check_lev3_dir.h"
61 heimbach 1.2 #endif /* ALLOW_OBCS */
62    
63 heimbach 1.7 #ifdef ALLOW_SEAICE
64 heimbach 1.13 # include "seaice_ad_check_lev3_dir.h"
65 heimbach 1.7 #endif /* ALLOW_SEAICE */
66 heimbach 1.19
67 heimbach 1.28 #ifdef ALLOW_THSICE
68     # include "thsice_ad_check_lev3_dir.h"
69 heimbach 1.31 #endif /* ALLOW_THSICE */
70    
71     #ifdef ALLOW_RBCS
72     # include "rbcs_ad_check_lev3_dir.h"
73     #endif /* ALLOW_rbcs */
74 heimbach 1.28
75 heimbach 1.19 #ifdef ALLOW_EBM
76 heimbach 1.22 CADJ STORE fu = tapelev3, key = ilev_3
77     CADJ STORE fv = tapelev3, key = ilev_3
78     CADJ STORE qnet = tapelev3, key = ilev_3
79     CADJ STORE qsw = tapelev3, key = ilev_3
80     CADJ STORE sss = tapelev3, key = ilev_3
81     CADJ STORE empmr = tapelev3, key = ilev_3
82 heimbach 1.19 # include "ebm_ad_check_lev3_dir.h"
83     #endif /* ALLOW_EBM */
84 heimbach 1.23
85 dfer 1.32 #ifdef ALLOW_COST
86 heimbach 1.23 CADJ STORE cMeanTheta = tapelev3, key = ilev_3
87     CADJ STORE cMeanUVel = tapelev3, key = ilev_3
88     CADJ STORE cMeanVVel = tapelev3, key = ilev_3
89 heimbach 1.34 CADJ STORE cMeanThetaUVel = tapelev3, key = ilev_3
90     CADJ STORE cMeanThetaVVel = tapelev3, key = ilev_3
91 heimbach 1.23 #endif
92 heimbach 1.24
93     #ifdef ALLOW_COST_TRACER
94     CADJ STORE objf_tracer = tapelev3, key = ilev_3
95     #endif
96 heimbach 1.30
97     #ifdef ALLOW_COST_TRANSPORT
98     CADJ STORE objf_transport = tapelev3, key = ilev_3
99     #endif

  ViewVC Help
Powered by ViewVC 1.1.22