m_doit.cc

Go to the documentation of this file.

/* Copyright (C) 2002-2012
   Claudia Emde <claudia.emde@dlr.de>
   Sreerekha T.R. <rekha@uni-bremen.de>
                           
   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. 
*/
 
/*===========================================================================
  === External declarations
  ===========================================================================*/
 
#include <cmath>
#include <cstdlib>
#include <iostream>
#include <stdexcept>
#include "agenda_class.h"
#include "array.h"
#include "arts.h"
#include "arts_constants.h"
#include "arts_conversions.h"
#include "auto_md.h"
#include "check_input.h"
#include "doit.h"
#include "geodetic.h"
#include "lin_alg.h"
#include "logic.h"
#include "m_general.h"
#include "math_funcs.h"
#include "matpackVII.h"
#include "messages.h"
#include "physics_funcs.h"
#include "ppath.h"
#include "rte.h"
#include "special_interp.h"
#include "wsv_aux.h"
#include "xml_io.h"
 
inline constexpr Numeric PI=Constant::pi;
inline constexpr Numeric RAD2DEG=Conversion::rad2deg(1);
 
/*===========================================================================
  === The functions (in alphabetical order)
  ===========================================================================*/
 
/* Workspace method: Doxygen documentation will be auto-generated */
void DOAngularGridsSet(  // WS Output:
    Index& doit_za_grid_size,
    Vector& aa_grid,
    Vector& za_grid,
    // Keywords:
    const Index& N_za_grid,
    const Index& N_aa_grid,
    const String& za_grid_opt_file,
    const Verbosity& verbosity) {
  // Azimuth angle grid (the same is used for the scattering integral and
  // for the radiative transfer.
  if (N_aa_grid > 1)
    nlinspace(aa_grid, 0, 360, N_aa_grid);
  else {
    ARTS_USER_ERROR_IF (N_aa_grid < 1,
      "N_aa_grid must be > 0 (even for 1D / DISORT cases).")
    aa_grid.resize(1);
    aa_grid[0] = 0.;
  }
 
  // Zenith angle grid:
  // Number of zenith angle grid points (only for scattering integral):
  ARTS_USER_ERROR_IF (N_za_grid < 0,
    "N_za_grid must be >= 0.")
  doit_za_grid_size = N_za_grid;
 
  if (za_grid_opt_file == "")
    if (N_za_grid == 0)
      za_grid.resize(0);
    else {
      ARTS_USER_ERROR_IF (N_za_grid == 1,
        "N_za_grid must be >1 or =0 (the latter only allowed for RT4).")
      nlinspace(za_grid, 0, 180, N_za_grid);
    }
  else
    xml_read_from_file(za_grid_opt_file, za_grid, verbosity);
}
 
/* Workspace method: Doxygen documentation will be auto-generated */
void doit_conv_flagAbs(  //WS Input and Output:
    Index& doit_conv_flag,
    Index& doit_iteration_counter,
    Tensor6& cloudbox_field_mono,
    // WS Input:
    const Tensor6& cloudbox_field_mono_old,
    // Keyword:
    const Vector& epsilon,
    const Index& max_iterations,
    const Index& throw_nonconv_error,
    const Verbosity& verbosity) {
  CREATE_OUT1;
  CREATE_OUT2;
 
  //------------Check the input---------------------------------------
  ARTS_USER_ERROR_IF (doit_conv_flag != 0,
        "Convergence flag is non-zero, which means that this\n"
        "WSM is not used correctly. *doit_conv_flagAbs* should\n"
        "be used only in *doit_conv_test_agenda*\n");
 
  const Index N_p = cloudbox_field_mono.nvitrines();
  const Index N_lat = cloudbox_field_mono.nshelves();
  const Index N_lon = cloudbox_field_mono.nbooks();
  const Index N_za = cloudbox_field_mono.npages();
  const Index N_aa = cloudbox_field_mono.nrows();
  const Index stokes_dim = cloudbox_field_mono.ncols();
 
  // Check keyword "epsilon":
  ARTS_USER_ERROR_IF (epsilon.nelem() != stokes_dim,
        "You have to specify limiting values for the "
        "convergence test for each Stokes component "
        "separately. That means that *epsilon* must "
        "have *stokes_dim* elements!");
 
  // Check if cloudbox_field and cloudbox_field_old have the same dimensions:
  ARTS_USER_ERROR_IF (!is_size(
          cloudbox_field_mono_old, N_p, N_lat, N_lon, N_za, N_aa, stokes_dim),
        "The fields (Tensor6) *cloudbox_field* and \n"
        "*cloudbox_field_old* which are compared in the \n"
        "convergence test do not have the same size.\n");
 
  //-----------End of checks-------------------------------------------------
 
  doit_iteration_counter += 1;
  out2 << "  Number of DOIT iteration: " << doit_iteration_counter << "\n";
 
  if (doit_iteration_counter > max_iterations) {
    ostringstream out;
    out << "Method does not converge (number of iterations \n"
        << "is > " << max_iterations << "). Either the cloud "
        << "particle number density \n"
        << "is too large or the numerical setup for the DOIT \n"
        << "calculation is not correct. In case of limb \n"
        << "simulations please make sure that you use an \n"
        << "optimized zenith angle grid. \n"
        << "*cloudbox_field* might be wrong.\n";
    if (throw_nonconv_error != 0) {
      // FIXME: OLE: Remove this later
      //          ostringstream os;
      //          os << "Error in DOIT calculation:\n"
      //             << out.str();
      //          throw runtime_error( os.str() );
      out1 << "Warning in DOIT calculation (output set to NaN):\n" << out.str();
      cloudbox_field_mono = NAN;
      doit_conv_flag = 1;
    } else {
      out1 << "Warning in DOIT calculation (output equals current status):\n"
           << out.str();
      doit_conv_flag = 1;
    }
  } else {
    for (Index p_index = 0; p_index < N_p; p_index++) {
      for (Index lat_index = 0; lat_index < N_lat; lat_index++) {
        for (Index lon_index = 0; lon_index < N_lon; lon_index++) {
          for (Index za_index = 0; za_index < N_za; za_index++) {
            for (Index aa_index = 0; aa_index < N_aa; aa_index++) {
              for (Index stokes_index = 0; stokes_index < stokes_dim;
                   stokes_index++) {
                Numeric diff = (cloudbox_field_mono(p_index,
                                                    lat_index,
                                                    lon_index,
                                                    za_index,
                                                    aa_index,
                                                    stokes_index) -
                                cloudbox_field_mono_old(p_index,
                                                        lat_index,
                                                        lon_index,
                                                        za_index,
                                                        aa_index,
                                                        stokes_index));
 
                // If the absolute difference of the components
                // is larger than the pre-defined values, return
                // to *cloudbox_fieldIterarte* and do next iteration
 
                if (abs(diff) > epsilon[stokes_index]) {
                  out1 << "difference: " << diff << "\n";
                  return;
                }
 
              }  // End loop stokes_dom.
            }    // End loop aa_grid.
          }      // End loop za_grid.
        }        // End loop lon_grid.
      }          // End loop lat_grid.
    }            // End p_grid.
 
    // Convergence test has been successful, doit_conv_flag can be set to 1.
    doit_conv_flag = 1;
  }
}
 
/* Workspace method: Doxygen documentation will be auto-generated */
void doit_conv_flagAbsBT(  //WS Input and Output:
    Index& doit_conv_flag,
    Index& doit_iteration_counter,
    Tensor6& cloudbox_field_mono,
    // WS Input:
    const Tensor6& cloudbox_field_mono_old,
    const Vector& f_grid,
    const Index& f_index,
    // Keyword:
    const Vector& epsilon,
    const Index& max_iterations,
    const Index& throw_nonconv_error,
    const Verbosity& verbosity) {
  CREATE_OUT1;
  CREATE_OUT2;
 
  //------------Check the input---------------------------------------
 
  ARTS_USER_ERROR_IF (doit_conv_flag != 0,
        "Convergence flag is non-zero, which means that this \n"
        "WSM is not used correctly. *doit_conv_flagAbs* should\n"
        "be used only in *doit_conv_test_agenda*\n");
 
  const Index N_p = cloudbox_field_mono.nvitrines();
  const Index N_lat = cloudbox_field_mono.nshelves();
  const Index N_lon = cloudbox_field_mono.nbooks();
  const Index N_za = cloudbox_field_mono.npages();
  const Index N_aa = cloudbox_field_mono.nrows();
  const Index stokes_dim = cloudbox_field_mono.ncols();
 
  // Check keyword "epsilon":
  ARTS_USER_ERROR_IF (epsilon.nelem() != stokes_dim,
        "You have to specify limiting values for the "
        "convergence test for each Stokes component "
        "separately. That means that *epsilon* must "
        "have *stokes_dim* elements!");
 
  // Check if cloudbox_field and cloudbox_field_old have the same dimensions:
  ARTS_USER_ERROR_IF (!is_size(
          cloudbox_field_mono_old, N_p, N_lat, N_lon, N_za, N_aa, stokes_dim),
        "The fields (Tensor6) *cloudbox_field* and \n"
        "*cloudbox_field_old* which are compared in the \n"
        "convergence test do not have the same size.\n");
 
  // Frequency grid
  //
  ARTS_USER_ERROR_IF (f_grid.empty(), "The frequency grid is empty.");
  chk_if_increasing("f_grid", f_grid);
 
  // Is the frequency index valid?
  ARTS_USER_ERROR_IF (f_index >= f_grid.nelem(),
        "*f_index* is greater than number of elements in the\n"
        "frequency grid.\n");
 
  //-----------End of checks--------------------------------
 
  doit_iteration_counter += 1;
  out2 << "  Number of DOIT iteration: " << doit_iteration_counter << "\n";
 
  //Numeric max_diff_bt = 0.;
  if (doit_iteration_counter > max_iterations) {
    ostringstream out;
    out << "At frequency " << f_grid[f_index] << " GHz \n"
        << "method does not converge (number of iterations \n"
        << "is > " << max_iterations << "). Either the particle"
        << " number density \n"
        << "is too large or the numerical setup for the DOIT \n"
        << "calculation is not correct. In case of limb \n"
        << "simulations please make sure that you use an \n"
        << "optimized zenith angle grid. \n"
        << "*cloudbox_field* might be wrong.\n";
    if (throw_nonconv_error != 0) {
      // FIXME: OLE: Remove this later
      //          ostringstream os;
      //          os << "Error in DOIT calculation:\n"
      //             << out.str();
      //          throw runtime_error( os.str() );
      out1 << "Warning in DOIT calculation (output set to NaN):\n" << out.str();
      cloudbox_field_mono = NAN;
      doit_conv_flag = 1;
    } else {
      out1 << "Warning in DOIT calculation (output equals current status):\n"
           << out.str();
      doit_conv_flag = 1;
    }
  } else {
    for (Index p_index = 0; p_index < N_p; p_index++) {
      for (Index lat_index = 0; lat_index < N_lat; lat_index++) {
        for (Index lon_index = 0; lon_index < N_lon; lon_index++) {
          for (Index za_index = 0; za_index < N_za; za_index++) {
            for (Index aa_index = 0; aa_index < N_aa; aa_index++) {
              for (Index stokes_index = 0; stokes_index < stokes_dim;
                   stokes_index++) {
                Numeric diff = cloudbox_field_mono(p_index,
                                                   lat_index,
                                                   lon_index,
                                                   za_index,
                                                   aa_index,
                                                   stokes_index) -
                               cloudbox_field_mono_old(p_index,
                                                       lat_index,
                                                       lon_index,
                                                       za_index,
                                                       aa_index,
                                                       stokes_index);
 
                // If the absolute difference of the components
                // is larger than the pre-defined values, return
                // to *cloudbox_fieldIterate* and do next iteration
                Numeric diff_bt = invrayjean(diff, f_grid[f_index]);
                //                        if( abs(diff_bt) > max_diff_bt )
                //                          max_diff_bt = abs(diff_bt);
                if (abs(diff_bt) > epsilon[stokes_index]) {
                  out1 << "BT difference: " << diff_bt << " in stokes dim "
                       << stokes_index << "\n";
                  //                            cout << "max BT difference in iteration #"
                  //                                 << doit_iteration_counter << ": "
                  //                                 << max_diff_bt << "\n";
                  return;
                }
              }  // End loop stokes_dom.
            }    // End loop aa_grid.
          }      // End loop za_grid.
        }        // End loop lon_grid.
      }          // End loop lat_grid.
    }            // End p_grid.
 
    //cout << "max BT difference in iteration #" << doit_iteration_counter
    //     << ": " << max_diff_bt << "\n";
    // Convergence test has been successful, doit_conv_flag can be set to 1.
    doit_conv_flag = 1;
  }
}
 
/* Workspace method: Doxygen documentation will be auto-generated */
void doit_conv_flagLsq(  //WS Output:
    Index& doit_conv_flag,
    Index& doit_iteration_counter,
    Tensor6& cloudbox_field_mono,
    // WS Input:
    const Tensor6& cloudbox_field_mono_old,
    const Vector& f_grid,
    const Index& f_index,
    // Keyword:
    const Vector& epsilon,
    const Index& max_iterations,
    const Index& throw_nonconv_error,
    const Verbosity& verbosity) {
  CREATE_OUT1;
  CREATE_OUT2;
 
  //------------Check the input---------------------------------------
 
  ARTS_USER_ERROR_IF (doit_conv_flag != 0,
        "Convergence flag is non-zero, which means that this \n"
        "WSM is not used correctly. *doit_conv_flagAbs* should\n"
        "be used only in *doit_conv_test_agenda*\n");
 
  const Index N_p = cloudbox_field_mono.nvitrines();
  const Index N_lat = cloudbox_field_mono.nshelves();
  const Index N_lon = cloudbox_field_mono.nbooks();
  const Index N_za = cloudbox_field_mono.npages();
  const Index N_aa = cloudbox_field_mono.nrows();
  const Index stokes_dim = cloudbox_field_mono.ncols();
 
  // Check keyword "epsilon":
  ARTS_USER_ERROR_IF (epsilon.nelem() != stokes_dim,
        "You have to specify limiting values for the "
        "convergence test for each Stokes component "
        "separately. That means that *epsilon* must "
        "have *stokes_dim* elements!");
 
  // Check if cloudbox_field and cloudbox_field_old have the same dimensions:
  ARTS_USER_ERROR_IF (!is_size(
          cloudbox_field_mono_old, N_p, N_lat, N_lon, N_za, N_aa, stokes_dim),
        "The fields (Tensor6) *cloudbox_field* and \n"
        "*cloudbox_field_old* which are compared in the \n"
        "convergence test do not have the same size.\n");
 
  // Frequency grid
  //
  ARTS_USER_ERROR_IF (f_grid.empty(), "The frequency grid is empty.");
  chk_if_increasing("f_grid", f_grid);
 
  // Is the frequency index valid?
  ARTS_USER_ERROR_IF (f_index >= f_grid.nelem(),
        "*f_index* is greater than number of elements in the\n"
        "frequency grid.\n");
 
  //-----------End of checks--------------------------------
 
  doit_iteration_counter += 1;
  out2 << "  Number of DOIT iteration: " << doit_iteration_counter << "\n";
 
  if (doit_iteration_counter > max_iterations) {
    ostringstream out;
    out << "Method does not converge (number of iterations \n"
        << "is > " << max_iterations << "). Either the"
        << " particle number density \n"
        << "is too large or the numerical setup for the DOIT \n"
        << "calculation is not correct. In case of limb \n"
        << "simulations please make sure that you use an \n"
        << "optimized zenith angle grid. \n";
    if (throw_nonconv_error != 0) {
      // FIXME: OLE: Remove this later
      //          ostringstream os;
      //          os << "Error in DOIT calculation:\n"
      //             << out.str();
      //          throw runtime_error( os.str() );
      out1 << "Warning in DOIT calculation (output set to NaN):\n" << out.str();
      cloudbox_field_mono = NAN;
      doit_conv_flag = 1;
    } else {
      out1 << "Warning in DOIT calculation (output equals current status):\n"
           << out.str();
      doit_conv_flag = 1;
    }
  } else {
    Vector lqs(4, 0.);
 
    // Will be set to zero if convergence not fullfilled
    doit_conv_flag = 1;
    for (Index i = 0; i < epsilon.nelem(); i++) {
      for (Index p_index = 0; p_index < N_p; p_index++) {
        for (Index lat_index = 0; lat_index < N_lat; lat_index++) {
          for (Index lon_index = 0; lon_index < N_lon; lon_index++) {
            for (Index za_index = 0; za_index < N_za; za_index++) {
              for (Index aa_index = 0; aa_index < N_aa; aa_index++) {
                lqs[i] += pow(
                    cloudbox_field_mono(
                        p_index, lat_index, lon_index, za_index, aa_index, i) -
                        cloudbox_field_mono_old(p_index,
                                                lat_index,
                                                lon_index,
                                                za_index,
                                                aa_index,
                                                i),
                    2);
              }  // End loop aa_grid.
            }    // End loop za_grid.
          }      // End loop lon_grid.
        }        // End loop lat_grid.
      }          // End p_grid.
 
      lqs[i] = sqrt(lqs[i]);
      lqs[i] /= (Numeric)(N_p * N_lat * N_lon * N_za * N_aa);
 
      // Convert difference to Rayleigh Jeans BT
      lqs[i] = invrayjean(lqs[i], f_grid[f_index]);
 
      if (lqs[i] >= epsilon[i]) doit_conv_flag = 0;
    }
    // end loop stokes_index
    out1 << "lqs [I]: " << lqs[0] << "\n";
  }
}
 
/* Workspace method: Doxygen documentation will be auto-generated */
void cloudbox_field_monoIterate(Workspace& ws,
                                // WS Input and Output:
                                Tensor6& cloudbox_field_mono,
 
                                // WS Input:
                                const Agenda& doit_scat_field_agenda,
                                const Agenda& doit_rte_agenda,
                                const Agenda& doit_conv_test_agenda,
                                const Index& accelerated,
                                const Verbosity& verbosity)
 
{
  CREATE_OUT2;
 
  //---------------Check input---------------------------------
  chk_not_empty("doit_scat_field_agenda", doit_scat_field_agenda);
  chk_not_empty("doit_rte_agenda", doit_rte_agenda);
  chk_not_empty("doit_conv_test_agenda", doit_conv_test_agenda);
 
  for (Index v = 0; v < cloudbox_field_mono.nvitrines(); v++)
    for (Index s = 0; s < cloudbox_field_mono.nshelves(); s++)
      for (Index b = 0; b < cloudbox_field_mono.nbooks(); b++)
        for (Index p = 0; p < cloudbox_field_mono.npages(); p++)
          for (Index r = 0; r < cloudbox_field_mono.nrows(); r++)
            for (Index c = 0; c < cloudbox_field_mono.ncols(); c++)
              ARTS_USER_ERROR_IF (std::isnan(cloudbox_field_mono(v, s, b, p, r, c)),
                    "*cloudbox_field_mono* contains at least one NaN value.\n"
                    "This indicates an improper initialization of *cloudbox_field*.");
 
  //cloudbox_field_mono can not be further checked here, because there is no way
  //to find out the size without including a lot more interface
  //variables
  //-----------End of checks--------------------------------------
 
  Tensor6 cloudbox_field_mono_old_local;
  Index doit_conv_flag_local;
  Index doit_iteration_counter_local;
 
  // Resize and initialize doit_scat_field,
  // which  has the same dimensions as cloudbox_field
  Tensor6 doit_scat_field_local(cloudbox_field_mono.nvitrines(),
                                cloudbox_field_mono.nshelves(),
                                cloudbox_field_mono.nbooks(),
                                cloudbox_field_mono.npages(),
                                cloudbox_field_mono.nrows(),
                                cloudbox_field_mono.ncols(),
                                0.);
 
  doit_conv_flag_local = 0;
  doit_iteration_counter_local = 0;
  // Array to save the last iteration steps
  ArrayOfTensor6 acceleration_input;
  if (accelerated) {
    acceleration_input.resize(4);
  }
  while (doit_conv_flag_local == 0) {
    // 1. Copy cloudbox_field to cloudbox_field_old.
    cloudbox_field_mono_old_local = cloudbox_field_mono;
 
    // 2.Calculate scattered field vector for all points in the cloudbox.
 
    // Calculate the scattered field.
    out2 << "  Execute doit_scat_field_agenda. \n";
    doit_scat_field_agendaExecute(
        ws, doit_scat_field_local, cloudbox_field_mono, doit_scat_field_agenda);
 
    // Update cloudbox_field.
    out2 << "  Execute doit_rte_agenda. \n";
    doit_rte_agendaExecute(
        ws, cloudbox_field_mono, doit_scat_field_local, doit_rte_agenda);
 
    //Convergence test.
    doit_conv_test_agendaExecute(ws,
                                 doit_conv_flag_local,
                                 doit_iteration_counter_local,
                                 cloudbox_field_mono,
                                 cloudbox_field_mono_old_local,
                                 doit_conv_test_agenda);
 
    // Convergence Acceleration, if wished.
    if (accelerated > 0 && doit_conv_flag_local == 0) {
      acceleration_input[(doit_iteration_counter_local - 1) % 4] =
          cloudbox_field_mono;
      // NG - Acceleration
      if (doit_iteration_counter_local % 4 == 0) {
        cloudbox_field_ngAcceleration(
            cloudbox_field_mono, acceleration_input, accelerated, verbosity);
      }
    }
  }  //end of while loop, convergence is reached.
}
 
/* Workspace method: Doxygen documentation will be auto-generated */
void cloudbox_fieldUpdate1D(
    Workspace& ws,
    // WS Input and Output:
    Tensor6& cloudbox_field_mono,
    // WS Input:
    const Tensor6& doit_scat_field,
    const ArrayOfIndex& cloudbox_limits,
    // Calculate scalar gas absorption:
    const Agenda& propmat_clearsky_agenda,
    const Tensor4& vmr_field,
    // Optical properties for individual scattering elements:
    const Agenda& spt_calc_agenda,
    const Vector& za_grid,
    const Tensor4& pnd_field,
    // Propagation path calculation:
    const Agenda& ppath_step_agenda,
    const Numeric& ppath_lmax,
    const Numeric& ppath_lraytrace,
    const Vector& p_grid,
    const Tensor3& z_field,
    const Vector& refellipsoid,
    // Calculate thermal emission:
    const Tensor3& t_field,
    const Vector& f_grid,
    const Index& f_index,
    const Agenda& surface_rtprop_agenda,
    const Index& doit_za_interp,
    const Verbosity& verbosity) {
  CREATE_OUT2;
  CREATE_OUT3;
 
  out2
      << "  cloudbox_fieldUpdate1D: Radiative transfer calculation in cloudbox\n";
  out2 << "  ------------------------------------------------------------- \n";
 
  // ---------- Check the input ----------------------------------------
 
  // Agendas
  chk_not_empty("spt_calc_agenda", spt_calc_agenda);
  chk_not_empty("ppath_step_agenda", ppath_step_agenda);
 
  ARTS_USER_ERROR_IF (cloudbox_limits.nelem() != 2,
        "The cloudbox dimension is not 1D! \n"
        "Do you really want to do a 1D calculation? \n"
        "If not, use *cloudbox_fieldUpdateSeq3D*.\n");
 
  // Number of zenith angles.
  const Index N_scat_za = za_grid.nelem();
 
  ARTS_USER_ERROR_IF (za_grid[0] != 0. || za_grid[N_scat_za - 1] != 180.,
                      "The range of *za_grid* must [0 180].");
 
  ARTS_USER_ERROR_IF (p_grid.nelem() < 2,
                      "The length of *p_grid* must be >= 2.");
  chk_if_decreasing("p_grid", p_grid);
 
  chk_size("z_field", z_field, p_grid.nelem(), 1, 1);
  chk_size("t_field", t_field, p_grid.nelem(), 1, 1);
 
  // Frequency grid
  //
  ARTS_USER_ERROR_IF (f_grid.empty(), "The frequency grid is empty.");
  chk_if_increasing("f_grid", f_grid);
 
  // Is the frequency index valid?
  ARTS_USER_ERROR_IF (f_index >= f_grid.nelem(),
        "*f_index* is greater than number of elements in the\n"
        "frequency grid.\n");
 
  ARTS_USER_ERROR_IF (!(doit_za_interp == 0 || doit_za_interp == 1),
        "Interpolation method is not defined. Use \n"
        "*doit_za_interpSet*.\n");
 
  const Index stokes_dim = doit_scat_field.ncols();
  ARTS_ASSERT(stokes_dim > 0 || stokes_dim < 5);
 
  // These variables are calculated internally, so assertions should be o.k.
  ARTS_ASSERT(is_size(cloudbox_field_mono,
                 (cloudbox_limits[1] - cloudbox_limits[0]) + 1,
                 1,
                 1,
                 N_scat_za,
                 1,
                 stokes_dim));
 
  ARTS_ASSERT(is_size(doit_scat_field,
                 (cloudbox_limits[1] - cloudbox_limits[0]) + 1,
                 1,
                 1,
                 N_scat_za,
                 1,
                 stokes_dim));
 
  // FIXME: Check *vmr_field*
 
  // -------------- End of checks --------------------------------------
 
  //=======================================================================
  // Calculate scattering coefficients for all positions in the cloudbox
  //=======================================================================
  out3 << "Calculate optical properties of individual scattering elements\n";
 
  // At this place only the particle properties are calculated. Gaseous
  // absorption is calculated inside the radiative transfer part. Inter-
  // polating absorption coefficients for gaseous species gives very bad
  // results, so they are calulated for interpolated VMRs,
  // temperature and pressure.
 
  // To use special interpolation functions for atmospheric fields we
  // use ext_mat_field and abs_vec_field:
  Tensor5 ext_mat_field(cloudbox_limits[1] - cloudbox_limits[0] + 1,
                        1,
                        1,
                        stokes_dim,
                        stokes_dim,
                        0.);
  Tensor4 abs_vec_field(
      cloudbox_limits[1] - cloudbox_limits[0] + 1, 1, 1, stokes_dim, 0.);
 
  Tensor6 cloudbox_field_old(cloudbox_field_mono);
 
  //Only dummy variable:
  Index aa_index_local = 0;
 
  //Loop over all directions, defined by za_grid
  for (Index za_index_local = 0; za_index_local < N_scat_za; za_index_local++) {
    // This function has to be called inside the angular loop, as
    // spt_calc_agenda takes *za_index_local* and *aa_index*
    // from the workspace.
    cloud_fieldsCalc(ws,
                     ext_mat_field,
                     abs_vec_field,
                     spt_calc_agenda,
                     za_index_local,
                     aa_index_local,
                     cloudbox_limits,
                     t_field,
                     pnd_field,
                     verbosity);
 
    //======================================================================
    // Radiative transfer inside the cloudbox
    //=====================================================================
 
    for (Index p_index = cloudbox_limits[0]; p_index <= cloudbox_limits[1];
         p_index++) {
      if ((p_index != 0) || (za_grid[za_index_local] <= 90.)) {
        cloud_ppath_update1D_noseq(ws,
                                   cloudbox_field_mono,
                                   p_index,
                                   za_index_local,
                                   za_grid,
                                   cloudbox_limits,
                                   cloudbox_field_old,
                                   doit_scat_field,
                                   propmat_clearsky_agenda,
                                   vmr_field,
                                   ppath_step_agenda,
                                   ppath_lmax,
                                   ppath_lraytrace,
                                   p_grid,
                                   z_field,
                                   refellipsoid,
                                   t_field,
                                   f_grid,
                                   f_index,
                                   ext_mat_field,
                                   abs_vec_field,
                                   surface_rtprop_agenda,
                                   doit_za_interp,
                                   verbosity);
      }
    }
  }  // Closes loop over za_grid.
}
 
/* Workspace method: Doxygen documentation will be auto-generated */
void cloudbox_fieldUpdateSeq1D(
    Workspace& ws,
    // WS Input and Output:
    Tensor6& cloudbox_field_mono,
    Tensor6& doit_scat_field,
    // WS Input:
    const ArrayOfIndex& cloudbox_limits,
    // Calculate scalar gas absorption:
    const Agenda& propmat_clearsky_agenda,
    const Tensor4& vmr_field,
    // Optical properties for individual scattering elements:
    const Agenda& spt_calc_agenda,
    const Vector& za_grid,
    const Vector& aa_grid,
    const Tensor4& pnd_field,
    // Propagation path calculation:
    const Agenda& ppath_step_agenda,
    const Numeric& ppath_lmax,
    const Numeric& ppath_lraytrace,
    const Vector& p_grid,
    const Tensor3& z_field,
    const Vector& refellipsoid,
    // Calculate thermal emission:
    const Tensor3& t_field,
    const Vector& f_grid,
    const Index& f_index,
    const Agenda& surface_rtprop_agenda,  //STR
    const Index& doit_za_interp,
    const Index& normalize,
    const Numeric& norm_error_threshold,
    const Index& norm_debug,
    const Verbosity& verbosity) {
  CREATE_OUT2;
  CREATE_OUT3;
 
  out2
      << "  cloudbox_fieldUpdateSeq1D: Radiative transfer calculation in cloudbox\n";
  out2 << "  ------------------------------------------------------------- \n";
 
  // ---------- Check the input ----------------------------------------
 
  // Agendas
  chk_not_empty("propmat_clearsky_agenda", propmat_clearsky_agenda);
  chk_not_empty("spt_calc_agenda", spt_calc_agenda);
  chk_not_empty("ppath_step_agenda", ppath_step_agenda);
 
  ARTS_USER_ERROR_IF (cloudbox_limits.nelem() != 2,
        "The cloudbox dimension is not 1D! \n"
        "Do you really want to do a 1D calculation? \n"
        "For 3D use *cloudbox_fieldUpdateSeq3D*.\n");
 
  // Number of zenith angles.
  const Index N_scat_za = za_grid.nelem();
 
  ARTS_USER_ERROR_IF (za_grid[0] != 0. || za_grid[N_scat_za - 1] != 180.,
                      "The range of *za_grid* must [0 180].");
 
  ARTS_USER_ERROR_IF (p_grid.nelem() < 2,
                      "The length of *p_grid* must be >= 2.");
  chk_if_decreasing("p_grid", p_grid);
 
  chk_size("z_field", z_field, p_grid.nelem(), 1, 1);
  chk_size("t_field", t_field, p_grid.nelem(), 1, 1);
 
  // Frequency grid
  //
  ARTS_USER_ERROR_IF (f_grid.empty(), "The frequency grid is empty.");
  chk_if_increasing("f_grid", f_grid);
 
  // Is the frequency index valid?
  ARTS_USER_ERROR_IF (f_index >= f_grid.nelem(),
        "*f_index* is greater than number of elements in the\n"
        "frequency grid.\n");
 
  ARTS_USER_ERROR_IF (!(doit_za_interp == 0 || doit_za_interp == 1),
        "Interpolation method is not defined. Use \n"
        "*doit_za_interpSet*.\n");
 
  const Index stokes_dim = doit_scat_field.ncols();
  ARTS_ASSERT(stokes_dim > 0 || stokes_dim < 5);
 
  // These variables are calculated internally, so assertions should be o.k.
  ARTS_ASSERT(is_size(cloudbox_field_mono,
                 (cloudbox_limits[1] - cloudbox_limits[0]) + 1,
                 1,
                 1,
                 N_scat_za,
                 1,
                 stokes_dim));
 
  ARTS_ASSERT(is_size(doit_scat_field,
                 (cloudbox_limits[1] - cloudbox_limits[0]) + 1,
                 1,
                 1,
                 N_scat_za,
                 1,
                 stokes_dim));
 
  // FIXME: Check *vmr_field*
 
  // -------------- End of checks --------------------------------------
 
  //=======================================================================
  // Calculate scattering coefficients for all positions in the cloudbox
  //=======================================================================
  out3 << "Calculate optical properties of individual scattering elements\n";
 
  // At this place only the particle properties are calculated. Gaseous
  // absorption is calculated inside the radiative transfer part. Inter-
  // polating absorption coefficients for gaseous species gives very bad
  // results, so they are calulated for interpolated VMRs,
  // temperature and pressure.
 
  // To use special interpolation functions for atmospheric fields we
  // use ext_mat_field and abs_vec_field:
  Tensor5 ext_mat_field(cloudbox_limits[1] - cloudbox_limits[0] + 1,
                        1,
                        1,
                        stokes_dim,
                        stokes_dim,
                        0.);
  Tensor4 abs_vec_field(
      cloudbox_limits[1] - cloudbox_limits[0] + 1, 1, 1, stokes_dim, 0.);
 
  // If theta is between 90° and the limiting value, the intersection point
  // is exactly at the same level as the starting point (cp. AUG)
  Numeric theta_lim =
      180. - asin((refellipsoid[0] + z_field(cloudbox_limits[0], 0, 0)) /
                  (refellipsoid[0] + z_field(cloudbox_limits[1], 0, 0))) *
                 RAD2DEG;
 
  // Epsilon for additional limb iterations
  Vector epsilon(4);
  epsilon[0] = 0.1;
  epsilon[1] = 0.01;
  epsilon[2] = 0.01;
  epsilon[3] = 0.01;
 
  Matrix cloudbox_field_limb;
 
  //Only dummy variables:
  Index aa_index_local = 0;
 
  if (normalize) {
    Tensor4 si, sei, si_corr;
    doit_scat_fieldNormalize(ws,
                             doit_scat_field,
                             cloudbox_field_mono,
                             cloudbox_limits,
                             spt_calc_agenda,
                             1,
                             za_grid,
                             aa_grid,
                             pnd_field,
                             t_field,
                             norm_error_threshold,
                             norm_debug,
                             verbosity);
  }
 
  //Loop over all directions, defined by za_grid
  for (Index za_index_local = 0; za_index_local < N_scat_za; za_index_local++) {
    // This function has to be called inside the angular loop, as
    // spt_calc_agenda takes *za_index* and *aa_index*
    // from the workspace.
    cloud_fieldsCalc(ws,
                     ext_mat_field,
                     abs_vec_field,
                     spt_calc_agenda,
                     za_index_local,
                     aa_index_local,
                     cloudbox_limits,
                     t_field,
                     pnd_field,
                     verbosity);
 
    //======================================================================
    // Radiative transfer inside the cloudbox
    //=====================================================================
 
    // Sequential update for uplooking angles
    if (za_grid[za_index_local] <= 90.) {
      // Loop over all positions inside the cloud box defined by the
      // cloudbox_limits excluding the upper boundary. For uplooking
      // directions, we start from cloudbox_limits[1]-1 and go down
      // to cloudbox_limits[0] to do a sequential update of the
      // radiation field
      for (Index p_index = cloudbox_limits[1] - 1;
           p_index >= cloudbox_limits[0];
           p_index--) {
        cloud_ppath_update1D(ws,
                             cloudbox_field_mono,
                             p_index,
                             za_index_local,
                             za_grid,
                             cloudbox_limits,
                             doit_scat_field,
                             propmat_clearsky_agenda,
                             vmr_field,
                             ppath_step_agenda,
                             ppath_lmax,
                             ppath_lraytrace,
                             p_grid,
                             z_field,
                             refellipsoid,
                             t_field,
                             f_grid,
                             f_index,
                             ext_mat_field,
                             abs_vec_field,
                             surface_rtprop_agenda,
                             doit_za_interp,
                             verbosity);
      }
    } else if (za_grid[za_index_local] >= theta_lim) {
      //
      // Sequential updating for downlooking angles
      //
      for (Index p_index = cloudbox_limits[0] + 1;
           p_index <= cloudbox_limits[1];
           p_index++) {
        cloud_ppath_update1D(ws,
                             cloudbox_field_mono,
                             p_index,
                             za_index_local,
                             za_grid,
                             cloudbox_limits,
                             doit_scat_field,
                             propmat_clearsky_agenda,
                             vmr_field,
                             ppath_step_agenda,
                             ppath_lmax,
                             ppath_lraytrace,
                             p_grid,
                             z_field,
                             refellipsoid,
                             t_field,
                             f_grid,
                             f_index,
                             ext_mat_field,
                             abs_vec_field,
                             surface_rtprop_agenda,
                             doit_za_interp,
                             verbosity);
      }  // Close loop over p_grid (inside cloudbox).
    }    // end if downlooking.
 
    //
    // Limb looking:
    // We have to include a special case here, as we may miss the endpoints
    // when the intersection point is at the same level as the aactual point.
    // To be save we loop over the full cloudbox. Inside the function
    // cloud_ppath_update1D it is checked whether the intersection point is
    // inside the cloudbox or not.
    else {
      bool conv_flag = false;
      Index limb_it = 0;
      while (!conv_flag && limb_it < 10) {
        limb_it++;
        cloudbox_field_limb =
            cloudbox_field_mono(joker, 0, 0, za_index_local, 0, joker);
        for (Index p_index = cloudbox_limits[0]; p_index <= cloudbox_limits[1];
             p_index++) {
          // For this case the cloudbox goes down to the surface and we
          // look downwards. These cases are outside the cloudbox and
          // not needed. Switch is included here, as ppath_step_agenda
          // gives an error for such cases.
          if (p_index != 0) {
            cloud_ppath_update1D(ws,
                                 cloudbox_field_mono,
                                 p_index,
                                 za_index_local,
                                 za_grid,
                                 cloudbox_limits,
                                 doit_scat_field,
                                 propmat_clearsky_agenda,
                                 vmr_field,
                                 ppath_step_agenda,
                                 ppath_lmax,
                                 ppath_lraytrace,
                                 p_grid,
                                 z_field,
                                 refellipsoid,
                                 t_field,
                                 f_grid,
                                 f_index,
                                 ext_mat_field,
                                 abs_vec_field,
                                 surface_rtprop_agenda,
                                 doit_za_interp,
                                 verbosity);
          }
        }
 
        conv_flag = true;
        for (Index p_index = 0;
             conv_flag && p_index < cloudbox_field_mono.nvitrines();
             p_index++) {
          for (Index stokes_index = 0; conv_flag && stokes_index < stokes_dim;
               stokes_index++) {
            Numeric diff = cloudbox_field_mono(
                               p_index, 0, 0, za_index_local, 0, stokes_index) -
                           cloudbox_field_limb(p_index, stokes_index);
 
            // If the absolute difference of the components
            // is larger than the pre-defined values, continue with
            // another iteration
            Numeric diff_bt = invrayjean(diff, f_grid[f_index]);
            if (abs(diff_bt) > epsilon[stokes_index]) {
              out2 << "Limb BT difference: " << diff_bt << " in stokes dim "
                   << stokes_index << "\n";
              conv_flag = false;
            }
          }
        }
      }
      out2 << "Limb iterations: " << limb_it << "\n";
    }
  }  // Closes loop over za_grid.
}  // End of the function.
 
/* Workspace method: Doxygen documentation will be auto-generated */
void cloudbox_fieldUpdateSeq3D(
    Workspace& ws,
    // WS Output and Input:
    Tensor6& cloudbox_field_mono,
    // WS Input:
    const Tensor6& doit_scat_field,
    const ArrayOfIndex& cloudbox_limits,
    // Calculate scalar gas absorption:
    const Agenda& propmat_clearsky_agenda,
    const Tensor4& vmr_field,
    // Optical properties for individual scattering elements:
    const Agenda& spt_calc_agenda,
    const Vector& za_grid,
    const Vector& aa_grid,
    const Tensor4& pnd_field,
    // Propagation path calculation:
    const Agenda& ppath_step_agenda,
    const Numeric& ppath_lmax,
    const Numeric& ppath_lraytrace,
    const Vector& p_grid,
    const Vector& lat_grid,
    const Vector& lon_grid,
    const Tensor3& z_field,
    const Vector& refellipsoid,
    // Calculate thermal emission:
    const Tensor3& t_field,
    const Vector& f_grid,
    const Index& f_index,
    const Index& doit_za_interp,
    const Verbosity& verbosity) {
  CREATE_OUT2;
  CREATE_OUT3;
 
  out2
      << "  cloudbox_fieldUpdateSeq3D: Radiative transfer calculatiuon in cloudbox.\n";
  out2 << "  ------------------------------------------------------------- \n";
 
  // ---------- Check the input ----------------------------------------
 
  // Agendas
  chk_not_empty("propmat_clearsky_agenda", propmat_clearsky_agenda);
  chk_not_empty("spt_calc_agenda", spt_calc_agenda);
  chk_not_empty("ppath_step_agenda", ppath_step_agenda);
 
  ARTS_USER_ERROR_IF (cloudbox_limits.nelem() != 6,
        "The cloudbox dimension is not 3D! \n"
        "Do you really want to do a 3D calculation? \n"
        "For 1D use *cloudbox_fieldUpdateSeq1D*.\n");
 
  // Number of zenith angles.
  const Index N_scat_za = za_grid.nelem();
 
  ARTS_USER_ERROR_IF (za_grid[0] != 0. || za_grid[N_scat_za - 1] != 180.,
                      "The range of *za_grid* must [0 180].");
 
  // Number of azimuth angles.
  const Index N_scat_aa = aa_grid.nelem();
 
  ARTS_USER_ERROR_IF (aa_grid[0] != 0. || aa_grid[N_scat_aa - 1] != 360.,
                      "The range of *za_grid* must [0 360].");
 
  // Check atmospheric grids
  chk_atm_grids(3, p_grid, lat_grid, lon_grid);
 
  // Check atmospheric fields
  chk_size(
      "z_field", z_field, p_grid.nelem(), lat_grid.nelem(), lon_grid.nelem());
  chk_size(
      "t_field", t_field, p_grid.nelem(), lat_grid.nelem(), lon_grid.nelem());
 
  // Frequency grid
  //
  ARTS_USER_ERROR_IF (f_grid.empty(), "The frequency grid is empty.");
  chk_if_increasing("f_grid", f_grid);
 
  // Is the frequency index valid?
  ARTS_USER_ERROR_IF (f_index >= f_grid.nelem(),
        "*f_index* is greater than number of elements in the\n"
        "frequency grid.\n");
 
  ARTS_USER_ERROR_IF (!(doit_za_interp == 0 || doit_za_interp == 1),
        "Interpolation method is not defined. Use \n"
        "*doit_za_interpSet*.\n");
 
  const Index stokes_dim = doit_scat_field.ncols();
  ARTS_ASSERT(stokes_dim > 0 || stokes_dim < 5);
 
  // These variables are calculated internally, so assertions should be o.k.
  ARTS_ASSERT(is_size(cloudbox_field_mono,
                 (cloudbox_limits[1] - cloudbox_limits[0]) + 1,
                 (cloudbox_limits[3] - cloudbox_limits[2]) + 1,
                 (cloudbox_limits[5] - cloudbox_limits[4]) + 1,
                 N_scat_za,
                 N_scat_aa,
                 stokes_dim));
 
  ARTS_ASSERT(is_size(doit_scat_field,
                 (cloudbox_limits[1] - cloudbox_limits[0]) + 1,
                 (cloudbox_limits[3] - cloudbox_limits[2]) + 1,
                 (cloudbox_limits[5] - cloudbox_limits[4]) + 1,
                 N_scat_za,
                 N_scat_aa,
                 stokes_dim));
 
  // FIXME: Check *vmr_field*
 
  // ---------- End of checks ------------------------------------------
 
  //=======================================================================
  // Calculate coefficients for all positions in the cloudbox
  //=======================================================================
  out3 << "Calculate optical properties of individual scattering elements\n";
 
  // At this place only the particle properties are calculated. Gaseous
  // absorption is calculated inside the radiative transfer part. Inter-
  // polating absorption coefficients for gaseous species gives very bad
  // results, so they are
  // calulated for interpolated VMRs, temperature and pressure.
 
  // Define shorter names for cloudbox_limits.
 
  const Index p_low = cloudbox_limits[0];
  const Index p_up = cloudbox_limits[1];
  const Index lat_low = cloudbox_limits[2];
  const Index lat_up = cloudbox_limits[3];
  const Index lon_low = cloudbox_limits[4];
  const Index lon_up = cloudbox_limits[5];
 
  // To use special interpolation functions for atmospheric fields we
  // use ext_mat_field and abs_vec_field:
  Tensor5 ext_mat_field(p_up - p_low + 1,
                        lat_up - lat_low + 1,
                        lon_up - lon_low + 1,
                        stokes_dim,
                        stokes_dim,
                        0.);
  Tensor4 abs_vec_field(p_up - p_low + 1,
                        lat_up - lat_low + 1,
                        lon_up - lon_low + 1,
                        stokes_dim,
                        0.);
 
  //Loop over all directions, defined by za_grid
  for (Index za_index = 0; za_index < N_scat_za; za_index++) {
    //Loop over azimuth directions (aa_grid). First and last point in
    // azimuth angle grid are euqal. Start with second element.
    for (Index aa_index = 1; aa_index < N_scat_aa; aa_index++) {
      //==================================================================
      // Radiative transfer inside the cloudbox
      //==================================================================
 
      // This function has to be called inside the angular loop, as
      // it spt_calc_agenda takes *za_index* and *aa_index*
      // from the workspace.
      cloud_fieldsCalc(ws,
                       ext_mat_field,
                       abs_vec_field,
                       spt_calc_agenda,
                       za_index,
                       aa_index,
                       cloudbox_limits,
                       t_field,
                       pnd_field,
                       verbosity);
 
      Vector stokes_vec(stokes_dim, 0.);
 
      Numeric theta_lim = 180. - asin((refellipsoid[0] + z_field(p_low, 0, 0)) /
                                      (refellipsoid[0] + z_field(p_up, 0, 0))) *
                                     RAD2DEG;
 
      // Sequential update for uplooking angles
      if (za_grid[za_index] <= 90.) {
        // Loop over all positions inside the cloud box defined by the
        // cloudbox_limits exculding the upper boundary. For uplooking
        // directions, we start from cloudbox_limits[1]-1 and go down
        // to cloudbox_limits[0] to do a sequential update of the
        // aradiation field
        for (Index p_index = p_up - 1; p_index >= p_low; p_index--) {
          for (Index lat_index = lat_low; lat_index <= lat_up; lat_index++) {
            for (Index lon_index = lon_low; lon_index <= lon_up; lon_index++) {
              cloud_ppath_update3D(ws,
                                   cloudbox_field_mono,
                                   p_index,
                                   lat_index,
                                   lon_index,
                                   za_index,
                                   aa_index,
                                   za_grid,
                                   aa_grid,
                                   cloudbox_limits,
                                   doit_scat_field,
                                   propmat_clearsky_agenda,
                                   vmr_field,
                                   ppath_step_agenda,
                                   ppath_lmax,
                                   ppath_lraytrace,
                                   p_grid,
                                   lat_grid,
                                   lon_grid,
                                   z_field,
                                   refellipsoid,
                                   t_field,
                                   f_grid,
                                   f_index,
                                   ext_mat_field,
                                   abs_vec_field,
                                   doit_za_interp,
                                   verbosity);
            }
          }
        }
      }  // close up-looking case
      else if (za_grid[za_index] > theta_lim) {
        //
        // Sequential updating for downlooking angles
        //
        for (Index p_index = p_low + 1; p_index <= p_up; p_index++) {
          for (Index lat_index = lat_low; lat_index <= lat_up; lat_index++) {
            for (Index lon_index = lon_low; lon_index <= lon_up; lon_index++) {
              cloud_ppath_update3D(ws,
                                   cloudbox_field_mono,
                                   p_index,
                                   lat_index,
                                   lon_index,
                                   za_index,
                                   aa_index,
                                   za_grid,
                                   aa_grid,
                                   cloudbox_limits,
                                   doit_scat_field,
                                   propmat_clearsky_agenda,
                                   vmr_field,
                                   ppath_step_agenda,
                                   ppath_lmax,
                                   ppath_lraytrace,
                                   p_grid,
                                   lat_grid,
                                   lon_grid,
                                   z_field,
                                   refellipsoid,
                                   t_field,
                                   f_grid,
                                   f_index,
                                   ext_mat_field,
                                   abs_vec_field,
                                   doit_za_interp,
                                   verbosity);
            }
          }
        }
      }  // end if downlooking.
 
      //
      // Limb looking:
      // We have to include a special case here, as we may miss the endpoints
      // when the intersection point is at the same level as the actual point.
      // To be save we loop over the full cloudbox. Inside the function
      // cloud_ppath_update3D it is checked whether the intersection point is
      // inside the cloudbox or not.
      else if (za_grid[za_index] > 90. && za_grid[za_index] < theta_lim) {
        for (Index p_index = p_low; p_index <= p_up; p_index++) {
          // For this case the cloudbox goes down to the surface an we
          // look downwards. These cases are outside the cloudbox and
          // not needed. Switch is included here, as ppath_step_agenda
          // gives an error for such cases.
          if (!(p_index == 0 && za_grid[za_index] > 90.)) {
            for (Index lat_index = lat_low; lat_index <= lat_up; lat_index++) {
              for (Index lon_index = lon_low; lon_index <= lon_up;
                   lon_index++) {
                cloud_ppath_update3D(ws,
                                     cloudbox_field_mono,
                                     p_index,
                                     lat_index,
                                     lon_index,
                                     za_index,
                                     aa_index,
                                     za_grid,
                                     aa_grid,
                                     cloudbox_limits,
                                     doit_scat_field,
                                     propmat_clearsky_agenda,
                                     vmr_field,
                                     ppath_step_agenda,
                                     ppath_lmax,
                                     ppath_lraytrace,
                                     p_grid,
                                     lat_grid,
                                     lon_grid,
                                     z_field,
                                     refellipsoid,
                                     t_field,
                                     f_grid,
                                     f_index,
                                     ext_mat_field,
                                     abs_vec_field,
                                     doit_za_interp,
                                     verbosity);
              }
            }
          }
        }
      }
    }  //  Closes loop over aa_grid.
  }    // Closes loop over za_grid.
 
  cloudbox_field_mono(joker, joker, joker, joker, 0, joker) =
      cloudbox_field_mono(joker, joker, joker, joker, N_scat_aa - 1, joker);
}
 
/* Workspace method: Doxygen documentation will be auto-generated */
void cloudbox_fieldUpdateSeq1DPP(
    Workspace& ws,
    // WS Output:
    Tensor6& cloudbox_field_mono,
    // spt_calc_agenda:
    Index& za_index,
    // WS Input:
    const Tensor6& doit_scat_field,
    const ArrayOfIndex& cloudbox_limits,
    // Calculate scalar gas absorption:
    const Agenda& propmat_clearsky_agenda,
    const Tensor4& vmr_field,
    // Optical properties for individual scattering elements:
    const Agenda& spt_calc_agenda,
    const Vector& za_grid,
    const Tensor4& pnd_field,
    // Propagation path calculation:
    const Vector& p_grid,
    const Tensor3& z_field,
    // Calculate thermal emission:
    const Tensor3& t_field,
    const Vector& f_grid,
    const Index& f_index,
    const Verbosity& verbosity) {
  CREATE_OUT2;
  CREATE_OUT3;
 
  out2
      << "  cloudbox_fieldUpdateSeq1DPP: Radiative transfer calculation in cloudbox.\n";
  out2
      << "  --------------------------------------------------------------------- \n";
 
  const Index stokes_dim = doit_scat_field.ncols();
  //  const Index atmosphere_dim = 1;
 
  //Check the input
 
  ARTS_USER_ERROR_IF (stokes_dim < 0 || stokes_dim > 4,
        "The dimension of stokes vector must be"
        "1,2,3, or 4");
 
  ARTS_ASSERT(is_size(cloudbox_field_mono,
                 (cloudbox_limits[1] - cloudbox_limits[0]) + 1,
                 1,
                 1,
                 za_grid.nelem(),
                 1,
                 stokes_dim));
 
  ARTS_ASSERT(is_size(doit_scat_field,
                 (cloudbox_limits[1] - cloudbox_limits[0]) + 1,
                 1,
                 1,
                 za_grid.nelem(),
                 1,
                 stokes_dim));
 
  // Is the frequency index valid?
  ARTS_ASSERT(f_index <= f_grid.nelem());
 
  // End of checks
 
  // Number of zenith angles.
  const Index N_scat_za = za_grid.nelem();
 
  //=======================================================================
  // Calculate scattering coefficients for all positions in the cloudbox
  //=======================================================================
  out3 << "Calculate optical properties of individual scattering elements\n";
 
  // At this place only the particle properties are calculated. Gaseous
  // absorption is calculated inside the radiative transfer part. Inter-
  // polating absorption coefficients for gaseous species gives very bad
  // results, so they are
  // calulated for interpolated VMRs, temperature and pressure.
 
  // To use special interpolation functions for atmospheric fields we
  // use ext_mat_field and abs_vec_field:
 
  Tensor5 ext_mat_field(cloudbox_limits[1] - cloudbox_limits[0] + 1,
                        1,
                        1,
                        stokes_dim,
                        stokes_dim,
                        0.);
  Tensor4 abs_vec_field(
      cloudbox_limits[1] - cloudbox_limits[0] + 1, 1, 1, stokes_dim, 0.);
 
  //Loop over all directions, defined by za_grid
  for (za_index = 0; za_index < N_scat_za; za_index++) {
    //Only dummy variables:
    Index aa_index = 0;
 
    cloud_fieldsCalc(ws,
                     ext_mat_field,
                     abs_vec_field,
                     spt_calc_agenda,
                     za_index,
                     aa_index,
                     cloudbox_limits,
                     t_field,
                     pnd_field,
                     verbosity);
 
    //======================================================================
    // Radiative transfer inside the cloudbox
    //=====================================================================
 
    Vector stokes_vec(stokes_dim, 0.);
    // Sequential update for uplooking angles
    if (za_grid[za_index] <= 90) {
      // Loop over all positions inside the cloud box defined by the
      // cloudbox_limits exculding the upper boundary. For uplooking
      // directions, we start from cloudbox_limits[1]-1 and go down
      // to cloudbox_limits[0] to do a sequential update of the
      // aradiation field
 
      // Loop over all positions inside the cloudbox defined by the
      // cloudbox_limits.
      for (Index p_index = cloudbox_limits[1] - 1;
           p_index >= cloudbox_limits[0];
           p_index--) {
        cloud_ppath_update1D_planeparallel(ws,
                                           cloudbox_field_mono,
                                           p_index,
                                           za_index,
                                           za_grid,
                                           cloudbox_limits,
                                           doit_scat_field,
                                           propmat_clearsky_agenda,
                                           vmr_field,
                                           p_grid,
                                           z_field,
                                           t_field,
                                           f_grid,
                                           f_index,
                                           ext_mat_field,
                                           abs_vec_field,
                                           verbosity);
      }
    } else if (za_grid[za_index] > 90) {
      //
      // Sequential updating for downlooking angles
      //
      for (Index p_index = cloudbox_limits[0] + 1;
           p_index <= cloudbox_limits[1];
           p_index++) {
        cloud_ppath_update1D_planeparallel(ws,
                                           cloudbox_field_mono,
                                           p_index,
                                           za_index,
                                           za_grid,
                                           cloudbox_limits,
                                           doit_scat_field,
                                           propmat_clearsky_agenda,
                                           vmr_field,
                                           p_grid,
                                           z_field,
                                           t_field,
                                           f_grid,
                                           f_index,
                                           ext_mat_field,
                                           abs_vec_field,
                                           verbosity);
      }  // Close loop over p_grid (inside cloudbox).
    }    // end if downlooking.
 
  }  // Closes loop over za_grid.
}
 
/* Workspace method: Doxygen documentation will be auto-generated */
void DoitInit(  //WS Output
    Tensor6& doit_scat_field,
    Tensor7& cloudbox_field,
    Index& doit_is_initialized,
    // WS Input
    const Index& stokes_dim,
    const Index& atmosphere_dim,
    const Vector& f_grid,
    const Vector& za_grid,
    const Vector& aa_grid,
    const Index& doit_za_grid_size,
    const Index& cloudbox_on,
    const ArrayOfIndex& cloudbox_limits,
    const Verbosity& verbosity) {
  if (!cloudbox_on) {
    CREATE_OUT0;
    doit_is_initialized = 0;
    out0 << "  Cloudbox is off, DOIT calculation will be skipped.\n";
    return;
    //throw runtime_error( "Cloudbox is off, no scattering calculations to be"
    //                     "performed." );
  }
 
  // -------------- Check the input ------------------------------
 
  ARTS_USER_ERROR_IF (stokes_dim < 0 || stokes_dim > 4,
        "The dimension of stokes vector must be"
        "1,2,3, or 4");
 
  chk_if_in_range("atmosphere_dim", atmosphere_dim, 1, 3);
 
  // Number of zenith angles.
  const Index N_scat_za = za_grid.nelem();
 
  // The recommended values were found by testing the accuracy and the speed of
  // 1D DOIT calculations for different grid sizes. For 3D calculations it can
  // be necessary to use more grid points.
  ARTS_USER_ERROR_IF (N_scat_za < 16,
        "For accurate results, za_grid must have "
        "more than 15 elements.");
  if (N_scat_za > 100) {
    CREATE_OUT1;
    out1 << "Warning: za_grid is very large, which means that the \n"
         << "calculation will be very slow.\n";
  }
 
  ARTS_USER_ERROR_IF (za_grid[0] != 0. || za_grid[N_scat_za - 1] != 180.,
                      "The range of *za_grid* must [0 180].");
 
  ARTS_USER_ERROR_IF (!is_increasing(za_grid),
                      "*za_grid* must be increasing.");
 
  // Number of azimuth angles.
  const Index N_scat_aa = aa_grid.nelem();
 
  ARTS_USER_ERROR_IF (N_scat_aa < 6,
        "For accurate results, aa_grid must have "
        "more than 5 elements.");
  if (N_scat_aa > 100) {
    CREATE_OUT1;
    out1 << "Warning: aa_grid is very large which means that the \n"
         << "calculation will be very slow.\n";
  }
 
  ARTS_USER_ERROR_IF (aa_grid[0] != 0. || aa_grid[N_scat_aa - 1] != 360.,
                      "The range of *aa_grid* must [0 360].");
 
  ARTS_USER_ERROR_IF (doit_za_grid_size < 16,
        "*doit_za_grid_size* must be greater than 15 for accurate results");
  if (doit_za_grid_size > 100) {
    CREATE_OUT1;
    out1 << "Warning: doit_za_grid_size is very large which means that the \n"
         << "calculation will be very slow.\n";
  }
 
  ARTS_USER_ERROR_IF (cloudbox_limits.nelem() != 2 * atmosphere_dim,
        "*cloudbox_limits* is a vector which contains the"
        "upper and lower limit of the cloud for all "
        "atmospheric dimensions. So its dimension must"
        "be 2 x *atmosphere_dim*");
 
  //------------- end of checks ---------------------------------------
 
  const Index Nf = f_grid.nelem();
  const Index Np_cloud = cloudbox_limits[1] - cloudbox_limits[0] + 1;
  const Index Nza = za_grid.nelem();
  const Index Ns = stokes_dim;
 
  // Resize and initialize radiation field in the cloudbox
  if (atmosphere_dim == 1) {
    cloudbox_field.resize(Nf, Np_cloud, 1, 1, Nza, 1, Ns);
    doit_scat_field.resize(Np_cloud, 1, 1, Nza, 1, Ns);
  } else if (atmosphere_dim == 3) {
    const Index Nlat_cloud = cloudbox_limits[3] - cloudbox_limits[2] + 1;
    const Index Nlon_cloud = cloudbox_limits[5] - cloudbox_limits[4] + 1;
    const Index Naa = aa_grid.nelem();
 
    cloudbox_field.resize(Nf, Np_cloud, Nlat_cloud, Nlon_cloud, Nza, Naa, Ns);
    doit_scat_field.resize(Np_cloud, Nlat_cloud, Nlon_cloud, Nza, Naa, Ns);
  } else {
    ARTS_USER_ERROR (
        "Scattering calculations are not possible for a 2D"
        "atmosphere. If you want to do scattering calculations"
        "*atmosphere_dim* has to be either 1 or 3");
  }
 
  cloudbox_field = NAN;
  doit_scat_field = NAN;
  doit_is_initialized = 1;
}
 
/* Workspace method: Doxygen documentation will be auto-generated */
void cloudbox_field_monoOptimizeReverse(  //WS input
    Tensor6& cloudbox_field_mono,
    const Vector& p_grid_orig,
    const Vector& p_grid,
    const ArrayOfIndex& cloudbox_limits,
    const Verbosity& /* verbosity */) {
  Tensor6 cloudbox_field_mono_opt(
      p_grid_orig.nelem(), 1, 1, cloudbox_field_mono.npages(), 1, 1);
  ArrayOfGridPos Z_gp(p_grid_orig.nelem());
  Matrix itw_z(Z_gp.nelem(), 2);
  // We only need the p_grid inside the cloudbox as cloudbox_field_mono is only defined in the
  // cloudbox
  Vector p_grid_cloudbox = p_grid[Range(
      cloudbox_limits[0], cloudbox_limits[1] - cloudbox_limits[0] + 1)];
  ostringstream os;
  os << "There is a problem with the pressure grid interpolation";
  chk_interpolation_grids(os.str(), p_grid, p_grid_orig);
 
  // Gridpositions:
  gridpos(Z_gp, p_grid_cloudbox, p_grid_orig);
  // Interpolation weights:
  interpweights(itw_z, Z_gp);
  // Interpolate cloudbox_field_mono
  for (Index i = 0; i < cloudbox_field_mono.npages(); i++) {
    interp(cloudbox_field_mono_opt(joker, 0, 0, i, 0, 0),
           itw_z,
           cloudbox_field_mono(joker, 0, 0, i, 0, 0),
           Z_gp);
  }
  cloudbox_field_mono = cloudbox_field_mono_opt;
}
 
/* Workspace method: Doxygen documentation will be auto-generated */
void OptimizeDoitPressureGrid(
    Workspace& ws,
    //WS input
    Vector& p_grid,
    Tensor4& pnd_field,
    Tensor3& t_field,
    ArrayOfArrayOfSingleScatteringData& scat_data_mono,
    Tensor3& z_field,
    ArrayOfIndex& cloudbox_limits,
    Tensor6& cloudbox_field_mono,
    Tensor7& pha_mat_doit,
    Tensor4& vmr_field,
    Vector& p_grid_orig,
    const Vector& f_grid,
    const Index& f_index,
    const Agenda& propmat_clearsky_agenda,
    const Numeric& tau_scat_max,
    const Numeric& sgl_alb_max,
    const Index& cloudbox_size_max,
    const Verbosity& verbosity) {
  CREATE_OUT2;
  CREATE_OUT3;
  // Make sure that stokes_dim = 1 and that ScatSpeciesMerge has been applied:
  ARTS_USER_ERROR_IF (cloudbox_field_mono.ncols() != 1,
        " This method currently only works for unpolarized radiation "
        "( stokes_dim = 1)");
  // If ScatSpeciesMerged has been applied, then scat_data_mono should have only one element, and
  // pnd_field should have the number of pressure grid points in the cloudbox as first dimension
  ARTS_USER_ERROR_IF (scat_data_mono.nelem() > 1 ||
      pnd_field.nbooks() != cloudbox_limits[1] - cloudbox_limits[0] + 1,
        " ScatSpeciesMerge has to be applied in order to use this method");
 
  bool was_too_much = false;
  Numeric tau_scat_max_internal = tau_scat_max;
  ArrayOfSingleScatteringData& scat_data_local = scat_data_mono[0];
  p_grid_orig = p_grid;
  vector<Numeric> z_grid_new;
  Vector ext_mat(cloudbox_limits[1] - cloudbox_limits[0] + 1);
  Vector abs_vec(cloudbox_limits[1] - cloudbox_limits[0] + 1);
  Vector scat_vec(cloudbox_limits[1] - cloudbox_limits[0] + 1);
  ArrayOfIndex cloudbox_limits_opt(2);
  z_grid_new.reserve(1000);
  for (Index i = 0; i < cloudbox_limits[0]; i++)
    z_grid_new.push_back(z_field(i, 0, 0));
  //-----------------------------------------------
  // Calculate optical thicknesses of the layers
  //------------------------------------------------
 
  // Fields for scalar gas absorption
  const Vector rtp_mag_dummy(3, 0);
  const Vector ppath_los_dummy;
  StokesVector nlte_dummy;
  ArrayOfPropagationMatrix partial_dummy;
  ArrayOfStokesVector partial_nlte_dummy;
  EnergyLevelMap rtp_nlte_dummy;
  PropagationMatrix cur_propmat_clearsky;
 
  Index scat_data_insert_offset = 0;
  Vector single_scattering_albedo(cloudbox_limits[1] - cloudbox_limits[0] + 1,
                                  0.);
  for (Index k = cloudbox_limits[0]; k < cloudbox_limits[1] + 1; ++k) {
    Index cloudbox_index = k - cloudbox_limits[0];
    Numeric abs_coeff = 0;
    // Scattering particles
    ext_mat[cloudbox_index] =
        scat_data_local[cloudbox_index].ext_mat_data(0, 0, 0, 0, 0);
    abs_vec[cloudbox_index] =
        scat_data_local[cloudbox_index].abs_vec_data(0, 0, 0, 0, 0);
    scat_vec[cloudbox_index] =
        ext_mat[cloudbox_index] - abs_vec[cloudbox_index];
    // Calculate scalar gas absorption
    propmat_clearsky_agendaExecute(ws,
                                   cur_propmat_clearsky,
                                   nlte_dummy,
                                   partial_dummy,
                                   partial_nlte_dummy,
                                   ArrayOfRetrievalQuantity(0),
                                   {},
                                   f_grid[Range(f_index, 1)],
                                   rtp_mag_dummy,
                                   ppath_los_dummy,
                                   p_grid[k],
                                   t_field(k, 0, 0),
                                   rtp_nlte_dummy,
                                   vmr_field(joker, k, 0, 0),
                                   propmat_clearsky_agenda);
    abs_coeff += cur_propmat_clearsky.Kjj()[0];
    abs_coeff /= (Numeric)vmr_field.nbooks();  // FIXME: Is this really as intended???
    single_scattering_albedo[cloudbox_index] =
        scat_vec[cloudbox_index] / (ext_mat[cloudbox_index] + abs_coeff);
  }
  //
  // Try out the current settings of tau_scat_max and sgl_alb_max
  //
  do {
    scat_data_insert_offset = 0;
    for (Index k = cloudbox_limits[0]; k < cloudbox_limits[1]; ++k) {
      Index cloudbox_index = k - cloudbox_limits[0];
      const Numeric sgl_alb = (single_scattering_albedo[cloudbox_index] +
                               single_scattering_albedo[cloudbox_index + 1]) /
                              2;
      const Numeric scat_opt_thk =
          (z_field(k + 1, 0, 0) - z_field(k, 0, 0)) *
          ((scat_vec[cloudbox_index] + scat_vec[cloudbox_index + 1]) / 2);
      if (scat_opt_thk > tau_scat_max_internal && sgl_alb > sgl_alb_max) {
        Index factor = (Index)ceil(scat_opt_thk / tau_scat_max_internal);
        for (Index j = 1; j < factor; j++) {
          scat_data_insert_offset++;
        }
      }
    }
    // If enhancement is too large, change tau_scat_max to a higher value:
    if (scat_data_insert_offset + cloudbox_limits[1] - cloudbox_limits[0] + 1 >
        cloudbox_size_max) {
      tau_scat_max_internal += 0.01;
      was_too_much = true;
    }
  } while (scat_data_insert_offset + cloudbox_limits[1] - cloudbox_limits[0] +
               1 >
           cloudbox_size_max);
  scat_data_insert_offset = 0;
  // Give warning if enhancement was too much and threshold had to be changed:
  if (was_too_much) {
    out2
        << "Warning: Pressure grid optimization with the thresholds tau_scat_max = "
        << tau_scat_max << " and sgl_slb_max = " << sgl_alb_max
        << " has lead to an enhancement larger than the value of"
        << " cloudbox_size_max = " << cloudbox_size_max
        << ". This is why I changed tau_scat_max to " << tau_scat_max_internal
        << ". This may lead to errors of a too coarse grid! \n";
  }
 
  //--------------------------------------
  //Optimize the altitude grid z_grid
  //---------------------------------------
  for (Index k = cloudbox_limits[0]; k < cloudbox_limits[1]; ++k) {
    Index cloudbox_index = k - cloudbox_limits[0];
    const Numeric sgl_alb = (single_scattering_albedo[cloudbox_index] +
                             single_scattering_albedo[cloudbox_index + 1]) /
                            2;
    const Numeric scat_opt_thk =
        (z_field(k + 1, 0, 0) - z_field(k, 0, 0)) *
        ((scat_vec[cloudbox_index] + scat_vec[cloudbox_index + 1]) / 2);
    z_grid_new.push_back(z_field(k, 0, 0));
 
    if (scat_opt_thk > tau_scat_max_internal && sgl_alb > sgl_alb_max) {
      Index factor = (Index)ceil(scat_opt_thk / tau_scat_max_internal);
      Numeric step =
          (z_field(k + 1, 0, 0) - z_field(k, 0, 0)) / (Numeric)factor;
      const SingleScatteringData nextLayer =
          scat_data_local[cloudbox_index + scat_data_insert_offset + 1];
      const SingleScatteringData currentLayer =
          scat_data_local[cloudbox_index + scat_data_insert_offset];
 
      for (Index j = 1; j < factor; j++) {
        z_grid_new.push_back(z_field(k, 0, 0) + (Numeric)j * step);
        // Perform manual interpolation of scat_data
        const Numeric weight = (Numeric)j / (Numeric)factor;
        SingleScatteringData newLayer = currentLayer;
        Tensor7 weightednextLayerPhamat = nextLayer.pha_mat_data;
        Tensor5 weightednextLayerExtmat = nextLayer.ext_mat_data;
        Tensor5 weightednextLayerAbsvec = nextLayer.abs_vec_data;
 
        weightednextLayerPhamat *= weight;
        weightednextLayerExtmat *= weight;
        weightednextLayerAbsvec *= weight;
 
        newLayer.pha_mat_data *= 1. - weight;
        newLayer.ext_mat_data *= 1. - weight;
        newLayer.abs_vec_data *= 1. - weight;
 
        newLayer.pha_mat_data += weightednextLayerPhamat;
        newLayer.ext_mat_data += weightednextLayerExtmat;
        newLayer.abs_vec_data += weightednextLayerAbsvec;
 
        // Optimize scat_data
        scat_data_local.insert(scat_data_local.begin() + cloudbox_index +
                                   scat_data_insert_offset + 1,
                               std::move(newLayer));
 
        scat_data_insert_offset++;
      }
    }
  }
  // New cloudbox limits
  cloudbox_limits_opt[0] = cloudbox_limits[0];
  cloudbox_limits_opt[1] = scat_data_insert_offset + cloudbox_limits[1];
  const Index cloudbox_opt_size =
      cloudbox_limits_opt[1] - cloudbox_limits_opt[0] + 1;
  out3 << "Frequency: " << f_grid[f_index]
       << " old: " << cloudbox_limits[1] - cloudbox_limits[0] + 1
       << " new: " << cloudbox_opt_size << " Factor: "
       << (Numeric)cloudbox_opt_size /
              (Numeric)(cloudbox_limits[1] - cloudbox_limits[0] + 1)
       << "\n";
 
  for (Index i = cloudbox_limits[1]; i < z_field.npages(); i++)
    z_grid_new.push_back(z_field(i, 0, 0));
 
  Vector z_grid(z_grid_new.size());
  for (Index i = 0; i < z_grid.nelem(); i++) z_grid[i] = z_grid_new[i];
  p_grid_orig = p_grid[Range(cloudbox_limits[0],
                             cloudbox_limits[1] - cloudbox_limits[0] + 1)];
  // ---------------------------------------
  // Interpolate fields to new z_grid
  // ----------------------------------------
  ArrayOfArrayOfSingleScatteringData scat_data_new;
  Tensor3 t_field_new(z_grid.nelem(), 1, 1);
  Vector p_grid_opt(z_grid.nelem());
  Tensor6 cloudbox_field_mono_opt(
      cloudbox_opt_size, 1, 1, cloudbox_field_mono.npages(), 1, 1);
  Tensor7 pha_mat_doit_opt(cloudbox_opt_size,
                           pha_mat_doit.nvitrines(),
                           1,
                           pha_mat_doit.nbooks(),
                           pha_mat_doit.npages(),
                           1,
                           1);
  ArrayOfGridPos Z_gp(z_grid.nelem());
  Matrix itw_z(Z_gp.nelem(), 2);
  ostringstream os;
  os << "At the current frequency " << f_grid[f_index]
     << " there was an error while interpolating the fields to the new z_field";
  chk_interpolation_grids(os.str(), z_field(joker, 0, 0), z_grid);
 
  // Gridpositions of interpolation:
  gridpos(Z_gp, z_field(joker, 0, 0), z_grid);
  // Interpolation weights:
  interpweights(itw_z, Z_gp);
 
  // Interpolate Temperature
  interp(t_field_new(joker, 0, 0), itw_z, t_field(joker, 0, 0), Z_gp);
  // Write new Temperature to scat_data
  for (Index k = cloudbox_limits_opt[0]; k < cloudbox_limits_opt[1]; k++) {
    Index i = k - cloudbox_limits[0];
    scat_data_local[i].T_grid = t_field_new(i, 0, 0);
  }
 
  // Interpolate p_grid
  interp(p_grid_opt, itw_z, p_grid, Z_gp);
 
  // Interpolate vmr_field
  Tensor4 vmr_field_opt(vmr_field.nbooks(), p_grid_opt.nelem(), 1, 1);
  for (Index i = 0; i < vmr_field.nbooks(); i++)
    interp(
        vmr_field_opt(i, joker, 0, 0), itw_z, vmr_field(i, joker, 0, 0), Z_gp);
 
  // Interpolate cloudbox_field_mono and pha_mat_doit
  ArrayOfGridPos Z_gp_2(cloudbox_opt_size);
  Matrix itw_z_2(Z_gp_2.nelem(), 2);
  Range r1 =
      Range(cloudbox_limits[0], cloudbox_limits[1] - cloudbox_limits[0] + 1);
  Range r2 = Range(cloudbox_limits_opt[0], cloudbox_opt_size);
  chk_interpolation_grids(os.str(), z_field(r1, 0, 0), z_grid[r2]);
  gridpos(Z_gp_2,
          z_field(Range(cloudbox_limits[0],
                        cloudbox_limits[1] - cloudbox_limits[0] + 1),
                  0,
                  0),
          z_grid[Range(cloudbox_limits_opt[0], cloudbox_opt_size)]);
  interpweights(itw_z_2, Z_gp_2);
 
  for (Index i = 0; i < cloudbox_field_mono.npages(); i++) {
    interp(cloudbox_field_mono_opt(joker, 0, 0, i, 0, 0),
           itw_z_2,
           cloudbox_field_mono(joker, 0, 0, i, 0, 0),
           Z_gp_2);
  }
  for (Index i = 0; i < pha_mat_doit.nvitrines(); i++) {
    for (Index j = 0; j < pha_mat_doit.nbooks(); j++) {
      for (Index k = 0; k < pha_mat_doit.npages(); k++) {
        interp(pha_mat_doit_opt(joker, i, 0, j, k, 0, 0),
               itw_z_2,
               pha_mat_doit(joker, i, 0, j, k, 0, 0),
               Z_gp_2);
      }
    }
  }
 
  // Interpolate pnd-field
  pnd_field.resize(cloudbox_opt_size, cloudbox_opt_size, 1, 1);
  pnd_field = 0.;
  for (Index i = 0; i < cloudbox_opt_size; i++) pnd_field(i, i, 0, 0) = 1.;
 
  //Write new fields
  p_grid = p_grid_opt;
  t_field = t_field_new;
  cloudbox_limits = cloudbox_limits_opt;
  cloudbox_field_mono = cloudbox_field_mono_opt;
  pha_mat_doit = pha_mat_doit_opt;
  z_field.resize(z_grid.nelem(), 1, 1);
  z_field(joker, 0, 0) = z_grid;
  vmr_field = vmr_field_opt;
}
 
/* Workspace method: Doxygen documentation will be auto-generated */
void DoitWriteIterationFields(  //WS input
    const Index& doit_iteration_counter,
    const Tensor6& cloudbox_field_mono,
    const Index& f_index,
    //Keyword:
    const ArrayOfIndex& iterations,
    const ArrayOfIndex& frequencies,
    const Verbosity& verbosity) {
  if (!frequencies.nelem() || !iterations.nelem()) return;
 
  // If the number of iterations is less than a number specified in the
  // keyword *iterations*, this number will be ignored.
 
  ostringstream os;
  os << "doit_iteration_f" << f_index << "_i" << doit_iteration_counter;
 
  // All iterations for all frequencies are written to files
  if (frequencies[0] == -1 && iterations[0] == -1) {
    xml_write_to_file(
        os.str() + ".xml", cloudbox_field_mono, FILE_TYPE_ASCII, 0, verbosity);
  }
 
  for (Index j = 0; j < frequencies.nelem(); j++) {
    if (f_index == frequencies[j] || (!j && frequencies[j] == -1)) {
      // All iterations are written to files
      if (iterations[0] == -1) {
        xml_write_to_file(os.str() + ".xml",
                          cloudbox_field_mono,
                          FILE_TYPE_ASCII,
                          0,
                          verbosity);
      }
 
      // Only the iterations given by the keyword are written to a file
      else {
        for (Index i = 0; i < iterations.nelem(); i++) {
          if (doit_iteration_counter == iterations[i])
            xml_write_to_file(os.str() + ".xml",
                              cloudbox_field_mono,
                              FILE_TYPE_ASCII,
                              0,
                              verbosity);
        }
      }
    }
  }
}
 
/* Workspace method: Doxygen documentation will be auto-generated */
void doit_scat_fieldCalc(Workspace& ws,
                         // WS Output and Input
                         Tensor6& doit_scat_field,
                         //WS Input:
                         const Agenda& pha_mat_spt_agenda,
                         const Tensor6& cloudbox_field_mono,
                         const Tensor4& pnd_field,
                         const Tensor3& t_field,
                         const Index& atmosphere_dim,
                         const ArrayOfIndex& cloudbox_limits,
                         const Vector& za_grid,
                         const Vector& aa_grid,
                         const Index& doit_za_grid_size,
                         const Tensor7& pha_mat_doit,
                         const Verbosity& verbosity)
 
{
  CREATE_OUT2;
  CREATE_OUT3;
 
  // ------------ Check the input -------------------------------
 
  // Agenda for calculation of phase matrix
  chk_not_empty("pha_mat_spt_agenda", pha_mat_spt_agenda);
 
  // Number of zenith angles.
  const Index Nza = za_grid.nelem();
 
  ARTS_USER_ERROR_IF (za_grid[0] != 0. || za_grid[Nza - 1] != 180.,
                      "The range of *za_grid* must [0 180].");
 
  // Number of azimuth angles.
  const Index Naa = aa_grid.nelem();
 
  ARTS_USER_ERROR_IF (Naa > 1 && (aa_grid[0] != 0. || aa_grid[Naa - 1] != 360.),
                      "The range of *aa_grid* must [0 360].");
 
  // Get stokes dimension from *doit_scat_field*:
  const Index stokes_dim = doit_scat_field.ncols();
  ARTS_ASSERT(stokes_dim > 0 || stokes_dim < 5);
 
  // Size of particle number density field can not be checked here,
  // because the function does not use the atmospheric grids.
  // Check will be included after fixing the size of pnd field, so
  // that it is defined only inside the cloudbox.
 
  // Check atmospheric dimension and dimensions of
  // radiation field (*cloudbox_field*) and scattering integral field
  // (*doit_scat_field*)
  if (atmosphere_dim == 1) {
    ARTS_ASSERT(is_size(cloudbox_field_mono,
                   (cloudbox_limits[1] - cloudbox_limits[0]) + 1,
                   1,
                   1,
                   Nza,
                   1,
                   stokes_dim));
    ARTS_ASSERT(is_size(doit_scat_field,
                   (cloudbox_limits[1] - cloudbox_limits[0]) + 1,
                   1,
                   1,
                   za_grid.nelem(),
                   1,
                   stokes_dim));
  } else if (atmosphere_dim == 3) {
    ARTS_ASSERT(is_size(cloudbox_field_mono,
                   (cloudbox_limits[1] - cloudbox_limits[0]) + 1,
                   (cloudbox_limits[3] - cloudbox_limits[2]) + 1,
                   (cloudbox_limits[5] - cloudbox_limits[4]) + 1,
                   Nza,
                   Naa,
                   stokes_dim));
    ARTS_ASSERT(is_size(doit_scat_field,
                   (cloudbox_limits[1] - cloudbox_limits[0]) + 1,
                   (cloudbox_limits[3] - cloudbox_limits[2]) + 1,
                   (cloudbox_limits[5] - cloudbox_limits[4]) + 1,
                   Nza,
                   Naa,
                   stokes_dim));
  } else {
    ARTS_USER_ERROR (
      "The atmospheric dimension must be 1D or 3D \n"
      "for scattering calculations using the DOIT\n"
      "module, but it is not. The value of *atmosphere_dim*\n"
      "is ", atmosphere_dim, ".")
  }
 
  ARTS_USER_ERROR_IF (cloudbox_limits.nelem() != 2 * atmosphere_dim,
        "*cloudbox_limits* is a vector which contains the"
        "upper and lower limit of the cloud for all "
        "atmospheric dimensions. So its dimension must"
        "be 2 x *atmosphere_dim*");
 
  // This function should only be used for down-looking cases where no
  // optimized zenith angle grid is required.
  ARTS_USER_ERROR_IF (doit_za_grid_size != Nza,
        "The zenith angle grids for the computation of\n"
        "the scattering integral and the RT part must \n"
        "be equal. Check definitions in \n"
        "*DOAngularGridsSet*. The keyword \n"
        "'za_grid_opt_file' should be empty. \n");
 
  // ------ end of checks -----------------------------------------------
 
  // Initialize variables *pha_mat* and *pha_mat_spt*
  Tensor4 pha_mat_local(
      doit_za_grid_size, aa_grid.nelem(), stokes_dim, stokes_dim, 0.);
 
  Tensor5 pha_mat_spt_local(pnd_field.nbooks(),
                            doit_za_grid_size,
                            aa_grid.nelem(),
                            stokes_dim,
                            stokes_dim,
                            0.);
 
  // Equidistant step size for integration
  Vector grid_stepsize(2);
  grid_stepsize[0] = 180. / (Numeric)(doit_za_grid_size - 1);
  if (Naa > 1) {
    grid_stepsize[1] = 360. / (Numeric)(Naa - 1);
  }
 
  Tensor3 product_field(Nza, Naa, stokes_dim, 0);
 
  out2 << "  Calculate the scattered field\n";
 
  if (atmosphere_dim == 1) {
    // Get pha_mat at the grid positions
    // Since atmosphere_dim = 1, there is no loop over lat and lon grids
    for (Index p_index = 0; p_index <= cloudbox_limits[1] - cloudbox_limits[0];
         p_index++) {
      //There is only loop over zenith angle grid ; no azimuth angle grid.
      for (Index za_index_local = 0; za_index_local < Nza; za_index_local++) {
        // Calculate the phase matrix of individual scattering elements
        out3 << "Multiplication of phase matrix with incoming"
             << " intensities \n";
 
        product_field = 0;
 
        // za_in and aa_in are for incoming zenith and azimuth
        //angle direction for which pha_mat is calculated
        for (Index za_in = 0; za_in < Nza; ++za_in) {
          for (Index aa_in = 0; aa_in < Naa; ++aa_in) {
            // Multiplication of phase matrix with incoming
            // intensity field.
 
            for (Index i = 0; i < stokes_dim; i++) {
              for (Index j = 0; j < stokes_dim; j++) {
                product_field(za_in, aa_in, i) +=
                    pha_mat_doit(
                        p_index, za_index_local, 0, za_in, aa_in, i, j) *
                    cloudbox_field_mono(p_index, 0, 0, za_in, 0, j);
              }
            }
 
          }  //end aa_in loop
        }    //end za_in loop
        //integration of the product of ifield_in and pha
        //  over zenith angle and azimuth angle grid. It calls
        if (Naa == 1) {
          for (Index i = 0; i < stokes_dim; i++) {
            doit_scat_field(p_index, 0, 0, za_index_local, 0, i) =
                AngIntegrate_trapezoid(product_field(joker, 0, i), za_grid) /
                2 / PI;
          }  //end i loop
        } else {
          for (Index i = 0; i < stokes_dim; i++) {
            doit_scat_field(p_index, 0, 0, za_index_local, 0, i) =
                AngIntegrate_trapezoid_opti(product_field(joker, joker, i),
                                            za_grid,
                                            aa_grid,
                                            grid_stepsize);
          }
        }
      }  //end za_prop loop
    }    //end p_index loop
  }      //end atmosphere_dim = 1
 
  //atmosphere_dim = 3
  else if (atmosphere_dim == 3) {
    /*there is a loop over pressure, latitude and longitudeindex
        when we calculate the pha_mat from pha_mat_spt and pnd_field
        using the method pha_matCalc.  */
 
    for (Index p_index = 0; p_index <= cloudbox_limits[1] - cloudbox_limits[0];
         p_index++) {
      for (Index lat_index = 0;
           lat_index <= cloudbox_limits[3] - cloudbox_limits[2];
           lat_index++) {
        for (Index lon_index = 0;
             lon_index <= cloudbox_limits[5] - cloudbox_limits[4];
             lon_index++) {
          Numeric rtp_temperature_local =
              t_field(p_index + cloudbox_limits[0],
                      lat_index + cloudbox_limits[2],
                      lon_index + cloudbox_limits[4]);
 
          for (Index aa_index_local = 1; aa_index_local < Naa;
               aa_index_local++) {
            for (Index za_index_local = 0; za_index_local < Nza;
                 za_index_local++) {
              out3 << "Calculate phase matrix \n";
              pha_mat_spt_agendaExecute(ws,
                                        pha_mat_spt_local,
                                        za_index_local,
                                        lat_index,
                                        lon_index,
                                        p_index,
                                        aa_index_local,
                                        rtp_temperature_local,
                                        pha_mat_spt_agenda);
 
              pha_matCalc(pha_mat_local,
                          pha_mat_spt_local,
                          pnd_field,
                          atmosphere_dim,
                          p_index,
                          lat_index,
                          lon_index,
                          verbosity);
 
              product_field = 0;
 
              //za_in and aa_in are the incoming directions
              //for which pha_mat_spt is calculated
              for (Index za_in = 0; za_in < Nza; ++za_in) {
                for (Index aa_in = 0; aa_in < Naa; ++aa_in) {
                  // Multiplication of phase matrix
                  // with incloming intensity field.
                  for (Index i = 0; i < stokes_dim; i++) {
                    for (Index j = 0; j < stokes_dim; j++) {
                      product_field(za_in, aa_in, i) +=
                          pha_mat_local(za_in, aa_in, i, j) *
                          cloudbox_field_mono(p_index,
                                              lat_index,
                                              lon_index,
                                              za_index_local,
                                              aa_index_local,
                                              j);
                    }
                  }
                }  //end aa_in loop
              }    //end za_in loop
              //integration of the product of ifield_in and pha
              //over zenith angle and azimuth angle grid. It
              //calls here the integration routine
              //AngIntegrate_trapezoid_opti
              for (Index i = 0; i < stokes_dim; i++) {
                doit_scat_field(p_index,
                                lat_index,
                                lon_index,
                                za_index_local,
                                aa_index_local,
                                i) =
                    AngIntegrate_trapezoid_opti(product_field(joker, joker, i),
                                                za_grid,
                                                aa_grid,
                                                grid_stepsize);
              }  //end i loop
            }    //end aa_prop loop
          }      //end za_prop loop
        }        //end lon loop
      }          // end lat loop
    }            // end p loop
    // aa = 0 is the same as aa = 180:
    doit_scat_field(joker, joker, joker, joker, 0, joker) =
        doit_scat_field(joker, joker, joker, joker, Naa - 1, joker);
  }  // end atmosphere_dim = 3
}
 
/* Workspace method: Doxygen documentation will be auto-generated */
void doit_scat_fieldCalcLimb(Workspace& ws,
                             // WS Output and Input
                             Tensor6& doit_scat_field,
                             //WS Input:
                             const Agenda& pha_mat_spt_agenda,
                             const Tensor6& cloudbox_field_mono,
                             const Tensor4& pnd_field,
                             const Tensor3& t_field,
                             const Index& atmosphere_dim,
                             const ArrayOfIndex& cloudbox_limits,
                             const Vector& za_grid,
                             const Vector& aa_grid,
                             const Index& doit_za_grid_size,
                             const Index& doit_za_interp,
                             const Tensor7& pha_mat_doit,
                             const Verbosity& verbosity) {
  CREATE_OUT2;
  CREATE_OUT3;
 
  // ------------ Check the input -------------------------------
 
  // Agenda for calculation of phase matrix
  chk_not_empty("pha_mat_spt_agenda", pha_mat_spt_agenda);
 
  // Number of zenith angles.
  const Index Nza = za_grid.nelem();
 
  ARTS_USER_ERROR_IF (za_grid[0] != 0. || za_grid[Nza - 1] != 180.,
                      "The range of *za_grid* must [0 180].");
 
  // Number of azimuth angles.
  const Index Naa = aa_grid.nelem();
 
  ARTS_USER_ERROR_IF (Naa > 1 && (aa_grid[0] != 0. || aa_grid[Naa - 1] != 360.),
                      "The range of *aa_grid* must [0 360].");
 
  // Get stokes dimension from *doit_scat_field*:
  const Index stokes_dim = doit_scat_field.ncols();
  ARTS_ASSERT(stokes_dim > 0 || stokes_dim < 5);
 
  // Size of particle number density field can not be checked here,
  // because the function does not use the atmospheric grids.
  // Check will be included after fixing the size of pnd field, so
  // that it is defined only inside the cloudbox.
 
  // Check atmospheric dimension and dimensions of
  // radiation field (*cloudbox_field*) and scattering integral field
  // (*doit_scat_field*)
  if (atmosphere_dim == 1) {
    ARTS_ASSERT(is_size(cloudbox_field_mono,
                   (cloudbox_limits[1] - cloudbox_limits[0]) + 1,
                   1,
                   1,
                   Nza,
                   1,
                   stokes_dim));
    ARTS_ASSERT(is_size(doit_scat_field,
                   (cloudbox_limits[1] - cloudbox_limits[0]) + 1,
                   1,
                   1,
                   za_grid.nelem(),
                   1,
                   stokes_dim));
  } else if (atmosphere_dim == 3) {
    ARTS_ASSERT(is_size(cloudbox_field_mono,
                   (cloudbox_limits[1] - cloudbox_limits[0]) + 1,
                   (cloudbox_limits[3] - cloudbox_limits[2]) + 1,
                   (cloudbox_limits[5] - cloudbox_limits[4]) + 1,
                   Nza,
                   Naa,
                   stokes_dim));
    ARTS_ASSERT(is_size(doit_scat_field,
                   (cloudbox_limits[1] - cloudbox_limits[0]) + 1,
                   (cloudbox_limits[3] - cloudbox_limits[2]) + 1,
                   (cloudbox_limits[5] - cloudbox_limits[4]) + 1,
                   Nza,
                   Naa,
                   stokes_dim));
  } else {
    ARTS_USER_ERROR (
      "The atmospheric dimension must be 1D or 3D \n"
      "for scattering calculations using the DOIT\n"
      "module, but it is not. The value of *atmosphere_dim*\n"
      "is ", atmosphere_dim, ".")
  }
 
  ARTS_USER_ERROR_IF (!(doit_za_interp == 0 || doit_za_interp == 1),
        "Interpolation method is not defined. Use \n"
        "*doit_za_interpSet*.\n");
 
  ARTS_USER_ERROR_IF (cloudbox_limits.nelem() != 2 * atmosphere_dim,
        "*cloudbox_limits* is a vector which contains the"
        "upper and lower limit of the cloud for all "
        "atmospheric dimensions. So its dimension must"
        "be 2 x *atmosphere_dim*");
 
  ARTS_USER_ERROR_IF (doit_za_grid_size < 16,
        "*doit_za_grid_size* must be greater than 15 for"
        "accurate results");
  if (doit_za_grid_size > 100) {
    CREATE_OUT1;
    out1 << "Warning: doit_za_grid_size is very large which means that the \n"
         << "calculation will be very slow. The recommended value is 19.\n";
  }
 
  // ------ end of checks -----------------------------------------------
 
  // Initialize variables *pha_mat* and *pha_mat_spt*
  Tensor4 pha_mat_local(
      doit_za_grid_size, aa_grid.nelem(), stokes_dim, stokes_dim, 0.);
 
  Tensor5 pha_mat_spt_local(pnd_field.nbooks(),
                            doit_za_grid_size,
                            aa_grid.nelem(),
                            stokes_dim,
                            stokes_dim,
                            0.);
 
  // Create the grids for the calculation of the scattering integral.
  Vector za_g;
  nlinspace(za_g, 0, 180, doit_za_grid_size);
 
  // Two interpolations are required. First we have to interpolate the
  // intensity field on the equidistant grid:
  ArrayOfGridPos gp_za_i(doit_za_grid_size);
  gridpos(gp_za_i, za_grid, za_g);
 
  Matrix itw_za_i(doit_za_grid_size, 2);
  interpweights(itw_za_i, gp_za_i);
 
  // Intensity field interpolated on equidistant grid.
  Matrix cloudbox_field_int(doit_za_grid_size, stokes_dim, 0);
 
  // Second, we have to interpolate the scattering integral on the RT
  // zenith angle grid.
  ArrayOfGridPos gp_za(Nza);
  gridpos(gp_za, za_g, za_grid);
 
  Matrix itw_za(Nza, 2);
  interpweights(itw_za, gp_za);
 
  // Original scattered field, on equidistant zenith angle grid.
  Matrix doit_scat_field_org(doit_za_grid_size, stokes_dim, 0);
 
  //  Grid stepsize of zenith and azimuth angle grid, these are needed for the
  // integration function.
  Vector grid_stepsize(2);
  grid_stepsize[0] = 180. / (Numeric)(doit_za_grid_size - 1);
  if (Naa > 1) {
    grid_stepsize[1] = 360. / (Numeric)(Naa - 1);
  }
 
  Tensor3 product_field(doit_za_grid_size, Naa, stokes_dim, 0);
 
  if (atmosphere_dim == 1) {
    // Get pha_mat at the grid positions
    // Since atmosphere_dim = 1, there is no loop over lat and lon grids
    for (Index p_index = 0; p_index <= cloudbox_limits[1] - cloudbox_limits[0];
         p_index++) {
      // Interpolate intensity field:
      for (Index i = 0; i < stokes_dim; i++) {
        if (doit_za_interp == 0) {
          interp(cloudbox_field_int(joker, i),
                 itw_za_i,
                 cloudbox_field_mono(p_index, 0, 0, joker, 0, i),
                 gp_za_i);
        } else if (doit_za_interp == 1) {
          // Polynomial
          for (Index za = 0; za < za_g.nelem(); za++) {
            cloudbox_field_int(za, i) =
                interp_poly(za_grid,
                            cloudbox_field_mono(p_index, 0, 0, joker, 0, i),
                            za_g[za],
                            gp_za_i[za]);
          }
        }
        // doit_za_interp must be 0 or 1 (linear or polynomial)!!!
        else
          ARTS_ASSERT(false);
      }
 
      //There is only loop over zenith angle grid; no azimuth angle grid.
      for (Index za_index_local = 0; za_index_local < doit_za_grid_size;
           za_index_local++) {
        out3 << "Multiplication of phase matrix with incoming"
             << " intensities \n";
 
        product_field = 0;
 
        // za_in and aa_in are for incoming zenith and azimuth
        // angle direction for which pha_mat is calculated
        for (Index za_in = 0; za_in < doit_za_grid_size; za_in++) {
          for (Index aa_in = 0; aa_in < Naa; ++aa_in) {
            // Multiplication of phase matrix with incoming
            // intensity field.
 
            for (Index i = 0; i < stokes_dim; i++) {
              for (Index j = 0; j < stokes_dim; j++) {
                product_field(za_in, aa_in, i) +=
                    pha_mat_doit(
                        p_index, za_index_local, 0, za_in, aa_in, i, j) *
                    cloudbox_field_int(za_in, j);
              }
            }
 
          }  //end aa_in loop
        }    //end za_in loop
 
        out3 << "Compute integral. \n";
        if (Naa == 1) {
          for (Index i = 0; i < stokes_dim; i++) {
            doit_scat_field_org(za_index_local, i) =
                AngIntegrate_trapezoid(product_field(joker, 0, i), za_g) / 2 /
                PI;
          }  //end i loop
        } else {
          for (Index i = 0; i < stokes_dim; i++) {
            doit_scat_field_org(za_index_local, i) =
                AngIntegrate_trapezoid_opti(product_field(joker, joker, i),
                                            za_g,
                                            aa_grid,
                                            grid_stepsize);
          }
        }
 
      }  //end za_prop loop
 
      // Interpolation on za_grid, which is used in
      // radiative transfer part.
      for (Index i = 0; i < stokes_dim; i++) {
        if (doit_za_interp == 0)  // linear interpolation
        {
          interp(doit_scat_field(p_index, 0, 0, joker, 0, i),
                 itw_za,
                 doit_scat_field_org(joker, i),
                 gp_za);
        } else  // polynomial interpolation
        {
          for (Index za = 0; za < za_grid.nelem(); za++) {
            doit_scat_field(p_index, 0, 0, za, 0, i) = interp_poly(
                za_g, doit_scat_field_org(joker, i), za_grid[za], gp_za[za]);
          }
        }
      }
    }  //end p_index loop
 
  }  //end atmosphere_dim = 1
 
  else if (atmosphere_dim == 3) {
    // Loop over all positions
    for (Index p_index = 0; p_index <= cloudbox_limits[1] - cloudbox_limits[0];
         p_index++) {
      for (Index lat_index = 0;
           lat_index <= cloudbox_limits[3] - cloudbox_limits[2];
           lat_index++) {
        for (Index lon_index = 0;
             lon_index <= cloudbox_limits[5] - cloudbox_limits[4];
             lon_index++) {
          Numeric rtp_temperature_local =
              t_field(p_index + cloudbox_limits[0],
                      lat_index + cloudbox_limits[2],
                      lon_index + cloudbox_limits[4]);
 
          // Loop over scattered directions
          for (Index aa_index_local = 1; aa_index_local < Naa;
               aa_index_local++) {
            // Interpolate intensity field:
            for (Index i = 0; i < stokes_dim; i++) {
              interp(
                  cloudbox_field_int(joker, i),
                  itw_za_i,
                  cloudbox_field_mono(
                      p_index, lat_index, lon_index, joker, aa_index_local, i),
                  gp_za_i);
            }
 
            for (Index za_index_local = 0; za_index_local < doit_za_grid_size;
                 za_index_local++) {
              out3 << "Calculate phase matrix \n";
              pha_mat_spt_agendaExecute(ws,
                                        pha_mat_spt_local,
                                        za_index_local,
                                        lat_index,
                                        lon_index,
                                        p_index,
                                        aa_index_local,
                                        rtp_temperature_local,
                                        pha_mat_spt_agenda);
 
              pha_matCalc(pha_mat_local,
                          pha_mat_spt_local,
                          pnd_field,
                          atmosphere_dim,
                          p_index,
                          lat_index,
                          lon_index,
                          verbosity);
 
              product_field = 0;
 
              //za_in and aa_in are the incoming directions
              //for which pha_mat_spt is calculated
              out3 << "Multiplication of phase matrix with"
                   << "incoming intensity \n";
 
              for (Index za_in = 0; za_in < doit_za_grid_size; za_in++) {
                for (Index aa_in = 0; aa_in < Naa; ++aa_in) {
                  // Multiplication of phase matrix
                  // with incloming intensity field.
                  for (Index i = 0; i < stokes_dim; i++) {
                    for (Index j = 0; j < stokes_dim; j++) {
                      product_field(za_in, aa_in, i) +=
                          pha_mat_local(za_in, aa_in, i, j) *
                          cloudbox_field_int(za_in, j);
                    }
                  }
                }  //end aa_in loop
              }    //end za_in loop
 
              out3 << "Compute the integral \n";
 
              for (Index i = 0; i < stokes_dim; i++) {
                doit_scat_field_org(za_index_local, i) =
                    AngIntegrate_trapezoid_opti(product_field(joker, joker, i),
                                                za_grid,
                                                aa_grid,
                                                grid_stepsize);
              }  //end stokes_dim loop
 
            }  //end za_prop loop
            //Interpolate on original za_grid.
            for (Index i = 0; i < stokes_dim; i++) {
              interp(
                  doit_scat_field(
                      p_index, lat_index, lon_index, joker, aa_index_local, i),
                  itw_za,
                  doit_scat_field_org(joker, i),
                  gp_za);
            }
          }  // end aa_prop loop
        }    //end lon loop
      }      //end lat loop
    }        // end p loop
    doit_scat_field(joker, joker, joker, joker, 0, joker) =
        doit_scat_field(joker, joker, joker, joker, Naa - 1, joker);
  }  // end atm_dim=3
  out2 << "  Finished scattered field.\n";
}
 
/* Workspace method: Doxygen documentation will be auto-generated */
void doit_za_grid_optCalc(  //WS Output
    Vector& doit_za_grid_opt,
    // WS Input:
    const Tensor6& cloudbox_field_mono,
    const Vector& za_grid,
    const Index& doit_za_interp,
    //Keywords:
    const Numeric& acc,
    const Verbosity& verbosity) {
  CREATE_OUT1;
  //-------- Check the input ---------------------------------
 
  // Here it is checked whether cloudbox_field is 1D and whether it is
  // consistent with za_grid. The number of pressure levels and the
  // number of stokes components does not matter.
  chk_size("cloudbox_field",
           cloudbox_field_mono,
           cloudbox_field_mono.nvitrines(),
           1,
           1,
           za_grid.nelem(),
           1,
           cloudbox_field_mono.ncols());
 
  ARTS_USER_ERROR_IF (cloudbox_field_mono.ncols() < 1 || cloudbox_field_mono.ncols() > 4,
        "The last dimension of *cloudbox_field* corresponds\n"
        "to the Stokes dimension, therefore the number of\n"
        "columns in *cloudbox_field* must be a number between\n"
        "1 and 4, but it is not!");
 
  ARTS_USER_ERROR_IF (!(doit_za_interp == 0 || doit_za_interp == 1),
        "Interpolation method is not defined. Use \n"
        "*doit_za_interpSet*.\n");
 
  if (za_grid.nelem() < 500) {
    out1 << "Warning: The fine grid (*za_grid*) has less than\n"
         << "500 grid points which is likely not sufficient for\n"
         << "grid_optimization\n";
    /*    throw runtime_error("The fine grid (*za_grid*) has less than \n"
                        "500 grid points which is not sufficient for \n"
                        "grid_optimization");
*/
  }
  // ------------- end of checks -------------------------------------
 
  // Here only used as dummy variable.
  Matrix cloudbox_field_opt_mat;
  cloudbox_field_opt_mat = 0.;
 
  // Optimize zenith angle grid.
  za_gridOpt(doit_za_grid_opt,
             cloudbox_field_opt_mat,
             za_grid,
             cloudbox_field_mono,
             acc,
             doit_za_interp);
}
 
/* Workspace method: Doxygen documentation will be auto-generated */
void doit_za_interpSet(Index& doit_za_interp,
                       const Index& atmosphere_dim,
                       //Keyword
                       const String& method,
                       const Verbosity&) {
  chk_if_in_range("atmosphere_dim", atmosphere_dim, 1, 3);
 
  ARTS_USER_ERROR_IF (atmosphere_dim != 1 && method == "polynomial",
        "Polynomial interpolation is only implemented for\n"
        "1D DOIT calculations as \n"
        "in 3D there can be numerical problems.\n"
        "Please use 'linear' interpolation method.");
 
  if (method == "linear")
    doit_za_interp = 0;
  else if (method == "polynomial")
    doit_za_interp = 1;
  else {
    ARTS_USER_ERROR (
        "Possible interpolation methods are 'linear' "
        "and 'polynomial'.\n");
  }
}
 
/* Workspace method: Doxygen documentation will be auto-generated */
void DoitCalc(Workspace& ws,
              Tensor7& cloudbox_field,
              const Index& atmfields_checked,
              const Index& atmgeom_checked,
              const Index& cloudbox_checked,
              const Index& scat_data_checked,
              const Index& cloudbox_on,
              const Vector& f_grid,
              const Agenda& doit_mono_agenda,
              const Index& doit_is_initialized,
              const Verbosity& verbosity)
 
{
  CREATE_OUT2;
 
  if (!cloudbox_on) {
    CREATE_OUT0;
    out0 << "  Cloudbox is off, DOIT calculation will be skipped.\n";
    return;
    //throw runtime_error( "Cloudbox is off, no scattering calculations to be"
    //                     "performed." );
  }
 
  //-------- Check input -------------------------------------------
 
  ARTS_USER_ERROR_IF (atmfields_checked != 1,
        "The atmospheric fields must be flagged to have "
        "passed a consistency check (atmfields_checked=1).");
  ARTS_USER_ERROR_IF (atmgeom_checked != 1,
        "The atmospheric geometry must be flagged to have "
        "passed a consistency check (atmgeom_checked=1).");
  ARTS_USER_ERROR_IF (cloudbox_checked != 1,
        "The cloudbox must be flagged to have "
        "passed a consistency check (cloudbox_checked=1).");
 
  // Don't do anything if there's no cloudbox defined.
  if (!cloudbox_on) return;
 
  ARTS_USER_ERROR_IF (scat_data_checked != 1,
        "The scattering data must be flagged to have "
        "passed a consistency check (scat_data_checked=1).");
 
  chk_not_empty("doit_mono_agenda", doit_mono_agenda);
 
  // Frequency grid
  //
  ARTS_USER_ERROR_IF (f_grid.empty(), "The frequency grid is empty.");
  chk_if_increasing("f_grid", f_grid);
 
  // Check whether DoitInit was executed
  ARTS_USER_ERROR_IF (!doit_is_initialized,
    "Initialization method *DoitInit* has to be called before "
    "*DoitCalc*")
 
  //-------- end of checks ----------------------------------------
 
  // OMP likes simple loop end conditions, so we make a local copy here:
  const Index nf = f_grid.nelem();
 
  if (nf) {
    String fail_msg;
    bool failed = false;
 
    WorkspaceOmpParallelCopyGuard wss{ws};
 
#pragma omp parallel for if (!arts_omp_in_parallel() && nf > 1) firstprivate(wss)
    for (Index f_index = 0; f_index < nf; f_index++) {
      if (failed) {
        cloudbox_field(f_index, joker, joker, joker, joker, joker, joker) = NAN;
        continue;
      }
 
      try {
        ostringstream os;
        os << "Frequency: " << f_grid[f_index] / 1e9 << " GHz \n";
        out2 << os.str();
 
        Tensor6 cloudbox_field_mono_local =
            cloudbox_field(f_index, joker, joker, joker, joker, joker, joker);
        doit_mono_agendaExecute(wss,
                                cloudbox_field_mono_local,
                                f_grid,
                                f_index,
                                doit_mono_agenda);
        cloudbox_field(f_index, joker, joker, joker, joker, joker, joker) =
            cloudbox_field_mono_local;
      } catch (const std::exception& e) {
        cloudbox_field(f_index, joker, joker, joker, joker, joker, joker) = NAN;
        ostringstream os;
        os << "Error for f_index = " << f_index << " (" << f_grid[f_index]
           << " Hz)" << endl
           << e.what();
#pragma omp critical(DoitCalc_fail)
        {
          failed = true;
          fail_msg = os.str();
        }
        continue;
      }
    }
 
    ARTS_USER_ERROR_IF (failed, fail_msg);
  }
}
 
/* Workspace method: Doxygen documentation will be auto-generated */
void DoitGetIncoming(Workspace& ws,
                     Tensor7& cloudbox_field,
                     const Index& atmfields_checked,
                     const Index& atmgeom_checked,
                     const Index& cloudbox_checked,
                     const Index& doit_is_initialized,
                     const Agenda& iy_main_agenda,
                     const Index& atmosphere_dim,
                     const Vector& lat_grid,
                     const Vector& lon_grid,
                     const Tensor3& z_field,
                     const EnergyLevelMap& nlte_field,
                     const Index& cloudbox_on,
                     const ArrayOfIndex& cloudbox_limits,
                     const Vector& f_grid,
                     const Index& stokes_dim,
                     const Vector& za_grid,
                     const Vector& aa_grid,
                     const Index& rigorous,
                     const Numeric& maxratio,
                     const Verbosity&) {
  chk_if_in_range("stokes_dim", stokes_dim, 1, 4);
  ARTS_USER_ERROR_IF (atmfields_checked != 1,
        "The atmospheric fields must be flagged to have "
        "passed a consistency check (atmfields_checked=1).");
  ARTS_USER_ERROR_IF (atmgeom_checked != 1,
        "The atmospheric geometry must be flagged to have "
        "passed a consistency check (atmgeom_checked=1).");
  ARTS_USER_ERROR_IF (cloudbox_checked != 1,
        "The cloudbox must be flagged to have "
        "passed a consistency check (cloudbox_checked=1).");
 
  // Don't do anything if there's no cloudbox defined.
  if (!cloudbox_on) return;
 
  // Check whether DoitInit was executed
  ARTS_USER_ERROR_IF (!doit_is_initialized,
    "Initialization method *DoitInit* has to be called before "
    "*DoitGetIncoming*.")
 
  // iy_unit hard.coded to "1" here
  const String iy_unit = "1";
 
  Index Nf = f_grid.nelem();
  Index Np_cloud = cloudbox_limits[1] - cloudbox_limits[0] + 1;
  Index Nza = za_grid.nelem();
 
  Matrix iy;
 
  //dummy variables needed for the call of iy_main_agendaExecute
  ArrayOfMatrix iy_aux;
  ArrayOfTensor3 diy_dx;
  Ppath ppath;
  Tensor3 iy_transmittance(0, 0, 0);
  const ArrayOfString iy_aux_vars(0);
  Vector geo_pos;
 
 
  //--- Check input ----------------------------------------------------------
  ARTS_USER_ERROR_IF (!(atmosphere_dim == 1 || atmosphere_dim == 3),
                      "The atmospheric dimensionality must be 1 or 3.");
  ARTS_USER_ERROR_IF (za_grid[0] != 0. || za_grid[Nza - 1] != 180.,
                      "*za_grid* must include 0 and 180 degrees as endpoints.");
  //--------------------------------------------------------------------------
 
  if (atmosphere_dim == 1) {
    //Define the variables for position and direction.
    Vector los(1), pos(1);
 
    //--- Get cloudbox_field at lower and upper boundary
    //    (boundary=0: lower, boundary=1: upper)
    for (Index boundary = 0; boundary <= 1; boundary++) {
      const Index boundary_index =
          boundary ? cloudbox_field.nvitrines() - 1 : 0;
      pos[0] = z_field(cloudbox_limits[boundary], 0, 0);
 
      // doing the first angle separately for allowing dy between 2 angles
      // in the loop
      los[0] = za_grid[0];
 
      iy_main_agendaExecute(ws,
                            iy,
                            iy_aux,
                            ppath,
                            diy_dx,
                            geo_pos,
                            1,
                            iy_transmittance,
                            iy_aux_vars,
                            0,
                            iy_unit,
                            0,
                            0,
                            f_grid,
                            nlte_field,
                            pos,
                            los,
                            Vector(0),
                            iy_main_agenda);
 
      cloudbox_field(joker, boundary_index, 0, 0, 0, 0, joker) = iy;
 
      for (Index za_index = 1; za_index < Nza; za_index++) {
        los[0] = za_grid[za_index];
 
        iy_main_agendaExecute(ws,
                              iy,
                              iy_aux,
                              ppath,
                              diy_dx,
                              geo_pos,
                              1,
                              iy_transmittance,
                              iy_aux_vars,
                              0,
                              iy_unit,
                              0,
                              0,
                              f_grid,
                              nlte_field,
                              pos,
                              los,
                              Vector(0),
                              iy_main_agenda);
 
        cloudbox_field(joker, boundary_index, 0, 0, za_index, 0, joker) = iy;
 
        if (rigorous) {
          for (Index fi = 0; fi < Nf; fi++) {
            ARTS_USER_ERROR_IF (cloudbox_field(fi, boundary_index, 0, 0, za_index - 1, 0, 0) /
                        cloudbox_field(
                            fi, boundary_index, 0, 0, za_index, 0, 0) >
                    maxratio ||
                cloudbox_field(fi, boundary_index, 0, 0, za_index - 1, 0, 0) /
                        cloudbox_field(
                            fi, boundary_index, 0, 0, za_index, 0, 0) <
                    1 / maxratio,
                "ERROR: Radiance difference between "
                "interpolation points is too large (factor ", maxratio,
                ")\n"
                "to safely interpolate. This might be due to "
                "za_grid being too coarse or the radiance field "
                "being a step-like function.\n"
                "Happens at boundary ", boundary_index,
                " between zenith angles ", za_grid[za_index - 1],
                " and ", za_grid[za_index], "deg\n"
                "for frequency #", fi, ", where radiances are ",
                cloudbox_field(fi, boundary_index, 0, 0, za_index - 1, 0, 0),
                " and ",
                cloudbox_field(fi, boundary_index, 0, 0, za_index, 0, 0),
                " W/(sr m2 Hz).")
          }
        }
      }
    }
  }
 
  //--- atmosphere_dim = 3: --------------------------------------------------
  else {
    Index Naa = aa_grid.nelem();
 
    ARTS_USER_ERROR_IF (aa_grid[0] != 0. || aa_grid[Naa - 1] != 360.,
          "*aa_grid* must include 0 and 360 degrees as endpoints.");
 
    Index Nlat_cloud = cloudbox_limits[3] - cloudbox_limits[2] + 1;
    Index Nlon_cloud = cloudbox_limits[5] - cloudbox_limits[4] + 1;
 
    // Convert aa_grid to "sensor coordinates"
    // (-180° < azimuth angle < 180°)
    //
    Vector aa_g(Naa);
    for (Index i = 0; i < Naa; i++) aa_g[i] = aa_grid[i] - 180;
 
    // Define the variables for position and direction.
    Vector los(2), pos(3);
 
    //--- Get cloudbox_field at lower and upper boundary
    //    (boundary=0: lower, boundary=1: upper)
    for (Index boundary = 0; boundary <= 1; boundary++) {
      const Index boundary_index =
          boundary ? cloudbox_field.nvitrines() - 1 : 0;
      for (Index lat_index = 0; lat_index < Nlat_cloud; lat_index++) {
        for (Index lon_index = 0; lon_index < Nlon_cloud; lon_index++) {
          pos[2] = lon_grid[lon_index + cloudbox_limits[4]];
          pos[1] = lat_grid[lat_index + cloudbox_limits[2]];
          pos[0] = z_field(cloudbox_limits[boundary],
                           lat_index + cloudbox_limits[2],
                           lon_index + cloudbox_limits[4]);
 
          for (Index za_index = 0; za_index < Nza; za_index++) {
            for (Index aa_index = 0; aa_index < Naa; aa_index++) {
              los[0] = za_grid[za_index];
              los[1] = aa_g[aa_index];
 
              // For end points of za_index (0 & 180deg), we
              // only need to perform calculations for one scat_aa
              // and set the others to same value
              if ((za_index != 0 && za_index != (Nza - 1)) || aa_index == 0) {
                iy_main_agendaExecute(ws,
                                      iy,
                                      iy_aux,
                                      ppath,
                                      diy_dx,
                                      geo_pos,
                                      1,
                                      iy_transmittance,
                                      iy_aux_vars,
                                      0,
                                      iy_unit,
                                      0,
                                      0,
                                      f_grid,
                                      nlte_field,
                                      pos,
                                      los,
                                      Vector(0),
                                      iy_main_agenda);
              }
 
              cloudbox_field(joker,
                             boundary_index,
                             lat_index,
                             lon_index,
                             za_index,
                             aa_index,
                             joker) = iy;
            }
          }
        }
      }
    }
 
    //--- Get scat_i_lat (2nd and 3rd boundary)
    for (Index boundary = 0; boundary <= 1; boundary++) {
      const Index boundary_index = boundary ? cloudbox_field.nshelves() - 1 : 0;
      for (Index p_index = 0; p_index < Np_cloud; p_index++) {
        for (Index lon_index = 0; lon_index < Nlon_cloud; lon_index++) {
          pos[2] = lon_grid[lon_index + cloudbox_limits[4]];
          pos[1] = lat_grid[cloudbox_limits[boundary + 2]];
          pos[0] = z_field(p_index + cloudbox_limits[0],
                           cloudbox_limits[boundary + 2],
                           lon_index + cloudbox_limits[4]);
 
          for (Index za_index = 0; za_index < Nza; za_index++) {
            for (Index aa_index = 0; aa_index < Naa; aa_index++) {
              los[0] = za_grid[za_index];
              los[1] = aa_g[aa_index];
 
              // For end points of za_index, we need only to
              // perform calculations for first scat_aa
              if ((za_index != 0 && za_index != (Nza - 1)) || aa_index == 0) {
                iy_main_agendaExecute(ws,
                                      iy,
                                      iy_aux,
                                      ppath,
                                      diy_dx,
                                      geo_pos,
                                      1,
                                      iy_transmittance,
                                      iy_aux_vars,
                                      0,
                                      iy_unit,
                                      0,
                                      0,
                                      f_grid,
                                      nlte_field,
                                      pos,
                                      los,
                                      Vector(0),
                                      iy_main_agenda);
              }
 
              cloudbox_field(joker,
                             p_index,
                             boundary_index,
                             lon_index,
                             za_index,
                             aa_index,
                             joker) = iy;
            }
          }
        }
      }
    }
 
    //--- Get scat_i_lon (1st and 2nd boundary):
    for (Index boundary = 0; boundary <= 1; boundary++) {
      const Index boundary_index = boundary ? cloudbox_field.nbooks() - 1 : 0;
      for (Index p_index = 0; p_index < Np_cloud; p_index++) {
        for (Index lat_index = 0; lat_index < Nlat_cloud; lat_index++) {
          pos[2] = lon_grid[cloudbox_limits[boundary + 4]];
          pos[1] = lat_grid[lat_index + cloudbox_limits[2]];
          pos[0] = z_field(p_index + cloudbox_limits[0],
                           lat_index + cloudbox_limits[2],
                           cloudbox_limits[boundary + 4]);
 
          for (Index za_index = 0; za_index < Nza; za_index++) {
            for (Index aa_index = 0; aa_index < Naa; aa_index++) {
              los[0] = za_grid[za_index];
              los[1] = aa_g[aa_index];
 
              // For end points of za_index, we need only to
              // perform calculations for first scat_aa
              if ((za_index != 0 && za_index != (Nza - 1)) || aa_index == 0) {
                iy_main_agendaExecute(ws,
                                      iy,
                                      iy_aux,
                                      ppath,
                                      diy_dx,
                                      geo_pos,
                                      1,
                                      iy_transmittance,
                                      iy_aux_vars,
                                      0,
                                      iy_unit,
                                      0,
                                      0,
                                      f_grid,
                                      nlte_field,
                                      pos,
                                      los,
                                      Vector(0),
                                      iy_main_agenda);
              }
 
              cloudbox_field(joker,
                             p_index,
                             lat_index,
                             boundary_index,
                             za_index,
                             aa_index,
                             joker) = iy;
            }
          }
        }
      }
    }
  }  // End atmosphere_dim = 3.
}
 
/* Workspace method: Doxygen documentation will be auto-generated */
void DoitGetIncoming1DAtm(Workspace& ws,
                          Tensor7& cloudbox_field,
                          Index& cloudbox_on,
                          const Index& atmfields_checked,
                          const Index& atmgeom_checked,
                          const Index& cloudbox_checked,
                          const Index& doit_is_initialized,
                          const Agenda& iy_main_agenda,
                          const Index& atmosphere_dim,
                          const Vector& lat_grid,
                          const Vector& lon_grid,
                          const Tensor3& z_field,
                          const EnergyLevelMap& nlte_field,
                          const ArrayOfIndex& cloudbox_limits,
                          const Vector& f_grid,
                          const Index& stokes_dim,
                          const Vector& za_grid,
                          const Vector& aa_grid,
                          const Verbosity&) {
  chk_if_in_range("stokes_dim", stokes_dim, 1, 4);
  ARTS_USER_ERROR_IF (atmfields_checked != 1,
        "The atmospheric fields must be flagged to have "
        "passed a consistency check (atmfields_checked=1).");
  ARTS_USER_ERROR_IF (atmgeom_checked != 1,
        "The atmospheric geometry must be flagged to have "
        "passed a consistency check (atmgeom_checked=1).");
  ARTS_USER_ERROR_IF (cloudbox_checked != 1,
        "The cloudbox must be flagged to have "
        "passed a consistency check (cloudbox_checked=1).");
 
  // Don't do anything if there's no cloudbox defined.
  if (!cloudbox_on) return;
 
  // Check whether DoitInit was executed
  ARTS_USER_ERROR_IF (!doit_is_initialized,
    "Initialization method *DoitInit* has to be called before "
    "*DoitGetIncoming1DAtm*.")
 
  // iy_unit hard.coded to "1" here
  const String iy_unit = "1";
 
  Index Np_cloud = cloudbox_limits[1] - cloudbox_limits[0] + 1;
  Index Nlat_cloud = cloudbox_limits[3] - cloudbox_limits[2] + 1;
  Index Nlon_cloud = cloudbox_limits[5] - cloudbox_limits[4] + 1;
  Index Nza = za_grid.nelem();
  Index Naa = aa_grid.nelem();
 
  Matrix iy;
 
  //dummy variables needed for the call of iy_main_agendaExecute
  ArrayOfMatrix iy_aux;
  ArrayOfTensor3 diy_dx;
  Ppath ppath;
  Tensor3 iy_transmittance(0, 0, 0);
  const ArrayOfString iy_aux_vars(0);
  Vector geo_pos;
 
  //--- Check input ----------------------------------------------------------
  ARTS_USER_ERROR_IF (atmosphere_dim != 3,
                      "The atmospheric dimensionality must be 3.");
  ARTS_USER_ERROR_IF (za_grid[0] != 0. || za_grid[Nza - 1] != 180.,
        "*za_grid* must include 0 and 180 degrees as endpoints.");
  ARTS_USER_ERROR_IF (aa_grid[0] != 0. || aa_grid[Naa - 1] != 360.,
        "*aa_grid* must include 0 and 360 degrees as endpoints.");
  //--------------------------------------------------------------------------
 
  // Dummy variable for flag cloudbox_on. It has to be 0 here not to get
  // stuck in an infinite loop (if some propagation path hits the cloud
  // box at some other position.
  cloudbox_on = 0;
 
  // Convert za_grid to "sensor coordinates"
  //(-180° < azimuth angle < 180°)
  //
  Vector aa_g(Naa);
  for (Index i = 0; i < Naa; i++) aa_g[i] = aa_grid[i] - 180;
 
  // As the atmosphere is spherically symmetric we only have to calculate
  // one azimuth angle.
  Index aa_index = 0;
 
  // Define the variables for position and direction.
  Vector los(2), pos(3);
 
  // These variables are constant for all calculations:
  pos[1] = lat_grid[cloudbox_limits[2]];
  pos[2] = lon_grid[cloudbox_limits[4]];
  los[1] = aa_g[aa_index];
 
  // Calculate cloudbox_field on boundary
  for (Index p_index = 0; p_index < Np_cloud; p_index++) {
    pos[0] = z_field(
        cloudbox_limits[0] + p_index, cloudbox_limits[2], cloudbox_limits[4]);
 
    for (Index za_index = 0; za_index < Nza; za_index++) {
      los[0] = za_grid[za_index];
 
      iy_main_agendaExecute(ws,
                            iy,
                            iy_aux,
                            ppath,
                            diy_dx,
                            geo_pos,
                            1,
                            iy_transmittance,
                            iy_aux_vars,
                            0,
                            iy_unit,
                            0,
                            0,
                            f_grid,
                            nlte_field,
                            pos,
                            los,
                            Vector(0),
                            iy_main_agenda);
 
      for (Index aa = 0; aa < Naa; aa++) {
        // cloudbox_field lower boundary
        if (p_index == 0) {
          for (Index lat = 0; lat < Nlat_cloud; lat++) {
            for (Index lon = 0; lon < Nlon_cloud; lon++) {
              cloudbox_field(joker, 0, lat, lon, za_index, aa, joker) = iy;
            }
          }
        }
        //cloudbox_field at upper boundary
        else if (p_index == Np_cloud - 1)
          for (Index lat = 0; lat < Nlat_cloud; lat++) {
            for (Index lon = 0; lon < Nlon_cloud; lon++) {
              cloudbox_field(joker,
                             cloudbox_field.nvitrines(),
                             lat,
                             lon,
                             za_index,
                             aa,
                             joker) = iy;
            }
          }
 
        // scat_i_lat (both boundaries)
        for (Index lat = 0; lat < 2; lat++) {
          for (Index lon = 0; lon < Nlon_cloud; lon++) {
            const Index boundary_index =
                lat ? cloudbox_field.nshelves() - 1 : 0;
            cloudbox_field(
                joker, p_index, boundary_index, lon, za_index, aa, joker) = iy;
          }
        }
 
        // scat_i_lon (both boundaries)
        for (Index lat = 0; lat < Nlat_cloud; lat++) {
          for (Index lon = 0; lon < 2; lon++) {
            const Index boundary_index = lon ? cloudbox_field.nbooks() - 1 : 0;
            cloudbox_field(
                joker, p_index, lat, boundary_index, za_index, aa, joker) = iy;
          }
        }
      }
    }
  }
  cloudbox_on = 1;
}
 
/* Workspace method: Doxygen documentation will be auto-generated */
void cloudbox_fieldSetFromPrecalc(Tensor7& cloudbox_field,
                                  const Vector& za_grid,
                                  const Vector& f_grid,
                                  const Index& atmosphere_dim,
                                  const Index& stokes_dim,
                                  const ArrayOfIndex& cloudbox_limits,
                                  const Index& doit_is_initialized,
                                  const Tensor7& cloudbox_field_precalc,
                                  const Verbosity&)  //verbosity)
{
  // this is only for 1D atmo!
  ARTS_USER_ERROR_IF (atmosphere_dim != 1,
      "This method is currently only implemented for 1D atmospheres!\n")
 
  // Check whether DoitInit was executed
  ARTS_USER_ERROR_IF (!doit_is_initialized,
      "Initialization method *DoitInit* has to be called before "
      "*cloudbox_fieldSetFromPrecalc*")
 
  // check dimensions of cloudbox_field_precalc
  Index nf = f_grid.nelem();
  Index nza = za_grid.nelem();
  Index np = cloudbox_limits[1] - cloudbox_limits[0] + 1;
 
  ARTS_USER_ERROR_IF (nf != cloudbox_field_precalc.nlibraries(),
      "cloudbox_field_precalc has wrong size in frequency dimension.\n",
      nf, " frequency points are expected, but cloudbox_field_precalc "
      "contains ", cloudbox_field_precalc.nlibraries(),
      "frequency points.\n")
  ARTS_USER_ERROR_IF (np != cloudbox_field_precalc.nvitrines(),
      "cloudbox_field_precalc has wrong size in pressure level dimension.\n",
      np, " pressure levels expected, but cloudbox_field_precalc "
      "contains ", cloudbox_field_precalc.nvitrines(),
      "pressure levels.\n")
  ARTS_USER_ERROR_IF (nza != cloudbox_field_precalc.npages(),
      "cloudbox_field_precalc has wrong size in polar angle dimension.\n",
      nza, " angles expected, but cloudbox_field_precalc "
      "contains ", cloudbox_field_precalc.npages(), "angles.\n")
  ARTS_USER_ERROR_IF (stokes_dim != cloudbox_field_precalc.ncols(),
      "cloudbox_field_precalc has wrong stokes dimension.\n"
      "Dimension ", stokes_dim,
      " expected, but cloudbox_field_precalc is dimesnion ",
      cloudbox_field_precalc.ncols(), ".\n")
 
  // We have to update cloudbox incoming (!) field - this is because
  // compared to our first guess initialization, the clearsky field around might
  // have changed.
 
  // Find which za_grid entries describe upwelling, which downwelling
  // radiation.
  Index first_upwell = 0;
  ARTS_ASSERT(za_grid[0] < 90.);
  ARTS_ASSERT(za_grid[za_grid.nelem() - 1] > 90.);
  while (za_grid[first_upwell] < 90.) first_upwell++;
 
  Range downwell(0, first_upwell);
  Range upwell(first_upwell, za_grid.nelem() - first_upwell);
 
  // Copy everything inside the field
  cloudbox_field(joker, Range(1, np - 2), 0, 0, joker, 0, joker) =
      cloudbox_field_precalc(joker, Range(1, np - 2), 0, 0, joker, 0, joker);
 
  // At boundaries we need to be a bit careful. We shouldn't overwrite the
  // boundary conditions.
 
  // Copy only upwelling radiation at upper boundary from precalc field
  // (Downwelling is "boundary condition" and has been set by DoitGetIncoming)
  cloudbox_field(joker, np - 1, 0, 0, upwell, 0, joker) =
      cloudbox_field_precalc(joker, np - 1, 0, 0, upwell, 0, joker);
 
  if (cloudbox_limits[0] != 0)
    // Copy only downwelling radiation at lower boundary from precalc field
    // (Upwelling is "boundary condition" and has been set by DoitGetIncoming)
    cloudbox_field(joker, 0, 0, 0, downwell, 0, joker) =
        cloudbox_field_precalc(joker, 0, 0, 0, downwell, 0, joker);
  else
    // Copy all directions at lower boundary from precalc field
    // (when lower boundary at surface, the upwelling field is fixed "boundary
    // condition", but part of the field getting iteratively updated according
    // to the cloudbox-dependent surface reflection contribution)
    cloudbox_field(joker, 0, 0, 0, joker, 0, joker) =
        cloudbox_field_precalc(joker, 0, 0, 0, joker, 0, joker);
}
 
/* Workspace method: Doxygen documentation will be auto-generated */
void cloudbox_fieldSetClearsky(Tensor7& cloudbox_field,
                               const Vector& p_grid,
                               const Vector& lat_grid,
                               const Vector& lon_grid,
                               const ArrayOfIndex& cloudbox_limits,
                               const Index& atmosphere_dim,
                               const Index& cloudbox_on,
                               const Index& doit_is_initialized,
                               const Index& all_frequencies,
                               const Verbosity& verbosity) {
  CREATE_OUT2;
 
  // Don't do anything if there's no cloudbox defined.
  if (!cloudbox_on) return;
 
  // Check whether DoitInit was executed
  ARTS_USER_ERROR_IF (!doit_is_initialized,
      "Initialization method *DoitInit* has to be called before "
      "*cloudbox_fieldSetClearsky*.")
 
  out2
      << "  Interpolate boundary clearsky field to obtain the initial field.\n";
 
  // Initial field only needs to be calculated from clearsky field for the
  // first frequency. For the next frequencies the solution field from the
  // previous frequencies is used.
  if (atmosphere_dim == 1) {
    const Index nf = all_frequencies ? cloudbox_field.nlibraries() : 1;
 
    for (Index f_index = 0; f_index < nf; f_index++) {
      Index N_za = cloudbox_field.npages();
      Index N_aa = cloudbox_field.nrows();
      Index N_i = cloudbox_field.ncols();
 
      //1. interpolation - pressure grid
 
      /*the old grid is having only two elements, corresponding to the
             cloudbox_limits and the new grid have elements corresponding to
             all grid points inside the cloudbox plus the cloud_box_limits*/
 
      ArrayOfGridPos p_gp((cloudbox_limits[1] - cloudbox_limits[0]) + 1);
 
      p2gridpos(p_gp,
                p_grid[Range(cloudbox_limits[0],
                             2,
                             (cloudbox_limits[1] - cloudbox_limits[0]))],
                p_grid[Range(cloudbox_limits[0],
                             (cloudbox_limits[1] - cloudbox_limits[0]) + 1)]);
 
      Matrix itw((cloudbox_limits[1] - cloudbox_limits[0]) + 1, 2);
      interpweights(itw, p_gp);
 
      Tensor6 scat_i_p(2, 1, 1, N_za, 1, N_i);
      scat_i_p(0, joker, joker, joker, joker, joker) =
          cloudbox_field(f_index, 0, joker, joker, joker, joker, joker);
      scat_i_p(1, joker, joker, joker, joker, joker) =
          cloudbox_field(f_index,
                         cloudbox_field.nvitrines() - 1,
                         joker,
                         joker,
                         joker,
                         joker,
                         joker);
 
      for (Index za_index = 0; za_index < N_za; ++za_index) {
        for (Index aa_index = 0; aa_index < N_aa; ++aa_index) {
          for (Index i = 0; i < N_i; ++i) {
            VectorView target_field = cloudbox_field(
                f_index, Range(joker), 0, 0, za_index, aa_index, i);
 
            ConstVectorView source_field =
                scat_i_p(Range(joker), 0, 0, za_index, aa_index, i);
 
            interp(target_field, itw, source_field, p_gp);
          }
        }
      }
    }
  } else if (atmosphere_dim == 3) {
    ARTS_USER_ERROR_IF (all_frequencies == false,
          "Error in cloudbox_fieldSetClearsky: For 3D "
          "all_frequencies option is not implemented \n");
 
    for (Index f_index = 0; f_index < cloudbox_field.nvitrines(); f_index++) {
      Index N_p = cloudbox_field.nvitrines();
      Index N_lat = cloudbox_field.nshelves();
      Index N_lon = cloudbox_field.nbooks();
      Index N_za = cloudbox_field.npages();
      Index N_aa = cloudbox_field.nrows();
      Index N_i = cloudbox_field.ncols();
 
      Tensor6 scat_i_p(2, N_lat, N_lon, N_za, N_aa, N_i);
      scat_i_p(0, joker, joker, joker, joker, joker) =
          cloudbox_field(f_index, 0, joker, joker, joker, joker, joker);
      scat_i_p(1, joker, joker, joker, joker, joker) =
          cloudbox_field(f_index, N_p - 1, joker, joker, joker, joker, joker);
 
      Tensor6 scat_i_lat(N_p, 2, N_lon, N_za, N_aa, N_i);
      scat_i_lat(joker, 0, joker, joker, joker, joker) =
          cloudbox_field(f_index, joker, 0, joker, joker, joker, joker);
      scat_i_lat(joker, 1, joker, joker, joker, joker) =
          cloudbox_field(f_index, joker, N_lat - 1, joker, joker, joker, joker);
 
      Tensor6 scat_i_lon(N_p, N_lat, 2, N_za, N_aa, N_i);
      scat_i_lon(joker, joker, 0, joker, joker, joker) =
          cloudbox_field(f_index, joker, joker, 0, joker, joker, joker);
      scat_i_lon(joker, joker, 1, joker, joker, joker) =
          cloudbox_field(f_index, joker, joker, N_lon - 1, joker, joker, joker);
 
      //1. interpolation - pressure grid, latitude grid and longitude grid
 
      ArrayOfGridPos p_gp((cloudbox_limits[1] - cloudbox_limits[0]) + 1);
      ArrayOfGridPos lat_gp((cloudbox_limits[3] - cloudbox_limits[2]) + 1);
      ArrayOfGridPos lon_gp((cloudbox_limits[5] - cloudbox_limits[4]) + 1);
 
      /*the old grid is having only two elements, corresponding to the
             cloudbox_limits and the new grid have elements corresponding to
             all grid points inside the cloudbox plus the cloud_box_limits*/
 
      p2gridpos(p_gp,
                p_grid[Range(cloudbox_limits[0],
                             2,
                             (cloudbox_limits[1] - cloudbox_limits[0]))],
                p_grid[Range(cloudbox_limits[0],
                             (cloudbox_limits[1] - cloudbox_limits[0]) + 1)]);
      gridpos(lat_gp,
              lat_grid[Range(cloudbox_limits[2],
                             2,
                             (cloudbox_limits[3] - cloudbox_limits[2]))],
              lat_grid[Range(cloudbox_limits[2],
                             (cloudbox_limits[3] - cloudbox_limits[2]) + 1)]);
      gridpos(lon_gp,
              lon_grid[Range(cloudbox_limits[4],
                             2,
                             (cloudbox_limits[5] - cloudbox_limits[4]))],
              lon_grid[Range(cloudbox_limits[4],
                             (cloudbox_limits[5] - cloudbox_limits[4]) + 1)]);
 
      //interpolation weights corresponding to pressure, latitude and
      //longitude grids.
 
      Matrix itw_p((cloudbox_limits[1] - cloudbox_limits[0]) + 1, 2);
      Matrix itw_lat((cloudbox_limits[3] - cloudbox_limits[2]) + 1, 2);
      Matrix itw_lon((cloudbox_limits[5] - cloudbox_limits[4]) + 1, 2);
 
      interpweights(itw_p, p_gp);
      interpweights(itw_lat, lat_gp);
      interpweights(itw_lon, lon_gp);
 
      // interpolation - pressure grid
      for (Index lat_index = 0;
           lat_index <= (cloudbox_limits[3] - cloudbox_limits[2]);
           ++lat_index) {
        for (Index lon_index = 0;
             lon_index <= (cloudbox_limits[5] - cloudbox_limits[4]);
             ++lon_index) {
          for (Index za_index = 0; za_index < N_za; ++za_index) {
            for (Index aa_index = 0; aa_index < N_aa; ++aa_index) {
              for (Index i = 0; i < N_i; ++i) {
                VectorView target_field = cloudbox_field(f_index,
                                                         Range(joker),
                                                         lat_index,
                                                         lon_index,
                                                         za_index,
                                                         aa_index,
                                                         i);
 
                ConstVectorView source_field = scat_i_p(
                    Range(joker), lat_index, lon_index, za_index, aa_index, i);
 
                interp(target_field, itw_p, source_field, p_gp);
              }
            }
          }
        }
      }
      //interpolation latitude
      for (Index p_index = 0;
           p_index <= (cloudbox_limits[1] - cloudbox_limits[0]);
           ++p_index) {
        for (Index lon_index = 0;
             lon_index <= (cloudbox_limits[5] - cloudbox_limits[4]);
             ++lon_index) {
          for (Index za_index = 0; za_index < N_za; ++za_index) {
            for (Index aa_index = 0; aa_index < N_aa; ++aa_index) {
              for (Index i = 0; i < N_i; ++i) {
                VectorView target_field = cloudbox_field(f_index,
                                                         p_index,
                                                         Range(joker),
                                                         lon_index,
                                                         za_index,
                                                         aa_index,
                                                         i);
 
                ConstVectorView source_field = scat_i_lat(
                    p_index, Range(joker), lon_index, za_index, aa_index, i);
 
                interp(target_field, itw_lat, source_field, lat_gp);
              }
            }
          }
        }
      }
      //interpolation -longitude
      for (Index p_index = 0;
           p_index <= (cloudbox_limits[1] - cloudbox_limits[0]);
           ++p_index) {
        for (Index lat_index = 0;
             lat_index <= (cloudbox_limits[3] - cloudbox_limits[2]);
             ++lat_index) {
          for (Index za_index = 0; za_index < N_za; ++za_index) {
            for (Index aa_index = 0; aa_index < N_aa; ++aa_index) {
              for (Index i = 0; i < N_i; ++i) {
                VectorView target_field = cloudbox_field(f_index,
                                                         p_index,
                                                         lat_index,
                                                         Range(joker),
                                                         za_index,
                                                         aa_index,
                                                         i);
 
                ConstVectorView source_field = scat_i_lon(
                    p_index, lat_index, Range(joker), za_index, aa_index, i);
 
                interp(target_field, itw_lon, source_field, lon_gp);
              }
            }
          }
        }
      }  //end of interpolation
    }    // end of frequency loop
  }      //ends atmosphere_dim = 3
}
 
/* Workspace method: Doxygen documentation will be auto-generated */
void cloudbox_fieldSetConst(  //WS Output:
    Tensor7& cloudbox_field,
    //WS Input:
    const Vector& p_grid,
    const Vector& lat_grid,
    const Vector& lon_grid,
    const ArrayOfIndex& cloudbox_limits,
    const Index& atmosphere_dim,
    const Index& stokes_dim,
    // Keyword
    const Vector& cloudbox_field_values,
    const Verbosity& verbosity) {
  CREATE_OUT2;
 
  Tensor6 cloudbox_field_mono(cloudbox_field.nvitrines(),
                              cloudbox_field.nshelves(),
                              cloudbox_field.nbooks(),
                              cloudbox_field.npages(),
                              cloudbox_field.nrows(),
                              cloudbox_field.ncols());
 
  for (Index f_index = 0; f_index < cloudbox_field.nlibraries(); f_index++) {
    cloudbox_field_mono =
        cloudbox_field(f_index, joker, joker, joker, joker, joker, joker);
 
    cloudbox_field_monoSetConst(cloudbox_field_mono,
                                p_grid,
                                lat_grid,
                                lon_grid,
                                cloudbox_limits,
                                atmosphere_dim,
                                stokes_dim,
                                cloudbox_field_values,
                                verbosity);
 
    cloudbox_field(f_index, joker, joker, joker, joker, joker, joker) =
        cloudbox_field_mono;
  }
}
 
/* Workspace method: Doxygen documentation will be auto-generated */
void cloudbox_fieldSetConstPerFreq(  //WS Output:
    Tensor7& cloudbox_field,
    //WS Input:
    const Vector& p_grid,
    const Vector& lat_grid,
    const Vector& lon_grid,
    const ArrayOfIndex& cloudbox_limits,
    const Index& atmosphere_dim,
    const Index& stokes_dim,
    // Keyword
    const Matrix& cloudbox_field_values,
    const Verbosity& verbosity) {
  CREATE_OUT2;
 
  ARTS_USER_ERROR_IF (cloudbox_field.nlibraries() != cloudbox_field_values.nrows(),
        "Number of rows in *cloudbox_field_values* has to be equal"
        " the frequency dimension of *cloudbox_field*.");
 
  Tensor6 cloudbox_field_mono(cloudbox_field.nvitrines(),
                              cloudbox_field.nshelves(),
                              cloudbox_field.nbooks(),
                              cloudbox_field.npages(),
                              cloudbox_field.nrows(),
                              cloudbox_field.ncols());
 
  for (Index f_index = 0; f_index < cloudbox_field.nlibraries(); f_index++) {
    cloudbox_field_mono =
        cloudbox_field(f_index, joker, joker, joker, joker, joker, joker);
 
    cloudbox_field_monoSetConst(cloudbox_field_mono,
                                p_grid,
                                lat_grid,
                                lon_grid,
                                cloudbox_limits,
                                atmosphere_dim,
                                stokes_dim,
                                cloudbox_field_values(f_index, joker),
                                verbosity);
 
    cloudbox_field(f_index, joker, joker, joker, joker, joker, joker) =
        cloudbox_field_mono;
  }
}
 
/* Workspace method: Doxygen documentation will be auto-generated */
void cloudbox_field_monoSetConst(  //WS Output:
    Tensor6& cloudbox_field_mono,
    //WS Input:
    const Vector& p_grid,
    const Vector& lat_grid,
    const Vector& lon_grid,
    const ArrayOfIndex& cloudbox_limits,
    const Index& atmosphere_dim,
    const Index& stokes_dim,
    // Keyword
    const Vector& cloudbox_field_values,
    const Verbosity& verbosity) {
  CREATE_OUT2;
  CREATE_OUT3;
 
  out2 << "  Set initial field to constant values: " << cloudbox_field_values
       << "\n";
 
  chk_if_in_range("atmosphere_dim", atmosphere_dim, 1, 3);
 
  // Grids have to be adapted to atmosphere_dim.
  chk_atm_grids(atmosphere_dim, p_grid, lat_grid, lon_grid);
 
  // Check the input:
  ARTS_USER_ERROR_IF (stokes_dim < 0 || stokes_dim > 4,
        "The dimension of stokes vector must be"
        "1,2,3, or 4.");
 
  ARTS_USER_ERROR_IF (stokes_dim != cloudbox_field_values.nelem(),
        "Length of *cloudbox_field_values* has to be equal"
        " *stokes_dim*.");
  ARTS_USER_ERROR_IF (cloudbox_limits.nelem() != 2 * atmosphere_dim,
        "*cloudbox_limits* is a vector which contains the"
        "upper and lower limit of the cloud for all "
        "atmospheric dimensions. So its dimension must"
        "be 2 x *atmosphere_dim*.");
 
  for (Index i = 0; i < stokes_dim; i++) {
    cloudbox_field_mono(joker, joker, joker, joker, joker, i) =
        cloudbox_field_values[i];
  }
}