Philippe 23/02/2016: lfi2cdf: modif for JPHEXT/=1
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / MOD / modd_tit.f90
1 !     ######spl
2       MODULE  MODD_TIT
3 !     ################
4 !
5 !!****  *MODD_TIT* - 
6 !!
7 !!    PURPOSE
8 !!    -------
9 !
10 !
11 !!    IMPLICIT ARGUMENTS
12 !!    ------------------
13 !!
14 !!     None
15 !!
16 !!
17 !!    REFERENCE
18 !!    ---------
19 !!
20 !!
21 !!    AUTHOR
22 !!    ------
23 !!      JD    "LA"
24 !!
25 !!
26 !!    MODIFICATIONS
27 !!    -------------
28 !!
29 !!     original  JD    08/01/96
30 !!     updated   PM   
31 !!
32 !-------------------------------------------------------------------------
33 !
34 !*     0.   Declarations
35 !           ------------
36 !
37
38 IMPLICIT NONE
39
40
41 ! Nom fichier diachronique
42 !
43 CHARACTER(LEN=10),SAVE  :: CTITALL
44 CHARACTER(LEN=100),SAVE :: CTITT1, CTITT2, CTITT3, CTITB1, CTITB2, CTITB3
45 CHARACTER(LEN=100),SAVE :: CTITB3MEM
46 CHARACTER(LEN=40),SAVE  :: CTITYT, CTITYM, CTITYB, CTITXL, CTITXM, CTITXR
47 CHARACTER(LEN=40),SAVE  :: CTITVAR1, CTITVAR2, CTITVAR3, CTITVAR4, CTITVAR5
48 CHARACTER(LEN=40),SAVE  :: CTITVAR6, CTITVAR7, CTITVAR8
49 LOGICAL                 :: LTITDEF, LTITDEFM
50 REAL,SAVE               :: XSZTITT1=0., XSZTITT2=0., XSZTITT3=0.
51 REAL,SAVE               :: XPOSTITT1=0., XPOSTITT2=0., XPOSTITT3=0.
52 REAL,SAVE               :: XYPOSTITT1=0., XYPOSTITT2=0., XYPOSTITT3=0.
53 !
54 REAL,SAVE               :: XSZTITB1=0., XSZTITB2=0., XSZTITB3=0.
55 REAL,SAVE               :: XPOSTITB1=0., XPOSTITB2=0., XPOSTITB3=0.
56 REAL,SAVE               :: XYPOSTITB1=0., XYPOSTITB2=0., XYPOSTITB3=0.
57 !
58 REAL,SAVE               :: XSZTITYT=0., XSZTITYM=0., XSZTITYB=0.
59 REAL,SAVE               :: XPOSTITYT=0., XPOSTITYM=0., XPOSTITYB=0.
60 REAL,SAVE               :: XYPOSTITYT=0., XYPOSTITYM=0., XYPOSTITYB=0.
61 !
62 REAL,SAVE               :: XSZTITVAR1=0., XSZTITVAR2=0., XSZTITVAR3=0.
63 REAL,SAVE               :: XSZTITVAR4=0., XSZTITVAR5=0., XSZTITVAR6=0.
64 REAL,SAVE               :: XSZTITVAR7=0., XSZTITVAR8=0.
65 REAL,SAVE               :: XPOSTITVAR1=0., XPOSTITVAR2=0., XPOSTITVAR3=0.
66 REAL,SAVE               :: XPOSTITVAR4=0., XPOSTITVAR5=0., XPOSTITVAR6=0.
67 REAL,SAVE               :: XPOSTITVAR7=0., XPOSTITVAR8=0.
68 REAL,SAVE               :: XYPOSTITVAR1=0., XYPOSTITVAR2=0., XYPOSTITVAR3=0.
69 REAL,SAVE               :: XYPOSTITVAR4=0., XYPOSTITVAR5=0., XYPOSTITVAR6=0.
70 REAL,SAVE               :: XYPOSTITVAR7=0., XYPOSTITVAR8=0.
71
72 !
73 END MODULE MODD_TIT