54 USE yomhook
,ONLY : lhook, dr_hook
55 USE parkind1
,ONLY : jprb
70 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
77 CHARACTER(LEN=12) :: yrecfm
78 CHARACTER(LEN=100):: ycomment
80 REAL(KIND=JPRB) :: zhook_handle
84 IF (lhook) CALL dr_hook(
'WRITESURF_PGD_TEB_GREENROOF_N',0,zhook_handle)
91 hprogram,yrecfm,tgro%CISBA_GR,iresp,hcomment=ycomment)
98 hprogram,yrecfm,tgro%CSCOND_GR,iresp,hcomment=ycomment)
105 hprogram,yrecfm,tgro%NLAYER_GR,iresp,hcomment=ycomment)
112 hprogram,yrecfm,tgro%NTIME_GR,iresp,hcomment=ycomment)
117 hprogram,yrecfm,tgrp%XRUNOFFB_GR,iresp,hcomment=ycomment)
122 hprogram,yrecfm,tgrp%XWDRAIN_GR,iresp,hcomment=ycomment)
124 IF (lhook) CALL dr_hook(
'WRITESURF_PGD_TEB_GREENROOF_N',1,zhook_handle)
subroutine writesurf_pgd_teb_greenroof_n(DGU, U, TGRO, TGRP, HPROGRAM)