Philippe 02/05/2016: moved all LIBTOOLS files in LIBTOOLS directory
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / mesonh_MOD / modd_parameters.f90
1 !     ######################
2       MODULE MODD_PARAMETERS
3 !     ######################
4 !
5 !!****  *MODD_PARAMETERS* - declaration of parameter variables
6 !!
7 !!    PURPOSE
8 !!    -------
9 !       The purpose of this declarative module is to specify  the variables 
10 !     which have the PARAMETER attribute   
11 !
12 !!
13 !!**  IMPLICIT ARGUMENTS
14 !!    ------------------
15 !!      None 
16 !!
17 !!    REFERENCE
18 !!    ---------
19 !!      Book2 of documentation of Meso-NH (module MODD_PARAMETER)
20 !!          
21 !!    AUTHOR
22 !!    ------
23 !!      V. Ducrocq   *Meteo France*
24 !!
25 !!    MODIFICATIONS
26 !!    -------------
27 !!      Original    4/07/94                      
28 !!      Modification 10/03/95 (I.Mallet)   add the coupling files maximum number
29 !!      Modification 10/04/95 (Ph. Hereil) add the budget related informations
30 !!      Modification 15/03/99 (V. Masson)  add default value
31 !!      Modification 17/11/00 (P.Jabouille) add the dummy array size
32 !!      Modification 22/01/01 (D.Gazen) change JPSVMAX from 100 to 200
33 !!                                         and JPBUMAX from 120 to 250
34 !-------------------------------------------------------------------------------
35 !
36 !*       0.   DECLARATIONS
37 !             ------------
38 !
39 IMPLICIT NONE
40 !
41 INTEGER, SAVE :: JPHEXT = 1      ! Horizontal External points number
42 INTEGER, PARAMETER :: JPVEXT = 1      ! Vertical External points number
43 INTEGER, PARAMETER :: JPMODELMAX = 8  ! Maximum allowed number of nested models 
44 INTEGER, PARAMETER :: JPCPLFILEMAX = 8 ! Maximum allowed number of CouPLing FILEs 
45 INTEGER, PARAMETER :: JPBUMAX= 250     ! Maximum of allowed budgets 
46 INTEGER, PARAMETER :: JPBUPROMAX = 40 ! Maximum of allowed processes for all
47                                       ! budgets
48 INTEGER, PARAMETER :: JPRIMMAX = 6    ! Maximum number of points for the
49                        ! horizontal relaxation for the outermost verticals
50 INTEGER, PARAMETER :: JPSVMAX  = 200  ! Maximum number of scalar variables
51 !
52 !
53 REAL,    PARAMETER :: XUNDEF = 999.   ! default value for undefined or unused
54 !                                     ! field.
55 INTEGER, PARAMETER :: NUNDEF = 999    ! default value for undefined or unused
56 !                                     ! field.
57 INTEGER, PARAMETER :: JPDUMMY  = 20   ! Size of dummy array
58 !
59 END MODULE MODD_PARAMETERS