Ignore:
Timestamp:
Oct 18, 2004, 5:42:20 PM (20 years ago)
Author:
lmdzadmin
Message:

Rajout de declarations de tendances par O.Coindreau
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/phylmd/ini_histrac.h

    r524 r549  
    224224     .              "ave(X)", zsto,zout)
    225225         endif
    226 #endif
    227          ENDDO
     226
     227c---Ajout Olivia
     228         CALL histdef(nid_tra, "d_tr_th_"//tnom(iq),
     229     .                "tendance thermique"// ttext(iiq), "?",
     230     .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     231     .                "ave(X)", zsto,zout)
     232         CALL histdef(nid_tra, "d_tr_cv_"//tnom(iq),
     233     .                "tendance convection"// ttext(iiq), "?",
     234     .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     235     .                "ave(X)", zsto,zout)
     236         CALL histdef(nid_tra, "d_tr_cl_"//tnom(iq),
     237     .                "tendance couche limite"// ttext(iiq), "?",
     238     .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     239     .                "ave(X)", zsto,zout)
     240c---fin Olivia   
     241
     242#endif
     243         ENDDO
     244
    228245#ifdef INCA
    229246#ifdef INCA_CH4
Note: See TracChangeset for help on using the changeset viewer.