Philippe 02/05/2016: moved all LIBTOOLS files in LIBTOOLS directory
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / DIAPRO / inidef.f90
1 !     ######spl
2       SUBROUTINE INIDEF
3 !     #################
4 !
5 !!****  *INIDEF* - Sets defaults values of TRACE namelists variables
6 !!
7 !!    PURPOSE
8 !!    -------
9 !      Sets defaults values of TRACE namelists variables
10 !
11 !!**  METHOD
12 !!    ------
13 !!     
14 !!     N.A.
15 !!
16 !!    EXTERNAL
17 !!    --------
18 !!      None
19 !!
20 !!    IMPLICIT ARGUMENTS
21 !!    ------------------
22 !!      Module MODD_CST  : declares model physical constants
23 !!
24 !!      Module MODN_NCAR : defines NAM_DIRTRA_POS namelist 
25 !!                         (former NCAR common)
26 !!
27 !!       NIOFFD     : Label normalisation (=0 none, =/=0 active)
28 !!       NULBLL     : Nb of contours between 2 labelled contours
29 !!       NIOFFM     : =0    --> message at picture bottom
30 !!                    =/= 0 --> no message
31 !!       NIOFFP     : Special point value detection
32 !!                    (=0 none, =/=0 active)
33 !!       NHI        : Extrema detection
34 !!                    (=0 --> H+L, <0 nothing)
35 !!       NINITA     : For streamlimes
36 !!       NINITB     : Not yet implemented
37 !!       NIGRNC     : Not yet implemented
38 !!       NDOT       : Line style
39 !!                    (=0|1|1023|65535 --> solid lines;
40 !!                    <0 --> solid lines for positive values and
41 !!                    dotted lines(ABS(NDOT))for negative values;
42 !!                    >0 --> dotted lines(ABS(NDOT)) )
43 !!       NIFDC      : Coastline data style (0 none, 1 NCAR, 2 IGN)
44 !!       NLPCAR     : Number of land-mark points to be plotted
45 !!       NIMNMX     : Contour selection option
46 !!                    (=-1 Min, max and inc. automatically set;
47 !!                    =0 Min, max automatically set; inc. given;
48 !!                    >0 Min, max, inc. given by user)
49 !!       NISKIP     : Rate for drawing velocity vectors
50 !!       CTYPHOR    : Horizontal cross-section type
51 !!                    (='K' --> model level section;
52 !!                     ='Z' --> constant-altitude section;
53 !!                     ='P' --> isobar section (planned)
54 !!                     ='T' --> isentrope section (planned)
55 !!       XSPVAL     : Special value
56 !!       XUINT      : Increment contour value for UM, UT
57 !!       XVINT      : Increment contour value for VM, VT
58 !!       XWINT      : Increment contour value for WM, WT
59 !!       XTHINT     : Increment contour value for THM,THT
60 !!       XPABSINT   : Increment contour value for PABSM, PABST
61 !!       XSIZEL     : Label size
62 !!       XLATCAR, XLONCAR :  Lat. and Long. of land-mark points
63 !!       LXY        : If =.TRUE., plots  a grid-mesh stencil background
64 !!       LXZ        : If =.TRUE., plots  a model-level stencil background 
65 !!
66 !!      Module MODN_PARA  : Defines NAM_DOMAIN_POS namelist 
67 !!                          (former PARA common)
68 !!
69 !!       XIDEBCOU, XJDEBCOU : Origin of a vertical cross-section
70 !!                            in cartesian (or conformal) real values
71 !!       XHMIN      : Altitude of the vert. cross-section
72 !!                    bottom (in meters above sea-level)
73 !!       XHMAX      : Altitude of the vert. cross-section
74 !!                    top (in meters above sea-level)
75 !!
76 !!      Module MODD_ALLVAR 
77 !!
78 !!
79 !!    REFERENCE
80 !!    ---------
81 !!
82 !!      MESO-NH User's Manual, TRACE Post Processing sections, Version 1.0:
83 !!       + Book1: Concepts and Fundamentals, to appear in 1994;
84 !!       + Book2: Technical Reference and Flowcharts, to appear in 1994;
85 !!       + Book3: Tutorial, November 1994.
86 !!
87 !!     NCAR Graphics Technical documentation, UNIX version 3.2,
88 !!     Scientific computing division, NCAR/UCAR, Boulder, USA.
89 !!      Volume 1: Fundamentals, Vers. 1, May 1993
90 !!      Volume 2: Contouring and mapping tutorial, Vers. 2, May 1993
91 !!
92 !!    AUTHOR
93 !!    ------
94 !!      J. Duron    * Laboratoire d'Aerologie *
95 !!
96 !!
97 !!    MODIFICATIONS
98 !!    -------------
99 !!      Original       06/06/94
100 !!      Updated   PM   02/12/94
101 !-------------------------------------------------------------------------------
102 !
103 !*       0.    DECLARATIONS
104 !              ------------
105 !
106 USE MODN_NCAR
107 USE MODN_PARA
108 USE MODD_CST
109 USE MODD_ALLVAR
110 USE MODD_RESOLVCAR, ONLY : XISOLEV, XLW1, XLW2, XLW3, XLW4
111
112 IMPLICIT NONE
113 !
114 !*       0.1   Local variables
115 !              ---------------
116
117 LOGICAL :: LSUPER   !  TO BE COMPLETED <<<<<<<<<<<<<<<<<<<<<<<<<<<
118 !
119 !------------------------------------------------------------------------------
120 !
121 !*       1.   SETS DEFAULTS FOR THE NAMELISTS VARIABLES
122 !             -----------------------------------------
123 !
124 NIINF=0; NJINF=0; NISUP=0; NJSUP=0
125 XISOLEV(:)=9999.; XLATCAR(:)=9999.; XLONCAR(:)=9999.; XICAR(:)=9999.;
126 XJCAR(:)=9999.
127 !
128 NIOFFD=0
129 NULBLL=1
130 NIOFFM=1
131 XSIZEL=0.02
132 NIOFFP=1
133 XSPVAL=999.
134 XHMIN=0.
135 XHMAX=0.
136 NHI=-1
137 NDOT=-21845
138 NIFDC=1
139 NIGRNC=1
140 NLPCAR=0
141 XLATCAR(1)=44.52
142 XLONCAR(1)=.3
143 NINITA=2
144 NINITB=2
145 NIMNMX=0
146 CTYPHOR='Z'
147 LSUPER=.FALSE.
148 LCOLAREA=.FALSE.
149 LSPOT=.FALSE.
150 LCOLBR=.TRUE.
151 LTABCOLDEF=.TRUE.
152 LCOLAREASEL=.FALSE.
153 LCOLINESEL=.FALSE.
154 LISOWHI=.FALSE.
155 LCOLINE=.FALSE.
156 LSPOT=.FALSE.
157 NISKIP=1
158 XIDEBCOU=-999.
159 XJDEBCOU=-999.
160 LXY=.FALSE.
161 LXZ=.FALSE.
162 NVAR3D=0
163 NVAR2D=0
164 X3DINT(:)=0.
165 X2DINT(:)=0.
166 XAMX=.2
167 XVHC=0.
168 XVRL=0.
169 LARROVL=.FALSE.
170 LISO=.TRUE.
171 LVECTMNMX=.FALSE.
172 LVPTUSER=.FALSE.
173 XVPTL=.1
174 XVPTR=.9
175 XVPTB=.1
176 XVPTT=.9
177 LVPTVUSER=.FALSE.
178 XVPTVL=.1
179 XVPTVR=.9
180 XVPTVB=.1
181 XVPTVT=.9
182 LVPTPVUSER=.FALSE.
183 XVPTPVL=.13
184 XVPTPVR=.9
185 XVPTPVB=.1
186 XVPTPVT=.9
187 LMINMAX=.FALSE.
188 LDATFILE=.TRUE.
189 XLWDEF=1.
190 XLWVDEF=0.5
191 !
192 XLW=-1.; XLW1=-1.; XLW2=-1.; XLW3=-1.; XLW4=-1.; XLWV=-1.
193 NIMNMX=-1
194
195 !
196 !-----------------------------------------------------------------------------
197 !
198 !*       2.       EXITS
199 !                 -----
200
201 RETURN
202 END SUBROUTINE INIDEF