-
Notifications
You must be signed in to change notification settings - Fork 0
/
Evapotranspiration.cpp
114 lines (79 loc) · 1.24 KB
/
Evapotranspiration.cpp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
#include "pch.h"
#include "Evapotranspiration.h"
void Evapotranspiration::SetParmameter(const Parameter* parameter)
{
KC = parameter->m_KC;
LM = parameter->m_LM;
C = parameter->m_C;
}
void Evapotranspiration::SetState(const State* state)
{
WU = state->m_WU;
WL = state->m_WL;
P = state->m_P;
EM = state->m_EM;
}
void Evapotranspiration::UpdateState(State* state)
{
state->m_EP = EP;
state->m_E = E;
state->m_EU = EU;
state->m_EL = EL;
state->m_ED = ED;
}
void Evapotranspiration::calculate()
{
//三层蒸散发计算
EP = KC * EM; //计算流域蒸发能力
if (P + WU >= EP)
{
EU = EP;
EL = 0;
ED = 0;
}
else
{
EU = P + WU;
if (WL >= C * LM)
{
EL = (EP - EU) * WL / LM;
ED = 0;
}
else
{
if (WL >= C * (EP - EU))
{
EL = C * (EP - EU);
ED = 0;
}
else
{
EL = WL;
ED = C * (EP - EU) - EL;
}
}
}
//计算总的蒸散发量
E = EU + EL + ED;
}
Evapotranspiration::Evapotranspiration(double kc, double lm, double c,
double wu, double wl, double ep,
double e, double eu, double el, double ed,
double p, double em)
{
KC = kc;
LM = lm;
C = c;
WU = wu;
WL = wl;
EP = ep;
E = e;
EU = eu;
EL = el;
ED = ed;
P = p;
EM = em;
}
Evapotranspiration::~Evapotranspiration()
{
}