default_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.
!     #########
      SUBROUTINE default_surf_atm(POUT_TSTEP, PCISMIN, PVMODMIN, OALDTHRES,             &
                                    odrag_coef_arp, oaldz0h, onosof, ocpl_gcm,          &
                                    pedb, pedc, pedd, pedk, pusuric, pusurid, pusuricl, &
                                    pvchrnk, pvz0cm, primax, pdelta_max, pwindmin,      &
                                    ovziustar0_arp, przhz0m,                            &
                                    pvziustar0, orrgust_arp, prrscale, prrgamma,        &
                                    putilgust, ocpl_arp, oqvnplus, overtshift,          &
                                    ovshift_lw, ovshift_prcp,                           &
                                    pco2uncpl                                           )
!     ########################################################################
!
!!****  *DEFAULT_SURF_ATM* - routine to set default values for the choice of surface schemes
!!
!!    PURPOSE
!!    -------
!!
!!**  METHOD
!!    ------
!!
!!    EXTERNAL
!!    --------
!!
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!
!!    AUTHOR
!!    ------
!!      V. Masson   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    01/2004 
!!      B. Decharme 04/2013 replace RW_PRECIP by CPL_GCM
!!      R. Séférian 03/2014 adding to decouple CO2 for photosynthesis 
!-------------------------------------------------------------------------------
!
!*       0.    DECLARATIONS
!              ------------
!
USE modd_surf_par,   ONLY : xundef
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!*       0.1   Declarations of arguments
!              -------------------------
!
!
REAL,              INTENT(OUT) :: pout_tstep! time step for writing
REAL,              INTENT(OUT) :: pcismin   ! minimum wind shear
REAL,              INTENT(OUT) :: pvmodmin  ! minimum wind module
LOGICAL,           INTENT(OUT) :: oaldthres ! flag to activate aladin formulation
LOGICAL,           INTENT(OUT) :: odrag_coef_arp ! flag to activate aladin formulation for Cd and Ch
LOGICAL,           INTENT(OUT) :: oaldz0h
LOGICAL,           INTENT(OUT) :: onosof ! flag to deactivate the Subgrid Orography effects on Forcing
LOGICAL,           INTENT(OUT) :: overtshift ! flag to deactivate the vertical shift between atmospheric and model orography
LOGICAL,           INTENT(OUT) :: ovshift_lw
LOGICAL,           INTENT(OUT) :: ovshift_prcp
REAL,              INTENT(OUT) :: pedb
REAL,              INTENT(OUT) :: pedc
REAL,              INTENT(OUT) :: pedd
REAL,              INTENT(OUT) :: pedk
REAL,              INTENT(OUT) :: pusuric
REAL,              INTENT(OUT) :: pusurid
REAL,              INTENT(OUT) :: pusuricl
REAL,              INTENT(OUT) :: pvchrnk
REAL,              INTENT(OUT) :: pvz0cm
REAL,              INTENT(OUT) :: primax
REAL,              INTENT(OUT) :: pdelta_max ! Maximum fraction of the foliage covered by intercepted water
REAL,              INTENT(OUT) :: pwindmin   ! Minimum wind speed (canopy)
LOGICAL,           INTENT(OUT) :: ovziustar0_arp  ! flag to activate aladin formulation for zoh over sea
REAL,              INTENT(OUT) :: przhz0m
REAL,              INTENT(OUT) :: pvziustar0
LOGICAL,           INTENT(OUT) :: orrgust_arp     ! flag to activate the correction of CD, CH, CDN due to moist gustiness
REAL,              INTENT(OUT) :: prrscale
REAL,              INTENT(OUT) :: prrgamma
REAL,              INTENT(OUT) :: putilgust
LOGICAL,           INTENT(OUT) :: ocpl_arp
LOGICAL,           INTENT(OUT) :: oqvnplus
LOGICAL,           INTENT(OUT) :: ocpl_gcm  ! Flag used to Read/Write some field from/into the restart file for coupling with ARPEGE/ALADIN
REAL,              INTENT(OUT) :: pco2uncpl ! geochemical CO2 for photsynthesis (ppmv)
!
REAL(KIND=JPRB) :: zhook_handle
!                                                    from/into the restart file for ARPEGE/ALADIN run  
!
!
!*       0.2   Declarations of local variables
!              -------------------------------
!
!-------------------------------------------------------------------------------
IF (lhook) CALL dr_hook('DEFAULT_SURF_ATM',0,zhook_handle)
!
pout_tstep = xundef
!
pcismin   = 6.7e-5
pvmodmin  = 0.
oaldthres = .false.
!
odrag_coef_arp = .false.
oaldz0h = .false.
onosof = .true.
overtshift = .false.
ovshift_lw = .false.
ovshift_prcp = .false.
ocpl_gcm = .false.
pedb = 5.0
pedc = 5.0
pedd = 5.0
pedk = 1.0
pusuric  = 1.0
pusurid  = 0.035
pusuricl = 4.0
pvchrnk  = 0.015
pvz0cm   = 0.0
!
primax = 0.2
pdelta_max = 1.0
!
pwindmin = 1.e-6
!
przhz0m = 1.0
pvziustar0 = 0.0
ovziustar0_arp = .false.
!
orrgust_arp = .false.
prrscale = 1.15e-4
prrgamma = 0.8
putilgust = 0.125
ocpl_arp=.false.
oqvnplus=.false.
!
pco2uncpl = xundef
!
IF (lhook) CALL dr_hook('DEFAULT_SURF_ATM',1,zhook_handle)
!-------------------------------------------------------------------------------
!
END SUBROUTINE default_surf_atm