default_prep_isba.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_isba
!     ###########################
!
!!****  *DEFAULT_PREP_ISBA* - 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 
!!      MEB         10/2014   P. Samuelsson
!-------------------------------------------------------------------------------
!
!*       0.    DECLARATIONS
!              ------------
!
USE modd_prep_isba,  ONLY : cfile_isba, ctype, cfilepgd_isba, ctypepgd,       &
                              cfile_hug, ctype_hug,                           &
                              cfile_hug_surf, cfile_hug_root, cfile_hug_deep, &
                              xhug_surf, xhug_root, xhug_deep,                 &
                              xhugi_surf, xhugi_root, xhugi_deep,             &
                              cfile_tg, ctype_tg,                             &
                              cfile_tg_surf, cfile_tg_root, cfile_tg_deep,    &
                              xtg_surf, xtg_root, xtg_deep,                   &
                              xwr_def, lextrap_tg, lextrap_wg, lextrap_wgi,   &
                              lextrap_sn,                                     &
                              xwrv_def, xwrvn_def, xqc_def
!
USE modn_prep_isba,  ONLY : lisba_canopy
!
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_ISBA',0,zhook_handle)
 cfile_isba = '                          '
 ctype      = 'GRIB  '
 cfilepgd_isba = '                          '
 ctypepgd      = '      '
 cfile_hug  = '                          '
 ctype_hug  = '      '
 cfile_tg   = '                          '
 ctype_tg   = '      '
!
 cfile_hug_surf = '                          '
 cfile_hug_root = '                          '
 cfile_hug_deep = '                          '
 cfile_tg_surf  = '                          '
 cfile_tg_root  = '                          '
 cfile_tg_deep  = '                          '
!
xhug_surf = xundef
xhug_root = xundef
xhug_deep = xundef
xhugi_surf= xundef
xhugi_root= xundef
xhugi_deep= xundef
xtg_surf  = xundef
xtg_root  = xundef
xtg_deep  = xundef
!
xwr_def   = 0.
xwrv_def  = 0.
xwrvn_def = 0.
xqc_def   = 0.
!
lisba_canopy = .false.
lextrap_tg   = .false.
lextrap_wg   = .false.
lextrap_wgi  = .false.
lextrap_sn   = .false.
 
IF (lhook) CALL dr_hook('DEFAULT_PREP_ISBA',1,zhook_handle)

!-------------------------------------------------------------------------------
!
END SUBROUTINE default_prep_isba