Skip to content

Commit

Permalink
JungHoon: Increasing the absolute value of entrainment/detrainment co…
Browse files Browse the repository at this point in the history
…efficients. Simply changed 1.75e-3 to 2.50e-3 in line 2303 (entrainment part) and -1.75e-3 to -2.50e-3 in line 2179 (detrainment part) of the code
  • Loading branch information
JunghoonShin-NOAA committed Jul 29, 2024
1 parent 11d3071 commit 4f8f615
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions physics/CONV/nTiedtke/cu_ntiedtke.F90
Original file line number Diff line number Diff line change
Expand Up @@ -2176,7 +2176,7 @@ subroutine cuascn &
jl = jlx(jll)
zdmfde(jl) = min(zdmfde(jl),0.75*pmfu(jl,jk+1))
if ( jk == kcbot(jl) ) then
zoentr(jl) = -1.75e-3*(min(1.,pqen(jl,jk)/pqsen(jl,jk)) - &
zoentr(jl) = -2.50e-3*(min(1.,pqen(jl,jk)/pqsen(jl,jk)) - &
1.)*(pgeoh(jl,jk)-pgeoh(jl,jk+1))*zrg
zoentr(jl) = min(0.4,zoentr(jl))*pmfu(jl,jk+1)
end if
Expand Down Expand Up @@ -2300,7 +2300,7 @@ subroutine cuascn &
end if
if ( zbuo(jl,jk) > -0.2 ) then
ikb = kcbot(jl)
zoentr(jl) = 1.75e-3*(0.3-(min(1.,pqen(jl,jk-1) / &
zoentr(jl) = 2.50e-3*(0.3-(min(1.,pqen(jl,jk-1) / &
pqsen(jl,jk-1))-1.))*(pgeoh(jl,jk-1)-pgeoh(jl,jk)) * &
zrg*min(1.,pqsen(jl,jk)/pqsen(jl,ikb))**3
zoentr(jl) = min(0.4,zoentr(jl))*pmfu(jl,jk)
Expand Down

0 comments on commit 4f8f615

Please sign in to comment.