Philippe 23/02/2016: lfi2cdf: modif for JPHEXT/=1
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / MOD / modd_rea_lfi.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_rea_lfi.f90, Version:1.9, Date:98/10/01, Last modified:98/06/04
5 !-----------------------------------------------------------------
6 !     ###################
7       MODULE MODD_REA_LFI
8 !     ###################
9 !
10 !!****  *MODD_REA_LFI* - Defines a LFIFM file record
11 !!
12 !!    PURPOSE
13 !!    -------
14 !       This declarative module globally defines the set of variables 
15 !     controlling the recors of the LFIFM file.
16 !!
17 !!**  IMPLICIT ARGUMENTS
18 !!    ------------------
19 !!      None 
20 !!
21 !!    REFERENCE
22 !!    ---------
23 !!      - Fischer C., 1994, "File structure and content in the Meso-NH 
24 !!        model", Meso-nh internal note, CNRM/GMME,  July 5.
25 !!       
26 !!    AUTHOR
27 !!    ------
28 !!      JD    "LA"
29 !!
30 !!    MODIFICATIONS
31 !!    -------------
32 !!      Original    08/06/94                      
33 !!      Updated  PM 22/11/94
34 !-------------------------------------------------------------------------------
35 !
36 !*       0.   DECLARATIONS
37 !             ------------
38 !
39 !
40 IMPLICIT NONE
41 !
42 INTEGER           :: NRESP,NMELEV   ! NRESP  : return-code if a problem appears 
43                                     !  opening the file
44                                     ! NMELEV : level of message printing in
45                                     !  LFI  routines 
46 INTEGER           :: NNPRAR,NFTYPE  ! NNPRAR : number of predicted articles
47                                     ! NFTYPE : type of FM-file for FMCLOS 
48 INTEGER           :: NNINAR         !  number of articles initially present in
49                                     !  the file
50 INTEGER           :: NGRID,NLENG    ! NGRID : grid indicator
51                                     ! NLENG : length of the data field  
52 INTEGER           :: NLENCH         ! NLENCH : length of comment string 
53 !
54 CHARACTER(LEN=3)  :: CSTATU         ! Status of the file before the open
55 CHARACTER(LEN=16) :: CRECFM         ! Name of the article to be written
56 CHARACTER(LEN=100):: CCOMMENT       ! Comment string
57 !
58 LOGICAL           :: LFATER,LSTATS  ! LFATER : true if LFI-file manipulation 
59                                     !  error is a fatal error 
60                                     ! LSTATS : true if statistics of file
61                                     !  manipulation sould be printed
62 END MODULE MODD_REA_LFI