-
Notifications
You must be signed in to change notification settings - Fork 0
/
stepGHG.m
22 lines (19 loc) · 903 Bytes
/
stepGHG.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
function [CH4c, N2Oc, SF6c, CFC11c, CFC12c] = stepGHG(CH4c0,CH4e,N2Oc0,N2Oe,SF6c0,SF6e,CFC11c0,CFC11e,CFC12c0,CFC12e)
%function [CH4c, N2Oc, SF6c, CFC11c, CFC12c] = stepGHG(CH4c0,CH4e,N2Oc0,N2Oe,SF6c0,SF6e,CFC11c0,CFC11e,CFC12c0,CFC12e)
%The Climate Framework for Uncertainty, Negotiation and Distribution
%version 4.0-matlab-global
%
%This function is part of FUND 4.0 MG
%It updates non-CO2 greenhouse gas concentrations
%
%Richard Tol, 8 August 2014
%This code is protected by the MIT License
global CH41750 CH4life CH4convert
global N2O1750 N2Olife N2Oconvert
global SF61750 SF6life SF6convert
global CFC11life CFC12life
CH4c = (1-CH4life)*CH4c0 + CH4life*CH41750 + CH4convert*CH4e;
N2Oc = (1-N2Olife)*N2Oc0 + N2Olife*N2O1750 + N2Oconvert*N2Oe;
SF6c = (1-SF6life)*SF6c0 + SF6life*SF61750 + SF6convert*SF6e;
CFC11c = (1-CFC11life)*CFC11c0 + CFC11e;
CFC12c = (1-CFC12life)*CFC12c0 + CFC12e;