Philippe 02/05/2016: moved all LIBTOOLS files in LIBTOOLS directory
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / EXTRACTDIA / modn_outfile.f90
1 !-----------------------------------------------------------------
2 !--------------- special set of characters for SCCS information
3 !-----------------------------------------------------------------
4 !      @(#) Lib:./s.modn_outfile.f90, Version:1.3, Date:03/06/05, Last modified:01/10/19
5 !-----------------------------------------------------------------
6 !     ####################
7       MODULE  MODN_OUTFILE
8 !     ####################
9 !
10 !!****  *MODN_OUTFILE* - defines the three namelists controling conversion
11 !!
12 !!    PURPOSE
13 !!    -------
14 !      This declarative module defines the NAM_OUTFILE, NAM_OUTHOR, NAM_OUTVER
15 !     namelists, which contains the parameters controling the grib or Vis5D
16 !     coding of fields.
17 !
18 !!    IMPLICIT ARGUMENTS
19 !!    ------------------
20 !!
21 !!    REFERENCE
22 !!    ---------
23 !!
24 !!    AUTHOR
25 !!    ------
26 !!
27 !!    V. Ducrocq   
28 !!
29 !!    MODIFICATIONS
30 !!    -------------
31 !!     original        20/03/97
32 !!     modifications   20/02/01 (I.Mallet) merge with JPChaboureau Vis5D files
33 !!     modifications   20/10/01 ( " ) split in 3 namelists, add horizontal interpolation
34 !!
35 !-------------------------------------------------------------------------
36 !
37 !*     0.   Declarations
38 !           ------------
39 !
40 USE MODD_CONF, ONLY : NVERB
41 IMPLICIT NONE
42 !
43 CHARACTER(LEN=28) :: CMNHFILE  ! Name of the input FM file
44 CHARACTER(LEN=3)  :: COUTFILETYPE  ! Type of the outfile (GRB or V5D)
45 ! Common characteristics
46 LOGICAL::  LAGRID      !If  T., fields are interpolated on an arakawa A-grid
47                        ! (mass grid) else they are on the mesonh grids
48 CHARACTER(LEN=4)  :: CHORTYPE  ! Type of horizontal grid
49       ! NONE: MesoNH grid
50       ! NEAR: nearest-neighbour interpolation
51       ! BILI: bilinear interpolation
52 REAL,DIMENSION(4) :: XLATLON   ! NSWE target domain bounds (in degrees)
53 CHARACTER(LEN=1)  :: CLEVTYPE  ! Type of vertical levels in output file
54       ! GRB: P=pressure levels, K=native coordinate of MESO-NH
55       ! V5D: P=pressure levels, Z=z levels, K=native coordinate of lowest point
56 CHARACTER(LEN=6)  :: CLEVLIST  ! How vertical levels are specified
57       ! 'MANUAL' list of levels in free format
58       ! 'FUNCTN' list of levels in next 3 variables
59 REAL :: XVLMIN,XVLMAX,XVLINT ! minimum, maximum and increment values
60                            ! for the vertical grid
61                            ! (used only if CLEVTYPE='P' or 'Z')
62 ! Grib characteristics
63 LOGICAL ::  LLMULTI   !If .T., a multigrib file is produced, else monogrib files
64 !
65 !*     0.1  Namelist NAM_OUTFILE
66 !
67 NAMELIST/NAM_OUTFILE/CMNHFILE,COUTFILETYPE, &
68                      NVERB,LLMULTI
69 NAMELIST/NAM_OUTHOR/LAGRID,CHORTYPE,XLATLON
70 NAMELIST/NAM_OUTVER/CLEVTYPE,CLEVLIST, &
71                     XVLMIN,XVLMAX,XVLINT
72 !
73 END MODULE MODN_OUTFILE