Philippe 02/05/2016: moved all LIBTOOLS files in LIBTOOLS directory
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / MOD / modd_alloc_fordiachro.f90
1 !     ######spl
2       MODULE  MODD_ALLOC_FORDIACHRO
3 !     #############################
4 !
5 !!****  *MODD_ALLOC_FORDIACHRO* - 
6 !!
7 !!    PURPOSE
8 !!    -------
9 !
10 !!    IMPLICIT ARGUMENTS
11 !!    ------------------
12 !!
13 !!     None
14 !!
15 !!
16 !!    REFERENCE
17 !!    ---------
18 !!
19 !!
20 !!    AUTHOR
21 !!    ------
22 !!      JD    "LA"
23 !!
24 !!
25 !!    MODIFICATIONS
26 !!    -------------
27 !!
28 !!     original        01/02/96
29 !!
30 !-------------------------------------------------------------------------
31 !
32 !*     0.   Declarations
33 !           ------------
34 !
35
36 IMPLICIT NONE
37
38
39 INTEGER,SAVE :: NGRID, NGRIDIAM
40
41 REAL,DIMENSION(:,:,:,:,:,:), ALLOCATABLE,SAVE  :: XMASK
42 INTEGER,DIMENSION(:), ALLOCATABLE,SAVE  :: NGRIDIA
43
44 REAL,DIMENSION(:,:,:,:,:,:), ALLOCATABLE,SAVE  :: XVAR 
45 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE          :: XTRAJT
46 REAL,DIMENSION(:,:,:), ALLOCATABLE,SAVE        :: XTRAJX, XTRAJY, XTRAJZ
47 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE            :: XDATIME
48
49 CHARACTER*100,DIMENSION(:), ALLOCATABLE,SAVE   :: CTITRE, CUNITE, CCOMMENT
50
51 LOGICAL :: LPBREAD=.FALSE.
52 !
53 !
54 END MODULE MODD_ALLOC_FORDIACHRO