allocate_teb_greenroof.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_greenroof (TGR, TVG, &
                                       klu,klayer_gr)
!   ##########################################################################
!
!
!
!
USE modd_teb_greenroof_n, ONLY : teb_greenroof_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_greenroof_t), INTENT(INOUT) :: tgr
TYPE(teb_veg_options_t), INTENT(INOUT) :: tvg
!
INTEGER, INTENT(IN) :: klu
INTEGER, INTENT(IN) :: klayer_gr
REAL(KIND=JPRB) :: zhook_handle
!
!-------------------------------------------------------------------------------
!
! Mask and number of grid elements containing patches/tiles:
!
IF (lhook) CALL dr_hook('ALLOCATE_TEB_GREENROOF',0,zhook_handle)
!
!-------------------------------------------------------------------------------
!
! Averaged Surface radiative parameters:
!
ALLOCATE(tgr%CUR%XSNOWFREE_ALB           (klu))
ALLOCATE(tgr%CUR%XSNOWFREE_ALB_VEG       (klu))
ALLOCATE(tgr%CUR%XSNOWFREE_ALB_SOIL      (klu))
!
!-------------------------------------------------------------------------------
!
! Prognostic variables:
!
! - Soil and vegetation heat and water:
!
ALLOCATE(tgr%CUR%XWR                     (klu                     )) 
ALLOCATE(tgr%CUR%XTG                     (klu,klayer_gr       )) 
ALLOCATE(tgr%CUR%XWG                     (klu,klayer_gr       )) 
ALLOCATE(tgr%CUR%XWGI                    (klu,klayer_gr       )) 
ALLOCATE(tgr%CUR%XRESA                   (klu                     )) 
!
! - Vegetation: Ags Prognostic (YPHOTO = 'LAI', 'LST', 'AGS' or 'LST')
!
ALLOCATE(tgr%CUR%XAN                     (klu                     )) 
ALLOCATE(tgr%CUR%XANDAY                  (klu                     )) 
ALLOCATE(tgr%CUR%XANFM                   (klu                     )) 
ALLOCATE(tgr%CUR%XLE                     (klu                     ))
!
! - Vegetation (Ags 'NIT' 'NCB' option):
!
ALLOCATE(tgr%CUR%XBIOMASS                (klu,tvg%NNBIOMASS           ))
ALLOCATE(tgr%CUR%XRESP_BIOMASS           (klu,tvg%NNBIOMASS           ))
!
IF (lhook) CALL dr_hook('ALLOCATE_TEB_GREENROOF',1,zhook_handle)
!
END SUBROUTINE allocate_teb_greenroof