Philippe 23/02/2016: lfi2cdf: modif for JPHEXT/=1
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / MOD / modd_traj3d.f90
1 !     ######spl
2       MODULE  MODD_TRAJ3D
3 !     ####################
4 !
5 !!****  *MODD_TRAJ3D* - 
6 !!
7 !!    PURPOSE
8 !!    -------
9 !
10 !!    IMPLICIT ARGUMENTS
11 !!    ------------------
12 !!
13 !!     None
14 !!
15 !!
16 !!    REFERENCE
17 !!    ---------
18 !!
19 !!
20 !!    AUTHOR
21 !!    ------
22 !!      JS    "MF"
23 !!
24 !!
25 !!    MODIFICATIONS
26 !!    -------------
27 !!
28 !!     original        10/04/00
29 !!
30 !-------------------------------------------------------------------------
31 !
32 !*     0.   Declarations
33 !           ------------
34 !
35
36 IMPLICIT NONE
37
38 INTEGER, PARAMETER :: NPART_MAX=100
39 REAL, DIMENSION(NPART_MAX),SAVE :: XXPART 
40 REAL, DIMENSION(NPART_MAX),SAVE :: XYPART
41 REAL, DIMENSION(NPART_MAX),SAVE :: XZPART
42 LOGICAL,SAVE :: LTRAJ3D=.FALSE.
43 LOGICAL,SAVE :: LFLUX3D=.FALSE.
44 INTEGER,SAVE :: NPART
45 LOGICAL,SAVE :: LTRAJ_GROUP=.FALSE.
46 CHARACTER (LEN=16), SAVE :: CTRAJ_GROUP
47 !
48 END MODULE MODD_TRAJ3D