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;
++$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);
$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};