Ignore:
Timestamp:
Jan 27, 2003, 11:21:49 AM (22 years ago)
Author:
lmdzadmin
Message:

Ajout champs niveaux de pression FH
IM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/ini_histmth.h

    r433 r440  
    6060     .                "ave(X)", zsto,zout)
    6161c
    62          CALL histdef(nid_mth, "qsol", "Surface humidity", "mm",
    63      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
    64      .                "ave(X)", zsto,zout)
     62         CALL histdef(nid_mth, "qsurf", "Surface Air humidity", "Kg/Kg",
     63     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     64     .                "ave(X)", zsto,zout)
     65c
     66      if (.not. ok_veget) then
     67         CALL histdef(nid_mth, "qsol", "Soil watter content", "mm",
     68     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     69     .                "ave(X)", zsto,zout)
     70      endif
    6571c
    6672         CALL histdef(nid_mth, "precip", "Precipitation Totale liq+sol",
     
    193199c
    194200           call histdef(nid_mth, "albe_"//clnsurf(nsrf),
    195      $         "Albedo surf. "//clnsurf(nsrf), "W/m2", 
     201     $         "Albedo surf. "//clnsurf(nsrf), "-", 
    196202     $         iim,jjmp1,nhori, 1,1,1, -99, 32,
    197203     $         "ave(X)", zsto,zout)
     
    514520     .                iim,jjmp1,nhori, 1,1,1,-99,
    515521     .                32, "ave(X)", zsto,zout)
    516 
    517 c Champs interpolles sur des niveaux de pression
    518 
    519          CALL histdef(nid_mth, "u850", "Zonal wind 850mb", "m/s",
    520      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
    521      .                "ave(X)", zsto,zout)
    522 
    523          CALL histdef(nid_mth, "v850", "Meridional wind 850mb", "m/s",
    524      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
    525      .                "ave(X)", zsto,zout)
    526 c
    527          CALL histdef(nid_mth, "u500", "Zonal wind 500mb", "m/s",
    528      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
    529      .                "ave(X)", zsto,zout)
    530 
    531          CALL histdef(nid_mth, "v500", "Meridional wind 500mb", "m/s",
    532      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
    533      .                "ave(X)", zsto,zout)
    534 
    535          CALL histdef(nid_mth, "u200", "Zonal wind 200mb", "m/s",
    536      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
    537      .                "ave(X)", zsto,zout)
    538 
    539          CALL histdef(nid_mth, "v200", "Meridional wind 200mb", "m/s",
    540      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
    541      .                "ave(X)", zsto,zout)
    542 
    543          CALL histdef(nid_mth, "phi500","Geopotentiel à 500mb","m2/s2",
    544      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
    545      .                "ave(X)", zsto,zout)
    546 
    547          CALL histdef(nid_mth, "w500", "Vertical wind 500mb", "Pa/s",
    548      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
    549      .                "ave(X)", zsto,zout)
    550 
    551 
    552522c
    553523         CALL histdef(nid_mth, "SWdnSFCclr",
     
    555525     .                iim,jjmp1,nhori, 1,1,1,-99,
    556526     .                32, "ave(X)", zsto,zout)
     527c Champs interpolles sur des niveaux de pression
     528
     529         CALL histdef(nid_mth, "u850", "Zonal wind 850mb", "m/s",
     530     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     531     .                "ave(X)", zsto,zout)
     532
     533         CALL histdef(nid_mth, "v850", "Meridional wind 850mb", "m/s",
     534     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     535     .                "ave(X)", zsto,zout)
     536c
     537         CALL histdef(nid_mth, "u500", "Zonal wind 500mb", "m/s",
     538     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     539     .                "ave(X)", zsto,zout)
     540
     541         CALL histdef(nid_mth, "v500", "Meridional wind 500mb", "m/s",
     542     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     543     .                "ave(X)", zsto,zout)
     544
     545         CALL histdef(nid_mth, "u200", "Zonal wind 200mb", "m/s",
     546     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     547     .                "ave(X)", zsto,zout)
     548
     549         CALL histdef(nid_mth, "v200", "Meridional wind 200mb", "m/s",
     550     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     551     .                "ave(X)", zsto,zout)
     552
     553         CALL histdef(nid_mth, "phi500","Geopotentiel à 500mb","m2/s2",
     554     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     555     .                "ave(X)", zsto,zout)
     556
     557         CALL histdef(nid_mth, "w500", "Vertical wind 500mb", "Pa/s",
     558     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     559     .                "ave(X)", zsto,zout)
     560
     561
    557562      ENDIF
    558563c34EK
Note: See TracChangeset for help on using the changeset viewer.