SUBROUTINE drv_allocate_alma
!======================================================================
! Description: Declare Modules and Data Structures, and allocate memory
!              for ALMA Input and Output fields
! $Log: drv_allocate_alma.f90,v $
! Revision 1.1  2002/08/16  15:31:51  guo
! Initial revision
!
!======================================================================

      USE drv_dat_mod
      IMPLICIT NONE

   !===================================================================

!ALMA forcing data
      ALLOCATE (A_SWdown       (lpnts))
      ALLOCATE (A_LWdown       (lpnts))
      ALLOCATE (A_RainfF       (lpnts))
      ALLOCATE (A_SnowfF       (lpnts))
      ALLOCATE (A_Wind         (lpnts))
      ALLOCATE (A_Tair         (lpnts))
      ALLOCATE (A_Qair         (lpnts))
      ALLOCATE (A_Psurf        (lpnts))
!ALMA accumulators
      ALLOCATE (A_Missing      (lpnts))
      A_Missing = missing
!ALMA O.1
      ALLOCATE (A_SWnet        (lpnts))
      ALLOCATE (A_LWnet        (lpnts))
      ALLOCATE (A_Qle          (lpnts))
      ALLOCATE (A_Qh           (lpnts))
      ALLOCATE (A_Qg           (lpnts))
      ALLOCATE (A_Qf           (lpnts))
      ALLOCATE (A_Qv           (lpnts))
      ALLOCATE (A_Qa           (lpnts))
      ALLOCATE (A_DelSurfHeat  (lpnts))
      ALLOCATE (A_DelColdCont  (lpnts))
!ALMA O.2
      ALLOCATE (A_Rainf        (lpnts))
      ALLOCATE (A_Snowf        (lpnts))
      ALLOCATE (A_Evap         (lpnts))
      ALLOCATE (A_Qs           (lpnts))
      ALLOCATE (A_Qsb          (lpnts))
      ALLOCATE (A_Qsm          (lpnts))
      ALLOCATE (A_Qfz          (lpnts))
      ALLOCATE (A_Qst          (lpnts))
      ALLOCATE (A_DelSoilMoist (lpnts))
      ALLOCATE (A_DelSWE       (lpnts))
      ALLOCATE (A_DelSurfStor  (lpnts))
      ALLOCATE (A_DelIntercept (lpnts))
!ALMA O.3
      ALLOCATE (A_SnowT        (lpnts))
      ALLOCATE (A_VegT         (lpnts))
      ALLOCATE (A_BareSoilT    (lpnts))
      ALLOCATE (A_AvgSurfT     (lpnts))
      ALLOCATE (A_RadT         (lpnts))
      ALLOCATE (A_Alb_SWdown   (lpnts))
      ALLOCATE (A_Albedo       (lpnts))
      ALLOCATE (A_SWE          (lpnts))
      ALLOCATE (A_SurfStor     (lpnts))
!ALMA O.4
      ALLOCATE (A_SoilMoist    (lpnts,idp))
      ALLOCATE (A_SoilTemp     (lpnts,idp))
      ALLOCATE (A_SMLiqFrac    (lpnts,idp))
      ALLOCATE (A_SMFrozFrac   (lpnts,idp))
      ALLOCATE (A_SoilWet      (lpnts))
!ALMA O.5
      ALLOCATE (A_PotEvap      (lpnts))
      ALLOCATE (A_ECanop       (lpnts))
      ALLOCATE (A_TVeg         (lpnts))
      ALLOCATE (A_Esoil        (lpnts))
      ALLOCATE (A_Ewater       (lpnts))
      ALLOCATE (A_RootMoist    (lpnts))
      ALLOCATE (A_CanopInt     (lpnts))
      ALLOCATE (A_EvapSnow     (lpnts))
      ALLOCATE (A_SubSnow      (lpnts))
      ALLOCATE (A_SubSurf      (lpnts))
      ALLOCATE (A_ACond        (lpnts))
!ALMA O.7
      ALLOCATE (A_SnowFrac     (lpnts))
      ALLOCATE (A_SAlbedo      (lpnts))
      ALLOCATE (A_SnowTProf    (lpnts))
      ALLOCATE (A_SnowDepth    (lpnts))
      ALLOCATE (A_SliqFrac     (lpnts))

      END SUBROUTINE drv_allocate_alma