SURFEX v7.3
General documentation of Surfex
|
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