// Copyright © 2003 by Michael Sager

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

function eta4levelRH() {
  initVars();
  dateToday();
  getVariables();
  format = "loop";
  model = "eta40_m";
  level = "950_850";
  makeLoop();
  level = "850_750";
  addLoop();
  level = "750_550";
  addLoop();
  level = "500_300";
  setTimeout('addLoop()',1000);
}

function eta84gfs84_US() {
  initVars();
  dateToday();
  getVariables();
  format = "loop";
  model = "gfs84_m";
  level = "sfc";
  makeLoop();
  format = "addloop"
  model = "eta84_m";
  setTimeout('addLoop()',1000);
}

function eta84gfs84_NE() {
  initVars();
  dateToday();
  getVariables();
  format = "loop";
  model = "gfs84_mne";
  makeLoop();
  format = "addloop"
  model = "eta84_mne";
  setTimeout('addLoop()',1000);
}

function eta84gfs84_SE() {
  initVars();
  dateToday();
  getVariables();
  format = "loop";
  model = "gfs84_mse";
  makeLoop();
  format = "addloop"
  model = "eta84_mse";
  setTimeout('addLoop()',1000);
}

function eta84gfs84_NC() {
  initVars();
  dateToday();
  getVariables();
  format = "loop";
  model = "gfs84_mnc";
  makeLoop();
  format = "addloop"
  model = "eta84_mnc";
  setTimeout('addLoop()',1000);
}

function eta84gfs84_SC() {
  initVars();
  dateToday();
  getVariables();
  format = "loop";
  model = "gfs84_msc";
  makeLoop();
  format = "addloop"
  model = "eta84_msc";
  setTimeout('addLoop()',1000);
}

function eta84gfs84_NW() {
  initVars();
  dateToday();
  getVariables();
  format = "loop";
  model = "gfs84_mnw";
  makeLoop();
  format = "addloop"
  model = "eta84_mnw";
  setTimeout('addLoop()',1000);
}

function eta84gfs84_SW() {
  initVars();
  dateToday();
  getVariables();
  format = "loop";
  model = "gfs84_msw";
  makeLoop();
  format = "addloop"
  model = "eta84_msw";
  setTimeout('addLoop()',1000);
}

function eta84gfs84_FL() {
  initVars();
  dateToday();
  getVariables();
  format = "loop";
  model = "gfs84_mfl";
  makeLoop();
  format = "addloop"
  model = "eta84_mfl";
  setTimeout('addLoop()',1000);
}

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() }
}