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