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