alloc_diag_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 alloc_diag_teb_greenroof (DGGR, TGR, &
                                         klu,klayer_gr,ksw)
!   ##########################################################################
!
!
!
!
USE modd_diag_teb_greenroof_n, ONLY : diag_teb_greenroof_t
USE modd_teb_greenroof_n, ONLY : teb_greenroof_t
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!
TYPE(diag_teb_greenroof_t), INTENT(INOUT) :: dggr
TYPE(teb_greenroof_t), INTENT(INOUT) :: tgr
!
INTEGER, INTENT(IN) :: klu
INTEGER, INTENT(IN) :: klayer_gr
INTEGER, INTENT(IN) :: ksw
REAL(KIND=JPRB) :: zhook_handle
!
!-------------------------------------------------------------------------------
!
! Diagnostic variables:
!
IF (lhook) CALL dr_hook('ALLOC_DIAG_TEB_GREENROOF',0,zhook_handle)
ALLOCATE(dggr%XRI                     (klu                     )) 
ALLOCATE(dggr%XCD                     (klu                     )) 
ALLOCATE(dggr%XCH                     (klu                     )) 
ALLOCATE(dggr%XRN                     (klu                     )) 
ALLOCATE(dggr%XH                      (klu                     )) 
ALLOCATE(dggr%XGFLUX                  (klu                     )) 
ALLOCATE(dggr%XQS                     (klu                     )) 
!
ALLOCATE(dggr%XLEI                    (klu                     )) 
ALLOCATE(dggr%XLEG                    (klu                     )) 
ALLOCATE(dggr%XLEGI                   (klu                     )) 
ALLOCATE(dggr%XLEV                    (klu                     )) 
ALLOCATE(dggr%XLES                    (klu                     )) 
ALLOCATE(dggr%XLER                    (klu                     )) 
ALLOCATE(dggr%XLETR                   (klu                     )) 
ALLOCATE(dggr%XEVAP                   (klu                     )) 
ALLOCATE(dggr%XDRAIN                  (klu                     )) 
ALLOCATE(dggr%XRUNOFF                 (klu                     )) 
ALLOCATE(dggr%XHORT                   (klu                     )) 
ALLOCATE(dggr%XDRIP                   (klu                     )) 
ALLOCATE(dggr%XRRVEG                  (klu                     )) 
ALLOCATE(dggr%XMELT                   (klu                     )) 
!
ALLOCATE(dggr%XCG                     (klu                     )) 
ALLOCATE(dggr%XC1                     (klu                     )) 
ALLOCATE(dggr%XC2                     (klu                     )) 
ALLOCATE(dggr%XWGEQ                   (klu                     )) 
ALLOCATE(dggr%XCT                     (klu                     )) 
ALLOCATE(dggr%XRS                     (klu                     )) 
ALLOCATE(dggr%XCDN                    (klu                     )) 
ALLOCATE(dggr%XHU                     (klu                     )) 
ALLOCATE(dggr%XHUG                    (klu                     )) 
ALLOCATE(dggr%XRESTORE                (klu                     )) 
ALLOCATE(dggr%XUSTAR                  (klu                     )) 
ALLOCATE(dggr%XIACAN                  (klu,3                   )) 
!
ALLOCATE(dggr%XSNOWTEMP               (klu,tgr%CUR%TSNOW%NLAYER        )) 
ALLOCATE(dggr%XSNOWLIQ                (klu,tgr%CUR%TSNOW%NLAYER        )) 
ALLOCATE(dggr%XSNOWDZ                 (klu,tgr%CUR%TSNOW%NLAYER        )) 
ALLOCATE(dggr%XSNOWHMASS              (klu                     )) 
ALLOCATE(dggr%XMELTADV                (klu                     )) 
!
ALLOCATE(dggr%XHV                     (klu                     ))
ALLOCATE(dggr%XALBT                   (klu                     )) 
ALLOCATE(dggr%XEMIST                  (klu                     )) 
IF (lhook) CALL dr_hook('ALLOC_DIAG_TEB_GREENROOF',1,zhook_handle)
!
!
END SUBROUTINE alloc_diag_teb_greenroof