6 SUBROUTINE default_teb(HZ0H,PTSTEP,POUT_TSTEP, HCH_BEM, PDT_RES, PDT_OFF)
44 USE yomhook
,ONLY : lhook, dr_hook
45 USE parkind1
,ONLY : jprb
53 CHARACTER(LEN=6),
INTENT(OUT) :: hz0h
54 CHARACTER(LEN=5),
INTENT(OUT) :: hch_bem
55 REAL,
INTENT(OUT) :: ptstep
56 REAL,
INTENT(OUT) :: pout_tstep
57 REAL,
INTENT(OUT) :: pdt_res
58 REAL,
INTENT(OUT) :: pdt_off
59 REAL(KIND=JPRB) :: zhook_handle
66 IF (lhook) CALL dr_hook(
'DEFAULT_TEB',0,zhook_handle)
73 IF (lhook) CALL dr_hook(
'DEFAULT_TEB',1,zhook_handle)
subroutine default_teb(HZ0H, PTSTEP, POUT_TSTEP, HCH_BEM, PDT_RES, PDT_OFF)