/[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.16 by edhill, Sat Nov 1 04:50:02 2003 UTC revision 1.42 by heimbach, Mon Oct 27 20:45:01 2008 UTC
# Line 1  Line 1 
1    C $Header$
2    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 gsnm1     = tapelev3, key = ilev_3  #ifdef AUTODIFF_USE_OLDSTORE_2D
9  CADJ STORE gtnm1     = tapelev3, key = ilev_3  c
10  CADJ STORE gunm1     = tapelev3, key = ilev_3  CADJ STORE etan  = tapelev3, key = ilev_3
11  CADJ STORE gvnm1     = tapelev3, key = ilev_3  CADJ STORE surfaceforcingTice = tapelev3, key = ilev_3
12  CADJ STORE theta     = tapelev3, key = ilev_3  CADJ STORE taux0 = tapelev3, key = ilev_3
13  CADJ STORE salt      = tapelev3, key = ilev_3  CADJ STORE taux1 = tapelev3, key = ilev_3
14  CADJ STORE uvel      = tapelev3, key = ilev_3  CADJ STORE tauy0 = tapelev3, key = ilev_3
15  CADJ STORE vvel      = tapelev3, key = ilev_3  CADJ STORE tauy1 = tapelev3, key = ilev_3
16  CADJ STORE wvel      = tapelev3, key = ilev_3  CADJ STORE qnet0 = tapelev3, key = ilev_3
17  CADJ STORE etan      = tapelev3, key = ilev_3  CADJ STORE qnet1 = tapelev3, key = ilev_3
18  CADJ STORE totphihyd = tapelev3, key = ilev_3  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    CADJ STORE gtnm1  = tapelev3, key = ilev_3            
51    CADJ STORE gsnm1  = tapelev3, key = ilev_3            
52    CADJ STORE gunm1  = tapelev3, key = ilev_3            
53    CADJ STORE gvnm1  = tapelev3, key = ilev_3            
54    CADJ STORE theta  = tapelev3, key = ilev_3            
55    CADJ STORE salt  = tapelev3, key = ilev_3            
56    CADJ STORE uvel  = tapelev3, key = ilev_3            
57    CADJ STORE vvel  = tapelev3, key = ilev_3    
58    CADJ STORE wvel  = tapelev3, key = ilev_3
59    CADJ STORE totphihyd  = tapelev3, key = ilev_3
60    c
61    #else /* ndef AUTODIFF_USE_OLDSTORE_3D */
62    c
63    CADJ STORE StoreDynVars3D     = tapelev3, key = ilev_3
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
70  CADJ STORE empmr     = tapelev3, key = ilev_3  cphCADJ STORE hDivFlow  = tapelev3, key = ilev_3
 CADJ STORE etaH      = tapelev3, key = ilev_3  
 CADJ STORE hDivFlow  = tapelev3, key = ilev_3  
71  #endif /* EXACT_CONSERV */  #endif /* EXACT_CONSERV */
72    
73  #ifdef ALLOW_PASSIVE_TRACER  #ifdef ALLOW_PASSIVE_TRACER
# Line 26  CADJ STORE tr1       = tapelev3, key = i Line 75  CADJ STORE tr1       = tapelev3, key = i
75  CADJ STORE gtr1nm1   = tapelev3, key = ilev_3  CADJ STORE gtr1nm1   = tapelev3, key = ilev_3
76  #endif /* ALLOW_PASSIVE_TRACER */  #endif /* ALLOW_PASSIVE_TRACER */
77    
78    #ifdef NONLIN_FRSURF
79    CADJ STORE hfac_surfc    = tapelev3, key = ilev_3
80    CADJ STORE hfac_surfs    = tapelev3, key = ilev_3
81    CADJ STORE hfac_surfw    = tapelev3, key = ilev_3
82    CADJ STORE hfacc         = tapelev3, key = ilev_3
83    CADJ STORE hfacs         = tapelev3, key = ilev_3
84    CADJ STORE hfacw         = tapelev3, key = ilev_3
85    CADJ STORE recip_hfacc   = tapelev3, key = ilev_3
86    CADJ STORE recip_hfacs   = tapelev3, key = ilev_3
87    CADJ STORE recip_hfacw   = tapelev3, key = ilev_3
88    # ifndef DISABLE_RSTAR_CODE
89    CADJ STORE rstarexpc,rstarexps,rstarexpw
90    CADJ &     = tapelev3, key = ilev_3
91    CADJ STORE rstarfacc,rstarfacs,rstarfacw
92    CADJ &     = tapelev3, key = ilev_3
93    CADJ STORE rstardhcdt,rstardhsdt,rstardhwdt
94    CADJ &     = tapelev3, key = ilev_3
95    CADJ STORE h0facc,h0facs,h0facw
96    CADJ &     = tapelev3, key = ilev_3
97    # endif
98    #endif /* NONLIN_FRSURF */
99    
100  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
101  # include "cd_code_ad_check_lev3_dir.h"  # include "cd_code_ad_check_lev3_dir.h"
102  #endif /* ALLOW_CD_CODE */  #endif /* ALLOW_CD_CODE */
103    
104  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
105  # include "exf_ad_check_lev3_dir.h"  # include "exf_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  
 #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  
 #endif  
   
106  #endif /* ALLOW_EXF */  #endif /* ALLOW_EXF */
107    
108  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
# Line 65  CADJ STORE pload1  = tapelev3, key = ile Line 113  CADJ STORE pload1  = tapelev3, key = ile
113  # include "obcs_ad_check_lev3_dir.h"  # include "obcs_ad_check_lev3_dir.h"
114  #endif  /* ALLOW_OBCS */  #endif  /* ALLOW_OBCS */
115    
116    #ifdef ALLOW_SALT_PLUME
117    # include "salt_plume_ad_check_lev3_dir.h"
118    #endif
119    
120  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
121  # include "seaice_ad_check_lev3_dir.h"  # include "seaice_ad_check_lev3_dir.h"
122  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_SEAICE */
123    
124    #ifdef ALLOW_THSICE
125    # include "thsice_ad_check_lev3_dir.h"
126    #endif /* ALLOW_THSICE */
127    
128    #ifdef ALLOW_RBCS
129    # include "rbcs_ad_check_lev3_dir.h"
130    #endif /* ALLOW_rbcs */
131    
132    #ifdef ALLOW_GCHEM
133    # include "gchem_ad_check_lev3_dir.h"
134    #endif
135    
136    #ifdef ALLOW_CFC
137    # include "cfc_ad_check_lev3_dir.h"
138    #endif
139    
140    #ifdef ALLOW_DIC
141    # include "dic_ad_check_lev3_dir.h"
142    #endif
143    
144    #ifdef ALLOW_EBM
145    CADJ STORE fu    = tapelev3, key = ilev_3
146    CADJ STORE fv    = tapelev3, key = ilev_3
147    CADJ STORE qnet  = tapelev3, key = ilev_3
148    CADJ STORE qsw   = tapelev3, key = ilev_3
149    CADJ STORE sss   = tapelev3, key = ilev_3
150    CADJ STORE empmr = tapelev3, key = ilev_3
151    # include "ebm_ad_check_lev3_dir.h"
152    #endif /* ALLOW_EBM */
153    
154    #ifdef ALLOW_COST
155    CADJ STORE cMeanTheta = tapelev3, key = ilev_3
156    CADJ STORE cMeanUVel  = tapelev3, key = ilev_3
157    CADJ STORE cMeanVVel  = tapelev3, key = ilev_3
158    CADJ STORE cMeanThetaUVel = tapelev3, key = ilev_3
159    CADJ STORE cMeanThetaVVel = tapelev3, key = ilev_3
160    #endif
161    
162    #ifdef ALLOW_COST_TRACER
163    CADJ STORE objf_tracer = tapelev3, key = ilev_3
164    #endif
165    
166    #ifdef ALLOW_COST_TRANSPORT
167    CADJ STORE objf_transport = tapelev3, key = ilev_3
168    #endif
169    
170    #ifdef ALLOW_HFLUXM_CONTROL
171    CADJ STORE qnetm          = tapelev3, key = ilev_3
172    #endif
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.42
  ViewVC Help
Powered by ViewVC 1.1.22