allocate_teb_veg_pgd.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_pgd (PEK, S, K, P, OALLOC, KLU, KVEGTYPE, KGROUND_LAYER)  
!   ##########################################################################
!
!
USE modd_isba_n, ONLY : isba_s_t, isba_pe_t, isba_p_t, isba_k_t
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
TYPE(isba_pe_t), INTENT(INOUT) :: PEK
TYPE(isba_s_t), INTENT(INOUT) :: S
TYPE(isba_p_t), INTENT(INOUT) :: P
TYPE(isba_k_t), INTENT(INOUT) :: K
!
LOGICAL, INTENT(IN) :: OALLOC ! True if constant PGD fields must be allocated
INTEGER, INTENT(IN) :: KLU
INTEGER, INTENT(IN) :: KVEGTYPE
INTEGER, INTENT(IN) :: KGROUND_LAYER
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!-------------------------------------------------------------------------------
!
IF (lhook) CALL dr_hook('ALLOCATE_TEB_VEG_PGD',0,zhook_handle)
!
!-------------------------------------------------------------------------------
!
! - Physiographic field that can evolve prognostically
!
ALLOCATE(pek%XLAI                    (klu))
ALLOCATE(pek%XVEG                    (klu)) 
ALLOCATE(pek%XEMIS                   (klu)) 
ALLOCATE(pek%XZ0                     (klu)) 
!
! - vegetation: default option (Jarvis) and general parameters:
!
ALLOCATE(pek%XRSMIN                  (klu))
ALLOCATE(pek%XGAMMA                  (klu)) 
ALLOCATE(pek%XWRMAX_CF               (klu))
ALLOCATE(pek%XRGL                    (klu))
ALLOCATE(pek%XCV                     (klu)) 
!
ALLOCATE(pek%XLAIMIN                 (klu)) 
ALLOCATE(pek%XSEFOLD                 (klu)) 
ALLOCATE(pek%XGMES                   (klu))
ALLOCATE(pek%XGC                     (klu))
ALLOCATE(pek%XF2I                    (klu)) 
ALLOCATE(pek%XBSLAI                  (klu))
!
! - vegetation:
!
ALLOCATE(pek%XALBNIR_VEG             (klu)) 
ALLOCATE(pek%XALBVIS_VEG             (klu)) 
ALLOCATE(pek%XALBUV_VEG              (klu)) 
!
ALLOCATE(pek%LSTRESS                 (klu)) 
!
!-------------------------------------------------------------------------------
!
! - vegetation: Ags Nitrogen-model parameters ('NIT' option)
!
ALLOCATE(pek%XCE_NITRO               (klu)) 
ALLOCATE(pek%XCF_NITRO               (klu)) 
ALLOCATE(pek%XCNA_NITRO              (klu)) 
!
IF (.NOT. oalloc) THEN
  IF (lhook) CALL dr_hook('ALLOCATE_TEB_VEG_PGD',1,zhook_handle)
  RETURN
END IF
!-------------------------------------------------------------------------------
!
! Input Parameters:
!
! - vegetation + bare soil:
!
ALLOCATE(p%XZ0_O_Z0H               (klu)) 
!
ALLOCATE(p%XROOTFRAC               (klu,kground_layer       ))
ALLOCATE(p%NWG_LAYER               (klu))
ALLOCATE(p%XDROOT                  (klu))
ALLOCATE(p%XDG2                    (klu))
!
!-------------------------------------------------------------------------------
!
! - vegetation: Ags parameters ('AGS', 'LAI', 'AST', 'LST', 'NIT' options)
!
!
ALLOCATE(p%XH_TREE              (klu)) 
!
!
ALLOCATE(p%XRE25                (klu))
!
!-------------------------------------------------------------------------------
!
! - vegetation: Ags Stress parameters ('AST', 'LST', 'NIT' options)
!
!
ALLOCATE(p%XAH                 (klu)) 
ALLOCATE(p%XBH                 (klu)) 
!
ALLOCATE(p%XDMAX               (klu)) 
!
!-------------------------------------------------------------------------------
!
! - soil: primary parameters
!
ALLOCATE(s%XSOC               (klu,kground_layer       ))  
!
ALLOCATE(k%XSAND              (klu,kground_layer       )) 
ALLOCATE(k%XCLAY              (klu,kground_layer       )) 
ALLOCATE(k%XRUNOFFB           (klu                     )) 
ALLOCATE(k%XWDRAIN            (klu                     )) 
!
ALLOCATE(p%XTAUICE            (klu                    ))
!
ALLOCATE(p%XDG                (klu,kground_layer)) 
!
ALLOCATE(p%XRUNOFFD           (klu)) 
!
!-------------------------------------------------------------------------------
!
! - SGH scheme
!                                   
ALLOCATE(p%XD_ICE             (klu)) 
!
ALLOCATE(k%XGAMMAT            (klu )) 
!
!-------------------------------------------------------------------------------
!
IF (lhook) CALL dr_hook('ALLOCATE_TEB_VEG_PGD',1,zhook_handle)
!
END SUBROUTINE allocate_teb_veg_pgd