ŧ•k820309 919.0Õ\Ūe  module_mixactivate.f90MODULE_MIXACTIVATEPRESCRIBE_AEROSOL_MIXACTIVATEMIXACTIVATEACTIVATE#@ +#GRID_ID#KTAU#DTSTEP#NAER#CCN_CONC#CHEM_OPT#RHO_PHY#TH_PHY#PI_PHY#W#CLDFRA#CLDFRA_OLD#Z#DZ8W#P_AT_W#T_AT_W#EXCH_H#QV#QC#QI#QNDROP3D#NSOURCE#IDS#IDE#JDS #JDE!#KDS"#KDE##IMS #IME #JMS #JME#KMS #KME #ITS$#ITE%#JTS&#JTE'#KTS(#KTE)#F_QC*#F_QI+#CN, @ @ @  D    @ @ 5“pr 5“p"r 5“p!r p5“p!r 5“pr 5“pr p5“pr &5“pr 5“pr &5“p!r 5“p"r &5“pr 5“p r5“pr 5“pr p5“p"r 5“p!r p5“p r5“pr p  5“pr 5“p"r 5“p!r p5“p!r 5“pr 5“pr p5“pr &5“pr 5“pr &5“p!r 5“p"r &5“pr 5“p r5“pr 5“pr p5“p"r 5“p!r p5“p r5“pr p  5“pr 5“p"r 5“p!r p5“p!r 5“pr 5“pr p5“pr &5“pr 5“pr &5“p!r 5“p"r &5“pr 5“p r5“pr 5“pr p5“p"r 5“p!r p5“p r5“pr p @ 5“pr 5“p"r 5“p!r p5“p!r 5“pr 5“pr p5“pr &5“pr 5“pr &5“p!r 5“p"r &5“pr 5“p r5“pr 5“pr p5“p"r 5“p!r p5“p r5“pr p D@ 5“pr 5“p"r 5“p!r p5“p!r 5“pr 5“pr p5“pr &5“pr 5“pr &5“p!r 5“p"r &5“pr 5“p r5“pr 5“pr p5“p"r 5“p!r p5“p r5“pr p D@ 5“pr 5“p"r 5“p!r p5“p!r 5“pr 5“pr p5“pr &5“pr 5“pr &5“p!r 5“p"r &5“pr 5“p r5“pr 5“pr p5“p"r 5“p!r p5“p r5“pr p @ 5“pr 5“p"r 5“p!r p5“p!r 5“pr 5“pr p5“pr &5“pr 5“pr &5“p!r 5“p"r &5“pr 5“p r5“pr 5“pr p5“p"r 5“p!r p5“p r5“pr p @ 5“pr 5“p"r 5“p!r p5“p!r 5“pr 5“pr p5“pr &5“pr 5“pr &5“p!r 5“p"r &5“pr 5“p r5“pr 5“pr p5“p"r 5“p!r p5“p r5“pr p @ 5“pr 5“p"r 5“p!r p5“p!r 5“pr 5“pr p5“pr &5“pr 5“pr &5“p!r 5“p"r &5“pr 5“p r5“pr 5“pr p5“p"r 5“p!r p5“p r5“pr p @ 5“pr 5“p"r 5“p!r p5“p!r 5“pr 5“pr p5“pr &5“pr 5“pr &5“p!r 5“p"r &5“pr 5“p r5“pr 5“pr p5“p"r 5“p!r p5“p r5“pr p @ 5“pr 5“p"r 5“p!r p5“p!r 5“pr 5“pr p5“pr &5“pr 5“pr &5“p!r 5“p"r &5“pr 5“p r5“pr 5“pr p5“p"r 5“p!r p5“p r5“pr p @ 5“pr 5“p"r 5“p!r p5“p!r 5“pr 5“pr p5“pr &5“pr 5“pr &5“p!r 5“p"r &5“pr 5“p r5“pr 5“pr p5“p"r 5“p!r p5“p r5“pr p @ 5“pr 5“p"r 5“p!r p5“p!r 5“pr 5“pr p5“pr &5“pr 5“pr &5“p!r 5“p"r &5“pr 5“p r5“pr 5“pr p5“p"r 5“p!r p5“p r5“pr p @ 5“pr 5“p"r 5“p!r p5“p!r 5“pr 5“pr p5“pr &5“pr 5“pr &5“p!r 5“p"r &5“pr 5“p r5“pr 5“pr p5“p"r 5“p!r p5“p r5“pr p D@ 5“pr 5“p"r 5“p!r p5“p!r 5“pr 5“pr p5“pr &5“pr 5“pr &5“p!r 5“p"r &5“pr 5“p r5“pr 5“pr p5“p"r 5“p!r p5“p r5“pr p D@ 5“pr 5“p"r 5“p!r p5“p!r 5“pr 5“pr p5“pr &5“pr 5“pr &5“p!r 5“p"r &5“pr 5“p r5“pr 5“pr p5“p"r 5“p!r p5“p r5“pr p @ @ @  @! @" @# @  @  @  @ @  @  @$ @% @& @' @( @)F@*F@+ F@, 5“pr 5“p"r 5“p!r p5“p!r 5“pr 5“pr p5“pr &5“pr 5“pr &5“p!r 5“p"r &5“pr 5“p r5“pr 5“pr p5“p"r 5“p!r p5“p r5“pr p#@ -F#MSECTIONAL.#CHEM/#NUM_CHEM6#QV7#QC8#QI9#QNDROP3D:#TEMP;#W<#DDVEL=#IDRYDEP_ONOFFB#MAXD_ACOMPC#MAXD_ASIZED#MAXD_ATYPEE#MAXD_APHASEF#NCOMP_AERG#NSIZE_AERH#NTYPE_AERI#NPHASE_AERJ#NUMPTR_AERK#MASSPTR_AERL#DLO_SECTM#DHI_SECTN#SIGMAG_AERO#DPVOLMEAN_AERP#DENS_AERQ#MW_AERR#WATERPTR_AERS#HYGROT#AI_PHASEW#CW_PHASEX#IDSY#IDEZ#JDS[#JDE\#KDS]#KDE^#IMS5#IME4#JMS1#JME0#KMS3#KME2#ITSA#ITE@#JTS?#JTE>#KTSV#KTEU#RHO_#ZM`#DZ8Wa#P_AT_Wb#T_AT_Wc#KVHd#CLDFRAe#CLDFRA_OLDf#QSRFLXg#CCN1h#CCN2i#CCN3j#CCN4k#CCN5l#CCN6m#NSOURCEn#GRID_IDo#KTAUp#DTSTEPq#F_QCr#F_QIs @. D/ 4p5“p)r05“p(r1p5“p(r15“p+r25“p*r3p5“p*r35“p'r45“p&r5p5“p&r5&5“p&r55“p'r4&5“p*r35“p+r2&5“p(r15“p)r05“pr65“p'r45“p&r5p5“p+r25“p*r3p5“p)r05“p(r1p5“pr6 @6 7 55“p(r15“p+r25“p*r3p5“p*r35“p'r45“p&r5p5“p&r5&5“p&r55“p'r4&5“p*r35“p+r2&5“p(r15“p)r05“p'r45“p&r5p5“p+r25“p*r3p5“p)r05“p(r1p @8 65“p(r15“p+r25“p*r3p5“p*r35“p'r45“p&r5p5“p&r5&5“p&r55“p'r4&5“p*r35“p+r2&5“p(r15“p)r05“p'r45“p&r5p5“p+r25“p*r3p5“p)r05“p(r1p @9 75“p(r15“p+r25“p*r3p5“p*r35“p'r45“p&r5p5“p&r5&5“p&r55“p'r4&5“p*r35“p+r2&5“p(r15“p)r05“p'r45“p&r5p5“p+r25“p*r3p5“p)r05“p(r1p D: 85“p(r15“p+r25“p*r3p5“p*r35“p'r45“p&r5p5“p&r5&5“p&r55“p'r4&5“p*r35“p+r2&5“p(r15“p)r05“p'r45“p&r5p5“p+r25“p*r3p5“p)r05“p(r1p @; 95“p(r15“p+r25“p*r3p5“p*r35“p'r45“p&r5p5“p&r5&5“p&r55“p'r4&5“p*r35“p+r2&5“p(r15“p)r05“p'r45“p&r5p5“p+r25“p*r3p5“p)r05“p(r1p < :5“p(r15“p+r25“p*r3p5“p*r35“p'r45“p&r5p5“p&r5&5“p&r55“p'r4&5“p*r35“p+r2&5“p(r15“p)r05“p'r45“p&r5p5“p+r25“p*r3p5“p)r05“p(r1p = <p5“p/r>5“p.r?p5“p.r?5“p-r@5“p,rAp5“p,rA&5“p,rA5“p-r@&5“p.r?5“p/r>5“pr65“p-r@5“p,rAp5“p/r>5“p.r?p5“pr6 B @C @D @E F G*p5“prE5“prE @H)p5“prE5“prE@IJ @K-p5“prEp5“p rDp5“p rD5“prE5“prF5“p rD5“prE5“prF @L+p5“prEp5“p rDp5“p rCp5“p rC5“p rD5“prE5“prF5“p rC5“p rD5“prE5“prF @M .p5“p rDp5“p rD5“prE5“p rD5“prE @N /p5“p rDp5“p rD5“prE5“p rD5“prE @O 0p5“p rDp5“p rD5“prE5“p rD5“prE P 3p5“p rDp5“p rD5“prE5“p rD5“prE @Q 1p5“p rCp5“p rC5“prE5“p rC5“prE R 2p5“p rCp5“p rC5“prE5“p rC5“prE S,p5“p rDp5“p rD5“prE5“p rD5“prE T Dp5“p rDp5“p/r>5“p.r?p5“p.r?5“p1rU5“p0rVp5“p0rV5“p-r@5“p,rAp5“p,rA&5“p,rA5“p-r@&5“p0rV5“p1rU&5“p.r?5“p/r>5“p rD5“prE5“p-r@5“p,rAp5“p1rU5“p0rVp5“p/r>5“p.r?p5“p rD5“prE W X @Y @Z @[ @\ @] @^ @5 @4 @1 @0 @3 @2 @A @@ @? @> @V @U _ ;5“p(r15“p+r25“p*r3p5“p*r35“p'r45“p&r5p5“p&r5&5“p&r55“p'r4&5“p*r35“p+r2&5“p(r15“p)r05“p'r45“p&r5p5“p+r25“p*r3p5“p)r05“p(r1p ` =5“p(r15“p+r25“p*r3p5“p*r35“p'r45“p&r5p5“p&r5&5“p&r55“p'r4&5“p*r35“p+r2&5“p(r15“p)r05“p'r45“p&r5p5“p+r25“p*r3p5“p)r05“p(r1p a >5“p(r15“p+r25“p*r3p5“p*r35“p'r45“p&r5p5“p&r5&5“p&r55“p'r4&5“p*r35“p+r2&5“p(r15“p)r05“p'r45“p&r5p5“p+r25“p*r3p5“p)r05“p(r1p b ?5“p(r15“p+r25“p*r3p5“p*r35“p'r45“p&r5p5“p&r5&5“p&r55“p'r4&5“p*r35“p+r2&5“p(r15“p)r05“p'r45“p&r5p5“p+r25“p*r3p5“p)r05“p(r1p c @5“p(r15“p+r25“p*r3p5“p*r35“p'r45“p&r5p5“p&r5&5“p&r55“p'r4&5“p*r35“p+r2&5“p(r15“p)r05“p'r45“p&r5p5“p+r25“p*r3p5“p)r05“p(r1p d A5“p(r15“p+r25“p*r3p5“p*r35“p'r45“p&r5p5“p&r5&5“p&r55“p'r4&5“p*r35“p+r2&5“p(r15“p)r05“p'r45“p&r5p5“p+r25“p*r3p5“p)r05“p(r1p D@e C5“p(r15“p+r25“p*r3p5“p*r35“p'r45“p&r5p5“p&r5&5“p&r55“p'r4&5“p*r35“p+r2&5“p(r15“p)r05“p'r45“p&r5p5“p+r25“p*r3p5“p)r05“p(r1p Df B5“p(r15“p+r25“p*r3p5“p*r35“p'r45“p&r5p5“p&r5&5“p&r55“p'r4&5“p*r35“p+r2&5“p(r15“p)r05“p'r45“p&r5p5“p+r25“p*r3p5“p)r05“p(r1p Dg Ep5“p)r05“p(r1p5“p(r15“p'r45“p&r5p5“p&r5&5“p&r55“p'r4&5“p(r15“p)r05“pr65“p'r45“p&r5p5“p)r05“p(r1p5“pr6 Dh G5“p(r15“p+r25“p*r3p5“p*r35“p'r45“p&r5p5“p&r5&5“p&r55“p'r4&5“p*r35“p+r2&5“p(r15“p)r05“p'r45“p&r5p5“p+r25“p*r3p5“p)r05“p(r1p Di H5“p(r15“p+r25“p*r3p5“p*r35“p'r45“p&r5p5“p&r5&5“p&r55“p'r4&5“p*r35“p+r2&5“p(r15“p)r05“p'r45“p&r5p5“p+r25“p*r3p5“p)r05“p(r1p Dj I5“p(r15“p+r25“p*r3p5“p*r35“p'r45“p&r5p5“p&r5&5“p&r55“p'r4&5“p*r35“p+r2&5“p(r15“p)r05“p'r45“p&r5p5“p+r25“p*r3p5“p)r05“p(r1p Dk J5“p(r15“p+r25“p*r3p5“p*r35“p'r45“p&r5p5“p&r5&5“p&r55“p'r4&5“p*r35“p+r2&5“p(r15“p)r05“p'r45“p&r5p5“p+r25“p*r3p5“p)r05“p(r1p Dl K5“p(r15“p+r25“p*r3p5“p*r35“p'r45“p&r5p5“p&r5&5“p&r55“p'r4&5“p*r35“p+r2&5“p(r15“p)r05“p'r45“p&r5p5“p+r25“p*r3p5“p)r05“p(r1p Dm L5“p(r15“p+r25“p*r3p5“p*r35“p'r45“p&r5p5“p&r5&5“p&r55“p'r4&5“p*r35“p+r2&5“p(r15“p)r05“p'r45“p&r5p5“p+r25“p*r3p5“p)r05“p(r1p Dn F5“p(r15“p+r25“p*r3p5“p*r35“p'r45“p&r5p5“p&r5&5“p&r55“p'r4&5“p*r35“p+r2&5“p(r15“p)r05“p'r45“p&r5p5“p+r25“p*r3p5“p)r05“p(r1p @o @p q @r@s#@ t#WBARu#SIGWv#WDIABw#WMINFx#WMAXFy#TAIRz#RHOAIR{#MSECTIONAL|#MAXD_ATYPE}#NTYPE_AER~#MAXD_ASIZE#NSIZE_AER€#NA#VOLC‚#DLO_SECTƒ#DHI_SECT„#SIGMAN…#HYGRO†#FN‡#FSˆ#FM‰#FLUXNŠ#FLUXS‹#FLUXMŒ#FLUX_FULLACT#GRID_IDŽ#KTAU#II#JJ‘#KK’#SMAX_PRESCRIBED“ u  v  w  @x  @y  z  {  | @} @~ @ @€p5“p r}5“p r}  p5“p rp5“p r5“p r}5“p r5“p r} ‚ “p5“p rp5“p r5“p r}5“p r5“p r} ƒ ”p5“p rp5“p r5“p r}5“p r5“p r} „ •p5“p rp5“p r5“p r}5“p r5“p r} … ‘p5“p rp5“p r5“p r}5“p r5“p r} † ’p5“p rp5“p r5“p r}5“p r5“p r} D‡ –p5“p rp5“p r5“p r}5“p r5“p r} Dˆ —p5“p rp5“p r5“p r}5“p r5“p r} D‰ ˜p5“p rp5“p r5“p r}5“p r5“p r} DŠ ™p5“p rp5“p r5“p r}5“p r5“p r} D‹ šp5“p rp5“p r5“p r}5“p r5“p r} DŒ ›p5“p rp5“p r5“p r}5“p r5“p r} D  Ž   ‘ ’ @“  2fn#fn(ŌCbuapp(MODULE_MIXACTIVATE.ĸPRESCRIBE_AEROSOL_MIXACTIVATE6@aPRESCRIBE_AEROSOL_MIXACTIVATE%GRID_ID3T@aPRESCRIBE_AEROSOL_MIXACTIVATE%KTAU5”@aPRESCRIBE_AEROSOL_MIXACTIVATE%DTSTEP3Ô@aPRESCRIBE_AEROSOL_MIXACTIVATE%NAER7@aPRESCRIBE_AEROSOL_MIXACTIVATE%CCN_CONC7T@aPRESCRIBE_AEROSOL_MIXACTIVATE%CHEM_OPT6”aPRESCRIBE_AEROSOL_MIXACTIVATE%RHO_PHY5ĻaPRESCRIBE_AEROSOL_MIXACTIVATE%TH_PHY5ž aPRESCRIBE_AEROSOL_MIXACTIVATE%PI_PHY0Ð aPRESCRIBE_AEROSOL_MIXACTIVATE%W5äaPRESCRIBE_AEROSOL_MIXACTIVATE%CLDFRA9øaPRESCRIBE_AEROSOL_MIXACTIVATE%CLDFRA_OLD0 aPRESCRIBE_AEROSOL_MIXACTIVATE%Z3 aPRESCRIBE_AEROSOL_MIXACTIVATE%DZ8W54aPRESCRIBE_AEROSOL_MIXACTIVATE%P_AT_W5H aPRESCRIBE_AEROSOL_MIXACTIVATE%T_AT_W5\#aPRESCRIBE_AEROSOL_MIXACTIVATE%EXCH_H1p&aPRESCRIBE_AEROSOL_MIXACTIVATE%QV1„)aPRESCRIBE_AEROSOL_MIXACTIVATE%QC1˜,aPRESCRIBE_AEROSOL_MIXACTIVATE%QI7Ž/aPRESCRIBE_AEROSOL_MIXACTIVATE%QNDROP3D6Ā2aPRESCRIBE_AEROSOL_MIXACTIVATE%NSOURCE2Ô5@aPRESCRIBE_AEROSOL_MIXACTIVATE%IDS26@aPRESCRIBE_AEROSOL_MIXACTIVATE%IDE2T6@aPRESCRIBE_AEROSOL_MIXACTIVATE%JDS2”6@aPRESCRIBE_AEROSOL_MIXACTIVATE%JDE2Ô6@aPRESCRIBE_AEROSOL_MIXACTIVATE%KDS27@aPRESCRIBE_AEROSOL_MIXACTIVATE%KDE2T7@aPRESCRIBE_AEROSOL_MIXACTIVATE%IMS2”7@aPRESCRIBE_AEROSOL_MIXACTIVATE%IME2Ô7@aPRESCRIBE_AEROSOL_MIXACTIVATE%JMS28@aPRESCRIBE_AEROSOL_MIXACTIVATE%JME2T8@aPRESCRIBE_AEROSOL_MIXACTIVATE%KMS2”8@aPRESCRIBE_AEROSOL_MIXACTIVATE%KME2Ô8@aPRESCRIBE_AEROSOL_MIXACTIVATE%ITS29@aPRESCRIBE_AEROSOL_MIXACTIVATE%ITE2T9@aPRESCRIBE_AEROSOL_MIXACTIVATE%JTS2”9@aPRESCRIBE_AEROSOL_MIXACTIVATE%JTE2Ô9@aPRESCRIBE_AEROSOL_MIXACTIVATE%KTS2:@aPRESCRIBE_AEROSOL_MIXACTIVATE%KTE3T:@aPRESCRIBE_AEROSOL_MIXACTIVATE%F_QC3”:@aPRESCRIBE_AEROSOL_MIXACTIVATE%F_QI1Ô:aPRESCRIBE_AEROSOL_MIXACTIVATE%CNč=[MIXACTIVATE'CB@aMIXACTIVATE%MSECTIONAL!ƒBīaMIXACTIVATE%CHEM%7F@aMIXACTIVATE%NUM_CHEMwFaMIXACTIVATE%QV‹IaMIXACTIVATE%QCŸLaMIXACTIVATE%QI%ģOaMIXACTIVATE%QNDROP3D!ĮRaMIXACTIVATE%TEMPÛUaMIXACTIVATE%W"ïXīaMIXACTIVATE%DDVEL*Ģ[@aMIXACTIVATE%IDRYDEP_ONOFF'ã[@aMIXACTIVATE%MAXD_ACOMP'#\@aMIXACTIVATE%MAXD_ASIZE'c\@aMIXACTIVATE%MAXD_ATYPE(Ģ\@aMIXACTIVATE%MAXD_APHASE&ã\īaMIXACTIVATE%NCOMP_AER&—]īaMIXACTIVATE%NSIZE_AER&K^@aMIXACTIVATE%NTYPE_AER'‹^@aMIXACTIVATE%NPHASE_AER'Ë^”aMIXACTIVATE%NUMPTR_AER(_`aMIXACTIVATE%MASSPTR_AER%cb$aMIXACTIVATE%DLO_SECT%‡c$aMIXACTIVATE%DHI_SECT'Ŧd$aMIXACTIVATE%SIGMAG_AER*Ïe$aMIXACTIVATE%DPVOLMEAN_AER%óf$aMIXACTIVATE%DENS_AER#h$aMIXACTIVATE%MW_AER);i$aMIXACTIVATE%WATERPTR_AER"_j$aMIXACTIVATE%HYGRO%ƒn@aMIXACTIVATE%AI_PHASE%Ãn@aMIXACTIVATE%CW_PHASE o@aMIXACTIVATE%IDS Co@aMIXACTIVATE%IDE ƒo@aMIXACTIVATE%JDS Ão@aMIXACTIVATE%JDE p@aMIXACTIVATE%KDS Cp@aMIXACTIVATE%KDE ƒp@aMIXACTIVATE%IMS Ãp@aMIXACTIVATE%IME q@aMIXACTIVATE%JMS Cq@aMIXACTIVATE%JME ƒq@aMIXACTIVATE%KMS Ãq@aMIXACTIVATE%KME r@aMIXACTIVATE%ITS Cr@aMIXACTIVATE%ITE ƒr@aMIXACTIVATE%JTS Ãr@aMIXACTIVATE%JTE s@aMIXACTIVATE%KTS Cs@aMIXACTIVATE%KTE ƒsaMIXACTIVATE%RHO—vaMIXACTIVATE%ZM!ŦyaMIXACTIVATE%DZ8W#ŋ|aMIXACTIVATE%P_AT_W#ÓaMIXACTIVATE%T_AT_W į‚aMIXACTIVATE%KVH#û…aMIXACTIVATE%CLDFRA'‰aMIXACTIVATE%CLDFRA_OLD##ŒīaMIXACTIVATE%QSRFLX!ŨŽaMIXACTIVATE%CCN1!ë‘aMIXACTIVATE%CCN2!ĸ”aMIXACTIVATE%CCN3!˜aMIXACTIVATE%CCN4!'›aMIXACTIVATE%CCN5!;žaMIXACTIVATE%CCN6$OĄaMIXACTIVATE%NSOURCE$cĪ@aMIXACTIVATE%GRID_ID!ĢĪ@aMIXACTIVATE%KTAU#ãĪ@aMIXACTIVATE%DTSTEP!#Ĩ@aMIXACTIVATE%F_QC!cĨ@aMIXACTIVATE%F_QIĢĨ˜ACTIVATE;Ļ@aACTIVATE%WBAR{Ļ@aACTIVATE%SIGWŧĻ@aACTIVATE%WDIABûĻ@aACTIVATE%WMINF;Đ@aACTIVATE%WMAXF{Đ@aACTIVATE%TAIR ŧĐ@aACTIVATE%RHOAIR$ûĐ@aACTIVATE%MSECTIONAL$;Š@aACTIVATE%MAXD_ATYPE#{Š@aACTIVATE%NTYPE_AER$ŧŠ@aACTIVATE%MAXD_ASIZE#ûŠīaACTIVATE%NSIZE_AERŊŦ$aACTIVATE%NAÓŽ$aACTIVATE%VOLC"ũ­$aACTIVATE%DLO_SECT"Ŋ$aACTIVATE%DHI_SECT ?°$aACTIVATE%SIGMANcą$aACTIVATE%HYGRO‡ē$aACTIVATE%FNŦģ$aACTIVATE%FSÏī$aACTIVATE%FMóĩ$aACTIVATE%FLUXN·$aACTIVATE%FLUXS;ļ$aACTIVATE%FLUXM&_đ@aACTIVATE%FLUX_FULLACT!Ÿđ@aACTIVATE%GRID_IDßđ@aACTIVATE%KTAUš@aACTIVATE%II_š@aACTIVATE%JJŸš@aACTIVATE%KK)ßš@aACTIVATE%SMAX_PRESCRIBED