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

    r766 r776  
    3636c
    3737         CALL histdef(nid_day, "phis", "Surface geop. height", "m2/s2",
    38      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     38     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    3939     .                "once", zstophy,zout)
    4040c
    4141         CALL histdef(nid_day, "aire", "Grid area", "-",
    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_day, "contfracATM","% sfce ter+lic ","-",
    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_day, "contfracOR","% sfce terre OR", "-",
    50      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     50     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    5151     .                "once", zstophy,zout)
    5252c
     
    5454c
    5555         CALL histdef(nid_day, "tsol", "Surface Temperature", "K",
    56      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     56     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    5757     .                "ave(X)", zstophy,zout)
    5858c
    5959         CALL histdef(nid_day, "t2m", "Temperature 2m", "K",
    60      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     60     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    6161     .                "ave(X)", zstophy,zout)
    6262c
     
    6666         CALL histdef(nid_day, "t2m_min", "Temp. 2m min.",
    6767     .                "K",
    68      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     68     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    6969     .                t2mincels, zstophy,zout)
    7070c
    7171         CALL histdef(nid_day, "t2m_max", "Temp. 2m max.",
    7272     .                "K",
    73      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     73     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    7474     .                t2maxcels, zstophy,zout)
    7575c
    7676         CALL histdef(nid_day, "plul", "Large-scale Precip.",
    7777     .   "kg/(s*m2)",
    78      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     78     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    7979     .                "ave(X)", zstophy,zout)
    8080c
    8181         CALL histdef(nid_day, "pluc", "Convective Precip.",
    8282     .   "kg/(s*m2)",
    83      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     83     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    8484     .                "ave(X)", zstophy,zout)
    8585c
    8686         CALL histdef(nid_day, "snowl", "Solid Large-scale Precip.",
    8787     .   "kg/(m2*s)",
    88      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     88     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    8989     .                "ave(X)", zstophy,zout)
    9090c
     
    9292         CALL histdef(nid_day, "snowc", "Solid Convective Precip.",
    9393     .   "kg/(m2*s)",
    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)
    9696         ENDIF !snowc=0.
    9797c
    9898         CALL histdef(nid_day, "flat", "Latent heat flux", "W/m2",
    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_day, "sicf", "Sea-ice fraction", "-",
    103      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     103     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    104104     .                "inst(X)", zstoday,zout)
    105105c
    106106         CALL histdef(nid_day, "q2m", "Specific humidity", "kg/kg",
    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_day, "u10m", "Vent zonal 10m", "m/s",
    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_day, "v10m", "Vent meridien 10m", "m/s",
    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         CALL histdef(nid_day, "wind10m","10-m wind speed","m/s",
    119      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     119     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    120120     .                "ave(X)", zstophy,zout)
    121121c
    122122         CALL histdef(nid_day, "wind10max", "10-m wind speed max.",
    123123     .                "m/s",
    124      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     124     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    125125     .                t2maxcels, zstophy,zout)
    126126c
    127127         CALL histdef(nid_day, "psol", "Surface Pressure", "Pa",
    128      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     128     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    129129     .                "ave(X)", zstophy,zout)
    130130c
    131131         CALL histdef(nid_day, "precip","Precipitation Totale liq+sol"
    132132     .                , "kg/(s*m2)",
    133      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     133     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    134134     .                "ave(X)", zstophy,zout)
    135135c
    136136         CALL histdef(nid_day, "snowf", "Snow fall", "kg/(m2*s)",
    137      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     137     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    138138     .                "ave(X)", zstophy,zout)
    139139c
    140140c        CALL histdef(nid_day, "snow_mass", "Snow Mass", "kg/m2",
    141 c    .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     141c    .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    142142c    .                "ave(X)", zstophy,zout)
    143143c
    144144         CALL histdef(nid_day, "evap", "Evaporation", "kg/(m2*s)",
    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
    148148         CALL histdef(nid_day, "tops", "Solar rad. at TOA", "W/m2",
    149      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     149     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    150150     .                "ave(X)", zstophy,zout)
    151151c
    152152         CALL histdef(nid_day, "topl", "IR rad. at TOA", "W/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_day, "sols", "Net Solar rad. at surf.",
    157157     .                "W/m2",
    158      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     158     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    159159     .                "ave(X)", zstophy,zout)
    160160c
    161161         CALL histdef(nid_day, "soll", "Net IR rad. at surface", "W/m2",
    162      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     162     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    163163     .                "ave(X)", zstophy,zout)
    164164c
    165165         CALL histdef(nid_day, "radsol", "Rayonnement au sol", "W/m2",
    166      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     166     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    167167     .                "ave(X)", zstophy,zout)
    168168c
    169169         CALL histdef(nid_day, "cldl", "Low-level cloudiness", "-",
    170      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     170     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    171171     .                "ave(X)", zstophy,zout)
    172172c
    173173         CALL histdef(nid_day, "cldm", "Mid-level cloudiness", "-",
    174      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     174     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    175175     .                "ave(X)", zstophy,zout)
    176176c
    177177         CALL histdef(nid_day, "cldh", "High-level cloudiness", "-",
    178      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     178     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    179179     .                "ave(X)", zstophy,zout)
    180180c
    181181         CALL histdef(nid_day, "cldt", "Total cloudiness", "-",
    182      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     182     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    183183     .                "ave(X)", zstophy,zout)
    184184c
    185185         CALL histdef(nid_day, "cldq", "Cloud liquid water path",
    186186     .                "kg/m2",
    187      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     187     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    188188     .                "ave(X)", zstophy,zout)
    189189c
    190190         CALL histdef(nid_day, "prw", "Precipitable water", "kg/m2",
    191      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     191     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    192192     .                "ave(X)", zstophy,zout)
    193193c
     
    210210          CALL histdef(nid_day, "u"//bb2,
    211211     .                 "Zonal wind "//bb2//"mb","m/s",
    212      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     212     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    213213     .                "inst(X)", zout,zout)
    214214c
    215215          CALL histdef(nid_day, "v"//bb2,
    216216     .                 "Meridional wind "//bb2//"mb","m/s",
    217      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     217     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    218218     .                "inst(X)", zout,zout)
    219219c
     
    224224         CALL histdef(nid_day, "w"//bb2, "Vertical wind "//bb2//"mb",
    225225     .                "m/s",
    226      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     226     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    227227     .                "inst(X)", zout,zout)
    228228c
    229229         CALL histdef(nid_day,"phi"//bb2, "Geopotential "//bb2//"mb",
    230230     .                "m",
    231      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     231     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    232232     .                "inst(X)", zout,zout)
    233233c
     
    237237c
    238238         CALL histdef(nid_day, "slp", "Sea Level Pressure", "Pa",
    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_day, "cape_max", "CAPE max.",
    243243     .                "J/kg",
    244      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     244     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    245245     .                capemaxcels, zstophy,zout)
    246246c
    247247         CALL histdef(nid_day, "solldown", "Down. IR rad. at surface",
    248      .                "W/m2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     248     .                "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32,
    249249     .                "ave(X)", zstophy,zout)
    250250c
    251251         CALL histdef(nid_day, "sens", "Sensible heat flux", "W/m2",
    252      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     252     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    253253     .                "ave(X)", zstophy,zout)
    254254c
    255255         CALL histdef(nid_day, "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
     
    264264          CALL histdef(nid_day, "lmt_bils",
    265265     .         "Bilan au sol atmosphere forcee", "W/m2",
    266      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     266     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    267267     .                "ave(X)", zstophy,zout)
    268268c
     
    271271          CALL histdef(nid_day, "slab_bils",
    272272     .                "Bilan au sol slab", "W/m2",
    273      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     273     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    274274     .                "ave(X)", zstophy,zout)
    275275c
    276276          CALL histdef(nid_day, "tslab", "Slab SST ", "K",
    277      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     277     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    278278     .                "ave(X)", zstophy,zout)
    279279c
    280280          CALL histdef(nid_day, "seaice", "Slab seaice", "kg/m2",
    281      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     281     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    282282     .                "ave(X)", zstophy,zout)
    283283c
    284284          CALL histdef(nid_day, "siceh", "Slab seaice height", "m",
    285      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     285     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    286286     .                "ave(X)", zstophy,zout)
    287287c
     
    290290         CALL histdef(nid_day, "fluxo",
    291291     .                "Flux turbulents ocean-atmosphere", "W/m2",
    292      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     292     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    293293     .                "ave(X)", zstophy,zout)
    294294c
    295295         CALL histdef(nid_day, "fluxg",
    296296     .                "Flux ocean-glace de mer", "W/m2",
    297      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     297     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    298298     .                "ave(X)", zstophy,zout)
    299299c
     
    303303c
    304304         CALL histdef(nid_day, "bils", "Surf. total heat flux", "W/m2",
    305      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     305     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    306306     .                "ave(X)", zstophy,zout)
    307307c
    308308         CALL histdef(nid_day, "fder", "Heat flux derivation", "W/m2/K",
    309      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     309     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    310310     .                "ave(X)", zstophy,zout)
    311311c
     
    321321c
    322322         CALL histdef(nid_day, "temp", "Air temperature", "K",
    323      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     323     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    324324     .                "ave(X)", zstophy,zout)
    325325c
    326326         CALL histdef(nid_day, "ovap", "Specific humidity", "kg/kg",
    327      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     327     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    328328     .                "ave(X)", zstophy,zout)
    329329c
    330330         CALL histdef(nid_day, "geop", "Geopotential height", "m2/s2",
    331      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     331     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    332332     .                "ave(X)", zstophy,zout)
    333333c
    334334         CALL histdef(nid_day, "vitu", "Zonal wind", "m/s",
    335      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     335     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    336336     .                "ave(X)", zstophy,zout)
    337337c
    338338         CALL histdef(nid_day, "vitv", "Meridional wind", "m/s",
    339      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     339     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    340340     .                "ave(X)", zstophy,zout)
    341341c
    342342         CALL histdef(nid_day, "vitw", "Vertical wind", "m/s",
    343      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     343     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    344344     .                "ave(X)", zstophy,zout)
    345345c
    346346         CALL histdef(nid_day, "pres", "Air pressure", "Pa",
    347      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     347     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    348348     .                "ave(X)", zstophy,zout)
    349349c
     
    361361c
    362362         CALL histdef(nid_day, "SWupTOA", "SWup at TOA","W/m2",
    363      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     363     .                iim,jj_nb,nhori, 1,1,1,-99,
    364364     .                32, "ave(X)", zstophy,zout)
    365365c
    366366         CALL histdef(nid_day, "SWupSFC", "SWup at surface","W/m2",
    367      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     367     .                iim,jj_nb,nhori, 1,1,1,-99,
    368368     .                32, "ave(X)", zstophy,zout)
    369369c
    370370         CALL histdef(nid_day, "SWdnTOA", "SWdn at TOA","W/m2",
    371      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     371     .                iim,jj_nb,nhori, 1,1,1,-99,
    372372     .                32, "ave(X)", zstophy,zout)
    373373c
    374374         CALL histdef(nid_day, "SWupTOAclr",
    375375     .                "SWup clear sky at TOA","W/m2",
    376      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     376     .                iim,jj_nb,nhori, 1,1,1,-99,
    377377     .                32, "ave(X)", zstophy,zout)
    378378
    379379         CALL histdef(nid_day, "SWupSFCclr",
    380380     .                "SWup clear sky at surface","W/m2",
    381      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     381     .                iim,jj_nb,nhori, 1,1,1,-99,
    382382     .                32, "ave(X)", zstophy,zout)
    383383
    384384         CALL histdef(nid_day, "SWdnTOAclr",
    385385     .                "SWdn clear sky at TOA","W/m2",
    386      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     386     .                iim,jj_nb,nhori, 1,1,1,-99,
    387387     .                32, "ave(X)", zstophy,zout)
    388388
    389389         CALL histdef(nid_day, "SWdnSFCclr",
    390390     .                "SWdn clear sky at surface","W/m2",
    391      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     391     .                iim,jj_nb,nhori, 1,1,1,-99,
    392392     .                32, "ave(X)", zstophy,zout)
    393393c
     
    395395         CALL histdef(nid_day, "LWdnSFC",
    396396     .                "LW down at surface","W/m2",
    397      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     397     .                iim,jj_nb,nhori, 1,1,1,-99,
    398398     .                32, "ave(X)", zstophy,zout)
    399399c
    400400         CALL histdef(nid_day, "LWupSFC",
    401401     .                "LW down at surface","W/m2",
    402      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     402     .                iim,jj_nb,nhori, 1,1,1,-99,
    403403     .                32, "ave(X)", zstophy,zout)
    404404c
     
    407407c    .                "Cld top pressure","mb",
    408408     .                "Cld top pressure (cf ISCCP simulator)","Pa",
    409      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     409     .                iim,jj_nb,nhori, 1,1,1,-99,
    410410     .                32, "ave(X)", zstophy,zout)
    411411cIM     ENDIF !(iflag_con.GE.3) THEN
     
    418418c
    419419         CALL histdef(nid_day, "tter", "Surface Temperature ter", "K",
    420      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     420     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    421421     .                "ave(X)", zstophy,zout)
    422422c
    423423         CALL histdef(nid_day, "tlic", "Surface Temperature lic", "K",
    424      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     424     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    425425     .                "ave(X)", zstophy,zout)
    426426c
    427427         CALL histdef(nid_day, "toce", "Surface Temperature oce", "K",
    428      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     428     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    429429     .                "ave(X)", zstophy,zout)
    430430c
    431431         CALL histdef(nid_day, "tsic", "Surface Temperature sic", "K",
    432      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     432     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    433433     .                "ave(X)", zstophy,zout)
    434434c
    435435         CALL histdef(nid_day, "t2mter", "Temp.tere 2m", "K",
    436      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     436     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    437437     .                "ave(X)", zstophy,zout)
    438438c
    439439         CALL histdef(nid_day, "t2mlic", "Temp.lic 2m", "K",
    440      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     440     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    441441     .                "ave(X)", zstophy,zout)
    442442c
    443443         CALL histdef(nid_day, "t2moce", "Temp.oce 2m", "K",
    444      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     444     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    445445     .                "ave(X)", zstophy,zout)
    446446c
    447447         CALL histdef(nid_day, "t2msic", "Temp.sic 2m", "K",
    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_day, "t2mter_min", "Temp.terre 2m min.",
    452452     .                "K",
    453      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     453     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    454454     .                t2mincels, zstophy,zout)
    455455c
    456456         CALL histdef(nid_day, "t2mter_max", "Temp.terre 2m max.",
    457457     .                "K",
    458      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     458     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    459459     .                t2maxcels, zstophy,zout)
    460460c
    461461         CALL histdef(nid_day, "u10mter", "Vent zonal ter 10m", "m/s",
    462      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     462     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    463463     .                "ave(X)", zstophy,zout)
    464464c
    465465         CALL histdef(nid_day, "u10mlic", "Vent zonal lic 10m", "m/s",
    466      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     466     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    467467     .                "ave(X)", zstophy,zout)
    468468c
    469469         CALL histdef(nid_day, "u10moce", "Vent zonal oce 10m", "m/s",
    470      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     470     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    471471     .                "ave(X)", zstophy,zout)
    472472c
    473473         CALL histdef(nid_day, "u10msic", "Vent zonal sic 10m",
    474      .                 "m/s",iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     474     .                 "m/s",iim,jj_nb,nhori, 1,1,1, -99, 32,
    475475     .                "ave(X)", zstophy,zout)
    476476c
    477477         CALL histdef(nid_day, "v10mter", "Vent meridien ter 10m",
    478      .                "m/s", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     478     .                "m/s", iim,jj_nb,nhori, 1,1,1, -99, 32,
    479479     .                "ave(X)", zstophy,zout)
    480480c
    481481         CALL histdef(nid_day, "v10mlic", "Vent meridien lic 10m",
    482      .                 "m/s",iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     482     .                 "m/s",iim,jj_nb,nhori, 1,1,1, -99, 32,
    483483     .                "ave(X)", zstophy,zout)
    484484c
    485485         CALL histdef(nid_day, "v10moce", "Vent meridien oce 10m",
    486      .                 "m/s",iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     486     .                 "m/s",iim,jj_nb,nhori, 1,1,1, -99, 32,
    487487     .                "ave(X)", zstophy,zout)
    488488c
    489489         CALL histdef(nid_day, "v10msic", "Vent meridien sic 10m",
    490      .                 "m/s",iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     490     .                 "m/s",iim,jj_nb,nhori, 1,1,1, -99, 32,
    491491     .                "ave(X)", zstophy,zout)
    492492c
     
    495495           call histdef(nid_day, "pourc_"//clnsurf(nsrf),
    496496     $         "% "//clnsurf(nsrf), "%", 
    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)
    499499C
    500500           call histdef(nid_day, "fract_"//clnsurf(nsrf),
    501501     $         "Fraction "//clnsurf(nsrf), "1", 
    502      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     502     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    503503     $         "ave(X)", zstophy,zout)
    504504C
    505505           call histdef(nid_day, "tsol_"//clnsurf(nsrf),
    506506     $         "Temperature "//clnsurf(nsrf), "K", 
    507      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     507     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    508508     $         "ave(X)", zstophy,zout)
    509509C
    510510           call histdef(nid_day, "sens_"//clnsurf(nsrf),
    511511     $         "Sensible heat flux "//clnsurf(nsrf), "W/m2", 
    512      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     512     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    513513     $         "ave(X)", zstophy,zout)
    514514c
    515515           call histdef(nid_day, "lat_"//clnsurf(nsrf),
    516516     $         "Latent heat flux "//clnsurf(nsrf), "W/m2", 
    517      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     517     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    518518     $         "ave(X)", zstophy,zout)
    519519C
    520520           call histdef(nid_day, "taux_"//clnsurf(nsrf),
    521521     $         "Zonal wind stress "//clnsurf(nsrf),"Pa",
    522      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     522     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    523523     $         "ave(X)", zstophy,zout)
    524524
    525525           call histdef(nid_day, "tauy_"//clnsurf(nsrf),
    526526     $         "Meridional wind stress "//clnsurf(nsrf), "Pa", 
    527      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     527     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    528528     $         "ave(X)", zstophy,zout)
    529529C
    530530           call histdef(nid_day, "albe_"//clnsurf(nsrf),
    531531     $         "Albedo surf. "//clnsurf(nsrf), "-", 
    532      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     532     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    533533     $         "ave(X)", zstophy,zout)
    534534C
    535535           call histdef(nid_day, "rugs_"//clnsurf(nsrf),
    536536     $         "Rugosite "//clnsurf(nsrf), "m", 
    537      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     537     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    538538     $         "ave(X)", zstophy,zout)
    539539C
     
    552552         CALL histdef(nid_day, "tops0", "CS Solar rad. at TOA",
    553553     .                "W/m2",
    554      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     554     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    555555     .                "ave(X)", zstophy,zout)
    556556c
    557557         CALL histdef(nid_day, "topl0", "CS IR rad. at TOA",
    558558     .                "W/m2",
    559      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     559     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    560560     .                "ave(X)", zstophy,zout)
    561561c
    562562         CALL histdef(nid_day, "sols0", "CS Net Solar rad. at surf.",
    563563     .                "W/m2",
    564      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     564     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    565565     .                "ave(X)", zstophy,zout)
    566566c
    567567         CALL histdef(nid_day, "soll0", "CS Net IR rad. at surface",
    568568     .                "W/m2",
    569      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     569     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    570570     .                "ave(X)", zstophy,zout)
    571571c
    572572         CALL histdef(nid_day, "rneb", "Cloud fraction", "-",
    573      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     573     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    574574     .                "ave(X)", zstophy,zout)
    575575c
    576576         CALL histdef(nid_day, "rnebcon", "Convective Cloud Fraction"
    577577     .                , "-",
    578      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     578     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    579579     .                "ave(X)", zstophy,zout)
    580580c
    581581         CALL histdef(nid_day,"lwcon","Cloud liquid water content",
    582582     .                "kg/kg",
    583      .                iim,jjphy_nb,nhori, klev,1,klev, nvert, 32,
     583     .                iim,jj_nb,nhori, klev,1,klev, nvert, 32,
    584584     .                "ave(X)", zstophy,zout)
    585585c
    586586        CALL histdef(nid_day,"iwcon","Cloud ice water content","kg/kg",
    587      .                iim,jjphy_nb,nhori, klev,1,klev, nvert, 32,
     587     .                iim,jj_nb,nhori, klev,1,klev, nvert, 32,
    588588     .                "ave(X)", zstophy,zout)
    589589c
    590590         CALL histdef(nid_day,"lwp","Cloud water path","kg/m2",
    591      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     591     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    592592     .                "ave(X)", zstophy,zout)
    593593c
    594594         CALL histdef(nid_day,"iwp","Cloud ice water path","kg/m2",
    595      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     595     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    596596     .                "ave(X)", zstophy,zout)
    597597c
    598598        CALL histdef(nid_day,"meantaucld",
    599599     .                "ISCCP mean cloud optical thickness","1",
    600      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     600     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    601601     .                "ave(X)", zstophy,zout)
    602602c
    603603        CALL histdef(nid_day,"cldtau","Cloud optical thickness","1",
    604      .                iim,jjphy_nb,nhori, klev,1,klev, nvert, 32,
     604     .                iim,jj_nb,nhori, klev,1,klev, nvert, 32,
    605605     .                "ave(X)", zstophy,zout)
    606606c
    607607        CALL histdef(nid_day,"cldemi","Cloud optical emissivity","1",
    608      .                iim,jjphy_nb,nhori, klev,1,klev, nvert, 32,
     608     .                iim,jj_nb,nhori, klev,1,klev, nvert, 32,
    609609     .                "ave(X)", zstophy,zout)
    610610c
     
    612612c
    613613         CALL histdef(nid_day, "dtcon", "Convection dT", "K/s",
    614      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     614     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    615615     .                "ave(X)", zstophy,zout)
    616616c
    617617         CALL histdef(nid_day, "dqcon", "Convection dQ", "(kg/kg)/s",
    618      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     618     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    619619     .                "ave(X)", zstophy,zout)
    620620c
    621621         CALL histdef(nid_day, "rh2m", "Relative humidity at 2m", "%",
    622      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     622     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    623623     .                "ave(X)", zstophy,zout)
    624624c
    625625         CALL histdef(nid_day, "qsat2m", "Saturant humidity at 2m", "%",
    626      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     626     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    627627     .                "ave(X)", zstophy,zout)
    628628c
    629629         CALL histdef(nid_day, "tpot",
    630630     .                "Surface air potential temperature", "K",
    631      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     631     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    632632     .                "ave(X)", zstophy,zout)
    633633c
    634634         CALL histdef(nid_day, "tpote",
    635635     .        "Surface air equivalent potential temperature", "K",
    636      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     636     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    637637     .                "ave(X)", zstophy,zout)
    638638c
Note: See TracChangeset for help on using the changeset viewer.