|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ###################### 00002 MODULE MODD_ISBA_PAR 00003 ! ###################### 00004 ! 00005 !!**** *MODD_ISBA_PAR* - declaration of ISBA parameters 00006 !! 00007 !! PURPOSE 00008 !! ------- 00009 ! The purpose of this declarative module is to specify the 00010 ! parameters related to the surface parameterization ISBA. 00011 ! 00012 !! 00013 !! 00014 !! 00015 !! AUTHOR 00016 !! ------ 00017 !! S. Belair *Meteo France* 00018 !! 00019 !! MODIFICATIONS 00020 !! ------------- 00021 !! Original 29/04/95 00022 !! (V.Masson) 05/10/98+ add XCDZ0EFF, XRHOSMIN, XRHOSMAX 00023 !! (V.Masson) 15/03/99 add number of layers 00024 !! (A.Boone) 02/05/02 add ISBA-ES parameters 00025 !! (A.Boone) 21/11/11 add Rsmax 00026 !------------------------------------------------------------------------------- 00027 ! 00028 !* 0. DECLARATIONS 00029 ! ------------ 00030 ! 00031 IMPLICIT NONE 00032 ! 00033 !------------------------------------------------------------------------------ 00034 ! Vegetation: (for additional parameters related to vegetation, see 00035 ! modd_co2v_par.f90) 00036 !------------------------------------------------------------------------------ 00037 ! 00038 ! vegetation emissivity 00039 ! 00040 REAL, PARAMETER :: XEMISVEG = 0.97 00041 ! 00042 ! drag coefficient in z0eff computation 00043 ! 00044 REAL, PARAMETER :: XCDZ0EFF = 0.8 00045 ! 00046 ! minimum vegetation fraction (for C3 grassland: for the case with large 00047 ! VEG and low LAI, such as wintertime) 00048 ! 00049 REAL, PARAMETER :: XVEGMIN = 0.95 00050 ! 00051 ! Maximum stomatal resistance (s m-1) 00052 ! 00053 REAL, PARAMETER :: XRS_MAX = 5000. 00054 ! 00055 !-------------------------------------------------------------------------------- 00056 ! Soil: 00057 !-------------------------------------------------------------------------------- 00058 ! 00059 ! Caracteristic time for ice in force-restore (s) 00060 ! 00061 REAL, PARAMETER :: XTAU_ICE = 3300. 00062 ! 00063 ! Bare soil emissivity 00064 ! 00065 REAL, PARAMETER :: XEMISSOIL = 0.94 00066 ! 00067 ! Minimum allowable volumetric liquid water content of soil 00068 ! 00069 REAL, PARAMETER :: XWGMIN = 0.001 ! (m3 m-3) 00070 ! 00071 ! Peters-Lidard et al. (JAS, 1998) from method of Johanssen (1975) 00072 ! thermal conductivity (option) parameters: 00073 ! 00074 REAL, PARAMETER :: XSPHSOIL = 733. ! J/(kg K) Soil specific heat 00075 REAL, PARAMETER :: XDRYWGHT = 2700.0 ! kg/m3 Soil solids dry weight 00076 REAL, PARAMETER :: XCONDQRTZ = 7.7 ! W/(m K) Quartz thermal conductivity 00077 REAL, PARAMETER :: XCONDOTH1 = 2.0 ! W/(m K) Other thermal conductivity 00078 REAL, PARAMETER :: XCONDOTH2 = 3.0 ! W/(m K) Other thermal conductivity 00079 REAL, PARAMETER :: XCONDWTR = 0.57 ! W/(m K) Water thermal conductivity 00080 ! 00081 !-------------------------------------------------------------------------------- 00082 ! Vegetation radiative properties 00083 !-------------------------------------------------------------------------------- 00084 ! 00085 ! Wavelength between near-infra-red and visible parts of the solar spectra 00086 ! 00087 REAL, PARAMETER :: XRED_EDGE = 0.0000007 ! (m) 0.7 micro-m 00088 ! 00089 ! 00090 ! Wavelength between visible and UV parts of the solar spectra 00091 ! 00092 REAL, PARAMETER :: XUV_EDGE = 0.00000025 ! (m) 0.1 micro-m 00093 ! 00094 !-------------------------------------------------------------------------------- 00095 ! Soil geometry if DF option 00096 !-------------------------------------------------------------------------------- 00097 ! 00098 INTEGER, PARAMETER :: NOPTIMLAYER=14 00099 REAL, DIMENSION(NOPTIMLAYER), PARAMETER :: XOPTIMGRID = 00100 (/0.01,0.04,0.10,0.20,0.40,0.60,0.80,1.00,1.50,2.00,3.00,5.00,8.00,12.0/) 00101 ! 00102 !-------------------------------------------------------------------------------- 00103 ! 00104 END MODULE MODD_ISBA_PAR 00105 00106 00107 00108 00109 00110 00111 00112 00113 00114 00115 00116
1.8.0
