Ignore:
Timestamp:
May 22, 2007, 3:55:22 PM (17 years ago)
Author:
lsce
Message:

correction de bug pour le couplage avec le modele inca - ACo

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/phytrac.F

    r740 r759  
    6868      USE species_names
    6969      USE chem_mods
     70#ifdef INCA_NMHC
    7071      USE pht_tables, ONLY : jrates
     72      USE lightning, ONLY : prod_light
     73#endif
     74#ifdef INCA_CH4
     75      USE pht_tables, ONLY : jrates
     76      USE lightning, ONLY : prod_light
     77#endif
    7178      USE transport_controls, ONLY : conv_flg, pbl_flg
    7279      USE airplane_src, ONLY : ptrop
    73       USE lightning, ONLY : prod_light
    7480#ifdef INCA_AER
    7581      USE AEROSOL_MOD, only : ntr,trmx,trnx
    7682      USE AEROSOL_DIAG,only : cla,las,tausum,angst,aload,cload,totaerh2o,tau,
    77      $  emiss20,sconc,scavcoef_st,scavcoef_cv
     83     $  emiss20,sconc,scavcoef_st,scavcoef_cv, lambda
    7884     $  ,cload05ss  ,cload05bc  ,cload05pom  ,cload05dust  ,cload05so4
    7985     $  ,cload125ss  ,cload125bc  ,cload125pom  ,cload125dust  ,cload125so4
    … …  
    108114#include "comgeomphy.h"
    109115#include "advtrac.h"
     116
    110117c======================================================================
    111118
    … …  
    335342      INTEGER           :: ncsec
    336343
    337       INTEGER           :: prt_flag_ts(nbtr)=(/1,1,1
     344      INTEGER           :: prt_flag_ts(nbtr)=(/
    338345#ifdef INCA_CH4
    339      .                                              ,0,0,1,1,1,1,1,
     346     .                                         1,1,1,0,0,1,1,1,1,1,
    340347     .                                         0,1,0,0,0,0,0,1,0,0,
    341348     .                                         0,1,1,1,1,0,1,1,1,0,
    342349     .                                         1,1,1,1,1,1,1,1,1,1,
    343350     .                                         1,0,0
    344 #ifdef INCA_AER
    345      .                                         ,1,1,1,1,0,1,1,1
    346 #endif
    347 #endif
    348 #ifdef INCA_AER
    349 c aerosol tracers
    350      .                                        ,1,0,1,1,1,1,1,1,0,1,
    351      .                                         0,1,1,1,1,1,0,1,0,1,1,1
     351#ifdef INCA_AER
     352     .                                        ,1,1,1,1,0,1,1,1,1,0,
     353     .                                         1,1,1,1,1,1,0,1,0,1,
     354     .                                         1,1,1,1,0,1,0,1,1,1
     355#endif
    352356#endif
    353357#ifdef INCA_NMHC
    354      .                                                 , 1, 1, 1, 1, 1, 1, 1,
    355      .                                          1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
    356      .                                          1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
    357      .                                          1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
    358      .                                          1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
    359      .                                          1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
    360      .                                          1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
    361      .                                          1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
    362      .                                          1, 1, 1, 1, 1, 1, 1
     358     .                                         1,1,1,1,1,1,1,1,1,1,
     359     .                                         1,1,1,1,1,1,1,1,1,1,
     360     .                                         1,1,1,1,1,1,1,1,1,1,
     361     .                                         1,1,1,1,1,1,1,1,1,1,
     362     .                                         1,1,1,1,1,1,1,1,1,1,
     363     .                                         1,1,1,1,1,1,1,1,1,1,
     364     .                                         1,1,1,1,1,1,1,1,1,1,
     365     .                                         1,1,1,1,1,1,1,1,1,1,
     366     .                                         1,1,1,1,1,1,1
     367#ifdef INCA_AER
     368     .                                        ,1,1,1,1,0,1,1,1,1,0,
     369     .                                         1,1,1,1,1,1,0,1,0,1,
     370     .                                         1,1,1,1,0,1,0,1,1,1
     371#endif
     372#endif
     373#if defined(INCA_AER) && !defined(INCA_CH4) && !defined(INCA_NMHC)
     374     .                                         1,1,1,0,1,1,1,1,0,1,
     375     .                                         1,1,1,1,1,0,1,0,1,1,
     376     .                                         1,1,1,0,1,0,1,1,1
     377#endif
     378#if defined(INCA) && !defined(INCA_CH4) && !defined(INCA_NMHC) && !defined(INCA_AER)
     379     .                                         1,1,1,1,1,1,1,1,1,1,
     380     .                                         1                                         
    363381#endif
    364382     .                                         /)
    … …  
    374392#ifdef INCA_AER
    375393      integer la
     394      character*20 form
    376395#endif
    377396c
Note: See TracChangeset for help on using the changeset viewer.