57 USE modi_read_pgd_teb_greenroof_par_n
61 USE yomhook
,ONLY : lhook, dr_hook
62 USE parkind1
,ONLY : jprb
64 USE modi_get_type_dim_n
81 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
82 INTEGER,
INTENT(IN) :: kversion
89 CHARACTER(LEN=12) :: yrecfm
93 REAL(KIND=JPRB) :: zhook_handle
99 IF (lhook) CALL dr_hook(
'READ_PGD_TEB_GREENROOF_N',0,zhook_handle)
111 hprogram,yrecfm,tgro%CISBA_GR,iresp)
115 hprogram,yrecfm,tgro%CSCOND_GR,iresp)
122 ALLOCATE(tgrp%XRUNOFFB_GR(tg%NDIM))
125 hprogram,yrecfm,tgrp%XRUNOFFB_GR,iresp)
129 ALLOCATE(tgrp%XWDRAIN_GR(tg%NDIM))
130 IF (kversion<=6)
THEN
135 hprogram,yrecfm,tgrp%XWDRAIN_GR,iresp)
141 IF (cht%LCH_BIO_FLUX)
THEN
142 ALLOCATE(gbgr%XISOPOT(tg%NDIM))
145 hprogram,yrecfm,gbgr%XISOPOT,iresp)
147 ALLOCATE(gbgr%XMONOPOT(tg%NDIM))
150 hprogram,yrecfm,gbgr%XMONOPOT,iresp)
152 ALLOCATE(gbgr%XISOPOT (0))
153 ALLOCATE(gbgr%XMONOPOT(0))
174 IF (lhook) CALL dr_hook(
'READ_PGD_TEB_GREENROOF_N',1,zhook_handle)
subroutine get_type_dim_n(DTCO, U, HTYPE, KDIM)
subroutine read_pgd_teb_greenroof_par_n(DTGR, TGRO, TG, HPROGRAM)
subroutine read_pgd_teb_greenroof_n(CHT, DTCO, DTGR, GBGR, U, TGRO, TGRP, TG, HPROGRAM, KVERSION)