!$Header: /home/ssipsl/CVSREP/ORCHIDEE/src_parameters/constantes.f90,v 1.16 2007/08/01 15:19:05 ssipsl Exp $
!IPSL (2006)
! This software is governed by the CeCILL licence see ORCHIDEE/ORCHIDEE_CeCILL.LIC
!-
MODULE constantes
!!--------------------------------------------------------------------
!! "constantes" module contains some public technical constants
!!--------------------------------------------------------------------
  USE defprec
!-
  IMPLICIT NONE
!-
! Unit for output messages
  INTEGER(i_std), SAVE :: numout = 6
!-
! To set for more printing
  LOGICAL,SAVE :: long_print = .FALSE.
!-
! One of the most frequent problems is a temperature out of range
! we provide here a way to catch that in the calling procedure. (JP)
  LOGICAL,PARAMETER :: diag_qsat = .TRUE.
!-
! Selects the type of output for the model.
! Value is read from run.def in intersurf_history.
  LOGICAL           :: almaoutput
!-
! One day in seconds
  REAL(r_std),SAVE :: one_day
! One year in seconds
  REAL(r_std),SAVE :: one_year
!-
! No comment
  REAL(r_std),PARAMETER :: pi=3.141592653589793238
!-
! 0 degre Celsius in degre Kelvin
  REAL(r_std),PARAMETER :: tp_00=273.15
!-
! Specific value if no restart value
  REAL(r_std),SAVE :: val_exp = 999999.
!-
! Epsilon to detect a near zero floating point
  REAL(r_std),PARAMETER :: min_sechiba = 1.E-8_r_std
! The undef value used in SECHIBA
  REAL(r_std),PARAMETER :: undef_sechiba = 1.E+20_r_std
!-
! Numerical constant set to 0
  REAL(r_std),PARAMETER :: zero = 0._r_std
! Numerical constant set to 1/2
  REAL(r_std),PARAMETER :: undemi = 0.5_r_std
! Numerical constant set to 1
  REAL(r_std),PARAMETER :: un = 1._r_std
! Numerical constant set to -1
  REAL(r_std),PARAMETER :: moins_un = -1._r_std
! Numerical constant set to 2
  REAL(r_std),PARAMETER :: deux = 2._r_std
! Numerical constant set to 3
  REAL(r_std),PARAMETER :: trois = 3._r_std
! Numerical constant set to 4
  REAL(r_std),PARAMETER :: quatre = 4._r_std
! Numerical constant set to 5
  REAL(r_std),PARAMETER :: cinq = 5._r_std
! Numerical constant set to 6
  REAL(r_std),PARAMETER :: six = 6._r_std
! Numerical constant set to 8
  REAL(r_std),PARAMETER :: huit = 8._r_std
! Numerical constant set to 1000
  REAL(r_std),PARAMETER :: mille = 1000._r_std
!-
  TYPE control_type
    LOGICAL :: river_routing
    LOGICAL :: hydrol_cwrr
    LOGICAL :: ok_sechiba
    LOGICAL :: ok_co2
    LOGICAL :: ok_stomate
    LOGICAL :: ok_dgvm
    LOGICAL :: stomate_watchout
    LOGICAL :: ok_pheno
  END TYPE control_type
!--------------------
END MODULE constantes