79c79
<                21,                                                            &
---
>                22,                                                            &		!fix
90c90
<                emis_ant(ims,kms,jms,p_e_c2h5oh))
---
>                emis_ant(ims,kms,jms,p_e_iso),emis_ant(ims,kms,jms,p_e_c2h5oh))		!fix
129a130,131
>           print*,"e_iso=",emis_ant(i,k,j,p_e_iso)*conv!!!!!!!!B
> 
162a165,166
>         chem(i,k,j,p_iso)  =  chem(i,k,j,p_iso)                        &        !fix
>                          +emis_ant(i,k,j,p_e_iso)*conv      			!fix
215c219
<                21,                                                            &
---
>                22,                                                            &		!fix
226c230
<                emis_ant(ims,kms,jms,p_e_c2h5oh))
---
>                emis_ant(ims,kms,jms,p_e_iso),emis_ant(ims,kms,jms,p_e_c2h5oh))		!fix