83c83
<       INTEGER, SAVE :: VPOC    ! primary fine organic carbon 
---
>       INTEGER, SAVE :: VPOA    ! primary fine organic carbon 
153d152
< C   15 May 08 J.Young   added capability for emission files that contain POC or POA
737c736
< C        (e.g., VPOC, VPSO4, etc.)
---
> C        (e.g., VPOA, VPSO4, etc.)
745c744
<             VNAME ='POC'
---
>             VNAME ='POA' 
749c748
<                VPOC = V
---
>                VPOA = V
754,769c753,756
<                VNAME ='POA'
<                INDX = INDEX1( VNAME, NVARS3D, VNAME3D )
<                IF ( INDX .NE. 0 ) THEN
<                   V = 1
<                   VPOC = V
<                   AEMIS( V ) = VNAME
<                   UNITSCK = UNITS3D( INDX )
<                   UNITSAE( V ) = UNITS3D( INDX )
<                   XMSG = 'Aerosol emissions file contains POA instead of POC'
<                   CALL M3WARN ( PNAME, JDATE, JTIME, XMSG )
<                ELSE
<                   XMSG = 'Could not find '
<      &                 // VNAME( 1:TRIMLEN( VNAME ) )
<      &                 // ' in aerosol table'
<                   CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 )
<                END IF
---
>                XMSG = 'Could not find '
>      &              // VNAME( 1:TRIMLEN( VNAME ) )
>      &              // ' in aerosol table'
>                CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 )
1126c1113
<                   EPOA  = PM_EM( VPOC  ) * GSFAC
---
>                   EPOA  = PM_EM( VPOA  ) * GSFAC
1138c1125
<      &                 ( PM_EM(VPOC) + PM_EM(VPEC) + PM_EM(VPSO4) +
---
>      &                 ( PM_EM(VPOA) + PM_EM(VPEC) + PM_EM(VPSO4) +