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_histmth.h

    r766 r776  
    4040         CALL histdef(nid_mth, "phis",
    4141     .                "Surface geop. height", "m2/s2",
    42      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     42     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    4343     .                "once",  zstophy,zout)
    4444c
    4545         CALL histdef(nid_mth, "aire", "Grid area", "-",
    46      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     46     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    4747     .                "once",  zstophy,zout)
    4848c
    4949         CALL histdef(nid_mth, "pourc_"//clnsurf(is_ter),
    5050     .         "% "//clnsurf(is_ter), "%", 
    51      .         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     51     .         iim,jj_nb,nhori, 1,1,1, -99, 32,
    5252     .         "once", zstophy,zout)
    5353c
    5454         CALL histdef(nid_mth, "fract_"//clnsurf(is_ter),
    5555     .         "Fraction "//clnsurf(is_ter), "1", 
    56      .         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     56     .         iim,jj_nb,nhori, 1,1,1, -99, 32,
    5757     .         "once", zstophy,zout)
    5858c
    … …  
    6060c
    6161         CALL histdef(nid_mth, "slp", "Sea Level Pressure", "Pa",
    62      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     62     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    6363     .                "ave(X)", zstophy,zout)
    6464c
    6565         CALL histdef(nid_mth, "tsol", "Surface Temperature", "K",
    66      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     66     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    6767     .                "ave(X)", zstophy,zout)
    6868c
    6969         CALL histdef(nid_mth, "t2m", "Temperature 2m", "K",
    70      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     70     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    7171     .                "ave(X)", zstophy,zout)
    7272c
    … …  
    7474         CALL histdef(nid_mth, "t2m_min", "Temp. 2m min.",
    7575     .                "K",
    76      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     76     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    7777     .                t2mincels, zstophy,zout)
    7878c
    7979         CALL histdef(nid_mth, "t2m_max", "Temp. 2m max.",
    8080     .                "K",
    81      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     81     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    8282     .                t2maxcels, zstophy,zout)
    8383c
    8484c        CALL histdef(nid_mth, "tsoil", "Sfce soil Temperature",
    8585c    .                "K",
    86 c    .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     86c    .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    8787c    .                "ave(X)", zstophy,zout)
    8888c
    8989         CALL histdef(nid_mth, "wind10m","10-m wind speed","m/s",
    90      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     90     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    9191     .                "ave(X)", zstophy,zout)
    9292c
    9393         CALL histdef(nid_mth, "sicf", "Sea-ice fraction", "-",
    94      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     94     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    9595     .                "ave(X)", zstophy,zout)
    9696c
    9797c ENSEMBLES END
    9898         CALL histdef(nid_mth, "q2m", "Specific humidity 2m", "kg/kg",
    99      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     99     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    100100     .                "ave(X)", zstophy,zout)
    101101c
    102102         CALL histdef(nid_mth, "u10m", "Vent zonal 10m", "m/s",
    103      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     103     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    104104     .                "ave(X)", zstophy,zout)
    105105c
    106106         CALL histdef(nid_mth, "v10m", "Vent meridien 10m", "m/s",
    107      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     107     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    108108     .                "ave(X)", zstophy,zout)
    109109c
    110110         CALL histdef(nid_mth, "psol", "Surface Pressure", "Pa",
    111      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     111     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    112112     .                "ave(X)", zstophy,zout)
    113113c
    114114         CALL histdef(nid_mth, "qsurf", "Surface Air humidity", "kg/kg",
    115      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     115     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    116116     .                "ave(X)", zstophy,zout)
    117117c
    118118      if (.not. ok_veget) then
    119119         CALL histdef(nid_mth, "qsol", "Soil watter content", "mm",
    120      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     120     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    121121     .                "ave(X)", zstophy,zout)
    122122      endif
    … …  
    124124         CALL histdef(nid_mth, "ndayrain",
    125125     .                "Number of day with rain (liq+sol)", "-",
    126      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     126     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    127127     .                "inst(X)", zstomth,zout)
    128128c
    129129         CALL histdef(nid_mth, "precip", "Precipitation Totale liq+sol",
    130130     .                "kg/(s*m2)",
    131      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     131     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    132132     .                "ave(X)", zstophy,zout)
    133133c
    134134         CALL histdef(nid_mth, "plul", "Large-scale Precip.",
    135135     .   "kg/(s*m2)",
    136      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     136     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    137137     .                "ave(X)", zstophy,zout)
    138138c
    139139         CALL histdef(nid_mth, "pluc", "Convective Precip.",
    140140     .   "kg/(s*m2)",
    141      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     141     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    142142     .                "ave(X)", zstophy,zout)
    143143c
    144144         CALL histdef(nid_mth, "snow", "Snow fall", "kg/(s*m2)",
    145      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     145     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    146146     .                "ave(X)", zstophy,zout)
    147147c
    148148c        CALL histdef(nid_mth, "snow_mass", "Snow Mass", "kg/m2",
    149 c    .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     149c    .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    150150c    .                "ave(X)", zstophy,zout)
    151151c
    152152         CALL histdef(nid_mth, "evap", "Evaporation", "kg/(s*m2)",
    153      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     153     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    154154     .                "ave(X)", zstophy,zout)
    155155c
    156156         CALL histdef(nid_mth, "tops", "Solar rad. at TOA", "W/m2",
    157      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     157     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    158158     .                "ave(X)", zstophy,zout)
    159159c
    160160         CALL histdef(nid_mth, "tops0", "CS Solar rad. at TOA", "W/m2",
    161      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     161     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    162162     .                "ave(X)", zstophy,zout)
    163163c
    164164         CALL histdef(nid_mth, "topl", "IR rad. at TOA", "W/m2",
    165      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     165     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    166166     .                "ave(X)", zstophy,zout)
    167167c
    168168         CALL histdef(nid_mth, "topl0", "IR rad. at TOA", "W/m2",
    169      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     169     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    170170     .                "ave(X)", zstophy,zout)
    171171c
    172172         CALL histdef(nid_mth, "SWupTOA", "SWup at TOA","W/m2",
    173      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     173     .                iim,jj_nb,nhori, 1,1,1,-99,
    174174     .                32, "ave(X)", zstophy,zout)
    175175c
    176176         CALL histdef(nid_mth, "SWupTOAclr",
    177177     .                "SWup clear sky at TOA","W/m2",
    178      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     178     .                iim,jj_nb,nhori, 1,1,1,-99,
    179179     .                32, "ave(X)", zstophy,zout)
    180180c
    181181         CALL histdef(nid_mth, "SWdnTOA", "SWdn at TOA","W/m2",
    182      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     182     .                iim,jj_nb,nhori, 1,1,1,-99,
    183183     .                32, "ave(X)", zstophy,zout)
    184184c
    185185         CALL histdef(nid_mth, "SWdnTOAclr",
    186186     .                "SWdn clear sky at TOA","W/m2",
    187      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     187     .                iim,jj_nb,nhori, 1,1,1,-99,
    188188     .                32, "ave(X)", zstophy,zout)
    189189c
    190190         CALL histdef(nid_mth, "SWup200", "SWup at 200mb","W/m2",
    191      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     191     .                iim,jj_nb,nhori, 1,1,1,-99,
    192192     .                32, "ave(X)", zstophy,zout)
    193193c
    194194         CALL histdef(nid_mth, "SWup200clr",
    195195     .                "SWup clear sky at 200mb","W/m2",
    196      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     196     .                iim,jj_nb,nhori, 1,1,1,-99,
    197197     .                32, "ave(X)", zstophy,zout)
    198198c
    199199         CALL histdef(nid_mth, "SWdn200", "SWdn at 200mb","W/m2",
    200      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     200     .                iim,jj_nb,nhori, 1,1,1,-99,
    201201     .                32, "ave(X)", zstophy,zout)
    202202c
    203203         CALL histdef(nid_mth, "SWdn200clr",
    204204     .                "SWdn clear sky at 200mb","W/m2",
    205      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     205     .                iim,jj_nb,nhori, 1,1,1,-99,
    206206     .                32, "ave(X)", zstophy,zout)
    207207c
    208208         CALL histdef(nid_mth, "LWup200", "LWup at 200mb","W/m2",
    209      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     209     .                iim,jj_nb,nhori, 1,1,1,-99,
    210210     .                32, "ave(X)", zstophy,zout)
    211211c
    212212         CALL histdef(nid_mth, "LWup200clr",
    213213     .                "LWup clear sky at 200mb","W/m2",
    214      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     214     .                iim,jj_nb,nhori, 1,1,1,-99,
    215215     .                32, "ave(X)", zstophy,zout)
    216216c
    217217         CALL histdef(nid_mth, "LWdn200", "LWdn at 200mb","W/m2",
    218      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     218     .                iim,jj_nb,nhori, 1,1,1,-99,
    219219     .                32, "ave(X)", zstophy,zout)
    220220c
    221221         CALL histdef(nid_mth, "LWdn200clr",
    222222     .                "LWdn clear sky at 200mb","W/m2",
    223      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     223     .                iim,jj_nb,nhori, 1,1,1,-99,
    224224     .                32, "ave(X)", zstophy,zout)
    225225c
    226226         CALL histdef(nid_mth, "sols", "Solar rad. at surf.", "W/m2",
    227      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     227     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    228228     .                "ave(X)", zstophy,zout)
    229229c
    230230         CALL histdef(nid_mth, "sols0", "Solar rad. at surf.", "W/m2",
    231      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     231     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    232232     .                "ave(X)", zstophy,zout)
    233233c
    234234         CALL histdef(nid_mth, "soll", "IR rad. at surface", "W/m2",
    235      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     235     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    236236     .                "ave(X)", zstophy,zout)
    237237c
    238238         CALL histdef(nid_mth, "radsol", "Rayonnement au sol", "W/m2",
    239      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     239     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    240240     .                "ave(X)", zstophy,zout)
    241241c
    242242         CALL histdef(nid_mth, "soll0", "IR rad. at surface", "W/m2",
    243      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     243     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    244244     .                "ave(X)", zstophy,zout)
    245245c
    246246         CALL histdef(nid_mth, "SWupSFC", "SWup at surface","W/m2",
    247      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     247     .                iim,jj_nb,nhori, 1,1,1,-99,
    248248     .                32, "ave(X)", zstophy,zout)
    249249c
    250250         CALL histdef(nid_mth, "SWupSFCclr",
    251251     .                "SWup clear sky at surface","W/m2",
    252      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     252     .                iim,jj_nb,nhori, 1,1,1,-99,
    253253     .                32, "ave(X)", zstophy,zout)
    254254c
    255255         CALL histdef(nid_mth, "SWdnSFC", "SWdn at surface","W/m2",
    256      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     256     .                iim,jj_nb,nhori, 1,1,1,-99,
    257257     .                32, "ave(X)", zstophy,zout)
    258258c
    259259         CALL histdef(nid_mth, "SWdnSFCclr",
    260260     .                "SWdn clear sky at surface","W/m2",
    261      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     261     .                iim,jj_nb,nhori, 1,1,1,-99,
    262262     .                32, "ave(X)", zstophy,zout)
    263263c
    264264         CALL histdef(nid_mth,"LWupSFC","Upwd. IR rad. at surface",
    265      .                "W/m2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     265     .                "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32,
    266266     .                "ave(X)", zstophy,zout)
    267267c
    268268         CALL histdef(nid_mth,"LWdnSFC","Down. IR rad. at surface",
    269      .                "W/m2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     269     .                "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32,
    270270     .                "ave(X)", zstophy,zout)
    271271c
    272272         CALL histdef(nid_mth,"LWupSFCclr",
    273273     .                "CS Upwd. IR rad. at surface",
    274      .                "W/m2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     274     .                "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32,
    275275     .                "ave(X)", zstophy,zout)
    276276c
    277277         CALL histdef(nid_mth,"LWdnSFCclr",
    278278     .                "Down. CS IR rad. at surface",
    279      .                "W/m2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     279     .                "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32,
    280280     .                "ave(X)", zstophy,zout)
    281281c
    282282         CALL histdef(nid_mth, "bils", "Surf. total heat flux", "W/m2",
    283      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     283     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    284284     .                "ave(X)", zstophy,zout)
    285285c
    … …  
    289289c
    290290         CALL histdef(nid_mth, "fder", "Heat flux derivation", "W/m2",
    291      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     291     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    292292     .                "ave(X)", zstophy,zout)
    293293c
    294294c          CALL histdef(nid_mth, "frtu", "Zonal wind stress", "Pa",
    295 c    .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     295c    .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    296296c    .                "ave(X)", zstophy,zout)
    297297c
    298298c        CALL histdef(nid_mth, "frtv", "Meridional wind stress", "Pa",
    299 c    .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     299c    .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    300300c    .                "ave(X)", zstophy,zout)
    301301c
    302302         CALL histdef(nid_mth, "ffonte","Thermal flux for snow melting",
    303      .                "W/m2",iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     303     .                "W/m2",iim,jj_nb,nhori, 1,1,1, -99, 32,
    304304     .                "ave(X)", zstophy,zout)
    305305c
    306306         CALL histdef(nid_mth, "fqcalving","Ice Calving",
    307      .                "kg/m2/s",iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     307     .                "kg/m2/s",iim,jj_nb,nhori, 1,1,1, -99, 32,
    308308     .                "ave(X)", zstophy,zout)
    309309c
    310310         CALL histdef(nid_mth, "fqfonte","Land ice melt",
    311      .                "kg/m2/s",iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     311     .                "kg/m2/s",iim,jj_nb,nhori, 1,1,1, -99, 32,
    312312     .                "ave(X)", zsto,zout)
    313313
    … …  
    315315           call histdef(nid_mth, "taux_"//clnsurf(nsrf),
    316316     $         "Zonal wind stress"//clnsurf(nsrf), "Pa", 
    317      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     317     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    318318     $         "ave(X)", zstophy,zout)
    319319
    320320           call histdef(nid_mth, "tauy_"//clnsurf(nsrf),
    321321     $         "Meridional wind stress "//clnsurf(nsrf), "Pa", 
    322      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     322     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    323323     $         "ave(X)", zstophy,zout)
    324324         ENDDO
    … …  
    329329           call histdef(nid_mth, "pourc_"//clnsurf(nsrf),
    330330     $         "% "//clnsurf(nsrf), "%", 
    331      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     331     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    332332     $         "ave(X)", zstophy,zout)
    333333c
    334334           call histdef(nid_mth, "fract_"//clnsurf(nsrf),
    335335     $         "Fraction "//clnsurf(nsrf), "1", 
    336      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     336     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    337337     $         "ave(X)", zstophy,zout)
    338338          ENDIF !nsrf.GT.2
    … …  
    340340           call histdef(nid_mth, "tsol_"//clnsurf(nsrf),
    341341     $         "Temperature "//clnsurf(nsrf), "K", 
    342      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     342     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    343343     $         "ave(X)", zstophy,zout)
    344344C
    345345           call histdef(nid_mth, "sens_"//clnsurf(nsrf),
    346346     $         "Sensible heat flux "//clnsurf(nsrf), "W/m2", 
    347      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     347     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    348348     $         "ave(X)", zstophy,zout)
    349349c
    350350           call histdef(nid_mth, "lat_"//clnsurf(nsrf),
    351351     $         "Latent heat flux "//clnsurf(nsrf), "W/m2", 
    352      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     352     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    353353     $         "ave(X)", zstophy,zout)
    354354C
    355355           call histdef(nid_mth, "flw_"//clnsurf(nsrf),
    356356     $         "LW "//clnsurf(nsrf), "W/m2",
    357      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     357     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    358358     $         "ave(X)", zstophy,zout)
    359359c
    360360           call histdef(nid_mth, "fsw_"//clnsurf(nsrf),
    361361     $         "SW "//clnsurf(nsrf), "W/m2",
    362      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     362     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    363363     $         "ave(X)", zstophy,zout)
    364364C
    365365           call histdef(nid_mth, "wbils_"//clnsurf(nsrf),
    366366     $         "Bilan sol "//clnsurf(nsrf), "W/m2",
    367      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     367     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    368368     $         "ave(X)", zstophy,zout)
    369369C
    370370           call histdef(nid_mth, "wbilo_"//clnsurf(nsrf),
    371371     $         "Bilan eau "//clnsurf(nsrf), "kg/(m2*s)",
    372      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     372     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    373373     $         "ave(X)", zstophy,zout)
    374374C
    … …  
    378378           call histdef(nid_mth, "evapour_"//clnsurf(nsrf),
    379379     $         "Evap*pourc "//clnsurf(nsrf), "kg/(s*m2)",
    380      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     380     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    381381     $         "ave(X)", zstophy,zout)
    382382C
    383383           call histdef(nid_mth, "prepour_"//clnsurf(nsrf),
    384384     $         "Precip*pourc "//clnsurf(nsrf), "kg/(s*m2)",
    385      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     385     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    386386     $         "ave(X)", zstophy,zout)
    387387C
    … …  
    392392c
    393393         CALL histdef(nid_mth, "cdrm", "Momentum drag coef.", "-",
    394      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     394     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    395395     .                "ave(X)", zstophy,zout)
    396396c
    397397         CALL histdef(nid_mth, "cdrh", "Heat drag coef.", "-",
    398      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     398     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    399399     .                "ave(X)", zstophy,zout)
    400400c
    401401         CALL histdef(nid_mth, "cldl", "Low-level cloudiness", "-",
    402      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     402     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    403403     .                "ave(X)", zstophy,zout)
    404404c
    405405         CALL histdef(nid_mth, "cldm", "Mid-level cloudiness", "-",
    406      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     406     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    407407     .                "ave(X)", zstophy,zout)
    408408c
    409409         CALL histdef(nid_mth, "cldh", "High-level cloudiness", "-",
    410      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     410     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    411411     .                "ave(X)", zstophy,zout)
    412412c
    413413         CALL histdef(nid_mth, "cldt", "Total cloudiness", "-",
    414      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     414     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    415415     .                "ave(X)", zstophy,zout)
    416416c
    417417         CALL histdef(nid_mth,"cldq","Cloud liquid water path","kg/m2",
    418      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     418     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    419419     .                "ave(X)", zstophy,zout)
    420420c
    421421         CALL histdef(nid_mth,"lwp","Cloud water path","kg/m2",
    422      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     422     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    423423     .                "ave(X)", zstophy,zout)
    424424c
    425425         CALL histdef(nid_mth,"iwp","Cloud ice water path","kg/m2",
    426      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     426     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    427427     .                "ave(X)", zstophy,zout)
    428428c
    429429         CALL histdef(nid_mth, "ue", "Zonal energy transport", "-",
    430      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     430     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    431431     .                "ave(X)", zstophy,zout)
    432432c
    433433         CALL histdef(nid_mth, "ve", "Merid energy transport", "-",
    434      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     434     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    435435     .                "ave(X)", zstophy,zout)
    436436c
    437437         CALL histdef(nid_mth, "uq", "Zonal humidity transport", "-",
    438      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     438     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    439439     .                "ave(X)", zstophy,zout)
    440440c
    441441         CALL histdef(nid_mth, "vq", "Merid humidity transport", "-",
    442      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     442     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    443443     .                "ave(X)", zstophy,zout)
    444444cKE43
    … …  
    446446c
    447447         CALL histdef(nid_mth, "cape", "Conv avlbl pot ener", "J/kg",
    448      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     448     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    449449     .                "ave(X)", zstophy,zout)
    450450c
    451451         CALL histdef(nid_mth, "pbase", "Cld base pressure", "mb",
    452      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     452     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    453453     .                "ave(X)", zstophy,zout)
    454454c
    455455         CALL histdef(nid_mth, "ptop", "Cld top pressure", "mb",
    456      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     456     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    457457     .                "ave(X)", zstophy,zout)
    458458c
    459459         CALL histdef(nid_mth, "fbase", "Cld base mass flux", "kg/m2/s",
    460      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     460     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    461461     .                "ave(X)", zstophy,zout)
    462462c
    463463         CALL histdef(nid_mth, "prw", "Precipitable water", "kg/m2",
    464      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     464     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    465465     .                "ave(X)", zstophy,zout)
    466466c
    … …  
    471471c HBTM2
    472472         CALL histdef(nid_mth, "s_pblh", "Boundary Layer Height", "m",
    473      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     473     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    474474     .                "ave(X)", zstophy,zout)
    475475         CALL histdef(nid_mth, "s_pblt", "t at Boundary Layer Height",
    476476     .                "K",
    477      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     477     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    478478     .                "ave(X)", zstophy,zout)
    479479         CALL histdef(nid_mth, "s_lcl", "Condensation level", "m",
    480      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     480     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    481481     .                "ave(X)", zstophy,zout)
    482482         CALL histdef(nid_mth, "s_capCL", "Conv avlbl pot ener
    483483     .                for ABL", "J/m2",
    484      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     484     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    485485     .                "ave(X)", zstophy,zout)
    486486         CALL histdef(nid_mth, "s_oliqCL", "Liq Water in BL", "kg/m2",
    487      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     487     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    488488     .                "ave(X)", zstophy,zout)
    489489         CALL histdef(nid_mth, "s_cteiCL", "Instability criteria
    490490     .                (ABL)", "K",
    491      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     491     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    492492     .                "ave(X)", zstophy,zout)
    493493         CALL histdef(nid_mth, "s_therm", "Exces du thermique", "K",
    494      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     494     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    495495     .                "ave(X)", zstophy,zout)
    496496         CALL histdef(nid_mth, "s_trmb1", "deep_cape(HBTM2)", "J/m2",
    497      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     497     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    498498     .                "ave(X)", zstophy,zout)
    499499         CALL histdef(nid_mth, "s_trmb2", "inhibition (HBTM2)", "J/m2",
    500      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     500     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    501501     .                "ave(X)", zstophy,zout)
    502502         CALL histdef(nid_mth, "s_trmb3", "Point Omega (HBTM2)", "m",
    503      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     503     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    504504     .                "ave(X)", zstophy,zout)
    505505c
    … …  
    523523          CALL histdef(nid_mth, "u"//bb2,
    524524     .                 "Zonal wind "//bb2//"mb","m/s",
    525      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     525     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    526526     .                "inst(X)", zout,zout)
    527527c
    528528          CALL histdef(nid_mth, "v"//bb2,
    529529     .                 "Meridional wind "//bb2//"mb","m/s",
    530      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     530     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    531531     .                "inst(X)", zout,zout)
    532532c
    533533          CALL histdef(nid_mth, "w"//bb2,
    534534     .                 "Vertical wind "//bb2//"mb","m/s",
    535      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     535     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    536536     .                "inst(X)", zout,zout)
    537537c
    538538          CALL histdef(nid_mth, "phi"//bb2,
    539539     .                 "Geopotential "//bb2//"mb","m",
    540      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     540     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    541541     .                "inst(X)", zout,zout)
    542542c
    … …  
    549549       CALL histdef(nid_mth, "fluxo",
    550550     .              "Flux turbulents ocean-atmosphere", "W/m2",
    551      .              iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     551     .              iim,jj_nb,nhori, 1,1,1, -99, 32,
    552552     .              "ave(X)", zstophy,zout)
    553553c
    554554       CALL histdef(nid_mth, "fluxg",
    555555     .              "Flux turbulents ocean-glace de mer","W/m2",
    556      .              iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     556     .              iim,jj_nb,nhori, 1,1,1, -99, 32,
    557557     .              "ave(X)", zstophy,zout)
    558558c
    559559       CALL histdef(nid_mth, "t_oce_sic",
    560560     .              "Temp. mixte oce-sic","K",
    561      .              iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     561     .              iim,jj_nb,nhori, 1,1,1, -99, 32,
    562562     .              "ave(X)", zstophy,zout)
    563563c
    … …  
    566566        CALL histdef(nid_mth, "lmt_bils",
    567567     .       "Bilan au sol atmosphere forcee", "W/m2",
    568      .              iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     568     .              iim,jj_nb,nhori, 1,1,1, -99, 32,
    569569     .              "ave(X)", zstophy,zout)
    570570c
    … …  
    573573        CALL histdef(nid_mth, "slab_bils",
    574574     .       "Bilan au sol Slab", "W/m2",
    575      .              iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     575     .              iim,jj_nb,nhori, 1,1,1, -99, 32,
    576576     .              "ave(X)", zstophy,zout)
    577577c
    578578        CALL histdef(nid_mth, "tslab", "Slab SST ", "K",
    579      .              iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     579     .              iim,jj_nb,nhori, 1,1,1, -99, 32,
    580580     .              "ave(X)", zstophy,zout)
    581581c
    582582        CALL histdef(nid_mth, "seaice", "Slab seaice", "kg/m2",
    583      .              iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     583     .              iim,jj_nb,nhori, 1,1,1, -99, 32,
    584584     .              "ave(X)", zstophy,zout)
    585585c
    586586        CALL histdef(nid_mth, "siceh", "Slab seaice height", "m",
    587      .              iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     587     .              iim,jj_nb,nhori, 1,1,1, -99, 32,
    588588     .              "ave(X)", zstophy,zout)
    589589c
    … …  
    599599         CALL histdef(nid_mth,"lwcon","Cloud liquid water content",
    600600     .                "kg/kg",
    601      .                iim,jjphy_nb,nhori, klev,1,klev, nvert, 32,
     601     .                iim,jj_nb,nhori, klev,1,klev, nvert, 32,
    602602     .                "ave(X)", zstophy,zout)
    603603c
    604604         CALL histdef(nid_mth,"iwcon","Cloud ice water content","kg/kg",
    605      .                iim,jjphy_nb,nhori, klev,1,klev, nvert, 32,
     605     .                iim,jj_nb,nhori, klev,1,klev, nvert, 32,
    606606     .                "ave(X)", zstophy,zout)
    607607c
    608608         CALL histdef(nid_mth, "temp", "Air temperature", "K",
    609      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     609     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    610610     .                "ave(X)", zstophy,zout)
    611611c
    612612         CALL histdef(nid_mth, "ovap", "Specific humidity", "kg/kg",
    613      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     613     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    614614     .                "ave(X)", zstophy,zout)
    615615c
    616616c        CALL histdef(nid_mth,"wvap","Water vapor mixing ratio","kg/kg",
    617 c    .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     617c    .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    618618c    .                "ave(X)", zstophy,zout)
    619619c
    620620         CALL histdef(nid_mth, "geop", "Geopotential height", "m2/s2",
    621      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     621     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    622622     .                "ave(X)", zstophy,zout)
    623623c
    624624         CALL histdef(nid_mth, "vitu", "Zonal wind", "m/s",
    625      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     625     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    626626     .                "ave(X)", zstophy,zout)
    627627c
    628628         CALL histdef(nid_mth, "vitv", "Meridional wind", "m/s",
    629      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     629     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    630630     .                "ave(X)", zstophy,zout)
    631631c
    632632         CALL histdef(nid_mth, "vitw", "Vertical wind", "m/s",
    633      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     633     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    634634     .                "ave(X)", zstophy,zout)
    635635c
    636636         CALL histdef(nid_mth, "pres", "Air pressure", "Pa",
    637      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     637     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    638638     .                "ave(X)", zstophy,zout)
    639639c
    640640        CALL histdef(nid_mth, "rneb", "Cloud fraction", "-",
    641      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     641     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    642642     .                "ave(X)", zstophy,zout)
    643643c
    644644         CALL histdef(nid_mth, "rnebcon", "Convective Cloud Fraction"
    645645     .                , "-",
    646      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     646     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    647647     .                "ave(X)", zstophy,zout)
    648648c
    649649         CALL histdef(nid_mth, "rhum", "Relative humidity", "-",
    650      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     650     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    651651     .                "ave(X)", zstophy,zout)
    652652c
    653653         CALL histdef(nid_mth, "ozone", "Ozone concentration", "ppmv",
    654      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     654     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    655655     .                "ave(X)", zstophy,zout)
    656656c
    657657         CALL histdef(nid_mth, "upwd", "saturated updraft", "kg/m2/s",
    658      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     658     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    659659     .                "ave(X)", zstophy,zout)
    660660c
    661661         CALL histdef(nid_mth, "dtphy", "Physics dT", "K/s",
    662      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     662     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    663663     .                "ave(X)", zstophy,zout)
    664664c
    665665         CALL histdef(nid_mth, "dqphy", "Physics dQ", "(kg/kg)/s",
    666      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     666     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    667667     .                "ave(X)", zstophy,zout)
    668668c
    … …  
    675675           call histdef(nid_mth, "albe_"//clnsurf(nsrf),
    676676     $         "Albedo surf. "//clnsurf(nsrf), "-", 
    677      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     677     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    678678     $         "ave(X)", zstophy,zout)
    679679c
    680680           call histdef(nid_mth, "rugs_"//clnsurf(nsrf),
    681681     $         "Latent heat flux "//clnsurf(nsrf), "W/m2", 
    682      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     682     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    683683     $         "ave(X)", zstophy,zout)
    684684c
    685685         CALL histdef(nid_mth, "ages_"//clnsurf(nsrf), "Snow age","day",
    686      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     686     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    687687     .                "ave(X)", zstophy,zout)
    688688c
    … …  
    690690c
    691691         CALL histdef(nid_mth, "albs", "Surface albedo", "-",
    692      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     692     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    693693     .                "ave(X)", zstophy,zout)
    694694         CALL histdef(nid_mth, "albslw", "Surface albedo LW", "-",
    695      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     695     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    696696     .                "ave(X)", zstophy,zout)
    697697c
    … …  
    703703     .                "Convective Cloud Liquid water content"
    704704     .                , "kg/kg",
    705      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     705     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    706706     .                "ave(X)", zstophy,zout)
    707707c
    708708         CALL histdef(nid_mth,"Ma","undilute adiab updraft","kg/m2/s",
    709      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     709     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    710710     .                "ave(X)", zstophy,zout)
    711711c
    712712         CALL histdef(nid_mth, "dnwd", "saturated downdraft","kg/m2/s",
    713      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     713     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    714714     .                "ave(X)", zstophy,zout)
    715715c
    716716         CALL histdef(nid_mth, "dnwd0", "unsat. downdraft", "kg/m2/s",
    717      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     717     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    718718     .                "ave(X)", zstophy,zout)
    719719c
    720720         CALL histdef(nid_mth, "dtdyn", "Dynamics dT", "K/s",
    721      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     721     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    722722     .                "ave(X)", zstophy,zout)
    723723c
    724724         CALL histdef(nid_mth, "dqdyn", "Dynamics dQ", "(kg/kg)/s",
    725      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     725     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    726726     .                "ave(X)", zstophy,zout)
    727727c
    728728         CALL histdef(nid_mth, "dtcon", "Convection dT", "K/s",
    729      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     729     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    730730     .                "ave(X)", zstophy,zout)
    731731c
    732732c        CALL histdef(nid_mth, "ducon", "Convection du", "m/s2",
    733 c    .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     733c    .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    734734c    .                "ave(X)", zstophy,zout)
    735735c
    736736         CALL histdef(nid_mth, "dqcon", "Convection dQ", "(kg/kg)/s",
    737      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     737     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    738738     .                "ave(X)", zstophy,zout)
    739739c
    740740         CALL histdef(nid_mth, "dtlsc", "Condensation dT", "K/s",
    741      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     741     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    742742     .                "ave(X)", zstophy,zout)
    743743c
    744744         CALL histdef(nid_mth, "dtlschr",
    745      $     "Large-scale condensational heating rate", "K/s",iim,jjphy_nb
     745     $     "Large-scale condensational heating rate", "K/s",iim,jj_nb
    746746     $     ,nhori, klev,1,klev,nvert, 32,"ave(X)", zstophy,zout)
    747747c
    748748         CALL histdef(nid_mth, "dqlsc", "Condensation dQ", "(kg/kg)/s",
    749      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     749     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    750750     .                "ave(X)", zstophy,zout)
    751751c
    752752         CALL histdef(nid_mth, "dtvdf", "Boundary-layer dT", "K/s",
    753      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     753     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    754754     .                "ave(X)", zstophy,zout)
    755755c
    756756         CALL histdef(nid_mth, "dqvdf","Boundary-layer dQ","(kg/kg)/s",
    757      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     757     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    758758     .                "ave(X)", zstophy,zout)
    759759c
    760760         CALL histdef(nid_mth, "dteva", "Reevaporation dT", "K/s",
    761      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     761     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    762762     .                "ave(X)", zstophy,zout)
    763763c
    764764         CALL histdef(nid_mth, "dqeva","Reevaporation dQ","(kg/kg)/s",
    765      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     765     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    766766     .                "ave(X)", zstophy,zout)
    767767
    768768         CALL histdef(nid_mth, "ptconv", "POINTS CONVECTIFS"," ",
    769      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     769     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    770770     .                "ave(X)", zstophy,zout)
    771771
    772772         CALL histdef(nid_mth, "ratqs", "RATQS"," ",
    773      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     773     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    774774     .                "ave(X)", zstophy,zout)
    775775
    776776c
    777777         CALL histdef(nid_mth, "dtajs", "Dry adjust. dT", "K/s",
    778      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     778     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    779779     .                "ave(X)", zstophy,zout)
    780780
    781781         CALL histdef(nid_mth,"dqajs","Dry adjust. dQ","(kg/kg)/s",
    782      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     782     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    783783     .                "ave(X)", zstophy,zout)
    784784c
    785785         CALL histdef(nid_mth, "dtswr", "SW radiation dT", "K/s",
    786      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     786     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    787787     .                "ave(X)", zstophy,zout)
    788788c
    789789         CALL histdef(nid_mth, "dtsw0", "CS SW radiation dT", "K/s",
    790      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     790     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    791791     .                "ave(X)", zstophy,zout)
    792792c
    793793         CALL histdef(nid_mth, "dtlwr", "LW radiation dT", "K/s",
    794      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     794     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    795795     .                "ave(X)", zstophy,zout)
    796796c
    797797         CALL histdef(nid_mth,"dtlw0","CS LW radiation dT","K/s",
    798      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     798     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    799799     .                "ave(X)", zstophy,zout)
    800800c
    801801         CALL histdef(nid_mth, "dtec", "Cinetic dissip dT", "K/s",
    802      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     802     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    803803     .                "ave(X)", zstophy,zout)
    804804c
    805805         CALL histdef(nid_mth, "duvdf", "Boundary-layer dU", "m/s2",
    806      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     806     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    807807     .                "ave(X)", zstophy,zout)
    808808c
    809809         CALL histdef(nid_mth, "dvvdf", "Boundary-layer dV", "m/s2",
    810      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     810     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    811811     .                "ave(X)", zstophy,zout)
    812812c
    813813         IF (ok_orodr) THEN
    814814         CALL histdef(nid_mth, "duoro", "Orography dU", "m/s2",
    815      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     815     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    816816     .                "ave(X)", zstophy,zout)
    817817c
    818818         CALL histdef(nid_mth, "dvoro", "Orography dV", "m/s2",
    819      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     819     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    820820     .                "ave(X)", zstophy,zout)
    821821c
    … …  
    824824         IF (ok_orolf) THEN
    825825         CALL histdef(nid_mth, "dulif", "Orography dU", "m/s2",
    826      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     826     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    827827     .                "ave(X)", zstophy,zout)
    828828c
    829829         CALL histdef(nid_mth, "dvlif", "Orography dV", "m/s2",
    830      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     830     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    831831     .                "ave(X)", zstophy,zout)
    832832         ENDIF
    … …  
    837837         WRITE(str2,'(i2.2)') iq
    838838         CALL histdef(nid_mth, "trac"//str2, "Tracer No."//str2, "-",
    839      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     839     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    840840     .                "ave(X)", zstophy,zout)
    841841         ELSE
    … …  
    853853c
    854854         CALL histdef(nid_mth, "phis", "Surface geop. height", "m",
    855      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     855     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    856856     .                "once",  zstophy,zout)
    857857c
    858858         CALL histdef(nid_mth, "aire", "Grid area", "-",
    859      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     859     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    860860     .                "once",  zstophy,zout)
    861861c
    862862         CALL histdef(nid_mth, "pourc_"//clnsurf(is_ter),
    863863     .         "% "//clnsurf(is_ter), "%", 
    864      .         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     864     .         iim,jj_nb,nhori, 1,1,1, -99, 32,
    865865     .         "once", zstophy,zout)
    866866c
    867867         CALL histdef(nid_mth, "fract_"//clnsurf(is_ter),
    868868     .         "Fraction "//clnsurf(is_ter), "1", 
    869      .         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     869     .         iim,jj_nb,nhori, 1,1,1, -99, 32,
    870870     .         "once", zstophy,zout)
    871871c
    872872         CALL histdef(nid_mth, "pourc_"//clnsurf(is_lic),
    873873     .         "% "//clnsurf(is_lic), "%", 
    874      .         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     874     .         iim,jj_nb,nhori, 1,1,1, -99, 32,
    875875     .         "once", zstophy,zout)
    876876c
    877877         CALL histdef(nid_mth, "fract_"//clnsurf(is_lic),
    878878     .         "Fraction "//clnsurf(is_lic), "1", 
    879      .         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     879     .         iim,jj_nb,nhori, 1,1,1, -99, 32,
    880880     .         "once", zstophy,zout)
    881881c
    882882         CALL histdef(nid_mth, "pourc_"//clnsurf(is_sic),
    883883     .         "% "//clnsurf(is_sic), "%",
    884      .         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     884     .         iim,jj_nb,nhori, 1,1,1, -99, 32,
    885885     .                "ave(X)", zstophy,zout)
    886886c
    887887         CALL histdef(nid_mth, "fract_"//clnsurf(is_sic),
    888888     .         "Fraction "//clnsurf(is_sic), "1",
    889      .         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     889     .         iim,jj_nb,nhori, 1,1,1, -99, 32,
    890890     .                "ave(X)", zstophy,zout)
    891891c
    892892         CALL histdef(nid_mth, "flat", "Latent heat flux", "W/m2",
    893      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     893     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    894894     .                "ave(X)", zstophy,zout)
    895895c
    896896         CALL histdef(nid_mth, "bilTOA",
    897897     .                "Net radiation at TOA", "W/m2",
    898      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     898     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    899899     .                "ave(X)", zstophy,zout)
    900900c
    … …  
    903903c    .                "TOA reflected clear-sky shortwave
    904904c    .                radiation (method 1)", "W/m2",
    905 c    .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     905c    .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    906906c    .                "ave(X)", zstophy,zout)
    907907c
    908908          CALL histdef(nid_mth, "dtdia","dtdia","K/s",
    909      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     909     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    910910     .                "ave(X)", zstophy,zout)
    911911c
    912912          CALL histdef(nid_mth, "dtsw","dtsw","K/s",
    913      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     913     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    914914     .                "ave(X)", zstophy,zout)
    915915c
    916916          CALL histdef(nid_mth, "dtlw","dtlw","K/s",
    917      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     917     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    918918     .                "ave(X)", zstophy,zout)
    919919c
    920920          CALL histdef(nid_mth, "dtcon","dtcon","K/s",
    921      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     921     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    922922     .                "ave(X)", zstophy,zout)
    923923c
    924924          CALL histdef(nid_mth, "dtajs","dtajs","K/s",
    925      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     925     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    926926     .                "ave(X)", zstophy,zout)
    927927c
    928928          CALL histdef(nid_mth, "dtlsc","dtlsc","K/s",
    929      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     929     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    930930     .                "ave(X)", zstophy,zout)
    931931c
    932932          CALL histdef(nid_mth, "dqdia","dqdia","(kg/kg)/s",
    933      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     933     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    934934     .                "ave(X)", zstophy,zout)
    935935c
    936936          CALL histdef(nid_mth, "duoli",
    937937     .         "duoli","m/s2",
    938      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     938     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    939939     .                "ave(X)", zstophy,zout)
    940940c
    941941          CALL histdef(nid_mth, "dvoli",
    942942     .         "dvoli","m/s2",
    943      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     943     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    944944     .                "ave(X)", zstophy,zout)
    945945c
    946946          CALL histdef(nid_mth, "ducon",
    947947     .         "ducon","m/s2",
    948      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     948     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    949949     .                "ave(X)", zstophy,zout)
    950950c
    951951          CALL histdef(nid_mth, "dvcon",
    952952     .         "dvcon","m/s2",
    953      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     953     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    954954     .                "ave(X)", zstophy,zout)
    955955c
    956956          CALL histdef(nid_mth, "dutot",
    957957     .         "dutot","m/s2",
    958      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     958     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    959959     .                "ave(X)", zstophy,zout)
    960960c
    961961          CALL histdef(nid_mth, "dvtot",
    962962     .         "dvtot","m/s2",
    963      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     963     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    964964     .                "ave(X)", zstophy,zout)
    965965c
    966966c         CALL histdef(nid_mth, "cldtrue",
    967967c    .         "TRUE Cloud fraction ","%",
    968 c    .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     968c    .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    969969c    .         "inst(X)", zout,zout)
    970970c
    971971c         CALL histdef(nid_mth, "cldTOA",
    972972c    .         "Cloud amount (satellite view)","%",
    973 c    .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     973c    .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    974974c    .         "ave(X)", zstophy,zout)
    975975c
    976976c         CALL histdef(nid_mth, "cldSFC",
    977977c    .         "Cloud amount (surface view)","%",
    978 c    .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     978c    .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    979979c    .         "ave(X)", zstophy,zout)
    980980c
    981981          CALL histdef(nid_mth, "GWDtaux",
    982982     .         "GWD induced Ewd wind stress","Pa",
    983      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     983     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    984984     .         "ave(X)", zstophy,zout)
    985985c
    986986          CALL histdef(nid_mth, "GWDtauy",
    987987     .         "GWD induced Nwd wind stress","Pa",
    988      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     988     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    989989     .         "ave(X)", zstophy,zout)
    990990c
    … …  
    992992c
    993993         CALL histdef(nid_mth, "slp", "Sea Level Pressure", "Pa",
    994      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     994     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    995995     .                "ave(X)", zstorad,zout)
    996996c
    997997         CALL histdef(nid_mth, "tsol", "Surface Temperature", "K",
    998      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     998     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    999999     .                "ave(X)", zstophy,zout)
    10001000c
    10011001         CALL histdef(nid_mth, "t2m", "Temperature 2m", "K",
    1002      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1002     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    10031003     .                "ave(X)", zstorad,zout)
    10041004c
    10051005         CALL histdef(nid_mth, "t2m_min", "Temp. 2m min.",
    10061006     .                "K",
    1007      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1007     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    10081008     .                t2mincels, zstophy,zout)
    10091009c
    10101010         CALL histdef(nid_mth, "t2m_max", "Temp. 2m max.",
    10111011     .                "K",
    1012      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1012     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    10131013     .                t2maxcels, zstophy,zout)
    10141014c
    10151015c        CALL histdef(nid_mth, "tsoil", "Sfce soil Temperature",
    10161016c    .                "K",
    1017 c    .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1017c    .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    10181018c    .                "ave(X)", zstophy,zout)
    10191019c
    10201020         CALL histdef(nid_mth, "wind10m","10-m wind speed","m/s",
    1021      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1021     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    10221022     .                "ave(X)", zstorad,zout)
    10231023c
    10241024         CALL histdef(nid_mth, "sicf", "Sea-ice fraction", "-",
    1025      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1025     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    10261026     .                "ave(X)", zstophy,zout)
    10271027
    10281028c
    10291029         CALL histdef(nid_mth, "q2m","Specific humidity 2m","kg/kg",
    1030      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1030     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    10311031     .                "ave(X)", zstorad,zout)
    10321032c
    10331033         CALL histdef(nid_mth, "u10m", "Vent zonal 10m", "m/s",
    1034      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1034     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    10351035     .                "ave(X)", zstorad,zout)
    10361036c
    10371037         CALL histdef(nid_mth, "v10m", "Vent meridien 10m", "m/s",
    1038      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1038     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    10391039     .                "ave(X)", zstorad,zout)
    10401040c
    10411041         CALL histdef(nid_mth, "psol", "Surface Pressure", "Pa",
    1042      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1042     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    10431043     .                "ave(X)", zstorad,zout)
    10441044c
    10451045         CALL histdef(nid_mth, "qsurf","Surface Air humidity","kg/kg",
    1046      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1046     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    10471047     .                "ave(X)", zstophy,zout)
    10481048c
    10491049      if (.not. ok_veget) then
    10501050         CALL histdef(nid_mth, "qsol", "Soil watter content", "mm",
    1051      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1051     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    10521052     .                "ave(X)", zstophy,zout)
    10531053      endif
    … …  
    10551055         CALL histdef(nid_mth, "ndayrain",
    10561056     .                "Number of day with rain (liq+sol)", "-",
    1057      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1057     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    10581058     .                "inst(X)", zstomth,zout)
    10591059c
    10601060         CALL histdef(nid_mth, "precip", "Precipitation Totale liq+sol",
    10611061     .                "kg/(s*m2)",
    1062      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1062     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    10631063     .                "ave(X)", zstophy,zout)
    10641064c
    10651065         CALL histdef(nid_mth, "plul", "Large-scale Precip.",
    10661066     .   "kg/(s*m2)",
    1067      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1067     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    10681068     .                "ave(X)", zstophy,zout)
    10691069c
    10701070         CALL histdef(nid_mth, "pluc", "Convective Precip.",
    10711071     .   "kg/(s*m2)",
    1072      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1072     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    10731073     .                "ave(X)", zstophy,zout)
    10741074c
    10751075         CALL histdef(nid_mth, "snowf", "Snow fall", "kg/(s*m2)",
    1076      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1076     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    10771077     .                "ave(X)", zstophy,zout)
    10781078c
    10791079c        CALL histdef(nid_mth, "snow_mass", "Snow Mass", "kg/m2",
    1080 c    .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1080c    .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    10811081c    .                "ave(X)", zstophy,zout)
    10821082c
    10831083         CALL histdef(nid_mth, "evap",
    10841084     .                "Evaporation plus sublimation rate", "kg/(s*m2)",
    1085      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1085     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    10861086     .                "ave(X)", zstophy,zout)
    10871087c
    10881088         CALL histdef(nid_mth, "tops", "Solar rad. at TOA", "W/m2",
    1089      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1089     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    10901090     .                "ave(X)", zstophy,zout)
    10911091c
    10921092         CALL histdef(nid_mth, "tops0", "CS Solar rad. at TOA", "W/m2",
    1093      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1093     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    10941094     .                "ave(X)", zstophy,zout)
    10951095c
    10961096         CALL histdef(nid_mth, "topl", "IR rad. at TOA", "W/m2",
    1097      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1097     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    10981098     .                "ave(X)", zstophy,zout)
    10991099c
    11001100         CALL histdef(nid_mth, "topl0", "IR rad. at TOA", "W/m2",
    1101      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1101     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    11021102     .                "ave(X)", zstophy,zout)
    11031103c
    11041104         CALL histdef(nid_mth, "SWupTOA", "SWup at TOA","W/m2",
    1105      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     1105     .                iim,jj_nb,nhori, 1,1,1,-99,
    11061106     .                32, "ave(X)", zstophy,zout)
    11071107c
    11081108         CALL histdef(nid_mth, "SWupTOAclr",
    11091109     .                "SWup clear sky at TOA","W/m2",
    1110      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     1110     .                iim,jj_nb,nhori, 1,1,1,-99,
    11111111     .                32, "ave(X)", zstophy,zout)
    11121112c
    11131113         CALL histdef(nid_mth, "SWdnTOA", "SWdn at TOA","W/m2",
    1114      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     1114     .                iim,jj_nb,nhori, 1,1,1,-99,
    11151115     .                32, "ave(X)", zstophy,zout)
    11161116c
    11171117         CALL histdef(nid_mth, "SWdnTOAclr",
    11181118     .                "SWdn clear sky at TOA","W/m2",
    1119      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     1119     .                iim,jj_nb,nhori, 1,1,1,-99,
    11201120     .                32, "ave(X)", zstophy,zout)
    11211121c
    11221122         CALL histdef(nid_mth, "SWup200", "SWup at 200mb","W/m2",
    1123      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     1123     .                iim,jj_nb,nhori, 1,1,1,-99,
    11241124     .                32, "ave(X)", zstophy,zout)
    11251125c
    11261126         CALL histdef(nid_mth, "SWup200clr",
    11271127     .                "SWup clear sky at 200mb","W/m2",
    1128      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     1128     .                iim,jj_nb,nhori, 1,1,1,-99,
    11291129     .                32, "ave(X)", zstophy,zout)
    11301130c
    11311131         CALL histdef(nid_mth, "SWdn200", "SWdn at 200mb","W/m2",
    1132      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     1132     .                iim,jj_nb,nhori, 1,1,1,-99,
    11331133     .                32, "ave(X)", zstophy,zout)
    11341134c
    11351135         CALL histdef(nid_mth, "SWdn200clr",
    11361136     .                "SWdn clear sky at 200mb","W/m2",
    1137      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     1137     .                iim,jj_nb,nhori, 1,1,1,-99,
    11381138     .                32, "ave(X)", zstophy,zout)
    11391139c
    11401140         CALL histdef(nid_mth, "LWup200", "LWup at 200mb","W/m2",
    1141      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     1141     .                iim,jj_nb,nhori, 1,1,1,-99,
    11421142     .                32, "ave(X)", zstophy,zout)
    11431143c
    11441144         CALL histdef(nid_mth, "LWup200clr",
    11451145     .                "LWup clear sky at 200mb","W/m2",
    1146      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     1146     .                iim,jj_nb,nhori, 1,1,1,-99,
    11471147     .                32, "ave(X)", zstophy,zout)
    11481148c
    11491149         CALL histdef(nid_mth, "LWdn200", "LWdn at 200mb","W/m2",
    1150      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     1150     .                iim,jj_nb,nhori, 1,1,1,-99,
    11511151     .                32, "ave(X)", zstophy,zout)
    11521152c
    11531153         CALL histdef(nid_mth, "LWdn200clr",
    11541154     .                "LWdn clear sky at 200mb","W/m2",
    1155      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     1155     .                iim,jj_nb,nhori, 1,1,1,-99,
    11561156     .                32, "ave(X)", zstophy,zout)
    11571157c
    11581158         CALL histdef(nid_mth, "sols", "Solar rad. at surf.", "W/m2",
    1159      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1159     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    11601160     .                "ave(X)", zstophy,zout)
    11611161c
    11621162         CALL histdef(nid_mth, "sols0", "Solar rad. at surf.", "W/m2",
    1163      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1163     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    11641164     .                "ave(X)", zstophy,zout)
    11651165c
    11661166         CALL histdef(nid_mth, "soll", "IR rad. at surface", "W/m2",
    1167      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1167     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    11681168     .                "ave(X)", zstophy,zout)
    11691169c
    11701170         CALL histdef(nid_mth, "radsol", "Rayonnement au sol", "W/m2",
    1171      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1171     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    11721172     .                "ave(X)", zstophy,zout)
    11731173c
    11741174         CALL histdef(nid_mth, "soll0", "IR rad. at surface", "W/m2",
    1175      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1175     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    11761176     .                "ave(X)", zstophy,zout)
    11771177c
    11781178         CALL histdef(nid_mth, "SWupSFC", "SWup at surface","W/m2",
    1179      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     1179     .                iim,jj_nb,nhori, 1,1,1,-99,
    11801180     .                32, "ave(X)", zstophy,zout)
    11811181c
    11821182         CALL histdef(nid_mth, "SWupSFCclr",
    11831183     .                "SWup clear sky at surface","W/m2",
    1184      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     1184     .                iim,jj_nb,nhori, 1,1,1,-99,
    11851185     .                32, "ave(X)", zstophy,zout)
    11861186c
    11871187         CALL histdef(nid_mth, "SWdnSFC", "SWdn at surface","W/m2",
    1188      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     1188     .                iim,jj_nb,nhori, 1,1,1,-99,
    11891189     .                32, "ave(X)", zstophy,zout)
    11901190c
    11911191         CALL histdef(nid_mth, "SWdnSFCclr",
    11921192     .                "SWdn clear sky at surface","W/m2",
    1193      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     1193     .                iim,jj_nb,nhori, 1,1,1,-99,
    11941194     .                32, "ave(X)", zstophy,zout)
    11951195c
    11961196         CALL histdef(nid_mth,"LWupSFC","Upwd. IR rad. at surface",
    1197      .                "W/m2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1197     .                "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32,
    11981198     .                "ave(X)", zstophy,zout)
    11991199c
    12001200         CALL histdef(nid_mth,"LWdnSFC","Down. IR rad. at surface",
    1201      .                "W/m2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1201     .                "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32,
    12021202     .                "ave(X)", zstophy,zout)
    12031203c
    12041204         CALL histdef(nid_mth,"LWupSFCclr",
    12051205     .                "CS Upwd. IR rad. at surface",
    1206      .                "W/m2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1206     .                "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32,
    12071207     .                "ave(X)", zstophy,zout)
    12081208c
    12091209         CALL histdef(nid_mth,"LWdnSFCclr",
    12101210     .                "Down. CS IR rad. at surface",
    1211      .                "W/m2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1211     .                "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32,
    12121212     .                "ave(X)", zstophy,zout)
    12131213c
    12141214         CALL histdef(nid_mth, "bils", "Surf. total heat flux", "W/m2",
    1215      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1215     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    12161216     .                "ave(X)", zstophy,zout)
    12171217c
    12181218         CALL histdef(nid_mth, "sens", "Sensible heat flux", "W/m2",
    1219      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1219     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    12201220     .                "ave(X)", zstophy,zout)
    12211221c
    12221222         CALL histdef(nid_mth, "fder", "Heat flux derivation", "W/m2",
    1223      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1223     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    12241224     .                "ave(X)", zstophy,zout)
    12251225c
    12261226c          CALL histdef(nid_mth, "frtu", "Zonal wind stress", "Pa",
    1227 c    .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1227c    .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    12281228c    .                "ave(X)", zstophy,zout)
    12291229c
    12301230c        CALL histdef(nid_mth, "frtv", "Meridional wind stress", "Pa",
    1231 c    .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1231c    .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    12321232c    .                "ave(X)", zstophy,zout)
    12331233c
    12341234         CALL histdef(nid_mth, "ffonte","Thermal flux for snow melting",
    1235      .                "W/m2",iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1235     .                "W/m2",iim,jj_nb,nhori, 1,1,1, -99, 32,
    12361236     .                "ave(X)", zstophy,zout)
    12371237c
    12381238         CALL histdef(nid_mth, "fqcalving","Ice Calving",
    1239      .                "kg/m2/s",iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1239     .                "kg/m2/s",iim,jj_nb,nhori, 1,1,1, -99, 32,
    12401240     .                "ave(X)", zstophy,zout)
    12411241c
    … …  
    12431243           call histdef(nid_mth, "taux_"//clnsurf(nsrf),
    12441244     $         "Zonal wind stress"//clnsurf(nsrf), "Pa", 
    1245      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1245     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    12461246     $         "ave(X)", zstophy,zout)
    12471247
    12481248           call histdef(nid_mth, "tauy_"//clnsurf(nsrf),
    12491249     $         "Meridional wind stress "//clnsurf(nsrf), "Pa", 
    1250      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1250     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    12511251     $         "ave(X)", zstophy,zout)
    12521252         ENDDO
    … …  
    12541254           call histdef(nid_mth, "pourc_"//clnsurf(is_oce),
    12551255     $         "% "//clnsurf(is_oce), "%", 
    1256      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1256     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    12571257     $         "ave(X)", zstophy,zout)
    12581258c
    12591259           call histdef(nid_mth, "fract_"//clnsurf(is_oce),
    12601260     $         "Fraction "//clnsurf(is_oce), "1", 
    1261      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1261     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    12621262     $         "ave(X)", zstophy,zout)
    12631263C
    … …  
    12661266           call histdef(nid_mth, "tsol_"//clnsurf(nsrf),
    12671267     $         "Temperature "//clnsurf(nsrf), "K", 
    1268      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1268     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    12691269     $         "ave(X)", zstophy,zout)
    12701270C
    12711271           call histdef(nid_mth, "sens_"//clnsurf(nsrf),
    12721272     $         "Sensible heat flux "//clnsurf(nsrf), "W/m2", 
    1273      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1273     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    12741274     $         "ave(X)", zstophy,zout)
    12751275c
    12761276           call histdef(nid_mth, "lat_"//clnsurf(nsrf),
    12771277     $         "Latent heat flux "//clnsurf(nsrf), "W/m2", 
    1278      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1278     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    12791279     $         "ave(X)", zstophy,zout)
    12801280C
    12811281           call histdef(nid_mth, "flw_"//clnsurf(nsrf),
    12821282     $         "LW "//clnsurf(nsrf), "W/m2",
    1283      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1283     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    12841284     $         "ave(X)", zstophy,zout)
    12851285c
    12861286           call histdef(nid_mth, "fsw_"//clnsurf(nsrf),
    12871287     $         "SW "//clnsurf(nsrf), "W/m2",
    1288      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1288     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    12891289     $         "ave(X)", zstophy,zout)
    12901290C
    12911291           call histdef(nid_mth, "wbils_"//clnsurf(nsrf),
    12921292     $         "Bilan sol "//clnsurf(nsrf), "W/m2",
    1293      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1293     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    12941294     $         "ave(X)", zstophy,zout)
    12951295C
    12961296           call histdef(nid_mth, "wbilo_"//clnsurf(nsrf),
    12971297     $         "Bilan eau "//clnsurf(nsrf), "kg/(m2*s)",
    1298      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1298     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    12991299     $         "ave(X)", zstophy,zout)
    13001300C
    … …  
    13041304           call histdef(nid_mth, "evapour_"//clnsurf(nsrf),
    13051305     $         "Evap*pourc "//clnsurf(nsrf), "kg/(s*m2)",
    1306      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1306     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    13071307     $         "ave(X)", zstophy,zout)
    13081308C
    13091309           call histdef(nid_mth, "prepour_"//clnsurf(nsrf),
    13101310     $         "Precip*pourc "//clnsurf(nsrf), "kg/(s*m2)",
    1311      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1311     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    13121312     $         "ave(X)", zstophy,zout)
    13131313C
    … …  
    13181318c
    13191319         CALL histdef(nid_mth, "cdrm", "Momentum drag coef.", "-",
    1320      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1320     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    13211321     .                "ave(X)", zstophy,zout)
    13221322c
    13231323         CALL histdef(nid_mth, "cdrh", "Heat drag coef.", "-",
    1324      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1324     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    13251325     .                "ave(X)", zstophy,zout)
    13261326c
    13271327         CALL histdef(nid_mth, "cldl", "Low-level cloudiness", "-",
    1328      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1328     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    13291329     .                "ave(X)", zstophy,zout)
    13301330c
    13311331         CALL histdef(nid_mth, "cldm", "Mid-level cloudiness", "-",
    1332      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1332     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    13331333     .                "ave(X)", zstophy,zout)
    13341334c
    13351335         CALL histdef(nid_mth, "cldh", "High-level cloudiness", "-",
    1336      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1336     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    13371337     .                "ave(X)", zstophy,zout)
    13381338c
    13391339         CALL histdef(nid_mth, "cldt", "Total cloudiness", "%",
    1340      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1340     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    13411341     .                "ave(X)", zstophy,zout)
    13421342c
    13431343         CALL histdef(nid_mth,"cldq","Cloud liquid water path","kg/m2",
    1344      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1344     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    13451345     .                "ave(X)", zstophy,zout)
    13461346c
    13471347         CALL histdef(nid_mth,"lwp","Cloud water path","kg/m2",
    1348      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1348     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    13491349     .                "ave(X)", zstophy,zout)
    13501350c
    13511351         CALL histdef(nid_mth,"iwp","Cloud ice water path","kg/m2",
    1352      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1352     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    13531353     .                "ave(X)", zstophy,zout)
    13541354c
    13551355         CALL histdef(nid_mth, "ue", "Zonal energy transport", "-",
    1356      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1356     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    13571357     .                "ave(X)", zstophy,zout)
    13581358c
    13591359         CALL histdef(nid_mth, "ve", "Merid energy transport", "-",
    1360      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1360     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    13611361     .                "ave(X)", zstophy,zout)
    13621362c
    13631363         CALL histdef(nid_mth, "uq", "Zonal humidity transport", "-",
    1364      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1364     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    13651365     .                "ave(X)", zstophy,zout)
    13661366c
    13671367         CALL histdef(nid_mth, "vq", "Merid humidity transport", "-",
    1368      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1368     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    13691369     .                "ave(X)", zstophy,zout)
    13701370cKE43
    … …  
    13721372c
    13731373         CALL histdef(nid_mth, "cape", "Conv avlbl pot ener", "J/kg",
    1374      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1374     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    13751375     .                "ave(X)", zstophy,zout)
    13761376c
    13771377         CALL histdef(nid_mth, "pbase", "Cld base pressure", "mb",
    1378      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1378     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    13791379     .                "ave(X)", zstophy,zout)
    13801380c
    13811381         CALL histdef(nid_mth, "ptop", "Cld top pressure", "mb",
    1382      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1382     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    13831383     .                "ave(X)", zstophy,zout)
    13841384c
    13851385         CALL histdef(nid_mth, "fbase", "Cld base mass flux", "kg/m2/s",
    1386      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1386     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    13871387     .                "ave(X)", zstophy,zout)
    13881388c
    13891389         CALL histdef(nid_mth, "prw", "Precipitable water", "kg/m2",
    1390      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1390     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    13911391     .                "ave(X)", zstophy,zout)
    13921392c
    13931393         CALL histdef(nid_mth, "upwd", "saturated updraft", "kg/m2/s",
    1394      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1394     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    13951395     .                "ave(X)", zstophy,zout)
    13961396c
    … …  
    14011401c HBTM2
    14021402         CALL histdef(nid_mth, "s_pblh", "Boundary Layer Height", "m",
    1403      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1403     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    14041404     .                "ave(X)", zstophy,zout)
    14051405         CALL histdef(nid_mth, "s_pblt", "T at Boundary Layer Height",
    14061406     .                "K",
    1407      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1407     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    14081408     .                "ave(X)", zstophy,zout)
    14091409         CALL histdef(nid_mth, "s_lcl", "Condensation level", "m",
    1410      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1410     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    14111411     .                "ave(X)", zstophy,zout)
    14121412         CALL histdef(nid_mth,"s_capCL","Conv avlbl pot ener for ABL",
    14131413     .                "J/m2",
    1414      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1414     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    14151415     .                "ave(X)", zstophy,zout)
    14161416         CALL histdef(nid_mth, "s_oliqCL", "Liq Water in BL", "kg/m2",
    1417      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1417     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    14181418     .                "ave(X)", zstophy,zout)
    14191419         CALL histdef(nid_mth,"s_cteiCL","Instability criteria (ABL)",
    14201420     .                "K",
    1421      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1421     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    14221422     .                "ave(X)", zstophy,zout)
    14231423         CALL histdef(nid_mth, "s_therm", "Exces du thermique", "K",
    1424      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1424     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    14251425     .                "ave(X)", zstophy,zout)
    14261426         CALL histdef(nid_mth, "s_trmb1", "deep_cape(HBTM2)", "J/m2",
    1427      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1427     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    14281428     .                "ave(X)", zstophy,zout)
    14291429         CALL histdef(nid_mth, "s_trmb2", "inhibition (HBTM2)", "J/m2",
    1430      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1430     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    14311431     .                "ave(X)", zstophy,zout)
    14321432         CALL histdef(nid_mth, "s_trmb3", "Point Omega (HBTM2)", "m",
    1433      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1433     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    14341434     .                "ave(X)", zstophy,zout)
    14351435c
    … …  
    14531453          CALL histdef(nid_mth, "u"//bb2,
    14541454     .                 "Zonal wind "//bb2//"mb","m/s",
    1455      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1455     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    14561456     .                "inst(X)", zout,zout)
    14571457c
    14581458          CALL histdef(nid_mth, "v"//bb2,
    14591459     .                 "Meridional wind "//bb2//"mb","m/s",
    1460      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1460     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    14611461     .                "inst(X)", zout,zout)
    14621462c
    14631463          CALL histdef(nid_mth, "w"//bb2,
    14641464     .                 "Vertical wind "//bb2//"mb","m/s",
    1465      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1465     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    14661466     .                "inst(X)", zout,zout)
    14671467c
    14681468          CALL histdef(nid_mth, "phi"//bb2,
    14691469     .                 "Geopotential "//bb2//"mb","m",
    1470      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1470     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    14711471     .                "inst(X)", zout,zout)
    14721472c
    … …  
    14801480       CALL histdef(nid_mth, "fluxo",
    14811481     .              "Flux turbulents ocean-atmosphere", "W/m2",
    1482      .              iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1482     .              iim,jj_nb,nhori, 1,1,1, -99, 32,
    14831483     .              "ave(X)", zstophy,zout)
    14841484c
    14851485       CALL histdef(nid_mth, "fluxg",
    14861486     .              "Flux turbulents ocean-glace de mer","W/m2",
    1487      .              iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1487     .              iim,jj_nb,nhori, 1,1,1, -99, 32,
    14881488     .              "ave(X)", zstophy,zout)
    14891489c
    14901490       CALL histdef(nid_mth, "t_oce_sic",
    14911491     .              "Temp. mixte oce-sic","K",
    1492      .              iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1492     .              iim,jj_nb,nhori, 1,1,1, -99, 32,
    14931493     .              "ave(X)", zstophy,zout)
    14941494c
    … …  
    14971497        CALL histdef(nid_mth, "lmt_bils",
    14981498     .       "Bilan au sol atmosphere forcee", "W/m2",
    1499      .       iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1499     .       iim,jj_nb,nhori, 1,1,1, -99, 32,
    15001500     .       "ave(X)", zstophy,zout)
    15011501c
    … …  
    15041504        CALL histdef(nid_mth, "slab_bils",
    15051505     .              "Bilan au sol Slab", "W/m2",
    1506      .              iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1506     .              iim,jj_nb,nhori, 1,1,1, -99, 32,
    15071507     .              "ave(X)", zstophy,zout)
    15081508c
    15091509        CALL histdef(nid_mth, "tslab", "Slab SST ", "K",
    1510      .              iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1510     .              iim,jj_nb,nhori, 1,1,1, -99, 32,
    15111511     .              "ave(X)", zstophy,zout)
    15121512c
    15131513        CALL histdef(nid_mth, "seaice", "Slab seaice", "kg/m2",
    1514      .              iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1514     .              iim,jj_nb,nhori, 1,1,1, -99, 32,
    15151515     .              "ave(X)", zstophy,zout)
    15161516c
    15171517        CALL histdef(nid_mth, "siceh", "Slab seaice height", "m",
    1518      .              iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1518     .              iim,jj_nb,nhori, 1,1,1, -99, 32,
    15191519     .              "ave(X)", zstophy,zout)
    15201520c
    … …  
    15301530         CALL histdef(nid_mth,"lwcon","Cloud liquid water content",
    15311531     .                "kg/kg",
    1532      .                iim,jjphy_nb,nhori, klev,1,klev, nvert, 32,
     1532     .                iim,jj_nb,nhori, klev,1,klev, nvert, 32,
    15331533     .                "ave(X)", zstophy,zout)
    15341534c
    15351535         CALL histdef(nid_mth,"iwcon","Cloud ice water content","kg/kg",
    1536      .                iim,jjphy_nb,nhori, klev,1,klev, nvert, 32,
     1536     .                iim,jj_nb,nhori, klev,1,klev, nvert, 32,
    15371537     .                "ave(X)", zstophy,zout)
    15381538c
    15391539         CALL histdef(nid_mth, "temp", "Air temperature", "K",
    1540      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1540     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    15411541     .                "ave(X)", zstophy,zout)
    15421542c
    15431543         CALL histdef(nid_mth, "ovap", "Specific humidity", "kg/kg",
    1544      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1544     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    15451545     .                "ave(X)", zstophy,zout)
    15461546c
    15471547c        CALL histdef(nid_mth,"wvap","Water vapor mixing ratio","kg/kg",
    1548 c    .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1548c    .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    15491549c    .                "ave(X)", zstophy,zout)
    15501550c
    15511551         CALL histdef(nid_mth, "geop", "Geopotential height", "m2/s2",
    1552      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1552     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    15531553     .                "ave(X)", zstophy,zout)
    15541554c
    15551555         CALL histdef(nid_mth, "vitu", "Zonal wind", "m/s",
    1556      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1556     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    15571557     .                "ave(X)", zstophy,zout)
    15581558c
    15591559         CALL histdef(nid_mth, "vitv", "Meridional wind", "m/s",
    1560      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1560     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    15611561     .                "ave(X)", zstophy,zout)
    15621562c
    15631563         CALL histdef(nid_mth, "vitw", "Vertical wind", "m/s",
    1564      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1564     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    15651565     .                "ave(X)", zstophy,zout)
    15661566c
    15671567         CALL histdef(nid_mth, "pres", "Air pressure", "Pa",
    1568      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1568     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    15691569     .                "ave(X)", zstophy,zout)
    15701570c
    15711571        CALL histdef(nid_mth, "rneb", "Cloud fraction", "%",
    1572      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1572     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    15731573     .                "ave(X)", zstophy,zout)
    15741574c
    15751575         CALL histdef(nid_mth, "rnebcon", "Convective Cloud Fraction"
    15761576     .                , "-",
    1577      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1577     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    15781578     .                "ave(X)", zstophy,zout)
    15791579c
    15801580         CALL histdef(nid_mth, "rhum", "Relative humidity", "-",
    1581      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1581     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    15821582     .                "ave(X)", zstophy,zout)
    15831583c
    15841584         CALL histdef(nid_mth, "ozone", "Ozone concentration", "ppmv",
    1585      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1585     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    15861586     .                "ave(X)", zstophy,zout)
    15871587c
    15881588         CALL histdef(nid_mth, "dtphy", "Physics dT", "K/s",
    1589      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1589     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    15901590     .                "ave(X)", zstophy,zout)
    15911591c
    15921592         CALL histdef(nid_mth, "dqphy","Physics dQ","(kg/kg)/s",
    1593      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1593     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    15941594     .                "ave(X)", zstophy,zout)
    15951595c
    … …  
    16021602           call histdef(nid_mth, "albe_"//clnsurf(nsrf),
    16031603     $         "Albedo surf. "//clnsurf(nsrf), "-", 
    1604      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1604     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    16051605     $         "ave(X)", zstophy,zout)
    16061606c
    16071607           call histdef(nid_mth, "rugs_"//clnsurf(nsrf),
    16081608     $         "Rugosite "//clnsurf(nsrf), "m", 
    1609      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1609     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    16101610     $         "ave(X)", zstophy,zout)
    16111611c
    16121612         CALL histdef(nid_mth, "ages_"//clnsurf(nsrf), "Snow age","day",
    1613      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1613     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    16141614     .                "ave(X)", zstophy,zout)
    16151615c
    … …  
    16171617c
    16181618         CALL histdef(nid_mth, "albs", "Surface albedo", "-",
    1619      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1619     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    16201620     .                "ave(X)", zstophy,zout)
    16211621         CALL histdef(nid_mth, "albslw", "Surface albedo LW", "-",
    1622      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     1622     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    16231623     .                "ave(X)", zstophy,zout)
    16241624c
    … …  
    16301630     .                "Convective Cloud Liquid water content"
    16311631     .                , "kg/kg",
    1632      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1632     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    16331633     .                "ave(X)", zstophy,zout)
    16341634c
    16351635         CALL histdef(nid_mth,"Ma","undilute adiab updraft","kg/m2/s",
    1636      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1636     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    16371637     .                "ave(X)", zstophy,zout)
    16381638c
    16391639         CALL histdef(nid_mth, "dnwd", "saturated downdraft","kg/m2/s",
    1640      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1640     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    16411641     .                "ave(X)", zstophy,zout)
    16421642c
    16431643         CALL histdef(nid_mth, "dnwd0", "unsat. downdraft", "kg/m2/s",
    1644      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1644     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    16451645     .                "ave(X)", zstophy,zout)
    16461646c
    16471647         CALL histdef(nid_mth, "dtdyn", "Dynamics dT", "K/s",
    1648      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1648     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    16491649     .                "ave(X)", zstophy,zout)
    16501650c
    16511651         CALL histdef(nid_mth, "dqdyn","Dynamics dQ","(kg/kg)/s",
    1652      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1652     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    16531653     .                "ave(X)", zstophy,zout)
    16541654c
    16551655         CALL histdef(nid_mth, "dqcon","Convection dQ","(kg/kg)/s",
    1656      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1656     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    16571657     .                "ave(X)", zstophy,zout)
    16581658c
    16591659         CALL histdef(nid_mth, "dtlschr",
    16601660     $       "Large-scale condensational heating rate", "K/s",
    1661      $       iim,jjphy_nb
     1661     $       iim,jj_nb
    16621662     $       ,nhori, klev,1,klev,nvert, 32,"ave(X)", zstophy,zout)
    16631663c
    16641664         CALL histdef(nid_mth, "dqlsc","Condensation dQ","(kg/kg)/s",
    1665      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1665     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    16661666     .                "ave(X)", zstophy,zout)
    16671667c
    16681668         CALL histdef(nid_mth, "dtvdf", "Boundary-layer dT", "K/s",
    1669      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1669     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    16701670     .                "ave(X)", zstophy,zout)
    16711671c
    16721672         CALL histdef(nid_mth, "dqvdf","Boundary-layer dQ","(kg/kg)/s",
    1673      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1673     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    16741674     .                "ave(X)", zstophy,zout)
    16751675c
    16761676         CALL histdef(nid_mth, "dteva", "Reevaporation dT", "K/s",
    1677      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1677     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    16781678     .                "ave(X)", zstophy,zout)
    16791679c
    16801680         CALL histdef(nid_mth,"dqeva","Reevaporation dQ","(kg/kg)/s",
    1681      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1681     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    16821682     .                "ave(X)", zstophy,zout)
    16831683
    16841684         CALL histdef(nid_mth, "ptconv", "POINTS CONVECTIFS"," ",
    1685      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1685     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    16861686     .                "ave(X)", zstophy,zout)
    16871687
    16881688         CALL histdef(nid_mth, "ratqs", "RATQS"," ",
    1689      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1689     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    16901690     .                "ave(X)", zstophy,zout)
    16911691
    16921692c
    16931693         CALL histdef(nid_mth, "dqajs","Dry adjust. dQ","(kg/kg)/s",
    1694      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1694     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    16951695     .                "ave(X)", zstophy,zout)
    16961696c
    16971697         CALL histdef(nid_mth, "dtswr", "SW radiation dT", "K/s",
    1698      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1698     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    16991699     .                "ave(X)", zstophy,zout)
    17001700c
    17011701         CALL histdef(nid_mth, "dtsw0", "CS SW radiation dT", "K/s",
    1702      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1702     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    17031703     .                "ave(X)", zstophy,zout)
    17041704c
    17051705         CALL histdef(nid_mth, "dtlwr", "LW radiation dT", "K/s",
    1706      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1706     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    17071707     .                "ave(X)", zstophy,zout)
    17081708c
    17091709         CALL histdef(nid_mth,"dtlw0","CS LW radiation dT","K/s",
    1710      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1710     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    17111711     .                "ave(X)", zstophy,zout)
    17121712c
    17131713         CALL histdef(nid_mth, "dtec", "Cinetic dissip dT", "K/s",
    1714      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1714     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    17151715     .                "ave(X)", zstophy,zout)
    17161716c
    17171717         CALL histdef(nid_mth, "duvdf", "Boundary-layer dU", "m/s2",
    1718      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1718     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    17191719     .                "ave(X)", zstophy,zout)
    17201720c
    17211721         CALL histdef(nid_mth, "dvvdf", "Boundary-layer dV", "m/s2",
    1722      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1722     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    17231723     .                "ave(X)", zstophy,zout)
    17241724c
    17251725         IF (ok_orodr) THEN
    17261726         CALL histdef(nid_mth, "duoro", "Orography dU", "m/s2",
    1727      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1727     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    17281728     .                "ave(X)", zstophy,zout)
    17291729c
    17301730         CALL histdef(nid_mth, "dvoro", "Orography dV", "m/s2",
    1731      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1731     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    17321732     .                "ave(X)", zstophy,zout)
    17331733c
    … …  
    17361736         IF (ok_orolf) THEN
    17371737         CALL histdef(nid_mth, "dulif", "Orography dU", "m/s2",
    1738      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1738     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    17391739     .                "ave(X)", zstophy,zout)
    17401740c
    17411741         CALL histdef(nid_mth, "dvlif", "Orography dV", "m/s2",
    1742      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1742     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    17431743     .                "ave(X)", zstophy,zout)
    17441744         ENDIF
    … …  
    17481748         iiq=niadv(iq)
    17491749         CALL histdef(nid_mth, tnom(iq), ttext(iiq), "-",
    1750      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     1750     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    17511751     .                "ave(X)", zstophy,zout)
    17521752         ENDDO
Note: See TracChangeset for help on using the changeset viewer.