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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE DEFAULT_PREP_TEB
00003 !     ###########################
00004 !
00005 !!****  *DEFAULT_PREP_TEB* - routine to set default values for the configuration for TEB fields preparation
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !!
00010 !!**  METHOD
00011 !!    ------
00012 !!
00013 !!    EXTERNAL
00014 !!    --------
00015 !!
00016 !!
00017 !!    IMPLICIT ARGUMENTS
00018 !!    ------------------
00019 !!
00020 !!    REFERENCE
00021 !!    ---------
00022 !!
00023 !!
00024 !!    AUTHOR
00025 !!    ------
00026 !!      V. Masson   *Meteo France*      
00027 !!
00028 !!    MODIFICATIONS
00029 !!    -------------
00030 !!      Original    01/2004 
00031 !-------------------------------------------------------------------------------
00032 !
00033 !*       0.    DECLARATIONS
00034 !              ------------
00035 !
00036 USE MODD_PREP_TEB,   ONLY : CFILE_TEB, CTYPE, CFILEPGD_TEB, CTYPEPGD,                   &
00037                               CFILE_WS, CTYPE_WS, XWS_ROOF, XWS_ROAD,                   &
00038                               CFILE_TS, CTYPE_TS, XTS_ROOF, XTS_ROAD, XTS_WALL,         &
00039                               XTI_BLD, XTI_ROAD, XQ_CAN, XHUI_BLD_DEF, XHUI_BLD,        &
00040                               XWS_ROAD_DEF, XWS_ROOF_DEF, XTI_BLD_DEF  
00041 
00042 USE MODN_PREP_TEB,   ONLY : LTEB_CANOPY, CROAD_DIR, CWALL_OPT
00043 
00044 USE MODD_SURF_PAR,   ONLY : XUNDEF
00045 USE MODD_CSTS,       ONLY : XTT
00046 USE MODD_SNOW_PAR,   ONLY : XANSMIN, XRHOSMAX
00047 !
00048 !
00049 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00050 USE PARKIND1  ,ONLY : JPRB
00051 !
00052 IMPLICIT NONE
00053 !
00054 !*       0.1   Declarations of arguments
00055 !              -------------------------
00056 !
00057 !
00058 !
00059 !*       0.2   Declarations of local variables
00060 !              -------------------------------
00061 !
00062 !-------------------------------------------------------------------------------
00063 !
00064 
00065 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00066 
00067 IF (LHOOK) CALL DR_HOOK('DEFAULT_PREP_TEB',0,ZHOOK_HANDLE)
00068 CFILE_TEB= '                          '
00069 CTYPE    = 'GRIB  '
00070 CFILEPGD_TEB = '                          '
00071 CTYPEPGD      = '      '
00072 CFILE_WS = '                          '
00073 CTYPE_WS = '      '
00074 CFILE_TS = '                          '
00075 CTYPE_TS = '      '
00076 !
00077 XWS_ROOF = XUNDEF
00078 XWS_ROAD = XUNDEF
00079 XTS_ROOF = XUNDEF
00080 XTS_ROAD = XUNDEF
00081 XTS_WALL = XUNDEF
00082 XTI_ROAD = XUNDEF
00083 XTI_BLD  = XUNDEF
00084 XHUI_BLD = XUNDEF
00085 !
00086 XWS_ROOF_DEF = 0.
00087 XWS_ROAD_DEF = 0.
00088 XTI_BLD_DEF  = 19. + XTT
00089 XHUI_BLD_DEF = 0.5
00090 !
00091 XQ_CAN = 0.
00092 !
00093 LTEB_CANOPY = .FALSE.
00094 CROAD_DIR   = 'UNIF'
00095 CWALL_OPT   = 'UNIF'
00096 !
00097 IF (LHOOK) CALL DR_HOOK('DEFAULT_PREP_TEB',1,ZHOOK_HANDLE)
00098 !
00099 !-------------------------------------------------------------------------------
00100 !
00101 END SUBROUTINE DEFAULT_PREP_TEB