Ignore:
Timestamp:
Nov 13, 2007, 3:37:28 PM (17 years ago)
Author:
lsce
Message:

ACo : ajout clef CPP (COUPLE + AER) pour le modele couple avec les aerosol (IPSL_ESM_V1)

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r860 r864  
    832832         ENDIF
    833833C
     834#if defined(INCA_AER) && defined(CPP_COUPLE)
     835         CALL histdef(nid_mth, "tau", "cloud opt thickness", "-",
     836     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
     837     .                "ave(X)", zstophy,zout)
     838         CALL histdef(nid_mth, "CCM1", "CCM1", "",
     839     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
     840     .                "ave(X)", zstophy,zout)
     841         CALL histdef(nid_mth, "CCM2", "CCM2", "",
     842     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
     843     .                "ave(X)", zstophy,zout)
     844         CALL histdef(nid_mth, "taupi", "cloud opt thickn. (pi)", "-",
     845     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
     846     .                "ave(X)", zstophy,zout)
     847         CALL histdef(nid_mth, "cldemi", "emissivite IR", "-",
     848     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
     849     .                "ave(X)", zstophy,zout)
     850         CALL histdef(nid_mth, "SWTOAAS_ZERO", "?", "?",
     851     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
     852     .                "ave(X)", zstophy,zout)
     853         CALL histdef(nid_mth, "SWTOAAS_AER", "?", "?",
     854     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
     855     .                "ave(X)", zstophy,zout)
     856         CALL histdef(nid_mth, "SWTOAAS_NAT", "?", "?",
     857     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
     858     .                "ave(X)", zstophy,zout)
     859         CALL histdef(nid_mth, "SWTOAAS_AD", "?", "?",
     860     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
     861     .                "ave(X)", zstophy,zout)
     862         CALL histdef(nid_mth, "SWTOAAS_AI", "?", "?",
     863     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
     864     .                "ave(X)", zstophy,zout)
     865         CALL histdef(nid_mth, "SWTOACS_ZERO", "?", "?",
     866     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
     867     .                "ave(X)", zstophy,zout)
     868         CALL histdef(nid_mth, "SWTOACS_AER", "?", "?",
     869     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
     870     .                "ave(X)", zstophy,zout)
     871         CALL histdef(nid_mth, "SWTOACS_AD", "?", "?",
     872     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
     873     .                "ave(X)", zstophy,zout)
     874         CALL histdef(nid_mth, "SWTOACS_NAT", "?", "?",
     875     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
     876     .                "ave(X)", zstophy,zout)
     877#endif
     878#ifndef INCA
    834879         if (nqmax.GE.3) THEN
    835880           DO iq=3,nqmax
    … …  
    840885           ENDDO
    841886         ENDIF
     887#endif
    842888c
    843889      ENDIF !lev_histmth.GE.4
    … …  
    17391785         ENDIF
    17401786C
     1787#if defined(INCA_AER) && defined(CPP_COUPLE)
     1788         CALL histdef(nid_mth, "tau", "cloud opt thickness", "-",
     1789     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
     1790     .                "ave(X)", zstophy,zout)
     1791         CALL histdef(nid_mth, "CCM1", "CCM1", "",
     1792     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
     1793     .                "ave(X)", zstophy,zout)
     1794         CALL histdef(nid_mth, "CCM2", "CCM2", "",
     1795     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
     1796     .                "ave(X)", zstophy,zout)
     1797         CALL histdef(nid_mth, "taupi", "cloud opt thickn. (pi)", "-",
     1798     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
     1799     .                "ave(X)", zstophy,zout)
     1800         CALL histdef(nid_mth, "cldemi", "emissivite IR", "-",
     1801     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
     1802     .                "ave(X)", zstophy,zout)
     1803         CALL histdef(nid_mth, "SWTOAAS_ZERO", "?", "?",
     1804     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
     1805     .                "ave(X)", zstophy,zout)
     1806         CALL histdef(nid_mth, "SWTOAAS_AER", "?", "?",
     1807     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
     1808     .                "ave(X)", zstophy,zout)
     1809         CALL histdef(nid_mth, "SWTOAAS_NAT", "?", "?",
     1810     .        iim,jj_nb,nhori, 1,1,1, -99, 32,
     1811     .        "ave(X)", zstophy,zout)
     1812         CALL histdef(nid_mth, "SWTOAAS_AD", "?", "?",
     1813     .        iim,jj_nb,nhori, 1,1,1, -99, 32,
     1814     .        "ave(X)", zstophy,zout)
     1815         CALL histdef(nid_mth, "SWTOAAS_AI", "?", "?",
     1816     .        iim,jj_nb,nhori, 1,1,1, -99, 32,
     1817     .        "ave(X)", zstophy,zout)
     1818         CALL histdef(nid_mth, "SWTOACS_ZERO", "?", "?",
     1819     .        iim,jj_nb,nhori, 1,1,1, -99, 32,
     1820     .        "ave(X)", zstophy,zout)
     1821         CALL histdef(nid_mth, "SWTOACS_AER", "?", "?",
     1822     .        iim,jj_nb,nhori, 1,1,1, -99, 32,
     1823     .        "ave(X)", zstophy,zout)
     1824         CALL histdef(nid_mth, "SWTOACS_AD", "?", "?",
     1825     .        iim,jj_nb,nhori, 1,1,1, -99, 32,
     1826     .        "ave(X)", zstophy,zout)
     1827         CALL histdef(nid_mth, "SWTOACS_NAT", "?", "?",
     1828     .        iim,jj_nb,nhori, 1,1,1, -99, 32,
     1829     .        "ave(X)", zstophy,zout)
     1830#endif
     1831#ifndef INCA
    17411832         if (nqmax.GE.3) THEN
    17421833           DO iq=3,nqmax
    … …  
    17471838             ENDDO
    17481839           ENDIF
     1840#endif
    17491841
    17501842      ENDIF !lev_histmth.GE.4
Note: See TracChangeset for help on using the changeset viewer.