modd_surf_atm.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_atm
!     ####################
!
!!****  *MODD_SURF_ATM - declaration of surface ATM
!!
!!    PURPOSE
!!    -------
!     Declaration of surface parameters
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!      None 
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!      P. Le Moigne *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original       10/2007
!
!*       0.   DECLARATIONS
!             ------------
!
!!      B.Decharme     04/2009 Add flag used to Read/Write precipitation forcing from/into the restart file for ARPEGE/ALADIN run
!!      B.Decharme     08/2009 Add flag used to know if you use SURFEX in the Earth System Model
!!      B.Decharme     09/2012 New wind implicitation key option
!!      B.Decharme     04/2013 Flag used to Read/Write some field from/into the restart file for coupling with ARPEGE/ALADIN
!!                             Delete LRW_PRECIP, LSAVE_PRECIP
!!                             Vertical shift for LW and Precip
!!      R. Séférian    03/2014 Adding key for decouple CO2 for photosynthesis (XCO2UNCPL) 
!
IMPLICIT NONE
!
!-----------------------------------------------------------------------------------------------------
REAL       :: xcismin  ! minimum wind shear
REAL       :: xvmodmin ! minimum wind speed
LOGICAL    :: laldthres! activate aladin threshold for wind
!
LOGICAL    :: ldrag_coef_arp ! activate aladin formulation for Cd and Ch
LOGICAL    :: laldz0h
!
LOGICAL    :: lnosof   ! No parameterization of Subgrid Orography effects on atmospheric Forcing  
LOGICAL    :: lvertshift ! vertical shift from atmospheric orography to surface orography
LOGICAL    :: lvshift_lw ! vertical shift for LW
LOGICAL    :: lvshift_prcp ! vertical shift for Precip
!
LOGICAL    :: lvziustar0_arp   ! activate aladin formulation for zoh over sea
LOGICAL    :: lrrgust_arp      ! activate aladin formulation for CD CH, CDN, correction due to moist gustiness
LOGICAL    :: lcpl_arp         ! activate aladin formulation for Cp and L
LOGICAL    :: lqvnplus         ! An option for the resolution of the surface temperature equation
!
LOGICAL    :: lcpl_gcm         ! Flag used to Read/Write some field from/into the restart file for coupling with ARPEGE/ALADIN
!
REAL       :: xedb
REAL       :: xedc
REAL       :: xedd
REAL       :: xedk
REAL       :: xusuric
REAL       :: xusurid
REAL       :: xusuricl
REAL       :: xvchrnk
REAL       :: xvz0cm
REAL       :: xrimax
REAL       :: xdelta_max ! Maximum fraction of the foliage covered by intercepted water for high vegetation
!
REAL       :: xwindmin ! minimum wind speed (canopy)
!
REAL       :: xrzhz0m
REAL       :: xvziustar0
REAL       :: xrrscale
REAL       :: xrrgamma
REAL       :: xutilgust
!
REAL       :: xco2uncpl ! uncoupled CO2 values (ppmv)
!
!-----------------------------------------------------------------------------------------------------
!
END MODULE modd_surf_atm