Philippe 02/05/2016: moved all LIBTOOLS files in LIBTOOLS directory
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / MOD / modd_rsisocol.f90
1 !     ######spl
2       MODULE  MODD_RSISOCOL
3 !     #############################
4 !
5 !!****  *MODD_RSISOCOL* - Contient les parametres de gestion de la couleur
6 !!      des RS et isocontours dans le cas ou on veut une seule couleur
7 !!      et en trait plein
8 !!
9 !!    PURPOSE
10 !!    -------
11 !
12 !!    IMPLICIT ARGUMENTS
13 !!    ------------------
14 !!
15 !!     None
16 !!
17 !!
18 !!    REFERENCE
19 !!    ---------
20 !!
21 !!
22 !!    AUTHOR
23 !!    ------
24 !!      JD    "LA"
25 !!
26 !!
27 !!    MODIFICATIONS
28 !!    -------------
29 !!
30 !!     original        01/02/96
31 !!
32 !-------------------------------------------------------------------------
33 !
34 !*     0.   Declarations
35 !           ------------
36 !
37
38 IMPLICIT NONE
39
40 ! Cas _RS_ et _RS1_
41
42 LOGICAL, SAVE   :: LCOLRSONE=.FALSE.
43 INTEGER, SAVE   :: NCOLRSONE=0
44 LOGICAL, SAVE   :: LCOLRS1ONE=.FALSE.
45 INTEGER, SAVE   :: NCOLRS1ONE1=0
46 INTEGER, SAVE   :: NCOLRS1ONE2=0
47 INTEGER, SAVE   :: NCOLRS1ONE3=0
48 INTEGER, SAVE   :: NCOLRS1ONE4=0
49 INTEGER, SAVE   :: NCOLRS1ONE5=0
50 !
51 ! Pour recuperer les altitudes  des RS sur la grille 1 pour les noter
52 ! sur les profils de vent
53 REAL,DIMENSION(:),ALLOCATABLE,SAVE :: XALTRS
54 !
55 ! Isocontours
56 LOGICAL,SAVE :: LCOLISONE=.FALSE.
57 !
58 INTEGER,SAVE    :: NCOLISONE1=0           
59 INTEGER,SAVE    :: NCOLISONE2=0           
60 INTEGER,SAVE    :: NCOLISONE3=0           
61 INTEGER,SAVE    :: NCOLISONE4=0           
62 INTEGER,SAVE    :: NCOLISONE5=0           
63 !
64 END MODULE MODD_RSISOCOL