Philippe 02/05/2016: moved all LIBTOOLS files in LIBTOOLS directory
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / mesonh_MOD / modd_param1.f90
1 !-----------------------------------------------------------------
2 !--------------- special set of characters for RCS information
3 !-----------------------------------------------------------------
4 ! $Source$ $Revision$ $Date$
5 !-----------------------------------------------------------------
6 !     ####################
7       MODULE MODD_PARAM1
8 !     ####################
9 !
10 !!****  *MODD_PARAM$n* - declaration of parameterization and cloud physics variables 
11 !!
12 !!    PURPOSE
13 !!    -------
14 !       The purpose of this declarative module is to declare the
15 !     parameterization and cloud physics variables.    
16 !
17 !!
18 !!**  IMPLICIT ARGUMENTS
19 !!    ------------------
20 !!      None 
21 !!
22 !!    REFERENCE
23 !!    ---------
24 !!      Book2 of documentation of Meso-NH (module MODD_PARAMn)
25 !!          
26 !!    AUTHOR
27 !!    ------
28 !!      V. Ducrocq   *Meteo France*
29 !!
30 !!    MODIFICATIONS
31 !!    -------------
32 !!      Original    15/06/94    
33 !!      E. Richard  01/06/95  add the selctor for the microphysical scheme
34 !!      P. Bechtold 26/03/96  add the selector for the deep convection
35 !!      M. Tomasini 11/12/00  add the selector for the fluxes algorithm over water
36 !!      JP. Pinty   26/11/02  add the selector for the atmospheric electricity scheme
37 !-------------------------------------------------------------------------------
38 !
39 !*       0.   DECLARATIONS
40 !             ------------
41 !
42 IMPLICIT NONE
43 !
44 CHARACTER (LEN=4),SAVE :: CTURB    ! Kind of turbulence parameterization
45                                    ! 'NONE' if no parameterization 
46 CHARACTER (LEN=4),SAVE :: CRAD     ! Kind of radiation parameterization 
47                                    ! 'NONE' if no parameterization 
48 CHARACTER (LEN=4),SAVE :: CDRAG    ! Kind of drag parameterization 
49                                    ! 'NONE' if no parameterization 
50 CHARACTER (LEN=4),SAVE :: CCLOUD   ! Kind of cloud parameterization 
51                                    ! 'NONE' if no parameterization 
52 CHARACTER (LEN=4),SAVE :: CDCONV   ! Kind of deep convection
53                                    ! 'NONE' if no parameterization
54 CHARACTER (LEN=4),SAVE :: CELEC    ! Kind of  atmospheric electricity scheme
55 CHARACTER (LEN=4),SAVE :: CSURF    ! Kind of surface processes parameterization
56 !
57 END MODULE MODD_PARAM1