Philippe 02/05/2016: moved all LIBTOOLS files in LIBTOOLS directory
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / MOD / modd_mask3d.f90
1 !     ######spl
2       MODULE  MODD_MASK3D
3 !     ####################
4 !
5 !!****  *MODD_MASK3D* - 
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        10/11/96
29 !!
30 !-------------------------------------------------------------------------
31 !
32 !*     0.   Declarations
33 !           ------------
34 !
35
36 IMPLICIT NONE
37
38
39 CHARACTER(LEN=16),SAVE :: CGROUPSV3
40 LOGICAL,SAVE :: LXYZ=.FALSE., LMASK3D=.FALSE., LMSKTOP=.FALSE.
41 LOGICAL,SAVE :: LSV3=.FALSE., LMARKER=.FALSE.
42 LOGICAL,SAVE :: LXYZ00=.FALSE.
43 LOGICAL,SAVE :: LMASK3D_XY=.FALSE.,LMASK3D_XZ=.FALSE.,LMASK3D_YZ=.FALSE.
44 LOGICAL,DIMENSION(:),ALLOCATABLE,SAVE :: LXYZT
45 !
46 ! Masque 3D
47 LOGICAL,DIMENSION(:,:,:,:),ALLOCATABLE,SAVE    :: LMASK3
48 !
49 ! limites fournies par l'utilisateur (x,y conformes z altitudes) pour
50 ! definir un masque
51 REAL,SAVE   :: XXL=0.,XXH=0.,XYL=0.,XYH=0.,XZL=0.,XZH=0.
52 !
53 END MODULE MODD_MASK3D