!C=======================================================================
!C *** ISORROPIA CODE II
!C *** INCLUDE FILE 'ISRPIA.INC'
!C *** THIS FILE CONTAINS THE DECLARATIONS OF THE GLOBAL CONSTANTS
!C AND VARIABLES.
!C
!C *** COPYRIGHT 1996-2008, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
!C *** GEORGIA INSTITUTE OF TECHNOLOGY
!C *** WRITTEN BY ATHANASIOS NENES
!C *** UPDATED BY CHRISTOS FOUNTOUKIS
!C
!C=======================================================================
!C
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
!liqy
!
! INTEGER NCOMP, NIONS,NGASAQ,NSLDS,NPAIR,NZSR,NERRMX
!liqy-20140507
PARAMETER (NCOMP=8,NIONS=10,NGASAQ=3,NSLDS=19,NPAIR=23,NZSR=100,&
NERRMX=25)
!liqy
!change the NERRMX from 25 to 10000.
!liqy-20140507
!C
!C *** INPUT VARIABLES **************************************************
!C
INTEGER METSTBL
!liqy
! INTEGER IPROB,NADJ
! REAL W, WAER,TEMP,RH
! DIMENSION W(NCOMP),WAER(NCOMP)
!liqy-20140507
COMMON /INPT/ W(NCOMP), WAER(NCOMP), TEMP, RH, IPROB, METSTBL,&
NADJ
!C
!C *** WATER ACTIVITIES OF PURE SALT SOLUTIONS **************************
!C
!liqy
! REAL AWAS, AWSS, AWAC, AWSC,&
! AWAN, AWSN, AWSB, AWAB,&
! AWSA, AWLC, AWCS, AWCN, &
! AWCC, AWPS, AWPB, AWPN,&
! AWPC, AWMS, AWMN, AWMC
!
! DIMENSION AWAS(NZSR), AWSS(NZSR), AWAC(NZSR), AWSC(NZSR),&
! AWAN(NZSR), AWSN(NZSR), AWSB(NZSR), AWAB(NZSR),&
! AWSA(NZSR), AWLC(NZSR), AWCS(NZSR), AWCN(NZSR),&
! AWCC(NZSR), AWPS(NZSR), AWPB(NZSR), AWPN(NZSR),&
! AWPC(NZSR), AWMS(NZSR), AWMN(NZSR), AWMC(NZSR)
!liqy-20140507
COMMON /ZSR / AWAS(NZSR), AWSS(NZSR), AWAC(NZSR), AWSC(NZSR),&
AWAN(NZSR), AWSN(NZSR), AWSB(NZSR), AWAB(NZSR),&
AWSA(NZSR), AWLC(NZSR), AWCS(NZSR), AWCN(NZSR),&
AWCC(NZSR), AWPS(NZSR), AWPB(NZSR), AWPN(NZSR),&
AWPC(NZSR), AWMS(NZSR), AWMN(NZSR), AWMC(NZSR)
!C
!C *** DELIQUESCENCE RELATIVE HUMIDITIES ********************************
!C
INTEGER WFTYP
!liqy
! REAL DRH2SO4, DRNH42S4, DRNAHSO4, DRNACL, DRNANO3, &
! DRNA2SO4, DRNH4HS4, DRLC, DRNH4NO3, DRNH4CL,&
! DRCASO4, DRCANO32, DRCACL2, DRK2SO4, DRKHSO4,&
! DRKNO3, DRKCL, DRMGSO4, DRMGNO32, DRMGCL2
!liqy-20140507
COMMON /DRH / DRH2SO4, DRNH42S4, DRNAHSO4, DRNACL, DRNANO3, &
DRNA2SO4, DRNH4HS4, DRLC, DRNH4NO3, DRNH4CL,&
DRCASO4, DRCANO32, DRCACL2, DRK2SO4, DRKHSO4,&
DRKNO3, DRKCL, DRMGSO4, DRMGNO32, DRMGCL2
!C
!liqy
! REAL DRMLCAB, DRMLCAS, DRMASAN, DRMG1, DRMG2,&
! DRMG3, DRMH1, DRMH2, DRMI1, DRMI2,&
! DRMI3, DRMQ1, DRMR1, DRMR2, DRMR3,&
! DRMR4, DRMR5, DRMR6, DRMR7, DRMR8,&
! DRMR9, DRMR10, DRMR11, DRMR12, DRMR13
! INTEGER WFTYP
!liqy-20140507
COMMON /MDRH/ DRMLCAB, DRMLCAS, DRMASAN, DRMG1, DRMG2,&
DRMG3, DRMH1, DRMH2, DRMI1, DRMI2,&
DRMI3, DRMQ1, DRMR1, DRMR2, DRMR3,&
DRMR4, DRMR5, DRMR6, DRMR7, DRMR8,&
DRMR9, DRMR10, DRMR11, DRMR12, DRMR13,&
WFTYP
!C
!liqy
! REAL DRMO1, DRMO2, DRMO3, DRML1, DRML2,&
! DRML3, DRMM1, DRMM2, DRMP1, DRMP2,&
! DRMP3, DRMP4, DRMP5, DRMV1
!li1y-20140507
COMMON /MDRH2/ DRMO1, DRMO2, DRMO3, DRML1, DRML2,&
DRML3, DRMM1, DRMM2, DRMP1, DRMP2,&
DRMP3, DRMP4, DRMP5, DRMV1
!C
!C *** VARIABLES FOR LIQUID AEROSOL PHASE *******************************
!C
DOUBLE PRECISION MOLAL, MOLALR, M0
REAL IONIC
LOGICAL CALAOU, CALAIN, FRST, DRYF
!liqy
! DIMENSION MOLAL(NIONS), MOLALR(NPAIR)
! INTEGER ZZ,Z,IACALC
! REAL GAMA, &
! GAMOU, GAMIN,&
! GASAQ,&
! EPSACT, COH, CHNO3, CHCL, &
! WATER
! DIMENSION GAMA(NPAIR), ZZ(NPAIR),&
! Z(NIONS), GAMOU(NPAIR), GAMIN(NPAIR),&
! GASAQ(NGASAQ)
!liqy-20140507
COMMON /IONS/ MOLAL(NIONS), MOLALR(NPAIR), GAMA(NPAIR), ZZ(NPAIR),&
Z(NIONS), GAMOU(NPAIR), GAMIN(NPAIR),M0(NPAIR),&
GASAQ(NGASAQ),&
EPSACT, COH, CHNO3, CHCL, &
WATER, IONIC, IACALC, &
FRST, CALAIN, CALAOU, DRYF
!C
!C *** VARIABLES FOR SOLID AEROSOL PHASE ********************************
!C
!liqy
! REAL CH2SO4, CNH42S4, CNH4HS4, CNACL, CNA2SO4, &
! CNANO3, CNH4NO3, CNH4CL, CNAHSO4, CLC, CCASO4,&
! CCANO32, CCACL2, CK2SO4, CKHSO4, CKNO3, CKCL,&
! CMGSO4, CMGNO32, CMGCL2
!liqy-20140507
COMMON /SALT/ CH2SO4, CNH42S4, CNH4HS4, CNACL, CNA2SO4, &
CNANO3, CNH4NO3, CNH4CL, CNAHSO4, CLC, CCASO4,&
CCANO32, CCACL2, CK2SO4, CKHSO4, CKNO3, CKCL,&
CMGSO4, CMGNO32, CMGCL2
!C
!C *** VARIABLES FOR GAS PHASE ******************************************
!C
!liqy
! REAL GNH3, GHNO3, GHCL
!liqy-20140507
COMMON /GAS / GNH3, GHNO3, GHCL
!C
!C *** EQUILIBRIUM CONSTANTS ********************************************
!C
!liqy
! REAL XK1, XK2, XK3, XK4, XK5, XK6, XK7, XK8, XK9, XK10,&
! XK11,XK12,XK13,XK14,XKW, XK21,XK22,XK31,XK32,XK41,&
! XK42, XK15, XK16, XK17, XK18, XK19, XK20, XK23,&
! XK24, XK25
!liqy-20140507
COMMON /EQUK/ XK1, XK2, XK3, XK4, XK5, XK6, XK7, XK8, XK9, XK10,&
XK11,XK12,XK13,XK14,XKW, XK21,XK22,XK31,XK32,XK41,&
XK42, XK15, XK16, XK17, XK18, XK19, XK20, XK23,&
XK24, XK25
!C & , XK26, XK27
!C
!C *** MOLECULAR WEIGHTS ************************************************
!C
DOUBLE PRECISION IMW
!liqy
! REAL R,WMW, SMW
! DIMENSIOn WMW(NCOMP), SMW(NPAIR), IMW(NIONS)
!liqy-20140507
COMMON /OTHR/ R, IMW(NIONS), WMW(NCOMP), SMW(NPAIR)
!C
!C *** SOLUTION/INFO VARIABLES ******************************************
!C
CHARACTER SCASE*15
!liqy
! REAL SULRATW, SULRAT, SODRAT, SO4RAT, CRNARAT, CRRAT
!liqy-20140507
COMMON /CASE/ SULRATW, SULRAT, SODRAT, SO4RAT, CRNARAT, CRRAT, &
SCASE
!C
!liqy
! REAL EPS
! INTEGER MAXIT, NSWEEP, NDIV, ICLACT
!liqy-20140507
COMMON /SOLN/ EPS, MAXIT, NSWEEP, NDIV, ICLACT
!C
!C *** ERROR SYSTEM *****************************************************
!C
CHARACTER ERRMSG*40
INTEGER ERRSTK, NOFER
LOGICAL STKOFL
COMMON /EROR/ STKOFL, NOFER, ERRSTK(NERRMX), ERRMSG(NERRMX)
!C
!C *** GENERIC VARIABLES ************************************************
!C
CHARACTER VERSION*15
!liqy
! REAL GREAT, TINY, TINY2, ZERO, ONE
!liqy-20140507
COMMON /CGEN/ GREAT, TINY, TINY2, ZERO, ONE, VERSION
!C
!C *** END OF INCLUDE FILE **********************************************
!C