Commit cfc9784a authored by Satoshi Endo's avatar Satoshi Endo
Browse files

changed a coefficient to set an upper limit on the cloud ice number

parent 8b8777fd
......@@ -22,6 +22,12 @@
! changes by KVW, 9/24/10
! 9) adapted to make the cloud water fully two-moment
! changes by sendo
! - aerosl variation
! - changed a coefficient to set an upper limit on the cloud ice number
! from 10E.6/RHO to 0.3E6/RHO
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! THIS SCHEME IS A BULK DOUBLE-MOMENT SCHEME THAT PREDICTS MIXING
......@@ -4720,7 +4726,9 @@ END SUBROUTINE MP_MORR_TWO_MOMENT
! HM ADD 1/10/06, ADD UPPER BOUND ON ICE NUMBER, THIS IS NEEDED
! TO PREVENT VERY LARGE ICE NUMBER DUE TO HOMOGENEOUS FREEZING
! OF DROPLETS, ESPECIALLY WHEN INUM = 1, SET MAX AT 10 CM-3
NI3D(K) = MIN(NI3D(K),10.E6/RHO(K))
! NI3D(K) = MIN(NI3D(K),10.E6/RHO(K))
NI3D(K) = MIN(NI3D(K),0.3E6/RHO(K)) ! crm
! ADD BOUND ON DROPLET NUMBER - CANNOT EXCEED AEROSOL CONCENTRATION
IF (INUM.EQ.0.AND.IACT.EQ.2) THEN
NC3D(K) = MIN(NC3D(K),(NANEW1+NANEW2)/RHO(K))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment