SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/modd_surf

Go to the documentation of this file.
00001 !     ####################
00002       MODULE MODD_SURF_ATM
00003 !     ####################
00004 !
00005 !!****  *MODD_SURF_ATM - declaration of surface ATM
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !     Declaration of surface parameters
00010 !
00011 !!
00012 !!**  IMPLICIT ARGUMENTS
00013 !!    ------------------
00014 !!      None 
00015 !!
00016 !!    REFERENCE
00017 !!    ---------
00018 !!
00019 !!    AUTHOR
00020 !!    ------
00021 !!      P. Le Moigne *Meteo France*
00022 !!
00023 !!    MODIFICATIONS
00024 !!    -------------
00025 !!      Original       10/2007
00026 !
00027 !*       0.   DECLARATIONS
00028 !             ------------
00029 !
00030 !!      B.Decharme     04/2009 Add flag used to Read/Write precipitation forcing from/into the restart file for ARPEGE/ALADIN run
00031 !!      B.Decharme     08/2009 Add flag used to know if you use SURFEX in the Earth System Model
00032 !!      B. Decharme    09/2012 New wind implicitation key option
00033 !
00034 IMPLICIT NONE
00035 !
00036 !-----------------------------------------------------------------------------------------------------
00037 REAL       :: XCISMIN  ! minimum wind shear
00038 REAL       :: XVMODMIN ! minimum wind speed
00039 LOGICAL    :: LALDTHRES! activate aladin threshold for wind
00040 !
00041 LOGICAL    :: LDRAG_COEF_ARP ! activate aladin formulation for Cd and Ch
00042 LOGICAL    :: LALDZ0H
00043 !
00044 LOGICAL    :: LNOSOF   ! No parameterization of Subgrid Orography effects on atmospheric Forcing  
00045 LOGICAL    :: LVERTSHIFT  ! vertical shift from atmospheric orography to surface orography
00046 !
00047 LOGICAL    :: LRW_PRECIP       ! flag used to Read/Write precipitation forcing from/into the restart file for ARPEGE/ALADIN run
00048 LOGICAL    :: LSAVE_PRECIP     ! used with LRW_PRECIP
00049 !
00050 LOGICAL    :: LVZIUSTAR0_ARP   ! activate aladin formulation for zoh over sea
00051 LOGICAL    :: LRRGUST_ARP      ! activate aladin formulation for CD CH, CDN, correction due to moist gustiness
00052 LOGICAL    :: LCPL_ARP         ! activate aladin formulation for Cp and L
00053 LOGICAL    :: LQVNPLUS         ! An option for the resolution of the surface temperature equation
00054 !
00055 LOGICAL    :: LCPL_ESM         ! Earth System Model Coupling key
00056 !
00057  CHARACTER(LEN=3) :: CIMPLICIT_WIND ! wind implicitation option
00058 !                                  ! 'OLD' = direct
00059 !                                  ! 'NEW' = Taylor serie, order 1
00060 !
00061 REAL       :: XEDB
00062 REAL       :: XEDC
00063 REAL       :: XEDD
00064 REAL       :: XEDK
00065 REAL       :: XUSURIC
00066 REAL       :: XUSURID
00067 REAL       :: XUSURICL
00068 REAL       :: XVCHRNK
00069 REAL       :: XVZ0CM
00070 REAL       :: XRIMAX
00071 REAL       :: XDELTA_MAX ! Maximum fraction of the foliage covered by intercepted water for high vegetation
00072 !
00073 REAL       :: XWINDMIN ! minimum wind speed (canopy)
00074 !
00075 REAL       :: XRZHZ0M
00076 REAL       :: XVZIUSTAR0
00077 REAL       :: XRRSCALE
00078 REAL       :: XRRGAMMA
00079 REAL       :: XUTILGUST
00080 !-----------------------------------------------------------------------------------------------------
00081 !
00082 END MODULE MODD_SURF_ATM