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_START(HPROGRAM)
00003 !     ##########################
00004 !
00005 !!**** *WRITE_COVER_TEX* opens the output tex file containing cover data
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 USE MODD_WRITE_COVER_TEX,ONLY : NTEX
00040 USE MODD_WRITE_SURF_ATM, ONLY : LNOWRITE_TEXFILE
00041 !
00042 #ifdef LFI
00043 USE MODI_OPEN_WRITE_COVER_TEX_LFI
00044 #endif
00045 #ifdef MNH
00046 USE MODI_MNHOPEN_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_START',0,ZHOOK_HANDLE)
00066 IF (LNOWRITE_TEXFILE) THEN
00067    NTEX=0
00068    IF (LHOOK) CALL DR_HOOK('WRITE_COVER_TEX_START',1,ZHOOK_HANDLE)
00069    RETURN
00070 ENDIF   
00071 !
00072 !* opening of the file
00073 !
00074 IF (HPROGRAM=='MESONH') THEN
00075 #ifdef MNH
00076   CALL MNHOPEN_WRITE_COVER_TEX(NTEX)
00077 #endif
00078 END IF
00079 !
00080 IF (HPROGRAM=='LFI   ') THEN
00081 #ifdef LFI
00082   CALL OPEN_WRITE_COVER_TEX_LFI(NTEX)
00083 #endif
00084 END IF
00085 !
00086 IF (HPROGRAM=='ASCII ' .OR. HPROGRAM=='FA    ') THEN
00087   NTEX=13
00088   OPEN(NTEX,file='class_cover_data.tex',form='formatted')
00089 ENDIF
00090 !
00091 IF (HPROGRAM=='AROME ') THEN
00092 #ifdef ARO
00093    CALL AROOPEN_WRITE_COVER_TEX(NTEX)
00094 #endif
00095 END IF
00096 !
00097 IF (NTEX==0 .AND. LHOOK) CALL DR_HOOK('WRITE_COVER_TEX_START',1,ZHOOK_HANDLE)
00098 IF (NTEX==0) RETURN
00099 !
00100 !* writing in the file
00101 !
00102 WRITE(NTEX,*) '\documentstyle[11pt]{report}'
00103 WRITE(NTEX,*) '\setlength{\textwidth}{18.0cm}'
00104 WRITE(NTEX,*) '\setlength{\textheight}{24.cm}'
00105 WRITE(NTEX,*) '\hoffset=-3.5cm'
00106 WRITE(NTEX,*) '\voffset=-3.cm'
00107 WRITE(NTEX,*) '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'
00108 WRITE(NTEX,*) '\begin{document}'
00109 WRITE(NTEX,*) '{\footnotesize{'
00110 IF (LHOOK) CALL DR_HOOK('WRITE_COVER_TEX_START',1,ZHOOK_HANDLE)
00111 !
00112 !
00113 !-------------------------------------------------------------------------------
00114 !
00115 END SUBROUTINE WRITE_COVER_TEX_START