Ignore:
Timestamp:
May 4, 2005, 5:11:29 PM (19 years ago)
Author:
Laurent Fairhead
Message:

Modifications faites à la physique pour la rendre parallele YM
Une branche de travail LMDZ4_par_0 a été créée provisoirement afin de tester
les modifs pleinement avant leurs inclusions dans le tronc principal
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/ini_histday.h

    r633 r634  
    1313         CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
    1414c
    15          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
    16          DO i = 1, iim
    17             zx_lon(i,1) = rlon(i+1)
    18             zx_lon(i,jjmp1) = rlon(i+1)
    19          ENDDO
     15cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
     16cym         DO i = 1, iim
     17cym            zx_lon(i,1) = rlon(i+1)
     18cym            zx_lon(i,jjmp1) = rlon(i+1)
     19cym         ENDDO
    2020         DO ll=1,klev
    2121            znivsig(ll)=float(ll)
    2222         ENDDO
    23          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
    24          CALL histbeg("histday", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
    25      .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
    26      .                 nhori, nid_day)
     23cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
     24cym         CALL histbeg("histday", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
     25cym     .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
     26cym     .                 nhori, nid_day)
     27
     28         CALL histbeg_phy("histday",itau_phy, zjulian, dtime,
     29     .                    nhori, nid_day)
     30
    2731         write(*,*)'Journee ', itau_phy, zjulian
    2832         CALL histvert(nid_day, "presnivs", "Vertical levels", "mb",
    … …  
    3236c
    3337         CALL histdef(nid_day, "phis", "Surface geop. height", "-",
    34      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     38     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    3539     .                "once", zsto,zout)
    3640c
    3741         CALL histdef(nid_day, "aire", "Grid area", "-",
    38      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     42     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    3943     .                "once", zsto,zout)
    4044c
    4145         CALL histdef(nid_day, "contfracATM","% sfce ter+lic ","-",
    42      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     46     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    4347     .                "once", zsto,zout)
    4448c
    4549         CALL histdef(nid_day, "contfracOR","% sfce terre OR", "-",
    46      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     50     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    4751     .                "once", zsto,zout)
    4852c
    … …  
    5054c
    5155         CALL histdef(nid_day, "tsol", "Surface Temperature", "K",
    52      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     56     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    5357     .                "ave(X)", zsto,zout)
    5458c
    5559         CALL histdef(nid_day, "t2m", "Temperature 2m", "K",
    56      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     60     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    5761     .                "ave(X)", zsto,zout)
    5862c
    … …  
    6266         CALL histdef(nid_day, "t2m_min", "Temp. 2m min.",
    6367     .                "K",
    64      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     68     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    6569     .                t2mincels, zsto,zout)
    6670c
    6771         CALL histdef(nid_day, "t2m_max", "Temp. 2m max.",
    6872     .                "K",
    69      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     73     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    7074     .                t2maxcels, zsto,zout)
    7175c
    7276         CALL histdef(nid_day, "plul", "Large-scale Precip.",
    7377     .   "kg/(s*m2)",
    74      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     78     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    7579     .                "ave(X)", zsto,zout)
    7680c
    7781         CALL histdef(nid_day, "pluc", "Convective Precip.",
    7882     .   "kg/(s*m2)",
    79      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     83     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    8084     .                "ave(X)", zsto,zout)
    8185c
    8286         CALL histdef(nid_day, "snowl", "Solid Large-scale Precip.",
    8387     .   "kg/(s*m2)",
    84      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     88     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    8589     .                "ave(X)", zsto,zout)
    8690c
    … …  
    8892         CALL histdef(nid_day, "snowc", "Solid Convective Precip.",
    8993     .   "kg/(s*m2)",
    90      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     94     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    9195     .                "ave(X)", zsto,zout)
    9296         ENDIF !snowc=0.
    9397c
    9498         CALL histdef(nid_day, "flat", "Latent heat flux", "W/m2",
    95      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     99     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    96100     .                "ave(X)", zsto,zout)
    97101c
    98102         CALL histdef(nid_day, "sicf", "Sea-ice fraction", "-",
    99      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     103     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    100104     .                "inst(X)", zsto1,zout)
    101105c
    102106         CALL histdef(nid_day, "q2m", "Specific humidity", "kg/kg",
    103      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     107     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    104108     .                "ave(X)", zsto,zout)
    105109c
    106110         CALL histdef(nid_day, "u10m", "Vent zonal 10m", "m/s",
    107      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     111     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    108112     .                "ave(X)", zsto,zout)
    109113c
    110114         CALL histdef(nid_day, "v10m", "Vent meridien 10m", "m/s",
    111      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     115     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    112116     .                "ave(X)", zsto,zout)
    113117c
    114118         CALL histdef(nid_day, "wind10m","10-m wind speed","m/s",
    115      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     119     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    116120     .                "ave(X)", zsto,zout)
    117121c
    118122         CALL histdef(nid_day, "wind10max", "10-m wind speed max.",
    119123     .                "m/s",
    120      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     124     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    121125     .                t2maxcels, zsto,zout)
    122126c
    123127         CALL histdef(nid_day, "psol", "Surface Pressure", "Pa",
    124      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     128     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    125129     .                "ave(X)", zsto,zout)
    126130c
    127131         CALL histdef(nid_day, "precip","Precipitation Totale liq+sol"
    128132     .                , "kg/(s*m2)",
    129      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     133     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    130134     .                "ave(X)", zsto,zout)
    131135c
    132136         CALL histdef(nid_day, "snowf", "Snow fall", "kg/(s*m2)",
    133      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     137     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    134138     .                "ave(X)", zsto,zout)
    135139c
    136140         CALL histdef(nid_day, "snow_mass", "Snow Mass", "kg/m2",
    137      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     141     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    138142     .                "ave(X)", zsto,zout)
    139143c
    140144         CALL histdef(nid_day, "evap", "Evaporation", "kg/(s*m2)",
    141      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     145     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    142146     .                "ave(X)", zsto,zout)
    143147c
    144148         CALL histdef(nid_day, "tops", "Solar rad. at TOA", "W/m2",
    145      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     149     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    146150     .                "ave(X)", zsto,zout)
    147151c
    148152         CALL histdef(nid_day, "topl", "IR rad. at TOA", "W/m2",
    149      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     153     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    150154     .                "ave(X)", zsto,zout)
    151155c
    152156         CALL histdef(nid_day, "sols", "Net Solar rad. at surf.",
    153157     .                "W/m2",
    154      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     158     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    155159     .                "ave(X)", zsto,zout)
    156160c
    157161         CALL histdef(nid_day, "soll", "Net IR rad. at surface", "W/m2",
    158      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     162     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    159163     .                "ave(X)", zsto,zout)
    160164c
    161165         CALL histdef(nid_day, "cldl", "Low-level cloudiness", "-",
    162      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     166     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    163167     .                "ave(X)", zsto,zout)
    164168c
    165169         CALL histdef(nid_day, "cldm", "Mid-level cloudiness", "-",
    166      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     170     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    167171     .                "ave(X)", zsto,zout)
    168172c
    169173         CALL histdef(nid_day, "cldh", "High-level cloudiness", "-",
    170      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     174     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    171175     .                "ave(X)", zsto,zout)
    172176c
    173177         CALL histdef(nid_day, "cldt", "Total cloudiness", "-",
    174      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     178     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    175179     .                "ave(X)", zsto,zout)
    176180c
    177181         CALL histdef(nid_day, "cldq", "Cloud liquid water path",
    178182     .                "kg/m2",
    179      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     183     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    180184     .                "ave(X)", zsto,zout)
    181185c
    182186         CALL histdef(nid_day, "prw", "Precipitable water", "kg/m2",
    183      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     187     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    184188     .                "ave(X)", zsto,zout)
    185189c
    … …  
    189193          CALL histdef(nid_day, "u"//clev(k),
    190194     .                 "Zonal wind"//clev(k)//"mb","m/s",
    191      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     195     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    192196     .                "ave(X)", zsto,zout)
    193197c
    194198          CALL histdef(nid_day, "v"//clev(k),
    195199     .                 "Meridional wind"//clev(k)//"mb","m/s",
    196      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     200     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    197201     .                "ave(X)", zsto,zout)
    198202c
    … …  
    200204c
    201205         CALL histdef(nid_day, "w500", "Verical wind 500mb", "m/s",
    202      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     206     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    203207     .                "ave(X)", zsto,zout)
    204208c
    205209         CALL histdef(nid_day,"phi500", "Geopotentiel a 500mb","m2/s2",
    206      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     210     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    207211     .                "ave(X)", zsto,zout)
    208212c
    209213         CALL histdef(nid_day, "slp", "Sea Level Pressure", "Pa",
    210      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     214     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    211215     .                "ave(X)", zsto,zout)
    212216c
    213217         CALL histdef(nid_day, "cape_max", "CAPE max.",
    214218     .                "J/kg",
    215      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     219     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    216220     .                capemaxcels, zsto,zout)
    217221c
    218222         CALL histdef(nid_day, "solldown", "Down. IR rad. at surface",
    219      .                "W/m2", iim,jjmp1,nhori, 1,1,1, -99, 32,
     223     .                "W/m2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    220224     .                "ave(X)", zsto,zout)
    221225c
    222226         CALL histdef(nid_day, "sens", "Sensible heat flux", "W/m2",
    223      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     227     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    224228     .                "ave(X)", zsto,zout)
    225229c
    226230         CALL histdef(nid_day, "SWdnSFC", "SWdn at surface","W/m2",
    227      .                iim,jjmp1,nhori, 1,1,1,-99,
     231     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    228232     .                32, "ave(X)", zsto,zout)
    229233c
    … …  
    233237c
    234238         CALL histdef(nid_day, "bils", "Surf. total heat flux", "W/m2",
    235      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     239     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    236240     .                "ave(X)", zsto,zout)
    237241c
    238242         CALL histdef(nid_day, "fder", "Heat flux derivation", "W/m2/K",
    239      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     243     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    240244     .                "ave(X)", zsto,zout)
    241245c
    … …  
    251255c
    252256         CALL histdef(nid_day, "temp", "Air temperature", "K",
    253      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     257     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    254258     .                "ave(X)", zsto,zout)
    255259c
    256260         CALL histdef(nid_day, "ovap", "Specific humidity", "kg/kg",
    257      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     261     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    258262     .                "ave(X)", zsto,zout)
    259263c
    260264         CALL histdef(nid_day, "geop", "Geopotential height", "m",
    261      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     265     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    262266     .                "ave(X)", zsto,zout)
    263267c
    264268         CALL histdef(nid_day, "vitu", "Zonal wind", "m/s",
    265      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     269     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    266270     .                "ave(X)", zsto,zout)
    267271c
    268272         CALL histdef(nid_day, "vitv", "Meridional wind", "m/s",
    269      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     273     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    270274     .                "ave(X)", zsto,zout)
    271275c
    272276         CALL histdef(nid_day, "vitw", "Vertical wind", "Pa/s",
    273      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     277     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    274278     .                "ave(X)", zsto,zout)
    275279c
    276280         CALL histdef(nid_day, "pres", "Air pressure", "Pa",
    277      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     281     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    278282     .                "ave(X)", zsto,zout)
    279283c
    … …  
    291295c
    292296         CALL histdef(nid_day, "SWupTOA", "SWup at TOA","W/m2",
    293      .                iim,jjmp1,nhori, 1,1,1,-99,
     297     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    294298     .                32, "ave(X)", zsto,zout)
    295299c
    296300         CALL histdef(nid_day, "SWupSFC", "SWup at surface","W/m2",
    297      .                iim,jjmp1,nhori, 1,1,1,-99,
     301     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    298302     .                32, "ave(X)", zsto,zout)
    299303c
    300304         CALL histdef(nid_day, "SWdnTOA", "SWdn at TOA","W/m2",
    301      .                iim,jjmp1,nhori, 1,1,1,-99,
     305     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    302306     .                32, "ave(X)", zsto,zout)
    303307c
    304308         CALL histdef(nid_day, "SWupTOAclr",
    305309     .                "SWup clear sky at TOA","W/m2",
    306      .                iim,jjmp1,nhori, 1,1,1,-99,
     310     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    307311     .                32, "ave(X)", zsto,zout)
    308312
    309313         CALL histdef(nid_day, "SWupSFCclr",
    310314     .                "SWup clear sky at surface","W/m2",
    311      .                iim,jjmp1,nhori, 1,1,1,-99,
     315     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    312316     .                32, "ave(X)", zsto,zout)
    313317
    314318         CALL histdef(nid_day, "SWdnTOAclr",
    315319     .                "SWdn clear sky at TOA","W/m2",
    316      .                iim,jjmp1,nhori, 1,1,1,-99,
     320     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    317321     .                32, "ave(X)", zsto,zout)
    318322
    319323         CALL histdef(nid_day, "SWdnSFCclr",
    320324     .                "SWdn clear sky at surface","W/m2",
    321      .                iim,jjmp1,nhori, 1,1,1,-99,
     325     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    322326     .                32, "ave(X)", zsto,zout)
    323327c
    … …  
    329333c
    330334         CALL histdef(nid_day, "tter", "Surface Temperature", "K",
    331      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     335     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    332336     .                "ave(X)", zsto,zout)
    333337c
    334338         CALL histdef(nid_day, "tlic", "Surface Temperature", "K",
    335      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     339     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    336340     .                "ave(X)", zsto,zout)
    337341c
    338342         CALL histdef(nid_day, "toce", "Surface Temperature", "K",
    339      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     343     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    340344     .                "ave(X)", zsto,zout)
    341345c
    342346         CALL histdef(nid_day, "tsic", "Surface Temperature", "K",
    343      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     347     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    344348     .                "ave(X)", zsto,zout)
    345349c
    346350         CALL histdef(nid_day, "t2mter", "Temp.terre 2m", "K",
    347      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     351     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    348352     .                "ave(X)", zsto,zout)
    349353c
    350354         CALL histdef(nid_day, "t2mlic", "Temp.lic 2m", "K",
    351      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     355     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    352356     .                "ave(X)", zsto,zout)
    353357c
    354358         CALL histdef(nid_day, "t2moce", "Temp.oce 2m", "K",
    355      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     359     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    356360     .                "ave(X)", zsto,zout)
    357361c
    358362         CALL histdef(nid_day, "t2msic", "Temp.sic 2m", "K",
    359      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     363     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    360364     .                "ave(X)", zsto,zout)
    361365c
    362366         CALL histdef(nid_day, "t2mter_min", "Temp.terre 2m min.",
    363367     .                "K",
    364      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     368     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    365369     .                t2mincels, zsto,zout)
    366370c
    367371         CALL histdef(nid_day, "t2mter_max", "Temp.terre 2m max.",
    368372     .                "K",
    369      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     373     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    370374     .                t2maxcels, zsto,zout)
    371375c
    372376         CALL histdef(nid_day, "u10mter", "Vent zonal ter 10m", "m/s",
    373      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     377     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    374378     .                "ave(X)", zsto,zout)
    375379c
    376380         CALL histdef(nid_day, "u10mlic", "Vent zonal lic 10m", "m/s",
    377      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     381     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    378382     .                "ave(X)", zsto,zout)
    379383c
    380384         CALL histdef(nid_day, "u10moce", "Vent zonal oce 10m", "m/s",
    381      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     385     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    382386     .                "ave(X)", zsto,zout)
    383387c
    384388         CALL histdef(nid_day, "u10msic", "Vent zonal sic 10m",
    385      .                 "m/s",iim,jjmp1,nhori, 1,1,1, -99, 32,
     389     .                 "m/s",iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    386390     .                "ave(X)", zsto,zout)
    387391c
    388392         CALL histdef(nid_day, "v10mter", "Vent meridien ter 10m",
    389      .                "m/s", iim,jjmp1,nhori, 1,1,1, -99, 32,
     393     .                "m/s", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    390394     .                "ave(X)", zsto,zout)
    391395c
    392396         CALL histdef(nid_day, "v10mlic", "Vent meridien lic 10m",
    393      .                 "m/s",iim,jjmp1,nhori, 1,1,1, -99, 32,
     397     .                 "m/s",iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    394398     .                "ave(X)", zsto,zout)
    395399c
    396400         CALL histdef(nid_day, "v10moce", "Vent meridien oce 10m",
    397      .                 "m/s",iim,jjmp1,nhori, 1,1,1, -99, 32,
     401     .                 "m/s",iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    398402     .                "ave(X)", zsto,zout)
    399403c
    400404         CALL histdef(nid_day, "v10msic", "Vent meridien sic 10m",
    401      .                 "m/s",iim,jjmp1,nhori, 1,1,1, -99, 32,
     405     .                 "m/s",iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    402406     .                "ave(X)", zsto,zout)
    403407c
    … …  
    406410           call histdef(nid_day, "pourc_"//clnsurf(nsrf),
    407411     $         "Fraction"//clnsurf(nsrf), "W/m2", 
    408      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     412     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    409413     $         "ave(X)", zsto,zout)
    410414C
    411415           call histdef(nid_day, "tsol_"//clnsurf(nsrf),
    412416     $         "Fraction"//clnsurf(nsrf), "W/m2", 
    413      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     417     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    414418     $         "ave(X)", zsto,zout)
    415419C
    416420           call histdef(nid_day, "sens_"//clnsurf(nsrf),
    417421     $         "Sensible heat flux "//clnsurf(nsrf), "W/m2", 
    418      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     422     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    419423     $         "ave(X)", zsto,zout)
    420424c
    421425           call histdef(nid_day, "lat_"//clnsurf(nsrf),
    422426     $         "Latent heat flux "//clnsurf(nsrf), "W/m2", 
    423      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     427     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    424428     $         "ave(X)", zsto,zout)
    425429C
    426430           call histdef(nid_day, "taux_"//clnsurf(nsrf),
    427431     $         "Zonal wind stress"//clnsurf(nsrf),"Pa",
    428      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     432     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    429433     $         "ave(X)", zsto,zout)
    430434
    431435           call histdef(nid_day, "tauy_"//clnsurf(nsrf),
    432436     $         "Meridional xind stress "//clnsurf(nsrf), "Pa", 
    433      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     437     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    434438     $         "ave(X)", zsto,zout)
    435439C
    436440           call histdef(nid_day, "albe_"//clnsurf(nsrf),
    437441     $         "Albedo surf. "//clnsurf(nsrf), "W/m2", 
    438      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     442     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    439443     $         "ave(X)", zsto,zout)
    440444C
    441445           call histdef(nid_day, "rugs_"//clnsurf(nsrf),
    442446     $         "Latent heat flux "//clnsurf(nsrf), "W/m2", 
    443      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     447     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    444448     $         "ave(X)", zsto,zout)
    445449C
Note: See TracChangeset for help on using the changeset viewer.