HadCET Data - Revision history

Trevor at 08:35, 10 May 2019

2019-05-10T08:35:55Z

Trevor at 08:25, 10 May 2019

2019-05-10T08:25:52Z

Trevor: Created page with "=Met Office Hadley Centre Central England Temperature Data= The UK Meteorological ("Met") Office, Hadley Centre website has a [https://www.metoffice.gov.uk/hadobs/hadcet/data..."

2019-05-10T08:07:22Z

Created page with "=Met Office Hadley Centre Central England Temperature Data= The UK Meteorological ("Met") Office, Hadley Centre website has a [https://www.metoffice.gov.uk/hadobs/hadcet/data..."

New page

=Met Office Hadley Centre Central England Temperature Data=

The UK Meteorological ("Met") Office, Hadley Centre website has a [https://www.metoffice.gov.uk/hadobs/hadcet/data/download.html page] with download links for archived temperature records for central England, taken daily from '''1772 to present day'''. The file is a little unwieldy, being a single line of text with 107,632 data values separated or delimited by a 'space' character and NOT in the stated format
<code>Column 1: year
Column 2: day
Columns 3-14: daily CET values expressed in tenths of a degree. There are 12 columns; one for each of the 12 months.
1772 1 32 -15 18 25 87 128 187 177 105 111 78 112
1772 2 20 7 28 38 77 138 154 158 143 150 85 62
1772 3 27 15 36 33 84 170 139 153 113 124 83 60
1772 4 27 -25 61 58 96 90 151 160 173 114 60 47
1772 5 15 -5 68 69 133 146 179 170 173 116 83 50
1772 6 22 -45 51 77 113 105 175 198 160 134 134 42</code>

The data can readily be parsed into an Excel spreadsheet using the VBA code below.
<code>
Sub ParseHADCETfile() 'VBA for Excel
Dim strFileName As String 'path and filename
Dim LCount As Long
Dim DataArray() As String 'string array to hold the individual data values
Dim strRecordData As String 'read-in data from the HADCET file
Dim i As Integer, j As Integer 'column and row counters
strFileName = Environ("USERPROFILE") & "\Desktop" & "\hadcet.txt"
LCount = 0 'pointer to current data value
Open strFileName For Input As #1
Input #1, strRecordData 'as one long space delimited string
DataArray() = Split(strRecordData) 'split the string into 107632 data values
For j = 1 To 7688 'rows 1-7688
For i = 1 To 14 'columns 1=A, 2=B etc.
If i < 3 Then
Range(Chr(64 + i) & j) = DataArray(LCount)
Else
Range(Chr(64 + i) & j) = DataArray(LCount) / 10
End If
LCount = LCount + 1
Next i
Next j
Close #1
End Sub
</code>

@@ Line 12: / Line 12: @@
     5   15   -5   68   69  133  146  179  170  173  116   83   50
     6   22  -45   51   77  113  105  175  198  160  134  134   42
-The data can readily be parsed into an Excel spreadsheet using the VBA code below (assuming the text file is downloaded to desktop and called hadcet.txt). Alternatively you could use the FLUKE csv version
+The data can readily be parsed into an Excel spreadsheet using the VBA code below (assuming the text file is downloaded to desktop and called hadcet.txt). Alternatively you could use the FLUKE csv version [[:File:hadcet.csv]]

@@ Line 2: / Line 2: @@
 The UK Meteorological ("Met") Office, Hadley Centre website has a [https://www.metoffice.gov.uk/hadobs/hadcet/data/download.html page] with download links for archived temperature records for central England, taken daily from '''1772 to present day'''. The file is a little unwieldy, being a single line of text with 107,632 data values separated or delimited by a 'space' character and NOT in the stated format
-<code>Column 1: year
-Column 2: day
+ Column 1: year
-Columns 3-14: daily CET values expressed in tenths of a degree. There are 12 columns; one for each of the 12 months.
+ Column 2: day
     1   32  -15   18   25   87  128  187  177  105  111   78  112
     2   20    7   28   38   77  138  154  158  143  150   85   62
@@ Line 10: / Line 11: @@
     4   27  -25   61   58   96   90  151  160  173  114   60   47
     5   15   -5   68   69  133  146  179  170  173  116   83   50
-    6   22  -45   51   77  113  105  175  198  160  134  134   42</code>
+    6   22  -45   51   77  113  105  175  198  160  134  134   42
-The data can readily be parsed into an Excel spreadsheet using the VBA code below.
+ Sub ParseHADCETfile() 'VBA for Excel
      Dim strFileName As String 'path and filename
      Dim LCount As Long
@@ Line 36: / Line 38: @@
      Next j
      Close #1
-End Sub
+ End Sub