Homec4science
Diffusion mitgcm_lac_leman_abirani (master) Browse

R2795/MITgcm_orig_code/MITgcm/pkg/autodiff/checkpoint_lev3_directives.h
c8d59fb69877master

Last Change
Raw File

checkpoint_lev3_directives.h
View Options

C $Header: /u/gcmpack/MITgcm/pkg/autodiff/checkpoint_lev3_directives.h,v 1.61 2016/09/12 19:59:10 mmazloff Exp $
C $Name: $
c
c store directives for checkpoint level 4
c
c created: heimbach@mit.edu 10-Jan-2002
c
#ifdef AUTODIFF_USE_OLDSTORE_2D
c
CADJ STORE etan = tapelev3, key = ilev_3
CADJ STORE surfaceforcingTice = tapelev3, key = ilev_3
CADJ STORE taux0 = tapelev3, key = ilev_3
CADJ STORE taux1 = tapelev3, key = ilev_3
CADJ STORE tauy0 = tapelev3, key = ilev_3
CADJ STORE tauy1 = tapelev3, key = ilev_3
CADJ STORE qnet0 = tapelev3, key = ilev_3
CADJ STORE qnet1 = tapelev3, key = ilev_3
CADJ STORE empmr0 = tapelev3, key = ilev_3
CADJ STORE empmr1 = tapelev3, key = ilev_3
CADJ STORE sst0 = tapelev3, key = ilev_3
CADJ STORE sst1 = tapelev3, key = ilev_3
CADJ STORE sss0 = tapelev3, key = ilev_3
CADJ STORE sss1 = tapelev3, key = ilev_3
CADJ STORE saltflux0 = tapelev3, key = ilev_3
CADJ STORE saltflux1 = tapelev3, key = ilev_3
#ifdef SHORTWAVE_HEATING
CADJ STORE qsw0 = tapelev3, key = ilev_3
CADJ STORE qsw1 = tapelev3, key = ilev_3
#endif
#ifdef ATMOSPHERIC_LOADING
CADJ STORE pload0 = tapelev3, key = ilev_3
CADJ STORE pload1 = tapelev3, key = ilev_3
#endif
#ifdef EXACT_CONSERV
CADJ STORE etaH = tapelev3, key = ilev_3
CADJ STORE dEtaHdt = tapelev3, key = ilev_3
CADJ STORE PmEpR = tapelev3, key = ilev_3
#endif
c
#else /* ndef AUTODIFF_USE_OLDSTORE_2D */
c
CADJ STORE StoreDynVars2D = tapelev3, key = ilev_3
c
#endif /* AUTODIFF_USE_OLDSTORE_2D */
c
#ifdef AUTODIFF_USE_OLDSTORE_3D
c
#ifdef ALLOW_ADAMSBASHFORTH_3
CADJ STORE gtnm = tapelev3, key = ilev_3
CADJ STORE gsnm = tapelev3, key = ilev_3
CADJ STORE gunm = tapelev3, key = ilev_3
CADJ STORE gvnm = tapelev3, key = ilev_3
#else
CADJ STORE gtnm1 = tapelev3, key = ilev_3
CADJ STORE gsnm1 = tapelev3, key = ilev_3
CADJ STORE gunm1 = tapelev3, key = ilev_3
CADJ STORE gvnm1 = tapelev3, key = ilev_3
#endif
CADJ STORE theta = tapelev3, key = ilev_3
CADJ STORE salt = tapelev3, key = ilev_3
CADJ STORE uvel = tapelev3, key = ilev_3
CADJ STORE vvel = tapelev3, key = ilev_3
CADJ STORE wvel = tapelev3, key = ilev_3
CADJ STORE totphihyd = tapelev3, key = ilev_3
c
#else /* ndef AUTODIFF_USE_OLDSTORE_3D */
c
CADJ STORE StoreDynVars3D = tapelev3, key = ilev_3
c
#endif /* AUTODIFF_USE_OLDSTORE_3D */
CADJ STORE phi0surf = tapelev3, key = ilev_3
CADJ STORE saltflux = tapelev3, key = ilev_3
#ifdef EXACT_CONSERV
cphCADJ STORE hDivFlow = tapelev3, key = ilev_3
#endif /* EXACT_CONSERV */
#ifdef NONLIN_FRSURF
CADJ STORE hfac_surfc = tapelev3, key = ilev_3
CADJ STORE hfac_surfs = tapelev3, key = ilev_3
CADJ STORE hfac_surfw = tapelev3, key = ilev_3
CADJ STORE hFac_surfNm1C= tapelev3, key = ilev_3
CADJ STORE hFac_surfNm1S= tapelev3, key = ilev_3
CADJ STORE hFac_surfNm1W= tapelev3, key = ilev_3
# ifndef DISABLE_RSTAR_CODE
CADJ STORE rstarexpc,rstarexps,rstarexpw
CADJ & = tapelev3, key = ilev_3
CADJ STORE rstarfacc,rstarfacs,rstarfacw
CADJ & = tapelev3, key = ilev_3
CADJ STORE rStarFacNm1C,rStarFacNm1S,rStarFacNm1W
CADJ & = tapelev3, key = ilev_3
CADJ STORE rstardhcdt,rstardhsdt,rstardhwdt
CADJ & = tapelev3, key = ilev_3
# endif
# ifdef ALLOW_CG2D_NSA
CADJ STORE aW2d, aS2d, aC2d =
CADJ & tapelev3, key = ilev_3
CADJ STORE pc, ps, pw =
CADJ & tapelev3, key = ilev_3
# endif
#endif /* NONLIN_FRSURF */
#ifdef ALLOW_CD_CODE
# include "cd_code_ad_check_lev3_dir.h"
#endif /* ALLOW_CD_CODE */
#ifdef ALLOW_GGL90
# include "ggl90_ad_check_lev3_dir.h"
#endif
#ifdef ALLOW_ECCO
# include "ecco_ad_check_lev3_dir.h"
#endif
#ifdef ALLOW_EXF
# include "exf_ad_check_lev3_dir.h"
#endif /* ALLOW_EXF */
#ifdef ALLOW_CTRL
# include "ctrl_ad_check_lev3_dir.h"
#endif
#ifdef ALLOW_PTRACERS
# include "ptracers_ad_check_lev3_dir.h"
#endif
#ifdef ALLOW_OBCS
# include "obcs_ad_check_lev3_dir.h"
#endif /* ALLOW_OBCS */
#ifdef ALLOW_SALT_PLUME
# include "salt_plume_ad_check_lev3_dir.h"
#endif
#ifdef ALLOW_SEAICE
# include "seaice_ad_check_lev3_dir.h"
#endif /* ALLOW_SEAICE */
#ifdef ALLOW_THSICE
# include "thsice_ad_check_lev3_dir.h"
#endif /* ALLOW_THSICE */
#ifdef ALLOW_SHELFICE
# include "shelfice_ad_check_lev3_dir.h"
#endif /* ALLOW_SHELFICE */
#ifdef ALLOW_STREAMICE
# include "streamice_ad_check_lev3_dir.h"
#endif /* ALLOW_STREAMICE */
#ifdef ALLOW_RBCS
# include "rbcs_ad_check_lev3_dir.h"
#endif /* ALLOW_RBCS */
#ifdef ALLOW_OFFLINE
# include "offline_ad_check_lev3_dir.h"
#endif /* ALLOW_OFFLINE */
#ifdef ALLOW_GCHEM
# include "gchem_ad_check_lev3_dir.h"
#endif
#ifdef ALLOW_CFC
# include "cfc_ad_check_lev3_dir.h"
#endif
#ifdef ALLOW_DIC
# include "dic_ad_check_lev3_dir.h"
#endif
#ifdef ALLOW_BLING
# include "bling_ad_check_lev3_dir.h"
#endif
#ifdef ALLOW_GENERIC_ADVDIFF
# include "gad_ad_check_lev3_dir.h"
#endif
#ifdef ALLOW_EBM
CADJ STORE fu = tapelev3, key = ilev_3
CADJ STORE fv = tapelev3, key = ilev_3
CADJ STORE qnet = tapelev3, key = ilev_3
CADJ STORE qsw = tapelev3, key = ilev_3
CADJ STORE sss = tapelev3, key = ilev_3
CADJ STORE empmr = tapelev3, key = ilev_3
# include "ebm_ad_check_lev3_dir.h"
#endif /* ALLOW_EBM */
#ifdef ALLOW_COST
CADJ STORE cMeanTheta = tapelev3, key = ilev_3
CADJ STORE cMeanUVel = tapelev3, key = ilev_3
CADJ STORE cMeanVVel = tapelev3, key = ilev_3
CADJ STORE cMeanThetaUVel = tapelev3, key = ilev_3
CADJ STORE cMeanThetaVVel = tapelev3, key = ilev_3
#endif
#ifdef ALLOW_COST_TRACER
CADJ STORE objf_tracer = tapelev3, key = ilev_3
#endif
#ifdef ALLOW_COST_TRANSPORT
CADJ STORE objf_transport = tapelev3, key = ilev_3
#endif
#ifdef ALLOW_HFLUXM_CONTROL
CADJ STORE qnetm = tapelev3, key = ilev_3
#endif
#ifdef ALLOW_SEAICE
cph temporary for HD
# ifdef ANNUAL_BALANCE
CADJ STORE balance_itcount = tapelev3, key = ilev_3
CADJ STORE atmfw_tilesum = tapelev3, key = ilev_3
CADJ STORE qnet_tilesum = tapelev3, key = ilev_3
CADJ STORE empmr_corr = tapelev3, key = ilev_3
CADJ STORE qnet_corr = tapelev3, key = ilev_3
# endif /* ANNUAL_BALANCE */
#endif
c4science · Help