43 USE modi_mnhget_desfm_n
48 USE yomhook
,ONLY : lhook, dr_hook
49 USE parkind1
,ONLY : jprb
56 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
57 CHARACTER(LEN=5),
INTENT(IN) :: haction
58 INTEGER,
INTENT(OUT) :: kludes
59 REAL(KIND=JPRB) :: zhook_handle
66 IF (lhook) CALL dr_hook(
'GET_DEFAULT_NAM_N',0,zhook_handle)
67 IF (hprogram==
'MESONH')
THEN
69 CALL mnhget_desfm_n(haction,kludes)
70 IF (haction==
'READ ' .AND. kludes.NE.0) rewind(kludes)
72 ELSEIF (hprogram==
'AROME ')
THEN
74 CALL aroget_desfm_n(haction,kludes)
78 IF (haction==
'WRITE' .AND. lnam_written)
THEN
80 lnam_written = .false.
83 IF (lhook) CALL dr_hook(
'GET_DEFAULT_NAM_N',1,zhook_handle)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine get_default_nam_n(HPROGRAM, HACTION, KLUDES)