43 USE yomhook
,ONLY : lhook, dr_hook
44 USE parkind1
,ONLY : jprb
51 CHARACTER(LEN=28),
INTENT(IN) :: hfile
52 CHARACTER(LEN=6),
INTENT(IN) :: hfiletype
54 CHARACTER(LEN=28) :: yfile
55 REAL(KIND=JPRB) :: zhook_handle
62 IF (lhook) CALL dr_hook(
'CLOSE_AUX_IO_SURF_FA',0,zhook_handle)
67 CALL fairme(iret,nunit_fa,
'UNKNOWN')
69 yfile=hfile(1:len_trim(hfile))//
'.fa'
70 WRITE(nluout,*)
'HFILETYPE ',hfiletype,
'END EXTERNAL',nunit_fa,yfile
72 IF (lhook) CALL dr_hook(
'CLOSE_AUX_IO_SURF_FA',1,zhook_handle)
subroutine close_aux_io_surf_fa(HFILE, HFILETYPE)