Changeset 7199 for branches/ORCHIDEE_2_2/ORCHIDEE/src_parameters/constantes_soil_var.f90

Timestamp:

2021-05-27T14:35:32+02:00 (3 years ago)

Author:

agnes.ducharne

Message:

Inclusion of r6499, r6505, r6508 of the trunk, for consistent soil parameters in hydrola and thermosoil, as detailed in ticket #604. Checked step by step by 5d simulations on jean-zay: the only changes are weak and due to replacing poros=0.41 by variable mcs.

File:

• branches/ORCHIDEE_2_2/ORCHIDEE/src_parameters/constantes_soil_var.f90 (modified) (4 diffs)

branches/ORCHIDEE_2_2/ORCHIDEE/src_parameters/constantes_soil_var.f90

@@ -80 +80 @@
                                                         !! @tex $(W.m^{-2}.K^{-1})$ @endtex
 !$OMP THREADPRIVATE(so_cond_dry)
-  REAL(r_std), SAVE :: so_capa_wet = 3.03e+6            !! Wet soil Heat capacity of soils 
-                                                        !! @tex $(J.m^{-3}.K^{-1})$ @endtex
-!$OMP THREADPRIVATE(so_capa_wet)
-  REAL(r_std), SAVE :: so_cond_wet = 1.89               !! Wet soil Thermal Conductivity of soils 
-                                                        !! @tex $(W.m^{-2}.K^{-1})$ @endtex 
-!$OMP THREADPRIVATE(so_cond_wet)
   REAL(r_std), SAVE :: sn_cond = 0.3                    !! Thermal Conductivity of snow 
                                                         !! @tex $(W.m^{-2}.K^{-1})$ @endtex  
@@ -163 +157 @@
  & (/ 0.1_r_std, 0.1_r_std, 0.1_r_std /)                               !!  @tex $(m^{3} m^{-3})$ @endtex
 
-  REAL(r_std),PARAMETER,DIMENSION(nscm_fao) :: SMCMAX_fao = &          !! porosity
- & (/ 0.41_r_std, 0.43_r_std, 0.41_r_std /)                            !! & (/ 0.434_r_std, 0.439_r_std, 0.465_r_std /) !!noah lsm
-
   REAL(r_std),PARAMETER,DIMENSION(nscm_fao) :: QZ_fao = &              !! QUARTZ CONTENT (SOIL TYPE DEPENDENT)
  & (/ 0.60_r_std, 0.40_r_std, 0.35_r_std /)                            !! Peters et al [1998]
@@ -247 +238 @@
  &    0.1_r_std, 0.1_r_std, 0.1_r_std, 0.1_r_std, &
  &    0.1_r_std /) ! oxisols
-
-  REAL(r_std),PARAMETER,DIMENSION(nscm_usda) :: SMCMAX_usda = &          !! porosity for thermosoil
- & (/ 0.43_r_std, 0.41_r_std, 0.41_r_std, 0.45_r_std, &
- &    0.46_r_std, 0.43_r_std, 0.39_r_std, 0.43_r_std, &
- &    0.41_r_std, 0.38_r_std, 0.36_r_std, 0.38_r_std, &
- &    0.503_r_std  /) ! oxisols
  
   REAL(r_std),PARAMETER,DIMENSION(nscm_usda) :: QZ_usda = &              !! QUARTZ CONTENT (SOIL TYPE DEPENDENT)
@@ -283 +268 @@
   LOGICAL, SAVE        :: read_reftemp                !! Flag to initialize soil temperature using climatological temperature
 !$OMP THREADPRIVATE(read_reftemp)
-  REAL(r_std), SAVE    :: poros                       !! Soil porosity (from USDA classification, mean value)(-)
-!$OMP THREADPRIVATE(poros)
   REAL(r_std), SAVE    :: fr_dT                       !! Freezing window (K)
 !$OMP THREADPRIVATE(fr_dT)