C $Header: /u/gcmpack/MITgcm/pkg/autodiff/checkpoint_lev2_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  = tapelev2, key = ilev_2
CADJ STORE surfaceforcingTice = tapelev2, key = ilev_2
CADJ STORE taux0 = tapelev2, key = ilev_2
CADJ STORE taux1 = tapelev2, key = ilev_2
CADJ STORE tauy0 = tapelev2, key = ilev_2
CADJ STORE tauy1 = tapelev2, key = ilev_2
CADJ STORE qnet0 = tapelev2, key = ilev_2
CADJ STORE qnet1 = tapelev2, key = ilev_2
CADJ STORE empmr0 = tapelev2, key = ilev_2
CADJ STORE empmr1 = tapelev2, key = ilev_2
CADJ STORE sst0 = tapelev2, key = ilev_2
CADJ STORE sst1 = tapelev2, key = ilev_2
CADJ STORE sss0 = tapelev2, key = ilev_2
CADJ STORE sss1 = tapelev2, key = ilev_2
CADJ STORE saltflux0 = tapelev2, key = ilev_2
CADJ STORE saltflux1 = tapelev2, key = ilev_2
#ifdef SHORTWAVE_HEATING
CADJ STORE qsw0 = tapelev2, key = ilev_2
CADJ STORE qsw1 = tapelev2, key = ilev_2
#endif
#ifdef ATMOSPHERIC_LOADING
CADJ STORE pload0 = tapelev2, key = ilev_2
CADJ STORE pload1 = tapelev2, key = ilev_2
#endif
#ifdef EXACT_CONSERV
CADJ STORE etaH = tapelev2, key = ilev_2
CADJ STORE dEtaHdt = tapelev2, key = ilev_2
CADJ STORE PmEpR = tapelev2, key = ilev_2
#endif
c
#else /* ndef AUTODIFF_USE_OLDSTORE_2D */
c
CADJ STORE StoreDynVars2D     = tapelev2, key = ilev_2
c
#endif /* AUTODIFF_USE_OLDSTORE_2D */
c
#ifdef AUTODIFF_USE_OLDSTORE_3D
c
#ifdef ALLOW_ADAMSBASHFORTH_3
CADJ STORE gtnm = tapelev2, key = ilev_2
CADJ STORE gsnm = tapelev2, key = ilev_2
CADJ STORE gunm = tapelev2, key = ilev_2
CADJ STORE gvnm = tapelev2, key = ilev_2
#else
CADJ STORE gtnm1  = tapelev2, key = ilev_2
CADJ STORE gsnm1  = tapelev2, key = ilev_2
CADJ STORE gunm1  = tapelev2, key = ilev_2
CADJ STORE gvnm1  = tapelev2, key = ilev_2
#endif
CADJ STORE theta  = tapelev2, key = ilev_2
CADJ STORE salt  = tapelev2, key = ilev_2
CADJ STORE uvel  = tapelev2, key = ilev_2
CADJ STORE vvel  = tapelev2, key = ilev_2
CADJ STORE wvel  = tapelev2, key = ilev_2
CADJ STORE totphihyd  = tapelev2, key = ilev_2
c
#else /* ndef AUTODIFF_USE_OLDSTORE_3D */
c
CADJ STORE StoreDynVars3D     = tapelev2, key = ilev_2
c
#endif /* AUTODIFF_USE_OLDSTORE_3D */

CADJ STORE phi0surf     = tapelev2, key = ilev_2
CADJ STORE saltflux     = tapelev2, key = ilev_2

#ifdef EXACT_CONSERV
cphCADJ STORE hDivFlow  = tapelev2, key = ilev_2
#endif /* EXACT_CONSERV */

#ifdef NONLIN_FRSURF
CADJ STORE hfac_surfc    = tapelev2, key = ilev_2
CADJ STORE hfac_surfs    = tapelev2, key = ilev_2
CADJ STORE hfac_surfw    = tapelev2, key = ilev_2
CADJ STORE hFac_surfNm1C= tapelev2, key = ilev_2
CADJ STORE hFac_surfNm1S= tapelev2, key = ilev_2
CADJ STORE hFac_surfNm1W= tapelev2, key = ilev_2

# ifndef DISABLE_RSTAR_CODE
CADJ STORE rstarexpc,rstarexps,rstarexpw
CADJ &     = tapelev2, key = ilev_2
CADJ STORE rstarfacc,rstarfacs,rstarfacw
CADJ &     = tapelev2, key = ilev_2
CADJ STORE rStarFacNm1C,rStarFacNm1S,rStarFacNm1W
CADJ &     = tapelev2, key = ilev_2
CADJ STORE rstardhcdt,rstardhsdt,rstardhwdt
CADJ &     = tapelev2, key = ilev_2
# endif

# ifdef ALLOW_CG2D_NSA
CADJ STORE aW2d, aS2d, aC2d =
CADJ &     tapelev2, key = ilev_2
CADJ STORE pc, ps, pw =
CADJ &     tapelev2, key = ilev_2
# endif

#endif /* NONLIN_FRSURF */

#ifdef ALLOW_CD_CODE
# include "cd_code_ad_check_lev2_dir.h"
#endif /* ALLOW_CD_CODE */

#ifdef ALLOW_GGL90
# include "ggl90_ad_check_lev2_dir.h"
#endif

#ifdef ALLOW_ECCO
# include "ecco_ad_check_lev2_dir.h"
#endif

#ifdef ALLOW_EXF
# include "exf_ad_check_lev2_dir.h"
#endif /* ALLOW_EXF */

#ifdef ALLOW_CTRL
# include "ctrl_ad_check_lev2_dir.h"
#endif

#ifdef ALLOW_PTRACERS
# include "ptracers_ad_check_lev2_dir.h"
#endif

#ifdef ALLOW_OBCS
# include "obcs_ad_check_lev2_dir.h"
#endif  /* ALLOW_OBCS */

#ifdef ALLOW_SALT_PLUME
# include "salt_plume_ad_check_lev2_dir.h"
#endif

#ifdef ALLOW_SEAICE
# include "seaice_ad_check_lev2_dir.h"
#endif /* ALLOW_SEAICE */

#ifdef ALLOW_THSICE
# include "thsice_ad_check_lev2_dir.h"
#endif /* ALLOW_THSICE */

#ifdef ALLOW_SHELFICE
# include "shelfice_ad_check_lev2_dir.h"
#endif /* ALLOW_SHELFICE */

#ifdef ALLOW_STREAMICE
# include "streamice_ad_check_lev2_dir.h"
#endif /* ALLOW_STREAMICE */

#ifdef ALLOW_RBCS
# include "rbcs_ad_check_lev2_dir.h"
#endif /* ALLOW_RBCS */

#ifdef ALLOW_OFFLINE
# include "offline_ad_check_lev2_dir.h"
#endif /* ALLOW_OFFLINE */

#ifdef ALLOW_GCHEM
# include "gchem_ad_check_lev2_dir.h"
#endif

#ifdef ALLOW_CFC
# include "cfc_ad_check_lev2_dir.h"
#endif

#ifdef ALLOW_DIC
# include "dic_ad_check_lev2_dir.h"
#endif

#ifdef ALLOW_BLING
# include "bling_ad_check_lev2_dir.h"
#endif

#ifdef ALLOW_GENERIC_ADVDIFF
# include "gad_ad_check_lev2_dir.h"
#endif

#ifdef ALLOW_EBM
CADJ STORE fu    = tapelev2, key = ilev_2
CADJ STORE fv    = tapelev2, key = ilev_2
CADJ STORE qnet  = tapelev2, key = ilev_2
CADJ STORE qsw   = tapelev2, key = ilev_2
CADJ STORE sss   = tapelev2, key = ilev_2
CADJ STORE empmr = tapelev2, key = ilev_2
# include "ebm_ad_check_lev2_dir.h"
#endif /* ALLOW_EBM */

#ifdef ALLOW_COST
CADJ STORE cMeanTheta = tapelev2, key = ilev_2
CADJ STORE cMeanUVel  = tapelev2, key = ilev_2
CADJ STORE cMeanVVel  = tapelev2, key = ilev_2
CADJ STORE cMeanThetaUVel = tapelev2, key = ilev_2
CADJ STORE cMeanThetaVVel = tapelev2, key = ilev_2
#endif

#ifdef ALLOW_COST_TRACER
CADJ STORE objf_tracer = tapelev2, key = ilev_2
#endif

#ifdef ALLOW_COST_TRANSPORT
CADJ STORE objf_transport = tapelev2, key = ilev_2
#endif

#ifdef ALLOW_HFLUXM_CONTROL
CADJ STORE qnetm          = tapelev2, key = ilev_2
#endif

#ifdef ALLOW_SEAICE
cph temporary for HD
# ifdef ANNUAL_BALANCE
CADJ STORE balance_itcount = tapelev2, key = ilev_2
CADJ STORE atmfw_tilesum   = tapelev2, key = ilev_2
CADJ STORE qnet_tilesum    = tapelev2, key = ilev_2
CADJ STORE empmr_corr      = tapelev2, key = ilev_2
CADJ STORE qnet_corr       = tapelev2, key = ilev_2
# endif /* ANNUAL_BALANCE */
#endif