Changeset 635


Ignore:
Timestamp:
May 13, 2005, 2:03:53 PM (20 years ago)
Author:
lmdzadmin
Message:

Rajout d'une clef CPP INCA_AER pour la variable airm : AC
MAF

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

Legend:

Unmodified
Added
Removed

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

    r624 r635  
    8383
    8484! MS info
     85! Ajout Anne
     86#ifdef INCA_AER
    8587         CALL histdef(nid_tra, "airm", "Air mass", "kg",
    8688     .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
    8789     .                "ave(X)", zsto,zout)
     90#endif
     91! Fin ajout Anne
    8892
    8993#ifdef INCA

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

    r624 r635  
    5353
    5454! Ajout Anne
    55 !#ifdef INCA_AER
     55#ifdef INCA_AER
    5656      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,airm, zx_tmp_3d)
    5757      CALL histwrite(nid_tra,"airm",itau_w,zx_tmp_3d,
    5858     .                                   iim*(jjm+1)*klev,ndex)
    59 !#endif
    60 
     59#endif
    6160! Fin ajout Anne
    6261
Note: See TracChangeset for help on using the changeset viewer.