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

    r766 r776  
    3434c
    3535         CALL histdef(nid_ins, "phis", "Surface geop. height", "-",
    36      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     36     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    3737     .                "once", zsto,zout)
    3838c
    3939         CALL histdef(nid_ins, "aire", "Grid area", "-",
    40      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     40     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    4141     .                "once", zsto,zout)
    4242c
    … …  
    4444c
    4545        CALL histdef(nid_ins, "tsol", "Surface Temperature", "K",
    46      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     46     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    4747     .                "inst(X)", zsto,zout)
    4848c
    4949         CALL histdef(nid_ins, "t2m", "Temperature 2m", "K",
    50      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     50     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    5151     .                "inst(X)", zsto,zout)
    5252c
    5353         CALL histdef(nid_ins, "q2m", "Specific humidity 2m", "Kg/Kg",
    54      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     54     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    5555     .                "inst(X)", zsto,zout)
    5656c
    5757         CALL histdef(nid_ins, "u10m", "Vent zonal 10m", "m/s",
    58      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     58     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    5959     .                "inst(X)", zsto,zout)
    6060c
    6161         CALL histdef(nid_ins, "v10m", "Vent meridien 10m", "m/s",
    62      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     62     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    6363     .                "inst(X)", zsto,zout)
    6464c
    6565        CALL histdef(nid_ins, "psol", "Surface Pressure", "Pa",
    66      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     66     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    6767     .                "inst(X)", zsto,zout)
    6868c
    6969         CALL histdef(nid_ins, "plul", "Large-scale Precip.", "mm/day",
    70      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     70     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    7171     .                "inst(X)", zsto,zout)
    7272c
    7373         CALL histdef(nid_ins, "pluc", "Convective Precip.", "mm/day",
    74      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     74     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    7575     .                "inst(X)", zsto,zout)
    7676c
    7777         CALL histdef(nid_ins, "cdrm", "Momentum drag coef.", "-",
    78      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     78     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    7979     .                "inst(X)", zsto,zout)
    8080c
    8181         CALL histdef(nid_ins, "cdrh", "Heat drag coef.", "-",
    82      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     82     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    8383     .                "inst(X)", zsto,zout)
    8484c
    8585         CALL histdef(nid_ins, "precip", "Precipitation Totale liq+sol",
    8686     .                "kg/(s*m2)",
    87      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     87     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    8888     .                "inst(X)", zsto,zout)
    8989c
    9090         CALL histdef(nid_ins, "snow", "Snow fall", "kg/(s*m2)",
    91      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     91     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    9292     .                "inst(X)", zsto,zout)
    9393c
    … …  
    9797c
    9898         CALL histdef(nid_ins, "topl", "OLR", "W/m2",
    99      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     99     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    100100     .                "inst(X)", zsto,zout)
    101101c
    102102         CALL histdef(nid_ins, "evap", "Evaporation", "kg/(s*m2)",
    103      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     103     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    104104     .                "inst(X)", zsto,zout)
    105105c
    106106         CALL histdef(nid_ins, "sols", "Solar rad. at surf.", "W/m2",
    107      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     107     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    108108     .                "inst(X)", zsto,zout)
    109109c
    110110         CALL histdef(nid_ins, "soll", "IR rad. at surface", "W/m2",
    111      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     111     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    112112     .                "inst(X)", zsto,zout)
    113113c
    114114         CALL histdef(nid_ins, "solldown", "Down. IR rad. at surface",
    115      .                "W/m2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     115     .                "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32,
    116116     .                "inst(X)", zsto,zout)
    117117c
    118118         CALL histdef(nid_ins, "bils", "Surf. total heat flux", "W/m2",
    119      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     119     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    120120     .                "inst(X)", zsto,zout)
    121121c
    122122         CALL histdef(nid_ins, "sens", "Sensible heat flux", "W/m2",
    123      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     123     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    124124     .                "inst(X)", zsto,zout)
    125125c
    126126         CALL histdef(nid_ins, "fder", "Heat flux derivation", "W/m2",
    127      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     127     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    128128     .                "inst(X)", zsto,zout)
    129129c
    130130      CALL histdef(nid_ins, "dtsvdfo", "Boundary-layer dTs(o)", "K/s",
    131      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     131     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    132132     .                "inst(X)", zsto,zout)
    133133c
    134134      CALL histdef(nid_ins, "dtsvdft", "Boundary-layer dTs(t)", "K/s",
    135      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     135     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    136136     .                "inst(X)", zsto,zout)
    137137c
    138138      CALL histdef(nid_ins, "dtsvdfg", "Boundary-layer dTs(g)", "K/s",
    139      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     139     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    140140     .                "inst(X)", zsto,zout)
    141141c
    142142      CALL histdef(nid_ins, "dtsvdfi", "Boundary-layer dTs(g)", "K/s",
    143      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     143     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    144144     .                "inst(X)", zsto,zout)
    145145
    … …  
    148148           call histdef(nid_ins, "pourc_"//clnsurf(nsrf),
    149149     $         "% "//clnsurf(nsrf), "%", 
    150      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     150     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    151151     $         "inst(X)", zsto,zout)
    152152
    153153           call histdef(nid_ins, "fract_"//clnsurf(nsrf),
    154154     $         "Fraction "//clnsurf(nsrf), "1", 
    155      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     155     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    156156     $         "inst(X)", zsto,zout)
    157157
    158158           call histdef(nid_ins, "sens_"//clnsurf(nsrf),
    159159     $         "Sensible heat flux "//clnsurf(nsrf), "W/m2", 
    160      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     160     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    161161     $         "inst(X)", zsto,zout)
    162162c
    163163           call histdef(nid_ins, "tsol_"//clnsurf(nsrf),
    164164     $         "Surface Temperature"//clnsurf(nsrf), "W/m2", 
    165      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     165     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    166166     $         "inst(X)", zsto,zout)
    167167c
    168168           call histdef(nid_ins, "lat_"//clnsurf(nsrf),
    169169     $         "Latent heat flux "//clnsurf(nsrf), "W/m2", 
    170      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     170     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    171171     $         "inst(X)", zsto,zout)
    172172C
    173173           call histdef(nid_ins, "taux_"//clnsurf(nsrf),
    174174     $         "Zonal wind stress"//clnsurf(nsrf),"Pa",
    175      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     175     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    176176     $         "inst(X)", zsto,zout)
    177177
    178178           call histdef(nid_ins, "tauy_"//clnsurf(nsrf),
    179179     $         "Meridional xind stress "//clnsurf(nsrf), "Pa", 
    180      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     180     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    181181     $         "inst(X)", zsto,zout)
    182182c
    183183           call histdef(nid_ins, "albe_"//clnsurf(nsrf),
    184184     $         "Albedo "//clnsurf(nsrf), "-", 
    185      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     185     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    186186     $         "inst(X)", zsto,zout)
    187187c
    188188           call histdef(nid_ins, "rugs_"//clnsurf(nsrf),
    189189     $         "rugosite "//clnsurf(nsrf), "-", 
    190      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     190     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    191191     $         "inst(X)", zsto,zout)
    192192CXXX
    193193         END DO
    194194         CALL histdef(nid_ins, "rugs", "rugosity", "-",
    195      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     195     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    196196     .                "inst(X)", zsto,zout)
    197197
    198198c
    199199         CALL histdef(nid_ins, "albs", "Surface albedo", "-",
    200      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     200     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    201201     .                "inst(X)", zsto,zout)
    202202         CALL histdef(nid_ins, "albslw", "Surface albedo LW", "-",
    203      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     203     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    204204     .                "inst(X)", zsto,zout)
    205205c
    … …  
    208208c HBTM2
    209209         CALL histdef(nid_ins, "s_pblh", "Boundary Layer Height", "m",
    210      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     210     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    211211     .                "inst(X)", zsto,zout)
    212212c
    213213         CALL histdef(nid_ins, "s_pblt", "T at Boundary Layer Height",
    214214     .                "K",
    215      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     215     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    216216     .                "inst(X)", zsto,zout)
    217217c
    218218         CALL histdef(nid_ins, "s_lcl", "Condensation level", "m",
    219      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     219     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    220220     .                "inst(X)", zsto,zout)
    221221c
    222222         CALL histdef(nid_ins, "s_capCL", "Conv avlbl pot ener for
    223223     .                ABL", "J/m2",
    224      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     224     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    225225     .                "inst(X)", zsto,zout)
    226226c
    227227         CALL histdef(nid_ins, "s_oliqCL", "Liq Water in BL", "kg/m2",
    228      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     228     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    229229     .                "inst(X)", zsto,zout)
    230230c
    231231         CALL histdef(nid_ins, "s_cteiCL", "Instability criteria
    232232     .                (ABL)", "K",
    233      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     233     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    234234     .                "inst(X)", zsto,zout)
    235235c
    236236         CALL histdef(nid_ins, "s_therm", "Exces du thermique", "K",
    237      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     237     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    238238     .                "inst(X)", zsto,zout)
    239239c
    240240         CALL histdef(nid_ins, "s_trmb1", "deep_cape(HBTM2)", "J/m2",
    241      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     241     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    242242     .                "inst(X)", zsto,zout)
    243243c
    244244         CALL histdef(nid_ins, "s_trmb2", "inhibition (HBTM2)", "J/m2",
    245      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     245     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    246246     .                "inst(X)", zsto,zout)
    247247c
    248248         CALL histdef(nid_ins, "s_trmb3", "Point Omega (HBTM2)", "m",
    249      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     249     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    250250     .                "inst(X)", zsto,zout)
    251251c
    … …  
    255255c
    256256         CALL histdef(nid_ins, "temp", "Temperature", "K",
    257      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     257     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    258258     .                "inst(X)", zsto,zout)
    259259c
    260260         CALL histdef(nid_ins, "vitu", "Zonal wind", "m/s",
    261      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     261     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    262262     .                "inst(X)", zsto,zout)
    263263c
    264264         CALL histdef(nid_ins, "vitv", "Merid wind", "m/s",
    265      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     265     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    266266     .                "inst(X)", zsto,zout)
    267267c
    268268         CALL histdef(nid_ins, "geop", "Geopotential height", "m",
    269      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     269     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    270270     .                "inst(X)", zsto,zout)
    271271c
    272272         CALL histdef(nid_ins, "pres", "Air pressure", "Pa",
    273      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     273     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    274274     .                "inst(X)", zsto,zout)
    275275c
    276276         CALL histdef(nid_ins, "dtvdf", "Boundary-layer dT", "K/s",
    277      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     277     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    278278     .                "inst(X)", zsto,zout)
    279279c
    280280         CALL histdef(nid_ins, "dqvdf", "Boundary-layer dQ", "Kg/Kg/s",
    281      .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
     281     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    282282     .                "inst(X)", zsto,zout)
    283283c
Note: See TracChangeset for help on using the changeset viewer.