55 USE modi_pgd_teb_greenroof_par
57 USE yomhook
,ONLY : lhook, dr_hook
58 USE parkind1
,ONLY : jprb
75 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
85 REAL(KIND=JPRB) :: zhook_handle
89 IF (lhook) CALL dr_hook(
'PGD_TEB_GREENROOF',0,zhook_handle)
97 grm%TGRO%CISBA_GR =
'DIF'
98 grm%TGRO%CSCOND_GR =
'PL98 '
99 grm%TGRO%CHORT_GR =
'DEF '
100 grm%TGRO%CKSAT_GR =
'DEF '
101 grm%TGRO%LSOC_GR = .false.
102 grm%TGRO%LTR_ML_GR = .false.
104 ALLOCATE(grm%TGRP%XRUNOFFB_GR(tg%NDIM))
105 ALLOCATE(grm%TGRP%XWDRAIN_GR (tg%NDIM))
107 grm%TGRP%XRUNOFFB_GR(:) = 0.5
108 grm%TGRP%XWDRAIN_GR (:) = 0.0
110 grm%TGRO%NTIME_GR = 12
115 IF (lhook) CALL dr_hook(
'PGD_TEB_GREENROOF',1,zhook_handle)
subroutine pgd_teb_greenroof(DTCO, UG, U, USS, GRM, TG, HPROGRAM)
subroutine pgd_teb_greenroof_par(DTCO, DTGR, UG, U, USS, TGRO, TG, HPROGRAM)