ramp_ghg_stab.h

来自「CCSM Research Tools: Community Atmospher」· C头文件 代码 · 共 367 行 · 第 1/2 页

! Declarations

      integer ntim
      parameter(ntim=231)
      integer yrdata(ntim)      ! yearly data values
      real(r8)    co2(ntim)         ! input co2   in ppmv 
      real(r8)    ch4(ntim)         ! input ch4   in ppbv
      real(r8)    n2o(ntim)         ! input n2o   in ppbv 
      real(r8)    f11(ntim)         ! input cfc11 in pptv
      real(r8)    f12(ntim)         ! input cfc12 in pptv
      real(r8)    adj(ntim)         ! input adjustment factor for f11 and f12

! Ouput type declaration

      character*64 ramp_type
      data ramp_type / 'RAMP_GHG: using ramp_stab_ghg data' /
      logical ramp_write
      data ramp_write / .true. /

! Input data values

      data yrdata / &
           1870  ,1871  ,1872  ,1873  ,1874  , &
           1875  ,1876  ,1877  ,1878  ,1879  , &
           1880  ,1881  ,1882  ,1883  ,1884  , &
           1885  ,1886  ,1887  ,1888  ,1889  , &
           1890  ,1891  ,1892  ,1893  ,1894  , &
           1895  ,1896  ,1897  ,1898  ,1899  , &
           1900  ,1901  ,1902  ,1903  ,1904  , &
           1905  ,1906  ,1907  ,1908  ,1909  , &
           1910  ,1911  ,1912  ,1913  ,1914  , &
           1915  ,1916  ,1917  ,1918  ,1919  , &
           1920  ,1921  ,1922  ,1923  ,1924  , &
           1925  ,1926  ,1927  ,1928  ,1929  , &
           1930  ,1931  ,1932  ,1933  ,1934  , &
           1935  ,1936  ,1937  ,1938  ,1939  , &
           1940  ,1941  ,1942  ,1943  ,1944  , &
           1945  ,1946  ,1947  ,1948  ,1949  , &
           1950  ,1951  ,1952  ,1953  ,1954  , &
           1955  ,1956  ,1957  ,1958  ,1959  , &
           1960  ,1961  ,1962  ,1963  ,1964  , &
           1965  ,1966  ,1967  ,1968  ,1969  , &
           1970  ,1971  ,1972  ,1973  ,1974  , &
           1975  ,1976  ,1977  ,1978  ,1979  , &
           1980  ,1981  ,1982  ,1983  ,1984  , &
           1985  ,1986  ,1987  ,1988  ,1989  , &
           1990  ,1991  ,1992  ,1993  ,1994  , &
           1995  ,1996  ,1997  ,1998  ,1999  , &
           2000  ,2001  ,2002  ,2003  ,2004  , &
           2005  ,2006  ,2007  ,2008  ,2009  , &
           2010  ,2011  ,2012  ,2013  ,2014  , &
           2015  ,2016  ,2017  ,2018  ,2019  , &
           2020  ,2021  ,2022  ,2023  ,2024  , &
           2025  ,2026  ,2027  ,2028  ,2029  , &
           2030  ,2031  ,2032  ,2033  ,2034  , &
           2035  ,2036  ,2037  ,2038  ,2039  , &
           2040  ,2041  ,2042  ,2043  ,2044  , &
           2045  ,2046  ,2047  ,2048  ,2049  , &
           2050  ,2051  ,2052  ,2053  ,2054  , &
           2055  ,2056  ,2057  ,2058  ,2059  , &
           2060  ,2061  ,2062  ,2063  ,2064  , &
           2065  ,2066  ,2067  ,2068  ,2069  , &
           2070  ,2071  ,2072  ,2073  ,2074  , &
           2075  ,2076  ,2077  ,2078  ,2079  , &
           2080  ,2081  ,2082  ,2083  ,2084  , &
           2085  ,2086  ,2087  ,2088  ,2089  , &
           2090  ,2091  ,2092  ,2093  ,2094  , &
           2095  ,2096  ,2097  ,2098  ,2099  , &
           2100/                             
!
! data co2 stab is are alternative co2 mixing ratios
! for emission stabilization scenario 
!
       data co2 / &            !STAB ppmv   &
       289.263, 289.416, 289.577, 289.745, 289.919, &
       290.102, 290.293, 290.491, 290.696, 290.909, &
       291.129, 291.355, 291.587, 291.824, 292.066, &
       292.313, 292.563, 292.815, 293.071, 293.328, &
       293.586, 293.843, 294.098, 294.350, 294.598, &
       294.842, 295.082, 295.320, 295.558, 295.797, &
       296.038, 296.284, 296.535, 296.794, 297.062, &
       297.338, 297.620, 297.910, 298.204, 298.504, &
       298.806, 299.111, 299.419, 299.729, 300.040, &
       300.352, 300.666, 300.980, 301.294, 301.608, &
       301.923, 302.237, 302.551, 302.863, 303.172, &
       303.478, 303.779, 304.075, 304.366, 304.651, &
       304.930, 305.206, 305.478, 305.746, 306.013, &
       306.280, 306.546, 306.815, 307.087, 307.365, &
       307.650, 307.943, 308.246, 308.560, 308.887, &
       309.228, 309.584, 309.956, 310.344, 310.749, &
       311.172, 311.614, 312.077, 312.561, 313.068, &
       313.599, 314.154, 314.737, 315.347, 315.984, &
       316.646, 317.328, 318.026, 318.742, 319.489, &
       320.282, 321.133, 322.045, 323.021, 324.060, &
       325.155, 326.299, 327.484, 328.698, 329.933, &
       331.194, 332.499, 333.854, 335.254, 336.690, &
       338.150, 339.628, 341.125, 342.650, 344.206, &
       345.797, 347.397, 348.980, 350.551, 352.100, &
       353.636, 355.197, 356.755, 358.286, 359.850, &
       361.499, 363.231, 365.026, 366.880, 368.792, &
       370.763, 372.759, 374.753, 376.750, 378.751, &
       380.759, 382.785, 384.845, 386.929, 389.041, &
       391.178, 393.340, 395.524, 397.729, 399.954, &
       402.198, 404.458, 406.732, 409.021, 411.321, &
       413.631, 415.949, 418.274, 420.604, 422.938, &
       425.273, 427.608, 429.942, 432.273, 434.599, &
       436.918, 439.230, 441.534, 443.826, 446.106, &
       448.374, 450.626, 452.862, 455.082, 457.283, &
       459.464, 461.625, 463.765, 465.881, 467.974, &
       470.043, 472.088, 474.106, 476.096, 478.060, &
       480.000, 481.904, 483.783, 485.632, 487.451, &
       489.240, 490.999, 492.727, 494.424, 496.089, &
       497.724, 499.326, 500.897, 502.437, 503.945, &
       505.422, 506.868, 508.282, 509.665, 511.017, &
       512.338, 513.629, 514.888, 516.118, 517.318, &
       518.489, 519.630, 520.743, 521.827, 522.882, &
       523.910, 524.911, 525.883, 526.830, 527.750, &
       528.644, 529.513, 530.356, 531.175, 531.970, &
       532.740, 533.488, 534.213, 534.915, 535.595, &
       536.253, 536.891, 537.507, 538.103, 538.679, &
       539.235/

      data ch4 / &                        ! ppbv &
       901.355, 903.486, 905.637, 907.809, 910.001,  &
       912.213, 914.445, 916.697, 918.969, 921.262,  &
       923.575, 925.908, 928.261, 930.635, 933.029,  &
       935.443, 937.877, 940.331, 942.805, 945.300,  &
       947.815, 950.350, 952.905, 955.481, 958.077,  &
       960.693, 963.329, 965.985, 968.661, 971.358,  &
       974.075, 976.812, 979.569, 982.347, 985.145,  &
       987.963, 990.801, 993.659, 996.537, 999.436,  &
       1002.355, 1005.294, 1008.253, 1011.233, 1014.233,  &
       1017.253, 1020.293, 1023.353, 1026.433, 1029.534,  &
       1032.655, 1035.796, 1038.957, 1042.139, 1045.341,  &
       1048.563, 1051.805, 1055.067, 1058.349, 1061.652,  &
       1064.975, 1068.318, 1071.681, 1075.065, 1078.469,  &
       1081.893, 1085.337, 1088.801, 1092.285, 1095.790,  &
       1099.325, 1102.968, 1106.796, 1110.819, 1115.037,  &
       1119.451, 1124.060, 1128.865, 1133.864, 1139.059,  &
       1144.450, 1150.035, 1155.816, 1161.792, 1167.964,  &
       1174.414, 1181.578, 1189.860, 1199.279, 1209.776,  &
       1221.286, 1233.749, 1247.103, 1261.286, 1276.237,  &
       1291.892, 1308.192, 1325.074, 1342.476, 1360.336,  &
       1378.593, 1397.185, 1416.049, 1435.126, 1454.351,  &
       1473.665, 1493.005, 1512.308, 1531.514, 1550.561,  &
       1569.302, 1587.137, 1603.569, 1618.667, 1632.584,  &
       1645.476, 1657.498, 1668.806, 1679.553, 1689.896,  &
       1700.000, 1709.000, 1717.000, 1724.000, 1730.000,  &
       1735.000, 1739.000, 1743.152, 1747.614, 1752.391,  &
       1757.491, 1762.919, 1768.681, 1774.780, 1781.221,  &
       1788.006, 1795.137, 1802.615, 1810.442, 1818.614,  &
       1827.131, 1835.989, 1845.183, 1854.708, 1864.558,  &
       1874.723, 1885.194, 1895.961, 1907.012, 1918.333,  &
       1929.910, 1941.727, 1953.768, 1966.015, 1978.450,  &
       1991.053, 2003.804, 2016.683, 2029.667, 2042.736,  &
       2055.866, 2069.037, 2082.226, 2095.410, 2108.568,  &
       2121.678, 2134.719, 2147.670, 2160.512, 2173.224,  &
       2185.790, 2198.190, 2210.409, 2222.431, 2234.242,  &
       2245.828, 2257.177, 2268.278, 2279.121, 2289.698,  &
       2300.000, 2310.021, 2319.757, 2329.201, 2338.352,  &
       2347.206, 2355.763, 2364.021, 2371.981, 2379.645,  &
       2387.012, 2394.088, 2400.873, 2407.373, 2413.590,  &
       2419.530, 2425.198, 2430.598, 2435.737, 2440.621,  &
       2445.255, 2449.646, 2453.800, 2457.725, 2461.426,  &
       2464.910, 2468.184, 2471.255, 2474.129, 2476.813,  &
       2479.314, 2481.638, 2483.792, 2485.782, 2487.614,  &
       2489.295, 2490.829, 2492.224, 2493.484, 2494.616,  &
       2495.624, 2496.514, 2497.292, 2497.961, 2498.526,  &
       2498.994, 2499.366, 2499.649, 2499.847, 2499.962,  &
       2500.000/

      data n2o / &                       ! ppbv 
       281.351, 281.459, 281.568, 281.676, 281.784,  &
       281.892, 282.000, 282.108, 282.216, 282.324,  &
       282.432, 282.541, 282.649, 282.757, 282.865,  &
       282.973, 283.081, 283.189, 283.297, 283.405,  &
       283.514, 283.622, 283.730, 283.838, 283.946,  &
       284.054, 284.162, 284.270, 284.378, 284.486,  &
       284.595, 284.703, 284.811, 284.919, 285.027,  &
       285.135, 285.243, 285.351, 285.459, 285.568,  &
       285.676, 285.784, 285.892, 286.000, 286.108,  &
       286.216, 286.324, 286.432, 286.541, 286.649,  &
       286.757, 286.865, 286.973, 287.081, 287.189,  &
       287.297, 287.405, 287.514, 287.622, 287.730,  &