module Mod_SISVATLzSn

!--------------------------------------------------------------------------+
!                                                     Wed 26-Jun-2013  MAR |
!     module Mod_SISVATLzSn contains local variables of SISVAT_zSn         |
!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
!                                                                          |
!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
!                                                                          |
!--------------------------------------------------------------------------+


! Global  Variables
! =================

      use Mod_Real



! Internal Variables
! ==================

      IMPLICIT NONE


      integer, SAVE         , ALLOCATABLE, dimension(:,:)  ::  NLay_s          ! Split Snow Layer         Switch
      integer, SAVE         , ALLOCATABLE, dimension(:,:)  ::  isagr1          ! 1st     Layer History
      integer, SAVE         , ALLOCATABLE, dimension(:,:)  ::  isagr2          ! 2nd     Layer History
      integer, SAVE         , ALLOCATABLE, dimension(:,:)  ::  isn1            ! 1st layer to stagger

      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  WEagre          ! Snow Water Equivalent Thickness
      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dzthin          ! Thickness of the thinest layer
      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  Agrege          ! 1. when Agregation constrained
      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dzagr1          ! 1st     Layer Thickness
      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dzagr2          ! 2nd     Layer Thickness
      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  T_agr1          ! 1st     Layer Temperature
      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  T_agr2          ! 2nd     Layer Temperature
      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  roagr1          ! 1st     Layer Density
      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  roagr2          ! 2nd     Layer Density
      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  etagr1          ! 1st     Layer Water Content
      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  etagr2          ! 2nd     Layer Water Content
      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  G1agr1          ! 1st     Layer Dendricity/Spher.
      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  G1agr2          ! 2nd     Layer Dendricity/Spher.
      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  G2agr1          ! 1st     Layer Sphericity/Size
      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  G2agr2          ! 2nd     Layer Sphericity/Size
      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  agagr1          ! 1st     Layer Age
      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  agagr2          ! 2nd     Layer Age

! #vz real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dz_ref          ! Snow Reference Discretization
! #vz real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dzwdif          !


      end module Mod_SISVATLzSn