modd_surf_par.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
!####################
MODULE modd_surf_par
!####################
!
!!****  *MODD_SURF_PAR - declaration of surface parameters
!!
!!    PURPOSE
!!    -------
!     Declaration of surface parameters
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!      None 
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!      V. Masson *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original       02/2004
!!      J.Escobar     06/2013  for REAL4/8 add EPSILON management
!
!*       0.   DECLARATIONS
!             ------------
!
!
IMPLICIT NONE
!
!-----------------------------------------------------------------------------------------------------
INTEGER :: nversion  ! surface version
INTEGER :: nbugfix   ! bugfix number of this version
!
#ifndef SFX_MNH
REAL,    PARAMETER :: xundef = 1.e+20
#else 
#ifdef MNH_MPI_DOUBLE_PRECISION
REAL,    PARAMETER :: xundef = 1.e+20! HUGE(XUNDEF) ! Z'7FFFFFFFFFFFFFFF' !  undefined value
#else
REAL,    PARAMETER :: xundef = 1.e+6 ! HUGE(XUNDEF) ! Z'7FBFFFFF' ! undefined value
#endif
#endif
INTEGER, PARAMETER :: nundef = 1e+9   !  HUGE(NUNDEF) !  undefined value
REAL,    PARAMETER :: xsurf_epsilon = epsilon(xsurf_epsilon)  ! minimum 
REAL,    PARAMETER :: xsurf_huge    = huge(xsurf_huge) 
REAL,    PARAMETER :: xsurf_tiny    = tiny(xsurf_tiny) 
!-----------------------------------------------------------------------------------------------------
!
END MODULE modd_surf_par