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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE DEFAULT_GREENROOF( HRUNOFF_GR,HSCOND_GR,                   &
00003                                     HKSAT_GR,HHORT_GR                       )  
00004 !     ########################################################################
00005 !
00006 !!****  *DEFAULT_GREENROOF* - routine to set default values for the configuration for GREENROOF
00007 !!
00008 !!    PURPOSE
00009 !!    -------
00010 !!
00011 !!**  METHOD
00012 !!    ------
00013 !!
00014 !!     Based on default_isba
00015 !!
00016 !!    EXTERNAL
00017 !!    --------
00018 !!
00019 !!
00020 !!    IMPLICIT ARGUMENTS
00021 !!    ------------------
00022 !!
00023 !!    REFERENCE
00024 !!    ---------
00025 !!
00026 !!
00027 !!    AUTHOR
00028 !!    ------
00029 !!      C. de Munck & A. Lemonsu   *Meteo France*       
00030 !!
00031 !!    MODIFICATIONS
00032 !!    -------------
00033 !!      Original    07/2011
00034 !-------------------------------------------------------------------------------
00035 !
00036 !*       0.    DECLARATIONS
00037 !              ------------
00038 !
00039 USE MODD_SURF_PAR,           ONLY: XUNDEF
00040 !
00041 !
00042 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00043 USE PARKIND1  ,ONLY : JPRB
00044 !
00045 IMPLICIT NONE
00046 !
00047 !*       0.1   Declarations of arguments
00048 !              -------------------------
00049 !
00050 !
00051  CHARACTER(LEN=4),  INTENT(OUT) :: HRUNOFF_GR    ! surface runoff formulation ('WSAT','DT92','SGH ')    
00052  CHARACTER(LEN=4),  INTENT(OUT) :: HSCOND_GR     ! thermal conductivity ('DEF ','PL98')
00053  CHARACTER(LEN=3),  INTENT(OUT) :: HKSAT_GR      ! soil hydraulic profile option ('DEF','SGH')
00054  CHARACTER(LEN=3),  INTENT(OUT) :: HHORT_GR      ! Horton runoff ('DEF','SGH')
00055 !                                           
00056 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00057 !
00058 !*       0.2   Declarations of local variables
00059 !              -------------------------------
00060 !
00061 !-------------------------------------------------------------------------------
00062 !
00063 IF (LHOOK) CALL DR_HOOK('DEFAULT_GREENROOF',0,ZHOOK_HANDLE)
00064 !
00065 HRUNOFF_GR    = 'WSAT'
00066 HSCOND_GR     = 'PL98'
00067 HKSAT_GR      = 'DEF'
00068 HHORT_GR      = 'DEF'
00069 !
00070 IF (LHOOK) CALL DR_HOOK('DEFAULT_GREENROOF',1,ZHOOK_HANDLE)
00071 !
00072 !-------------------------------------------------------------------------------
00073 !
00074 END SUBROUTINE DEFAULT_GREENROOF