/[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.30 by heimbach, Wed Jun 7 01:55:13 2006 UTC revision 1.52 by gforget, Fri Jan 14 01:34:57 2011 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    #ifdef ALLOW_ADAMSBASHFORTH_3
51    CADJ STORE gtnm(:,:,:,:,1)   = tapelev2, key = ilev_2
52    CADJ STORE gsnm(:,:,:,:,1)   = tapelev2, key = ilev_2
53    CADJ STORE gunm(:,:,:,:,1)   = tapelev2, key = ilev_2
54    CADJ STORE gvnm(:,:,:,:,1)   = tapelev2, key = ilev_2
55    CADJ STORE gtnm(:,:,:,:,2)   = tapelev2, key = ilev_2
56    CADJ STORE gsnm(:,:,:,:,2)   = tapelev2, key = ilev_2
57    CADJ STORE gunm(:,:,:,:,2)   = tapelev2, key = ilev_2
58    CADJ STORE gvnm(:,:,:,:,2)   = tapelev2, key = ilev_2
59    #else
60    CADJ STORE gtnm1  = tapelev2, key = ilev_2            
61    CADJ STORE gsnm1  = tapelev2, key = ilev_2            
62    CADJ STORE gunm1  = tapelev2, key = ilev_2            
63    CADJ STORE gvnm1  = tapelev2, key = ilev_2            
64    #endif
65    CADJ STORE theta  = tapelev2, key = ilev_2            
66    CADJ STORE salt  = tapelev2, key = ilev_2            
67    CADJ STORE uvel  = tapelev2, key = ilev_2            
68    CADJ STORE vvel  = tapelev2, key = ilev_2    
69    CADJ STORE wvel  = tapelev2, key = ilev_2
70    CADJ STORE totphihyd  = tapelev2, key = ilev_2
71    c
72    #else /* ndef AUTODIFF_USE_OLDSTORE_3D */
73    c
74    CADJ STORE StoreDynVars3D     = tapelev2, key = ilev_2
75    c
76    #endif /* AUTODIFF_USE_OLDSTORE_3D */
77    
78    
79    
80    CADJ STORE phi0surf      = tapelev2, key = ilev_2
81    
82  #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  
83  cphCADJ STORE hDivFlow  = tapelev2, key = ilev_2  cphCADJ STORE hDivFlow  = tapelev2, key = ilev_2
84  #endif /* EXACT_CONSERV */  #endif /* EXACT_CONSERV */
85    
# Line 37  CADJ STORE gtr1nm1   = tapelev2, key = i Line 92  CADJ STORE gtr1nm1   = tapelev2, key = i
92  CADJ STORE hfac_surfc    = tapelev2, key = ilev_2  CADJ STORE hfac_surfc    = tapelev2, key = ilev_2
93  CADJ STORE hfac_surfs    = tapelev2, key = ilev_2  CADJ STORE hfac_surfs    = tapelev2, key = ilev_2
94  CADJ STORE hfac_surfw    = tapelev2, key = ilev_2  CADJ STORE hfac_surfw    = tapelev2, key = ilev_2
95  CADJ STORE hfacc         = tapelev2, key = ilev_2  CADJ STORE hFac_surfNm1C= tapelev2, key = ilev_2
96  CADJ STORE hfacs         = tapelev2, key = ilev_2  CADJ STORE hFac_surfNm1S= tapelev2, key = ilev_2
97  CADJ STORE hfacw         = tapelev2, key = ilev_2  CADJ STORE hFac_surfNm1W= tapelev2, key = ilev_2
98  CADJ STORE recip_hfacc   = tapelev2, key = ilev_2  
 CADJ STORE recip_hfacs   = tapelev2, key = ilev_2  
 CADJ STORE recip_hfacw   = tapelev2, key = ilev_2  
99  # ifndef DISABLE_RSTAR_CODE  # ifndef DISABLE_RSTAR_CODE
100  CADJ STORE rstarexpc,rstarexps,rstarexpw  CADJ STORE rstarexpc,rstarexps,rstarexpw
101  CADJ &     = tapelev2, key = ilev_2  CADJ &     = tapelev2, key = ilev_2
102  CADJ STORE rstarfacc,rstarfacs,rstarfacw  CADJ STORE rstarfacc,rstarfacs,rstarfacw
103  CADJ &     = tapelev2, key = ilev_2  CADJ &     = tapelev2, key = ilev_2
104  CADJ STORE rstardhcdt,rstardhsdt,rstardhwdt  CADJ STORE rStarFacNm1C,rStarFacNm1S,rStarFacNm1W
105  CADJ &     = tapelev2, key = ilev_2  CADJ &     = tapelev2, key = ilev_2
106  CADJ STORE h0facc,h0facs,h0facw  CADJ STORE rstardhcdt,rstardhsdt,rstardhwdt
107  CADJ &     = tapelev2, key = ilev_2  CADJ &     = tapelev2, key = ilev_2
108  # endif  # endif
109  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
# Line 59  CADJ &     = tapelev2, key = ilev_2 Line 112  CADJ &     = tapelev2, key = ilev_2
112  # include "cd_code_ad_check_lev2_dir.h"  # include "cd_code_ad_check_lev2_dir.h"
113  #endif /* ALLOW_CD_CODE */  #endif /* ALLOW_CD_CODE */
114    
115  #ifdef ALLOW_EXF  #ifdef ALLOW_GGL90
116  # include "exf_ad_check_lev2_dir.h"  # include "ggl90_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  
117  #endif  #endif
118  #ifdef ATMOSPHERIC_LOADING  
119  CADJ STORE pload0  = tapelev2, key = ilev_2  #ifdef ALLOW_ECCO
120  CADJ STORE pload1  = tapelev2, key = ilev_2  # include "ecco_ad_check_lev2_dir.h"
121  #endif  #endif
122    
123    #ifdef ALLOW_EXF
124    # include "exf_ad_check_lev2_dir.h"
125  #endif /* ALLOW_EXF */  #endif /* ALLOW_EXF */
126    
127  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
128  # include "ptracers_ad_check_lev2_dir.h"  # include "ptracers_ad_check_lev2_dir.h"
129  #endif /* ALLOW_PTRACERS */  #endif
130    
131  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
132  # include "obcs_ad_check_lev2_dir.h"  # include "obcs_ad_check_lev2_dir.h"
133  #endif  /* ALLOW_OBCS */  #endif  /* ALLOW_OBCS */
134    
135    #ifdef ALLOW_SALT_PLUME
136    # include "salt_plume_ad_check_lev2_dir.h"
137    #endif
138    
139  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
140  # include "seaice_ad_check_lev2_dir.h"  # include "seaice_ad_check_lev2_dir.h"
141  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_SEAICE */
142    
143  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
144  # include "thsice_ad_check_lev2_dir.h"  # include "thsice_ad_check_lev2_dir.h"
145  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_THSICE */
146    
147    #ifdef ALLOW_SHELFICE
148    # include "shelfice_ad_check_lev2_dir.h"
149    #endif /* ALLOW_SHELFICE */
150    
151    #ifdef ALLOW_RBCS
152    # include "rbcs_ad_check_lev2_dir.h"
153    #endif /* ALLOW_RBCS */
154    
155    #ifdef ALLOW_OFFLINE
156    # include "offline_ad_check_lev2_dir.h"
157    #endif /* ALLOW_OFFLINE */
158    
159    #ifdef ALLOW_GCHEM
160    # include "gchem_ad_check_lev2_dir.h"
161    #endif
162    
163    #ifdef ALLOW_CFC
164    # include "cfc_ad_check_lev2_dir.h"
165    #endif
166    
167    #ifdef ALLOW_DIC
168    # include "dic_ad_check_lev2_dir.h"
169    #endif
170    
171  #ifdef ALLOW_EBM  #ifdef ALLOW_EBM
172  CADJ STORE fu    = tapelev2, key = ilev_2  CADJ STORE fu    = tapelev2, key = ilev_2
# Line 112  CADJ STORE qsw   = tapelev2, key = ilev_ Line 176  CADJ STORE qsw   = tapelev2, key = ilev_
176  CADJ STORE sss   = tapelev2, key = ilev_2  CADJ STORE sss   = tapelev2, key = ilev_2
177  CADJ STORE empmr = tapelev2, key = ilev_2  CADJ STORE empmr = tapelev2, key = ilev_2
178  # include "ebm_ad_check_lev2_dir.h"  # include "ebm_ad_check_lev2_dir.h"
179  #endif /* ALLOW_ebm */  #endif /* ALLOW_EBM */
180    
181  #if (defined (ALLOW_COST_TEST) || defined (ALLOW_COST_ATLANTIC_HEAT))  #ifdef ALLOW_COST
182  CADJ STORE cMeanTheta = tapelev2, key = ilev_2  CADJ STORE cMeanTheta = tapelev2, key = ilev_2
183  CADJ STORE cMeanUVel  = tapelev2, key = ilev_2  CADJ STORE cMeanUVel  = tapelev2, key = ilev_2
184  CADJ STORE cMeanVVel  = tapelev2, key = ilev_2  CADJ STORE cMeanVVel  = tapelev2, key = ilev_2
185    CADJ STORE cMeanThetaUVel = tapelev2, key = ilev_2
186    CADJ STORE cMeanThetaVVel = tapelev2, key = ilev_2
187  #endif  #endif
188    
189  #ifdef ALLOW_COST_TRACER  #ifdef ALLOW_COST_TRACER
# Line 127  CADJ STORE objf_tracer = tapelev2, key = Line 193  CADJ STORE objf_tracer = tapelev2, key =
193  #ifdef ALLOW_COST_TRANSPORT  #ifdef ALLOW_COST_TRANSPORT
194  CADJ STORE objf_transport = tapelev2, key = ilev_2  CADJ STORE objf_transport = tapelev2, key = ilev_2
195  #endif  #endif
196    
197    #ifdef ALLOW_HFLUXM_CONTROL
198    CADJ STORE qnetm          = tapelev2, key = ilev_2
199    #endif
200    
201    #ifdef ALLOW_SEAICE
202    cph temporary for HD
203    # ifdef ANNUAL_BALANCE
204    CADJ STORE balance_itcount = tapelev2, key = ilev_2
205    CADJ STORE atmfw_tilesum   = tapelev2, key = ilev_2
206    CADJ STORE qnet_tilesum    = tapelev2, key = ilev_2
207    CADJ STORE empmr_corr      = tapelev2, key = ilev_2
208    CADJ STORE qnet_corr       = tapelev2, key = ilev_2
209    # endif /* ANNUAL_BALANCE */
210    #endif
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.52
  ViewVC Help
Powered by ViewVC 1.1.22