default_prep_teb.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_prep_teb
!     ###########################
!
!!****  *DEFAULT_PREP_TEB* - routine to set default values for the configuration for TEB fields preparation
!!
!!    PURPOSE
!!    -------
!!
!!**  METHOD
!!    ------
!!
!!    EXTERNAL
!!    --------
!!
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!
!!    AUTHOR
!!    ------
!!      V. Masson   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    01/2004 
!-------------------------------------------------------------------------------
!
!*       0.    DECLARATIONS
!              ------------
!
USE modd_prep_teb,   ONLY : cfile_teb, ctype, cfilepgd_teb, ctypepgd,                   &
                              cfile_ws, ctype_ws, xws_roof, xws_road,                   &
                              cfile_ts, ctype_ts, xts_roof, xts_road, xts_wall,         &
                              xti_bld, xti_road, xq_can, xhui_bld_def, xhui_bld,        &
                              xws_road_def, xws_roof_def, xti_bld_def, xt_can  

USE modn_prep_teb,   ONLY : lteb_canopy, croad_dir, cwall_opt

USE modd_surf_par,   ONLY : xundef
USE modd_csts,       ONLY : xtt
USE modd_snow_par,   ONLY : xansmin, xrhosmax
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!*       0.1   Declarations of arguments
!              -------------------------
!
!
!
!*       0.2   Declarations of local variables
!              -------------------------------
!
!-------------------------------------------------------------------------------
!

REAL(KIND=JPRB) :: zhook_handle

IF (lhook) CALL dr_hook('DEFAULT_PREP_TEB',0,zhook_handle)
 cfile_teb= '                          '
 ctype    = 'GRIB  '
 cfilepgd_teb = '                          '
 ctypepgd      = '      '
 cfile_ws = '                          '
 ctype_ws = '      '
 cfile_ts = '                          '
 ctype_ts = '      '
!
xws_roof = xundef
xws_road = xundef
xts_roof = xundef
xts_road = xundef
xts_wall = xundef
xti_road = xundef
xti_bld  = xundef
xhui_bld = xundef
xt_can   = xundef
!
xws_roof_def = 0.
xws_road_def = 0.
xti_bld_def  = 19. + xtt
xhui_bld_def = 0.5
!
xq_can = 0.
!
lteb_canopy = .false.
 croad_dir   = 'UNIF'
 cwall_opt   = 'UNIF'
!
IF (lhook) CALL dr_hook('DEFAULT_PREP_TEB',1,zhook_handle)
!
!-------------------------------------------------------------------------------
!
END SUBROUTINE default_prep_teb