pkg/autodiff/checkpoint_lev2_directives.h

32117771cc Patr*0001 c
788c57c2b5 owan*0002 c     store directives for checkpoint level 2
32117771cc Patr*0003 c
                0004 c     created: heimbach@mit.edu 10-Jan-2002
                0005 c
3c775cbf98 Mart*0006 #ifdef AUTODIFF_USE_STORE_RESTORE
                0007 c
                0008 CADJ STORE StoreDynVars2D = tapelev2, key = ilev_2
                0009 CADJ STORE StoreDynVars3D = tapelev2, key = ilev_2
                0010 c
                0011 #else
c5c9d716eb Patr*0012 c
                0013 CADJ STORE etan  = tapelev2, key = ilev_2
8b7be8db08 Mart*0014 #ifdef EXCLUDE_FFIELDS_LOAD
                0015 CADJ STORE saltflux = tapelev2, key = ilev_2
                0016 #else
c5c9d716eb Patr*0017 CADJ STORE taux0 = tapelev2, key = ilev_2
                0018 CADJ STORE taux1 = tapelev2, key = ilev_2
                0019 CADJ STORE tauy0 = tapelev2, key = ilev_2
                0020 CADJ STORE tauy1 = tapelev2, key = ilev_2
                0021 CADJ STORE qnet0 = tapelev2, key = ilev_2
                0022 CADJ STORE qnet1 = tapelev2, key = ilev_2
                0023 CADJ STORE empmr0 = tapelev2, key = ilev_2
                0024 CADJ STORE empmr1 = tapelev2, key = ilev_2
                0025 CADJ STORE sst0 = tapelev2, key = ilev_2
                0026 CADJ STORE sst1 = tapelev2, key = ilev_2
                0027 CADJ STORE sss0 = tapelev2, key = ilev_2
                0028 CADJ STORE sss1 = tapelev2, key = ilev_2
                0029 CADJ STORE saltflux0 = tapelev2, key = ilev_2
                0030 CADJ STORE saltflux1 = tapelev2, key = ilev_2
788c57c2b5 owan*0031 # ifdef SHORTWAVE_HEATING
c5c9d716eb Patr*0032 CADJ STORE qsw0 = tapelev2, key = ilev_2
                0033 CADJ STORE qsw1 = tapelev2, key = ilev_2
788c57c2b5 owan*0034 # endif
166438fbfb Jean*0035 # ifdef ALLOW_GEOTHERMAL_FLUX
                0036 CADJ STORE geothFlux0 = tapelev2, key = ilev_2
                0037 CADJ STORE geothFlux1 = tapelev2, key = ilev_2
                0038 # endif
788c57c2b5 owan*0039 # ifdef ATMOSPHERIC_LOADING
c5c9d716eb Patr*0040 CADJ STORE pload0 = tapelev2, key = ilev_2
                0041 CADJ STORE pload1 = tapelev2, key = ilev_2
788c57c2b5 owan*0042 # endif
                0043 #endif /* ndef EXCLUDE_FFIELDS_LOAD */
c5c9d716eb Patr*0044 CADJ STORE etaH = tapelev2, key = ilev_2
                0045 CADJ STORE dEtaHdt = tapelev2, key = ilev_2
                0046 CADJ STORE PmEpR = tapelev2, key = ilev_2
                0047 c
507fbacc22 Gael*0048 #ifdef ALLOW_ADAMSBASHFORTH_3
7448700841 Mart*0049 CADJ STORE gtnm  = tapelev2, key = ilev_2
                0050 CADJ STORE gsnm  = tapelev2, key = ilev_2
                0051 CADJ STORE gunm  = tapelev2, key = ilev_2
                0052 CADJ STORE gvnm  = tapelev2, key = ilev_2
507fbacc22 Gael*0053 #else
7448700841 Mart*0054 CADJ STORE gtnm1 = tapelev2, key = ilev_2
                0055 CADJ STORE gsnm1 = tapelev2, key = ilev_2
                0056 CADJ STORE gunm1 = tapelev2, key = ilev_2
                0057 CADJ STORE gvnm1 = tapelev2, key = ilev_2
507fbacc22 Gael*0058 #endif
7448700841 Mart*0059 CADJ STORE theta = tapelev2, key = ilev_2
e4f1c09db9 Jean*0060 CADJ STORE salt  = tapelev2, key = ilev_2
                0061 CADJ STORE uvel  = tapelev2, key = ilev_2
                0062 CADJ STORE vvel  = tapelev2, key = ilev_2
c5c9d716eb Patr*0063 CADJ STORE wvel  = tapelev2, key = ilev_2
7448700841 Mart*0064 CADJ STORE totphihyd     = tapelev2, key = ilev_2
c5c9d716eb Patr*0065 c
3c775cbf98 Mart*0066 #endif /* AUTODIFF_USE_STORE_RESTORE */
c5c9d716eb Patr*0067
cdc9f269ae Patr*0068 #ifdef NONLIN_FRSURF
                0069 CADJ STORE hfac_surfc    = tapelev2, key = ilev_2
                0070 CADJ STORE hfac_surfs    = tapelev2, key = ilev_2
                0071 CADJ STORE hfac_surfw    = tapelev2, key = ilev_2
7448700841 Mart*0072 CADJ STORE hFac_surfNm1C = tapelev2, key = ilev_2
                0073 CADJ STORE hFac_surfNm1S = tapelev2, key = ilev_2
                0074 CADJ STORE hFac_surfNm1W = tapelev2, key = ilev_2
2fd2ab9859 Patr*0075
aa2d1573fa Patr*0076 # ifndef DISABLE_RSTAR_CODE
e4f1c09db9 Jean*0077 CADJ STORE rstarexpc,rstarexps,rstarexpw
aa2d1573fa Patr*0078 CADJ &     = tapelev2, key = ilev_2
e4f1c09db9 Jean*0079 CADJ STORE rstarfacc,rstarfacs,rstarfacw
aa2d1573fa Patr*0080 CADJ &     = tapelev2, key = ilev_2
3facd719d7 Gael*0081 CADJ STORE rStarFacNm1C,rStarFacNm1S,rStarFacNm1W
aa2d1573fa Patr*0082 CADJ &     = tapelev2, key = ilev_2
7448700841 Mart*0083 #  if (defined ALLOW_MOM_FLUXFORM || \
                0084        defined ALLOW_CG2D_NSA || defined ALLOW_DEPTH_CONTROL)
e4f1c09db9 Jean*0085 CADJ STORE rstardhcdt,rstardhsdt,rstardhwdt
f88f1afe4a Patr*0086 CADJ &     = tapelev2, key = ilev_2
7448700841 Mart*0087 #  endif
aa2d1573fa Patr*0088 # endif
6db901f1b0 Patr*0089
aecc8b0f47 Mart*0090 #endif /* NONLIN_FRSURF */
                0091
                0092 #if (defined ALLOW_CG2D_NSA || defined NONLIN_FRSURF || \
                0093       defined ALLOW_DEPTH_CONTROL)
8fc117ecb7 Mart*0094 CADJ STORE aW2d, aS2d, aC2d = tapelev2, key = ilev_2
                0095 CADJ STORE pc, ps, pw       = tapelev2, key = ilev_2
aecc8b0f47 Mart*0096 #endif
cdc9f269ae Patr*0097
a914ee1c2b Patr*0098 #ifdef ALLOW_CD_CODE
                0099 # include "cd_code_ad_check_lev2_dir.h"
                0100 #endif /* ALLOW_CD_CODE */
                0101
eb99fca311 Gael*0102 #ifdef ALLOW_GGL90
                0103 # include "ggl90_ad_check_lev2_dir.h"
                0104 #endif
                0105
95c7d150a4 Ed H*0106 #ifdef ALLOW_EXF
f5e29f75ee Patr*0107 # include "exf_ad_check_lev2_dir.h"
5728d4a98b Patr*0108 #endif /* ALLOW_EXF */
650cc6304d Patr*0109
f1e33a6eed Gael*0110 #ifdef ALLOW_CTRL
                0111 # include "ctrl_ad_check_lev2_dir.h"
e4f1c09db9 Jean*0112 #endif
f1e33a6eed Gael*0113
f5e29f75ee Patr*0114 #ifdef ALLOW_PTRACERS
                0115 # include "ptracers_ad_check_lev2_dir.h"
5728d4a98b Patr*0116 #endif
19137ecb06 Patr*0117
f5e29f75ee Patr*0118 #ifdef ALLOW_OBCS
                0119 # include "obcs_ad_check_lev2_dir.h"
de416ebcde Patr*0120 #endif  /* ALLOW_OBCS */
                0121
25a8d9f9c0 Patr*0122 #ifdef ALLOW_SALT_PLUME
                0123 # include "salt_plume_ad_check_lev2_dir.h"
                0124 #endif
                0125
19137ecb06 Patr*0126 #ifdef ALLOW_SEAICE
0320e25227 Mart*0127 CADJ STORE phiHydLow  = tapelev2, key = ilev_2
f5e29f75ee Patr*0128 # include "seaice_ad_check_lev2_dir.h"
19137ecb06 Patr*0129 #endif /* ALLOW_SEAICE */
                0130
c567874792 Patr*0131 #ifdef ALLOW_THSICE
                0132 # include "thsice_ad_check_lev2_dir.h"
cc747f5a7a Patr*0133 #endif /* ALLOW_THSICE */
                0134
72d7b4c1f4 Patr*0135 #ifdef ALLOW_SHELFICE
                0136 # include "shelfice_ad_check_lev2_dir.h"
                0137 #endif /* ALLOW_SHELFICE */
                0138
42a1dbd269 Patr*0139 #ifdef ALLOW_STREAMICE
                0140 # include "streamice_ad_check_lev2_dir.h"
                0141 #endif /* ALLOW_STREAMICE */
                0142
cc747f5a7a Patr*0143 #ifdef ALLOW_RBCS
                0144 # include "rbcs_ad_check_lev2_dir.h"
8656989ec1 Patr*0145 #endif /* ALLOW_RBCS */
                0146
                0147 #ifdef ALLOW_OFFLINE
                0148 # include "offline_ad_check_lev2_dir.h"
                0149 #endif /* ALLOW_OFFLINE */
c567874792 Patr*0150
529eea311c Gael*0151 #ifdef ALLOW_CFC
                0152 # include "cfc_ad_check_lev2_dir.h"
                0153 #endif
e4f1c09db9 Jean*0154
529eea311c Gael*0155 #ifdef ALLOW_DIC
                0156 # include "dic_ad_check_lev2_dir.h"
                0157 #endif
                0158
a84a33e808 Matt*0159 #ifdef ALLOW_BLING
                0160 # include "bling_ad_check_lev2_dir.h"
                0161 #endif
                0162
e66ad81ead Patr*0163 #ifdef ALLOW_GENERIC_ADVDIFF
                0164 # include "gad_ad_check_lev2_dir.h"
                0165 #endif
                0166
b08554040b Patr*0167 #ifdef ALLOW_EBM
27cc6013c1 Patr*0168 CADJ STORE fu    = tapelev2, key = ilev_2
                0169 CADJ STORE fv    = tapelev2, key = ilev_2
                0170 CADJ STORE qnet  = tapelev2, key = ilev_2
                0171 CADJ STORE qsw   = tapelev2, key = ilev_2
                0172 CADJ STORE sss   = tapelev2, key = ilev_2
                0173 CADJ STORE empmr = tapelev2, key = ilev_2
b08554040b Patr*0174 # include "ebm_ad_check_lev2_dir.h"
5728d4a98b Patr*0175 #endif /* ALLOW_EBM */
449f3c105b Patr*0176
8f9ab6df2d Davi*0177 #ifdef ALLOW_COST
7448700841 Mart*0178 C     Whether the following store directives are necessary depends
                0179 C     heavily on the details of the cost function, so we stick to the
                0180 C     strategy of inserting these store directives regardless of the
                0181 C     "not necessary" warnings they produce.
449f3c105b Patr*0182 CADJ STORE cMeanTheta = tapelev2, key = ilev_2
                0183 CADJ STORE cMeanUVel  = tapelev2, key = ilev_2
                0184 CADJ STORE cMeanVVel  = tapelev2, key = ilev_2
781d8676b2 Patr*0185 CADJ STORE cMeanThetaUVel = tapelev2, key = ilev_2
                0186 CADJ STORE cMeanThetaVVel = tapelev2, key = ilev_2
449f3c105b Patr*0187 #endif
9b184aa726 Patr*0188
                0189 #ifdef ALLOW_COST_TRACER
                0190 CADJ STORE objf_tracer = tapelev2, key = ilev_2
                0191 #endif