7 hprogram,hmask,hscheme,haction)
51 USE modi_init_io_surf_asc_n
54 USE modi_init_io_surf_bin_n
57 USE modi_init_io_surf_fa_n
60 USE modi_init_io_surf_lfi_n
63 USE modi_init_io_surf_nc_n
66 USE modi_init_io_surf_ol_n
69 USE modi_init_io_surf_txt_n
72 USE modi_mnhinit_io_surf_n
75 USE yomhook
,ONLY : lhook, dr_hook
76 USE parkind1
,ONLY : jprb
88 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
89 CHARACTER(LEN=6),
INTENT(IN) :: hmask
90 CHARACTER(LEN=6),
INTENT(IN) :: hscheme
91 CHARACTER(LEN=5),
INTENT(IN) :: haction
92 REAL(KIND=JPRB) :: zhook_handle
99 IF (lhook) CALL dr_hook(
'INIT_IO_SURF_N',0,zhook_handle)
100 IF (hprogram==
'MESONH')
THEN
102 CALL mnhinit_io_surf_n(hprogram,hmask,haction)
106 IF (hprogram==
'OFFLIN' )
THEN
109 hprogram,hmask,hscheme,haction)
113 IF (hprogram==
'ASCII ' )
THEN
120 IF (hprogram==
'TEXTE ' )
THEN
127 IF (hprogram==
'BINARY' )
THEN
134 IF (hprogram==
'AROME ' )
THEN
136 CALL aroinit_io_surf_n(hprogram,hmask,haction)
140 IF (hprogram==
'FA ' )
THEN
143 hprogram,hmask,haction)
147 IF (hprogram==
'LFI ' )
THEN
154 IF (hprogram==
'NC ' )
THEN
161 IF (lhook) CALL dr_hook(
'INIT_IO_SURF_N',1,zhook_handle)
subroutine init_io_surf_n(DTCO, DGU, U, HPROGRAM, HMASK, HSCHEME, HACTION)
subroutine init_io_surf_nc_n(DTCO, U, DGU, HMASK, HACTION)
subroutine init_io_surf_lfi_n(DTCO, U, HMASK, HACTION)
subroutine init_io_surf_txt_n(DTCO, U, HMASK, HACTION)
subroutine init_io_surf_fa_n(DTCO, U, HPROGRAM, HMASK, HACTION)
subroutine init_io_surf_ol_n(DTCO, DGU, U, HPROGRAM, HMASK, HSCHEME, HACTION)
subroutine init_io_surf_asc_n(DTCO, U, HMASK, HACTION)
subroutine init_io_surf_bin_n(DTCO, U, HMASK, HACTION)