= 20081006 ) { $cyc == "00"; } // Below is if there are inputs $usecurrent_template = "yes"; if ( $mn != "" && $dy != "" && $yr != "" && $type != "" && $cyc != "" ) { $full_ftime = $yr . $mn . $dy . $cyc; if ( $mn == $mn_latest && $dy == $dy_latest && $yr == $yr_latest && $cyc == $cyc_latest ) { $latestfile = "noaad1_" . $latestfile_time . "." . $type; $filedate = $yr . "-" . $mn . "-" . $dy; $formatted_cdate = date("F d, Y", strtotime("$filedate")); $issuetime = "Morning"; if ($cyc == "12") { $issuetime = "Afternoon"; } } elseif ( $full_ftime > $latestfile_time ) { print (""); $latestfile = "noaad1_" . $latestfile_time . "." . $type; $dy = $dy_latest; $mn = $mn_latest; $yr = $yr_latest; $cyc = $cyc_latest; } else { $usecurrent_template = "no"; $filedate = $yr . "-" . $mn . "-" . $dy; } // If any parameters missing or no inputs...use current date/time } else { $yr = substr($latestfile_time,0,4); $mn = substr($latestfile_time,4,2); $dy = substr($latestfile_time,6,2); $cyc = substr($latestfile_time,8,2); $type = "gif"; $latestfile = "noaad1_" . $latestfile_time . ".gif"; $filedate = $yr . "-" . $mn . "-" . $dy; $formatted_cdate = date("F d, Y", strtotime("$filedate")); $issuetime = "Morning"; if ($cyc == "12") { $issuetime = "Afternoon"; } } // Get the previous forecast date/time. Before Oct 6, 2008 there was only one issuance (morning) $phpdate = $yr . "-" . $mn . "-" . $dy; if ( $current_ftime > 20081005 && $cyc == 12 ) { $prev_fcst = date("Ymd", strtotime("$phpdate")); $pmn = substr($prev_fcst,4,2); $pyr = substr($prev_fcst,0,4); $pdy = substr($prev_fcst,6,2); $pcyc = "00"; $sm_pissuance = "AM"; $sm_pdate = date("M d, Y", strtotime("$filedate")); } else { $prev_fcst = date("Ymd", strtotime("$phpdate") - (60*24*60)); $pmn = substr($prev_fcst,4,2); $pyr = substr($prev_fcst,0,4); $pdy = substr($prev_fcst,6,2); $sm_pdate = date("M d, Y", strtotime("$filedate") - (60*24*60)); if ( $current_ftime > 20081006 ) { $pcyc = "12"; $sm_pissuance = "PM"; } else { $pcyc = "NA"; $sm_pissuance = ""; } } // Get the next forecast date/time in the sequence. Before Oct 6, 2008 there was only one issuance (morning) if ( $current_ftime > 20081005 && $cyc == 00 ) { $next_fcst = date("Ymd", strtotime("$phpdate")); $nmn = substr($next_fcst,4,2); $nyr = substr($next_fcst,0,4); $ndy = substr($next_fcst,6,2); $ncyc = "12"; $sm_nissuance = "PM"; $sm_ndate = date("M d, Y", strtotime("$phpdate")); } else { $next_fcst = date("Ymd", strtotime("$phpdate") + (60*24*60)); $nmn = substr($next_fcst,4,2); $nyr = substr($next_fcst,0,4); $ndy = substr($next_fcst,6,2); $sm_ndate = date("M d, Y", strtotime("$phpdate") + (60*24*60)); if ( $current_ftime >= 20081005 ) { $ncyc = "00"; $sm_nissuance = "AM"; } else { $ncyc = "NA"; $sm_nissuance = ""; } } ?> HPC Daily Forecast Map Archive

HPC Archive of the National Forecast Chart
"; ?>
Current Forecast
$issuetime Issuance - $formatted_cdate"; // Past forecasts } else { $formatted_pdate = date("F d, Y", strtotime("$filedate")); // Prior to Oct 6, 2008 there was only one issuance a day (morning) if ( $current_ftime > 20081005 ) { if ( ${cyc} == "00" ) { $issuetime = "Morning"; } else { $issuetime = "Afternoon"; } print "Forecast from the $issuetime Issuance
of $formatted_pdate"; } else { print "Forecast from $formatted_pdate"; } // After June 5, 2011, changed file naming convention to account for new Day 2 products. if ( $current_ftime < 20020522 ) { $noaapre = "noaa"; } elseif ( $current_ftime > 20020521 && $current_ftime < 20110606 ) { $noaapre = "noaa2"; } else { $noaapre = "noaad1"; } } ?> 		' onclick=\"open_window('next')\";>"; print "
"; print "($sm_ndate $sm_nissuance Issuance)"; print""; } ?>
"; } else { print ""; } } else { if ( $current_ftime > 20081005 ) { if ( $type == "gif" ) { print "\"Weather"; } else { if ( $current_ftime > 20110605 ) { print ""; } else { print ""; } } } else { if ( $type == "gif" ) { print "\"Weather"; } else { print ""; } } } ?>
 
Use the form below to view forecasts from 2001 through the present.  Note that PDFs will display above and open in a new tab or window; GIF images will only display above.
 
Date:
Issuance time: = 20081006 ) { print ""; } elseif ( $cyc != "NA" && $current_ftime < 20081006 ) { print ""; } elseif ( $cyc == "NA" ) { print ""; } ?>
Image format: GIF  "; print "PDF  "; } else { print "GIF  "; print "PDF "; } ?> (requires Acrobat Reader)
"; ?>
 
Reset to Current Forecast