// Copyright © 2003 by Michael Sager

/* All code used in this web page, with the exception of the cookie libraries written
by Paul Stephens, is copyrighted by me, Michael Sager. The code, or pieces of it, may be
used for personal use, but any use for business or distribution purposes without my
express consent is prohibited under US copyright law. If you wish to use my code for any
purpose, please contact me, and I will gladly issue license to use this code. I am not
out to make a whole lot of money, I just want to protect my hard work! */


function runScript() {
  command = document.controls.multimodel[document.controls.multimodel.selectedIndex].value
  eval(command +'()')
}

function euro_5level() {
  initVars();
  dateToday();
  getVariables();
  format = "loop";
  model = "cod_ecm";
  level = "sfc";
  makeLoop();
  level = "850";
  addLoop();
  level = "700";
  addLoop();
  level = "500";
  addLoop();
  level = "300";
  setTimeout('addLoop()',1000);
}

function gfs_eta_comp() {
  initVars();
  dateToday();
  getVariables();
  format = "loop";
  model = "gfs_ncep";
  makeLoop();
  format = "addloop"
  model = "nam_ncep";
  setTimeout('addLoop()',1000)
}

function gfs_eta_euro_comp() {
  initVars();
  dateToday();
  getVariables();
  format = "loop";
  model = "gfs_ncep";
  makeLoop();
  format = "addloop"
  model = "nam_ncep";
  addLoop();
  model = "ecm_uqam";
  setTimeout('addLoop()',1000);
}

function gfs_eta_euro_ggem_comp() {
  initVars();
  dateToday();
  getVariables();
  format = "loop";
  model = "gfs_ncep";
  makeLoop();
  format = "addloop"
  model = "nam_ncep";
  addLoop();
  model = "ggem_uqam";
  addLoop();
  model = "ecm_uqam";
  setTimeout('addLoop()',1000);
}

function gfs_eta_euro_ggem_ukmet_comp() {
  initVars();
  dateToday();
  getVariables();
  format = "loop";
  model = "gfs_ncep";
  makeLoop();
  format = "addloop"
  model = "nam_ncep";
  addLoop();
  model = "ggem_uqam";
  addLoop();
  model = "ecm_uqam";
  addLoop();
  model = "ukmet_uqam";
  setTimeout('addLoop()',1000);
}

function europe_5model() {
  initVars();
  dateToday();
  getVariables();
  format = "loop";
  region = "europe";
  model = "gfs_navy";
  makeLoop();
  format = "addloop"
  model = "nogaps";
  addLoop();
  model = "ggem_uqam";
  addLoop();
  model = "ecm_uqam";
  addLoop();
  model = "ukmet_uqam";
  setTimeout('addLoop()',1000);
}


function eta_6hr_comp() {
  initVars();
  dateToday();
  getVariables();
  run2 = run;
  if (run == "00") { runPrev = "18" }
  else if (run == "06") { runPrev = "00" }
  else if (run == "12") { runPrev = "06" }
  else { runPrev = "12" }
  startTime2 = startTime;
  run = runPrev;
  startTime+=6;
  format = "loop";
  model = "nam_ncep";
  makeLoop();
  startTime = startTime2;
  run = run2;
  setTimeout('addLoop()',1000);
}

function gfs_6hr_comp() {
  initVars();
  dateToday();
  getVariables();
  run2 = run;
  if (run == "00") { runPrev = "18" }
  else if (run == "06") { runPrev = "00" }
  else if (run == "12") { runPrev = "06" }
  else { runPrev = "12" }
  startTime2 = startTime;
  run = runPrev;
  startTime+=6;
  format = "loop";
  model = "gfs_ncep";
  makeLoop();
  startTime = startTime2;
  run = run2;
  setTimeout('addLoop()',1000);
}

function eta_12hr_comp() {
  initVars();
  dateToday();
  getVariables();
  run2 = run;
  if (run == "00") { runPrev = "12" }
  else if (run == "06") { runPrev = "18" }
  else if (run == "12") { runPrev = "00" }
  else { runPrev = "06" }
  startTime2 = startTime;
  run = runPrev;
  startTime+=12;
  format = "loop";
  model = "nam_ncep";
  makeLoop();
  startTime = startTime2;
  run = run2;
  setTimeout('addLoop()',1000);
}

function gfs_12hr_comp() {
  initVars();
  dateToday();
  getVariables();
  run2 = run;
  if (run == "00") { runPrev = "12" }
  else if (run == "06") { runPrev = "18" }
  else if (run == "12") { runPrev = "00" }
  else { runPrev = "06" }
  startTime2 = startTime;
  run = runPrev;
  startTime+=12;
  format = "loop";
  model = "gfs_ncep";
  makeLoop();
  startTime = startTime2;
  run = run2;
  setTimeout('addLoop()',1000);
}

function eta_4level() {
  initVars();
  dateToday();
  getVariables();
  format = "loop";
  model = "nam_ncep";
  level = "sfc";
  makeLoop();
  level = "850";
  addLoop();
  level = "700";
  addLoop();
  level = "500";
  setTimeout('addLoop()',1000);
}

function eta_5level() {
  initVars();
  dateToday();
  getVariables();
  format = "loop";
  model = "nam_ncep";
  level = "sfc";
  makeLoop();
  level = "850";
  addLoop();
  level = "700";
  addLoop();
  level = "500";
  addLoop();
  level = "300";
  setTimeout('addLoop()',1000);
}

function gfs_4level() {
  initVars();
  dateToday();
  getVariables();
  format = "loop";
  model = "gfs_ncep";
  level = "sfc";
  makeLoop();
  level = "850";
  addLoop();
  level = "700";
  addLoop();
  level = "500";
  setTimeout('addLoop()',1000);
}

function gfs_5level() {
  initVars();
  dateToday();
  getVariables();
  format = "loop";
  model = "gfs_ncep";
  level = "sfc";
  makeLoop();
  level = "850";
  addLoop();
  level = "700";
  addLoop();
  level = "500";
  addLoop();
  level = "300";
  setTimeout('addLoop()',1000);
}

function gfs_dmodel_dt() {
  initVars();
  dateToday();
  getVariables();
  if (run == "00") {
    run1 = "06"
    run2 = "12"
    run3 = "18"
    run4 = "00"
  }
  else if (run == "06") {
    run1 = "12"
    run2 = "18"
    run3 = "00"
    run4 = "06"
  }
  else if (run == "12") {
    run1 = "18"
    run2 = "00"
    run3 = "06"
    run4 = "12"
  }
  else {
    run1 = "00"
    run2 = "06"
    run3 = "12"
    run4 = "18"
  }
  startTime1 = startTime + 18;
  startTime2 = startTime + 12;
  startTime3 = startTime + 6;
  startTime4 = startTime;
  format = "loop";
  model = "gfs_ncep";
  startTime = startTime1; run = run1;
  makeLoop();
  startTime = startTime2; run = run2;
  addLoop();
  startTime = startTime3; run = run3;
  addLoop();
  startTime = startTime4; run = run4;
  setTimeout('addLoop()',1000);
}

function gfs_dmodel_dt_long() {
  initVars();
  dateToday();
  getVariables();
  if (run == "00") {
    run1 = "06"
    run2 = "12"
    run3 = "18"
    run4 = "00"
  }
  else if (run == "06") {
    run1 = "12"
    run2 = "18"
    run3 = "00"
    run4 = "06"
  }
  else if (run == "12") {
    run1 = "18"
    run2 = "00"
    run3 = "06"
    run4 = "12"
  }
  else {
    run1 = "00"
    run2 = "06"
    run3 = "12"
    run4 = "18"
  }
  startTime = 0;
  startTime1 = startTime + 18;
  startTime2 = startTime + 12;
  startTime3 = startTime + 6;
  startTime4 = startTime;
  format = "loop";
  model = "gfs_ncep";
  endTime = 384;
  hoursBetweenImages = 24;
  startTime = startTime1; run = run1;
  makeLoop();
  startTime = startTime2; run = run2;
  addLoop();
  startTime = startTime3; run = run3;
  addLoop();
  startTime = startTime4; run = run4;
  setTimeout('addLoop()',1000);
}

function gfs_3run() {
  initVars();
  dateToday();
  getVariables();
  if (run == "00") {
    run1 = "06"
    run2 = "12"
    run3 = "18"
    run4 = "00"
  }
  else if (run == "06") {
    run1 = "12"
    run2 = "18"
    run3 = "00"
    run4 = "06"
  }
  else if (run == "12") {
    run1 = "18"
    run2 = "00"
    run3 = "06"
    run4 = "12"
  }
  else {
    run1 = "00"
    run2 = "06"
    run3 = "12"
    run4 = "18"
  }
  startTime1 = startTime + 18;
  startTime2 = startTime + 12;
  startTime3 = startTime + 6;
  startTime4 = startTime;
  format = "loop";
  model = "gfs_ncep";
  startTime = startTime2; run = run2;
  makeLoop();
  startTime = startTime3; run = run3;
  addLoop();
  startTime = startTime4; run = run4;
  setTimeout('addLoop()',1000);
}

function gfs_3run_long() {
  initVars();
  dateToday();
  getVariables();
  if (run == "00") {
    run1 = "06"
    run2 = "12"
    run3 = "18"
    run4 = "00"
  }
  else if (run == "06") {
    run1 = "12"
    run2 = "18"
    run3 = "00"
    run4 = "06"
  }
  else if (run == "12") {
    run1 = "18"
    run2 = "00"
    run3 = "06"
    run4 = "12"
  }
  else {
    run1 = "00"
    run2 = "06"
    run3 = "12"
    run4 = "18"
  }
  startTime = 0;
  startTime1 = startTime + 18;
  startTime2 = startTime + 12;
  startTime3 = startTime + 6;
  startTime4 = startTime;
  format = "loop";
  model = "gfs_ncep";
  endTime = 384;
  hoursBetweenImages = 24;
  startTime = startTime2; run = run2;
  makeLoop();
  startTime = startTime3; run = run3;
  addLoop();
  startTime = startTime4; run = run4;
  setTimeout('addLoop()',1000);
}

function eta_3run() {
  initVars();
  dateToday();
  getVariables();
  if (run == "00") {
    run1 = "06"
    run2 = "12"
    run3 = "18"
    run4 = "00"
  }
  else if (run == "06") {
    run1 = "12"
    run2 = "18"
    run3 = "00"
    run4 = "06"
  }
  else if (run == "12") {
    run1 = "18"
    run2 = "00"
    run3 = "06"
    run4 = "12"
  }
  else {
    run1 = "00"
    run2 = "06"
    run3 = "12"
    run4 = "18"
  }
  startTime1 = startTime + 18;
  startTime2 = startTime + 12;
  startTime3 = startTime + 6;
  startTime4 = startTime;
  format = "loop";
  model = "nam_ncep";
  startTime = startTime2; run = run2;
  makeLoop();
  startTime = startTime3; run = run3;
  addLoop();
  startTime = startTime4; run = run4;
  setTimeout('addLoop()',1000);
}

function eta_dmodel_dt() {
  initVars();
  dateToday();
  getVariables();
  if (run == "00") {
    run1 = "06"
    run2 = "12"
    run3 = "18"
    run4 = "00"
  }
  else if (run == "06") {
    run1 = "12"
    run2 = "18"
    run3 = "00"
    run4 = "06"
  }
  else if (run == "12") {
    run1 = "18"
    run2 = "00"
    run3 = "06"
    run4 = "12"
  }
  else {
    run1 = "00"
    run2 = "06"
    run3 = "12"
    run4 = "18"
  }
  startTime1 = startTime + 18;
  startTime2 = startTime + 12;
  startTime3 = startTime + 6;
  startTime4 = startTime;
  format = "loop";
  model = "nam_ncep";
  startTime = startTime1; run = run1;
  makeLoop();
  startTime = startTime2; run = run2;
  addLoop();
  startTime = startTime3; run = run3;
  addLoop();
  startTime = startTime4; run = run4;
  setTimeout('addLoop()',1000);
}

function gfs_4run_euro() {
  initVars();
  dateToday();
  getVariables();
  hoursBetweenImages = 24;
  startTime = 0;
  endTime = 168;
  if (run == "00") {
    run1 = "06"
    run2 = "12"
    run3 = "18"
    run4 = "00"
  }
  else if (run == "06") {
    run1 = "12"
    run2 = "18"
    run3 = "00"
    run4 = "06"
  }
  else if (run == "12") {
    run1 = "18"
    run2 = "00"
    run3 = "06"
    run4 = "12"
  }
  else {
    run1 = "00"
    run2 = "06"
    run3 = "12"
    run4 = "18"
  }
  startTime1 = startTime + 18;
  startTime2 = startTime + 12;
  startTime3 = startTime + 6;
  startTime4 = startTime;
  format = "loop";
  model = "gfs_ncep";
  startTime = startTime1; run = run1;
  makeLoop();
  if (run == "12") { model = "cod_ecm"; startTime += 24; addLoop() }
  startTime = startTime2; run = run2;
  addLoop();
  if (run == "12") { model = "cod_ecm"; startTime += 24; addLoop() }
  startTime = startTime3; run = run3;
  addLoop();
  if (run == "12") { model = "cod_ecm"; startTime += 24; addLoop() }
  startTime = startTime4; run = run4;
  addLoop();
  if (run == "12") { model = "cod_ecm"; startTime += 24; addLoop() }
}