＊＊＊ 奄美でいちばん長い梅雨 ＊＊＊
西日本を中心に大雨が続いていますが、奄美地方ではようやく梅雨明けが発表されました。
-----------------------------------------------------------------------------
梅雨の時期に関する九州南部・奄美地方気象情報 第３号
平成２２年７月１５日１１時００分 鹿児島地方気象台発表
（見出し）
奄美地方は、梅雨明けしたと見られます。
（本文）
奄美地方は、高気圧に覆われて概ね晴れています。向こう１週間も、湿った気流の影響で
にわか雨の降るところがありますが、高気圧に覆われて晴れる日が多い見込みです。
このため、奄美地方は７月１５日ごろ梅雨明けしたとみられます。
（参考事項）
１。平年の梅雨明け ６月２８日ごろ
（平年の梅雨明けは、１９７１〜２０００年の平均です。）
２。昨年の梅雨明け ７月５日ごろ
３。梅雨入りを発表した５月６日から７月１４日までの降水量の合計（速報値）
（かっこ内は、５月６日から７月１４日までの平年値）
気象官署 降水量の合計（ミリ） 平年値（ミリ）
名瀬 ９０７．０ （７１９．０）
沖永良部 ５１５．５ （４９４．８）
（気象官署の平年値は、１９７１〜２０００年の観測値に基づくものです）
アメダス 降水量の合計（ミリ） 平年値（ミリ）
中之島 １５２９．５ 平年値なし
笠利 ７８１．５ 平年値なし
喜界島 ６３２．５ （４９９．７）
古仁屋 ７７９．０ （５５４．４）
天城 ４５８．５ 平年値なし
伊仙 ５４８．５ （４８９．８）
与論島 ７１４．５ （４０６．３）
（アメダスの平年値は、１９７９〜２０００年の観測値に基づくものです）
・梅雨は季節現象であり、その入り明けは、平均的に５日間程度の「移り変わり」の期間があります。
・梅雨の時期に関する気象情報は、現在までの天候経過と１週間先までの見通しをもとに発表する
情報です。後日、春から夏にかけての実際の天候経過を考慮した検討を行い、その結果、
本情報で発表した期日が変更となる場合があります。
-----------------------------------------------------------------------------
奄美地方が梅雨入りしたのは平年より少し早めでしたが、梅雨明けは大幅に遅れました。7月15日は1983年と並んで最も遅い記録です。梅雨の期間は71日間で、気象庁のHPを見る限り、もっとも遅いようです。
でも、これは表をざっくり見た感じなので、正確なところは計算してみないと分かりません。
ついでに、ほかのエリアを含め、梅雨の期間が一番長かったのは・・・？
そんなわけで（？）、マクロを組んでみました。
-------------------------------------------------
Sub Macro1()
Dim bs(12, 100), be(12, 100), bl(12, 100) As Variant '梅雨の開始日・終了日・期間
Sheets("data").Select
Cells.Select
Selection.Clear
For i = 1 To 12
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.data.jma.go.jp/fcd/yoho/baiu/kako_baiu" & Format(i, "00") & ".html", Destination:= _
Range("$A$1"))
.Name = "kako_baiu01"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
-------------------------------------------------
データの参照先は、気象庁HPの「昭和26年（1951年）以降の梅雨入りと梅雨明け（確定値）」。
マクロの記録で「外部データの取り込み→Webクエリ」を利用。
沖縄地方の場合、
"URL;http://www.data.jma.go.jp/fcd/yoho/baiu/kako_baiu01.html", Destination:= _
Range("$A$1"))
となりますが、ほかのエリアを連続して取り込むために、
"URL;http://www.data.jma.go.jp/fcd/yoho/baiu/kako_baiu" & Format(i, "00") & ".html", Destination:= _
Range("$A$1"))
と書き換えました。変更したのは、01 → Format(i, "00") の部分だけ。
01：沖縄、02：奄美、03：九州南部・・・と番号が振られていて、最後の東北北部は12。
-------------------------------------------------
For j = 1 To 30 '北陸地方対応
If Cells(j, 1) = "年" Then
r = j
End If
Next j
-------------------------------------------------
この部分、北陸地方対応・・・というのが意味不明に思われるかもしれませんが、WebページをExcelに取り込んで見ると、北陸地方だけ、データの並びがほかと違うのです。
ほかの地方は1951年のデータが26行目に入るのに対し、北陸地方だけは14行目。
Web上では見た目は変わらないのですが・・・。なぜ、こんなことになるのか、実に不思議です。
-------------------------------------------------
For j = 1 To 59
If Cells(r + j, 2) <> "－" Then
bs(i, j) = DateValue(Left(Cells(r + j, 1), 4) & "/" & Left(Cells(r + j, 2), 1) & "/" & Mid(Cells(r + j, 2), 3, 2))
End If
If Cells(r + j, 3) <> "－" Then
be(i, j) = DateValue(Left(Cells(r + j, 1), 4) & "/" & Left(Cells(r + j, 3), 1) & "/" & Mid(Cells(r + j, 3), 3, 2))
End If
-------------------------------------------------
ここでは、梅雨の開始日・終了日を読んでいます。
Excelに取り込まれたデータは、A列が年、B列が梅雨入り日、C列が梅雨明け日となっているので、A列とB列、A列とC列をそれぞれ組み合わせ、後で引き算できるよう、DateValueで変換しています。
月日のデータを扱う時にしばしば問題になるのは、桁数の問題ですが、このページのデータは「6月 5日ごろ」のように、日付が一桁の場合、十の位をスペースで補ってくれています。このため、一桁でも二桁でも文字数が変わらず、余計な条件文を加えずにすみました。
必要だった条件文は、梅雨入り日・梅雨明け日が特定できなかった場合の処理です。
初めは梅雨明け日だけにこの処理を入れていたのですが、「型が一致しません」のメッセージが出てしまい、調べて見ると、1963年の四国・近畿地方は梅雨入り日が特定されていませんでした。
でも、梅雨明け日の欄には日付がちゃんと記入されていて、なんだか妙な感じです。
-------------------------------------------------
If Cells(r + j, 2) <> "－" And Cells(r + j, 3) <> "－" Then
bl(i, j) = be(i, j) - bs(i, j)
Else
bl(i, j) = "－"
End If
Next j
Next i-------------------------------------------------
この部分は、梅雨の開始日・終了日から、期間を具体的に計算しています。計算するのは、開始日・終了日のいずれもが特定されている時で、いずれかが特定されていない場合は「－」としています。
最後に、別シートに結果を代入――。
-------------------------------------------------
Sheets("result").Select
For i = 1 To 12
For j = 1 To 59
Cells(j + 1, i + 1) = bl(i, j)
Next j
Next i
End Sub
-------------------------------------------------
結果です。。。
今年の奄美の70日間は、1982年の65日間（5月7日頃～7月11日頃）を上回り、過去最長の記録でした。
ほかのエリアを含めると、梅雨入りが特定された年での最長記録は、1954年の九州南部・九州北部の80日間！ どちらも5月13日に梅雨入りし、明けたのは8月1日でした。次いで、1963年の関東甲信地方の79日間。7月24日の明けはともかくとして、5月6日の梅雨入りはちょっと考えられません。
逆に短いほうの記録は1958年の北陸地方（6月28日頃～7月9日頃）と1963年の沖縄地方（6月4日頃～6月15日頃）の11日間！ これはまたえらい短いですね。。。 短いだけでなく、関東甲信地方の最長記録と同じ年。沖縄地方の梅雨入りは関東甲信よりもほぼ一ヵ月遅かったことになります。
そういえば、先に書いたように四国と近畿で梅雨入りが特定されなかったのも、1963年でした。この年の1月は異常気象の代表例ともいえる三八豪雪がありました。特殊な循環場が春以降の天候に影響していたのかもしれません。その手の本がどこかにあったような・・・。探してみます。
-----------------------------------------------------------------------------
梅雨の時期に関する九州南部・奄美地方気象情報 第３号
平成２２年７月１５日１１時００分 鹿児島地方気象台発表
（見出し）
奄美地方は、梅雨明けしたと見られます。
（本文）
奄美地方は、高気圧に覆われて概ね晴れています。向こう１週間も、湿った気流の影響で
にわか雨の降るところがありますが、高気圧に覆われて晴れる日が多い見込みです。
このため、奄美地方は７月１５日ごろ梅雨明けしたとみられます。
（参考事項）
１。平年の梅雨明け ６月２８日ごろ
（平年の梅雨明けは、１９７１〜２０００年の平均です。）
２。昨年の梅雨明け ７月５日ごろ
３。梅雨入りを発表した５月６日から７月１４日までの降水量の合計（速報値）
（かっこ内は、５月６日から７月１４日までの平年値）
気象官署 降水量の合計（ミリ） 平年値（ミリ）
名瀬 ９０７．０ （７１９．０）
沖永良部 ５１５．５ （４９４．８）
（気象官署の平年値は、１９７１〜２０００年の観測値に基づくものです）
アメダス 降水量の合計（ミリ） 平年値（ミリ）
中之島 １５２９．５ 平年値なし
笠利 ７８１．５ 平年値なし
喜界島 ６３２．５ （４９９．７）
古仁屋 ７７９．０ （５５４．４）
天城 ４５８．５ 平年値なし
伊仙 ５４８．５ （４８９．８）
与論島 ７１４．５ （４０６．３）
（アメダスの平年値は、１９７９〜２０００年の観測値に基づくものです）
・梅雨は季節現象であり、その入り明けは、平均的に５日間程度の「移り変わり」の期間があります。
・梅雨の時期に関する気象情報は、現在までの天候経過と１週間先までの見通しをもとに発表する
情報です。後日、春から夏にかけての実際の天候経過を考慮した検討を行い、その結果、
本情報で発表した期日が変更となる場合があります。
-----------------------------------------------------------------------------
奄美地方が梅雨入りしたのは平年より少し早めでしたが、梅雨明けは大幅に遅れました。7月15日は1983年と並んで最も遅い記録です。梅雨の期間は71日間で、気象庁のHPを見る限り、もっとも遅いようです。
でも、これは表をざっくり見た感じなので、正確なところは計算してみないと分かりません。
ついでに、ほかのエリアを含め、梅雨の期間が一番長かったのは・・・？
そんなわけで（？）、マクロを組んでみました。
-------------------------------------------------
Sub Macro1()
Dim bs(12, 100), be(12, 100), bl(12, 100) As Variant '梅雨の開始日・終了日・期間
Sheets("data").Select
Cells.Select
Selection.Clear
For i = 1 To 12
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.data.jma.go.jp/fcd/yoho/baiu/kako_baiu" & Format(i, "00") & ".html", Destination:= _
Range("$A$1"))
.Name = "kako_baiu01"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
-------------------------------------------------
データの参照先は、気象庁HPの「昭和26年（1951年）以降の梅雨入りと梅雨明け（確定値）」。
マクロの記録で「外部データの取り込み→Webクエリ」を利用。
沖縄地方の場合、
"URL;http://www.data.jma.go.jp/fcd/yoho/baiu/kako_baiu01.html", Destination:= _
Range("$A$1"))
となりますが、ほかのエリアを連続して取り込むために、
"URL;http://www.data.jma.go.jp/fcd/yoho/baiu/kako_baiu" & Format(i, "00") & ".html", Destination:= _
Range("$A$1"))
と書き換えました。変更したのは、01 → Format(i, "00") の部分だけ。
01：沖縄、02：奄美、03：九州南部・・・と番号が振られていて、最後の東北北部は12。
-------------------------------------------------
For j = 1 To 30 '北陸地方対応
If Cells(j, 1) = "年" Then
r = j
End If
Next j
-------------------------------------------------
この部分、北陸地方対応・・・というのが意味不明に思われるかもしれませんが、WebページをExcelに取り込んで見ると、北陸地方だけ、データの並びがほかと違うのです。
ほかの地方は1951年のデータが26行目に入るのに対し、北陸地方だけは14行目。
Web上では見た目は変わらないのですが・・・。なぜ、こんなことになるのか、実に不思議です。
-------------------------------------------------
For j = 1 To 59
If Cells(r + j, 2) <> "－" Then
bs(i, j) = DateValue(Left(Cells(r + j, 1), 4) & "/" & Left(Cells(r + j, 2), 1) & "/" & Mid(Cells(r + j, 2), 3, 2))
End If
If Cells(r + j, 3) <> "－" Then
be(i, j) = DateValue(Left(Cells(r + j, 1), 4) & "/" & Left(Cells(r + j, 3), 1) & "/" & Mid(Cells(r + j, 3), 3, 2))
End If
-------------------------------------------------
ここでは、梅雨の開始日・終了日を読んでいます。
Excelに取り込まれたデータは、A列が年、B列が梅雨入り日、C列が梅雨明け日となっているので、A列とB列、A列とC列をそれぞれ組み合わせ、後で引き算できるよう、DateValueで変換しています。
月日のデータを扱う時にしばしば問題になるのは、桁数の問題ですが、このページのデータは「6月 5日ごろ」のように、日付が一桁の場合、十の位をスペースで補ってくれています。このため、一桁でも二桁でも文字数が変わらず、余計な条件文を加えずにすみました。
必要だった条件文は、梅雨入り日・梅雨明け日が特定できなかった場合の処理です。
初めは梅雨明け日だけにこの処理を入れていたのですが、「型が一致しません」のメッセージが出てしまい、調べて見ると、1963年の四国・近畿地方は梅雨入り日が特定されていませんでした。
でも、梅雨明け日の欄には日付がちゃんと記入されていて、なんだか妙な感じです。
-------------------------------------------------
If Cells(r + j, 2) <> "－" And Cells(r + j, 3) <> "－" Then
bl(i, j) = be(i, j) - bs(i, j)
Else
bl(i, j) = "－"
End If
Next j
Next i-------------------------------------------------
この部分は、梅雨の開始日・終了日から、期間を具体的に計算しています。計算するのは、開始日・終了日のいずれもが特定されている時で、いずれかが特定されていない場合は「－」としています。
最後に、別シートに結果を代入――。
-------------------------------------------------
Sheets("result").Select
For i = 1 To 12
For j = 1 To 59
Cells(j + 1, i + 1) = bl(i, j)
Next j
Next i
End Sub
-------------------------------------------------
結果です。。。
今年の奄美の70日間は、1982年の65日間（5月7日頃～7月11日頃）を上回り、過去最長の記録でした。
ほかのエリアを含めると、梅雨入りが特定された年での最長記録は、1954年の九州南部・九州北部の80日間！ どちらも5月13日に梅雨入りし、明けたのは8月1日でした。次いで、1963年の関東甲信地方の79日間。7月24日の明けはともかくとして、5月6日の梅雨入りはちょっと考えられません。
逆に短いほうの記録は1958年の北陸地方（6月28日頃～7月9日頃）と1963年の沖縄地方（6月4日頃～6月15日頃）の11日間！ これはまたえらい短いですね。。。 短いだけでなく、関東甲信地方の最長記録と同じ年。沖縄地方の梅雨入りは関東甲信よりもほぼ一ヵ月遅かったことになります。
そういえば、先に書いたように四国と近畿で梅雨入りが特定されなかったのも、1963年でした。この年の1月は異常気象の代表例ともいえる三八豪雪がありました。特殊な循環場が春以降の天候に影響していたのかもしれません。その手の本がどこかにあったような・・・。探してみます。
この記事へのコメント