Skip to content

Commit 208591c

Browse files
Changed direct soil evaporation, version 8.2.2 2.1 (#86)
* Reverted tuning to HRRR dry bias in soil resistance to evaporation. * The version is changed to 8.2.2-2.1
1 parent ccfe218 commit 208591c

File tree

4 files changed

+7
-7
lines changed

4 files changed

+7
-7
lines changed

README.md

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
MPAS-v8.2.2-2.0
1+
MPAS-v8.2.2-2.1
22
====
33

44
The Model for Prediction Across Scales (MPAS) is a collaborative project for

src/core_atmosphere/Registry.xml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11
<?xml version="1.0"?>
2-
<registry model="mpas" core="atmosphere" core_abbrev="atm" version="8.2.2-2.0">
2+
<registry model="mpas" core="atmosphere" core_abbrev="atm" version="8.2.2-2.1">
33

44
<!-- **************************************************************************************** -->
55
<!-- ************************************** Dimensions ************************************** -->

src/core_atmosphere/physics/physics_wrf/module_ruc_land.F90

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -2463,11 +2463,11 @@ subroutine soil (spp_lsm,rstochcol, fieldcol_sf, &
24632463
! field capacity
24642464
fc=ref
24652465
fex_fc=1.
2466-
if((soilmois(1)+qmin) > fc .or. (qvatm-qvg) > 0.) then
2466+
if(soilmois(1) > fc .or. (qvatm-qvg) > 0.) then
24672467
soilres = 1.
24682468
else
2469-
fex_fc=min(1.,(soilmois(1)+qmin)/fc)
2470-
fex_fc=max(fex_fc,0.01)
2469+
fex_fc=min(1.,soilmois(1)/fc)
2470+
!fex_fc=max(fex_fc,0.01)
24712471
soilres=0.25*(1.-cos(piconst*fex_fc))**2.
24722472
endif
24732473
!if ( wrf_at_debug_level(lsmruc_dbg_lvl) ) then
@@ -5139,7 +5139,7 @@ subroutine soilprop(spp_lsm,rstochcol,fieldcol_sf, &
51395139
h=max(0.,(soilmoism(k)+qmin-a)/(max(1.e-8,(ws-a))))
51405140
facd=1.
51415141
if(a.ne.0.)facd=1.-a/max(1.e-8,soilmoism(k))
5142-
ame=max(1.e-8,ws-riw*soilicem(k))
5142+
ame=max(1.e-8,ws-a)
51435143
!--- diffu is diffusional conductivity of soil water
51445144
diffu(k)=-bclh*ksat*psis/ame* &
51455145
(ws/ame)**3. &

src/core_init_atmosphere/Registry.xml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11
<?xml version="1.0"?>
2-
<registry model="mpas" core="init_atmosphere" core_abbrev="init_atm" version="8.2.2-2.0">
2+
<registry model="mpas" core="init_atmosphere" core_abbrev="init_atm" version="8.2.2-2.1">
33

44
<!-- **************************************************************************************** -->
55
<!-- ************************************** Dimensions ************************************** -->

0 commit comments

Comments
 (0)