7 oalloc,klu,kvegtype,kground_layer, 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) :: kground_layer
29 INTEGER,
INTENT(IN) :: kdimtab
30 REAL(KIND=JPRB) :: zhook_handle
35 IF (lhook) CALL dr_hook(
'ALLOCATE_TEB_GARDEN_PGD',0,zhook_handle)
41 ALLOCATE(tgdpe%CUR%XLAI (klu ))
42 ALLOCATE(tgdpe%CUR%XVEG (klu ))
43 ALLOCATE(tgdpe%CUR%XEMIS (klu ))
44 ALLOCATE(tgdpe%CUR%XZ0 (klu ))
48 ALLOCATE(tgdp%XALBNIR_VEG (klu ))
49 ALLOCATE(tgdp%XALBVIS_VEG (klu ))
50 ALLOCATE(tgdp%XALBUV_VEG (klu ))
52 IF (.NOT. oalloc)
THEN
53 IF (lhook) CALL dr_hook(
'ALLOCATE_TEB_GARDEN_PGD',1,zhook_handle)
59 ALLOCATE(tgdp%XVEGTYPE (klu,kvegtype ))
67 ALLOCATE(tgdp%XZ0_O_Z0H (klu ))
72 ALLOCATE(tgdp%XWRMAX_CF (klu ))
73 ALLOCATE(tgdp%XGAMMA (klu ))
74 ALLOCATE(tgdp%XCV (klu ))
75 ALLOCATE(tgdp%XRGL (klu ))
76 ALLOCATE(tgdp%XRSMIN (klu ))
77 ALLOCATE(tgdp%XROOTFRAC (klu,kground_layer ))
78 ALLOCATE(tgdp%NWG_LAYER (klu ))
79 ALLOCATE(tgdp%XDROOT (klu ))
80 ALLOCATE(tgdp%XDG2 (klu ))
86 ALLOCATE(tgdp%XBSLAI (klu ))
87 ALLOCATE(tgdp%XLAIMIN (klu ))
88 ALLOCATE(tgdp%XSEFOLD (klu ))
89 ALLOCATE(tgdp%XH_TREE (klu ))
90 ALLOCATE(tgdp%XANF (klu ))
91 ALLOCATE(tgdp%XGMES (klu ))
92 ALLOCATE(tgdp%XRE25 (klu ))
98 ALLOCATE(tgdp%LSTRESS (klu ))
99 ALLOCATE(tgdp%XF2I (klu ))
100 ALLOCATE(tgdp%XGC (klu ))
101 ALLOCATE(tgdp%XAH (klu ))
102 ALLOCATE(tgdp%XBH (klu ))
103 ALLOCATE(tgdp%XDMAX (klu ))
109 ALLOCATE(tgdp%XCE_NITRO (klu ))
110 ALLOCATE(tgdp%XCF_NITRO (klu ))
111 ALLOCATE(tgdp%XCNA_NITRO (klu ))
117 ALLOCATE(tgdp%XSAND (klu,kground_layer ))
118 ALLOCATE(tgdp%XCLAY (klu,kground_layer ))
119 ALLOCATE(tgdp%XRUNOFFB (klu ))
120 ALLOCATE(tgdp%XWDRAIN (klu ))
121 ALLOCATE(tgdp%XGAMMAT (klu ))
122 ALLOCATE(tgdp%XDG (klu,kground_layer ))
123 ALLOCATE(tgdp%XRUNOFFD (klu ))
129 ALLOCATE(tgdp%XD_ICE (klu ))
133 IF (lhook) CALL dr_hook(
'ALLOCATE_TEB_GARDEN_PGD',1,zhook_handle)
subroutine allocate_teb_garden_pgd(TGDPE, TGDP, OALLOC, KLU, KVEGTYPE, KGROUND_LAYER, KDIMTAB)