Philippe 02/05/2016: moved all LIBTOOLS files in LIBTOOLS directory
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / MOD / modd_files_diachro.f90
1 !     ######spl
2       MODULE  MODD_FILES_DIACHRO
3 !     ##########################
4 !
5 !!****  *MODD_FILES_DIACHRO* - 
6 !!
7 !!    PURPOSE
8 !!    -------
9 !
10 !
11 !!    IMPLICIT ARGUMENTS
12 !!    ------------------
13 !!
14 !!     None
15 !!
16 !!
17 !!    REFERENCE
18 !!    ---------
19 !!
20 !!
21 !!    AUTHOR
22 !!    ------
23 !!      JD    "LA"
24 !!
25 !!
26 !!    MODIFICATIONS
27 !!    -------------
28 !!
29 !!     original  JD    08/01/96
30 !!     updated   PM   
31 !!
32 !-------------------------------------------------------------------------
33 !
34 !*     0.   Declarations
35 !           ------------
36 !
37
38 IMPLICIT NONE
39
40
41
42 INTEGER,SAVE       :: NBGUIL
43 INTEGER,DIMENSION(180),SAVE     :: NMGUIL
44
45 !
46 ! Nb fichiers ouverts
47 !
48 INTEGER,SAVE       :: NBFILES=0
49 ! Numero x de _filex_ du fichier courant
50 INTEGER,SAVE       :: NUMFILECUR
51 ! Memorisation du fichier courant dans le cas de diffrerence de 2 champs
52 INTEGER,SAVE       :: NUMFILECUR2
53 ! cf JPNXFM (modd_fmdeclar)= limite Fortran (99=JPNXLU) -10
54 INTEGER,DIMENSION(90),SAVE     :: NUMFILES
55
56 !
57 ! Indication traitement un seul fichier ou plusieurs fichiers simultanement
58 !
59 LOGICAL            :: LFIC1=.TRUE.
60 !
61 ! Plusieurs fichiers simultanes
62 !
63 INTEGER,SAVE       :: NBSIMULT
64 INTEGER,DIMENSION(90),SAVE     :: NUMFILESIMULT
65 INTEGER,DIMENSION(90),SAVE     :: NINDFILESIMULT
66
67
68 ! Nom fichiers diachroniques
69 !
70 CHARACTER(LEN=28),DIMENSION(90),SAVE :: CFILEDIAS                
71 !
72 ! Listings associes au traitement diachronique
73 !
74 CHARACTER(LEN=16),DIMENSION(90),SAVE :: CLUOUTDIAS='OUT_DIA'               
75 !
76 ! Numeros logiques des  listings et parametres d'ouverture des fichiers
77 !
78 INTEGER,DIMENSION(90),SAVE           :: NLUOUTDIAS, NNPRARDIAS, NFTYPEDIAS=2, NVERBDIAS,  &
79                           NNINARDIAS, NRESPDIAS
80
81 !
82 END MODULE MODD_FILES_DIACHRO