7 oalloc,klu,kvegtype,klayer_gr, kdimtab)
16 USE yomhook
,ONLY : lhook, dr_hook
17 USE parkind1
,ONLY : jprb
25 LOGICAL,
INTENT(IN) :: oalloc
26 INTEGER,
INTENT(IN) :: klu
27 INTEGER,
INTENT(IN) :: kvegtype
28 INTEGER,
INTENT(IN) :: klayer_gr
29 INTEGER,
INTENT(IN) :: kdimtab
30 REAL(KIND=JPRB) :: zhook_handle
34 IF (lhook) CALL dr_hook(
'ALLOCATE_TEB_GREENROOF_PGD',0,zhook_handle)
39 ALLOCATE(tgrpe%CUR%XLAI (klu ))
40 ALLOCATE(tgrpe%CUR%XVEG (klu ))
41 ALLOCATE(tgrpe%CUR%XEMIS (klu ))
42 ALLOCATE(tgrpe%CUR%XZ0 (klu ))
46 ALLOCATE(tgrp%XALBNIR_VEG (klu ))
47 ALLOCATE(tgrp%XALBVIS_VEG (klu ))
48 ALLOCATE(tgrp%XALBUV_VEG (klu ))
50 IF (.NOT. oalloc)
THEN
51 IF (lhook) CALL dr_hook(
'ALLOCATE_TEB_GARDEN_PGD',1,zhook_handle)
57 ALLOCATE(tgrp%XVEGTYPE (klu,kvegtype ))
65 ALLOCATE(tgrp%XZ0_O_Z0H (klu ))
69 ALLOCATE(tgrp%XWRMAX_CF (klu ))
70 ALLOCATE(tgrp%XGAMMA (klu ))
71 ALLOCATE(tgrp%XCV (klu ))
72 ALLOCATE(tgrp%XRGL (klu ))
73 ALLOCATE(tgrp%XRSMIN (klu ))
74 ALLOCATE(tgrp%XROOTFRAC (klu,klayer_gr ))
75 ALLOCATE(tgrp%NWG_LAYER (klu ))
76 ALLOCATE(tgrp%XDROOT (klu ))
77 ALLOCATE(tgrp%XDG2 (klu ))
83 ALLOCATE(tgrp%XBSLAI (klu ))
84 ALLOCATE(tgrp%XLAIMIN (klu ))
85 ALLOCATE(tgrp%XSEFOLD (klu ))
86 ALLOCATE(tgrp%XH_TREE (klu ))
87 ALLOCATE(tgrp%XANF (klu ))
88 ALLOCATE(tgrp%XGMES (klu ))
89 ALLOCATE(tgrp%XRE25 (klu ))
95 ALLOCATE(tgrp%LSTRESS (klu ))
96 ALLOCATE(tgrp%XF2I (klu ))
97 ALLOCATE(tgrp%XGC (klu ))
98 ALLOCATE(tgrp%XAH (klu ))
99 ALLOCATE(tgrp%XBH (klu ))
100 ALLOCATE(tgrp%XDMAX (klu ))
106 ALLOCATE(tgrp%XCE_NITRO (klu ))
107 ALLOCATE(tgrp%XCF_NITRO (klu ))
108 ALLOCATE(tgrp%XCNA_NITRO (klu ))
114 ALLOCATE(tgrp%XOM_GR (klu,klayer_gr ))
115 ALLOCATE(tgrp%XSAND_GR (klu,klayer_gr ))
116 ALLOCATE(tgrp%XCLAY_GR (klu,klayer_gr ))
117 ALLOCATE(tgrp%XTAUICE (klu ))
118 ALLOCATE(tgrp%XGAMMAT (klu ))
119 ALLOCATE(tgrp%XDG (klu,klayer_gr ))
120 ALLOCATE(tgrp%XRUNOFFD (klu ))
126 ALLOCATE(tgrp%XD_ICE (klu ))
130 IF (lhook) CALL dr_hook(
'ALLOCATE_TEB_GREENROOF_PGD',1,zhook_handle)
subroutine allocate_teb_greenroof_pgd(TGRPE, TGRP, OALLOC, KLU, KVEGTYPE, KLAYER_GR, KDIMTAB)