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
60
61
62
! ######spl
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
!! Modification 17/05/04 (P.Jabouille) add JPOUTMAX
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
IMPLICIT NONE
!
INTEGER, PARAMETER :: JPHEXT = 0 ! Horizontal External points number
INTEGER, PARAMETER :: JPVEXT = 0 ! Vertical External points number
INTEGER, PARAMETER :: JPVEXT_TURB = 1 ! Vertical External points number
INTEGER, PARAMETER :: JPMODELMAX = 8 ! Maximum allowed number of nested models
INTEGER, PARAMETER :: JPCPLFILEMAX = 24 ! Maximum allowed number of CouPLing FILEs
INTEGER, PARAMETER :: JPBUMAX= 250 ! Maximum of allowed budgets
INTEGER, PARAMETER :: JPBUPROMAX = 60 ! 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 = 1.E+20 ! default value for undefined or unused
! ! field.
INTEGER, PARAMETER :: NUNDEF = 1E+9 ! default value for undefined or unused
! ! field.
INTEGER, PARAMETER :: JPDUMMY = 20 ! Size of dummy array
!
INTEGER, PARAMETER :: JPOUTMAX = 192 ! Maximum allowed number of OUTput files
!
INTEGER, PARAMETER :: NBUNAMELGTMAX = 32 ! Maximum length of a budget name
INTEGER, PARAMETER :: NCOMMENTLGTMAX = 100 ! Maximum length of a comment
INTEGER, PARAMETER :: NMNHNAMELGTMAX = 32 ! Maximum length of a MNH variable name
INTEGER, PARAMETER :: NSTDNAMELGTMAX = 64 ! Maximum length of the standard name of a variable (CF convention)
!
INTEGER, PARAMETER :: NDIRNAMELGTMAX = 512 ! Maximum length of a directory name
INTEGER, PARAMETER :: NFILENAMELGTMAX = 32 ! Maximum length of a file name (must be at least NFILENAMELGTMAXLFI)
INTEGER, PARAMETER :: NFILENAMELGTMAXLFI = 28 ! Maximum length of a file name in LFI file (this is necessary
! to keep backward compatibility), MUST BE 28
!
INTEGER, PARAMETER :: NLFIMAXCOMMENTLENGTH = 100 ! Length of comments in LFI files
!
INTEGER, PARAMETER :: JPLIMACCNMAX = 10 ! Maximum allowed number of CCN modes in LIMA
INTEGER, PARAMETER :: JPLIMAIFNMAX = 10 ! Maximum allowed number of IFN modes in LIMA
!
INTEGER, PARAMETER :: NGRIDUNKNOWN = -1 ! Unknown Arakawa grid number
!
END MODULE MODD_PARAMETERS