1 | !$Header: /home/ssipsl/CVSREP/ORCHIDEE/src_parameters/constantes.f90,v 1.16 2007/08/01 15:19:05 ssipsl Exp $ |
---|
2 | !IPSL (2006) |
---|
3 | ! This software is governed by the CeCILL licence see ORCHIDEE/ORCHIDEE_CeCILL.LIC |
---|
4 | !- |
---|
5 | MODULE constantes |
---|
6 | !!-------------------------------------------------------------------- |
---|
7 | !! "constantes" module contains some public technical constants |
---|
8 | !!-------------------------------------------------------------------- |
---|
9 | USE defprec |
---|
10 | !- |
---|
11 | IMPLICIT NONE |
---|
12 | !- |
---|
13 | ! Unit for output messages |
---|
14 | INTEGER(i_std), SAVE :: numout = 6 |
---|
15 | !- |
---|
16 | ! To set for more printing |
---|
17 | LOGICAL,SAVE :: long_print = .FALSE. |
---|
18 | !- |
---|
19 | ! One of the most frequent problems is a temperature out of range |
---|
20 | ! we provide here a way to catch that in the calling procedure. (JP) |
---|
21 | LOGICAL,PARAMETER :: diag_qsat = .TRUE. |
---|
22 | !- |
---|
23 | ! Selects the type of output for the model. |
---|
24 | ! Value is read from run.def in intersurf_history. |
---|
25 | LOGICAL :: almaoutput |
---|
26 | !- |
---|
27 | ! One day in seconds |
---|
28 | REAL(r_std),SAVE :: one_day |
---|
29 | ! One year in seconds |
---|
30 | REAL(r_std),SAVE :: one_year |
---|
31 | !- |
---|
32 | ! No comment |
---|
33 | REAL(r_std),PARAMETER :: pi=3.141592653589793238 |
---|
34 | !- |
---|
35 | ! 0 degre Celsius in degre Kelvin |
---|
36 | REAL(r_std),PARAMETER :: tp_00=273.15 |
---|
37 | !- |
---|
38 | ! Specific value if no restart value |
---|
39 | REAL(r_std),SAVE :: val_exp = 999999. |
---|
40 | !- |
---|
41 | ! Epsilon to detect a near zero floating point |
---|
42 | REAL(r_std),PARAMETER :: min_sechiba = 1.E-8_r_std |
---|
43 | ! The undef value used in SECHIBA |
---|
44 | REAL(r_std),PARAMETER :: undef_sechiba = 1.E+20_r_std |
---|
45 | !- |
---|
46 | ! Numerical constant set to 0 |
---|
47 | REAL(r_std),PARAMETER :: zero = 0._r_std |
---|
48 | ! Numerical constant set to 1/2 |
---|
49 | REAL(r_std),PARAMETER :: undemi = 0.5_r_std |
---|
50 | ! Numerical constant set to 1 |
---|
51 | REAL(r_std),PARAMETER :: un = 1._r_std |
---|
52 | ! Numerical constant set to -1 |
---|
53 | REAL(r_std),PARAMETER :: moins_un = -1._r_std |
---|
54 | ! Numerical constant set to 2 |
---|
55 | REAL(r_std),PARAMETER :: deux = 2._r_std |
---|
56 | ! Numerical constant set to 3 |
---|
57 | REAL(r_std),PARAMETER :: trois = 3._r_std |
---|
58 | ! Numerical constant set to 4 |
---|
59 | REAL(r_std),PARAMETER :: quatre = 4._r_std |
---|
60 | ! Numerical constant set to 5 |
---|
61 | REAL(r_std),PARAMETER :: cinq = 5._r_std |
---|
62 | ! Numerical constant set to 6 |
---|
63 | REAL(r_std),PARAMETER :: six = 6._r_std |
---|
64 | ! Numerical constant set to 8 |
---|
65 | REAL(r_std),PARAMETER :: huit = 8._r_std |
---|
66 | ! Numerical constant set to 1000 |
---|
67 | REAL(r_std),PARAMETER :: mille = 1000._r_std |
---|
68 | !- |
---|
69 | TYPE control_type |
---|
70 | LOGICAL :: river_routing |
---|
71 | LOGICAL :: hydrol_cwrr |
---|
72 | LOGICAL :: ok_sechiba |
---|
73 | LOGICAL :: ok_co2 |
---|
74 | LOGICAL :: ok_stomate |
---|
75 | LOGICAL :: ok_dgvm |
---|
76 | LOGICAL :: stomate_watchout |
---|
77 | LOGICAL :: ok_pheno |
---|
78 | END TYPE control_type |
---|
79 | !-------------------- |
---|
80 | END MODULE constantes |
---|