C $Header$
C $Name$
c
c     store directives for checkpoint level 1
c
c     created: heimbach@mit.edu 10-Jan-2002
c

CADJ STORE totphihyd = comlev1,
CADJ &     key = ikey_dynamics, kind = isbyte
CADJ STORE phi0surf = comlev1,
CADJ &     key = ikey_dynamics, kind = isbyte
CADJ STORE saltflux = comlev1,
CADJ &     key = ikey_dynamics, kind = isbyte
#ifdef EXACT_CONSERV
CADJ STORE pmepr = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
#endif

#ifdef ALLOW_SEAICE
# ifdef ALLOW_DOWN_SLOPE
CADJ STORE area,heff,hsnow = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE uice,vice = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE tices = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE eta,zeta = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
# endif
CADJ STORE surfaceforcingtice = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE salt = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
#endif

#ifdef NONLIN_FRSURF
c
CADJ STORE hfac_surfc  = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE hFac_surfNm1C = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE hfac_surfs  = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE hFac_surfNm1S = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE hfac_surfw  = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE hFac_surfNm1W = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
c
CADJ STORE detahdt            = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
# ifndef ALLOW_ADAMSBASHFORTH_3
CADJ STORE gsnm1,gtnm1        = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE gunm1,gvnm1        = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
# else
CADJ STORE gsnm,gtnm          = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
cphCADJ STORE gunm,gvnm          = comlev1, key = ikey_dynamics,
cphCADJ &     kind = isbyte
# endif
CADJ STORE salt,theta         = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE uvel,vvel,wvel     = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE surfaceforcingtice = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
c
# ifndef DISABLE_RSTAR_CODE
CADJ STORE rstarfacc
CADJ &     = comlev1, key = ikey_dynamics, kind = isbyte
ccCADJ STORE rstarfacc,rstarfacs,rstarfacw
ccCADJ &     = comlev1, key = ikey_dynamics,
ccCADJ &     kind = isbyte
CADJ STORE rStarFacNm1C,rStarFacNm1S,rStarFacNm1W
CADJ &     = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE rstarexpc,rstarexps,rstarexpw
CADJ &     = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE rstardhcdt,rstardhsdt,rstardhwdt
CADJ &     = comlev1, key = ikey_dynamics, kind = isbyte
# endif
#endif /* NONLIN_FRSURF */

#ifdef ALLOW_DEPTH_CONTROL
CADJ STORE pmepr,surfaceforcingtice
CADJ &     = comlev1, key=ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE detahdt
CADJ &     = comlev1, key=ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE gsnm1,gtnm1,gunm1,gvnm1
CADJ &     = comlev1, key=ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE theta,salt,totphihyd,wvel
CADJ &     = comlev1, key=ikey_dynamics,
CADJ &     kind = isbyte
#endif /* ALLOW_DEPTH_CONTROL */

#ifdef ALLOW_CD_CODE
# include "cd_code_ad_check_lev1_dir.h"
#endif

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

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

#ifdef ALLOW_EXF
# include "exf_ad_check_lev1_dir.h"
#endif /* ALLOW_EXF undef */

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

#ifdef STORE_LOADEDREC_TEST
CADJ STORE loadedRec = comlev1, key = ikey_dynamics, kind = 4
#endif

CADJ STORE taux0   = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE taux1   = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE tauy0   = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE tauy1   = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE Qnet0   = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE Qnet1   = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE EmPmR0  = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE EmPmR1  = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE SST0    = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE SST1    = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE SSS0    = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE SSS1    = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE saltFlux0    = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE saltFlux1    = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
# ifdef SHORTWAVE_HEATING
CADJ STORE Qsw0    = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE Qsw1    = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
# endif
# ifdef ATMOSPHERIC_LOADING
CADJ STORE pload0  = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE pload1  = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE siceload = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
# endif

#ifdef ALLOW_OBCS
# include "obcs_ad_check_lev1_dir.h"
# ifdef ALLOW_SEAICE
CML required for the combination of seaice and obcs. In combination with
CML downslope or ALLOW_HFLUXM_CONTROL, these directives are double
CADJ STORE area,heff,hsnow = comlev1, key=ikey_dynamics, kind=isbyte
#  ifdef SEAICE_ALLOW_DYNAMICS
CADJ STORE uice,vice       = comlev1, key=ikey_dynamics, kind=isbyte
#  endif /* SEAICE_ALLOW_DYNAMICS */
# endif /* ALLOW_SEAICE */
#endif  /* ALLOW_OBCS */

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

#ifdef ALLOW_SEAICE
# include "seaice_ad_check_lev1_dir.h"
#endif

#ifdef ALLOW_THSICE
# include "thsice_ad_check_lev1_dir.h"
#endif

#ifdef ALLOW_SHELFICE
# include "shelfice_ad_check_lev1_dir.h"
#endif

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

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

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

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

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

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

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

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

#ifdef ALLOW_EBM
CADJ STORE fu      = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE fv      = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE sss     = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE qnet    = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE qsw     = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE empmr   = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE theta   = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
# include "ebm_ad_check_lev1_dir.h"
#endif

#ifdef ALLOW_COST
CADJ STORE cMeanThetaUVel = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE cMeanThetaVVel = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
#endif

#if (defined (ALLOW_COST_ATLANTIC) || defined (ALLOW_COST_ATLANTIC_HEAT))
CADJ STORE theta = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE uVel  = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
CADJ STORE vVel  = comlev1, key = ikey_dynamics,
CADJ &     kind = isbyte
#endif

#ifdef ALLOW_SEAICE
cph temporary for HD
# ifdef ALLOW_HFLUXM_CONTROL
CADJ STORE qnetm      = comlev1, key = ikey_dynamics, kind = isbyte
CADJ STORE area       = comlev1, key = ikey_dynamics, kind = isbyte
CADJ STORE heff,hsnow = comlev1, key = ikey_dynamics, kind = isbyte
CADJ STORE eta,zeta   = comlev1, key = ikey_dynamics, kind = isbyte
CADJ STORE pmepr      = comlev1, key = ikey_dynamics, kind = isbyte
CADJ STORE totphihyd,salt = comlev1, key = ikey_dynamics, kind = isbyte
CADJ STORE uice,vice  = comlev1, key = ikey_dynamics, kind = isbyte
# endif
# ifdef ANNUAL_BALANCE
CADJ STORE balance_itcount = comlev1, key = ikey_dynamics, kind = isbyte
CADJ STORE atmfw_tilesum   = comlev1, key = ikey_dynamics, kind = isbyte
CADJ STORE qnet_tilesum    = comlev1, key = ikey_dynamics, kind = isbyte
CADJ STORE qnet_corr       = comlev1, key = ikey_dynamics, kind = isbyte
CADJ STORE empmr_corr      = comlev1, key = ikey_dynamics, kind = isbyte
# endif /* ANNUAL_BALANCE */
#endif
