Skip to content

Commit

Permalink
Updated rca calculation with rsmin and rsmax limits.
Browse files Browse the repository at this point in the history
  • Loading branch information
drnimbusrain committed May 15, 2024
1 parent 30cfb46 commit bff4e29
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions physics/SFC_Models/Land/Noahmp/noahmpdrv.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1063,14 +1063,14 @@ subroutine noahmpdrv_run &
zorl (i) = z0_total * 100.0 ! convert to cm
ztmax (i) = z0h_total

! total stomatal/canopy resistance Based on Bonan et al. (2011) conductance (1/Rs) equation
!LAI-scale canopy resistance based on weighted sunlit shaded fraction
if(rs_sunlit .le. 0.0 .or. rs_shaded .le. 0.0 .or. &
lai_sunlit .eq. 0.0 .or. lai_shaded .eq. 0.0) then
rca(i) = 0.0
else
rca(i) = parameters%rsmax
else !calculate LAI-scale canopy conductance (1/Rs)
rca(i) = ((1.0/(rs_sunlit+leaf_air_resistance)*lai_sunlit) + &
((1.0/(rs_shaded+leaf_air_resistance))*lai_shaded))
rca(i) = 1.0/rca(i) !resistance
rca(i) = max((1.0/rca(i)),parameters%rsmin) !resistance
end if

smc (i,:) = soil_moisture_vol
Expand Down

0 comments on commit bff4e29

Please sign in to comment.