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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE DEFAULT_PREP_ISBA
00003 !     ###########################
00004 !
00005 !!****  *DEFAULT_PREP_ISBA* - 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_ISBA,  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 MODN_PREP_ISBA,  ONLY : LISBA_CANOPY
00048 !
00049 USE MODD_SURF_PAR,   ONLY : XUNDEF
00050 USE MODD_SNOW_PAR,   ONLY : XANSMIN, XRHOSMAX
00051 USE MODD_CSTS,       ONLY : XTT
00052 !
00053 !
00054 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00055 USE PARKIND1  ,ONLY : JPRB
00056 !
00057 IMPLICIT NONE
00058 !
00059 !*       0.1   Declarations of arguments
00060 !              -------------------------
00061 !
00062 !
00063 !
00064 !*       0.2   Declarations of local variables
00065 !              -------------------------------
00066 !
00067 !-------------------------------------------------------------------------------
00068 !
00069 
00070 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00071 
00072 IF (LHOOK) CALL DR_HOOK('DEFAULT_PREP_ISBA',0,ZHOOK_HANDLE)
00073 CFILE_ISBA = '                          '
00074 CTYPE      = 'GRIB  '
00075 CFILEPGD_ISBA = '                          '
00076 CTYPEPGD      = '      '
00077 CFILE_HUG  = '                          '
00078 CTYPE_HUG  = '      '
00079 CFILE_TG   = '                          '
00080 CTYPE_TG   = '      '
00081 !
00082 CFILE_HUG_SURF = '                          '
00083 CFILE_HUG_ROOT = '                          '
00084 CFILE_HUG_DEEP = '                          '
00085 CFILE_TG_SURF  = '                          '
00086 CFILE_TG_ROOT  = '                          '
00087 CFILE_TG_DEEP  = '                          '
00088 !
00089 XHUG_SURF = XUNDEF
00090 XHUG_ROOT = XUNDEF
00091 XHUG_DEEP = XUNDEF
00092 XHUGI_SURF= XUNDEF
00093 XHUGI_ROOT= XUNDEF
00094 XHUGI_DEEP= XUNDEF
00095 XTG_SURF  = XUNDEF
00096 XTG_ROOT  = XUNDEF
00097 XTG_DEEP  = XUNDEF
00098 !
00099 XWR_DEF   = 0.
00100 !
00101 LISBA_CANOPY = .FALSE. 
00102 IF (LHOOK) CALL DR_HOOK('DEFAULT_PREP_ISBA',1,ZHOOK_HANDLE)
00103 
00104 !-------------------------------------------------------------------------------
00105 !
00106 END SUBROUTINE DEFAULT_PREP_ISBA