Changeset 679


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

Location:
LMDZ4/trunk/libf/phylmd
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/ini_histrac.h

    r673 r679  
    203203C champ 2D
    204204#ifdef INCA
    205 
     205         IF ( prt_flag_ts(it) == 0 ) CYCLE
    206206         CALL histdef(nid_tra, "Emi_"//solsym(it), "Emi_"//solsym(it),
    207207     .           "kg/m2/s", iim,jjm+1,nhori, 1,1,1, -99, 32,

  • 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

  • LMDZ4/trunk/libf/phylmd/write_histrac.h

    r673 r679  
    219219C champs 2D
    220220#ifdef INCA
     221      IF ( prt_flag_ts(it) == 0 ) CYCLE
    221222
    222223      CALL gr_fi_ecrit(1, klon,iim,jjm+1, eflux(1,it),zx_tmp_2d)
Note: See TracChangeset for help on using the changeset viewer.