Skip to content

NSSL-mp bug fix for (obsolete) droplet nucleation #2195

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
weiwangncar merged 9 commits into from
Apr 9, 2025
Merged

NSSL-mp bug fix for (obsolete) droplet nucleation #2195

Changes from all commits
Commits
Show all changes
9 commits
Select commit Hold shift + click to select a range
06b4dc5
NSSL-MP scheme update:
MicroTed Feb 21, 2025
93c7333
module_mp_nssl_2mom.F : Added missing final fixes
MicroTed Feb 23, 2025
695ff56
Changed nssl_hail_on from size of max_dom to 1 because it has to be …
MicroTed Feb 24, 2025
0a72336
module_mp_nssl_2mom.F : Fixes for single moment and no-hail options.
MicroTed Feb 28, 2025
d32870f
Splits a couple long lines that gfortran might complain about and f…
MicroTed Mar 11, 2025
d242616
solve_em.F and module_microphysics_driver.F : Removed new flags fo…
MicroTed Mar 13, 2025
89cbe02
module_microphysics_driver.F : Pass namelist flag to NSSLmp instead…
MicroTed Apr 1, 2025
84075e9
module_mp_nssl_2mom.F : Bug fix for old droplet nucleation (irenuc=2)
MicroTed Apr 9, 2025
b0c84ff
Merge remote-tracking branch 'origin/release-v4.7.0' into v4.7-nsslmp…
MicroTed Apr 9, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 5 additions & 1 deletion phys/module_mp_nssl_2mom.F
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -10334,7 +10334,11 @@ SUBROUTINE NUCOND &
DO mgs = 1,ngscnt
! default value of renucfrac is 0.0
IF ( irenuc /= 6 ) THEN
cnuc(mgs) = ccnc(mgs)*(1. - renucfrac) + ccnc(mgs)*renucfrac
IF ( irenuc == 2 ) THEN
cnuc(mgs) = Max(ccnc(mgs),cwnccn(mgs))*(1. - renucfrac) + ccnc(mgs)*renucfrac
ELSE
cnuc(mgs) = ccnc(mgs)*(1. - renucfrac) + ccnc(mgs)*renucfrac
ENDIF
ELSE
cnuc(mgs) = ccnc(mgs)*(1. - renucfrac) + Max(0.0,ccnc(mgs) - ccna(mgs))*renucfrac
ENDIF
Expand Down