Philippe 23/02/2016: lfi2cdf: modif for JPHEXT/=1
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / MOD / modd_ctl_axes_and_styl.f90
1 !     ######spl
2       MODULE  MODD_CTL_AXES_AND_STYL
3 !     ##############################
4 !
5 !!****  *MODD_CTL_AXES_AND_STYL* - 
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        01/02/96
29 !!
30 !-------------------------------------------------------------------------
31 !
32 !*     0.   Declarations
33 !           ------------
34 !
35
36 IMPLICIT NONE
37
38
39 ! Controle des graduations majeures (labellees) et mineures sur les axes X et Y
40 ! On donne le nb d'intervalles
41 !******************************************************************************
42 ! CH Projection cartographique _K_  _Z_  _PR_  _TK_  _EV_
43 INTEGER:: NCHPCITVXMJ=0,NCHPCITVYMJ=0,NCHPCITVXMN=0,NCHPCITVYMN=0
44 ! CH Cartesien _K_  _Z_  _PR_  _TK_ 
45 INTEGER:: NCHITVXMJ=5,NCHITVYMJ=4,NCHITVXMN=1,NCHITVYMN=1
46 ! CV  _CV_ et _PVT_
47 INTEGER:: NCVITVXMJ=5,NCVITVYMJ=10,NCVITVXMN=1,NCVITVYMN=1
48 ! PV  _PV_
49 INTEGER:: NPVITVXMJ=4,NPVITVYMJ=0,NPVITVXMN=1,NPVITVYMN=1
50 ! FT  _FT_  _PVKT_
51 INTEGER:: NFTITVXMJ=5,NFTITVYMJ=5,NFTITVXMN=2,NFTITVYMN=2
52 ! FT1  _FT1_
53 INTEGER:: NFT1ITVXMJ=5,NFT1ITVYMJ=5,NFT1ITVXMN=1,NFT1ITVYMN=1
54 ! XY  _XY_
55 INTEGER:: NXYITVXMJ=5,NXYITVYMJ=5,NXYITVXMN=1,NXYITVYMN=1
56 ! MASK  _MASK_
57 INTEGER:: NMASKITVXMJ=5,NMASKITVYMJ=5,NMASKITVXMN=1,NMASKITVYMN=1
58
59 ! Axes labelles en latitude, longitude pour CH Proj. cart.
60 LOGICAL :: LGEOG=.FALSE.
61
62 ! Axes labelles en indices de grilles
63 LOGICAL,SAVE :: LINDAX=.FALSE.
64
65 ! Gestion de la taille titres en X
66 REAL :: XSZTITXL=0., XSZTITXM=0., XSZTITXR=0.
67
68 ! Controle du type de trait avec _FT1_
69 LOGICAL :: LFT1STYLUSER=.FALSE.
70 LOGICAL :: LFTSTYLUSER=.FALSE.
71 LOGICAL :: LTITFTUSER=.FALSE.
72 !
73 !
74 END MODULE MODD_CTL_AXES_AND_STYL