44 USE yomhook
,ONLY : lhook, dr_hook
45 USE parkind1
,ONLY : jprb
48 USE modi_close_aux_io_surf_asc
52 USE modi_close_aux_io_surf_fa
56 USE modi_close_aux_io_surf_lfi
60 USE modi_close_aux_io_surf_ol
64 USE modi_close_aux_io_surf_nc
68 USE modi_mnhclose_aux_io_surf
76 CHARACTER(LEN=28),
INTENT(IN) :: hfile
77 CHARACTER(LEN=6),
INTENT(IN) :: hfiletype
78 REAL(KIND=JPRB) :: zhook_handle
85 IF (lhook) CALL dr_hook(
'CLOSE_AUX_IO_SURF',0,zhook_handle)
86 IF (hfiletype==
'MESONH')
THEN
88 CALL mnhclose_aux_io_surf(hfile,hfiletype)
92 IF (hfiletype==
'OFFLIN' )
THEN
98 IF (hfiletype==
'NC ' )
THEN
104 IF (hfiletype==
'ASCII ' )
THEN
110 IF (hfiletype==
'AROME ' )
THEN
112 CALL aroclose_aux_io_surf(hfile,hfiletype)
116 IF (hfiletype==
'FA ' )
THEN
122 IF (hfiletype==
'LFI ' )
THEN
127 IF (lhook) CALL dr_hook(
'CLOSE_AUX_IO_SURF',1,zhook_handle)
subroutine close_aux_io_surf(HFILE, HFILETYPE)
subroutine close_aux_io_surf_nc(HFILE, HFILETYPE)
subroutine close_aux_io_surf_asc(HFILE, HFILETYPE)
subroutine close_aux_io_surf_lfi(HFILE, HFILETYPE)
subroutine close_aux_io_surf_ol
subroutine close_aux_io_surf_fa(HFILE, HFILETYPE)