Changeset 7508 for branches/ORCHIDEE_2_2/ORCHIDEE/src_parameters/constantes_soil.f90

Timestamp:

2022-03-04T12:18:30+01:00 (2 years ago)

Author:

josefine.ghattas

Message:

• Removed DRY_SOIL_HEAT_COND and related variable so_cond_dry
• Replaced previous scalar variable so_capa_dry with vector variable so_capa_dry_ns and moved read from run.def to thermosoil. In the end, so_capa_dry_ns is renamed so_capa_dry.

See ticket #780

No change in results.

File:

• branches/ORCHIDEE_2_2/ORCHIDEE/src_parameters/constantes_soil.f90 (modified) (1 diff)

branches/ORCHIDEE_2_2/ORCHIDEE/src_parameters/constantes_soil.f90

@@ -70 +70 @@
     ! Following initializations are only done for option impose_param
     IF ( ok_sechiba .AND. impose_param ) THEN
-
-       !Config Key   = DRY_SOIL_HEAT_CAPACITY
-       !Config Desc  = Dry soil Heat capacity of soils
-       !Config If    = OK_SECHIBA 
-       !Config Def   = 1.80e+6
-       !Config Help  = Values taken from : PIELKE,'MESOSCALE METEOROLOGICAL MODELING',P.384.
-       !Config Units = [J.m^{-3}.K^{-1}] 
-       CALL getin_p("DRY_SOIL_HEAT_CAPACITY",so_capa_dry)
-
-       !! Check parameter value (correct range)
-       IF ( so_capa_dry <= zero ) THEN
-          CALL ipslerr_p(error_level, "config_soil_parameters.", &
-               &     "Wrong parameter value for DRY_SOIL_HEAT_CAPACITY.", &
-               &     "This parameter should be positive. ", &
-               &     "Please, check parameter value in run.def. ")
-       END IF
-
-
-       !Config Key   = DRY_SOIL_HEAT_COND
-       !Config Desc  = Dry soil Thermal Conductivity of soils
-       !Config If    = OK_SECHIBA
-       !Config Def   = 0.40 
-       !Config Help  = Values taken from : PIELKE,'MESOSCALE METEOROLOGICAL MODELING',P.384.
-       !Config Units = [W.m^{-2}.K^{-1}] 
-       CALL getin_p("DRY_SOIL_HEAT_COND",so_cond_dry)
-
-       !! Check parameter value (correct range)
-       IF ( so_cond_dry <= zero ) THEN
-          CALL ipslerr_p(error_level, "config_soil_parameters.", &
-               &     "Wrong parameter value for DRY_SOIL_HEAT_COND.", &
-               &     "This parameter should be positive. ", &
-               &     "Please, check parameter value in run.def. ")
-       END IF
-
 
        !Config Key   = SNOW_HEAT_COND