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_GREENROOF
00003 !     ###########################
00004 !
00005 !!****  *DEFAULT_PREP_TEB_GREENROOF* - routine to set default values for the configuration for ISBA fields preparation
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !!
00010 !!**  METHOD
00011 !!    ------
00012 !!    Based on "default_prep_teb_greenroof"
00013 !!
00014 !!    EXTERNAL
00015 !!    --------
00016 !!
00017 !!
00018 !!    IMPLICIT ARGUMENTS
00019 !!    ------------------
00020 !!
00021 !!    REFERENCE
00022 !!    ---------
00023 !!
00024 !!
00025 !!    AUTHOR
00026 !!    ------
00027 !!    A. Lemonsu & C. de Munck 
00028 !!
00029 !!    MODIFICATIONS
00030 !!    -------------
00031 !!      Original    07/2011 
00032 !-------------------------------------------------------------------------------
00033 !
00034 !*       0.    DECLARATIONS
00035 !              ------------
00036 !
00037 USE MODD_PREP_TEB_GREENROOF, 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 !
00049 !
00050 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00051 USE PARKIND1  ,ONLY : JPRB
00052 !
00053 IMPLICIT NONE
00054 !
00055 !*       0.1   Declarations of arguments
00056 !              -------------------------
00057 !
00058 !
00059 !
00060 !*       0.2   Declarations of local variables
00061 !              -------------------------------
00062 !
00063 !-------------------------------------------------------------------------------
00064 !
00065 
00066 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00067 
00068 IF (LHOOK) CALL DR_HOOK('DEFAULT_PREP_TEB_GREENROOF',0,ZHOOK_HANDLE)
00069 CFILE_ISBA      = '                          '
00070 CTYPE           = 'GRIB  '
00071 CFILEPGD_ISBA   = '                          '
00072 CTYPEPGD        = 'GRIB  '
00073 CFILE_HUG       = '                          '
00074 CTYPE_HUG       = '      '
00075 CFILE_TG        = '                          '
00076 CTYPE_TG        = '      '
00077 !
00078 CFILE_HUG_SURF = '                          '
00079 CFILE_HUG_ROOT = '                          '
00080 CFILE_HUG_DEEP = '                          '
00081 CFILE_TG_SURF  = '                          '
00082 CFILE_TG_ROOT  = '                          '
00083 CFILE_TG_DEEP  = '                          '
00084 !
00085 XHUG_SURF = XUNDEF
00086 XHUG_ROOT = XUNDEF
00087 XHUG_DEEP = XUNDEF
00088 XHUGI_SURF= 0.
00089 XHUGI_ROOT= 0.
00090 XHUGI_DEEP= 0.
00091 XTG_SURF  = XUNDEF
00092 XTG_ROOT  = XUNDEF
00093 XTG_DEEP  = XUNDEF
00094 !
00095 XWR_DEF   = 0.
00096 !
00097 IF (LHOOK) CALL DR_HOOK('DEFAULT_PREP_TEB_GREENROOF',1,ZHOOK_HANDLE)
00098 !-------------------------------------------------------------------------------
00099 !
00100 END SUBROUTINE DEFAULT_PREP_TEB_GREENROOF