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