Back to home page

darwin3
 
 

    

File indexing completed on 2025-10-27 12:20:01 UTC

view on githubraw file Latest commit c3be0435 on 2025-09-18 18:40:16 UTC
0785f33837 Patr*0001 c
                0002 c     store directives for checkpoint level 4
                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 = tapelev4, key = ilev_4
                0009 CADJ STORE StoreDynVars3D = tapelev4, key = ilev_4
                0010 c
                0011 #else
c5c9d716eb Patr*0012 c
                0013 CADJ STORE etan  = tapelev4, key = ilev_4
8b7be8db08 Mart*0014 #ifdef EXCLUDE_FFIELDS_LOAD
                0015 CADJ STORE saltflux = tapelev4, key = ilev_4
                0016 #else
c5c9d716eb Patr*0017 CADJ STORE taux0 = tapelev4, key = ilev_4
                0018 CADJ STORE taux1 = tapelev4, key = ilev_4
                0019 CADJ STORE tauy0 = tapelev4, key = ilev_4
                0020 CADJ STORE tauy1 = tapelev4, key = ilev_4
                0021 CADJ STORE qnet0 = tapelev4, key = ilev_4
                0022 CADJ STORE qnet1 = tapelev4, key = ilev_4
                0023 CADJ STORE empmr0 = tapelev4, key = ilev_4
                0024 CADJ STORE empmr1 = tapelev4, key = ilev_4
                0025 CADJ STORE sst0 = tapelev4, key = ilev_4
                0026 CADJ STORE sst1 = tapelev4, key = ilev_4
                0027 CADJ STORE sss0 = tapelev4, key = ilev_4
                0028 CADJ STORE sss1 = tapelev4, key = ilev_4
                0029 CADJ STORE saltflux0 = tapelev4, key = ilev_4
                0030 CADJ STORE saltflux1 = tapelev4, key = ilev_4
788c57c2b5 owan*0031 # ifdef SHORTWAVE_HEATING
c5c9d716eb Patr*0032 CADJ STORE qsw0 = tapelev4, key = ilev_4
                0033 CADJ STORE qsw1 = tapelev4, key = ilev_4
788c57c2b5 owan*0034 # endif
166438fbfb Jean*0035 # ifdef ALLOW_GEOTHERMAL_FLUX
                0036 CADJ STORE geothFlux0 = tapelev4, key = ilev_4
                0037 CADJ STORE geothFlux1 = tapelev4, key = ilev_4
                0038 # endif
788c57c2b5 owan*0039 # ifdef ATMOSPHERIC_LOADING
c5c9d716eb Patr*0040 CADJ STORE pload0 = tapelev4, key = ilev_4
                0041 CADJ STORE pload1 = tapelev4, key = ilev_4
788c57c2b5 owan*0042 # endif
                0043 #endif /* ndef EXCLUDE_FFIELDS_LOAD */
c5c9d716eb Patr*0044 CADJ STORE etaH = tapelev4, key = ilev_4
                0045 CADJ STORE dEtaHdt = tapelev4, key = ilev_4
                0046 CADJ STORE PmEpR = tapelev4, key = ilev_4
c3be04357d Jean*0047 
507fbacc22 Gael*0048 #ifdef ALLOW_ADAMSBASHFORTH_3
7448700841 Mart*0049 CADJ STORE gtnm  = tapelev4, key = ilev_4
                0050 CADJ STORE gsnm  = tapelev4, key = ilev_4
                0051 CADJ STORE gunm  = tapelev4, key = ilev_4
                0052 CADJ STORE gvnm  = tapelev4, key = ilev_4
507fbacc22 Gael*0053 #else
7448700841 Mart*0054 CADJ STORE gtnm1 = tapelev4, key = ilev_4
                0055 CADJ STORE gsnm1 = tapelev4, key = ilev_4
                0056 CADJ STORE gunm1 = tapelev4, key = ilev_4
                0057 CADJ STORE gvnm1 = tapelev4, key = ilev_4
507fbacc22 Gael*0058 #endif
7448700841 Mart*0059 CADJ STORE theta = tapelev4, key = ilev_4
e4f1c09db9 Jean*0060 CADJ STORE salt  = tapelev4, key = ilev_4
                0061 CADJ STORE uvel  = tapelev4, key = ilev_4
                0062 CADJ STORE vvel  = tapelev4, key = ilev_4
c5c9d716eb Patr*0063 CADJ STORE wvel  = tapelev4, key = ilev_4
7448700841 Mart*0064 CADJ STORE totphihyd     = tapelev4, key = ilev_4
c5c9d716eb Patr*0065 c
3c775cbf98 Mart*0066 #endif /* AUTODIFF_USE_STORE_RESTORE */
c5c9d716eb Patr*0067 
aa2d1573fa Patr*0068 #ifdef NONLIN_FRSURF
                0069 CADJ STORE hfac_surfc    = tapelev4, key = ilev_4
                0070 CADJ STORE hfac_surfs    = tapelev4, key = ilev_4
                0071 CADJ STORE hfac_surfw    = tapelev4, key = ilev_4
7448700841 Mart*0072 CADJ STORE hFac_surfNm1C = tapelev4, key = ilev_4
                0073 CADJ STORE hFac_surfNm1S = tapelev4, key = ilev_4
                0074 CADJ STORE hFac_surfNm1W = tapelev4, key = ilev_4
2fd2ab9859 Patr*0075 
aa2d1573fa Patr*0076 # ifndef DISABLE_RSTAR_CODE
e4f1c09db9 Jean*0077 CADJ STORE rstarexpc,rstarexps,rstarexpw
aa2d1573fa Patr*0078 CADJ &     = tapelev4, key = ilev_4
e4f1c09db9 Jean*0079 CADJ STORE rstarfacc,rstarfacs,rstarfacw
aa2d1573fa Patr*0080 CADJ &     = tapelev4, key = ilev_4
3facd719d7 Gael*0081 CADJ STORE rStarFacNm1C,rStarFacNm1S,rStarFacNm1W
aa2d1573fa Patr*0082 CADJ &     = tapelev4, key = ilev_4
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 &     = tapelev4, key = ilev_4
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 = tapelev4, key = ilev_4
                0095 CADJ STORE pc, ps, pw       = tapelev4, key = ilev_4
aecc8b0f47 Mart*0096 #endif
aa2d1573fa Patr*0097 
0785f33837 Patr*0098 #ifdef ALLOW_CD_CODE
                0099 # include "cd_code_ad_check_lev4_dir.h"
                0100 #endif /* ALLOW_CD_CODE */
                0101 
eb99fca311 Gael*0102 #ifdef ALLOW_GGL90
                0103 # include "ggl90_ad_check_lev4_dir.h"
                0104 #endif
                0105 
0785f33837 Patr*0106 #ifdef ALLOW_EXF
                0107 # include "exf_ad_check_lev4_dir.h"
5728d4a98b Patr*0108 #endif /* ALLOW_EXF */
0785f33837 Patr*0109 
f1e33a6eed Gael*0110 #ifdef ALLOW_CTRL
                0111 # include "ctrl_ad_check_lev4_dir.h"
e4f1c09db9 Jean*0112 #endif
f1e33a6eed Gael*0113 
0785f33837 Patr*0114 #ifdef ALLOW_PTRACERS
                0115 # include "ptracers_ad_check_lev4_dir.h"
                0116 #endif
                0117 
                0118 #ifdef ALLOW_OBCS
                0119 # include "obcs_ad_check_lev4_dir.h"
                0120 #endif  /* ALLOW_OBCS */
                0121 
25a8d9f9c0 Patr*0122 #ifdef ALLOW_SALT_PLUME
                0123 # include "salt_plume_ad_check_lev4_dir.h"
                0124 #endif
                0125 
2f01a7b2d6 Patr*0126 #ifdef ALLOW_SEAICE
0320e25227 Mart*0127 CADJ STORE phiHydLow  = tapelev4, key = ilev_4
2f01a7b2d6 Patr*0128 # include "seaice_ad_check_lev4_dir.h"
                0129 #endif /* ALLOW_SEAICE */
0785f33837 Patr*0130 
cc747f5a7a Patr*0131 #ifdef ALLOW_THSICE
                0132 # include "thsice_ad_check_lev4_dir.h"
                0133 #endif /* ALLOW_THSICE */
                0134 
2f01a7b2d6 Patr*0135 #ifdef ALLOW_SHELFICE
                0136 # include "shelfice_ad_check_lev4_dir.h"
                0137 #endif /* ALLOW_SHELFICE */
                0138 
42a1dbd269 Patr*0139 #ifdef ALLOW_STREAMICE
                0140 # include "streamice_ad_check_lev4_dir.h"
                0141 #endif /* ALLOW_STREAMICE */
                0142 
cc747f5a7a Patr*0143 #ifdef ALLOW_RBCS
                0144 # include "rbcs_ad_check_lev4_dir.h"
8656989ec1 Patr*0145 #endif /* ALLOW_RBCS */
                0146 
                0147 #ifdef ALLOW_OFFLINE
                0148 # include "offline_ad_check_lev4_dir.h"
                0149 #endif /* ALLOW_OFFLINE */
cc747f5a7a Patr*0150 
529eea311c Gael*0151 #ifdef ALLOW_CFC
                0152 # include "cfc_ad_check_lev4_dir.h"
                0153 #endif
e4f1c09db9 Jean*0154 
529eea311c Gael*0155 #ifdef ALLOW_DIC
                0156 # include "dic_ad_check_lev4_dir.h"
                0157 #endif
                0158 
a84a33e808 Matt*0159 #ifdef ALLOW_BLING
                0160 # include "bling_ad_check_lev4_dir.h"
                0161 #endif
                0162 
e66ad81ead Patr*0163 #ifdef ALLOW_GENERIC_ADVDIFF
                0164 # include "gad_ad_check_lev4_dir.h"
                0165 #endif
                0166 
0785f33837 Patr*0167 #ifdef ALLOW_EBM
                0168 CADJ STORE fu    = tapelev4, key = ilev_4
                0169 CADJ STORE fv    = tapelev4, key = ilev_4
                0170 CADJ STORE qnet  = tapelev4, key = ilev_4
                0171 CADJ STORE qsw   = tapelev4, key = ilev_4
                0172 CADJ STORE sss   = tapelev4, key = ilev_4
                0173 CADJ STORE empmr = tapelev4, key = ilev_4
                0174 # include "ebm_ad_check_lev4_dir.h"
                0175 #endif /* ALLOW_EBM */
                0176 
8f9ab6df2d Davi*0177 #ifdef ALLOW_COST
7448700841 Mart*0178 C     Whether or not the following store directives are necessary
                0179 C     depends heavily on the details of the cost function, so we stick
                0180 C     to the strategy of inserting these store directives regardless of
                0181 C     the "not necessary" warnings they produce.
0785f33837 Patr*0182 CADJ STORE cMeanTheta = tapelev4, key = ilev_4
                0183 CADJ STORE cMeanUVel  = tapelev4, key = ilev_4
                0184 CADJ STORE cMeanVVel  = tapelev4, key = ilev_4
781d8676b2 Patr*0185 CADJ STORE cMeanThetaUVel = tapelev4, key = ilev_4
                0186 CADJ STORE cMeanThetaVVel = tapelev4, key = ilev_4
0785f33837 Patr*0187 #endif
                0188 
                0189 #ifdef ALLOW_COST_TRACER
                0190 CADJ STORE objf_tracer = tapelev4, key = ilev_4
                0191 #endif
[ Source navigation ] [ Diff markup ] [ Identifier search ] [ general search ]

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

The LXR team
Valid CSS 2.1! Valid HTML 4.01!