Skip to content

Commit

Permalink
Merge pull request #162 from jpleim/O3Vd
Browse files Browse the repository at this point in the history
correct wet cuticle resistance for ozone
  • Loading branch information
Jeff Young authored Nov 9, 2016
2 parents 57b4629 + 26764a2 commit b805d12
Showing 1 changed file with 4 additions and 5 deletions.
9 changes: 4 additions & 5 deletions CCTM/src/depv/m3dry/m3dry.F
Original file line number Diff line number Diff line change
Expand Up @@ -690,11 +690,10 @@ SUBROUTINE m3dry ( jdate, jtime, dt, abflux, sfc_hono, mosaic, fst, cgridl1, dep
IF ( l .Ne. l_O3 ) THEN
rwet = rcw0 / heff ! wet cuticle
ELSE
! Set RCW/LAI = 200 s/m on basis of Keysburg exp for O3
! rwet = 1250.0 ! s/m
! rwet = MAX( 200.0, 200.0 * laicr ) ! s/m
! Average of 2002 and 2003 from Table 1. Altimir et al 2006 doi:10.5194/bg-3-209-2006
rwet = 385.0 ! s/m
! Canopy level wet resistence Rwet to ozone was found to be about 200 s/m on basis of Keysburg exp
! Using LAI(1-sided) of about 6.25 measured at Keysburg gives leaf level rwet about 1250 s/m
rwet = 1250.0 ! s/m
! Leaf level rwet estimated from Altimir et al 2006 gives about 1350 s/m
END IF

rgw = rgwet0 / heff ! wet ground
Expand Down

0 comments on commit b805d12

Please sign in to comment.