Philippe 23/02/2016: lfi2cdf: modif for JPHEXT/=1
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / MOD / modd_out.f90
1 !-----------------------------------------------------------------
2 !--------------- special set of characters for SCCS information
3 !-----------------------------------------------------------------
4 !      @(#) Lib:/opt/local/MESONH/sources/modd/s.modd_out.f90, Version:1.9, Date:98/10/01, Last modified:98/06/04
5 !-----------------------------------------------------------------
6 !     #################
7       MODULE  MODD_OUT
8 !     #################
9 !
10 !!****  *MODD_OUT* - defines a logical unit number for printed outputs
11 !!
12 !!    PURPOSE
13 !!    -------
14 !       So far, this declarative module is a garbage box containing items
15 !     fitting nothing else...
16 !       Content:
17 !         - logical unit number for the printed output,
18 !         - size of the matrix section to be displayed in the MESO-NH
19 !           field arrays,
20 !         - indexes to locate the displayed MESO-NH column in the 
21 !           the "radio-sounding" mode,
22 !         - filename prefix of the LFI file to be displayed.
23 !
24 !!    IMPLICIT ARGUMENTS
25 !!    ------------------
26 !!
27 !!     None
28 !!
29 !!
30 !!    REFERENCE
31 !!    ---------
32 !!
33 !!     Book2 of the TRACE volume of the Meso-NH user manual
34 !!     (MODD_FIELD1_CV2D), to appear in 1994 
35 !!
36 !!    AUTHOR
37 !!    ------
38 !!      JD    "LA"
39 !!
40 !!
41 !!    MODIFICATIONS
42 !!    -------------
43 !!
44 !!     original        02/06/94
45 !!     updated   PM    21/11/94
46 !!
47 !-------------------------------------------------------------------------
48 !
49 !*     0.   Declarations
50 !           ------------
51 !
52
53 IMPLICIT NONE
54
55
56 INTEGER           :: NLUOUT                      !  Logical unit number for
57                                                  !  printed outputs
58
59 INTEGER           :: NIMAXT, NJMAXT, NKMAXT      !  Size of the displayed 
60                                                  !  section of the MESO-NH
61                                                  !  field arrays
62 INTEGER           :: NNAMRS                      !  =0  --> RS
63                                                  !  =1  =/= RS
64
65 INTEGER           :: NIRS,  NJRS                 !  Grid indexes to locate
66                                                  !  a "radiosounding" point
67
68 INTEGER :: NRRM     ! Total number of water variables at time t
69 INTEGER :: NRRT     ! Total number of water variables at time t
70
71 CHARACTER(LEN=20) :: CNAMRS                      !  Contains 'RS' in case of RS
72                                                  !           something else in
73                                                  !           the others cases
74 CHARACTER(LEN=32) :: CLFIFM, CDESFM              !  Full names of the ".lfi"
75                                                  !  and ".des" files to be
76                                                  !  processed
77
78 CHARACTER(LEN=28) :: CNAMFILE                    !  Filename prefix of the files
79                                                  !  to be processed
80 !
81 END MODULE MODD_OUT