47 USE yomhook
,ONLY : lhook, dr_hook
48 USE parkind1
,ONLY : jprb
51 USE modi_open_aux_io_surf_asc
55 USE modi_open_aux_io_surf_fa
59 USE modi_open_aux_io_surf_lfi
63 USE modi_open_aux_io_surf_ol
67 USE modi_open_aux_io_surf_nc
71 USE modi_mnhopen_aux_io_surf
81 CHARACTER(LEN=28),
INTENT(IN) :: hfile
82 CHARACTER(LEN=6),
INTENT(IN) :: hfiletype
83 CHARACTER(LEN=6),
INTENT(IN) :: hmask
84 REAL(KIND=JPRB) :: zhook_handle
91 IF (lhook) CALL dr_hook(
'OPEN_AUX_IO_SURF',0,zhook_handle)
92 IF (hfiletype==
'MESONH')
THEN
94 CALL mnhopen_aux_io_surf(hfile,hfiletype,hmask)
98 IF (hfiletype==
'OFFLIN' )
THEN
104 IF (hfiletype==
'ASCII ' )
THEN
107 hfile,hfiletype,hmask)
111 IF (hfiletype==
'AROME ' )
THEN
113 CALL aroopen_aux_io_surf(hfile,hfiletype,hmask)
117 IF (hfiletype==
'FA ' )
THEN
120 hfile,hfiletype,hmask)
124 IF (hfiletype==
'LFI ' )
THEN
127 hfile,hfiletype,hmask)
131 IF (hfiletype==
'NC ' )
THEN
134 hfile,hfiletype,hmask)
138 IF (lhook) CALL dr_hook(
'OPEN_AUX_IO_SURF',1,zhook_handle)
subroutine open_aux_io_surf_ol
subroutine open_aux_io_surf_nc(HFILE, HFILETYPE, HMASK)
subroutine open_aux_io_surf(HFILE, HFILETYPE, HMASK)
subroutine open_aux_io_surf_asc(HFILE, HFILETYPE, HMASK)
subroutine open_aux_io_surf_fa(HFILE, HFILETYPE, HMASK)
subroutine open_aux_io_surf_lfi(HFILE, HFILETYPE, HMASK)