-
Notifications
You must be signed in to change notification settings - Fork 8
/
Copy pathcalc_just_erc_laf.ncl
198 lines (162 loc) · 7.04 KB
/
calc_just_erc_laf.ncl
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
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
/;
2018, Copyright University Corporation for Atmospheric Research
;/
/;
w1d,w10d,w100d,w1000d,wherb,wwood,depth,sg1d,sg10d,sg100d,sg1000d,sgherb,sgwood,extmoi,hd are read in according to the fuel model
fm1, fm10, fm100, fm1000 are the same as mc1, mc10, mc100, mc1000, the percent moisture content of 1-, 10-, 100-, 1000-hour timelag
erc is energy release component
;/
;load "retrieve_constants.ncl"
;function calc_just_erc(w1d,w10d,w100d,w1000d,wherb,wwood,mcherb,depth,sg1d,sg10d,sg100d,sg1000d,sgherb,sgwood,fm1,fm10,fm100,fm1000,fmwood,extmoi,hd)
function calc_just_erc_nfdrs(mcherb,fm1,fm10,fm100,fm1000,fmwood,fuel_model)
local const_in, stdl, rhodl, sdl, etasdl, fctcur, wherbc, w1dp, wherbp, wtotd, wtotl, wtot, w1n, w10n, wherbn, wwoodn, wtotln, rhobed, rhobar, betbar, hnu1, hnu10, hnu100, hnherb, hnwood, wrat, fmff, extliv, sa1, sa10, sa100, sherbc, sawood, sadead, salive, fct1, fct10, fct100, fcherb, fcwood, fcded, fcliv, sgbrd, sgbrl, sgbrt, fct1e, fct10e, fct100e, fct1000e, fwoode, fhrbce, fcdede, fclice, wdedne, wlivne, sgbrde, sgbrle, sgbrte, betope, gmamxe, ade, gmapme, wftmde, wtfmle, dedrte, livrte, etamde, etamle, ire, tau, erc
begin
/;
constants = retrieve_constants(fuel_model)
w1d=constants(0)
w10d=constants(1)
w100d=constants(2)
w1000d=constants(3)
wwood=constants(4)
wherb=constants(5)
sg1d=constants(6)
sg10d=constants(7)
sg100d=constants(8)
sg1000d=constants(9)
sgwood=constants(10)
sgherb=constants(11)
hd=constants(12)
extmoi=constants(14)
depth=constants(15)
;/
const_in = addfile("nfdrs_NAM-22i_fuelmods.nc", "r")
w1d = const_in->w1
w10d = const_in->w10
w100d = const_in->w100
w1000d = const_in->w1000
wwood = const_in->wwood
wherb = const_in->wherb
sg1d = const_in->sg1
sg10d = const_in->sg10
sg100d = const_in->sg100
sg1000d = const_in->sg1000
sgwood = const_in->sgwood
sgherb = const_in->sgherb
hd = const_in->hd
extmoi = const_in->mxd
depth = const_in->depth
c1 = 0.046
w1d = w1d * c1
w10d = w10d * c1
w100d = w100d * c1
w1000d = w1000d * c1
wherb = wherb * c1
wwood = wwood * c1 ; conversions from T/Ac to lbs/ft^2
stdl = 0.0555 ; used in place of std and stl, since both have the same value
rhodl = 32. ; used in place of rhod and rhol, since both have the same value
sdl = 0.01 ; sd and sl
etasdl = 0.174 * sdl^(-.19)
fctcur = 1.33 - 0.0111 * mcherb
fctcur = fctcur > 0.
fctcur = fctcur < 1.
wherbc = fctcur * wherb ;wherbc is never initialized as this in the MATLAB code, but is a useful intermediary variable
w1dp = w1d + wherbc
wherbp = wherb - wherbc ;wherbp here is wherbc in MATLAB code
wtotd = w1dp + w10d + w100d + w1000d
wtotl = wwood + wherbp
wtot = wtotd + wtotl
;compute net fuel loading
w1n = w1dp * (1. - stdl)
w10n = w10d * (1. - stdl)
w100n = w100d - (1. - stdl)
wherbn = wherbp * (1. - stdl) ;wherbn is from paper. In MATLAB code this is the variable whernc
wwoodn = wwood * (1. - stdl)
wtotln = wtotl * (1. - stdl)
rhobed = (wtot - w1000d) / depth ;bulk density of fuel bed
rhobar = ((wtotl * rhodl) + (wtotd * rhodl)) / wtot ; particle density of weighted fuel
betbar = rhobed / rhobar ; packing ratio
;if wtotln .gt. 0
;heating numbers
hnu1 = w1n * exp(-138. / sg1d)
hnu10 = w10n * exp(-138.0 / where(sg10d .ne. 0.0, sg10d, fm100@_FillValue))
hnu10 = where(sg10d .ne. 0.0, hnu10, 0.0)
hnu100 = w100n * exp( -138. / where(sg100d .ne. 0.0, sg100d, fm100@_FillValue))
hnu100 = where(sg100d .ne. 0.0, hnu100, 0.0)
hnherb = -500. / where(sgherb .ne. 0.0, sgherb, fm100@_FillValue)
hnherb = where(sgherb .eq. 0.0, 0.0, hnherb) ;get the parts that were set to missing back to 0 for the logic in the where statement to work
hnherb = where(hnherb .lt. -180.218, 0., wherbn * exp(-500. / where(sgherb .ne. 0, sgherb, fm100@_FillValue)))
hnherb = where(sgherb .eq. 0.0, 0.0, hnherb)
/;
if((-500. / sgherb) .lt. -180.218) then
hnherb = conform_dims(dimsizes(wherbn), 0., -1)
else
hnherb = wherbn * exp(-500. / sgherb)
end if
;/
hnwood = -500. / where(sgwood .ne. 0.0, sgwood, fm100@_FillValue)
hnwood = where(sgwood .eq. 0.0, 0.0, hnwood)
hnwood = where(hnwood .lt. -180.218, 0., wwoodn * exp(-500. / where(sgwood .ne. 0, sgwood, fm100@_FillValue)))
hnwood = where(sgwood .eq. 0.0, 0.0, hnwood)
wrat = (hnu1 + hnu10 + hnu100) / where((hnherb + hnwood) .ne. 0.0, hnherb + hnwood, fm100@_FillValue)
wrat = where((hnherb + hnwood) .eq. 0., 0., wrat)
fmff = ((fm1 * hnu1) + (fm10 * hnu10) + (fm100 * hnu100)) / (hnu1 + hnu10 + hnu100) ; fine dead fuel moisture content
extliv = where(wtotln .gt. 0., ((2.9 * wrat * (1 - fmff / extmoi) - 0.226) * 100) > extmoi, 0.) ; moisture of extinction of the dead fuels from the fuel model
;weighting factors for rate-of-spread by surface area
sa1 = (w1dp / rhodl) * sg1d
sa10 = (w10d / rhodl) * sg10d
sa100 = (w100d / rhodl) * sg100d
sherbc = (wherbp / rhodl) * sgherb
sawood = (wwood / rhodl) * sgwood
; total surface area of dead and live fuel categories by surface area
sadead = sa1 + sa10 + sa100
salive = sawood + sherbc
; weighting factors for dead and live fuel classes by surface area
fct1 = sa1 / sadead
fct10 = sa10 / sadead
fct100 = sa100 / sadead
fcherb = where(wtotl .gt. 0., sherbc / salive, 0.)
fcwood = where(wtotl .gt. 0., sawood / salive, 0.)
;weighting factors for dead, live fuel categories
fcded = sadead / (sadead + salive)
fcliv = salive / (sadead + salive)
; weighted surface area to volume ratios of dead and live fuel categories
sgbrd = fct1 * sg1d + fct10 * sg10d + fct100 *sg100d
sgbrl = fcwood * sgwood + fcherb * sgherb
;characteristic surface area to volume ratio
sgbrt = sgbrd * fcded + sgbrl * fcliv
;weighting factors for dead and live fuel classes by load
fct1e = w1dp / wtotd
fct10e = w10d / wtotd
fct100e = w100d / wtotd
fct1000e = w1000d / wtotd
fwoode = where(wtotl .gt. 0, wwood / wtotl, 0)
fhrbce = where(wtotl .gt. 0, wherbp / wtotl, 0)
;weighting factors for dead and live fuel categories by load
fcdede = wtotd / wtot
fclive = wtotl / wtot
wdedne = wtotd * (1 - stdl)
wlivne = wtotl * (1 - stdl)
sgbrde = (fct1e * sg1d) + (fct10e * sg10d) + (fct100e * sg100d) + (fct1000e * sg1000d)
sgbrle = (fwoode * sgwood) + (fhrbce * sgherb)
sgbrte = sgbrde * fcdede + sgbrle * fclive
betope = 3.348 * (sgbrte^(-0.8189))
gmamxe = (sgbrte^1.5) / (495 + 0.0594 * (sgbrte^1.5)) ; weighted max reaction velocity of loading
ade = 133 * (sgbrte^(-0.7913))
gmapme = gmamxe * ((betbar / betope)^ade) * exp(ade * (1 - (betbar/ betope))) ;weighted optimum reaction velocity of loading (gmaope)
;weighted moisture content of dead, live fuel categories
wtfmde = fct1e * fm1 + fct10e * fm10 + fct100e * fm100 + fct1000e * fm1000
wtfmle = fwoode * fmwood + fhrbce * mcherb
dedrte = wtfmde / extmoi
livrte = wtfmle / extliv
etamde = 1 - 2 * dedrte + 1.5 * (dedrte^2) - 0.5 * (dedrte^3)
etamde = etamde < 1
etamde = etamde > 0
etamle = 1 - 2 * livrte + 1.5 * (livrte^2) - 0.5 * (livrte^3)
etamle = etamle < 1
etamle = etamle > 0
ire = fcdede * wdedne * hd * etasdl * etamde ;note in MATLAB code there is an hd and hl, but they are equal
ire = gmapme * (ire + (fclive * wlivne * hd * etasdl * etamle))
tau = 384. / sgbrt
erc = 0.04 * ire * tau
return(tofloat(erc))
end