allocate_teb_veg.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
!     #########
    SUBROUTINE allocate_teb_veg (PEK, KLU,KGROUND_LAYER,KNBIOMASS)  
!   ##########################################################################
!
!
USE modd_isba_n, ONLY : isba_pe_t
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!
TYPE(isba_pe_t), INTENT(INOUT) :: PEK
!
INTEGER, INTENT(IN) :: KLU
INTEGER, INTENT(IN) :: KGROUND_LAYER
INTEGER, INTENT(IN) :: KNBIOMASS
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!-------------------------------------------------------------------------------
!
! Mask and number of grid elements containing patches/tiles:
!
IF (lhook) CALL dr_hook('ALLOCATE_TEB_VEG',0,zhook_handle)
!
!-------------------------------------------------------------------------------
!
! Averaged Surface radiative parameters:
!
ALLOCATE(pek%XSNOWFREE_ALB           (klu))
ALLOCATE(pek%XSNOWFREE_ALB_VEG       (klu))
ALLOCATE(pek%XSNOWFREE_ALB_SOIL      (klu))
!
!-------------------------------------------------------------------------------
!
! Prognostic variables:
!
!
! - Soil and vegetation heat and water:
!
ALLOCATE(pek%XWR                     (klu                    )) 
ALLOCATE(pek%XTG                     (klu,kground_layer      )) 
ALLOCATE(pek%XWG                     (klu,kground_layer      )) 
ALLOCATE(pek%XWGI                    (klu,kground_layer      )) 
ALLOCATE(pek%XRESA                   (klu                    )) 
!
! - Vegetation: Ags Prognostic 
!
ALLOCATE(pek%XAN                     (klu                    )) 
ALLOCATE(pek%XANDAY                  (klu                    )) 
ALLOCATE(pek%XANFM                   (klu                    )) 
ALLOCATE(pek%XLE                     (klu                    ))
!
! - Vegetation (Ags 'NIT' 'NCB' option):
!
ALLOCATE(pek%XBIOMASS                (klu,knbiomass          ))
ALLOCATE(pek%XRESP_BIOMASS           (klu,knbiomass          ))
!
IF (lhook) CALL dr_hook('ALLOCATE_TEB_VEG',1,zhook_handle)
!
END SUBROUTINE allocate_teb_veg