Back to home page

MITgcm
 
 

    

File indexing completed on 2023-09-03 05:10:04 UTC

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

This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine.

The LXR team
Valid CSS 2.1! Valid HTML 4.01!