Philippe 23/02/2016: lfi2cdf: modif for JPHEXT/=1
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / mesonh_MOD / modd_dim1.f90
1 !-----------------------------------------------------------------
2 !--------------- special set of characters for RCS information
3 !-----------------------------------------------------------------
4 ! $Source$ $Revision$ $Date$
5 !-----------------------------------------------------------------
6 !-----------------------------------------------------------------
7 !-----------------------------------------------------------------
8 !     ##################
9       MODULE MODD_DIM1
10 !     ##################
11 !
12 !!****  *MODD_DIM1* - declaration of dimensions
13 !!
14 !!    PURPOSE
15 !!    -------
16 !       The purpose of this declarative module is to specify  the dimensions 
17 !     of the data arrays.   
18 !
19 !!
20 !!**  IMPLICIT ARGUMENTS
21 !!    ------------------
22 !!      None 
23 !!
24 !!    REFERENCE
25 !!    ---------
26 !!      Book2 of documentation of Meso-NH (module MODD_DIMn)
27 !!      Technical Specifications Report of the Meso-NH (chapters 2 and 3)
28 !!          
29 !!    AUTHOR
30 !!    ------
31 !!      V. Ducrocq   *Meteo France*
32 !!
33 !!    MODIFICATIONS
34 !!    -------------
35 !!      Original    05/05/94     
36 !!      Modifications 13/08/98 (V. Ducrocq) // NIINF .. NJSUP are no more used in the init part                
37 !-------------------------------------------------------------------------------
38 !
39 !*       0.   DECLARATIONS
40 !             ------------
41 !
42 IMPLICIT NONE
43 INTEGER,SAVE :: NIMAX,NJMAX,NKMAX  !  Dimensions respectively  in x , 
44                               ! y ,  z directions of the physical sub-domain.
45 INTEGER,SAVE :: NIMAX_ll,NJMAX_ll  !  Dimensions respectively  in x and y
46                                    ! directions of the physical domain
47 INTEGER,SAVE :: NIINF, NISUP       !  Lower bound and upper bound of the arrays 
48                                    ! in x direction 
49 INTEGER,SAVE :: NJINF, NJSUP       !  Lower bound and upper bound of the arrays 
50                                    ! in y direction
51 !
52 END MODULE MODD_DIM1