Ignore:
Timestamp:
Aug 17, 2006, 5:41:51 PM (18 years ago)
Author:
Laurent Fairhead
Message:

Inclusion des modifs de Y. Meurdesoif pour la version V3
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/V3_test/libf/phylmd/ini_histmthNMC.h

    r684 r704  
    1212         CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
    1313c
    14          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
    15          DO i = 1, iim
    16             zx_lon(i,1) = rlon(i+1)
    17             zx_lon(i,jjmp1) = rlon(i+1)
    18          ENDDO
     14cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
     15cym         DO i = 1, iim
     16cym            zx_lon(i,1) = rlon(i+1)
     17cym            zx_lon(i,jjmp1) = rlon(i+1)
     18cym         ENDDO
    1919         DO ll=1,klev
    2020            znivsig(ll)=float(ll)
    2121         ENDDO
    22          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
    23          CALL histbeg("histNMC.nc", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
    24      .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
     22cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
     23cym         CALL histbeg("histNMC.nc", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
     24cym     .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
     25cym     .                 nhori, nid_nmc)
     26
     27         CALL histbeg_phy("histNMC",itau_phy, zjulian, dtime,
    2528     .                 nhori, nid_nmc)
    2629c
    … …  
    3437          CALL histdef(nid_nmc, "temp",
    3538     .                 "Temperature","K",
    36      .                iim,jjmp1,nhori, nlevSTD,1,nlevSTD, nvert, 32,
     39     .                iim,jjphy_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
    3740     .                "inst(X)", zout,zout)
    3841c
    3942         CALL histdef(nid_nmc, "phi",
    4043     .                "Geopotential", "m",
    41      .                iim,jjmp1,nhori, nlevSTD,1,nlevSTD, nvert, 32,
     44     .                iim,jjphy_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
    4245     .                "inst(X)", zout,zout)
    4346c
    4447          CALL histdef(nid_nmc, "q",
    4548     .                 "Specific humidity","kg/kg",
    46      .                iim,jjmp1,nhori, nlevSTD,1,nlevSTD, nvert, 32,
     49     .                iim,jjphy_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
    4750     .                "inst(X)", zout,zout)
    4851c
    4952         CALL histdef(nid_nmc, "rh",
    5053     .                 "Relative humidity", "%",
    51      .                iim,jjmp1,nhori, nlevSTD,1,nlevSTD, nvert, 32,
     54     .                iim,jjphy_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
    5255     .                "inst(X)", zout,zout)
    5356c
    5457          CALL histdef(nid_nmc, "u",
    5558     .                 "Zonal wind","m/s",
    56      .                iim,jjmp1,nhori, nlevSTD,1,nlevSTD, nvert, 32,
     59     .                iim,jjphy_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
    5760     .                "inst(X)", zout,zout)
    5861c
    5962          CALL histdef(nid_nmc, "v",
    6063     .                 "Meridional wind","m/s",
    61      .                iim,jjmp1,nhori, nlevSTD,1,nlevSTD, nvert, 32,
     64     .                iim,jjphy_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
    6265     .                "inst(X)", zout,zout)
    6366c
    … …  
    7376          CALL histdef(nid_nmc, "temp",
    7477     .                 "Temperature","K",
    75      .                iim,jjmp1,nhori, nlevSTD,1,nlevSTD, nvert, 32,
     78     .                iim,jjphy_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
    7679     .                "inst(X)", zout,zout)
    7780c
    7881         CALL histdef(nid_nmc, "phi",
    7982     .                "Geopotential ", "m",
    80      .                iim,jjmp1,nhori, nlevSTD,1,nlevSTD, nvert, 32,
     83     .                iim,jjphy_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
    8184     .                "inst(X)", zout,zout)
    8285c
    8386          CALL histdef(nid_nmc, "q",
    8487     .                 "Specific humidity","kg/kg",
    85      .                iim,jjmp1,nhori, nlevSTD,1,nlevSTD, nvert, 32,
     88     .                iim,jjphy_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
    8689     .                "inst(X)", zout,zout)
    8790c
    8891         CALL histdef(nid_nmc, "rh",
    8992     .                 "Relative humidity", "%",
    90      .                iim,jjmp1,nhori, nlevSTD,1,nlevSTD, nvert, 32,
     93     .                iim,jjphy_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
    9194     .                "inst(X)", zout,zout)
    9295c
    9396          CALL histdef(nid_nmc, "u",
    9497     .                 "Zonal wind","m/s",
    95      .                iim,jjmp1,nhori, nlevSTD,1,nlevSTD, nvert, 32,
     98     .                iim,jjphy_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
    9699     .                "inst(X)", zout,zout)
    97100c
    98101          CALL histdef(nid_nmc, "v",
    99102     .                 "Meridional wind","m/s",
    100      .                iim,jjmp1,nhori, nlevSTD,1,nlevSTD, nvert, 32,
     103     .                iim,jjphy_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
    101104     .                "inst(X)", zout,zout)
    102105c
    103106          CALL histdef(nid_nmc, "w",
    104107     .                 "Vertical motion","Pa/s",
    105      .                iim,jjmp1,nhori, nlevSTD,1,nlevSTD, nvert, 32,
     108     .                iim,jjphy_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
    106109     .                "inst(X)", zout,zout)
    107110c
    … …  
    116119          CALL histdef(nid_nmc, "psbg",
    117120     .         "Pressure sfce below ground","%",
    118      .         iim,jjmp1,nhori, nlevSTD,1,nlevSTD, nvert, 32,
     121     .         iim,jjphy_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
    119122     .         "inst(X)", zout,zout)
    120123c
    121124          CALL histdef(nid_nmc, "uv",
    122125     .         "uv ",
    123      .         "m2/s2",iim,jjmp1,nhori, nlevSTD,1,nlevSTD, nvert, 32,
     126     .         "m2/s2",iim,jjphy_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
    124127     .         "inst(X)", zout,zout)
    125128c
    126129          CALL histdef(nid_nmc, "vq",
    127130     .         "vq ",
    128      .         "m/s * (kg/kg)",iim,jjmp1,nhori,
     131     .         "m/s * (kg/kg)",iim,jjphy_nb,nhori,
    129132     .          nlevSTD,1,nlevSTD, nvert, 32,
    130133     .         "inst(X)", zout,zout)
    … …  
    132135          CALL histdef(nid_nmc, "vT",
    133136     .         "vT ",
    134      .         "mK/s",iim,jjmp1,nhori,
     137     .         "mK/s",iim,jjphy_nb,nhori,
    135138     .          nlevSTD,1,nlevSTD, nvert, 32,
    136139     .         "inst(X)", zout,zout)
    … …  
    138141          CALL histdef(nid_nmc, "wq",
    139142     .         "wq ",
    140      .         "(Pa/s)*(kg/kg)",iim,jjmp1,nhori,
     143     .         "(Pa/s)*(kg/kg)",iim,jjphy_nb,nhori,
    141144     .          nlevSTD,1,nlevSTD, nvert, 32,
    142145     .         "inst(X)", zout,zout)
    … …  
    144147          CALL histdef(nid_nmc, "vphi",
    145148     .         "vphi ",
    146      .         "m2/s",iim,jjmp1,nhori,
     149     .         "m2/s",iim,jjphy_nb,nhori,
    147150     .          nlevSTD,1,nlevSTD, nvert, 32,
    148151     .         "inst(X)", zout,zout)
    … …  
    150153          CALL histdef(nid_nmc, "wT",
    151154     .         "wT ",
    152      .         "K*Pa/s",iim,jjmp1,nhori,
     155     .         "K*Pa/s",iim,jjphy_nb,nhori,
    153156     .          nlevSTD,1,nlevSTD, nvert, 32,
    154157     .         "inst(X)", zout,zout)
    … …  
    156159          CALL histdef(nid_nmc, "uxu",
    157160     .         "u2 ",
    158      .         "m2/s2",iim,jjmp1,nhori,
     161     .         "m2/s2",iim,jjphy_nb,nhori,
    159162     .          nlevSTD,1,nlevSTD, nvert, 32,
    160163     .         "inst(X)", zout,zout)
    … …  
    162165          CALL histdef(nid_nmc, "vxv",
    163166     .         "v2 ",
    164      .         "m2/s2",iim,jjmp1,nhori,
     167     .         "m2/s2",iim,jjphy_nb,nhori,
    165168     .          nlevSTD,1,nlevSTD, nvert, 32,
    166169     .         "inst(X)", zout,zout)
    … …  
    168171          CALL histdef(nid_nmc, "TxT",
    169172     .         "T2 ",
    170      .         "K2",iim,jjmp1,nhori,
     173     .         "K2",iim,jjphy_nb,nhori,
    171174     .          nlevSTD,1,nlevSTD, nvert, 32,
    172175     .         "inst(X)", zout,zout)
Note: See TracChangeset for help on using the changeset viewer.