<!--

function pad(n) {
	if (n < 10) return ("0" + n);
	return "" + n;
}

function small_img2(p) {
	tag = "<IMG ALT="+ rootSmall + get_gif(p) + " SRC=" + rootSmall + get_gif(p) + " NAME=VAR"
	tag += "  border=0>"
	return tag
}

function small_imgFcstH(p) {
        tag = "<IMG SRC=" + rootSmall + get_gifFcstH(p) + " NAME=VARfcstH"
        tag += "  border=0>"
        return tag
}

function big_img(p) {
		tag = rootLarge + get_gif_big(p)	
	return tag
}

function big_imgFcstH(p) {
                tag = rootLarge + get_gif_bigFcstH(p)
        return tag
}


function get_data_status() {
	if (year * 10000 + month * 100 + day <= yearEnd_final * 10000 + monthEnd_final * 100 + dayEnd_final) return("final");
	return("nrt");
}

function exist_data() {
	if (within_range()) return true
	return false
}


function img_table(p_time) {

str = "<TABLE BORDER='0' cellpadding='6'>"

str += "<tr align='center'>"
str += "<td align='center'>"
str += "<p><br>"
str += "<a href=" + big_img(p_time) + " target=_new id=VARlink>" + small_img2(p_time) + "</a><br><br>"
str += "</td>"

str += "</tr>"


str += "</table>"

str += "</form>"

return str
}	


function img_tableFcst(p_time) {

str = "<TABLE BORDER='0' cellpadding='6'>"

str += "<tr align='center'>"
str += "<td align='center'>"
str += "<p align=center><font color='#660000' size=4 face='Arial, Helvetica, sans-serif'>"
str += "<a href=" + big_imgFcstH(p_time) + " target=_new id=VARlinkFcstH>" + small_imgFcstH(p_time) + "</a><br><br>"
str += "</td>"
str += "</tr>"

str += "</table>"

str += "</form>"

return str
}	


// -->
