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

Go to the documentation of this file.
00001   !     ########################################################################
00002       SUBROUTINE DEFAULT_SSO(HROUGH,PFRACZ0,PCOEFBE)
00003 !     ########################################################################
00004 !
00005 !!****  *DEFAULT_ISBA* - routine to set default values for 
00006 !                        main logical switch for orographic roughness
00007 !!
00008 !!    PURPOSE
00009 !!    -------
00010 !!
00011 !!**  METHOD
00012 !!    ------
00013 !!
00014 !!    EXTERNAL
00015 !!    --------
00016 !!
00017 !!
00018 !!    IMPLICIT ARGUMENTS
00019 !!    ------------------
00020 !!
00021 !!    REFERENCE
00022 !!    ---------
00023 !!
00024 !!
00025 !!    AUTHOR
00026 !!    ------
00027 !!      V. Masson  *Meteo France*       
00028 !!
00029 !!    MODIFICATIONS
00030 !!    -------------
00031 !!      Original    10/2010
00032 !-------------------------------------------------------------------------------
00033 !
00034 !*       0.    DECLARATIONS
00035 !              ------------
00036 !
00037 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00038 USE PARKIND1  ,ONLY : JPRB
00039 !
00040 IMPLICIT NONE
00041  CHARACTER(LEN=4), INTENT(OUT) :: HROUGH
00042 REAL, INTENT(OUT) :: PFRACZ0
00043 REAL, INTENT(OUT) :: PCOEFBE
00044 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00045 !
00046 !*       0.1   Declarations of arguments
00047 !-------------------------------------------------------------------------------
00048 !
00049 ! General switch
00050 !
00051 IF (LHOOK) CALL DR_HOOK('DEFAULT_SSO',0,ZHOOK_HANDLE)
00052 HROUGH = "BE04"
00053 PFRACZ0 = 2.
00054 PCOEFBE = 2.
00055 IF (LHOOK) CALL DR_HOOK('DEFAULT_SSO',1,ZHOOK_HANDLE)
00056 !
00057 END SUBROUTINE DEFAULT_SSO