//
//definition of the GetKhVI object begins here
//******************************************
function GetKhVI(c,t)
{
    this.chemical=c;
    this.temp=t;
    new VIData("","");
    vid = new VIData(c,t);
}



//define functions


function GetKhVI_addChemicals()
{
 
    //add all chemicals from the J&E factsheet
    vid.addOne(50293,"ddt",8.10e-06,533.15,260,720.75,3.93e-07,2.20e+04,4);
    vid.addOne(50328,"benzo(a)pyrene",1.13e-06,715.9,442.75,969.27,4.89e-09,1.90e+04,4);
    vid.addOne(51285,"2,4-dinitrophenol",4.44e-07,605.28,332.13,827.85,5.48e-03,2.50e+04,3);
    vid.addOne(53703,"dibenz(a,h);anthracene",1.47e-08,743.24,470.09,990.41,2.05e-11,3.00e+04,3);
    vid.addOne(56235,"tetrachloromethane",3.05e-02,349.9,76.75,556.6,1.12e+02,7.13e+03,1);
    vid.addOne(56553,"benz(a)anthracene",3.34e-06,708.15,435,1004.79,1.54e-07,1.60e+04,4);
    vid.addOne(57749,"chlordane",4.85e-05,624.24,351.09,885.73,2.70e-05,1.40e+044);
    vid.addOne(58899,"gamma-hch (lindane)",1.40e-05,596.55,323.4,839.36,3.72e-05,1.50e+04,4);
    vid.addOne(60571,"dieldrin",1.51e-05,613.32,340.17,842.25,9.96e-07,1.70e+04,4);
    vid.addOne(65850,"benzoic acid",1.54e-06,720,446.85,751,6.51e-03,1.21e+04,3);
    vid.addOne(67641,"acetone",3.88e-05,329.2,56.05,508.1,2.27e+02,6.96e+03,1);
    vid.addOne(67663,"trichloromethane",3.66e-03,334.32,61.17,536.4,2.04e+02,6.99e+03,1);
    vid.addOne(67721,"hexachloroethane",3.88e-03,458,184.85,695,4.72e-01,9.51e+03,2);
    vid.addOne(71363,"butanol",8.80e-06,390.88,117.73,563.05,6.54e+00,1.03e+04,1);
    vid.addOne(71432,"benzene",5.56e-03,353.24,80.09,562.16,9.50e+01,7.34e+03,1);
    vid.addOne(71556,"1,1,1-trichloroethane",1.72e-02,347.24,74.09,545,1.24e+02,7.14e+03,1);
    vid.addOne(72208,"endrin",7.51e-06,718.15,445,986.2,5.84e-07,1.50e+04,4);
    vid.addOne(72435,"methoxychlor",1.58e-05,651.02,377.87,848.49,1.23e-06,1.60e+04,4);
    vid.addOne(72548,"ddd",4.00e-06,639.9,366.75,863.77,8.66e-07,1.70e+04,4);
    vid.addOne(72559,"dde",2.10e-05,636.44,363.29,860.38,5.66e-06,1.50e+04,4);
    vid.addOne(74839,"methyl bromide",6.24e-03,276.71,3.56,467,1.64e+03,5.71e+03,1);
    vid.addOne(75014,"chloroethene",2.71e-02,259.25,-13.9,432,2.80e+03,5.25e+03,2);
    vid.addOne(75092,"dichloromethane",2.19e-03,313,39.85,510,3.70e+02,6.71e+03,1);
    vid.addOne(75150,"carbon disulfide",3.02e-02,319,45.85,552,3.40e+02,6.39e+03,1);
    vid.addOne(75252,"tribromomethane",5.34e-04,422.35,149.2,696,5.94e+00,9.48e+03,1);
    vid.addOne(75274,"bromodichloromethane",1.60e-03,363.15,90,585.85,5.84e+01,7.80e+03,4);
    vid.addOne(75343,"1,1-dichloroethane",5.61e-03,330.55,57.4,523,2.28e+02,6.90e+03,1);
    vid.addOne(75354,"1,1-dichloroethene",2.61e-02,304.75,31.6,576.05,5.99e+02,6.25e+03,1);
    vid.addOne(76448,"heptachlor",1.09e-03,603.69,330.54,846.31,3.26e-04,1.30e+04,4);
    vid.addOne(77474,"hexachlorocyclopentadiene",2.71e-02,512.15,239,746,7.32e-02,1.09e+04,2);
    vid.addOne(78591,"isophorone",6.63e-06,488.35,215.2,715,4.09e-01,1.03e+04,2);
    vid.addOne(78875,"1,2-dichloropropane",2.80e-03,369.52,96.37,572,5.06e+01,7.59e+03,2);
    vid.addOne(79005,"1,1,2-trichloroethane",9.12e-04,386.15,113,602,2.52e+01,8.32e+03,1);
    vid.addOne(79016,"trichloroethene",1.03e-02,360.36,87.21,544.2,7.20e+01,7.51e+03,1);
    vid.addOne(79345,"1,1,2,2-tetrachloroethane",3.44e-04,419.6,146.45,661.15,5.17e+00,9.00e+03,1);
    vid.addOne(83329,"acenaphthene",1.55e-04,550.54,277.39,803.15,3.75e-03,1.22e+04,2);
    vid.addOne(84662,"diethylphthalate",4.51e-07,567.15,294,757,1.65e-03,1.37e+04,2);
    vid.addOne(84742,"di-n-butyl phthalate",9.39e-10,613.15,340,798.67,4.22e-05,1.48e+04,1);
    vid.addOne(85687,"butyl benzyl phthalate",1.26e-06,660.6,387.45,839.68,1.20e-05,1.40e+04,4);
    vid.addOne(86306,"n-nitrosodiphenylamine",5.00e-06,632.28,359.13,890.45,1.00e-01,7.30e+03,4);
    vid.addOne(86737,"fluorene",6.37e-05,570.44,297.29,870,6.21e-04,1.27e+04,2);
    vid.addOne(86748,"carbazole",1.53e-08,627.87,354.72,899,2.66e-04,1.40e+04,2);
    vid.addOne(87683,"hexachloro-1,3-butadiene",8.15e-03,486.15,213,738,1.77e-01,1.02e+04,2);
    vid.addOne(87865,"pentachlorophenol",2.44e-08,582.15,309,813.2,5.40e-04,1.61e+04,3);
    vid.addOne(88062,"2,4,6-trichlorophenol",7.78e-06,519.15,246,749.03,1.18e-02,1.20e+04,4);
    vid.addOne(91203,"naphthalene",4.83e-04,491.14,217.99,748.4,8.89e-02,1.04e+04,2);
    vid.addOne(91941,"3,3-dichlorobenzidine",4.00e-09,560.26,287.11,754.03,2.20e-07,2.00e+04,4);
    vid.addOne(95476,"ortho-xylene",5.20e-03,417.6,144.45,630.3,6.60e+00,8.66e+03,1);
    vid.addOne(95487,"2-methylphenol (o-cresol)",1.20e-06,464.19,191.04,697.6,3.16e-01,1.08e+04,1);
    vid.addOne(95501,"1,2-dichlorobenzene",1.90e-03,453.57,180.42,705,1.36e+00,9.70e+03,2);
    vid.addOne(95578,"2-chlorophenol",3.90e-04,447.53,174.38,675,2.11e+00,9.57e+03,2);
    vid.addOne(95954,"2,4,5-trichlorophenol",4.34e-06,526.15,253,759.13,1.63e-02,1.10e+04,4);
    vid.addOne(98953,"nitrobenzene",2.40e-05,483.95,210.8,719,2.44e-01,1.06e+04,2);
    vid.addOne(100414,"ethylbenzene",7.88e-03,409.34,136.19,617.2,9.58e+00,8.50e+03,1);
    vid.addOne(100425,"styrene",2.76e-03,418.31,145.16,636,6.24e+00,8.74e+03,2);
    vid.addOne(105679,"2,4-dimethylphenol",2.00e-06,484.13,210.98,707.6,1.26e-01,1.13e+04,2);
    vid.addOne(106423,"para-xylene",7.66e-03,411.52,138.37,616.2,8.89e+00,8.53e+03,1);
    vid.addOne(106467,"1,4-dichlorobenzene",2.43e-03,447.21,174.06,684.75,1.06e+00,9.27e+03,2);
    vid.addOne(106478,"p-chloroaniline",3.32e-07,503.65,230.5,754,2.35e-02,1.17e+04,2);
    vid.addOne(107062,"1,2-dichloroethane",9.78e-04,356.65,83.5,561,8.13e+01,7.64e+03,1);
    vid.addOne(108054,"vinyl acetate",5.12e-04,345.65,72.5,519.13,1.09e+02,7.80e+03,2);
    vid.addOne(108383,"meta-xylene",7.34e-03,412.27,139.12,617.05,8.51e+00,8.52e+03,1);
    vid.addOne(108883,"toluene",6.63e-03,383.78,110.63,591.79,2.82e+01,7.93e+03,1);
    vid.addOne(108907,"chlorobenzene",3.71e-03,404.87,131.72,632.4,1.21e+01,8.41e+03,1);
    vid.addOne(108952,"phenol",3.98e-07,455.02,181.87,694.2,4.36e-01,1.09e+04,1);
    vid.addOne(111444,"bis(2-chloroethyl) ether",1.80e-05,451.15,178,659.79,1.34e+00,1.08e+04,3);
    vid.addOne(115297,"endosulfan",1.12e-05,674.43,401.28,942.94,9.96e-06,1.40e+04,4);
    vid.addOne(117817,"bis(2-ethylhexyl)phthalate",1.02e-07,657.15,384,806,6.45e-06,1.60e+04,2);
    vid.addOne(117840,"di-n-octyl phthalate",6.68e-05,704.09,430.94,862.22,4.47e-06,1.40e+04,4);
    vid.addOne(118741,"hexachlorobenzene",1.32e-03,582.55,309.4,825,1.23e-05,1.44e+04,2);
    vid.addOne(120127,"anthracene",6.51e-05,615.18,342.03,873,2.55e-05,1.31e+04,2);
    vid.addOne(120821,"1,2,4-trichlorobenzene",1.42e-03,486.15,213,725,3.36e-01,1.05e+04,2);
    vid.addOne(120832,"2,4-dichlorophenol",3.17e-06,482.15,209,708.17,5.48e-03,1.50e+04,4);
    vid.addOne(121142,"2,4-dinitrotoluene",9.27e-08,590,316.85,814,1.74e-04,1.35e+04,2);
    vid.addOne(124481,"dibromochloromethane",7.83e-04,416.14,142.99,678.2,3.12e+01,5.90e+03,4);
    vid.addOne(127184,"tetrachloroethene",1.84e-02,394.4,121.25,620.2,1.84e+01,8.29e+03,1);
    vid.addOne(129000,"pyrene",1.10e-05,667.95,394.8,936,4.25e-06,1.44e+04,2);
    vid.addOne(156592,"cis-1,2-dichloroethene",4.07e-03,333.65,60.5,544,1.75e+02,7.19e+03,2);
    vid.addOne(156605,"trans-1,2-dichloroethene",9.39e-03,320.85,47.7,516.5,3.52e+02,6.72e+03,2);
    vid.addOne(193395,"indeno(1,2,3-cd)pyrene",1.60e-06,809.15,536,1078.24,1.43e-10,1.90e+04,4);
    vid.addOne(205992,"benzo(b)fluoranthene",1.11e-04,715.9,442.75,969.27,8.06e-08,1.70e+04,4);
    vid.addOne(206440,"fluoranthene",1.61e-05,655.95,382.8,905,8.13e-06,1.38e+04,2);
    vid.addOne(207089,"benzo(k)fluoranthene",8.29e-07,753.15,480,1019.7,2.00e-09,1.80e+04,4);
    vid.addOne(218019,"chrysene",9.46e-05,714.15,441,979,7.83e-09,1.65e+04,2);
    vid.addOne(309002,"aldrin",1.70e-04,603.01,329.86,839.37,1.67e-05,1.50e+04,4);
    vid.addOne(319846,"alpha-hch (alpha-bhc)",1.06e-05,596.55,323.4,839.36,4.26e-05,1.50e+04,4);
    vid.addOne(319857,"beta-hch (beta-bhc)",7.44e-07,596.55,323.4,839.36,4.90e-07,1.90e+04,4);
    vid.addOne(542756,"1,3-dichloropropene",1.77e-02,381.15,108,587.38,3.12e+01,7.90e+03,4);
    vid.addOne(606202,"2,6-dinitrotoluene",7.46e-07,558,284.85,770,5.68e-04,1.29e+04,2);
    vid.addOne(621647,"n-nitrosodi-n-propylamine",2.25e-06,509.6,236.45,746.87,3.52e+00,6.10e+03,4);
    vid.addOne(1024573,"heptachlor epoxide",9.51e-06,613.96,340.81,848.76,4.34e-06,1.60e+04,4);
    vid.addOne(7439976,"mercury (elemental)",1.14e-02,629.88,356.73,1750,2.00e-03,1.41e+04,1);
    vid.addOne(8001352,"toxaphene",6.00e-06,657.15,384,873.31,4.19e-06,1.50e+04,4);  
}

function GetKhVI_estimateHenryConstant()
{
  //estimate enthalpy of vaporization at the average soil temperature (assumed entered upon invocation of constructor)
  var tcK = vid.getCriticalTemperatureK();
  var nbpK = vid.getNormalBoilingPointK();
  var dhvb = vid.getEnthalpyOfVaporization();

  //determine the exponent: (Table 1)
  var ratio = nbpK/tcK;
  var expo = 1.;
  if (ratio < 0.57){expo=0.30;}
  else
  { 
    if (0.57 <= ratio && nbpK <= 0.71) {expo = 0.74*ratio - 0.116;}
    else {expo = 0.41;}
  }

  //Equation 2
  //soil temp in K
  var ts = this.temp+273.15;
  var x = (1 - ts/tcK)/(1- nbpK/tcK);
  var dhvts = dhvb*Math.pow( x , expo );

  //henry constant at soil temperature
  var kh = vid.getHenryConstant25(this.chemical);
  var rc = 1.9872
  var khts = kh*Math.exp(-(dhvts/rc)*(1/ts - 1/298.15) );

  return khts;

}

//determine if chemical is in the data set
function GetKhVI_cPresent() {return vid.cPresent();}

GetKhVI.prototype.addChemicals = GetKhVI_addChemicals;
GetKhVI.prototype.cPresent = GetKhVI_cPresent;
GetKhVI.prototype.estimateHenryConstant = GetKhVI_estimateHenryConstant;

//******************************************
//Definition of the GetKhVI object ends here
//