SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/default_prep_teb

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE DEFAULT_PREP_TEB_GARDEN
00003 !     ###########################
00004 !
00005 !!****  *DEFAULT_PREP_TEB_GARDEN* - routine to set default values for the configuration for ISBA fields preparation
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !!
00010 !!**  METHOD
00011 !!    ------
00012 !!
00013 !!    EXTERNAL
00014 !!    --------
00015 !!
00016 !!
00017 !!    IMPLICIT ARGUMENTS
00018 !!    ------------------
00019 !!
00020 !!    REFERENCE
00021 !!    ---------
00022 !!
00023 !!
00024 !!    AUTHOR
00025 !!    ------
00026 !!      V. Masson   *Meteo France*      
00027 !!
00028 !!    MODIFICATIONS
00029 !!    -------------
00030 !!      Original    01/2004 
00031 !!      Modified    03/2007   P. Le Moigne 
00032 !-------------------------------------------------------------------------------
00033 !
00034 !*       0.    DECLARATIONS
00035 !              ------------
00036 !
00037 USE MODD_PREP_TEB_GARDEN, ONLY : CFILE_ISBA, CTYPE, CFILEPGD_ISBA, CTYPEPGD,       &
00038                                    CFILE_HUG, CTYPE_HUG,                           &
00039                                    CFILE_HUG_SURF, CFILE_HUG_ROOT, CFILE_HUG_DEEP, &
00040                                    XHUG_SURF, XHUG_ROOT, XHUG_DEEP,                &
00041                                    XHUGI_SURF,XHUGI_ROOT, XHUGI_DEEP,              &
00042                                    CFILE_TG, CTYPE_TG,                             &
00043                                    CFILE_TG_SURF, CFILE_TG_ROOT, CFILE_TG_DEEP,    &
00044                                    XTG_SURF, XTG_ROOT, XTG_DEEP,                   &
00045                                    XWR_DEF  
00046 
00047 USE MODD_SURF_PAR,   ONLY : XUNDEF
00048 USE MODD_SNOW_PAR,   ONLY : XANSMIN, XRHOSMAX
00049 USE MODD_CSTS,       ONLY : XTT
00050 !
00051 !
00052 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00053 USE PARKIND1  ,ONLY : JPRB
00054 !
00055 IMPLICIT NONE
00056 !
00057 !*       0.1   Declarations of arguments
00058 !              -------------------------
00059 !
00060 !
00061 !
00062 !*       0.2   Declarations of local variables
00063 !              -------------------------------
00064 !
00065 !-------------------------------------------------------------------------------
00066 !
00067 
00068 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00069 
00070 IF (LHOOK) CALL DR_HOOK('DEFAULT_PREP_TEB_GARDEN',0,ZHOOK_HANDLE)
00071 CFILE_ISBA = '                          '
00072 CTYPE      = 'GRIB  '
00073 CFILEPGD_ISBA = '                          '
00074 CTYPEPGD      = '      '
00075 CFILE_HUG  = '                          '
00076 CTYPE_HUG  = '      '
00077 CFILE_TG   = '                          '
00078 CTYPE_TG   = '      '
00079 !
00080 CFILE_HUG_SURF = '                          '
00081 CFILE_HUG_ROOT = '                          '
00082 CFILE_HUG_DEEP = '                          '
00083 CFILE_TG_SURF  = '                          '
00084 CFILE_TG_ROOT  = '                          '
00085 CFILE_TG_DEEP  = '                          '
00086 !
00087 XHUG_SURF = XUNDEF
00088 XHUG_ROOT = XUNDEF
00089 XHUG_DEEP = XUNDEF
00090 XHUGI_SURF= XUNDEF
00091 XHUGI_ROOT= XUNDEF
00092 XHUGI_DEEP= XUNDEF
00093 XTG_SURF  = XUNDEF
00094 XTG_ROOT  = XUNDEF
00095 XTG_DEEP  = XUNDEF
00096 !
00097 XWR_DEF   = 0.
00098 !
00099 IF (LHOOK) CALL DR_HOOK('DEFAULT_PREP_TEB_GARDEN',1,ZHOOK_HANDLE)
00100 !-------------------------------------------------------------------------------
00101 !
00102 END SUBROUTINE DEFAULT_PREP_TEB_GARDEN