Copy of IceVol2
 Share
The version of the browser you are using is no longer supported. Please upgrade to a supported browser.Dismiss

View only
 
 
ABCDEFGH
1
dateIce Valuhttp://ocean.dmi.dk/arctic/icethickness/txt/IceVol.txtyearMax.ice.vol
2
2003.002742.16E+1320072.50E+13
3
2003.0054792.17E+1320082.44E+13
4
2003.0082192.19E+1320092.46E+13
5
2003.0109592.20E+1320102.56E+13
6
2003.0136992.20E+1320112.40E+13
7
2003.0164382.21E+1320122.35E+13
8
2003.0191782.22E+1320132.46E+13
9
2003.0219182.23E+1320142.50E+13
10
2003.0246582.24E+1320152.44E+13
11
2003.0273972.25E+1320162.30E+13
12
2003.0301372.26E+1320172.30E+13
13
2003.0328772.27E+1320182.43E+13
14
2003.0356162.28E+1320192.37E+13
15
2003.0383562.29E+13
16
2003.0410962.30E+13
17
2003.0438362.31E+13
18
2003.0465752.32E+13
19
2003.0493152.33E+13
20
2003.0520552.33E+13
21
2003.0547952.34E+13
22
2003.0575342.34E+13
23
2003.0602742.35E+13
24
2003.0630142.36E+13
25
2003.0657532.36E+13
26
2003.0684932.37E+13
27
2003.0712332.37E+13
Max.ice.vol extraction in R
28
2003.0739732.38E+13library(lubridate)
29
2003.0767122.38E+13
setwd("C:/Users/R°/Desktop/")
30
2003.0794522.39E+13
ice.vol <- read.csv("ice.vol.csv")
31
2003.0821922.40E+13
ice.vol <- ice.vol[3:(nrow(ice.vol)-2),] # starting from 2007-04-21
32
2003.0849322.41E+13
33
2003.0876712.42E+13
ice.vol$date <- date_decimal(ice.vol$date)
34
2003.0904112.43E+13head(ice.vol)
35
2003.0931512.44E+13
36
2003.095892.44E+13
max.ice.vol <- NULL
37
2003.098632.45E+13for(i in 0:12){
38
2003.101372.46E+13if(i==0){
39
2003.104112.47E+13
max.ice.vol <- rbind(max.ice.vol,
40
2003.1068492.48E+13
max(ice.vol$ice.vol[(1):(100)]))
41
2003.1095892.48E+13} else if(i==12){
42
2003.1123292.49E+13
max.ice.vol <- rbind(max.ice.vol,
43
2003.1150682.50E+13
max(ice.vol$ice.vol[(nrow(ice.vol)-100):nrow(ice.vol)]))
44
2003.1178082.51E+13} else{
45
2003.1205482.52E+13
max.ice.vol <- rbind(max.ice.vol,
46
2003.1232882.52E+13
max(ice.vol$ice.vol[(-100+i*365):(100+i*365)])
47
2003.1260272.53E+13) }
48
2003.1287672.53E+13
49
2003.1315072.53E+13}
50
2003.1342472.54E+13
max.ice.vol <- cbind(data.frame(year = c(2007:2019)), max.ice.vol)
51
2003.1369862.54E+13plot(max.ice.vol)
52
2003.1397262.55E+13
53
2003.1424662.55E+13
54
2003.1452052.56E+13
55
2003.1479452.57E+13
56
2003.1506852.58E+13
Was my previous comment deleted?
57
2003.1534252.59E+13
why does this post limit data to 2007-2019 when the data goes back to 2003?
58
2003.1561642.60E+13
Trends since 2003, 2004, 2005, and 2006 are all negative.
59
2003.1589042.61E+13
and if you take into account seasonal variation, the trend of maximum sea ice since 2007 is negative too.
60
2003.1616442.61E+13
https://docs.google.com/spreadsheets/d/1SAxunOY7mVuCSQbY2lbAlH1u5tUdwSbLMHfs4l793ho/edit
61
2003.1643842.62E+13
A more robust robust statistical approach would be something like STL decomposition that incorporates seasonal fluctuations. I ran the stats in R (on the same 12 year period), here are the results:
62
2003.1671232.63E+13
https://imgur.com/a/sKCyW1v
63
2003.1698632.64E+13
.no long-term positive or negative trend. short-term time-frame only shown inter-annual variation.
64
2003.1726032.65E+13
https://imgur.com/a/gpob3LU
65
2003.1753422.65E+13
Also, data from other sources that support anthropocentric climate change also show no significant trend in ice volume since 2007. This information is not excluded or hidden; it's looked at in the context of trends since 1979.
66
2003.1780822.66E+13
67
2003.1808222.66E+13
68
2003.1835622.66E+13
69
2003.1863012.67E+13
70
2003.1890412.67E+13
71
2003.1917812.68E+13
72
2003.1945212.68E+13
73
2003.197262.69E+13
74
2003.22.69E+13
75
2003.202742.70E+13
76
2003.2054792.70E+13
77
2003.2082192.71E+13
78
2003.2109592.71E+13
79
2003.2136992.72E+13
80
2003.2164382.72E+13
81
2003.2191782.73E+13
82
2003.2219182.73E+13
83
2003.2246582.73E+13
84
2003.2273972.74E+13
85
2003.2301372.75E+13
86
2003.2328772.76E+13
87
2003.2356162.76E+13
88
2003.2383562.77E+13
89
2003.2410962.77E+13
90
2003.2438362.77E+13
91
2003.2465752.78E+13
92
2003.2493152.78E+13
93
2003.2520552.78E+13
94
2003.2547952.79E+13
95
2003.2575342.78E+13
96
2003.2602742.78E+13
97
2003.2630142.78E+13
98
2003.2657532.79E+13
99
2003.2684932.78E+13
100
2003.2712332.78E+13
Loading...