35 xhugi_surf_gd, xhugi_root_gd, xhugi_deep_gd, &
36 xtg_surf_gd, xtg_root_gd, xtg_deep_gd, &
40 USE yomhook
,ONLY : lhook, dr_hook
41 USE parkind1
,ONLY : jprb
47 INTEGER,
INTENT(IN) :: kluout
48 CHARACTER(LEN=7),
INTENT(IN) :: hsurf
49 REAL,
POINTER,
DIMENSION(:,:,:) :: pfield
54 REAL(KIND=JPRB) :: zhook_handle
58 IF (lhook) CALL dr_hook(
'PREP_TEB_GARDEN_UNIF',0,zhook_handle)
64 ALLOCATE(pfield(1,1,1))
71 ALLOCATE(pfield(1,3,nvegtype))
73 pfield(:,1,jv) = xhug_surf_gd
74 pfield(:,2,jv) = xhug_root_gd
75 pfield(:,3,jv) = xhug_deep_gd
81 ALLOCATE(pfield(1,3,nvegtype))
83 pfield(:,1,jv) = xhugi_surf_gd
84 pfield(:,2,jv) = xhugi_root_gd
85 pfield(:,3,jv) = xhugi_deep_gd
91 ALLOCATE(pfield(1,3,nvegtype))
93 pfield(:,1,jv) = xtg_surf_gd
94 pfield(:,2,jv) = xtg_root_gd
95 pfield(:,3,jv) = xtg_deep_gd
101 ALLOCATE(pfield(1,1,nvegtype))
105 ALLOCATE(pfield(1,1,nvegtype))
114 IF (lhook) CALL dr_hook(
'PREP_TEB_GARDEN_UNIF',1,zhook_handle)
subroutine prep_teb_garden_unif(KLUOUT, HSURF, PFIELD)