default_prep_teb_greenroof.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_greenroof
!     ###########################
!
!!****  *DEFAULT_PREP_TEB_GREENROOF* - routine to set default values for the configuration for ISBA fields preparation
!!
!!    PURPOSE
!!    -------
!!
!!**  METHOD
!!    ------
!!    Based on "default_prep_teb_greenroof"
!!
!!    EXTERNAL
!!    --------
!!
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!
!!    AUTHOR
!!    ------
!!    A. Lemonsu & C. de Munck 
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    07/2011 
!-------------------------------------------------------------------------------
!
!*       0.    DECLARATIONS
!              ------------
!
USE modd_prep_teb_greenroof, ONLY : cfile_gr, ctype, cfilepgd_gr, ctypepgd,       &
                                    cfile_hug_gr, ctype_hug,          &
                                    cfile_hug_surf_gr, cfile_hug_root_gr, cfile_hug_deep_gr,   &
                                    xhug_surf_gr, xhug_root_gr, xhug_deep_gr,                  &
                                    xhugi_surf_gr, xhugi_root_gr, xhugi_deep_gr,                &
                                    cfile_tg_gr, ctype_tg,                               &
                                    cfile_tg_surf_gr, cfile_tg_root_gr, cfile_tg_deep_gr,      &
                                    xtg_surf_gr, xtg_root_gr, xtg_deep_gr,                     &
                                    xwr_def  

USE modd_surf_par,   ONLY : xundef
!
!
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_GREENROOF',0,zhook_handle)
CFILE_GR      = '                          '
CTYPE           = 'GRIB  '
CFILEPGD_GR   = '                          '
CTYPEPGD        = 'GRIB  '
CFILE_HUG_GR       = '                          '
CTYPE_HUG       = '      '
CFILE_TG_GR        = '                          '
CTYPE_TG        = '      '
!
CFILE_HUG_SURF_GR = '                          '
CFILE_HUG_ROOT_GR = '                          '
CFILE_HUG_DEEP_GR = '                          '
CFILE_TG_SURF_GR  = '                          '
CFILE_TG_ROOT_GR  = '                          '
CFILE_TG_DEEP_GR  = '                          '
!
xhug_surf_gr = xundef
xhug_root_gr = xundef
xhug_deep_gr = xundef
xhugi_surf_gr= 0.
xhugi_root_gr= 0.
xhugi_deep_gr= 0.
xtg_surf_gr  = xundef
xtg_root_gr  = xundef
xtg_deep_gr  = xundef
!
xwr_def   = 0.
!
IF (lhook) CALL dr_hook('DEFAULT_PREP_TEB_GREENROOF',1,zhook_handle)
!-------------------------------------------------------------------------------
!
END SUBROUTINE default_prep_teb_greenroof