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

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

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

revision 1.25 by heimbach, Wed Jan 19 16:13:53 2005 UTC revision 1.43 by heimbach, Sun May 24 17:55:54 2009 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3  c  c
4  c     store directives for checkpoint level 2  c     store directives for checkpoint level 4
5  c  c
6  c     created: heimbach@mit.edu 10-Jan-2002  c     created: heimbach@mit.edu 10-Jan-2002
7  c  c
8  CADJ STORE gs        = tapelev2, key = ilev_2  #ifdef AUTODIFF_USE_OLDSTORE_2D
9  CADJ STORE gt        = tapelev2, key = ilev_2  c
10  CADJ STORE gsnm1     = tapelev2, key = ilev_2  CADJ STORE etan  = tapelev2, key = ilev_2
 CADJ STORE gtnm1     = tapelev2, key = ilev_2  
 CADJ STORE gunm1     = tapelev2, key = ilev_2  
 CADJ STORE gvnm1     = tapelev2, key = ilev_2  
 CADJ STORE theta     = tapelev2, key = ilev_2  
 CADJ STORE salt      = tapelev2, key = ilev_2  
 CADJ STORE uvel      = tapelev2, key = ilev_2  
 CADJ STORE vvel      = tapelev2, key = ilev_2  
 CADJ STORE wvel      = tapelev2, key = ilev_2  
 CADJ STORE etan      = tapelev2, key = ilev_2  
 CADJ STORE totphihyd = tapelev2, key = ilev_2  
11  CADJ STORE surfaceforcingTice = tapelev2, key = ilev_2  CADJ STORE surfaceforcingTice = tapelev2, key = ilev_2
12  cnewCADJ STORE ivdconvcount       = tapelev2, key = ilev_2  CADJ STORE taux0 = tapelev2, key = ilev_2
13    CADJ STORE taux1 = tapelev2, key = ilev_2
14    CADJ STORE tauy0 = tapelev2, key = ilev_2
15    CADJ STORE tauy1 = tapelev2, key = ilev_2
16    CADJ STORE qnet0 = tapelev2, key = ilev_2
17    CADJ STORE qnet1 = tapelev2, key = ilev_2
18    CADJ STORE empmr0 = tapelev2, key = ilev_2
19    CADJ STORE empmr1 = tapelev2, key = ilev_2
20    CADJ STORE sst0 = tapelev2, key = ilev_2
21    CADJ STORE sst1 = tapelev2, key = ilev_2
22    CADJ STORE sss0 = tapelev2, key = ilev_2
23    CADJ STORE sss1 = tapelev2, key = ilev_2
24    CADJ STORE saltflux0 = tapelev2, key = ilev_2
25    CADJ STORE saltflux1 = tapelev2, key = ilev_2
26    #ifdef SHORTWAVE_HEATING
27    CADJ STORE qsw0 = tapelev2, key = ilev_2
28    CADJ STORE qsw1 = tapelev2, key = ilev_2
29    #endif
30    #ifdef ATMOSPHERIC_LOADING
31    CADJ STORE pload0 = tapelev2, key = ilev_2
32    CADJ STORE pload1 = tapelev2, key = ilev_2
33    #endif
34    #ifdef EXACT_CONSERV
35    CADJ STORE etaH = tapelev2, key = ilev_2
36    CADJ STORE dEtaHdt = tapelev2, key = ilev_2
37    CADJ STORE PmEpR = tapelev2, key = ilev_2
38    #endif
39    c
40    #else /* ndef AUTODIFF_USE_OLDSTORE_2D */
41    c
42    CADJ STORE StoreDynVars2D     = tapelev2, key = ilev_2
43    c
44    #endif /* AUTODIFF_USE_OLDSTORE_2D */
45    c
46    #ifdef AUTODIFF_USE_OLDSTORE_3D
47    c
48    CADJ STORE gs  = tapelev2, key = ilev_2
49    CADJ STORE gt  = tapelev2, key = ilev_2            
50    CADJ STORE gtnm1  = tapelev2, key = ilev_2            
51    CADJ STORE gsnm1  = tapelev2, key = ilev_2            
52    CADJ STORE gunm1  = tapelev2, key = ilev_2            
53    CADJ STORE gvnm1  = tapelev2, key = ilev_2            
54    CADJ STORE theta  = tapelev2, key = ilev_2            
55    CADJ STORE salt  = tapelev2, key = ilev_2            
56    CADJ STORE uvel  = tapelev2, key = ilev_2            
57    CADJ STORE vvel  = tapelev2, key = ilev_2    
58    CADJ STORE wvel  = tapelev2, key = ilev_2
59    CADJ STORE totphihyd  = tapelev2, key = ilev_2
60    c
61    #else /* ndef AUTODIFF_USE_OLDSTORE_3D */
62    c
63    CADJ STORE StoreDynVars3D     = tapelev2, key = ilev_2
64    c
65    #endif /* AUTODIFF_USE_OLDSTORE_3D */
66    
67    cnewCADJ STORE ivdconvcount       = tapelevx, key = ilev_x
68    
69  #ifdef EXACT_CONSERV  #ifdef EXACT_CONSERV
 CADJ STORE etaH      = tapelev2, key = ilev_2  
 CADJ STORE dEtaHdt   = tapelev2, key = ilev_2  
 CADJ STORE PmEpR     = tapelev2, key = ilev_2  
70  cphCADJ STORE hDivFlow  = tapelev2, key = ilev_2  cphCADJ STORE hDivFlow  = tapelev2, key = ilev_2
71  #endif /* EXACT_CONSERV */  #endif /* EXACT_CONSERV */
72    
# Line 33  CADJ STORE tr1       = tapelev2, key = i Line 75  CADJ STORE tr1       = tapelev2, key = i
75  CADJ STORE gtr1nm1   = tapelev2, key = ilev_2  CADJ STORE gtr1nm1   = tapelev2, key = ilev_2
76  #endif /* ALLOW_PASSIVE_TRACER */  #endif /* ALLOW_PASSIVE_TRACER */
77    
78    #ifdef NONLIN_FRSURF
79    CADJ STORE hfac_surfc    = tapelev2, key = ilev_2
80    CADJ STORE hfac_surfs    = tapelev2, key = ilev_2
81    CADJ STORE hfac_surfw    = tapelev2, key = ilev_2
82    CADJ STORE hfacc         = tapelev2, key = ilev_2
83    CADJ STORE hfacs         = tapelev2, key = ilev_2
84    CADJ STORE hfacw         = tapelev2, key = ilev_2
85    CADJ STORE recip_hfacc   = tapelev2, key = ilev_2
86    CADJ STORE recip_hfacs   = tapelev2, key = ilev_2
87    CADJ STORE recip_hfacw   = tapelev2, key = ilev_2
88    # ifndef DISABLE_RSTAR_CODE
89    CADJ STORE rstarexpc,rstarexps,rstarexpw
90    CADJ &     = tapelev2, key = ilev_2
91    CADJ STORE rstarfacc,rstarfacs,rstarfacw
92    CADJ &     = tapelev2, key = ilev_2
93    CADJ STORE rstardhcdt,rstardhsdt,rstardhwdt
94    CADJ &     = tapelev2, key = ilev_2
95    CADJ STORE h0facc,h0facs,h0facw
96    CADJ &     = tapelev2, key = ilev_2
97    # endif
98    #endif /* NONLIN_FRSURF */
99    
100  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
101  # include "cd_code_ad_check_lev2_dir.h"  # include "cd_code_ad_check_lev2_dir.h"
102  #endif /* ALLOW_CD_CODE */  #endif /* ALLOW_CD_CODE */
103    
104  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
105  # include "exf_ad_check_lev2_dir.h"  # include "exf_ad_check_lev2_dir.h"
 #else /* ALLOW_EXF undef */  
   
 CADJ STORE taux0   = tapelev2, key = ilev_2  
 CADJ STORE taux1   = tapelev2, key = ilev_2  
 CADJ STORE tauy0   = tapelev2, key = ilev_2  
 CADJ STORE tauy1   = tapelev2, key = ilev_2  
 CADJ STORE Qnet0   = tapelev2, key = ilev_2  
 CADJ STORE Qnet1   = tapelev2, key = ilev_2  
 CADJ STORE EmPmR0  = tapelev2, key = ilev_2  
 CADJ STORE EmPmR1  = tapelev2, key = ilev_2  
 CADJ STORE SST0    = tapelev2, key = ilev_2  
 CADJ STORE SST1    = tapelev2, key = ilev_2  
 CADJ STORE SSS0    = tapelev2, key = ilev_2  
 CADJ STORE SSS1    = tapelev2, key = ilev_2  
 CADJ STORE saltFlux0    = tapelev2, key = ilev_2  
 CADJ STORE saltFlux1    = tapelev2, key = ilev_2  
 #ifdef SHORTWAVE_HEATING  
 CADJ STORE Qsw0    = tapelev2, key = ilev_2  
 CADJ STORE Qsw1    = tapelev2, key = ilev_2  
 #endif  
 #ifdef ATMOSPHERIC_LOADING  
 CADJ STORE pload0  = tapelev2, key = ilev_2  
 CADJ STORE pload1  = tapelev2, key = ilev_2  
 #endif  
   
106  #endif /* ALLOW_EXF */  #endif /* ALLOW_EXF */
107    
108  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
109  # include "ptracers_ad_check_lev2_dir.h"  # include "ptracers_ad_check_lev2_dir.h"
110  #endif /* ALLOW_PTRACERS */  #endif
111    
112  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
113  # include "obcs_ad_check_lev2_dir.h"  # include "obcs_ad_check_lev2_dir.h"
114  #endif  /* ALLOW_OBCS */  #endif  /* ALLOW_OBCS */
115    
116    #ifdef ALLOW_SALT_PLUME
117    # include "salt_plume_ad_check_lev2_dir.h"
118    #endif
119    
120  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
121  # include "seaice_ad_check_lev2_dir.h"  # include "seaice_ad_check_lev2_dir.h"
122  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_SEAICE */
123    
124    #ifdef ALLOW_THSICE
125    # include "thsice_ad_check_lev2_dir.h"
126    #endif /* ALLOW_THSICE */
127    
128    #ifdef ALLOW_RBCS
129    # include "rbcs_ad_check_lev2_dir.h"
130    #endif /* ALLOW_rbcs */
131    
132    #ifdef ALLOW_GCHEM
133    # include "gchem_ad_check_lev2_dir.h"
134    #endif
135    
136    #ifdef ALLOW_CFC
137    # include "cfc_ad_check_lev2_dir.h"
138    #endif
139    
140    #ifdef ALLOW_DIC
141    # include "dic_ad_check_lev2_dir.h"
142    #endif
143    
144  #ifdef ALLOW_EBM  #ifdef ALLOW_EBM
145  CADJ STORE fu    = tapelev2, key = ilev_2  CADJ STORE fu    = tapelev2, key = ilev_2
146  CADJ STORE fv    = tapelev2, key = ilev_2  CADJ STORE fv    = tapelev2, key = ilev_2
# Line 86  CADJ STORE qsw   = tapelev2, key = ilev_ Line 149  CADJ STORE qsw   = tapelev2, key = ilev_
149  CADJ STORE sss   = tapelev2, key = ilev_2  CADJ STORE sss   = tapelev2, key = ilev_2
150  CADJ STORE empmr = tapelev2, key = ilev_2  CADJ STORE empmr = tapelev2, key = ilev_2
151  # include "ebm_ad_check_lev2_dir.h"  # include "ebm_ad_check_lev2_dir.h"
152  #endif /* ALLOW_ebm */  #endif /* ALLOW_EBM */
153    
154  #ifdef ALLOW_COST_ATLANTIC_HEAT  #ifdef ALLOW_COST
155  CADJ STORE cMeanTheta = tapelev2, key = ilev_2  CADJ STORE cMeanTheta = tapelev2, key = ilev_2
156  CADJ STORE cMeanUVel  = tapelev2, key = ilev_2  CADJ STORE cMeanUVel  = tapelev2, key = ilev_2
157  CADJ STORE cMeanVVel  = tapelev2, key = ilev_2  CADJ STORE cMeanVVel  = tapelev2, key = ilev_2
158    CADJ STORE cMeanThetaUVel = tapelev2, key = ilev_2
159    CADJ STORE cMeanThetaVVel = tapelev2, key = ilev_2
160  #endif  #endif
161    
162  #ifdef ALLOW_COST_TRACER  #ifdef ALLOW_COST_TRACER
163  CADJ STORE objf_tracer = tapelev2, key = ilev_2  CADJ STORE objf_tracer = tapelev2, key = ilev_2
164  #endif  #endif
165    
166    #ifdef ALLOW_COST_TRANSPORT
167    CADJ STORE objf_transport = tapelev2, key = ilev_2
168    #endif
169    
170    #ifdef ALLOW_HFLUXM_CONTROL
171    CADJ STORE qnetm          = tapelev2, key = ilev_2
172    #endif
173    
174    #ifdef ALLOW_SEAICE
175    cph temporary for HD
176    # ifdef ANNUAL_BALANCE
177    CADJ STORE balance_itcount = tapelev2, key = ilev_2
178    CADJ STORE atmfw_tilesum   = tapelev2, key = ilev_2
179    CADJ STORE qnet_tilesum    = tapelev2, key = ilev_2
180    CADJ STORE empmr_corr      = tapelev2, key = ilev_2
181    CADJ STORE qnet_corr       = tapelev2, key = ilev_2
182    # endif /* ANNUAL_BALANCE */
183    #endif
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.43
  ViewVC Help
Powered by ViewVC 1.1.22