C $Header: /u/gcmpack/MITgcm/pkg/streamice/streamice_ad_check_lev4_dir.h,v 1.3 2014/06/04 12:55:58 dgoldberg Exp $
C $Name:  $

#ifdef ALLOW_STREAMICE

CADJ STORE area_shelf_streamice = tapelev4, key = ilev_4
CADJ STORE streamice_hmask = tapelev4, key = ilev_4
CADJ STORE u_streamice = tapelev4, key = ilev_4
CADJ STORE v_streamice = tapelev4, key = ilev_4
CADJ STORE h_streamice = tapelev4, key = ilev_4
CADJ STORE visc_streamice = tapelev4, key = ilev_4
CADJ STORE tau_beta_eff_streamice = tapelev4, key = ilev_4

#ifdef ALLOW_STREAMICE_2DTRACER
CADJ STORE trac2d
CADJ &     = tapelev4, key = ilev_4
#endif


CADJ STORE cost_func1_streamice
CADJ &     = tapelev4, key = ilev_4

CADJ STORE surf_el_streamice
CADJ &     = tapelev4, key=ilev_4
CADJ STORE float_frac_streamice
CADJ &     = tapelev4, key=ilev_4

CADJ STORE c_basal_friction
CADJ &     = tapelev4, key=ilev_4

# ifdef STREAMICE_HYBRID_STRESS
CADJ STORE visc_streamice_full
CADJ &     = tapelev4, key = ilev_4
# endif

# ifdef ALLOW_GENTIM2D_CONTROL
CADJ STORE bdot_streamice
#ifdef  STREAMICE_STRESS_BOUNDARY_CONTROL
CADJ &     = tapelev4, key = ilev_4
CADJ STORE streamice_u_normal_stress
CADJ &     = tapelev4, key = ilev_4
CADJ STORE streamice_v_normal_stress
CADJ &     = tapelev4, key = ilev_4
CADJ STORE streamice_u_shear_stress
CADJ &     = tapelev4, key = ilev_4
CADJ STORE streamice_v_shear_stress
CADJ &     = tapelev4, key = ilev_4
CADJ STORE streamice_u_normal_pert
CADJ &     = tapelev4, key = ilev_4
CADJ STORE streamice_v_normal_pert
CADJ &     = tapelev4, key = ilev_4
CADJ STORE streamice_u_shear_pert
CADJ &     = tapelev4, key = ilev_4
CADJ STORE streamice_v_shear_pert
CADJ &     = tapelev4, key = ilev_4
#endif
# endif

#ifdef ALLOW_STREAMICE_TIMEDEP_FORCING
CADJ STORE bdot_streamice0
CADJ &     = tapelev4, key = ilev_4
CADJ STORE bdot_streamice1
CADJ &     = tapelev4, key = ilev_4
#ifdef  STREAMICE_STRESS_BOUNDARY_CONTROL
CADJ STORE streamice_u_normal_stress0
CADJ &     = tapelev4, key = ilev_4
CADJ STORE streamice_v_normal_stress0
CADJ &     = tapelev4, key = ilev_4
CADJ STORE streamice_u_shear_stress0
CADJ &     = tapelev4, key = ilev_4
CADJ STORE streamice_v_shear_stress0
CADJ &     = tapelev4, key = ilev_4
CADJ STORE streamice_u_normal_stress1
CADJ &     = tapelev4, key = ilev_4
CADJ STORE streamice_v_normal_stress1
CADJ &     = tapelev4, key = ilev_4
CADJ STORE streamice_u_shear_stress1
CADJ &     = tapelev4, key = ilev_4
CADJ STORE streamice_v_shear_stress1
CADJ &     = tapelev4, key = ilev_4
#endif
#endif

#ifdef STREAMICE_TRACER_AB
CADJ STORE GAD_trac_2d
CADJ &     = tapelev4, key = ilev_4
#endif

#endif /* ALLOW_STREAMICE */