37 xhugi_surf_gr, xhugi_root_gr, xhugi_deep_gr, &
38 xtg_surf_gr, xtg_root_gr, xtg_deep_gr, &
42 USE yomhook
,ONLY : lhook, dr_hook
43 USE parkind1
,ONLY : jprb
49 INTEGER,
INTENT(IN) :: kluout
50 CHARACTER(LEN=7),
INTENT(IN) :: hsurf
51 REAL,
POINTER,
DIMENSION(:,:,:) :: pfield
56 REAL(KIND=JPRB) :: zhook_handle
60 IF (lhook) CALL dr_hook(
'PREP_TEB_GREENROOF_UNIF',0,zhook_handle)
66 ALLOCATE(pfield(1,1,1))
73 ALLOCATE(pfield(1,3,nvegtype))
75 pfield(:,1,jv) = xhug_surf_gr
76 pfield(:,2,jv) = xhug_root_gr
77 pfield(:,3,jv) = xhug_deep_gr
83 ALLOCATE(pfield(1,3,nvegtype))
85 pfield(:,1,jv) = xhugi_surf_gr
86 pfield(:,2,jv) = xhugi_root_gr
87 pfield(:,3,jv) = xhugi_deep_gr
93 ALLOCATE(pfield(1,3,nvegtype))
95 pfield(:,1,jv) = xtg_surf_gr
96 pfield(:,2,jv) = xtg_root_gr
97 pfield(:,3,jv) = xtg_deep_gr
103 ALLOCATE(pfield(1,1,nvegtype))
107 ALLOCATE(pfield(1,1,nvegtype))
116 IF (lhook) CALL dr_hook(
'PREP_TEB_GREENROOF_UNIF',1,zhook_handle)
subroutine prep_teb_greenroof_unif(KLUOUT, HSURF, PFIELD)