allocate_teb_garden.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_garden (TGD, TVG, &
                                    klu,kground_layer)  
!   ##########################################################################
!
!
!
!
USE modd_teb_garden_n, ONLY : teb_garden_t
USE modd_teb_veg_n, ONLY : teb_veg_options_t
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!
TYPE(teb_garden_t), INTENT(INOUT) :: tgd
TYPE(teb_veg_options_t), INTENT(INOUT) :: tvg
!
INTEGER, INTENT(IN) :: klu
INTEGER, INTENT(IN) :: kground_layer
REAL(KIND=JPRB) :: zhook_handle
!
!-------------------------------------------------------------------------------
!
! Mask and number of grid elements containing patches/tiles:
!
IF (lhook) CALL dr_hook('ALLOCATE_TEB_GARDEN',0,zhook_handle)
!
!-------------------------------------------------------------------------------
!
! Averaged Surface radiative parameters:
!
ALLOCATE(tgd%CUR%XSNOWFREE_ALB           (klu))
ALLOCATE(tgd%CUR%XSNOWFREE_ALB_VEG       (klu))
ALLOCATE(tgd%CUR%XSNOWFREE_ALB_SOIL      (klu))
!
!-------------------------------------------------------------------------------
!
! Prognostic variables:
!
!
! - Soil and vegetation heat and water:
!
ALLOCATE(tgd%CUR%XWR                     (klu                    )) 
ALLOCATE(tgd%CUR%XTG                     (klu,kground_layer      )) 
ALLOCATE(tgd%CUR%XWG                     (klu,kground_layer      )) 
ALLOCATE(tgd%CUR%XWGI                    (klu,kground_layer      )) 
ALLOCATE(tgd%CUR%XRESA                   (klu                    )) 
!
! - Vegetation: Ags Prognostic (YPHOTO = 'LAI', 'LST', 'AGS' or 'LST')
!
ALLOCATE(tgd%CUR%XAN                     (klu                    )) 
ALLOCATE(tgd%CUR%XANDAY                  (klu                    )) 
ALLOCATE(tgd%CUR%XANFM                   (klu                    )) 
ALLOCATE(tgd%CUR%XLE                     (klu                    ))
!
! - Vegetation (Ags 'NIT' 'NCB' option):
!
ALLOCATE(tgd%CUR%XBIOMASS                (klu,tvg%NNBIOMASS          ))
ALLOCATE(tgd%CUR%XRESP_BIOMASS           (klu,tvg%NNBIOMASS          ))
!
IF (lhook) CALL dr_hook('ALLOCATE_TEB_GARDEN',1,zhook_handle)
!
END SUBROUTINE allocate_teb_garden