Philippe 23/02/2016: lfi2cdf: modif for JPHEXT/=1
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / MOD / modd_type_and_lh.f90
1 !     ######spl
2       MODULE MODD_TYPE_AND_LH
3 !     #######################
4 !
5 !!****  *MODD_TYPE_AND_LH* - 
6 !!
7 !!    PURPOSE
8 !!    -------
9 !
10 !!
11 !!**  IMPLICIT ARGUMENTS
12 !!    ------------------
13 !!      None 
14 !!
15 !!    REFERENCE
16 !!    ---------
17 !!          
18 !!    AUTHOR
19 !!    ------
20 !!      J. Duron    *LA*
21 !!
22 !!    MODIFICATIONS
23 !!    -------------
24 !!      Original    23/11/96      
25 !!              
26 !-------------------------------------------------------------------------------
27 !
28 !*       0.   DECLARATIONS
29 !             ------------
30 !
31 IMPLICIT NONE
32 !
33 !
34 CHARACTER (LEN=4), SAVE :: CTYPE         ! type of data
35 !
36 INTEGER, SAVE :: NKL, NKH                ! lowest and highest K indice values 
37
38 LOGICAL, SAVE :: LKCP                    ! switch for compression in K
39                                          ! direction
40 INTEGER, SAVE :: NIL, NIH                ! lowest and highest I indice values 
41
42 INTEGER, SAVE :: NJL, NJH                ! lowest and highest J indice values 
43
44 LOGICAL, SAVE :: LICP                    ! switch for compression in I
45                                          ! direction
46 LOGICAL, SAVE :: LJCP                    ! switch for comppression in J
47                                          ! direction
48 END MODULE MODD_TYPE_AND_LH