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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE DEFAULT_SURF_ATM(POUT_TSTEP, PCISMIN, PVMODMIN, OALDTHRES,             &
00003                                     ODRAG_COEF_ARP, OALDZ0H, ONOSOF, ORW_PRECIP,        &
00004                                     PEDB, PEDC, PEDD, PEDK, PUSURIC, PUSURID, PUSURICL, &
00005                                     PVCHRNK, PVZ0CM, PRIMAX, PDELTA_MAX, PWINDMIN,      &
00006                                     OVZIUSTAR0_ARP, PRZHZ0M,                            &
00007                                     PVZIUSTAR0, ORRGUST_ARP, PRRSCALE, PRRGAMMA,        &
00008                                     PUTILGUST, OCPL_ARP, OQVNPLUS, OVERTSHIFT,          &
00009                                     HIMPLICIT_WIND                                      )
00010 !     ########################################################################
00011 !
00012 !!****  *DEFAULT_SURF_ATM* - routine to set default values for the choice of surface schemes
00013 !!
00014 !!    PURPOSE
00015 !!    -------
00016 !!
00017 !!**  METHOD
00018 !!    ------
00019 !!
00020 !!    EXTERNAL
00021 !!    --------
00022 !!
00023 !!
00024 !!    IMPLICIT ARGUMENTS
00025 !!    ------------------
00026 !!
00027 !!    REFERENCE
00028 !!    ---------
00029 !!
00030 !!
00031 !!    AUTHOR
00032 !!    ------
00033 !!      V. Masson   *Meteo France*      
00034 !!
00035 !!    MODIFICATIONS
00036 !!    -------------
00037 !!      Original    01/2004 
00038 !-------------------------------------------------------------------------------
00039 !
00040 !*       0.    DECLARATIONS
00041 !              ------------
00042 !
00043 USE MODD_SURF_PAR,   ONLY : XUNDEF
00044 !
00045 !
00046 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00047 USE PARKIND1  ,ONLY : JPRB
00048 !
00049 IMPLICIT NONE
00050 !
00051 !*       0.1   Declarations of arguments
00052 !              -------------------------
00053 !
00054 !
00055 REAL,              INTENT(OUT) :: POUT_TSTEP! time step for writing
00056 REAL,              INTENT(OUT) :: PCISMIN   ! minimum wind shear
00057 REAL,              INTENT(OUT) :: PVMODMIN  ! minimum wind module
00058 LOGICAL,           INTENT(OUT) :: OALDTHRES ! flag to activate aladin formulation
00059 LOGICAL,           INTENT(OUT) :: ODRAG_COEF_ARP ! flag to activate aladin formulation for Cd and Ch
00060 LOGICAL,           INTENT(OUT) :: OALDZ0H
00061 LOGICAL,           INTENT(OUT) :: ONOSOF ! flag to deactivate the Subgrid Orography effects on Forcing
00062 LOGICAL,           INTENT(OUT) :: OVERTSHIFT ! flag to deactivate the vertical shift between atmospheric and model orography
00063 REAL,              INTENT(OUT) :: PEDB
00064 REAL,              INTENT(OUT) :: PEDC
00065 REAL,              INTENT(OUT) :: PEDD
00066 REAL,              INTENT(OUT) :: PEDK
00067 REAL,              INTENT(OUT) :: PUSURIC
00068 REAL,              INTENT(OUT) :: PUSURID
00069 REAL,              INTENT(OUT) :: PUSURICL
00070 REAL,              INTENT(OUT) :: PVCHRNK
00071 REAL,              INTENT(OUT) :: PVZ0CM
00072 REAL,              INTENT(OUT) :: PRIMAX
00073 REAL,              INTENT(OUT) :: PDELTA_MAX ! Maximum fraction of the foliage covered by intercepted water
00074 REAL,              INTENT(OUT) :: PWINDMIN   ! Minimum wind speed (canopy)
00075 LOGICAL,           INTENT(OUT) :: OVZIUSTAR0_ARP  ! flag to activate aladin formulation for zoh over sea
00076 REAL,              INTENT(OUT) :: PRZHZ0M
00077 REAL,              INTENT(OUT) :: PVZIUSTAR0
00078 LOGICAL,           INTENT(OUT) :: ORRGUST_ARP     ! flag to activate the correction of CD, CH, CDN due to moist gustiness
00079 REAL,              INTENT(OUT) :: PRRSCALE
00080 REAL,              INTENT(OUT) :: PRRGAMMA
00081 REAL,              INTENT(OUT) :: PUTILGUST
00082 LOGICAL,           INTENT(OUT) :: OCPL_ARP
00083 LOGICAL,           INTENT(OUT) :: OQVNPLUS
00084 LOGICAL,           INTENT(OUT) :: ORW_PRECIP       ! flag used to Read/Write precipitation forcing 
00085  CHARACTER(LEN=*),  INTENT(OUT) :: HIMPLICIT_WIND   ! wind implicitation option : OLD or NEW
00086 !
00087 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00088 !                                                    from/into the restart file for ARPEGE/ALADIN run  
00089 !
00090 !
00091 !*       0.2   Declarations of local variables
00092 !              -------------------------------
00093 !
00094 !-------------------------------------------------------------------------------
00095 IF (LHOOK) CALL DR_HOOK('DEFAULT_SURF_ATM',0,ZHOOK_HANDLE)
00096 !
00097 POUT_TSTEP = XUNDEF
00098 !
00099 PCISMIN   = 6.7E-5
00100 PVMODMIN  = 0.
00101 OALDTHRES = .FALSE.
00102 !
00103 ODRAG_COEF_ARP = .FALSE.
00104 OALDZ0H = .FALSE.
00105 ONOSOF = .FALSE.
00106 OVERTSHIFT = .TRUE.
00107 ORW_PRECIP = .FALSE.
00108 PEDB = 5.0
00109 PEDC = 5.0
00110 PEDD = 5.0
00111 PEDK = 1.0
00112 PUSURIC  = 1.0
00113 PUSURID  = 0.035
00114 PUSURICL = 4.0
00115 PVCHRNK  = 0.015
00116 PVZ0CM   = 0.0
00117 !
00118 PRIMAX = 0.2
00119 PDELTA_MAX = 1.0
00120 !
00121 PWINDMIN = 1.E-6
00122 !
00123 PRZHZ0M = 1.0
00124 PVZIUSTAR0 = 0.0
00125 OVZIUSTAR0_ARP = .FALSE.
00126 !
00127 ORRGUST_ARP = .FALSE.
00128 PRRSCALE = 1.15E-4
00129 PRRGAMMA = 0.8
00130 PUTILGUST = 0.125
00131 OCPL_ARP=.FALSE.
00132 OQVNPLUS=.FALSE.
00133 !
00134 HIMPLICIT_WIND = 'NEW'
00135 !
00136 IF (LHOOK) CALL DR_HOOK('DEFAULT_SURF_ATM',1,ZHOOK_HANDLE)
00137 !-------------------------------------------------------------------------------
00138 !
00139 END SUBROUTINE DEFAULT_SURF_ATM