pkg/autodiff/checkpoint_lev1_directives.h

788c57c2b5 owan*0001 C
                0002 C     store directives for checkpoint level 1
                0003 C
                0004 C     created: heimbach@mit.edu 10-Jan-2002
                0005 C
                0006
                0007 CADJ STORE totPhiHyd = comlev1, key = ikey_dynamics, kind = isbyte
                0008 CADJ STORE phi0surf  = comlev1, key = ikey_dynamics, kind = isbyte
                0009 CADJ STORE saltFlux  = comlev1, key = ikey_dynamics, kind = isbyte
                0010 #ifdef ATMOSPHERIC_LOADING
                0011 CADJ STORE sIceLoad  = comlev1, key = ikey_dynamics, kind = isbyte
                0012 #endif
cf3f7a64e7 Patr*0013 #ifdef EXACT_CONSERV
788c57c2b5 owan*0014 CADJ STORE PmEpR     = comlev1, key = ikey_dynamics,  kind = isbyte
                0015 CADJ STORE dEtaHdt   = comlev1, key = ikey_dynamics,  kind = isbyte
cf3f7a64e7 Patr*0016 #endif
788c57c2b5 owan*0017 CADJ STORE wVel      = comlev1, key = ikey_dynamics, kind = isbyte
f489db5435 Patr*0018
788c57c2b5 owan*0019 #ifdef ALLOW_ADAMSBASHFORTH_3
                0020 CADJ STORE gtNm, gsNm   = comlev1, key = ikey_dynamics, kind = isbyte
                0021 CADJ STORE guNm, gvNm   = comlev1, key = ikey_dynamics, kind = isbyte
                0022 #else
                0023 CADJ STORE gtNm1, gsNm1 = comlev1, key = ikey_dynamics, kind = isbyte
                0024 CADJ STORE guNm1, gvNm1 = comlev1, key = ikey_dynamics, kind = isbyte
a3953abe16 Patr*0025 #endif
                0026
aecc8b0f47 Mart*0027 #if (defined ALLOW_CG2D_NSA || defined NONLIN_FRSURF || \
                0028       defined ALLOW_DEPTH_CONTROL)
                0029 CADJ STORE aW2d,aS2d,aC2d= comlev1, key = ikey_dynamics, kind = isbyte
                0030 CADJ STORE pW, pS, pC    = comlev1, key = ikey_dynamics, kind = isbyte
                0031 #endif
                0032
cdc9f269ae Patr*0033 #ifdef NONLIN_FRSURF
788c57c2b5 owan*0034
                0035 CADJ STORE hFac_surfC    = comlev1, key = ikey_dynamics, kind = isbyte
                0036 CADJ STORE hFac_surfW    = comlev1, key = ikey_dynamics, kind = isbyte
                0037 CADJ STORE hFac_surfS    = comlev1, key = ikey_dynamics, kind = isbyte
                0038 CADJ STORE hfac_surfNm1C = comlev1, key = ikey_dynamics, kind = isbyte
                0039 CADJ STORE hfac_surfNm1W = comlev1, key = ikey_dynamics, kind = isbyte
                0040 CADJ STORE hfac_surfNm1S = comlev1, key = ikey_dynamics, kind = isbyte
                0041
                0042 CADJ STORE theta, salt   = comlev1, key = ikey_dynamics,kind = isbyte
                0043 CADJ STORE uVel, vVel    = comlev1, key = ikey_dynamics,kind = isbyte
                0044
13783cb644 Patr*0045 # ifndef DISABLE_RSTAR_CODE
788c57c2b5 owan*0046 CADJ STORE rStarFacC = comlev1, key = ikey_dynamics, kind = isbyte
                0047 CADJ STORE rStarFacNm1C, rStarFacNm1W, rStarFacNm1S = comlev1,
                0048 CADJ &     key = ikey_dynamics,kind = isbyte
                0049 CADJ STORE rStarExpC, rStarExpW, rStarExpS = comlev1,
                0050 CADJ &     key = ikey_dynamics,kind = isbyte
                0051 CADJ STORE rStarDhCDt, rStarDhWDt, rStarDhSDt = comlev1,
                0052 CADJ &     key = ikey_dynamics,kind = isbyte
aa2d1573fa Patr*0053 # endif
cdc9f269ae Patr*0054
788c57c2b5 owan*0055 #else /* NONLIN_FRSURF */
                0056
                0057 CADJ STORE etaH = comlev1, key = ikey_dynamics, kind = isbyte
                0058 # if ( defined ALLOW_ECCO || defined ALLOW_SEAICE || defined ALLOW_DEPTH_CONTROL )
                0059 CADJ STORE theta, salt = comlev1, key = ikey_dynamics,kind = isbyte
                0060 # endif /* ALLOW_ECCO or ALLOW_SEAICE or ALLOW_DEPTH_CONTROL */
                0061
                0062 #endif /* NONLIN_FRSURF */
616600b8d2 Patr*0063
cdc9f269ae Patr*0064 #ifdef ALLOW_CD_CODE
                0065 # include "cd_code_ad_check_lev1_dir.h"
                0066 #endif
27cc6013c1 Patr*0067
eb99fca311 Gael*0068 #ifdef ALLOW_GGL90
                0069 # include "ggl90_ad_check_lev1_dir.h"
                0070 #endif
                0071
95c7d150a4 Ed H*0072 #ifdef ALLOW_EXF
f5e29f75ee Patr*0073 # include "exf_ad_check_lev1_dir.h"
0578caf0b1 Patr*0074 #endif /* ALLOW_EXF undef */
650cc6304d Patr*0075
f1e33a6eed Gael*0076 #ifdef ALLOW_CTRL
                0077 # include "ctrl_ad_check_lev1_dir.h"
                0078 #endif
                0079
788c57c2b5 owan*0080 #ifndef EXCLUDE_FFIELDS_LOAD
                0081 # ifdef STORE_LOADEDREC_TEST
411bc8ffc5 Jean*0082 CADJ STORE loadedRec = comlev1, key = ikey_dynamics, kind = 4
788c57c2b5 owan*0083 # endif
                0084 CADJ STORE taux0     = comlev1, key = ikey_dynamics, kind = isbyte
                0085 CADJ STORE taux1     = comlev1, key = ikey_dynamics, kind = isbyte
                0086 CADJ STORE tauy0     = comlev1, key = ikey_dynamics, kind = isbyte
                0087 CADJ STORE tauy1     = comlev1, key = ikey_dynamics, kind = isbyte
                0088 CADJ STORE Qnet0     = comlev1, key = ikey_dynamics, kind = isbyte
                0089 CADJ STORE Qnet1     = comlev1, key = ikey_dynamics, kind = isbyte
                0090 CADJ STORE EmPmR0    = comlev1, key = ikey_dynamics, kind = isbyte
                0091 CADJ STORE EmPmR1    = comlev1, key = ikey_dynamics, kind = isbyte
                0092 CADJ STORE SST0      = comlev1, key = ikey_dynamics, kind = isbyte
                0093 CADJ STORE SST1      = comlev1, key = ikey_dynamics, kind = isbyte
                0094 CADJ STORE SSS0      = comlev1, key = ikey_dynamics, kind = isbyte
                0095 CADJ STORE SSS1      = comlev1, key = ikey_dynamics, kind = isbyte
                0096 CADJ STORE saltFlux0 = comlev1, key = ikey_dynamics, kind = isbyte
                0097 CADJ STORE saltFlux1 = comlev1, key = ikey_dynamics, kind = isbyte
0499e7ef48 Patr*0098 # ifdef SHORTWAVE_HEATING
788c57c2b5 owan*0099 CADJ STORE Qsw0      = comlev1, key = ikey_dynamics, kind = isbyte
                0100 CADJ STORE Qsw1      = comlev1, key = ikey_dynamics, kind = isbyte
0499e7ef48 Patr*0101 # endif
166438fbfb Jean*0102 # ifdef ALLOW_GEOTHERMAL_FLUX
                0103 CADJ STORE geothFlux0 = comlev1, key = ikey_dynamics, kind = isbyte
                0104 CADJ STORE geothFlux1 = comlev1, key = ikey_dynamics, kind = isbyte
                0105 # endif
0499e7ef48 Patr*0106 # ifdef ATMOSPHERIC_LOADING
788c57c2b5 owan*0107 CADJ STORE pLoad0    = comlev1, key = ikey_dynamics, kind = isbyte
                0108 CADJ STORE pLoad1    = comlev1, key = ikey_dynamics, kind = isbyte
0499e7ef48 Patr*0109 # endif
788c57c2b5 owan*0110 #endif /* ndef EXCLUDE_FFIELDS_LOAD */
de416ebcde Patr*0111
                0112 #ifdef ALLOW_OBCS
021d05f349 Patr*0113 # include "obcs_ad_check_lev1_dir.h"
de416ebcde Patr*0114 #endif  /* ALLOW_OBCS */
                0115
25a8d9f9c0 Patr*0116 #ifdef ALLOW_SALT_PLUME
                0117 # include "salt_plume_ad_check_lev1_dir.h"
                0118 #endif
                0119
19137ecb06 Patr*0120 #ifdef ALLOW_SEAICE
0320e25227 Mart*0121 CADJ STORE phiHydLow = comlev1, key = ikey_dynamics, kind = isbyte
f5e29f75ee Patr*0122 # include "seaice_ad_check_lev1_dir.h"
19137ecb06 Patr*0123 #endif
                0124
77008a74ba Patr*0125 #ifdef ALLOW_THSICE
                0126 # include "thsice_ad_check_lev1_dir.h"
                0127 #endif
c567874792 Patr*0128
72d7b4c1f4 Patr*0129 #ifdef ALLOW_SHELFICE
                0130 # include "shelfice_ad_check_lev1_dir.h"
                0131 #endif
                0132
cc747f5a7a Patr*0133 #ifdef ALLOW_RBCS
                0134 # include "rbcs_ad_check_lev1_dir.h"
                0135 #endif /* ALLOW_RBCS */
                0136
8656989ec1 Patr*0137 #ifdef ALLOW_OFFLINE
                0138 # include "offline_ad_check_lev1_dir.h"
                0139 #endif /* ALLOW_OFFLINE */
                0140
291ae4f3e7 Patr*0141 #ifdef ALLOW_PTRACERS
                0142 # include "ptracers_ad_check_lev1_dir.h"
                0143 #endif
                0144
529eea311c Gael*0145 #ifdef ALLOW_CFC
                0146 # include "cfc_ad_check_lev1_dir.h"
                0147 #endif
                0148
                0149 #ifdef ALLOW_DIC
                0150 # include "dic_ad_check_lev1_dir.h"
                0151 #endif
                0152
a84a33e808 Matt*0153 #ifdef ALLOW_BLING
                0154 # include "bling_ad_check_lev1_dir.h"
                0155 #endif
                0156
e66ad81ead Patr*0157 #ifdef ALLOW_GENERIC_ADVDIFF
                0158 # include "gad_ad_check_lev1_dir.h"
                0159 #endif
                0160
b08554040b Patr*0161 #ifdef ALLOW_EBM
788c57c2b5 owan*0162 CADJ STORE fu      = comlev1, key = ikey_dynamics, kind = isbyte
                0163 CADJ STORE fv      = comlev1, key = ikey_dynamics, kind = isbyte
                0164 CADJ STORE SSS     = comlev1, key = ikey_dynamics, kind = isbyte
                0165 CADJ STORE Qnet    = comlev1, key = ikey_dynamics, kind = isbyte
                0166 CADJ STORE Qsw     = comlev1, key = ikey_dynamics, kind = isbyte
                0167 CADJ STORE EmPmR   = comlev1, key = ikey_dynamics, kind = isbyte
                0168 CADJ STORE theta   = comlev1, key = ikey_dynamics, kind = isbyte
27cc6013c1 Patr*0169 # include "ebm_ad_check_lev1_dir.h"
                0170 #endif
781d8676b2 Patr*0171
                0172 #ifdef ALLOW_COST
788c57c2b5 owan*0173 CADJ STORE cMeanThetaUVel = comlev1, key = ikey_dynamics, kind = isbyte
                0174 CADJ STORE cMeanThetaVVel = comlev1, key = ikey_dynamics, kind = isbyte
781d8676b2 Patr*0175 #endif
                0176
cda1c18f72 Jean*0177 #ifdef ALLOW_COST_ATLANTIC_HEAT
788c57c2b5 owan*0178 CADJ STORE theta = comlev1, key = ikey_dynamics, kind = isbyte
                0179 CADJ STORE uVel  = comlev1, key = ikey_dynamics, kind = isbyte
                0180 CADJ STORE vVel  = comlev1, key = ikey_dynamics, kind = isbyte
ef701cb56c Patr*0181 #endif
6fe621df0b Patr*0182
                0183 #ifdef ALLOW_SEAICE
788c57c2b5 owan*0184 # ifdef ALLOW_DOWN_SLOPE
                0185 CADJ STORE ETA, ZETA = comlev1, key = ikey_dynamics, kind = isbyte
                0186 # endif
6fe621df0b Patr*0187 #endif