Philippe 02/05/2016: moved all LIBTOOLS files in LIBTOOLS directory
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / MOD / modd_memcv.f90
1 !     ######spl
2       MODULE  MODD_MEMCV
3 !     ####################
4 !
5 !!****  *MODD_MEMCV* - 
6 !!
7 !!    PURPOSE
8 !!    -------
9 !
10 !!    IMPLICIT ARGUMENTS
11 !!    ------------------
12 !!
13 !!     None
14 !!
15 !!
16 !!    REFERENCE
17 !!    ---------
18 !!
19 !!
20 !!    AUTHOR
21 !!    ------
22 !!      JD    "LA"
23 !!
24 !!
25 !!    MODIFICATIONS
26 !!    -------------
27 !!
28 !!     original        10/11/96
29 !!
30 !-------------------------------------------------------------------------
31 !
32 !*     0.   Declarations
33 !           ------------
34 !
35
36 IMPLICIT NONE
37
38
39
40 ! Info. pour superposer en INTERACTIF (LSTI=T)
41 ! 1 symbole (LSYMB=T)
42 ! 1 texte   (LTEXTG=T) sur le graphique (LTEXTIT=T) hors du graphique
43 ! LSYMBTEXTG=T 1 symbole + 1 texte sur le graphique
44 LOGICAL,SAVE :: LSYMB=.FALSE., LTEXTG=.FALSE., LTEXTIT=.FALSE., &
45                 LSYMBTEXTG=.FALSE., LSTI=.FALSE.
46 !
47 ! Info. pour tracer la trace d'une CV (et PH) dans un plan horizontal
48 LOGICAL,SAVE :: LTRACECV=.FALSE.
49 REAL,DIMENSION(:,:),ALLOCATABLE,SAVE    :: XTRACECV, XYTRACECV
50 REAL,SAVE    :: XLWTRACECV=3.
51 INTEGER,SAVE :: NTRACECV
52 !
53 ! Memorisation de la directive courante
54 CHARACTER(LEN=2400) :: CDIRCUR, CDIRPREC   ! LEN=LEN(CAR240) de diaprog.f90
55 !
56 ! Longueur en fraction axe X de la fleche de l'echelle (<-> 20m/s ou a XVHCPH
57 ! s'il est =/= de 20 = PHA/4 = IPHAS4 dans echelle.f90 .Peut etre module dans
58 ! echelleph.f90)
59 ! dans le cas d'un PH vecteurs (LCH+LCV+LUMVM+LTRACECV)
60 !
61 REAL,SAVE  :: XVRLPH=-1.
62 REAL,SAVE  :: XVHCPH=20.
63 !
64 ! Logique d'eventuelle elimination de la legende des fleches en CH+CV
65 ! (Defaut : T)
66 LOGICAL,SAVE :: LEGVECT=.TRUE.
67 END MODULE MODD_MEMCV