Philippe 23/02/2016: lfi2cdf: modif for JPHEXT/=1
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / MOD / modn_para.f90
1 !-----------------------------------------------------------------
2 !--------------- special set of characters for SCCS information
3 !--------------- C. Fischer 30/09/94
4 !      @(#) Lib:/opt/local/MESONH/sources/modn/s.modn_para.f90, Version:1.9, Date:98/10/01, Last modified:98/06/04
5 !-----------------------------------------------------------------
6 !     #################
7       MODULE  MODN_PARA
8 !     #################
9 !
10 !!****  *MODN_PARA* - defines the NAM_DOMAIN_POS namelist (former PARA common)
11 !!
12 !!    PURPOSE
13 !!    -------
14 !       This declarative module declares the variables of the NAM_DOMAIN_POS
15 !      namelist, which specify all the geometrical characteristics of the
16 !      plotted domain as requested by the user.
17 !
18 !!    IMPLICIT ARGUMENTS
19 !!    ------------------
20 !!
21 !!     Module MODD_DIM1 : contains dimensions of data arrays
22 !!       NIINF, NISUP   : lower and upper bounds of arrays to be plotted in
23 !!                        x direction
24 !!       NJINF, NJSUP   : lower and upper bounds of arrays to be plotted in
25 !!                        y direction
26 !!
27 !!    REFERENCE
28 !!    ---------
29 !!     Bougeault et al., 1994, "The MESO-NH user's guide", Chapter 4: Run a
30 !!     post-processing session, Internal technical note, CNRM/GMME, Toulouse
31 !!
32 !!     Book2 of the TRACE volume of the Meso-NH user manual
33 !!     (MODN_PARA), to appear in 1994 
34 !!
35 !!    AUTHOR
36 !!    ------
37 !!      JD    "LA"
38 !!
39 !!
40 !!    MODIFICATIONS
41 !!    -------------
42 !!
43 !!     original        02/06/94
44 !!     updated   PM    21/11/94
45 !!
46 !-------------------------------------------------------------------------
47 !
48 !*     0.   Declarations
49 !           ------------
50 !
51 USE MODD_DIM1
52
53 IMPLICIT NONE
54
55 LOGICAL,SAVE     :: LHORIZ,  & ! =.T. to perform horizontal cross-sections
56                                ! (LVERTI must be = to .F.)
57                     LVERTI,  & ! =.T. to perform vertical cross-sections, in-
58                                ! -cluding vert. 1D profiles. (LHORIZ must be
59                                ! = to .F.)
60                     L3D        ! =.T. to draw 3D perspective plots (LHORIZ and 
61                                ! LVERTI must be = to .F.).(Not yet implemented)
62
63 INTEGER,SAVE     :: NIDEBCOU,NJDEBCOU,  & ! Origin of a vertical cross-section
64                                           ! in grid index integer values
65                                           ! (XIDEBCOU and XJDEBCOU must be = to
66                                           ! -999.)
67                     NLANGLE,            & ! Angle between X Meso-NH axis and 
68                                           ! cross-section direction in degrees
69                                           ! (Integer value anticlockwise)
70                     NLMAX,              & ! Number of points horizontally along
71                                           ! the vertical section
72                     NIFLAG         
73
74 REAL,SAVE        :: XIDEBCOU,XJDEBCOU,  & ! Origin of a vertical cross-section
75                                           ! in cartesian (or conformal) real 
76                                           ! values
77                     XHMIN,              & ! altitude of the vert. cross-section
78                                           ! bottom (in meters above sea-level)
79                     XHMAX,              & ! altitude of the vert. cross-section
80                                           ! top (in meters above sea-level)
81                     XDZTRA                ! Not yet used
82
83 REAL,DIMENSION(3):: XEYE                  ! Not yet used
84
85 !
86 !*     0.1  Namelist NAM_DOMAIN_POS
87 !
88 NAMELIST/NAM_DOMAIN_POS/LHORIZ,NIINF,NISUP,NJINF,NJSUP,LVERTI,NIDEBCOU,NJDEBCOU,  &
89 XIDEBCOU,XJDEBCOU,NLMAX,NLANGLE,XHMIN,XHMAX,XDZTRA,L3D,XEYE,NIFLAG
90 !
91 END MODULE MODN_PARA