Skip to content

Commit

Permalink
revert rain evaporation factor change
Browse files Browse the repository at this point in the history
this was the one real code difference compared to master, the
remaining changes simply parameterize constants.
  • Loading branch information
nbren12 committed May 4, 2021
1 parent 73f87fc commit 8eae741
Showing 1 changed file with 1 addition and 2 deletions.
3 changes: 1 addition & 2 deletions FV3/gfsphysics/physics/gfdl_cloud_microphys.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1390,8 +1390,7 @@ subroutine revap_racc (ktop, kbot, dt, tz, qv, ql, qr, qi, qs, qg, den, denfac,
t2 = tin * tin
evap = crevp (1) * t2 * dq * (crevp (2) * sqrt (qden) + crevp (3) * &
exp (0.725 * log (qden))) / (crevp (4) * t2 + crevp (5) * qsat * den (k))
factor = min (1., re_factor * dqv / qsat)
evap = min (qr (k), dt * evap, factor * dqv / (1. + lcpk (k) * dqsdt))
evap = min (qr (k), dt * evap, dqv / (1. + lcpk (k) * dqsdt))
! -----------------------------------------------------------------------
! alternative minimum evap in dry environmental air
! sink = min (qr (k), dim (rh_rain * qsat, qv (k)) / (1. + lcpk (k) * dqsdt))
Expand Down

0 comments on commit 8eae741

Please sign in to comment.