Ignore:
Timestamp:
Apr 13, 2005, 10:58:34 AM (20 years ago)
Author:
lmdzadmin
Message:

Mise a jour pour INCA.2.0 Anne C
MAFi+LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/phytrac.F

    r593 r616  
    4848     I                    prfl,
    4949     I                    psfl,
    50 #ifdef INCA_CH4
     50#ifdef INCA
    5151     I                    flxmass_w,
    5252#endif
    … …  
    6666#ifdef INCA_AER
    6767      USE AEROSOL_MOD, only : ntr,trmx,trnx
    68       USE AEROSOL_DIAG, only : cla,las,tausum,angst,aload,scon
    69      .                            ,scavcoef_st,scavcoef_cv
    70       USE AEROSOL_PROGNOS, ONLY : md
     68      USE AEROSOL_DIAG,only : cla,las,tausum,angst,aload,cload,totaerh2o,tau,
     69     $  emiss20,sconc,scavcoef_st,scavcoef_cv
     70     $  ,cload05ss  ,cload05bc  ,cload05pom  ,cload05dust  ,cload05so4
     71     $  ,cload125ss  ,cload125bc  ,cload125pom  ,cload125dust  ,cload125so4
     72      USE AEROSOL_PROGNOS, ONLY : md,mdw
     73      USE AEROSOL_METEO, only : airm
     74#endif
     75#ifdef INCA_NMHC
     76      USE RESISTANCE_DIAGNOSE, ONLY : surf_alb, sol_irrad, surf_temp, surf_wind,
     77     $                                aero_resist, lamin_resist, surf_resist
    7178#endif
    7279#endif
    … …  
    136143      REAL prfl(klon,klev+1),   psfl(klon,klev+1)     !--lessivage large-scale
    137144
    138 #ifdef INCA_CH4
     145#ifdef INCA
    139146      REAL flxmass_w(klon,klev)
    140147#endif
    … …  
    315322
    316323#ifdef INCA
     324      INTEGER           :: lastgas
    317325      INTEGER           :: ncsec
     326
     327      INTEGER           :: prt_flag_ts(nbtr)=(/1,1,1
    318328#ifdef INCA_CH4
    319 #ifdef  INCA_AER
    320       INTEGER           :: prt_flag_ts(51)=(/1,1,1
    321 #else
    322       INTEGER           :: prt_flag_ts(43)=(/1,1,1
    323 #endif
    324 #else
    325 #ifdef INCA_AER
    326       INTEGER           :: prt_flag_ts(11)=(/1,1,1
    327 #endif
    328 #endif
    329 
    330 #ifdef INCA_CH4
    331      .                                              ,1,0,1,1,0,1,0,
    332      .                                         0,0,0,0,0,0,0,1,0,0,
     329     .                                              ,0,0,1,1,1,1,1,
     330     .                                         0,1,0,0,0,0,0,1,0,0,
    333331     .                                         0,1,1,1,1,0,1,1,1,0,
    334332     .                                         1,1,1,1,1,1,1,1,1,1,
    335333     .                                         1,0,0
    336 #endif
    337334#ifdef INCA_AER
    338      .                                              ,1,1,1,1,1,1,1,1
     335     .                                         ,1,1,1,1,0,1,1,1
     336#endif
     337#endif
     338#ifdef INCA_AER
     339c aerosol tracers
     340     .                                        ,1,0,1,1,1,1,1,1,0,1,
     341     .                                         0,1,1,1,1,1,0,1,0,1,1,1
     342#endif
     343#ifdef INCA_NMHC
     344     .                                                 , 1, 1, 1, 1, 1, 1, 1,
     345     .                                          1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
     346     .                                          1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
     347     .                                          1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
     348     .                                          1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
     349     .                                          1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
     350     .                                          1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
     351     .                                          1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
     352     .                                          1, 1, 1, 1, 1, 1, 1
    339353#endif
    340354     .                                         /)
    … …  
    444458
    445459#ifdef INCA_AER
     460
     461! Changement Anne 01/04/2005
    446462        CALL aerosolmain (tr_seri,
    447463     $                 pdtphys,
    448464     $                 pplay,
     465     $                 pdel,
    449466     $                 prfl,
    450467     $                 pmflxr,
    … …  
    455472     $                 ibas_con,
    456473     $                 pphi,
    457      $                 airephy,
    458      $                 nstep)
     474     $                 airephy, ! paire,
     475     $                 nstep,
     476     $                 rneb,         ! for chimiaq
     477     $                 t_seri,       ! for chimiaq
     478     $                 rh)
     479! fin changement anne
     480
    459481#endif
    460482
    … …  
    470492     $                 pplay,      !pmid
    471493     $                 pdel,       !pdel
     494     $                 airephy,
    472495     $                 pctsrf(1,1),!oro
    473496     $                 ftsol,      !tsurf
Note: See TracChangeset for help on using the changeset viewer.