Index: LMDZ4/trunk/libf/phylmd/phytrac.F
===================================================================
--- LMDZ4/trunk/libf/phylmd/phytrac.F	(revision 593)
+++ LMDZ4/trunk/libf/phylmd/phytrac.F	(revision 616)
@@ -48,5 +48,5 @@
      I                    prfl,
      I                    psfl,
-#ifdef INCA_CH4
+#ifdef INCA
      I                    flxmass_w,
 #endif
@@ -66,7 +66,14 @@
 #ifdef INCA_AER
       USE AEROSOL_MOD, only : ntr,trmx,trnx
-      USE AEROSOL_DIAG, only : cla,las,tausum,angst,aload,scon
-     .                            ,scavcoef_st,scavcoef_cv
-      USE AEROSOL_PROGNOS, ONLY : md
+      USE AEROSOL_DIAG,only : cla,las,tausum,angst,aload,cload,totaerh2o,tau,
+     $  emiss20,sconc,scavcoef_st,scavcoef_cv
+     $  ,cload05ss  ,cload05bc  ,cload05pom  ,cload05dust  ,cload05so4
+     $  ,cload125ss  ,cload125bc  ,cload125pom  ,cload125dust  ,cload125so4
+      USE AEROSOL_PROGNOS, ONLY : md,mdw
+      USE AEROSOL_METEO, only : airm
+#endif
+#ifdef INCA_NMHC
+      USE RESISTANCE_DIAGNOSE, ONLY : surf_alb, sol_irrad, surf_temp, surf_wind,
+     $                                aero_resist, lamin_resist, surf_resist
 #endif
 #endif
@@ -136,5 +143,5 @@
       REAL prfl(klon,klev+1),   psfl(klon,klev+1)     !--lessivage large-scale
 
-#ifdef INCA_CH4
+#ifdef INCA
       REAL flxmass_w(klon,klev)
 #endif
@@ -315,26 +322,33 @@
 
 #ifdef INCA
+      INTEGER           :: lastgas
       INTEGER           :: ncsec
+
+      INTEGER           :: prt_flag_ts(nbtr)=(/1,1,1
 #ifdef INCA_CH4
-#ifdef  INCA_AER
-      INTEGER           :: prt_flag_ts(51)=(/1,1,1
-#else
-      INTEGER           :: prt_flag_ts(43)=(/1,1,1
-#endif
-#else
-#ifdef INCA_AER
-      INTEGER           :: prt_flag_ts(11)=(/1,1,1
-#endif
-#endif
-
-#ifdef INCA_CH4
-     .                                              ,1,0,1,1,0,1,0,
-     .                                         0,0,0,0,0,0,0,1,0,0,
+     .                                              ,0,0,1,1,1,1,1,
+     .                                         0,1,0,0,0,0,0,1,0,0,
      .                                         0,1,1,1,1,0,1,1,1,0,
      .                                         1,1,1,1,1,1,1,1,1,1,
      .                                         1,0,0
-#endif
 #ifdef INCA_AER
-     .                                              ,1,1,1,1,1,1,1,1
+     .                                         ,1,1,1,1,0,1,1,1
+#endif
+#endif
+#ifdef INCA_AER
+c aerosol tracers
+     .                                        ,1,0,1,1,1,1,1,1,0,1,
+     .                                         0,1,1,1,1,1,0,1,0,1,1,1
+#endif
+#ifdef INCA_NMHC
+     .                                                 , 1, 1, 1, 1, 1, 1, 1,
+     .                                          1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+     .                                          1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+     .                                          1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+     .                                          1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+     .                                          1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+     .                                          1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+     .                                          1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+     .                                          1, 1, 1, 1, 1, 1, 1
 #endif
      .                                         /)
@@ -444,7 +458,10 @@
 
 #ifdef INCA_AER
+
+! Changement Anne 01/04/2005
         CALL aerosolmain (tr_seri,
      $                 pdtphys,
      $                 pplay,
+     $                 pdel,
      $                 prfl,
      $                 pmflxr,
@@ -455,6 +472,11 @@
      $                 ibas_con,
      $                 pphi,
-     $                 airephy,
-     $                 nstep)
+     $                 airephy, ! paire,
+     $                 nstep,
+     $                 rneb,         ! for chimiaq
+     $                 t_seri,       ! for chimiaq
+     $                 rh)
+! fin changement anne
+
 #endif
 
@@ -470,4 +492,5 @@
      $                 pplay,      !pmid
      $                 pdel,       !pdel
+     $                 airephy,
      $                 pctsrf(1,1),!oro
      $                 ftsol,      !tsurf
