From cbd2b59b72806c032e15c2d1e2295c50331bebe0 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Fri, 30 Sep 2016 00:03:38 +0100 Subject: [PATCH] fix max wind --- loop.pl | 8 +++++--- templates/index.html.ep | 1 - 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/loop.pl b/loop.pl index d5f69a5..86a0935 100755 --- a/loop.pl +++ b/loop.pl @@ -425,7 +425,8 @@ sub process my $cycledata; if ($dayno > $ld->{last_day}) { - $ld->{Temp_Out_Max} = $ld->{Temp_Out_Min} = $ld->{Wind_Max} = $temp; + $ld->{Wind_Max} = $wind->{w}; + $ld->{Temp_Out_Max} = $ld->{Temp_Out_Min} = $temp; $ld->{Temp_Out_Max_T} = $ld->{Temp_Out_Min_T} = $ld->{Wind_Max_T} = clocktime($ts, 0); $ld->{last_day} = $dayno; ++$writeld; @@ -448,8 +449,6 @@ sub process ++$writeld; } - my $wkph = $wind->{w} * 3.6; - $h{WindChill} = nearest(0.1, $wind->{w} >= 1.2 ? 13.12 + 0.6215 * $temp - 11.37 * $wkph ** 0.16 + 0.3965 * $temp * $wkph ** 0.16 : $temp); if ($ts >= $ld->{last_hour} + 1800) { $h{Pressure_Trend} = unpack("C", substr $blk,3,1); @@ -512,6 +511,9 @@ sub process $h{Wind_1m} = nearest(0.1, $a->{w}); $h{Dir_1m} = nearest(1, $a->{d}); ($h{Rain_1m}, $h{Rain_1h}, $h{Rain_24h}) = calc_rain($rain); + + my $wkph = $a->{w} * 3.6; + $h{WindChill} = nearest(0.1, $a->{w} >= 1.2 ? 13.12 + 0.6215 * $temp - 11.37 * $wkph ** 0.16 + 0.3965 * $temp * $wkph ** 0.16 : $temp); } $ld->{last_rain_min} = $rain; $h{Temp_Out_Max} = $ld->{Temp_Out_Max}; diff --git a/templates/index.html.ep b/templates/index.html.ep index 1cbb949..d7ec713 100644 --- a/templates/index.html.ep +++ b/templates/index.html.ep @@ -828,7 +828,6 @@ - -- 2.34.1