Ignore:
Timestamp:
Feb 27, 2008, 4:24:26 PM (17 years ago)
Author:
Laurent Fairhead
Message:
  • correction du bug ISCCP (n'ecrire ptop que quand ISCCP est appelé)
  • petite inversion de boucle dans isccp_cloud_types.F pour aller + vite
  • "CFisation" d'un certain nombre d'unités pour les hist*
  • les suggestions de JL pour rugoro

SD
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/ini_histmth.h

    r906 r918  
    4343     .                "once",  zstophy,zout)
    4444c
    45          CALL histdef(nid_mth, "aire", "Grid area", "-",
     45         CALL histdef(nid_mth, "aire", "Grid area", "m2",
    4646     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    4747     .                "once",  zstophy,zout)
    … …  
    9191     .                "ave(X)", zstophy,zout)
    9292c
    93          CALL histdef(nid_mth, "sicf", "Sea-ice fraction", "-",
     93         CALL histdef(nid_mth, "sicf", "Sea-ice fraction", "1",
    9494     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    9595     .                "ave(X)", zstophy,zout)
    … …  
    123123c
    124124         CALL histdef(nid_mth, "ndayrain",
    125      .                "Number of day with rain (liq+sol)", "-",
     125     .                "Number of day with rain (liq+sol)", "days",
    126126     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    127127     .                "inst(X)", zstomth,zout)
    … …  
    294294c Effets des aerosols
    295295c
    296 c     IF (ok_ade.OR.ok_aie) THEN
    297          CALL histdef(nid_mth, "topsad", "ADE at TOA", "W/m2",
    298      .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    299      .                "ave(X)", zstophy,zout)
    300 c
    301          CALL histdef(nid_mth, "solsad", "ADE at sfc", "W/m2",
    302      .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    303      .                "ave(X)", zstophy,zout)
    304 c
    305          CALL histdef(nid_mth, "topsai", "AIE at TOA", "W/m2",
    306      .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    307      .                "ave(X)", zstophy,zout)
    308 c
    309          CALL histdef(nid_mth, "solsai", "AIE at sfc", "W/m2",
    310      .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    311      .                "ave(X)", zstophy,zout)
    312 c     endif
     296         IF (ok_ade.OR.ok_aie) THEN
     297             CALL histdef(nid_mth, "topsad", "ADE at TOA", "W/m2",
     298     .                    iim,jj_nb,nhori, 1,1,1, -99, 32,
     299     .                    "ave(X)", zstophy,zout)
     300c
     301             CALL histdef(nid_mth, "solsad", "ADE at sfc", "W/m2",
     302     .                    iim,jj_nb,nhori, 1,1,1, -99, 32,
     303     .                    "ave(X)", zstophy,zout)
     304c
     305             CALL histdef(nid_mth, "topsai", "AIE at TOA", "W/m2",
     306     .                    iim,jj_nb,nhori, 1,1,1, -99, 32,
     307     .                    "ave(X)", zstophy,zout)
     308c
     309             CALL histdef(nid_mth, "solsai", "AIE at sfc", "W/m2",
     310     .                    iim,jj_nb,nhori, 1,1,1, -99, 32,
     311     .                    "ave(X)", zstophy,zout)
     312         ENDIF
    313313c
    314314c          CALL histdef(nid_mth, "frtu", "Zonal wind stress", "Pa",
    … …  
    419419     .                "ave(X)", zstophy,zout)
    420420c
    421          CALL histdef(nid_mth, "cldl", "Low-level cloudiness", "-",
    422      .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    423      .                "ave(X)", zstophy,zout)
    424 c
    425          CALL histdef(nid_mth, "cldm", "Mid-level cloudiness", "-",
    426      .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    427      .                "ave(X)", zstophy,zout)
    428 c
    429          CALL histdef(nid_mth, "cldh", "High-level cloudiness", "-",
    430      .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    431      .                "ave(X)", zstophy,zout)
    432 c
    433          CALL histdef(nid_mth, "cldt", "Total cloudiness", "-",
     421         CALL histdef(nid_mth, "cldl", "Low-level cloudiness", "1",
     422     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
     423     .                "ave(X)", zstophy,zout)
     424c
     425         CALL histdef(nid_mth, "cldm", "Mid-level cloudiness", "1",
     426     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
     427     .                "ave(X)", zstophy,zout)
     428c
     429         CALL histdef(nid_mth, "cldh", "High-level cloudiness", "1",
     430     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
     431     .                "ave(X)", zstophy,zout)
     432c
     433         CALL histdef(nid_mth, "cldt", "Total cloudiness", "1",
    434434     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    435435     .                "ave(X)", zstophy,zout)
    … …  
    658658     .                "ave(X)", zstophy,zout)
    659659c
    660         CALL histdef(nid_mth, "rneb", "Cloud fraction", "-",
     660        CALL histdef(nid_mth, "rneb", "Cloud fraction", "1",
    661661     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    662662     .                "ave(X)", zstophy,zout)
    663663c
    664664         CALL histdef(nid_mth, "rnebcon", "Convective Cloud Fraction"
    665      .                , "-",
    666      .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    667      .                "ave(X)", zstophy,zout)
    668 c
    669          CALL histdef(nid_mth, "rhum", "Relative humidity", "-",
     665     .                , "1",
     666     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
     667     .                "ave(X)", zstophy,zout)
     668c
     669         CALL histdef(nid_mth, "rhum", "Relative humidity", "1",
    670670     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    671671     .                "ave(X)", zstophy,zout)
    … …  
    917917     .                "once",  zstophy,zout)
    918918c
    919          CALL histdef(nid_mth, "aire", "Grid area", "-",
     919         CALL histdef(nid_mth, "aire", "Grid area", "m2",
    920920     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    921921     .                "once",  zstophy,zout)
    … …  
    10831083     .                "ave(X)", zstorad,zout)
    10841084c
    1085          CALL histdef(nid_mth, "sicf", "Sea-ice fraction", "-",
     1085         CALL histdef(nid_mth, "sicf", "Sea-ice fraction", "1",
    10861086     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    10871087     .                "ave(X)", zstophy,zout)
    … …  
    11151115c
    11161116         CALL histdef(nid_mth, "ndayrain",
    1117      .                "Number of day with rain (liq+sol)", "-",
     1117     .                "Number of day with rain (liq+sol)", "days",
    11181118     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    11191119     .                "inst(X)", zstomth,zout)
    … …  
    14061406     .                "ave(X)", zstophy,zout)
    14071407c
    1408          CALL histdef(nid_mth, "cldl", "Low-level cloudiness", "-",
    1409      .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    1410      .                "ave(X)", zstophy,zout)
    1411 c
    1412          CALL histdef(nid_mth, "cldm", "Mid-level cloudiness", "-",
    1413      .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    1414      .                "ave(X)", zstophy,zout)
    1415 c
    1416          CALL histdef(nid_mth, "cldh", "High-level cloudiness", "-",
    1417      .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    1418      .                "ave(X)", zstophy,zout)
    1419 c
    1420          CALL histdef(nid_mth, "cldt", "Total cloudiness", "%",
     1408         CALL histdef(nid_mth, "cldl", "Low-level cloudiness", "1",
     1409     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
     1410     .                "ave(X)", zstophy,zout)
     1411c
     1412         CALL histdef(nid_mth, "cldm", "Mid-level cloudiness", "1",
     1413     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
     1414     .                "ave(X)", zstophy,zout)
     1415c
     1416         CALL histdef(nid_mth, "cldh", "High-level cloudiness", "1",
     1417     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
     1418     .                "ave(X)", zstophy,zout)
     1419c
     1420         CALL histdef(nid_mth, "cldt", "Total cloudiness", "1",
    14211421     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    14221422     .                "ave(X)", zstophy,zout)
    … …  
    16501650     .                "ave(X)", zstophy,zout)
    16511651c
    1652         CALL histdef(nid_mth, "rneb", "Cloud fraction", "%",
     1652        CALL histdef(nid_mth, "rneb", "Cloud fraction", "1",
    16531653     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    16541654     .                "ave(X)", zstophy,zout)
    16551655c
    16561656         CALL histdef(nid_mth, "rnebcon", "Convective Cloud Fraction"
    1657      .                , "-",
    1658      .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    1659      .                "ave(X)", zstophy,zout)
    1660 c
    1661          CALL histdef(nid_mth, "rhum", "Relative humidity", "-",
     1657     .                , "1",
     1658     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
     1659     .                "ave(X)", zstophy,zout)
     1660c
     1661         CALL histdef(nid_mth, "rhum", "Relative humidity", "1",
    16621662     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    16631663     .                "ave(X)", zstophy,zout)
Note: See TracChangeset for help on using the changeset viewer.