42 USE yomhook
,ONLY : lhook, dr_hook
43 USE parkind1
,ONLY : jprb
57 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
58 INTEGER,
INTENT(OUT) :: kluout
59 REAL(KIND=JPRB) :: zhook_handle
66 IF (lhook) CALL dr_hook(
'GET_LUOUT',0,zhook_handle)
67 IF (hprogram==
'MESONH')
THEN
69 CALL mnhget_luout(hprogram,kluout)
71 ELSE IF (hprogram==
'AROME ')
THEN
73 CALL aroget_luout(hprogram,kluout)
75 ELSE IF (hprogram==
'LFI ')
THEN
82 IF (lhook) CALL dr_hook(
'GET_LUOUT',1,zhook_handle)
subroutine lfiget_luout(HPROGRAM, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)