41 USE modi_end_io_surf_asc_n
44 USE modi_end_io_surf_fa_n
47 USE modi_end_io_surf_lfi_n
50 USE modi_end_io_surf_nc_n
53 USE modi_end_io_surf_ol_n
56 USE modi_mnhend_io_surf_n
59 USE yomhook
,ONLY : lhook, dr_hook
60 USE parkind1
,ONLY : jprb
67 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
68 REAL(KIND=JPRB) :: zhook_handle
75 IF (lhook) CALL dr_hook(
'END_IO_SURF_N',0,zhook_handle)
76 IF (hprogram==
'MESONH')
THEN
78 CALL mnhend_io_surf_n(hprogram)
80 ELSEIF (hprogram==
'ASCII ')
THEN
84 ELSEIF (hprogram==
'OFFLIN')
THEN
88 ELSEIF (hprogram==
'AROME ')
THEN
90 CALL aroend_io_surf_n(hprogram)
92 ELSEIF (hprogram==
'FA ')
THEN
96 ELSEIF (hprogram==
'LFI ')
THEN
100 ELSEIF (hprogram==
'NC ')
THEN
105 IF (lhook) CALL dr_hook(
'END_IO_SURF_N',1,zhook_handle)
subroutine end_io_surf_lfi_n(HPROGRAM)
subroutine end_io_surf_ol_n(HPROGRAM)
subroutine end_io_surf_asc_n(HPROGRAM)
subroutine end_io_surf_nc_n(HPROGRAM)
subroutine end_io_surf_n(HPROGRAM)
subroutine end_io_surf_fa_n(HPROGRAM)