41 USE modi_open_namelist_ol
44 USE modi_open_namelist_asc
47 USE modi_open_namelist_fa
50 USE modi_open_namelist_lfi
53 USE modi_open_namelist_nc
56 USE modi_mnhopen_namelist
59 USE yomhook
,ONLY : lhook, dr_hook
60 USE parkind1
,ONLY : jprb
67 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
68 INTEGER,
INTENT(OUT) :: klunam
69 CHARACTER(LEN=28),
INTENT(IN),
OPTIONAL :: hfile
75 CHARACTER(LEN=28) :: yfile
76 REAL(KIND=JPRB) :: zhook_handle
80 IF (lhook) CALL dr_hook(
'OPEN_NAMELIST',0,zhook_handle)
81 IF (present(hfile))
THEN
88 IF (hprogram==
'MESONH')
THEN
90 CALL mnhopen_namelist(hprogram,klunam,yfile)
92 ELSE IF (hprogram==
'OFFLIN')
THEN
96 ELSE IF (hprogram==
'ASCII ')
THEN
100 ELSE IF (hprogram==
'AROME ')
THEN
102 CALL aroopen_namelist(hprogram,klunam,yfile)
104 ELSE IF (hprogram==
'FA ')
THEN
108 ELSE IF (hprogram==
'LFI ')
THEN
112 ELSE IF (hprogram==
'NC ')
THEN
119 IF (lhook) CALL dr_hook(
'OPEN_NAMELIST',1,zhook_handle)
subroutine open_namelist_asc(HPROGRAM, KLUNAM, HFILE)
subroutine open_namelist_fa(HPROGRAM, KLUNAM, HFILE)
subroutine open_namelist_nc(HPROGRAM, KLUNAM, HFILE)
subroutine open_namelist_lfi(HPROGRAM, KLUNAM, HFILE)
subroutine open_namelist_ol(HPROGRAM, KLUNAM, HFILE)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)