Back to home page

MITgcm
 
 

    

File indexing completed on 2025-09-19 05:08:16 UTC

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