Changeset 673 for LMDZ4/trunk/libf/phylmd/phytrac.F

Timestamp:

Nov 16, 2005, 3:46:34 PM (19 years ago)

Author:

lmdzadmin

Message:

suppression de prt_flag_ts (INCA) AC
MAF

File:

• LMDZ4/trunk/libf/phylmd/phytrac.F (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/phytrac.F

@@ -69 +69 @@
       USE species_names
       USE chem_mods
+#ifdef INCA_NMHC
       USE pht_tables, ONLY : jrates
+      USE lightning, ONLY : prod_light
+#endif
+#ifdef INCA_CH4
+      USE pht_tables, ONLY : jrates
+      USE lightning, ONLY : prod_light
+#endif
       USE transport_controls, ONLY : conv_flg, pbl_flg
       USE airplane_src, ONLY : ptrop
-      USE lightning, ONLY : prod_light
 #ifdef INCA_AER
       USE AEROSOL_MOD, only : ntr,trmx,trnx
@@ -340 +346 @@
       INTEGER           :: ncsec
 
-      INTEGER           :: prt_flag_ts(nbtr)=(/1,1,1
-#ifdef INCA_CH4
-     .                                              ,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_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
-#ifdef INCA_AER
-     .                                         ,1,1,1,1,0,1,1,1
-#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
-     .                                         /)