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

    r766 r776  
    4040c
    4141         CALL histdef(nid_hf, "aireTER","Grid area CONT","-",
    42      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     42     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    4343     .                "once", zstohf,zout)
    4444c
    4545         CALL histdef(nid_hf, "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", zstohf,zout)
    4848c
    4949         CALL histdef(nid_hf, "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", zstohf,zout)
    5252c
    … …  
    5454c
    5555         CALL histdef(nid_hf, "t2m", "Temperature 2m", "K",
    56      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     56     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    5757     .                "inst(X)", zstohf,zout)
    5858c
    5959         CALL histdef(nid_hf, "q2m", "Specific humidity", "kg/kg",
    60      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     60     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    6161     .                "inst(X)", zstohf,zout)
    6262c
    6363         CALL histdef(nid_hf, "psol", "Surface Pressure", "Pa",
    64      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     64     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    6565     .                "inst(X)", zstohf,zout)
    6666c
    6767         CALL histdef(nid_hf, "precip", "Precipitation", "kg/(s*m2)",
    68      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     68     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    6969     .                "ave(X)", zstophy,zout)
    7070c
    7171cIM ENSEMBLES BEG
    7272         CALL histdef(nid_hf, "tsol", "Surface Temperature", "K",
    73      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     73     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    7474     .                "inst(X)", zstohf,zout)
    7575c
    7676         CALL histdef(nid_hf, "slp", "Sea Level Pressure", "Pa",
    77      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     77     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    7878     .                "inst(X)", zstohf,zout)
    7979c
    8080         CALL histdef(nid_hf, "u10m", "Vent zonal 10m", "m/s",
    81      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     81     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    8282     .                "inst(X)", zstohf,zout)
    8383c
    8484         CALL histdef(nid_hf, "v10m", "Vent meridien 10m", "m/s",
    85      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     85     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    8686     .                "inst(X)", zstohf,zout)
    8787c
    8888         CALL histdef(nid_hf, "wind10m","10-m wind speed","m/s",
    89      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     89     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    9090     .                "inst(X)", zstohf,zout)
    9191c
    … …  
    105105          CALL histdef(nid_hf, "phi"//bb2,
    106106     .                "Geopotential "//bb2//"mb", "m",
    107      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     107     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    108108     .                "inst(X)", zstohf,zout)
    109109          ENDIF !bb2.EQ."500"
    … …  
    115115c
    116116         CALL histdef(nid_hf, "cldt", "Total cloudiness", "%",
    117      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     117     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    118118     .                "ave(X)", zstophy,zout)
    119119c
    120120         CALL histdef(nid_hf, "SWnetOR",
    121121     .                "Sfce net SW radiation OR", "W/m2",
    122      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     122     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    123123     .                "ave(X)", zstophy,zout)
    124124c
    125125         CALL histdef(nid_hf, "SWdownOR",
    126126     .                "Sfce incident SW radiation OR", "W/m2",
    127      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     127     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    128128     .                "ave(X)", zstophy,zout)
    129129c
    130130         CALL histdef(nid_hf, "LWdownOR",
    131131     .                "Sfce incident LW radiation OR", "W/m2",
    132      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     132     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    133133     .                "ave(X)", zstophy,zout)
    134134      ENDIF !lev_histhf.GE.2
    … …  
    154154          CALL histdef(nid_hf, "t"//bb2,
    155155     .                 "Temperature "//bb2//"mb","K",
    156      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     156     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    157157     .                "inst(X)", zstohf,zout)
    158158c
    … …  
    160160          CALL histdef(nid_hf, "phi"//bb2,
    161161     .                "Geopotential "//bb2//"mb", "m",
    162      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     162     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    163163     .                "inst(X)", zstohf,zout)
    164164          ENDIF
    … …  
    166166          CALL histdef(nid_hf, "q"//bb2,
    167167     .                 "Specific humidity "//bb2//"mb","kg/kg",
    168      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     168     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    169169     .                "inst(X)", zstohf,zout)
    170170c
    171171          CALL histdef(nid_hf, "u"//bb2,
    172172     .                 "Zonal wind "//bb2//"mb","m/s",
    173      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     173     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    174174     .                "inst(X)", zstohf,zout)
    175175c
    176176          CALL histdef(nid_hf, "v"//bb2,
    177177     .                 "Meridional wind "//bb2//"mb","m/s",
    178      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     178     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    179179     .                "inst(X)", zstohf,zout)
    180180c
    … …  
    216216          CALL histdef(nid_hf, "u"//bb2,
    217217     .                 "Zonal wind "//bb2//"mb","m/s",
    218      .         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     218     .         iim,jj_nb,nhori, 1,1,1, -99, 32,
    219219     .         "inst(X)", zstohf,zstohf)
    220220c
    221221          CALL histdef(nid_hf, "v"//bb2,
    222222     .                 "Meridional wind "//bb2//"mb","m/s",
    223      .         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     223     .         iim,jj_nb,nhori, 1,1,1, -99, 32,
    224224     .         "inst(X)", zstohf,zstohf)
    225225c
    … …  
    229229        CALL histdef(nid_hf, "topl",
    230230     .       "Outgoing longwave radiation", "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_hf, "precip","Total precipitation rate",
    235      .       "kg/(s*m2)",iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     235     .       "kg/(s*m2)",iim,jj_nb,nhori, 1,1,1, -99, 32,
    236236     .       "ave(X)", zstophy,zout)
    237237c
    238238        CALL histdef(nid_hf, "slp",
    239239     .       "Mean sea-level pressure", "Pa",
    240      .       iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     240     .       iim,jj_nb,nhori, 1,1,1, -99, 32,
    241241     .       "inst(X)", zstohf,zout)
    242242c
    … …  
    261261          CALL histdef(nid_hf, "t"//bb2,
    262262     .                 "Temperature "//bb2//"mb","K",
    263      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     263     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    264264     .                "inst(X)", zstohf,zstohf)
    265265c
    266266          CALL histdef(nid_hf, "q"//bb2,
    267267     .                 "Specific humidity "//bb2//"mb","kg/kg",
    268      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     268     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    269269     .                "inst(X)", zstohf,zstohf)
    270270c
    … …  
    275275          CALL histdef(nid_hf, "phi"//bb2,
    276276     .                "Geopotential "//bb2//"mb", "m",
    277      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     277     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    278278     .                "inst(X)", zstohf,zstohf)
    279279c
    280280          CALL histdef(nid_hf, "w"//bb2,
    281281     .                 "Vertical motion "//bb2//"mb","Pa/s",
    282      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     282     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    283283     .                "inst(X)", zstohf,zstohf)
    284284         ENDIF !bb2.EQ."500"
    … …  
    288288          CALL histdef(nid_hf, "t"//bb3,
    289289     .                 "Temperature "//bb3//"mb","K",
    290      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     290     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    291291     .                "inst(X)", zstohf,zstohf)
    292292c
    293293          CALL histdef(nid_hf, "u"//bb3,
    294294     .                 "Zonal wind "//bb3//"mb","m/s",
    295      .         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     295     .         iim,jj_nb,nhori, 1,1,1, -99, 32,
    296296     .         "inst(X)", zstohf,zstohf)
    297297c
    298298          CALL histdef(nid_hf, "v"//bb3,
    299299     .                 "Meridional wind "//bb3//"mb","m/s",
    300      .         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     300     .         iim,jj_nb,nhori, 1,1,1, -99, 32,
    301301     .         "inst(X)", zstohf,zstohf)
    302302c
    … …  
    306306c
    307307        CALL histdef(nid_hf, "u10m", "Vent zonal 10m", "m/s",
    308      .               iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     308     .               iim,jj_nb,nhori, 1,1,1, -99, 32,
    309309     .               "inst(X)", zstohf,zout)
    310310c
    311311        CALL histdef(nid_hf, "v10m", "Vent meridien 10m", "m/s",
    312      .               iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     312     .               iim,jj_nb,nhori, 1,1,1, -99, 32,
    313313     .               "inst(X)", zstohf,zout)
    314314c
    315315        CALL histdef(nid_hf, "t2m", "Temperature 2m", "K",
    316      .               iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     316     .               iim,jj_nb,nhori, 1,1,1, -99, 32,
    317317     .               "inst(X)", zstohf,zout)
    318318c
    319319        CALL histdef(nid_hf, "q2m", "Specific humidity", "kg/kg",
    320      .               iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     320     .               iim,jj_nb,nhori, 1,1,1, -99, 32,
    321321     .               "inst(X)", zstohf,zout)
    322322c
    323323        CALL histdef(nid_hf, "psol", "Surface Pressure", "Pa",
    324      .               iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     324     .               iim,jj_nb,nhori, 1,1,1, -99, 32,
    325325     .               "inst(X)", zstohf,zout)
    326326c
    327327        CALL histdef(nid_hf, "cldt", "Total cloudiness", "%",
    328      .               iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     328     .               iim,jj_nb,nhori, 1,1,1, -99, 32,
    329329     .               "ave(X)", zstohf,zout)
    330330c
    331331        CALL histdef(nid_hf, "taux",
    332332     $         "Zonal wind stress","Pa",
    333      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     333     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    334334     $         "ave(X)", zstohf,zout)
    335335c
    336336        CALL histdef(nid_hf, "tauy",
    337337     $         "Meridional wind stress ", "Pa",
    338      $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     338     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
    339339     $         "ave(X)", zstohf,zout)
    340340c
    341341        CALL histdef(nid_hf, "prw", "Precipitable water", "kg/m2",
    342      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     342     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    343343cIM 090904  .                "ave(X)", zstohf,zout)
    344344     .                "ave(X)", zstophy,zout)
    345345c
    346346        CALL histdef(nid_hf, "sens", "Sensible heat flux", "W/m2",
    347      .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     347     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    348348cIM 090904  .                "ave(X)", zstohf,zout)
    349349     .                "ave(X)", zstophy,zout)
    350350c
    351351        CALL histdef(nid_hf, "flat", "Latent heat flux", "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)", zstohf,zout)
    354354c
    355355c       CALL histdef(nid_hf, "snow_mass", "Snow Mass", "kg/m2",
    356 c    .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     356c    .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    357357c    .                "ave(X)", zstohf,zout)
    358358c
    359359        CALL histdef(nid_hf, "SWdnSFC", "SWdn at surface","W/m2",
    360      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     360     .                iim,jj_nb,nhori, 1,1,1,-99,
    361361     .                32, "ave(X)", zstohf,zout)
    362362c
    363363        CALL histdef(nid_hf, "SWupSFC", "SWup at surface","W/m2",
    364      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     364     .                iim,jj_nb,nhori, 1,1,1,-99,
    365365     .                32, "ave(X)", zstohf,zout)
    366366c
    367367        CALL histdef(nid_hf,"LWdnSFC","Down. IR rad. at surface",
    368      .                "W/m2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     368     .                "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32,
    369369     .                "ave(X)", zstohf,zout)
    370370c
    371371        CALL histdef(nid_hf,"LWupSFC","Upwd. IR rad. at surface",
    372      .                "W/m2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
     372     .                "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32,
    373373     .                "ave(X)", zstohf,zout)
    374374c
    375375        CALL histdef(nid_hf, "SWdnTOA", "SWdn 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)", zstohf,zout)
    378378c
    379379        CALL histdef(nid_hf, "SWupTOA", "SWup at TOA","W/m2",
    380      .                iim,jjphy_nb,nhori, 1,1,1,-99,
     380     .                iim,jj_nb,nhori, 1,1,1,-99,
    381381     .                32, "ave(X)", zstohf,zout)
    382382c
    … …  
    384384         CALL histdef(nid_hf, "PV"//ctetaSTD(k),
    385385     $               "Vorticite potentielle "//ctetaSTD(k)//"K",
    386      $               "1/(Pa*s)",iim,jjphy_nb,nhori, 1,1,1, -99,
     386     $               "1/(Pa*s)",iim,jj_nb,nhori, 1,1,1, -99,
    387387     $                 32, "inst(X)", zstohf,zout)
    388388        ENDDO !k=1, nbteta
Note: See TracChangeset for help on using the changeset viewer.