Ignore:
Timestamp:
Jun 4, 2007, 4:34:47 PM (17 years ago)
Author:
Laurent Fairhead
Message:

Merge entre la version V3_conv et le HEAD
YM, JG, LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/ini_bilKP_ave.h

    r684 r766  
    1111         CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
    1212c
    13          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
    14          DO i = 1, iim
    15             zx_lon(i,1) = rlon(i+1)
    16             zx_lon(i,jjmp1) = rlon(i+1)
    17          ENDDO
     13cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
     14cym         DO i = 1, iim
     15cym            zx_lon(i,1) = rlon(i+1)
     16cym            zx_lon(i,jjmp1) = rlon(i+1)
     17cym         ENDDO
    1818         DO ll=1,klev
    1919            znivsig(ll)=float(ll)
    2020         ENDDO
    21          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
    22          write(*,*)'zx_lon = ',zx_lon(:,1)
    23          write(*,*)'zx_lat = ',zx_lat(1,:)
    24          CALL histbeg("histbilKP_ave", iim,zx_lon(:,1), jjmp1,
    25      .                zx_lat(1,:),
    26      .                1,iim,1,jjmp1, itau_phy, zjulian, dtime,
     21cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
     22cym         write(*,*)'zx_lon = ',zx_lon(:,1)
     23cym         write(*,*)'zx_lat = ',zx_lat(1,:)
     24cym         CALL histbeg("histbilKP_ave", iim,zx_lon(:,1), jjmp1,
     25cym     .                zx_lat(1,:),
     26cym     .                1,iim,1,jjmp1, itau_phy, zjulian, dtime,
     27cym     .                nhori, nid_bilKPave)
     28         CALL histbeg_phy("histbilKP_ave", itau_phy, zjulian, dtime,
    2729     .                nhori, nid_bilKPave)
     30
    2831         write(*,*)'Journee ', itau_phy, zjulian
    2932         CALL histvert(nid_bilKPave, "presnivs",
    … …  
    3639         CALL histdef(nid_bilKPave,"ue",
    3740     .   "Zonal energy transport","-",
    38      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     41     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    3942     .                typeval, zsto,zout)
    4043c
    4144         CALL histdef(nid_bilKPave,"ve",
    4245     .   "Merid energy transport","-",
    43      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     46     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    4447     .                typeval, zsto,zout)
    4548c
    4649         CALL histdef(nid_bilKPave,"uq",
    4750     .   "Zonal humidity transport","-",
    48      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     51     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    4952     .                typeval, zsto,zout)
    5053c
    5154         CALL histdef(nid_bilKPave,"vq",
    5255     .   "Merid humidity transport","-",
    53      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     56     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    5457     .                typeval, zsto,zout)
    5558c
    … …  
    5861         CALL histdef(nid_bilKPave,"temp",
    5962     .   "Air temperature","K",
    60      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     63     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    6164     .                typeval, zsto,zout)
    6265c
    6366         CALL histdef(nid_bilKPave,"ovap",
    6467     .   "Specific humidity","Kg/Kg",
    65      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     68     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    6669     .                typeval, zsto,zout)
    6770c
    6871         CALL histdef(nid_bilKPave,"geop",
    6972     .   "Geopotential height","m",
    70      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     73     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    7174     .                typeval, zsto,zout)
    7275c
    7376         CALL histdef(nid_bilKPave,"vitu",
    7477     .   "Zonal wind","m/s",
    75      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     78     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    7679     .                typeval, zsto,zout)
    7780c
    7881         CALL histdef(nid_bilKPave,"vitv",
    7982     .   "Meridional wind","m/s",
    80      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     83     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    8184     .                typeval, zsto,zout)
    8285c
    8386         CALL histdef(nid_bilKPave, "vitw",
    8487     .   "Vertical wind", "m/s",
    85      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     88     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    8689     .                typeval, zsto,zout)
    8790c
    … …  
    8992     .   "Inter-Layer Air pressure",
    9093     .                "Pa",
    91      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     94     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    9295     .                typeval, zsto,zout)
    9396c
    … …  
    9598     .   "Mean-Layer Air pressure",
    9699     .                "Pa",
    97      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     100     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    98101     .                typeval, zsto,zout)
    99102c
    … …  
    101104     .   "Liquid water content",
    102105     .                "kg/kg",
    103      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     106     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    104107     .                typeval, zsto,zout)
    105108c
    106109         CALL histdef(nid_bilKPave, "dtdyn",
    107110     .   "Dynamics dT", "K/s",
    108      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     111     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    109112     .                typeval, zsto,zout)
    110113c
    111114         CALL histdef(nid_bilKPave, "dqdyn",
    112115     .   "Dynamics dQ", "Kg/Kg/s",
    113      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     116     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    114117     .                typeval, zsto,zout)
    115118c
    116119         CALL histdef(nid_bilKPave, "dtcon",
    117120     .   "Convection dT", "K/s",
    118      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     121     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    119122     .                typeval, zsto,zout)
    120123c
    121124         CALL histdef(nid_bilKPave, "ducon",
    122125     .   "Convection du", "m/s2",
    123      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     126     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    124127     .                typeval, zsto,zout)
    125128c
    126129         CALL histdef(nid_bilKPave, "dvcon",
    127130     .   "Convection dv", "m/s2",
    128      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     131     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    129132     .                typeval, zsto,zout)
    130133c
    131134         CALL histdef(nid_bilKPave,"dqcon",
    132135     .   "Convection dQ","Kg/Kg/s",
    133      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     136     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    134137     .                typeval, zsto,zout)
    135138c
    136139         CALL histdef(nid_bilKPave, "dtlsc",
    137140     .   "Condensation dT", "K/s",
    138      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     141     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    139142     .                typeval, zsto,zout)
    140143c
    141144         CALL histdef(nid_bilKPave,"dqlsc",
    142145     .   "Condensation dQ","Kg/Kg/s",
    143      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     146     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    144147     .                typeval, zsto,zout)
    145148c
    146149         CALL histdef(nid_bilKPave,"dtvdf",
    147150     .   "Boundary-layer dT","K/s",
    148      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     151     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    149152     .                typeval, zsto,zout)
    150153c
    … …  
    152155     .   "Boundary-layer dQ",
    153156     .               "Kg/Kg/s",
    154      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     157     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    155158     .                typeval, zsto,zout)
    156159c
    157160         CALL histdef(nid_bilKPave,"dtajs",
    158161     .   "Ajustement sec dT","K/s",
    159      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     162     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    160163     .                typeval, zsto,zout)
    161164c
    … …  
    163166     .   "Ajustement sec dQ",
    164167     .               "Kg/Kg/s",
    165      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     168     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    166169     .                typeval, zsto,zout)
    167170c
    168171         CALL histdef(nid_bilKPave, "dteva",
    169172     .   "Reevaporation dT", "K/s",
    170      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     173     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    171174     .                typeval, zsto,zout)
    172175c
    … …  
    174177     .   "Reevaporation dQ",
    175178     .                "Kg/Kg/s",
    176      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     179     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    177180     .                typeval, zsto,zout)
    178181
    … …  
    180183         CALL histdef(nid_bilKPave, "dtswr",
    181184     .   "SW radiation dT", "K/s",
    182      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     185     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    183186     .                typeval, zsto,zout)
    184187c
    185188         CALL histdef(nid_bilKPave, "dtsw0",
    186189     .   "SW radiation dT", "K/s",
    187      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     190     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    188191     .                typeval, zsto,zout)
    189192c
    190193         CALL histdef(nid_bilKPave, "dtlwr",
    191194     .   "LW radiation dT", "K/s",
    192      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     195     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    193196     .                typeval, zsto,zout)
    194197c
    195198         CALL histdef(nid_bilKPave, "dtlw0",
    196199     .   "LW radiation dT", "K/s",
    197      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     200     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    198201     .                typeval, zsto,zout)
    199202c
    200203         CALL histdef(nid_bilKPave,"duvdf",
    201204     .   "Boundary-layer dU","m/s2",
    202      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     205     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    203206     .                typeval, zsto,zout)
    204207c
    205208         CALL histdef(nid_bilKPave,"dvvdf",
    206209     .   "Boundary-layer dV","m/s2",
    207      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     210     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    208211     .                typeval, zsto,zout)
    209212c
    … …  
    212215         CALL histdef(nid_bilKPave, "duoli",
    213216     .   "Orography dU", "m/s2",
    214      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     217     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    215218     .                typeval, zsto,zout)
    216219c
    217220         CALL histdef(nid_bilKPave, "dvoli",
    218221     .   "Orography dV", "m/s2",
    219      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     222     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    220223     .                typeval, zsto,zout)
    221224c
    … …  
    225228         CALL histdef(nid_bilKPave, "duphy",
    226229     .   "Physiq dU","-",
    227      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     230     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    228231     .                typeval, zsto,zout)
    229232C
    230233         CALL histdef(nid_bilKPave, "dvphy",
    231234     .   "Physiq dV","-",
    232      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     235     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    233236     .                typeval, zsto,zout)
    234237C
    235238         CALL histdef(nid_bilKPave, "dtphy",
    236239     .   "Physiq dT","-",
    237      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     240     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    238241     .                typeval, zsto,zout)
    239242C
    240243         CALL histdef(nid_bilKPave, "dqphy",
    241244     .   "Physiq dQ","-",
    242      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     245     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    243246     .                typeval, zsto,zout)
    244247C
    245248         CALL histdef(nid_bilKPave, "dqlphy",
    246249     .   "Physiq dQl","-",
    247      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     250     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    248251     .                typeval, zsto,zout)
    249252C
Note: See TracChangeset for help on using the changeset viewer.