6c6
< !obs2model_anowbufr_pm
---
> !obs2model_anowbufr_pm2_5
16d15
< ! 2013-11-01 pagowski - add code for PM2.5 assimilation with wrf-chem
27c26
<   public :: obs2model_anowbufr_pm,cmaq_pm,wrf_chem_pm,&
---
>   public :: obs2model_anowbufr_pm2_5,cmaq_pm2_5,wrf_chem_pm2_5,&
43c42
<   public :: code_pm25_ncbufr,code_pm25_anowbufr
---
>   public :: code_pm25_bufr,code_pm25_prepbufr
68a68
> 
76,77c76,77
<   integer(i_kind), parameter :: code_pm25_ncbufr=11, &
<        code_pm25_anowbufr=102,code_pm10_ncbufr=code_pm25_ncbufr,&
---
>   integer(i_kind), parameter :: code_pm25_bufr=11, code_pm25_prepbufr=102
> !  integer(i_kind), parameter :: code_pm10_ncbufr=code_pm25_ncbufr,&
79,80c79,81
< 
<   real(r_kind),parameter :: pm2_5_teom_max=100_r_kind !ug/m3
---
>   
> ! ajl marius had 100 ?
>   real(r_kind),parameter :: pm2_5_teom_max=200_r_kind !ug/m3
85d85
< 
106c106
<   real(r_kind),parameter :: cmaq_pm=kg2ug,wrf_chem_pm=kg2ug,&
---
>   real(r_kind),parameter :: cmaq_pm2_5=kg2ug,wrf_chem_pm2_5=kg2ug,&
126c126
< 
---
>   
140a141
> 
148c149
<   function obs2model_anowbufr_pm()
---
>   function obs2model_anowbufr_pm2_5()
152c153
< ! assigns conversion factors between AIRNow pm units and model units
---
> ! assigns conversion factors between AIRNow pm2.5 units and model units
154c155
<     real(r_kind) :: obs2model_anowbufr_pm
---
>     real(r_kind) :: obs2model_anowbufr_pm2_5
157c158
<        obs2model_anowbufr_pm=cmaq_pm
---
>        obs2model_anowbufr_pm2_5=cmaq_pm2_5
159c160
<        obs2model_anowbufr_pm=wrf_chem_pm
---
>        obs2model_anowbufr_pm2_5=wrf_chem_pm2_5
165,166c166
<   end function obs2model_anowbufr_pm
< 
---
>   end function obs2model_anowbufr_pm2_5
201c201
<     
---
> 
204a205
> 
364c365
<     cdata_all(iconc,ndata)  = conc                    ! pm2_5 obs    
---
>     cdata_all(iconc,ndata)  = conc                    ! pm2_5 obs     
386d386
< 
390c390
<     
---
> 
411c411
<     
---
> 
428a429
>   
