15 USE yomhook
,ONLY : lhook, dr_hook
16 USE parkind1
,ONLY : jprb
24 CHARACTER(LEN=6),
INTENT(IN) :: hfiletype
25 LOGICAL,
INTENT(OUT) :: oteb
30 CHARACTER(LEN=6) :: ytown
32 REAL(KIND=JPRB) :: zhook_handle
38 IF (lhook) CALL dr_hook(
'TOWN_PRESENCE',0,zhook_handle)
41 hfiletype,
'TOWN',ytown,iresp)
43 hfiletype,
'DIM_TOWN',idim_town,iresp)
45 oteb = (ytown==
'TEB ') .AND. (idim_town > 0)
46 IF (lhook) CALL dr_hook(
'TOWN_PRESENCE',1,zhook_handle)
subroutine town_presence(HFILETYPE, OTEB)