SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/write_cover_tex

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE WRITE_COVER_TEX_END(HPROGRAM)
00003 !     ##########################
00004 !
00005 !!**** *WRITE_COVER_TEX* closes the tex file
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !!
00010 !!    METHOD
00011 !!    ------
00012 !!
00013 !!
00014 !!    EXTERNAL
00015 !!    --------
00016 !!
00017 !!    IMPLICIT ARGUMENTS
00018 !!    ------------------
00019 !!
00020 !!    REFERENCE
00021 !!    ---------
00022 !!
00023 !!    AUTHOR
00024 !!    ------
00025 !!
00026 !!    V. Masson        Meteo-France
00027 !!
00028 !!    MODIFICATION
00029 !!    ------------
00030 !!
00031 !!    Original    08/01/98
00032 !!
00033 !----------------------------------------------------------------------------
00034 !
00035 !*    0.     DECLARATION
00036 !            -----------
00037 !
00038 !
00039 !
00040 USE MODD_WRITE_COVER_TEX,ONLY : NTEX
00041 !
00042 #ifdef LFI
00043 USE MODI_CLOSE_WRITE_COVER_TEX_LFI
00044 #endif
00045 #ifdef MNH
00046 USE MODI_MNHCLOSE_WRITE_COVER_TEX
00047 #endif
00048 !
00049 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00050 USE PARKIND1  ,ONLY : JPRB
00051 !
00052 IMPLICIT NONE
00053 !
00054 !*    0.1    Declaration of arguments
00055 !            ------------------------
00056 !
00057  CHARACTER(LEN=6),                INTENT(IN)  :: HPROGRAM  ! program calling surf. schemes
00058 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00059 !
00060 !*    0.2    Declaration of local variables
00061 !            ------------------------------
00062 !
00063 !-------------------------------------------------------------------------------
00064 !
00065 IF (LHOOK) CALL DR_HOOK('WRITE_COVER_TEX_END',0,ZHOOK_HANDLE)
00066 IF (NTEX==0 .AND. LHOOK) CALL DR_HOOK('WRITE_COVER_TEX_END',1,ZHOOK_HANDLE)
00067 IF (NTEX==0) RETURN
00068 !
00069 !* writing in the file
00070 !
00071 WRITE(NTEX,*) '}}'
00072 WRITE(NTEX,*) '\end{document}'
00073 !
00074 !* close the file
00075 !
00076 IF (HPROGRAM=='MESONH') THEN
00077 #ifdef MNH
00078   CALL MNHCLOSE_WRITE_COVER_TEX
00079 #endif
00080 ELSEIF (HPROGRAM=='LFI   ') THEN
00081 #ifdef LFI
00082   CALL CLOSE_WRITE_COVER_TEX_LFI(NTEX)
00083 #endif
00084 ELSEIF (HPROGRAM=='AROME') THEN
00085 #ifdef ARO
00086   CALL AROCLOSE_WRITE_COVER_TEX(NTEX)
00087 #endif
00088 ELSE
00089   CLOSE(NTEX)
00090 END IF      
00091 !
00092 NTEX=0
00093 IF (LHOOK) CALL DR_HOOK('WRITE_COVER_TEX_END',1,ZHOOK_HANDLE)
00094 !-------------------------------------------------------------------------------
00095 !
00096 END SUBROUTINE WRITE_COVER_TEX_END