xiz_h2h2_cia.cpp

Go to the documentation of this file.

// C/C++
#include <fstream>
#include <iostream>
#include <sstream>
#include <stdexcept>
 
// application
#include <application/exceptions.hpp>
 
// canoe
#include <air_parcel.hpp>
#include <constants.hpp>
 
// climath
#include <climath/core.h>
#include <climath/interpolation.h>
 
// utils
#include <utils/fileio.hpp>
 
// opacity
#include "hydrogen_cia.hpp"
 
void XizH2H2CIA::LoadCoefficient(std::string fname, int bid) {
  if (!FileExists(fname)) {
    throw NotFoundError("XizH2H2CIA", fname);
  }
  len_[1] = GetNumCols(fname) - 1;
  len_[0] = GetNumRows(fname) - 1;
 
  std::ifstream infile(fname.c_str(), std::ios::in);
  axis_.resize(len_[0] + len_[1]);
  kcoeff_.resize(len_[0] * len_[1]);
  Real junk;
  if (infile.is_open()) {
    infile >> junk;
    for (int j = 0; j < len_[1]; j++) {
      infile >> axis_[len_[0] + j];
    }
    for (int k = 0; k < len_[0]; k++) {
      infile >> axis_[k];
      for (int j = 0; j < len_[1]; j++) infile >> kcoeff_[k * len_[1] + j];
    }
    infile.close();
  } else {
    throw RuntimeError("XizH2H2CIA::LoadCoefficient",
                       "Cannot open file: " + fname);
  }
}
 
Real XizH2H2CIA::GetAttenuation(Real wave1, Real wave2,
                                AirParcel const& var) const {
  // first axis is wavenumber, second is temperature
  Real val, coord[2] = {wave1, var.w[IDN]};
  interpn(&val, coord, kcoeff_.data(), axis_.data(), len_, 2, 1);
 
  Real amagat = var.w[IPR] / (Constants::kBoltz * var.w[IDN] * Constants::Lo);
  Real x0 = 1.;
  if (GetSpeciesIndex(0) == 0) {
    for (int n = 1; n <= NVAPOR; ++n) x0 -= var.w[n];
  } else {
    x0 = var.w[GetSpeciesIndex(0)];
  }
 
  return 100. * exp(-val) *
         sqr(x0 * amagat * GetPar<Real>("mixr"));  // 1/cm -> 1/m
}