47 USE modi_close_write_cover_tex_lfi
50 USE modi_mnhclose_write_cover_tex
53 USE yomhook
,ONLY : lhook, dr_hook
54 USE parkind1
,ONLY : jprb
61 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
62 REAL(KIND=JPRB) :: zhook_handle
69 IF (lhook) CALL dr_hook(
'WRITE_COVER_TEX_END',0,zhook_handle)
70 IF (ntex==0 .AND. lhook) CALL dr_hook(
'WRITE_COVER_TEX_END',1,zhook_handle)
76 WRITE(ntex,*)
'\end{document}'
80 IF (hprogram==
'MESONH')
THEN
82 CALL mnhclose_write_cover_tex
84 ELSEIF (hprogram==
'LFI ')
THEN
88 ELSEIF (hprogram==
'AROME')
THEN
90 CALL aroclose_write_cover_tex(ntex)
97 IF (lhook) CALL dr_hook(
'WRITE_COVER_TEX_END',1,zhook_handle)
subroutine write_cover_tex_end(HPROGRAM)
subroutine close_write_cover_tex_lfi(KTEX)