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

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

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

revision 1.29 by heimbach, Wed May 3 23:35:38 2006 UTC revision 1.46 by gforget, Mon Aug 9 16:05:22 2010 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 3  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        = tapelev3, key = ilev_3  #ifdef AUTODIFF_USE_OLDSTORE_2D
9  CADJ STORE gt        = tapelev3, key = ilev_3  c
10  CADJ STORE gtnm1     = tapelev3, key = ilev_3  CADJ STORE etan  = tapelev3, key = ilev_3
 CADJ STORE gsnm1     = tapelev3, key = ilev_3  
 CADJ STORE gunm1     = tapelev3, key = ilev_3  
 CADJ STORE gvnm1     = tapelev3, key = ilev_3  
 CADJ STORE theta     = tapelev3, key = ilev_3  
 CADJ STORE salt      = tapelev3, key = ilev_3  
 CADJ STORE uvel      = tapelev3, key = ilev_3  
 CADJ STORE vvel      = tapelev3, key = ilev_3  
 CADJ STORE wvel      = tapelev3, key = ilev_3  
 CADJ STORE etan      = tapelev3, key = ilev_3  
 CADJ STORE totphihyd = tapelev3, key = ilev_3  
11  CADJ STORE surfaceforcingTice = tapelev3, key = ilev_3  CADJ STORE surfaceforcingTice = tapelev3, key = ilev_3
12  cnewCADJ STORE ivdconvcount       = tapelev3, key = ilev_3  CADJ STORE taux0 = tapelev3, key = ilev_3
13    CADJ STORE taux1 = tapelev3, key = ilev_3
14    CADJ STORE tauy0 = tapelev3, key = ilev_3
15    CADJ STORE tauy1 = tapelev3, key = ilev_3
16    CADJ STORE qnet0 = tapelev3, key = ilev_3
17    CADJ STORE qnet1 = tapelev3, key = ilev_3
18    CADJ STORE empmr0 = tapelev3, key = ilev_3
19    CADJ STORE empmr1 = tapelev3, key = ilev_3
20    CADJ STORE sst0 = tapelev3, key = ilev_3
21    CADJ STORE sst1 = tapelev3, key = ilev_3
22    CADJ STORE sss0 = tapelev3, key = ilev_3
23    CADJ STORE sss1 = tapelev3, key = ilev_3
24    CADJ STORE saltflux0 = tapelev3, key = ilev_3
25    CADJ STORE saltflux1 = tapelev3, key = ilev_3
26    #ifdef SHORTWAVE_HEATING
27    CADJ STORE qsw0 = tapelev3, key = ilev_3
28    CADJ STORE qsw1 = tapelev3, key = ilev_3
29    #endif
30    #ifdef ATMOSPHERIC_LOADING
31    CADJ STORE pload0 = tapelev3, key = ilev_3
32    CADJ STORE pload1 = tapelev3, key = ilev_3
33    #endif
34    #ifdef EXACT_CONSERV
35    CADJ STORE etaH = tapelev3, key = ilev_3
36    CADJ STORE dEtaHdt = tapelev3, key = ilev_3
37    CADJ STORE PmEpR = tapelev3, key = ilev_3
38    #endif
39    c
40    #else /* ndef AUTODIFF_USE_OLDSTORE_2D */
41    c
42    CADJ STORE StoreDynVars2D     = tapelev3, key = ilev_3
43    c
44    #endif /* AUTODIFF_USE_OLDSTORE_2D */
45    c
46    #ifdef AUTODIFF_USE_OLDSTORE_3D
47    c
48    CADJ STORE gs  = tapelev3, key = ilev_3
49    CADJ STORE gt  = tapelev3, key = ilev_3            
50    #ifdef ALLOW_ADAMSBASHFORTH_3
51    CADJ STORE gtnm(:,:,:,:,1)   = tapelev3, key = ilev_3
52    CADJ STORE gsnm(:,:,:,:,1)   = tapelev3, key = ilev_3
53    CADJ STORE gunm(:,:,:,:,1)   = tapelev3, key = ilev_3
54    CADJ STORE gvnm(:,:,:,:,1)   = tapelev3, key = ilev_3
55    CADJ STORE gtnm(:,:,:,:,2)   = tapelev3, key = ilev_3
56    CADJ STORE gsnm(:,:,:,:,2)   = tapelev3, key = ilev_3
57    CADJ STORE gunm(:,:,:,:,2)   = tapelev3, key = ilev_3
58    CADJ STORE gvnm(:,:,:,:,2)   = tapelev3, key = ilev_3
59    #else
60    CADJ STORE gtnm1  = tapelev3, key = ilev_3            
61    CADJ STORE gsnm1  = tapelev3, key = ilev_3            
62    CADJ STORE gunm1  = tapelev3, key = ilev_3            
63    CADJ STORE gvnm1  = tapelev3, key = ilev_3            
64    #endif
65    CADJ STORE theta  = tapelev3, key = ilev_3            
66    CADJ STORE salt  = tapelev3, key = ilev_3            
67    CADJ STORE uvel  = tapelev3, key = ilev_3            
68    CADJ STORE vvel  = tapelev3, key = ilev_3    
69    CADJ STORE wvel  = tapelev3, key = ilev_3
70    CADJ STORE totphihyd  = tapelev3, key = ilev_3
71    c
72    #else /* ndef AUTODIFF_USE_OLDSTORE_3D */
73    c
74    CADJ STORE StoreDynVars3D     = tapelev3, key = ilev_3
75    c
76    #endif /* AUTODIFF_USE_OLDSTORE_3D */
77    
78    cnewCADJ STORE ivdconvcount       = tapelevx, key = ilev_x
79    
80  #ifdef EXACT_CONSERV  #ifdef EXACT_CONSERV
 CADJ STORE etaH      = tapelev3, key = ilev_3  
 CADJ STORE dEtaHdt   = tapelev3, key = ilev_3  
 CADJ STORE PmEpR     = tapelev3, key = ilev_3  
81  cphCADJ STORE hDivFlow  = tapelev3, key = ilev_3  cphCADJ STORE hDivFlow  = tapelev3, key = ilev_3
82  #endif /* EXACT_CONSERV */  #endif /* EXACT_CONSERV */
83    
# Line 59  CADJ &     = tapelev3, key = ilev_3 Line 112  CADJ &     = tapelev3, key = ilev_3
112  # include "cd_code_ad_check_lev3_dir.h"  # include "cd_code_ad_check_lev3_dir.h"
113  #endif /* ALLOW_CD_CODE */  #endif /* ALLOW_CD_CODE */
114    
115  #ifdef ALLOW_EXF  #ifdef ALLOW_GGL90
116  # include "exf_ad_check_lev3_dir.h"  # include "ggl90_ad_check_lev3_dir.h"
 #else /* ALLOW_EXF undef */  
   
 CADJ STORE taux0   = tapelev3, key = ilev_3  
 CADJ STORE taux1   = tapelev3, key = ilev_3  
 CADJ STORE tauy0   = tapelev3, key = ilev_3  
 CADJ STORE tauy1   = tapelev3, key = ilev_3  
 CADJ STORE Qnet0   = tapelev3, key = ilev_3  
 CADJ STORE Qnet1   = tapelev3, key = ilev_3  
 CADJ STORE EmPmR0  = tapelev3, key = ilev_3  
 CADJ STORE EmPmR1  = tapelev3, key = ilev_3  
 CADJ STORE SST0    = tapelev3, key = ilev_3  
 CADJ STORE SST1    = tapelev3, key = ilev_3  
 CADJ STORE SSS0    = tapelev3, key = ilev_3  
 CADJ STORE SSS1    = tapelev3, key = ilev_3  
 CADJ STORE saltFlux0    = tapelev3, key = ilev_3  
 CADJ STORE saltFlux1    = tapelev3, key = ilev_3  
 #ifdef SHORTWAVE_HEATING  
 CADJ STORE Qsw0    = tapelev3, key = ilev_3  
 CADJ STORE Qsw1    = tapelev3, key = ilev_3  
 #endif  
 #ifdef ATMOSPHERIC_LOADING  
 CADJ STORE pload0  = tapelev3, key = ilev_3  
 CADJ STORE pload1  = tapelev3, key = ilev_3  
117  #endif  #endif
118    
119    #ifdef ALLOW_EXF
120    # include "exf_ad_check_lev3_dir.h"
121  #endif /* ALLOW_EXF */  #endif /* ALLOW_EXF */
122    
123  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
# Line 96  CADJ STORE pload1  = tapelev3, key = ile Line 128  CADJ STORE pload1  = tapelev3, key = ile
128  # include "obcs_ad_check_lev3_dir.h"  # include "obcs_ad_check_lev3_dir.h"
129  #endif  /* ALLOW_OBCS */  #endif  /* ALLOW_OBCS */
130    
131    #ifdef ALLOW_SALT_PLUME
132    # include "salt_plume_ad_check_lev3_dir.h"
133    #endif
134    
135  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
136  # include "seaice_ad_check_lev3_dir.h"  # include "seaice_ad_check_lev3_dir.h"
137  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_SEAICE */
138    
139  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
140  # include "thsice_ad_check_lev3_dir.h"  # include "thsice_ad_check_lev3_dir.h"
141  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_THSICE */
142    
143    #ifdef ALLOW_RBCS
144    # include "rbcs_ad_check_lev3_dir.h"
145    #endif /* ALLOW_RBCS */
146    
147    #ifdef ALLOW_OFFLINE
148    # include "offline_ad_check_lev3_dir.h"
149    #endif /* ALLOW_OFFLINE */
150    
151    #ifdef ALLOW_GCHEM
152    # include "gchem_ad_check_lev3_dir.h"
153    #endif
154    
155    #ifdef ALLOW_CFC
156    # include "cfc_ad_check_lev3_dir.h"
157    #endif
158    
159    #ifdef ALLOW_DIC
160    # include "dic_ad_check_lev3_dir.h"
161    #endif
162    
163  #ifdef ALLOW_EBM  #ifdef ALLOW_EBM
164  CADJ STORE fu    = tapelev3, key = ilev_3  CADJ STORE fu    = tapelev3, key = ilev_3
# Line 114  CADJ STORE empmr = tapelev3, key = ilev_ Line 170  CADJ STORE empmr = tapelev3, key = ilev_
170  # include "ebm_ad_check_lev3_dir.h"  # include "ebm_ad_check_lev3_dir.h"
171  #endif /* ALLOW_EBM */  #endif /* ALLOW_EBM */
172    
173  #if (defined (ALLOW_COST_TEST) || defined (ALLOW_COST_ATLANTIC_HEAT))  #ifdef ALLOW_COST
174  CADJ STORE cMeanTheta = tapelev3, key = ilev_3  CADJ STORE cMeanTheta = tapelev3, key = ilev_3
175  CADJ STORE cMeanUVel  = tapelev3, key = ilev_3  CADJ STORE cMeanUVel  = tapelev3, key = ilev_3
176  CADJ STORE cMeanVVel  = tapelev3, key = ilev_3  CADJ STORE cMeanVVel  = tapelev3, key = ilev_3
177    CADJ STORE cMeanThetaUVel = tapelev3, key = ilev_3
178    CADJ STORE cMeanThetaVVel = tapelev3, key = ilev_3
179  #endif  #endif
180    
181  #ifdef ALLOW_COST_TRACER  #ifdef ALLOW_COST_TRACER
182  CADJ STORE objf_tracer = tapelev3, key = ilev_3  CADJ STORE objf_tracer = tapelev3, key = ilev_3
183  #endif  #endif
184    
185    #ifdef ALLOW_COST_TRANSPORT
186    CADJ STORE objf_transport = tapelev3, key = ilev_3
187    #endif
188    
189    #ifdef ALLOW_HFLUXM_CONTROL
190    CADJ STORE qnetm          = tapelev3, key = ilev_3
191    #endif
192    
193    #ifdef ALLOW_SEAICE
194    cph temporary for HD
195    # ifdef ANNUAL_BALANCE
196    CADJ STORE balance_itcount = tapelev3, key = ilev_3
197    CADJ STORE atmfw_tilesum   = tapelev3, key = ilev_3
198    CADJ STORE qnet_tilesum    = tapelev3, key = ilev_3
199    CADJ STORE empmr_corr      = tapelev3, key = ilev_3
200    CADJ STORE qnet_corr       = tapelev3, key = ilev_3
201    # endif /* ANNUAL_BALANCE */
202    #endif
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.46
  ViewVC Help
Powered by ViewVC 1.1.22