Newer
Older
!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
!--------------- special set of characters for RCS information
!-----------------------------------------------------------------
! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/modd_parameters.f90,v $ $Revision: 1.1.8.6.2.1.16.2.2.2 $
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
!-----------------------------------------------------------------
! ######################
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
!! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
IMPLICIT NONE
!
!JUAN CYCLK
!INTEGER, PARAMETER :: JPHEXT = 3 ! Horizontal External points number
INTEGER,SAVE :: JPHEXT = 1 ! Horizontal External points number
!
!JUAN CYCLK
INTEGER, PARAMETER :: JPVEXT = 1 ! 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
!
!
WAUTELET Philippe
committed
REAL, PARAMETER :: XUNDEF = 999. ! default value for undefined or unused
! ! field.
REAL, PARAMETER :: XNEGUNDEF = -999. ! default value for undefined or unused
! ! field (negative value guaranteed)
WAUTELET Philippe
committed
INTEGER, PARAMETER :: NUNDEF = 999 ! default value for undefined or unused
! ! field.
INTEGER, PARAMETER :: NNEGUNDEF = -999 ! default value for undefined or unused
! ! field (negative value guaranteed)
INTEGER, PARAMETER :: JPDUMMY = 20 ! Size of dummy array
!
INTEGER, PARAMETER :: JPOUTMAX = 192 ! Maximum allowed number of OUTput files
INTEGER, PARAMETER :: JPOUTVARMAX = 192 ! Maximum allowed number of variables in an output file
!
INTEGER, PARAMETER :: NMNHNAMELGTMAX = 32 ! Maximum length of a MNH variable name
WAUTELET Philippe
committed
INTEGER, PARAMETER :: NSTDNAMELGTMAX = 64 ! Maximum length of the standard name of a variable (CF convention)
!
INTEGER, PARAMETER :: NFILENAMELGTMAX = 32 ! Maximum length of a file name
INTEGER, PARAMETER :: JPLIMACCNMAX = 10 ! Maximum allowed number of CCN modes in LIMA
INTEGER, PARAMETER :: JPLIMAIFNMAX = 10 ! Maximum allowed number of IFN modes in LIMA
!