Ignore:
Timestamp:
Feb 21, 2006, 9:08:30 AM (19 years ago)
Author:
lmdzadmin
Message:

Rajout variable prt_flag_ts pour limiter sorties INCA - AC MAF

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r677 r679  
    346346      INTEGER           :: ncsec
    347347
     348      INTEGER           :: prt_flag_ts(nbtr)=(/
     349#ifdef INCA_CH4
     350     .                                         1,1,1,0,0,1,1,1,1,1,
     351     .                                         0,1,0,0,0,0,0,1,0,0,
     352     .                                         0,1,1,1,1,0,1,1,1,0,
     353     .                                         1,1,1,1,1,1,1,1,1,1,
     354     .                                         1,0,0
     355#ifdef INCA_AER
     356     .                                        ,1,1,1,1,0,1,1,1,1,0,
     357     .                                         1,1,1,1,1,1,0,1,0,1,
     358     .                                         1,1,1,1,0,1,0,1,1,1
     359#endif
     360#endif
     361#ifdef INCA_NMHC
     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,1,1,1,
     367     .                                         1,1,1,1,1,1,1,1,1,1,
     368     .                                         1,1,1,1,1,1,1,1,1,1,
     369     .                                         1,1,1,1,1,1,1,1,1,1,
     370     .                                         1,1,1,1,1,1,1
     371#ifdef INCA_AER
     372     .                                        ,1,1,1,1,0,1,1,1,1,0,
     373     .                                         1,1,1,1,1,1,0,1,0,1,
     374     .                                         1,1,1,1,0,1,0,1,1,1
     375#endif
     376#endif
     377#if defined(INCA_AER) && !defined(INCA_CH4) && !defined(INCA_NMHC)
     378     .                                         1,1,1,1,1,1,1,1,1,1,
     379     .                                         1,1,1,1,1,1,1,1,1,1,
     380     .                                         1,1,1,1,1,1,1,1,1
     381#endif
     382#if defined(INCA) && !defined(INCA_CH4) && !defined(INCA_NMHC) && !defined(INCA_AER)
     383     .                                         1,1,1,1,1,1,1,1,1,1,
     384     .                                         1                                         
     385#endif
     386
     387     .                                         /)
    348388
    349389
Note: See TracChangeset for help on using the changeset viewer.