Philippe 02/05/2016: moved all LIBTOOLS files in LIBTOOLS directory
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / MOD / modd_type_allvar.f90
1 !-----------------------------------------------------------------
2 !--------------- special set of characters for SCCS information
3 !--------------- C. Fischer 30/09/94
4 !      @(#) Lib:/opt/local/MESONH/sources/modd/s.modd_type_allvar.f90, Version:1.2, Date:98/10/01, Last modified:98/06/04
5 !-----------------------------------------------------------------
6 !     ###################
7       MODULE MODD_TYPE_ALLVAR
8 !     ###################
9 !
10 !!****  *MODD_TYPE_ALLVAR* - Declaration des types de variables 3D, 2D, 1D,
11 !!
12 !!    PURPOSE
13 !!    -------
14 !!
15 !!**  IMPLICIT ARGUMENTS
16 !!    ------------------
17 !!      None 
18 !!
19 !!    REFERENCE
20 !!    ---------
21 !!
22 !!       
23 !!    AUTHOR
24 !!    ------
25 !!      P Jabouille
26 !!
27 !!    MODIFICATIONS
28 !!    -------------
29 !!      Original       11/08/97                      
30 !-------------------------------------------------------------------------------
31 !
32 !*       0.   DECLARATIONS
33 !             ------------
34 !
35 !
36 IMPLICIT NONE
37 !
38 TYPE X_Y_Z_
39   CHARACTER(LEN=16)     :: NAME
40   INTEGER               :: IGRID
41   CHARACTER(LEN=16)     :: UNITS
42 END TYPE X_Y_Z_
43 !
44 TYPE X_Y_
45   CHARACTER(LEN=16)     :: NAME
46   INTEGER               :: IGRID
47   CHARACTER(LEN=16)     :: UNITS
48 END TYPE X_Y_
49 !
50 TYPE VX_VY_VZ_
51   CHARACTER(LEN=16),DIMENSION(3)     :: NAME
52   INTEGER,DIMENSION(3)               :: IGRID
53   CHARACTER(LEN=16),DIMENSION(3)     :: UNITS
54 END TYPE VX_VY_VZ_
55 !
56 TYPE VX_VY_
57   CHARACTER(LEN=16),DIMENSION(3)     :: NAME
58   INTEGER,DIMENSION(3)               :: IGRID
59   CHARACTER(LEN=16),DIMENSION(3)     :: UNITS
60 END TYPE VX_VY_
61 !
62 TYPE Z_
63   CHARACTER(LEN=16)     :: NAME
64   INTEGER               :: IGRID
65   CHARACTER(LEN=16)     :: UNITS
66 END TYPE Z_
67 !
68 END MODULE MODD_TYPE_ALLVAR