Changeset 4296 for palm/trunk/SOURCE/land_surface_model_mod.f90
 Timestamp:
 Nov 20, 2019 11:35:12 AM (17 months ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/land_surface_model_mod.f90
r4261 r4296 25 25 !  26 26 ! $Id$ 27 ! Bugfix: partitioning of LE from liquid water reservoir fixed. Bare soils are 28 ! now allowed to store liquid water at the surface. 29 ! 30 ! 4261 20191009 17:58:00Z scharf 27 31 ! bugfix for rev. 4258: deallocate temporary arrays 28 32 ! … … 272 276 rho_c_soil = 2.19E6_wp, & ! volumetric heat capacity of soil (J/m3/K) 273 277 rho_c_water = 4.20E6_wp, & ! volumetric heat capacity of water (J/m3/K) 274 m_max_depth = 0.0002_wp ! Maximum capacity of the water reservoir (m)278 m_max_depth = 0.0002_wp ! Maximum capacity of the water reservoir on a flat surface (leaf/bare soil) (m) 275 279 276 280 … … 1823 1827 ! assumed, while paved surfaces might hold up 1 mm of water. The 1824 1828 ! liquid water fraction for paved surfaces is calculated after 1825 ! Noilhan & Planton (1989), while the ECMWF formulation is used for1826 ! vegetated surfaces and bare soils.1829 ! Masson (2000) (TEB model) and originates from Noilhan & Planton (1989), 1830 ! while the ECMWF formulation is used for vegetated surfaces and bare soils. 1827 1831 IF ( surf%pavement_surface(m) ) THEN 1828 1832 m_liq_max = m_max_depth * 5.0_wp … … 1858 1862 ELSE 1859 1863 f_qsws_veg = rho_lv * surf%c_veg(m) * & 1860 ( 1.0_wp  surf%c_liq(m) ) /&1864 ( 1.0_wp  surf%c_liq(m) ) / & 1861 1865 ( surf%r_a(m) + surf%r_canopy(m) ) 1862 f_qsws_soil = rho_lv * (1.0_wp  surf%c_veg(m) ) / & 1866 f_qsws_soil = rho_lv * (1.0_wp  surf%c_veg(m) ) & 1867 * (1.0_wp  surf%c_liq(m) ) / & 1863 1868 ( surf%r_a(m) + surf%r_soil(m) ) 1864 f_qsws_liq = rho_lv * surf%c_veg(m) * surf%c_liq(m) / & 1865 surf%r_a(m) 1869 f_qsws_liq = rho_lv * surf%c_liq(m) / surf%r_a(m) 1866 1870 ENDIF 1867 1871
Note: See TracChangeset
for help on using the changeset viewer.