Ignore:
Timestamp:
Jun 7, 2007, 12:01:52 PM (17 years ago)
Author:
Laurent Fairhead
Message:

Suite du merge entre la version et la HEAD: quelques modifications
de Yann sur le
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r766 r776  
    2626c
    2727         CALL histdef(nid_tra, "phis", "Surface geop. height", "-",
    28      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     28     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    2929     .                "once",  zsto,zout)
    3030c
    3131         CALL histdef(nid_tra, "aire", "Grid area", "-",
    32      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     32     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    3333     .                "once",  zsto,zout)
    3434         DO it=1,nqmax
    … …  
    3737         iiq=niadv(iq)
    3838         CALL histdef(nid_tra, tnom(iq), ttext(iiq), "U/kga",
    39      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     39     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    4040     .                "ave(X)", zsto,zout)
    4141         if (lessivage) THEN
    4242         CALL histdef(nid_tra, "fl"//tnom(iq),"Flux "//ttext(iiq),
    43      .              "U/m2/s",iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     43     .              "U/m2/s",iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    4444     .              "ave(X)", zsto,zout)
    4545         endif
    … …  
    4848         CALL histdef(nid_tra, "d_tr_th_"//tnom(iq),
    4949     .                "tendance thermique"// ttext(iiq), "?",
    50      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     50     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    5151     .                "ave(X)", zsto,zout)
    5252         CALL histdef(nid_tra, "d_tr_cv_"//tnom(iq),
    5353     .                "tendance convection"// ttext(iiq), "?",
    54      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     54     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    5555     .                "ave(X)", zsto,zout)
    5656         CALL histdef(nid_tra, "d_tr_cl_"//tnom(iq),
    5757     .                "tendance couche limite"// ttext(iiq), "?",
    58      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     58     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    5959     .                "ave(X)", zsto,zout)
    6060c---fin Olivia   
    … …  
    6363
    6464         CALL histdef(nid_tra, "pyu1", "Vent niv 1", "-",
    65      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     65     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    6666     .                "inst(X)",  zout,zout)
    6767
    6868         CALL histdef(nid_tra, "pyv1", "Vent niv 1", "-",
    69      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     69     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    7070     .                "inst(X)",  zout,zout)
    7171         CALL histdef(nid_tra, "psrf1", "nature sol", "-",
    72      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     72     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    7373     .                "inst(X)",  zout,zout)
    7474         CALL histdef(nid_tra, "psrf2", "nature sol", "-",
    75      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     75     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    7676     .                "inst(X)",  zout,zout)
    7777         CALL histdef(nid_tra, "psrf3", "nature sol", "-",
    78      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     78     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    7979     .                "inst(X)",  zout,zout)
    8080         CALL histdef(nid_tra, "psrf4", "nature sol", "-",
    81      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     81     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    8282     .                "inst(X)",  zout,zout)
    8383         CALL histdef(nid_tra, "ftsol1", "temper sol", "-",
    84      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     84     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    8585     .                "inst(X)",  zout,zout)
    8686         CALL histdef(nid_tra, "ftsol2", "temper sol", "-",
    87      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     87     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    8888     .                "inst(X)",  zout,zout)
    8989         CALL histdef(nid_tra, "ftsol3", "temper sol", "-",
    90      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     90     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    9191     .                "inst",  zout,zout)
    9292         CALL histdef(nid_tra, "ftsol4", "temper sol", "-",
    93      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     93     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    9494     .                "inst(X)",  zout,zout)
    9595         CALL histdef(nid_tra, "pplay", "flux u mont","-",
    96      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     96     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    9797     .                "inst(X)", zout,zout)
    9898         CALL histdef(nid_tra, "t", "flux u mont","-",
    99      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     99     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    100100     .                "inst(X)", zout,zout)
    101101         CALL histdef(nid_tra, "mfu", "flux u mont","-",
    102      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     102     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    103103     .                "ave(X)", zsto,zout)
    104104         CALL histdef(nid_tra, "mfd", "flux u decen","-",
    105      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     105     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    106106     .                "ave(X)", zsto,zout)
    107107         CALL histdef(nid_tra, "en_u", "flux u mont","-",
    108      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     108     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    109109     .                "ave(X)", zsto,zout)
    110110         CALL histdef(nid_tra, "en_d", "flux u mont","-",
    111      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     111     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    112112     .                "ave(X)", zsto,zout)
    113113         CALL histdef(nid_tra, "de_d", "flux u mont","-",
    114      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     114     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    115115     .                "ave(X)", zsto,zout)
    116116         CALL histdef(nid_tra, "de_u", "flux u decen","-",
    117      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     117     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    118118     .                "ave(X)", zsto,zout)
    119119         CALL histdef(nid_tra, "coefh", "turbulent coef","-",
    120      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     120     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    121121     .                "ave(X)", zsto,zout)
    122122
Note: See TracChangeset for help on using the changeset viewer.