chem/module_isrpia_inc.F

   1 !C=======================================================================
   2 !C *** ISORROPIA CODE II
   3 !C *** INCLUDE FILE 'ISRPIA.INC'
   4 !C *** THIS FILE CONTAINS THE DECLARATIONS OF THE GLOBAL CONSTANTS
   5 !C     AND VARIABLES.
   6 !C
   7 !C *** COPYRIGHT 1996-2008, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
   8 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
   9 !C *** WRITTEN BY ATHANASIOS NENES
  10 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
  11 !C
  12 !C=======================================================================
  13 !C
  14
  15       IMPLICIT DOUBLE PRECISION (A-H,O-Z)
  16
  17 !liqy
  18 !
  19 !       INTEGER NCOMP, NIONS,NGASAQ,NSLDS,NPAIR,NZSR,NERRMX
  20 !liqy-20140507
  21       PARAMETER (NCOMP=8,NIONS=10,NGASAQ=3,NSLDS=19,NPAIR=23,NZSR=100,&
  22                 NERRMX=25)
  23 !liqy
  24 !change the NERRMX from 25 to 10000.
  25 !liqy-20140507
  26
  27 !C
  28 !C *** INPUT VARIABLES **************************************************
  29 !C
  30       INTEGER METSTBL
  31 !liqy
  32 !       INTEGER IPROB,NADJ
  33 !       REAL W, WAER,TEMP,RH
  34 !       DIMENSION W(NCOMP),WAER(NCOMP)
  35 !liqy-20140507
  36       COMMON /INPT/ W(NCOMP), WAER(NCOMP), TEMP, RH, IPROB, METSTBL,&
  37                    NADJ
  38 !C
  39 !C *** WATER ACTIVITIES OF PURE SALT SOLUTIONS **************************
  40 !C
  41 !liqy
  42 !       REAL AWAS, AWSS, AWAC, AWSC,&
  43 !               AWAN, AWSN, AWSB, AWAB,&
  44 !                   AWSA, AWLC, AWCS, AWCN, &
  45 !                       AWCC, AWPS, AWPB, AWPN,&
  46 !                          AWPC, AWMS, AWMN, AWMC
  47 !
  48 !       DIMENSION AWAS(NZSR), AWSS(NZSR), AWAC(NZSR), AWSC(NZSR),&
  49 !                   AWAN(NZSR), AWSN(NZSR), AWSB(NZSR), AWAB(NZSR),&
  50 !                   AWSA(NZSR), AWLC(NZSR), AWCS(NZSR), AWCN(NZSR),&
  51 !                   AWCC(NZSR), AWPS(NZSR), AWPB(NZSR), AWPN(NZSR),&
  52 !                   AWPC(NZSR), AWMS(NZSR), AWMN(NZSR), AWMC(NZSR)
  53 !liqy-20140507
  54       COMMON /ZSR / AWAS(NZSR), AWSS(NZSR), AWAC(NZSR), AWSC(NZSR),&
  55                    AWAN(NZSR), AWSN(NZSR), AWSB(NZSR), AWAB(NZSR),&
  56                    AWSA(NZSR), AWLC(NZSR), AWCS(NZSR), AWCN(NZSR),&
  57                    AWCC(NZSR), AWPS(NZSR), AWPB(NZSR), AWPN(NZSR),&
  58                    AWPC(NZSR), AWMS(NZSR), AWMN(NZSR), AWMC(NZSR)
  59 !C
  60 !C *** DELIQUESCENCE RELATIVE HUMIDITIES ********************************
  61 !C
  62       INTEGER WFTYP
  63 !liqy
  64 !       REAL  DRH2SO4,  DRNH42S4, DRNAHSO4, DRNACL,   DRNANO3, &
  65 !                   DRNA2SO4, DRNH4HS4, DRLC,     DRNH4NO3, DRNH4CL,&
  66 !                   DRCASO4,  DRCANO32, DRCACL2,  DRK2SO4,  DRKHSO4,&
  67 !                   DRKNO3,   DRKCL,    DRMGSO4,  DRMGNO32, DRMGCL2
  68 !liqy-20140507
  69       COMMON /DRH / DRH2SO4,  DRNH42S4, DRNAHSO4, DRNACL,   DRNANO3, &
  70                    DRNA2SO4, DRNH4HS4, DRLC,     DRNH4NO3, DRNH4CL,&
  71                    DRCASO4,  DRCANO32, DRCACL2,  DRK2SO4,  DRKHSO4,&
  72                    DRKNO3,   DRKCL,    DRMGSO4,  DRMGNO32, DRMGCL2
  73 !C
  74 !liqy
  75 !       REAL  DRMLCAB,  DRMLCAS,  DRMASAN,  DRMG1,    DRMG2,&
  76 !                   DRMG3,    DRMH1,    DRMH2,    DRMI1,    DRMI2,&
  77 !                   DRMI3,    DRMQ1,    DRMR1,    DRMR2,    DRMR3,&
  78 !                   DRMR4,    DRMR5,    DRMR6,    DRMR7,    DRMR8,&
  79 !                   DRMR9,    DRMR10,   DRMR11,   DRMR12,   DRMR13
  80 !       INTEGER   WFTYP
  81 !liqy-20140507
  82       COMMON /MDRH/ DRMLCAB,  DRMLCAS,  DRMASAN,  DRMG1,    DRMG2,&
  83                    DRMG3,    DRMH1,    DRMH2,    DRMI1,    DRMI2,&
  84                    DRMI3,    DRMQ1,    DRMR1,    DRMR2,    DRMR3,&
  85                    DRMR4,    DRMR5,    DRMR6,    DRMR7,    DRMR8,&
  86                    DRMR9,    DRMR10,   DRMR11,   DRMR12,   DRMR13,&
  87                    WFTYP
  88 !C
  89
  90 !liqy
  91 !       REAL  DRMO1,    DRMO2,    DRMO3,    DRML1,    DRML2,&
  92 !                    DRML3,    DRMM1,    DRMM2,    DRMP1,    DRMP2,&
  93 !                    DRMP3,    DRMP4,    DRMP5,    DRMV1
  94 !li1y-20140507
  95       COMMON /MDRH2/ DRMO1,    DRMO2,    DRMO3,    DRML1,    DRML2,&
  96                     DRML3,    DRMM1,    DRMM2,    DRMP1,    DRMP2,&
  97                     DRMP3,    DRMP4,    DRMP5,    DRMV1
  98
  99 !C
 100 !C *** VARIABLES FOR LIQUID AEROSOL PHASE *******************************
 101 !C
 102       DOUBLE PRECISION MOLAL, MOLALR, M0
 103       REAL IONIC
 104       LOGICAL CALAOU, CALAIN, FRST, DRYF
 105 !liqy
 106 !       DIMENSION MOLAL(NIONS), MOLALR(NPAIR)
 107
 108 !       INTEGER ZZ,Z,IACALC
 109 !       REAL GAMA, &
 110 !                  GAMOU,  GAMIN,&
 111 !                   GASAQ,&
 112 !                   EPSACT,       COH,           CHNO3,       CHCL,     &
 113 !                   WATER
 114
 115 !       DIMENSION GAMA(NPAIR), ZZ(NPAIR),&
 116 !                   Z(NIONS),     GAMOU(NPAIR),  GAMIN(NPAIR),&
 117 !                   GASAQ(NGASAQ)
 118 !liqy-20140507
 119       COMMON /IONS/ MOLAL(NIONS), MOLALR(NPAIR), GAMA(NPAIR), ZZ(NPAIR),&
 120                    Z(NIONS),     GAMOU(NPAIR),  GAMIN(NPAIR),M0(NPAIR),&
 121                    GASAQ(NGASAQ),&
 122                    EPSACT,       COH,           CHNO3,       CHCL,     &
 123                    WATER,        IONIC,         IACALC,      &
 124                    FRST,         CALAIN,        CALAOU,      DRYF
 125 !C
 126 !C *** VARIABLES FOR SOLID AEROSOL PHASE ********************************
 127 !C
 128 !liqy
 129 !       REAL CH2SO4,  CNH42S4, CNH4HS4, CNACL,   CNA2SO4, &
 130 !                   CNANO3,  CNH4NO3, CNH4CL,  CNAHSO4, CLC, CCASO4,&
 131 !                   CCANO32, CCACL2,  CK2SO4,  CKHSO4,  CKNO3, CKCL,&
 132 !                   CMGSO4,  CMGNO32, CMGCL2
 133 !liqy-20140507
 134       COMMON /SALT/ CH2SO4,  CNH42S4, CNH4HS4, CNACL,   CNA2SO4, &
 135                    CNANO3,  CNH4NO3, CNH4CL,  CNAHSO4, CLC, CCASO4,&
 136                    CCANO32, CCACL2,  CK2SO4,  CKHSO4,  CKNO3, CKCL,&
 137                    CMGSO4,  CMGNO32, CMGCL2
 138 !C
 139 !C *** VARIABLES FOR GAS PHASE ******************************************
 140 !C
 141
 142 !liqy
 143 !       REAL GNH3, GHNO3, GHCL
 144 !liqy-20140507
 145       COMMON /GAS / GNH3, GHNO3, GHCL
 146 !C
 147 !C *** EQUILIBRIUM CONSTANTS ********************************************
 148 !C
 149 !liqy
 150 !       REAL XK1, XK2, XK3, XK4, XK5, XK6, XK7, XK8, XK9, XK10,&
 151 !                   XK11,XK12,XK13,XK14,XKW, XK21,XK22,XK31,XK32,XK41,&
 152 !                   XK42, XK15, XK16, XK17, XK18, XK19, XK20, XK23,&
 153 !                   XK24, XK25
 154 !liqy-20140507
 155       COMMON /EQUK/ XK1, XK2, XK3, XK4, XK5, XK6, XK7, XK8, XK9, XK10,&
 156                    XK11,XK12,XK13,XK14,XKW, XK21,XK22,XK31,XK32,XK41,&
 157                    XK42, XK15, XK16, XK17, XK18, XK19, XK20, XK23,&
 158                    XK24, XK25
 159 !C     &              , XK26, XK27
 160 !C
 161 !C *** MOLECULAR WEIGHTS ************************************************
 162 !C
 163       DOUBLE PRECISION IMW
 164
 165 !liqy
 166 !       REAL R,WMW, SMW
 167 !       DIMENSIOn WMW(NCOMP), SMW(NPAIR), IMW(NIONS)
 168 !liqy-20140507
 169       COMMON /OTHR/ R, IMW(NIONS), WMW(NCOMP), SMW(NPAIR)
 170 !C
 171 !C *** SOLUTION/INFO VARIABLES ******************************************
 172 !C
 173       CHARACTER SCASE*15
 174 !liqy
 175 !       REAL SULRATW, SULRAT, SODRAT, SO4RAT, CRNARAT, CRRAT
 176 !liqy-20140507
 177       COMMON /CASE/ SULRATW, SULRAT, SODRAT, SO4RAT, CRNARAT, CRRAT, &
 178                    SCASE
 179 !C
 180 !liqy
 181 !       REAL EPS
 182 !       INTEGER MAXIT, NSWEEP, NDIV, ICLACT
 183 !liqy-20140507
 184       COMMON /SOLN/ EPS, MAXIT, NSWEEP, NDIV, ICLACT
 185 !C
 186 !C *** ERROR SYSTEM *****************************************************
 187 !C
 188       CHARACTER ERRMSG*40
 189       INTEGER   ERRSTK, NOFER
 190       LOGICAL   STKOFL
 191       COMMON /EROR/ STKOFL, NOFER, ERRSTK(NERRMX), ERRMSG(NERRMX)
 192 !C
 193 !C *** GENERIC VARIABLES ************************************************
 194 !C
 195       CHARACTER VERSION*15
 196 !liqy
 197 !       REAL GREAT, TINY, TINY2, ZERO, ONE
 198 !liqy-20140507
 199       COMMON /CGEN/ GREAT, TINY, TINY2, ZERO, ONE, VERSION
 200 !C
 201 !C *** END OF INCLUDE FILE **********************************************
 202 !C