linescaling.cc

Go to the documentation of this file.

/* Copyright (C) 2015
   Richard Larsson <ric.larsson@gmail.com>
 
   This program is free software; you can redistribute it and/or modify it
   under the terms of the GNU General Public License as published by the
   Free Software Foundation; either version 2, or (at your option) any
   later version.
 
   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.
 
   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
   USA. */
 
#include "linescaling.h"
#include "interpolation_poly.h"
 
Numeric SingleCalculatePartitionFctFromCoeff(const Numeric& T,
                                             ConstVectorView q_grid) {
  Numeric result = 0.;
  Numeric TN = 1;
 
  for (Index i = 0; i < q_grid.nelem(); i++) {
    result += TN * q_grid[i];
    TN *= T;
  }
 
  return result;
}
 
Numeric SingleCalculatePartitionFctFromCoeff_dT(const Numeric& T,
                                                ConstVectorView q_grid) {
  Numeric result = 0;
  Numeric TN = 1;
 
  for (Index i = 1; i < q_grid.nelem(); i++) {
    result += Numeric(i) * TN * q_grid[i];
    TN *= T;
  }
 
  return result;
}
 
Numeric SingleCalculatePartitionFctFromData(const Numeric& T,
                                            ConstVectorView t_grid,
                                            ConstVectorView q_grid,
                                            const Index& interp_order) {
  GridPosPoly gp;
  gridpos_poly(gp, t_grid, T, interp_order);
  Vector itw(gp.idx.nelem());
  interpweights(itw, gp);
  return interp(itw, q_grid, gp);
}
 
Numeric SingleCalculatePartitionFctFromData_dT(const Numeric& QT,
                                               const Numeric& T,
                                               const Numeric& dT,
                                               ConstVectorView t_grid,
                                               ConstVectorView q_grid,
                                               const Index& interp_order) {
  GridPosPoly gp;
  gridpos_poly(gp, t_grid, T + dT, interp_order);
  Vector itw(gp.idx.nelem());
  interpweights(itw, gp);
  return (interp(itw, q_grid, gp) - QT) / dT;
}
 
Numeric single_partition_function(const Numeric& T,
                                  const SpeciesAuxData::AuxType& partition_type,
                                  const ArrayOfGriddedField1& partition_data) {
  switch (partition_type) {
    case SpeciesAuxData::AT_PARTITIONFUNCTION_COEFF:
      return SingleCalculatePartitionFctFromCoeff(T, partition_data[0].data);
    case SpeciesAuxData::AT_PARTITIONFUNCTION_TFIELD:
      return SingleCalculatePartitionFctFromData(
          T, partition_data[0].get_numeric_grid(0), partition_data[0].data, 1);
    default:
      throw std::runtime_error(
          "Unknown or deprecated partition type requested.\n");
  }
}
 
Numeric dsingle_partition_function_dT(
    const Numeric& QT,
    const Numeric& T,
    const Numeric& dT,
    const SpeciesAuxData::AuxType& partition_type,
    const ArrayOfGriddedField1& partition_data) {
  switch (partition_type) {
    case SpeciesAuxData::AT_PARTITIONFUNCTION_COEFF:
      return SingleCalculatePartitionFctFromCoeff_dT(T, partition_data[0].data);
    case SpeciesAuxData::AT_PARTITIONFUNCTION_TFIELD:
      return SingleCalculatePartitionFctFromData_dT(
          QT,
          T,
          dT,
          partition_data[0].get_numeric_grid(0),
          partition_data[0].data,
          1);
    default:
      throw std::runtime_error(
          "Unknown or deprecated partition type requested.\n");
  }
}
 
Numeric stimulated_emission(Numeric T, Numeric F0) {
  using namespace Constant;
  static constexpr Numeric c1 = -h / k;
  return std::exp(c1 * F0 / T);
}
 
Numeric dstimulated_emissiondT(Numeric T, Numeric F0) {
  using namespace Constant;
  static constexpr Numeric c1 = -h / k;
  return -F0 * c1 * std::exp(F0 * c1 / T) / pow2(T);
}
 
Numeric dstimulated_emissiondF0(Numeric T, Numeric F0) {
  using namespace Constant;
  static constexpr Numeric c1 = -h / k;
  return c1 * std::exp(F0 * c1 / T) / T;
}
 
Numeric stimulated_relative_emission(const Numeric& gamma,
                                     const Numeric& gamma_ref) {
  return (1. - gamma) / (1. - gamma_ref);
}
 
Numeric dstimulated_relative_emission_dT(const Numeric& gamma,
                                         const Numeric& gamma_ref,
                                         const Numeric& F0,
                                         const Numeric& T) {
  extern const Numeric PLANCK_CONST;
  extern const Numeric BOLTZMAN_CONST;
  static const Numeric c = -PLANCK_CONST / BOLTZMAN_CONST;
 
  return c * F0 * gamma / (T * T * (1. - gamma_ref));
}
 
Numeric dstimulated_relative_emission_dF0(const Numeric& gamma,
                                          const Numeric& gamma_ref,
                                          const Numeric& T,
                                          const Numeric& T0) {
  extern const Numeric PLANCK_CONST;
  extern const Numeric BOLTZMAN_CONST;
  static const Numeric c = -PLANCK_CONST / BOLTZMAN_CONST;
 
  const Numeric g0 = 1 - gamma_ref;
  const Numeric g = 1 - gamma;
 
  return c * (g * gamma_ref / (T0 * g0 * g0) - gamma / (T * g0));
}
 
// Ratio of boltzman emission at T and T0
Numeric boltzman_ratio(const Numeric& T, const Numeric& T0, const Numeric& E0) {
  extern const Numeric BOLTZMAN_CONST;
  static const Numeric c = 1 / BOLTZMAN_CONST;
 
  return exp(E0 * c * (T - T0) / (T * T0));
}
 
Numeric dboltzman_ratio_dT(const Numeric& boltzmann_ratio,
                           const Numeric& T,
                           const Numeric& E0) {
  extern const Numeric BOLTZMAN_CONST;
  static const Numeric c = 1 / BOLTZMAN_CONST;
 
  return E0 * c * boltzmann_ratio / (T * T);
}
 
// Boltzmann factor at T
Numeric boltzman_factor(Numeric T, Numeric E0)
{
  return std::exp(- E0 / (Constant::k*T));
}
 
// Boltzmann factor at T
Numeric dboltzman_factordT(Numeric T, Numeric E0) {
  using namespace Constant;
  static constexpr Numeric c1 = -1 / k;
  return -E0 * c1 * std::exp(E0 * c1 / T) / pow2(T);
}
 
// Boltzmann factor at T
Numeric dboltzman_factordE0(Numeric T, Numeric E0) {
  using namespace Constant;
  static constexpr Numeric c1 = -1 / k;
  return c1 * std::exp(E0 * c1 / T) / T;
}
 
Numeric absorption_nlte_ratio(const Numeric& gamma,
                              const Numeric& r_upp,
                              const Numeric& r_low) {
  return (r_low - r_upp * gamma) / (1 - gamma);
}
 
Numeric dabsorption_nlte_rate_dT(const Numeric& gamma,
                                 const Numeric& T,
                                 const Numeric& F0,
                                 const Numeric& El,
                                 const Numeric& Eu,
                                 const Numeric& r_upp,
                                 const Numeric& r_low) {
  extern const Numeric PLANCK_CONST;
  extern const Numeric BOLTZMAN_CONST;
  static const Numeric c = 1 / BOLTZMAN_CONST;
 
  if (El < 0 or Eu < 0) {
    std::ostringstream os;
    os << "It is considered undefined behavior to NLTE and "
       << "temperature Jacobian without defining all "
       << "vibrational energy states";
    throw std::runtime_error(os.str());
  }
 
  const Numeric x = 1 / (T * (gamma - 1));
  const Numeric hf = F0 * PLANCK_CONST;
 
  return x * x * c *
         ((gamma - 1) * (El * r_low - Eu * gamma * r_upp) -
          hf * gamma * (r_low - r_upp));
}
 
Numeric dabsorption_nlte_rate_dF0(const Numeric& gamma,
                                  const Numeric& T,
                                  const Numeric& r_upp,
                                  const Numeric& r_low) {
  extern const Numeric PLANCK_CONST;
  extern const Numeric BOLTZMAN_CONST;
  static const Numeric c = -PLANCK_CONST / BOLTZMAN_CONST;
 
  return c * gamma * (r_low - r_upp) / (T * Constant::pow2(gamma - 1));
}
 
Numeric dabsorption_nlte_rate_dTl(const Numeric& gamma,
                                  const Numeric& T,
                                  const Numeric& Tl,
                                  const Numeric& El,
                                  const Numeric& r_low) {
  extern const Numeric BOLTZMAN_CONST;
 
  const Numeric x = 1 / (BOLTZMAN_CONST * T);
  const Numeric y = 1 / Tl;
 
  return El * x * y * y * T * r_low / (gamma - 1);
}
 
Numeric dabsorption_nlte_rate_dTu(const Numeric& gamma,
                                  const Numeric& T,
                                  const Numeric& Tu,
                                  const Numeric& Eu,
                                  const Numeric& r_upp) {
  extern const Numeric BOLTZMAN_CONST;
 
  const Numeric x = 1 / (BOLTZMAN_CONST * T);
  const Numeric y = 1 / Tu;
 
  return Eu * x * y * y * T * gamma * r_upp / (gamma - 1);
}