41 USE modi_close_namelist_asc
44 USE modi_close_namelist_fa
47 USE modi_close_namelist_lfi
50 USE modi_close_namelist_ol
53 USE modi_close_namelist_nc
56 USE modi_mnhclose_namelist
59 USE yomhook
,ONLY : lhook, dr_hook
60 USE parkind1
,ONLY : jprb
67 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
68 INTEGER,
INTENT(IN) :: klunam
69 REAL(KIND=JPRB) :: zhook_handle
76 IF (lhook) CALL dr_hook(
'CLOSE_NAMELIST',0,zhook_handle)
78 IF (hprogram==
'MESONH')
THEN
80 CALL mnhclose_namelist(hprogram,klunam)
82 ELSE IF (hprogram==
'OFFLIN')
THEN
86 ELSE IF (hprogram==
'ASCII ')
THEN
90 ELSE IF (hprogram==
'AROME ')
THEN
92 CALL aroclose_namelist(hprogram,klunam)
94 ELSE IF (hprogram==
'FA ')
THEN
98 ELSE IF (hprogram==
'LFI ')
THEN
102 ELSE IF (hprogram==
'NC ')
THEN
108 IF (lhook) CALL dr_hook(
'CLOSE_NAMELIST',1,zhook_handle)
subroutine close_namelist_lfi(HPROGRAM, KLUNAM)
subroutine close_namelist_asc(HPROGRAM, KLUNAM)
subroutine close_namelist_fa(HPROGRAM, KLUNAM)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine close_namelist_nc(HPROGRAM, KLUNAM)
subroutine close_namelist_ol(HPROGRAM, KLUNAM)