default_prep_teb_garden.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_garden
!     ###########################
!
!!****  *DEFAULT_PREP_TEB_GARDEN* - routine to set default values for the configuration for ISBA fields preparation
!!
!!    PURPOSE
!!    -------
!!
!!**  METHOD
!!    ------
!!
!!    EXTERNAL
!!    --------
!!
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!
!!    AUTHOR
!!    ------
!!      V. Masson   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    01/2004 
!!      Modified    03/2007   P. Le Moigne 
!-------------------------------------------------------------------------------
!
!*       0.    DECLARATIONS
!              ------------
!
USE modd_prep_teb_garden, ONLY : cfile_gd, ctype, cfilepgd_gd, ctypepgd,       &
                                   cfile_hug_gd, ctype_hug,                           &
                                   cfile_hug_surf_gd, cfile_hug_root_gd, cfile_hug_deep_gd, &
                                   xhug_surf_gd, xhug_root_gd, xhug_deep_gd,                &
                                   xhugi_surf_gd, xhugi_root_gd, xhugi_deep_gd,              &
                                   cfile_tg_gd, ctype_tg,                             &
                                   cfile_tg_surf_gd, cfile_tg_root_gd, cfile_tg_deep_gd,    &
                                   xtg_surf_gd, xtg_root_gd, xtg_deep_gd,                   &
                                   xwr_def  

USE modd_surf_par,   ONLY : xundef
USE modd_snow_par,   ONLY : xansmin, xrhosmax
USE modd_csts,       ONLY : xtt
!
!
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_GARDEN',0,zhook_handle)
CFILE_GD = '                          '
CTYPE      = 'GRIB  '
CFILEPGD_GD = '                          '
CTYPEPGD      = '      '
CFILE_HUG_GD  = '                          '
CTYPE_HUG  = '      '
CFILE_TG_GD   = '                          '
CTYPE_TG   = '      '
!
CFILE_HUG_SURF_GD = '                          '
CFILE_HUG_ROOT_GD = '                          '
CFILE_HUG_DEEP_GD = '                          '
CFILE_TG_SURF_GD  = '                          '
CFILE_TG_ROOT_GD  = '                          '
CFILE_TG_DEEP_GD  = '                          '
!
xhug_surf_gd = xundef
xhug_root_gd = xundef
xhug_deep_gd = xundef
xhugi_surf_gd= xundef
xhugi_root_gd= xundef
xhugi_deep_gd= xundef
xtg_surf_gd  = xundef
xtg_root_gd  = xundef
xtg_deep_gd  = xundef
!
xwr_def   = 0.
!
IF (lhook) CALL dr_hook('DEFAULT_PREP_TEB_GARDEN',1,zhook_handle)
!-------------------------------------------------------------------------------
!
END SUBROUTINE default_prep_teb_garden