diff --git a/feed.xml b/feed.xml
index b92d60e3c..8425b61b2 100644
--- a/feed.xml
+++ b/feed.xml
@@ -1,4 +1,14 @@
-<?xml version="1.0" encoding="utf-8"?><feed xmlns="http://www.w3.org/2005/Atom" ><generator uri="https://jekyllrb.com/" version="4.2.2">Jekyll</generator><link href="https://earth-system-radiation.github.io//rte-rrtmgp/feed.xml" rel="self" type="application/atom+xml" /><link href="https://earth-system-radiation.github.io//rte-rrtmgp/" rel="alternate" type="text/html" /><updated>2023-11-27T21:16:53+00:00</updated><id>https://earth-system-radiation.github.io//rte-rrtmgp/feed.xml</id><title type="html">RTE-RRTMGP</title><subtitle>RTE+RRTMGP is a set of codes for computing radiative fluxes in planetary atmospheres. RRTMGP uses a k-distribution to provide an optical description (absorption and possibly Rayleigh optical depth) of the gaseous atmosphere, along with the relevant source functions, on a pre-determined spectral grid given temperatures, pressures, and gas concentration. RTE computes fluxes given spectrally-resolved optical descriptions and source functions.</subtitle><entry><title type="html">2022-06-02: Release notes</title><link href="https://earth-system-radiation.github.io//rte-rrtmgp/release-notes/2022/06/02/Release-notes.html" rel="alternate" type="text/html" title="2022-06-02: Release notes" /><published>2022-06-02T00:00:00+00:00</published><updated>2022-06-02T00:00:00+00:00</updated><id>https://earth-system-radiation.github.io//rte-rrtmgp/release-notes/2022/06/02/Release-notes</id><content type="html" xml:base="https://earth-system-radiation.github.io//rte-rrtmgp/release-notes/2022/06/02/Release-notes.html"><![CDATA[<p>Commit <a href="https://github.com/earth-system-radiation/rte-rrtmgp/commit/a4fe30cf4dab2e5fd8d3ab6f11683a82ae584475">a4fe30c</a> 
+<?xml version="1.0" encoding="utf-8"?><feed xmlns="http://www.w3.org/2005/Atom" ><generator uri="https://jekyllrb.com/" version="4.2.2">Jekyll</generator><link href="https://earth-system-radiation.github.io//rte-rrtmgp/feed.xml" rel="self" type="application/atom+xml" /><link href="https://earth-system-radiation.github.io//rte-rrtmgp/" rel="alternate" type="text/html" /><updated>2023-11-28T02:25:58+00:00</updated><id>https://earth-system-radiation.github.io//rte-rrtmgp/feed.xml</id><title type="html">RTE-RRTMGP</title><subtitle>RTE+RRTMGP is a set of codes for computing radiative fluxes in planetary atmospheres. RRTMGP uses a k-distribution to provide an optical description (absorption and possibly Rayleigh optical depth) of the gaseous atmosphere, along with the relevant source functions, on a pre-determined spectral grid given temperatures, pressures, and gas concentration. RTE computes fluxes given spectrally-resolved optical descriptions and source functions.</subtitle><entry><title type="html">v1.8 Release notes</title><link href="https://earth-system-radiation.github.io//rte-rrtmgp/release-notes/2023/11/27/v1.8-Release-notes.html" rel="alternate" type="text/html" title="v1.8 Release notes" /><published>2023-11-27T00:00:00+00:00</published><updated>2023-11-27T00:00:00+00:00</updated><id>https://earth-system-radiation.github.io//rte-rrtmgp/release-notes/2023/11/27/v1.8-Release-notes</id><content type="html" xml:base="https://earth-system-radiation.github.io//rte-rrtmgp/release-notes/2023/11/27/v1.8-Release-notes.html"><![CDATA[<p>Commit <a href="https://github.com/earth-system-radiation/rte-rrtmgp/commit/3ac0636b17d6a3f11e4085f91679393fceaa4e18">3ac0636</a> 
+to branch <code class="language-plaintext highlighter-rouge">main</code> makes the following changes:</p>
+
+<ul>
+  <li>Libraries can be built in single precision by changes in <code class="language-plaintext highlighter-rouge">rte-kind/mo_rte_kind.F90</code>. Differences with respect to double precision are roughly 0.13 W/m2.</li>
+  <li>A class for computing the optical properties of aerosols following the MERRA representation has been added.</li>
+  <li>The repository is reorganized into <code class="language-plaintext highlighter-rouge">frontend</code> and <code class="language-plaintext highlighter-rouge">kernel</code> directories for <code class="language-plaintext highlighter-rouge">rte</code> and <code class="language-plaintext highlighter-rouge">rrtmgp</code>. Data has been moved to a separate [repository])((https://github.com/earth-system-radiation/rrtmgp-data/).</li>
+  <li>Citation information has been added.</li>
+</ul>
+
+<p>As usual some bugs have been fixed, the use of OpenACC and OpenMP GPU offload directives continues to evolve, and the continous integration continues to be fine-tuned.</p>]]></content><author><name></name></author><category term="Release-notes" /><summary type="html"><![CDATA[Commit 3ac0636 to branch main makes the following changes:]]></summary></entry><entry><title type="html">2022-06-02: Release notes</title><link href="https://earth-system-radiation.github.io//rte-rrtmgp/release-notes/2022/06/02/Release-notes.html" rel="alternate" type="text/html" title="2022-06-02: Release notes" /><published>2022-06-02T00:00:00+00:00</published><updated>2022-06-02T00:00:00+00:00</updated><id>https://earth-system-radiation.github.io//rte-rrtmgp/release-notes/2022/06/02/Release-notes</id><content type="html" xml:base="https://earth-system-radiation.github.io//rte-rrtmgp/release-notes/2022/06/02/Release-notes.html"><![CDATA[<p>Commit <a href="https://github.com/earth-system-radiation/rte-rrtmgp/commit/a4fe30cf4dab2e5fd8d3ab6f11683a82ae584475">a4fe30c</a> 
 to branch <code class="language-plaintext highlighter-rouge">main</code> makes the following changes:</p>
 
 <ul>
diff --git a/how-tos/index.html b/how-tos/index.html
index a8443965b..12217fcdc 100644
--- a/how-tos/index.html
+++ b/how-tos/index.html
@@ -45,33 +45,20 @@ <h1 class="post-title">How-to guides</h1>
   <div class="post-content">
     <h1 id="how-to-guides-will-live-here">How-to guides will live here</h1>
 
-<h2 id="how-to-build-and-test-the-libraries-and-examples">How to: build and test the libraries and examples</h2>
-
-<h3 id="building-and-testing-using-gnu-make">Building and testing using (Gnu) make</h3>
+<h2 id="how-to-build-run-and-test-the-libraries-examples-and-unit-testing-codes">How-to: build, run, and test the libraries, examples, and unit-testing codes.</h2>
 
 <ol>
-  <li>Set environment variables <code class="language-plaintext highlighter-rouge">FC</code> (the Fortran 2003 compiler) and <code class="language-plaintext highlighter-rouge">FCFLAGS</code> (compiler flags).
-Examples are provided in the <code class="language-plaintext highlighter-rouge">Compiler-flags.md</code> file.</li>
-  <li>Set environment variable <code class="language-plaintext highlighter-rouge">RRTMGP_ROOT</code> to the top-level RTE+RRTMGP directory.
-Set the variables <code class="language-plaintext highlighter-rouge">NCHOME</code> and <code class="language-plaintext highlighter-rouge">NFHOME</code> to the roots of the C and Fortran
-netCDF installations. (Building the libraries alone )</li>
-  <li>Set environment variable <code class="language-plaintext highlighter-rouge">RTE_KERNELS</code> to <code class="language-plaintext highlighter-rouge">accel</code> if you want the OpenACC/OpenMP
-kernels rather than the default.</li>
-  <li><code class="language-plaintext highlighter-rouge">make libs</code> in the top-level directory will make the RTE and RRTMGP libraries
-and the regression tests in in <code class="language-plaintext highlighter-rouge">examples/</code> and <code class="language-plaintext highlighter-rouge">tests/</code>. Libraries and module
-files are in <code class="language-plaintext highlighter-rouge">build/</code>; examples and tests are in the subdirectory containing
-their source code.</li>
-  <li><code class="language-plaintext highlighter-rouge">make tests</code> runs the examples and regression tests.
-(A few files need to be downloaded for <code class="language-plaintext highlighter-rouge">examples/rfmip-clear-sky</code>. The default
-is to download with a Python script is shell script using <code class="language-plaintext highlighter-rouge">wget</code> is also available.)</li>
-  <li>Comparisons can be made with <code class="language-plaintext highlighter-rouge">make check</code> in the top level directory.
-Evaluating the results of the tests requires <code class="language-plaintext highlighter-rouge">Python</code> and the packages
-described in <code class="language-plaintext highlighter-rouge">environment.yml</code>. One approach is to use
-<code class="language-plaintext highlighter-rouge">conda env create -f environment.yml; conda activate rte_rrtmgp_test; make check</code></li>
+  <li>Set environment variables <code class="language-plaintext highlighter-rouge">FC</code> (the Fortran 2003 compiler) and <code class="language-plaintext highlighter-rouge">FCFLAGS</code> (compiler flags). Examples are provided in the <code class="language-plaintext highlighter-rouge">Compiler-flags.md</code> file.</li>
+  <li>Set environment variables <code class="language-plaintext highlighter-rouge">RRTMGP_ROOT</code> to the top-level RTE+RRTMGP directory and <code class="language-plaintext highlighter-rouge">RTE_KERNELS</code> to <code class="language-plaintext highlighter-rouge">accel</code> if you want the OpenACC/OpenMP kernels rather than the default.</li>
+  <li><code class="language-plaintext highlighter-rouge">make libs</code> in the top-level directory will make the RTE and RRTMGP libraries.</li>
+  <li>The examples and testing codes use netCDF. Set the variables <code class="language-plaintext highlighter-rouge">NCHOME</code> and <code class="language-plaintext highlighter-rouge">NFHOME</code> to the roots of the C and Fortran netCDF installations.</li>
+  <li>Download the RRTMGP data either by cloning the <a href="https://github.com/earth-system-radiation/rrtmgp-data">data repository</a> or from the <a href="https://doi.org/10.5281/zenodo.7988260">Zenodo archive</a>. Set the environment variable <code class="language-plaintext highlighter-rouge">RRTMGP_DATA</code> to the root of this directory.</li>
+  <li><code class="language-plaintext highlighter-rouge">make tests</code> to will build and run the test.</li>
+  <li>Evaluating the results of the tests requires <code class="language-plaintext highlighter-rouge">Python</code> and the packages described in <code class="language-plaintext highlighter-rouge">environment.yml</code>. Comparisons can be made with <code class="language-plaintext highlighter-rouge">make check</code> in the top level directory.</li>
   <li><code class="language-plaintext highlighter-rouge">make</code> invoked without a target in the top level attempts all three steps.</li>
 </ol>
 
-<h3 id="building-and-testing-using-gnu-make-1">Building and testing using (Gnu) make</h3>
+<h3 id="building-and-testing-using-gnu-make">Building and testing using (Gnu) make</h3>
 
 <p>Sergey Kosukhin and his colleagues at the Max Planck Institute for Meteorology
 maintain the <code class="language-plaintext highlighter-rouge">autoconf</code> branch which adds Gnu <code class="language-plaintext highlighter-rouge">autotools</code> building to <code class="language-plaintext highlighter-rouge">main</code> branch.</p>
diff --git a/index.html b/index.html
index 6334288b6..ae6eda14c 100644
--- a/index.html
+++ b/index.html
@@ -39,7 +39,10 @@
         <div class="home"><h1 class="page-heading">RTE+RRTMGP documentation</h1><p>This is the documentation for RTE+RRTMGP, a set of codes for computing radiative
 fluxes in planetary atmospheres. RTE+RRTMGP is described in a
 <a href="https://doi.org/10.1029/2019MS001621">paper</a> in
-<a href="http://james.agu.org">Journal of Advances in Modeling Earth Systems</a>.</p>
+<a href="http://james.agu.org">Journal of Advances in Modeling Earth Systems</a>. 
+The code itself can be sited as 
+doi:<a href="https://doi.org/10.5281/zenodo.3403172">10.5281/zenodo.3403172</a> or via the 
+DOI attached to each release.</p>
 
 <p>RRTMGP uses a k-distribution to provide an optical description (absorption and
   possibly Rayleigh optical depth) of the gaseous atmosphere, along with the
@@ -62,8 +65,16 @@ <h1 id="work-in-progress">Work in progress</h1>
 <p>We are starting with the <a href="./reference/index.html">reference documentation</a>,
 auto-generated from the code itself. This is provided separately for
 RTE and RRTMGP and for the user-facing classes and underlying computational kernels.</p>
+
+<p>We welcome contributions to the documentation via pull requests to the <code class="language-plaintext highlighter-rouge">documentation</code> branch 
+of the Github repository.</p>
 <h2 class="post-list-heading">Posts</h2>
-    <ul class="post-list"><li><span class="post-meta">Jun 2, 2022</span>
+    <ul class="post-list"><li><span class="post-meta">Nov 27, 2023</span>
+        <h3>
+          <a class="post-link" href="/rte-rrtmgp/release-notes/2023/11/27/v1.8-Release-notes.html">
+            v1.8 Release notes
+          </a>
+        </h3></li><li><span class="post-meta">Jun 2, 2022</span>
         <h3>
           <a class="post-link" href="/rte-rrtmgp/release-notes/2022/06/02/Release-notes.html">
             2022-06-02: Release notes
diff --git a/reference/index.html b/reference/index.html
index 71a23b16b..aec195f56 100644
--- a/reference/index.html
+++ b/reference/index.html
@@ -56,6 +56,7 @@ <h1 id="referencetechnical-documentation">Reference/Technical documentation</h1>
   and spectral quadrature point.</li>
   <li>RTE and RRTMGP are agnostic to vertical ordering</li>
   <li>Units are MKS</li>
+  <li>Procedures (with the exception of testing code) do not perform I/O</li>
 </ul>
 
 <h2 id="fortran-user-facing-class-interfaces">Fortran user-facing class interfaces</h2>
diff --git a/reference/rrtmgp-fortran-interface/index.html b/reference/rrtmgp-fortran-interface/index.html
index 3dbe206d1..299f4b7f7 100644
--- a/reference/rrtmgp-fortran-interface/index.html
+++ b/reference/rrtmgp-fortran-interface/index.html
@@ -104,13 +104,13 @@ <h1>RRTMGP-Fortran</h1>
 to represent the volume mixing ratios needed as input. Output suitable for
 scattering emission, two-stream, or multi-stream calculations are provided
 depending on which sub-class of RTE's
-<a href="./rte-fortran-interface/module/mo_optical_props.html#type-ty_optical_props_arry">ty_optical_props_arry</a>
+<a href="../rte-fortran-interface/module/mo_optical_props.html#type-ty_optical_props_arry">ty_optical_props_arry</a>
 are provided. Planck source functions, if requested, are reported in a variable
-of type <a href="./rte-fortran-interface/type/ty_source_func_lw.html">ty_source_func_lw.</a></p>
+of type <a href="../rte-fortran-interface/type/ty_source_func_lw.html">ty_source_func_lw.</a></p>
 <p>The listings below may not be exhaustive.
 To see the full listings use the links at the top of the page.
 There is a search bar in the top right.</p>
-<p>Return to the <a href="../../index.html">Documentation overview</a> or the <a href="../../reference.html">reference overview</a>.</p>
+<p>Return to the <a href="../../index.html">Documentation overview</a> or the [reference overview].</p>
         </div>
         <div class="col-md-4">
 	  <div class="well">
diff --git a/reference/rrtmgp-fortran-interface/lists/files.html b/reference/rrtmgp-fortran-interface/lists/files.html
index 542970385..cec1cbac3 100644
--- a/reference/rrtmgp-fortran-interface/lists/files.html
+++ b/reference/rrtmgp-fortran-interface/lists/files.html
@@ -97,12 +97,12 @@ <h1>Source Files</h1>
 <g id="file~~graph~~FileGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
 <title>file~~graph~~FileGraph</title>
 <polygon fill="white" stroke="transparent" points="-4,4 -4,-112 218,-112 218,4 -4,4"/>
-<!-- sourcefile~mo_gas_optics_rrtmgp.f90 -->
+<!-- sourcefile~mo_cloud_optics_rrtmgp.f90 -->
 <g id="file~~graph~~FileGraph_node1" class="node">
-<title>sourcefile~mo_gas_optics_rrtmgp.f90</title>
-<g id="a_file~~graph~~FileGraph_node1"><a xlink:href=".././sourcefile/mo_gas_optics_rrtmgp.f90.html" xlink:title="mo_gas_optics_rrtmgp.F90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="184.5,-24 29.5,-24 29.5,0 184.5,0 184.5,-24"/>
-<text text-anchor="middle" x="107" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_gas_optics_rrtmgp.F90</text>
+<title>sourcefile~mo_cloud_optics_rrtmgp.f90</title>
+<g id="a_file~~graph~~FileGraph_node1"><a xlink:href=".././sourcefile/mo_cloud_optics_rrtmgp.f90.html" xlink:title="mo_cloud_optics_rrtmgp.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="190,-24 24,-24 24,0 190,0 190,-24"/>
+<text text-anchor="middle" x="107" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_cloud_optics_rrtmgp.F90</text>
 </a>
 </g>
 </g>
@@ -115,12 +115,12 @@ <h1>Source Files</h1>
 </a>
 </g>
 </g>
-<!-- sourcefile~mo_cloud_optics_rrtmgp.f90 -->
+<!-- sourcefile~mo_gas_optics_rrtmgp.f90 -->
 <g id="file~~graph~~FileGraph_node3" class="node">
-<title>sourcefile~mo_cloud_optics_rrtmgp.f90</title>
-<g id="a_file~~graph~~FileGraph_node3"><a xlink:href=".././sourcefile/mo_cloud_optics_rrtmgp.f90.html" xlink:title="mo_cloud_optics_rrtmgp.F90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="190,-108 24,-108 24,-84 190,-84 190,-108"/>
-<text text-anchor="middle" x="107" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_cloud_optics_rrtmgp.F90</text>
+<title>sourcefile~mo_gas_optics_rrtmgp.f90</title>
+<g id="a_file~~graph~~FileGraph_node3"><a xlink:href=".././sourcefile/mo_gas_optics_rrtmgp.f90.html" xlink:title="mo_gas_optics_rrtmgp.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="184.5,-108 29.5,-108 29.5,-84 184.5,-84 184.5,-108"/>
+<text text-anchor="middle" x="107" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_gas_optics_rrtmgp.F90</text>
 </a>
 </g>
 </g>
diff --git a/reference/rrtmgp-fortran-interface/lists/modules.html b/reference/rrtmgp-fortran-interface/lists/modules.html
index 6d62bc364..7dce4ebf9 100644
--- a/reference/rrtmgp-fortran-interface/lists/modules.html
+++ b/reference/rrtmgp-fortran-interface/lists/modules.html
@@ -99,37 +99,37 @@ <h1>Modules</h1>
 <g id="module~~graph~~ModuleGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 448)">
 <title>module~~graph~~ModuleGraph</title>
 <polygon fill="white" stroke="transparent" points="-4,4 -4,-448 408,-448 408,4 -4,4"/>
-<!-- module~mo_cloud_optics_rrtmgp -->
+<!-- module~mo_aerosol_optics_rrtmgp_merra -->
 <g id="module~~graph~~ModuleGraph_node1" class="node">
-<title>module~mo_cloud_optics_rrtmgp</title>
-<g id="a_module~~graph~~ModuleGraph_node1"><a xlink:href=".././module/mo_cloud_optics_rrtmgp.html" xlink:title="mo_cloud_optics_rrtmgp">
-<polygon fill="#337ab7" stroke="#337ab7" points="380,-360 237,-360 237,-336 380,-336 380,-360"/>
-<text text-anchor="middle" x="308.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_cloud_optics_rrtmgp</text>
+<title>module~mo_aerosol_optics_rrtmgp_merra</title>
+<g id="a_module~~graph~~ModuleGraph_node1"><a xlink:href=".././module/mo_aerosol_optics_rrtmgp_merra.html" xlink:title="mo_aerosol_optics_rrtmgp_merra">
+<polygon fill="#337ab7" stroke="#337ab7" points="404,-360 213,-360 213,-336 404,-336 404,-360"/>
+<text text-anchor="middle" x="308.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_aerosol_optics_rrtmgp_merra</text>
 </a>
 </g>
 </g>
-<!-- mo_rte_kind -->
+<!-- mo_rte_util_array_validation -->
 <g id="module~~graph~~ModuleGraph_node4" class="node">
-<title>mo_rte_kind</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="127.5,-318 49.5,-318 49.5,-294 127.5,-294 127.5,-318"/>
-<text text-anchor="middle" x="88.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind</text>
+<title>mo_rte_util_array_validation</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="170,-318 7,-318 7,-294 170,-294 170,-318"/>
+<text text-anchor="middle" x="88.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array_validation</text>
 </g>
-<!-- module~mo_cloud_optics_rrtmgp&#45;&gt;mo_rte_kind -->
+<!-- module~mo_aerosol_optics_rrtmgp_merra&#45;&gt;mo_rte_util_array_validation -->
 <g id="module~~graph~~ModuleGraph_edge1" class="edge">
-<title>module~mo_cloud_optics_rrtmgp&#45;&gt;mo_rte_kind</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M245.03,-335.96C210.86,-329.38 169.17,-321.35 137.56,-315.26"/>
-<polygon fill="#000000" stroke="#000000" points="138.16,-311.81 127.68,-313.36 136.83,-318.68 138.16,-311.81"/>
+<title>module~mo_aerosol_optics_rrtmgp_merra&#45;&gt;mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M245.03,-335.96C219.15,-330.98 188.95,-325.16 162.09,-319.99"/>
+<polygon fill="#000000" stroke="#000000" points="162.46,-316.49 151.98,-318.04 161.14,-323.37 162.46,-316.49"/>
 </g>
 <!-- mo_rte_config -->
-<g id="module~~graph~~ModuleGraph_node5" class="node">
+<g id="module~~graph~~ModuleGraph_node6" class="node">
 <title>mo_rte_config</title>
 <polygon fill="#337ab7" stroke="#337ab7" points="132.5,-444 44.5,-444 44.5,-420 132.5,-420 132.5,-444"/>
 <text text-anchor="middle" x="88.5" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_config</text>
 </g>
-<!-- module~mo_cloud_optics_rrtmgp&#45;&gt;mo_rte_config -->
+<!-- module~mo_aerosol_optics_rrtmgp_merra&#45;&gt;mo_rte_config -->
 <g id="module~~graph~~ModuleGraph_edge3" class="edge">
-<title>module~mo_cloud_optics_rrtmgp&#45;&gt;mo_rte_config</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M236.9,-358.35C228.52,-361.1 220.35,-364.59 213,-369 191.92,-381.65 197.97,-398.17 177,-411 166.59,-417.37 154.38,-421.8 142.45,-424.9"/>
+<title>module~mo_aerosol_optics_rrtmgp_merra&#45;&gt;mo_rte_config</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M232,-360.05C225.35,-362.51 218.91,-365.45 213,-369 191.92,-381.65 197.97,-398.17 177,-411 166.59,-417.37 154.38,-421.8 142.45,-424.9"/>
 <polygon fill="#000000" stroke="#000000" points="141.48,-421.53 132.53,-427.19 143.06,-428.35 141.48,-421.53"/>
 </g>
 <!-- mo_optical_props -->
@@ -138,174 +138,174 @@ <h1>Modules</h1>
 <polygon fill="#337ab7" stroke="#337ab7" points="141.5,-402 35.5,-402 35.5,-378 141.5,-378 141.5,-402"/>
 <text text-anchor="middle" x="88.5" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props</text>
 </g>
-<!-- module~mo_cloud_optics_rrtmgp&#45;&gt;mo_optical_props -->
+<!-- module~mo_aerosol_optics_rrtmgp_merra&#45;&gt;mo_optical_props -->
 <g id="module~~graph~~ModuleGraph_edge2" class="edge">
-<title>module~mo_cloud_optics_rrtmgp&#45;&gt;mo_optical_props</title>
+<title>module~mo_aerosol_optics_rrtmgp_merra&#45;&gt;mo_optical_props</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M245.03,-360.04C215.77,-365.67 181,-372.37 151.76,-378"/>
 <polygon fill="#000000" stroke="#000000" points="150.83,-374.62 141.67,-379.95 152.15,-381.49 150.83,-374.62"/>
 </g>
-<!-- mo_rte_util_array_validation -->
+<!-- mo_rte_kind -->
 <g id="module~~graph~~ModuleGraph_node11" class="node">
-<title>mo_rte_util_array_validation</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="170,-360 7,-360 7,-336 170,-336 170,-360"/>
-<text text-anchor="middle" x="88.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array_validation</text>
+<title>mo_rte_kind</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="127.5,-360 49.5,-360 49.5,-336 127.5,-336 127.5,-360"/>
+<text text-anchor="middle" x="88.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind</text>
 </g>
-<!-- module~mo_cloud_optics_rrtmgp&#45;&gt;mo_rte_util_array_validation -->
+<!-- module~mo_aerosol_optics_rrtmgp_merra&#45;&gt;mo_rte_kind -->
 <g id="module~~graph~~ModuleGraph_edge4" class="edge">
+<title>module~mo_aerosol_optics_rrtmgp_merra&#45;&gt;mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M212.83,-348C186.94,-348 159.95,-348 137.85,-348"/>
+<polygon fill="#000000" stroke="#000000" points="137.74,-344.5 127.74,-348 137.74,-351.5 137.74,-344.5"/>
+</g>
+<!-- module~mo_cloud_optics_rrtmgp -->
+<g id="module~~graph~~ModuleGraph_node2" class="node">
+<title>module~mo_cloud_optics_rrtmgp</title>
+<g id="a_module~~graph~~ModuleGraph_node2"><a xlink:href=".././module/mo_cloud_optics_rrtmgp.html" xlink:title="mo_cloud_optics_rrtmgp">
+<polygon fill="#337ab7" stroke="#337ab7" points="380,-402 237,-402 237,-378 380,-378 380,-402"/>
+<text text-anchor="middle" x="308.5" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_cloud_optics_rrtmgp</text>
+</a>
+</g>
+</g>
+<!-- module~mo_cloud_optics_rrtmgp&#45;&gt;mo_rte_util_array_validation -->
+<g id="module~~graph~~ModuleGraph_edge5" class="edge">
 <title>module~mo_cloud_optics_rrtmgp&#45;&gt;mo_rte_util_array_validation</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M236.72,-348C218.7,-348 199.08,-348 180.22,-348"/>
-<polygon fill="#000000" stroke="#000000" points="180.13,-344.5 170.13,-348 180.13,-351.5 180.13,-344.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M236.9,-379.65C228.52,-376.9 220.35,-373.41 213,-369 191.92,-356.35 197.97,-339.83 177,-327 174.04,-325.19 170.95,-323.54 167.75,-322.03"/>
+<polygon fill="#000000" stroke="#000000" points="169.1,-318.8 158.52,-318.14 166.38,-325.25 169.1,-318.8"/>
+</g>
+<!-- module~mo_cloud_optics_rrtmgp&#45;&gt;mo_rte_config -->
+<g id="module~~graph~~ModuleGraph_edge7" class="edge">
+<title>module~mo_cloud_optics_rrtmgp&#45;&gt;mo_rte_config</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M245.03,-402.04C212.7,-408.26 173.65,-415.79 142.76,-421.74"/>
+<polygon fill="#000000" stroke="#000000" points="141.78,-418.36 132.62,-423.69 143.11,-425.24 141.78,-418.36"/>
+</g>
+<!-- module~mo_cloud_optics_rrtmgp&#45;&gt;mo_optical_props -->
+<g id="module~~graph~~ModuleGraph_edge6" class="edge">
+<title>module~mo_cloud_optics_rrtmgp&#45;&gt;mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M236.72,-390C209.39,-390 178.39,-390 151.91,-390"/>
+<polygon fill="#000000" stroke="#000000" points="151.62,-386.5 141.62,-390 151.62,-393.5 151.62,-386.5"/>
+</g>
+<!-- module~mo_cloud_optics_rrtmgp&#45;&gt;mo_rte_kind -->
+<g id="module~~graph~~ModuleGraph_edge8" class="edge">
+<title>module~mo_cloud_optics_rrtmgp&#45;&gt;mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M245.03,-377.96C210.86,-371.38 169.17,-363.35 137.56,-357.26"/>
+<polygon fill="#000000" stroke="#000000" points="138.16,-353.81 127.68,-355.36 136.83,-360.68 138.16,-353.81"/>
 </g>
 <!-- module~mo_gas_optics_rrtmgp -->
-<g id="module~~graph~~ModuleGraph_node2" class="node">
+<g id="module~~graph~~ModuleGraph_node3" class="node">
 <title>module~mo_gas_optics_rrtmgp</title>
-<g id="a_module~~graph~~ModuleGraph_node2"><a xlink:href=".././module/mo_gas_optics_rrtmgp.html" xlink:title="mo_gas_optics_rrtmgp">
+<g id="a_module~~graph~~ModuleGraph_node3"><a xlink:href=".././module/mo_gas_optics_rrtmgp.html" xlink:title="mo_gas_optics_rrtmgp">
 <polygon fill="#337ab7" stroke="#337ab7" points="375,-234 242,-234 242,-210 375,-210 375,-234"/>
 <text text-anchor="middle" x="308.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_gas_optics_rrtmgp</text>
 </a>
 </g>
 </g>
-<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_kind -->
+<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_util_array_validation -->
+<g id="module~~graph~~ModuleGraph_edge12" class="edge">
+<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.95,-234.18C260.57,-248.11 216.81,-270.8 177,-285 170.67,-287.26 164,-289.35 157.28,-291.27"/>
+<polygon fill="#000000" stroke="#000000" points="156.16,-287.94 147.44,-293.95 158.01,-294.7 156.16,-287.94"/>
+</g>
+<!-- mo_gas_concentrations -->
+<g id="module~~graph~~ModuleGraph_node5" class="node">
+<title>mo_gas_concentrations</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="158,-66 19,-66 19,-42 158,-42 158,-66"/>
+<text text-anchor="middle" x="88.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_gas_concentrations</text>
+</g>
+<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_concentrations -->
 <g id="module~~graph~~ModuleGraph_edge9" class="edge">
-<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_kind</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.95,-234.18C260.57,-248.11 216.81,-270.8 177,-285 164.58,-289.43 150.83,-293.22 137.99,-296.32"/>
-<polygon fill="#000000" stroke="#000000" points="136.87,-292.98 127.92,-298.65 138.45,-299.8 136.87,-292.98"/>
+<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_concentrations</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M300.42,-209.87C283.19,-181.48 236.12,-110.45 177,-75 173.96,-73.18 170.77,-71.51 167.49,-69.99"/>
+<polygon fill="#000000" stroke="#000000" points="168.58,-66.66 158.01,-66.08 165.91,-73.13 168.58,-66.66"/>
 </g>
 <!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_config -->
-<g id="module~~graph~~ModuleGraph_edge6" class="edge">
+<g id="module~~graph~~ModuleGraph_edge10" class="edge">
 <title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_config</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.08,-234.13C274.25,-252.6 236.91,-289.6 213,-327 191.12,-361.22 208.05,-384.81 177,-411 167.29,-419.19 154.93,-424.29 142.58,-427.45"/>
 <polygon fill="#000000" stroke="#000000" points="141.76,-424.04 132.72,-429.58 143.24,-430.88 141.76,-424.04"/>
 </g>
 <!-- mo_gas_optics -->
-<g id="module~~graph~~ModuleGraph_node6" class="node">
+<g id="module~~graph~~ModuleGraph_node7" class="node">
 <title>mo_gas_optics</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="134,-66 43,-66 43,-42 134,-42 134,-66"/>
-<text text-anchor="middle" x="88.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_gas_optics</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="134,-24 43,-24 43,0 134,0 134,-24"/>
+<text text-anchor="middle" x="88.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_gas_optics</text>
 </g>
 <!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics -->
-<g id="module~~graph~~ModuleGraph_edge5" class="edge">
+<g id="module~~graph~~ModuleGraph_edge11" class="edge">
 <title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M300.42,-209.87C283.19,-181.48 236.12,-110.45 177,-75 167.05,-69.03 155.51,-64.76 144.14,-61.7"/>
-<polygon fill="#000000" stroke="#000000" points="144.78,-58.26 134.24,-59.32 143.14,-65.06 144.78,-58.26"/>
-</g>
-<!-- mo_gas_optics_constants -->
-<g id="module~~graph~~ModuleGraph_node7" class="node">
-<title>mo_gas_optics_constants</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="162,-24 15,-24 15,0 162,0 162,-24"/>
-<text text-anchor="middle" x="88.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_gas_optics_constants</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302.87,-209.99C289.22,-176.28 245.73,-80.13 177,-33 167.33,-26.37 155.82,-21.83 144.37,-18.71"/>
+<polygon fill="#000000" stroke="#000000" points="144.91,-15.24 134.37,-16.32 143.28,-22.05 144.91,-15.24"/>
 </g>
-<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics_constants -->
-<g id="module~~graph~~ModuleGraph_edge7" class="edge">
-<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics_constants</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302.87,-209.99C289.22,-176.28 245.73,-80.13 177,-33 174.58,-31.34 172.05,-29.82 169.44,-28.41"/>
-<polygon fill="#000000" stroke="#000000" points="170.79,-25.18 160.25,-24.08 167.8,-31.51 170.79,-25.18"/>
-</g>
-<!-- mo_rte_util_array -->
+<!-- mo_gas_optics_util_string -->
 <g id="module~~graph~~ModuleGraph_node8" class="node">
-<title>mo_rte_util_array</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="141.5,-276 35.5,-276 35.5,-252 141.5,-252 141.5,-276"/>
-<text text-anchor="middle" x="88.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array</text>
+<title>mo_gas_optics_util_string</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="162.5,-276 14.5,-276 14.5,-252 162.5,-252 162.5,-276"/>
+<text text-anchor="middle" x="88.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_gas_optics_util_string</text>
 </g>
-<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_util_array -->
-<g id="module~~graph~~ModuleGraph_edge8" class="edge">
-<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_util_array</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M245.03,-234.04C215.77,-239.67 181,-246.37 151.76,-252"/>
-<polygon fill="#000000" stroke="#000000" points="150.83,-248.62 141.67,-253.95 152.15,-255.49 150.83,-248.62"/>
+<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics_util_string -->
+<g id="module~~graph~~ModuleGraph_edge13" class="edge">
+<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics_util_string</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M245.03,-234.04C219.15,-239.02 188.95,-244.84 162.09,-250.01"/>
+<polygon fill="#000000" stroke="#000000" points="161.14,-246.63 151.98,-251.96 162.46,-253.51 161.14,-246.63"/>
 </g>
-<!-- mo_gas_optics_rrtmgp_kernels -->
+<!-- mo_source_functions -->
 <g id="module~~graph~~ModuleGraph_node9" class="node">
-<title>mo_gas_optics_rrtmgp_kernels</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="177,-234 0,-234 0,-210 177,-210 177,-234"/>
-<text text-anchor="middle" x="88.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_gas_optics_rrtmgp_kernels</text>
+<title>mo_source_functions</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="150.5,-234 26.5,-234 26.5,-210 150.5,-210 150.5,-234"/>
+<text text-anchor="middle" x="88.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_source_functions</text>
 </g>
-<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics_rrtmgp_kernels -->
-<g id="module~~graph~~ModuleGraph_edge10" class="edge">
-<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics_rrtmgp_kernels</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M241.8,-222C224.66,-222 205.82,-222 187.41,-222"/>
-<polygon fill="#000000" stroke="#000000" points="187.23,-218.5 177.23,-222 187.23,-225.5 187.23,-218.5"/>
+<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_source_functions -->
+<g id="module~~graph~~ModuleGraph_edge14" class="edge">
+<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_source_functions</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M241.8,-222C216.23,-222 186.87,-222 160.79,-222"/>
+<polygon fill="#000000" stroke="#000000" points="160.6,-218.5 150.6,-222 160.6,-225.5 160.6,-218.5"/>
 </g>
 <!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_optical_props -->
-<g id="module~~graph~~ModuleGraph_edge13" class="edge">
+<g id="module~~graph~~ModuleGraph_edge18" class="edge">
 <title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_optical_props</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296.35,-234.2C278.57,-253.69 242.78,-293.1 213,-327 196.78,-345.47 197.97,-356.17 177,-369 169.17,-373.79 160.33,-377.48 151.34,-380.34"/>
 <polygon fill="#000000" stroke="#000000" points="150.25,-377.01 141.59,-383.12 152.16,-383.74 150.25,-377.01"/>
 </g>
-<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_util_array_validation -->
-<g id="module~~graph~~ModuleGraph_edge11" class="edge">
-<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_util_array_validation</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296.17,-234.13C274.96,-256.12 226.85,-302.51 177,-327 172.75,-329.09 168.29,-330.97 163.71,-332.68"/>
-<polygon fill="#000000" stroke="#000000" points="162.54,-329.38 154.21,-335.93 164.8,-336 162.54,-329.38"/>
+<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_kind -->
+<g id="module~~graph~~ModuleGraph_edge16" class="edge">
+<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296.17,-234.13C274.96,-256.12 226.85,-302.51 177,-327 164.82,-332.98 150.83,-337.32 137.67,-340.45"/>
+<polygon fill="#000000" stroke="#000000" points="136.82,-337.05 127.8,-342.6 138.32,-343.89 136.82,-337.05"/>
 </g>
-<!-- mo_source_functions -->
+<!-- mo_gas_optics_constants -->
 <g id="module~~graph~~ModuleGraph_node12" class="node">
-<title>mo_source_functions</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="150.5,-192 26.5,-192 26.5,-168 150.5,-168 150.5,-192"/>
-<text text-anchor="middle" x="88.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_source_functions</text>
+<title>mo_gas_optics_constants</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="162,-192 15,-192 15,-168 162,-168 162,-192"/>
+<text text-anchor="middle" x="88.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_gas_optics_constants</text>
 </g>
-<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_source_functions -->
-<g id="module~~graph~~ModuleGraph_edge12" class="edge">
-<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_source_functions</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M245.03,-209.96C218.7,-204.89 187.9,-198.96 160.7,-193.72"/>
-<polygon fill="#000000" stroke="#000000" points="161.33,-190.27 150.85,-191.82 160.01,-197.15 161.33,-190.27"/>
+<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics_constants -->
+<g id="module~~graph~~ModuleGraph_edge15" class="edge">
+<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics_constants</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M245.03,-209.96C219.15,-204.98 188.95,-199.16 162.09,-193.99"/>
+<polygon fill="#000000" stroke="#000000" points="162.46,-190.49 151.98,-192.04 161.14,-197.37 162.46,-190.49"/>
 </g>
-<!-- mo_gas_optics_util_string -->
+<!-- mo_rte_util_array -->
 <g id="module~~graph~~ModuleGraph_node13" class="node">
-<title>mo_gas_optics_util_string</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="162.5,-150 14.5,-150 14.5,-126 162.5,-126 162.5,-150"/>
-<text text-anchor="middle" x="88.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_gas_optics_util_string</text>
+<title>mo_rte_util_array</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="141.5,-150 35.5,-150 35.5,-126 141.5,-126 141.5,-150"/>
+<text text-anchor="middle" x="88.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array</text>
 </g>
-<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics_util_string -->
-<g id="module~~graph~~ModuleGraph_edge14" class="edge">
-<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics_util_string</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.95,-209.82C260.57,-195.89 216.81,-173.2 177,-159 170.67,-156.74 164,-154.65 157.28,-152.73"/>
-<polygon fill="#000000" stroke="#000000" points="158.01,-149.3 147.44,-150.05 156.16,-156.06 158.01,-149.3"/>
+<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_util_array -->
+<g id="module~~graph~~ModuleGraph_edge17" class="edge">
+<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_util_array</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.95,-209.82C260.57,-195.89 216.81,-173.2 177,-159 168.88,-156.1 160.18,-153.48 151.55,-151.14"/>
+<polygon fill="#000000" stroke="#000000" points="152.42,-147.75 141.86,-148.63 150.66,-154.53 152.42,-147.75"/>
 </g>
-<!-- mo_gas_concentrations -->
+<!-- mo_gas_optics_rrtmgp_kernels -->
 <g id="module~~graph~~ModuleGraph_node14" class="node">
-<title>mo_gas_concentrations</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="158,-108 19,-108 19,-84 158,-84 158,-108"/>
-<text text-anchor="middle" x="88.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_gas_concentrations</text>
+<title>mo_gas_optics_rrtmgp_kernels</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="177,-108 0,-108 0,-84 177,-84 177,-108"/>
+<text text-anchor="middle" x="88.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_gas_optics_rrtmgp_kernels</text>
 </g>
-<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_concentrations -->
-<g id="module~~graph~~ModuleGraph_edge15" class="edge">
-<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_concentrations</title>
+<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics_rrtmgp_kernels -->
+<g id="module~~graph~~ModuleGraph_edge19" class="edge">
+<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics_rrtmgp_kernels</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296.17,-209.87C274.96,-187.88 226.85,-141.49 177,-117 172.75,-114.91 168.29,-113.03 163.71,-111.32"/>
 <polygon fill="#000000" stroke="#000000" points="164.8,-108 154.21,-108.07 162.54,-114.62 164.8,-108"/>
 </g>
-<!-- module~mo_aerosol_optics_rrtmgp_merra -->
-<g id="module~~graph~~ModuleGraph_node3" class="node">
-<title>module~mo_aerosol_optics_rrtmgp_merra</title>
-<g id="a_module~~graph~~ModuleGraph_node3"><a xlink:href=".././module/mo_aerosol_optics_rrtmgp_merra.html" xlink:title="mo_aerosol_optics_rrtmgp_merra">
-<polygon fill="#337ab7" stroke="#337ab7" points="404,-402 213,-402 213,-378 404,-378 404,-402"/>
-<text text-anchor="middle" x="308.5" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_aerosol_optics_rrtmgp_merra</text>
-</a>
-</g>
-</g>
-<!-- module~mo_aerosol_optics_rrtmgp_merra&#45;&gt;mo_rte_kind -->
-<g id="module~~graph~~ModuleGraph_edge16" class="edge">
-<title>module~mo_aerosol_optics_rrtmgp_merra&#45;&gt;mo_rte_kind</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M232,-377.95C225.35,-375.49 218.91,-372.55 213,-369 191.92,-356.35 197.97,-339.83 177,-327 165.21,-319.79 151.12,-315.06 137.73,-311.95"/>
-<polygon fill="#000000" stroke="#000000" points="138.18,-308.47 127.68,-309.87 136.76,-315.32 138.18,-308.47"/>
-</g>
-<!-- module~mo_aerosol_optics_rrtmgp_merra&#45;&gt;mo_rte_config -->
-<g id="module~~graph~~ModuleGraph_edge18" class="edge">
-<title>module~mo_aerosol_optics_rrtmgp_merra&#45;&gt;mo_rte_config</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M245.03,-402.04C212.7,-408.26 173.65,-415.79 142.76,-421.74"/>
-<polygon fill="#000000" stroke="#000000" points="141.78,-418.36 132.62,-423.69 143.11,-425.24 141.78,-418.36"/>
-</g>
-<!-- module~mo_aerosol_optics_rrtmgp_merra&#45;&gt;mo_optical_props -->
-<g id="module~~graph~~ModuleGraph_edge17" class="edge">
-<title>module~mo_aerosol_optics_rrtmgp_merra&#45;&gt;mo_optical_props</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M212.83,-390C192.09,-390 170.64,-390 151.56,-390"/>
-<polygon fill="#000000" stroke="#000000" points="151.52,-386.5 141.52,-390 151.52,-393.5 151.52,-386.5"/>
-</g>
-<!-- module~mo_aerosol_optics_rrtmgp_merra&#45;&gt;mo_rte_util_array_validation -->
-<g id="module~~graph~~ModuleGraph_edge19" class="edge">
-<title>module~mo_aerosol_optics_rrtmgp_merra&#45;&gt;mo_rte_util_array_validation</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M245.03,-377.96C219.15,-372.98 188.95,-367.16 162.09,-361.99"/>
-<polygon fill="#000000" stroke="#000000" points="162.46,-358.49 151.98,-360.04 161.14,-365.37 162.46,-358.49"/>
-</g>
 </g>
 </svg>
 </div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
diff --git a/reference/rrtmgp-fortran-interface/lists/procedures.html b/reference/rrtmgp-fortran-interface/lists/procedures.html
index c5daa578d..19931b44d 100644
--- a/reference/rrtmgp-fortran-interface/lists/procedures.html
+++ b/reference/rrtmgp-fortran-interface/lists/procedures.html
@@ -97,21 +97,21 @@ <h1>Procedures</h1>
 <g id="call~~graph~~CallGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>call~~graph~~CallGraph</title>
 <polygon fill="white" stroke="transparent" points="-4,4 -4,-70 77,-70 77,4 -4,4"/>
-<!-- interface~pade_eval -->
+<!-- proc~get_col_dry -->
 <g id="call~~graph~~CallGraph_node1" class="node">
-<title>interface~pade_eval</title>
-<g id="a_call~~graph~~CallGraph_node1"><a xlink:href=".././interface/pade_eval.html" xlink:title="pade_eval">
-<polygon fill="#a7506f" stroke="#a7506f" points="70,-24 3,-24 3,0 70,0 70,-24"/>
-<text text-anchor="middle" x="36.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">pade_eval</text>
+<title>proc~get_col_dry</title>
+<g id="a_call~~graph~~CallGraph_node1"><a xlink:href=".././proc/get_col_dry.html" xlink:title="get_col_dry">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="73,-24 0,-24 0,0 73,0 73,-24"/>
+<text text-anchor="middle" x="36.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">get_col_dry</text>
 </a>
 </g>
 </g>
-<!-- proc~get_col_dry -->
+<!-- interface~pade_eval -->
 <g id="call~~graph~~CallGraph_node2" class="node">
-<title>proc~get_col_dry</title>
-<g id="a_call~~graph~~CallGraph_node2"><a xlink:href=".././proc/get_col_dry.html" xlink:title="get_col_dry">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="73,-66 0,-66 0,-42 73,-42 73,-66"/>
-<text text-anchor="middle" x="36.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">get_col_dry</text>
+<title>interface~pade_eval</title>
+<g id="a_call~~graph~~CallGraph_node2"><a xlink:href=".././interface/pade_eval.html" xlink:title="pade_eval">
+<polygon fill="#a7506f" stroke="#a7506f" points="70,-66 3,-66 3,-42 70,-42 70,-66"/>
+<text text-anchor="middle" x="36.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">pade_eval</text>
 </a>
 </g>
 </g>
diff --git a/reference/rrtmgp-fortran-interface/lists/types.html b/reference/rrtmgp-fortran-interface/lists/types.html
index 9028cea9c..1323c1b1f 100644
--- a/reference/rrtmgp-fortran-interface/lists/types.html
+++ b/reference/rrtmgp-fortran-interface/lists/types.html
@@ -98,62 +98,62 @@ <h1>Derived Types</h1>
 <g id="type~~graph~~TypeGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
 <title>type~~graph~~TypeGraph</title>
 <polygon fill="white" stroke="transparent" points="-4,4 -4,-112 322,-112 322,4 -4,4"/>
-<!-- type~ty_aerosol_optics_rrtmgp_merra -->
+<!-- type~ty_gas_optics_rrtmgp -->
 <g id="type~~graph~~TypeGraph_node1" class="node">
-<title>type~ty_aerosol_optics_rrtmgp_merra</title>
-<g id="a_type~~graph~~TypeGraph_node1"><a xlink:href=".././type/ty_aerosol_optics_rrtmgp_merra.html" xlink:title="ty_aerosol_optics_rrtmgp_merra">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="318,-66 134,-66 134,-42 318,-42 318,-66"/>
-<text text-anchor="middle" x="226" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_aerosol_optics_rrtmgp_merra</text>
+<title>type~ty_gas_optics_rrtmgp</title>
+<g id="a_type~~graph~~TypeGraph_node1"><a xlink:href=".././type/ty_gas_optics_rrtmgp.html" xlink:title="ty_gas_optics_rrtmgp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="288.5,-24 163.5,-24 163.5,0 288.5,0 288.5,-24"/>
+<text text-anchor="middle" x="226" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_gas_optics_rrtmgp</text>
 </a>
 </g>
 </g>
-<!-- ty_optical_props -->
+<!-- ty_gas_optics -->
 <g id="type~~graph~~TypeGraph_node4" class="node">
-<title>ty_optical_props</title>
-<polygon fill="#5cb85c" stroke="#5cb85c" points="98,-45 0,-45 0,-21 98,-21 98,-45"/>
-<text text-anchor="middle" x="49" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_optical_props</text>
+<title>ty_gas_optics</title>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="90.5,-24 7.5,-24 7.5,0 90.5,0 90.5,-24"/>
+<text text-anchor="middle" x="49" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_gas_optics</text>
 </g>
-<!-- type~ty_aerosol_optics_rrtmgp_merra&#45;&gt;ty_optical_props -->
+<!-- type~ty_gas_optics_rrtmgp&#45;&gt;ty_gas_optics -->
 <g id="type~~graph~~TypeGraph_edge1" class="edge">
-<title>type~ty_aerosol_optics_rrtmgp_merra&#45;&gt;ty_optical_props</title>
-<path fill="none" stroke="#000000" d="M133.91,-43.07C125.27,-42.03 116.67,-41 108.46,-40.02"/>
-<polygon fill="#000000" stroke="#000000" points="108.64,-36.51 98.29,-38.8 107.81,-43.46 108.64,-36.51"/>
+<title>type~ty_gas_optics_rrtmgp&#45;&gt;ty_gas_optics</title>
+<path fill="none" stroke="#000000" d="M163.3,-12C142.87,-12 120.37,-12 100.84,-12"/>
+<polygon fill="#000000" stroke="#000000" points="100.63,-8.5 90.63,-12 100.63,-15.5 100.63,-8.5"/>
 </g>
-<!-- type~ty_cloud_optics_rrtmgp -->
+<!-- type~ty_aerosol_optics_rrtmgp_merra -->
 <g id="type~~graph~~TypeGraph_node2" class="node">
-<title>type~ty_cloud_optics_rrtmgp</title>
-<g id="a_type~~graph~~TypeGraph_node2"><a xlink:href=".././type/ty_cloud_optics_rrtmgp.html" xlink:title="ty_cloud_optics_rrtmgp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="294,-24 158,-24 158,0 294,0 294,-24"/>
-<text text-anchor="middle" x="226" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_cloud_optics_rrtmgp</text>
+<title>type~ty_aerosol_optics_rrtmgp_merra</title>
+<g id="a_type~~graph~~TypeGraph_node2"><a xlink:href=".././type/ty_aerosol_optics_rrtmgp_merra.html" xlink:title="ty_aerosol_optics_rrtmgp_merra">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="318,-108 134,-108 134,-84 318,-84 318,-108"/>
+<text text-anchor="middle" x="226" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_aerosol_optics_rrtmgp_merra</text>
 </a>
 </g>
 </g>
-<!-- type~ty_cloud_optics_rrtmgp&#45;&gt;ty_optical_props -->
+<!-- ty_optical_props -->
+<g id="type~~graph~~TypeGraph_node5" class="node">
+<title>ty_optical_props</title>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="98,-87 0,-87 0,-63 98,-63 98,-87"/>
+<text text-anchor="middle" x="49" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_optical_props</text>
+</g>
+<!-- type~ty_aerosol_optics_rrtmgp_merra&#45;&gt;ty_optical_props -->
 <g id="type~~graph~~TypeGraph_edge2" class="edge">
-<title>type~ty_cloud_optics_rrtmgp&#45;&gt;ty_optical_props</title>
-<path fill="none" stroke="#000000" d="M157.84,-20.06C141.55,-22.01 124.27,-24.09 108.42,-25.99"/>
-<polygon fill="#000000" stroke="#000000" points="107.75,-22.54 98.24,-27.21 108.59,-29.49 107.75,-22.54"/>
+<title>type~ty_aerosol_optics_rrtmgp_merra&#45;&gt;ty_optical_props</title>
+<path fill="none" stroke="#000000" d="M133.91,-85.07C125.27,-84.03 116.67,-83 108.46,-82.02"/>
+<polygon fill="#000000" stroke="#000000" points="108.64,-78.51 98.29,-80.8 107.81,-85.46 108.64,-78.51"/>
 </g>
-<!-- type~ty_gas_optics_rrtmgp -->
+<!-- type~ty_cloud_optics_rrtmgp -->
 <g id="type~~graph~~TypeGraph_node3" class="node">
-<title>type~ty_gas_optics_rrtmgp</title>
-<g id="a_type~~graph~~TypeGraph_node3"><a xlink:href=".././type/ty_gas_optics_rrtmgp.html" xlink:title="ty_gas_optics_rrtmgp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="288.5,-108 163.5,-108 163.5,-84 288.5,-84 288.5,-108"/>
-<text text-anchor="middle" x="226" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_gas_optics_rrtmgp</text>
+<title>type~ty_cloud_optics_rrtmgp</title>
+<g id="a_type~~graph~~TypeGraph_node3"><a xlink:href=".././type/ty_cloud_optics_rrtmgp.html" xlink:title="ty_cloud_optics_rrtmgp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="294,-66 158,-66 158,-42 294,-42 294,-66"/>
+<text text-anchor="middle" x="226" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_cloud_optics_rrtmgp</text>
 </a>
 </g>
 </g>
-<!-- ty_gas_optics -->
-<g id="type~~graph~~TypeGraph_node5" class="node">
-<title>ty_gas_optics</title>
-<polygon fill="#5cb85c" stroke="#5cb85c" points="90.5,-108 7.5,-108 7.5,-84 90.5,-84 90.5,-108"/>
-<text text-anchor="middle" x="49" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_gas_optics</text>
-</g>
-<!-- type~ty_gas_optics_rrtmgp&#45;&gt;ty_gas_optics -->
+<!-- type~ty_cloud_optics_rrtmgp&#45;&gt;ty_optical_props -->
 <g id="type~~graph~~TypeGraph_edge3" class="edge">
-<title>type~ty_gas_optics_rrtmgp&#45;&gt;ty_gas_optics</title>
-<path fill="none" stroke="#000000" d="M163.3,-96C142.87,-96 120.37,-96 100.84,-96"/>
-<polygon fill="#000000" stroke="#000000" points="100.63,-92.5 90.63,-96 100.63,-99.5 100.63,-92.5"/>
+<title>type~ty_cloud_optics_rrtmgp&#45;&gt;ty_optical_props</title>
+<path fill="none" stroke="#000000" d="M157.84,-62.06C141.55,-64.01 124.27,-66.09 108.42,-67.99"/>
+<polygon fill="#000000" stroke="#000000" points="107.75,-64.54 98.24,-69.21 108.59,-71.49 107.75,-64.54"/>
 </g>
 </g>
 </svg>
diff --git a/reference/rrtmgp-fortran-interface/module/mo_aerosol_optics_rrtmgp_merra.html b/reference/rrtmgp-fortran-interface/module/mo_aerosol_optics_rrtmgp_merra.html
index 1323b09bd..5ca246920 100644
--- a/reference/rrtmgp-fortran-interface/module/mo_aerosol_optics_rrtmgp_merra.html
+++ b/reference/rrtmgp-fortran-interface/module/mo_aerosol_optics_rrtmgp_merra.html
@@ -149,10 +149,10 @@ <h3 class="panel-title">Uses</h3>
       <ul class="list-group">
       <li class="list-group-item">
   <ul class="list-inline">
-    <li>mo_rte_kind</li>
+    <li>mo_rte_util_array_validation</li>
     <li>mo_optical_props</li>
     <li>mo_rte_config</li>
-    <li>mo_rte_util_array_validation</li>
+    <li>mo_rte_kind</li>
   </ul>
       </li>
       <li class="list-group-item">
@@ -173,17 +173,17 @@ <h3 class="panel-title">Uses</h3>
 <polygon fill="none" stroke="black" points="390,-87 199,-87 199,-63 390,-63 390,-87"/>
 <text text-anchor="middle" x="294.5" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_aerosol_optics_rrtmgp_merra</text>
 </g>
-<!-- mo_rte_kind -->
+<!-- mo_rte_util_array_validation -->
 <g id="module~~mo_aerosol_optics_rrtmgp_merra~~UsesGraph_node2" class="node">
-<title>mo_rte_kind</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="120.5,-150 42.5,-150 42.5,-126 120.5,-126 120.5,-150"/>
-<text text-anchor="middle" x="81.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind</text>
+<title>mo_rte_util_array_validation</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="163,-150 0,-150 0,-126 163,-126 163,-150"/>
+<text text-anchor="middle" x="81.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array_validation</text>
 </g>
-<!-- module~mo_aerosol_optics_rrtmgp_merra&#45;&gt;mo_rte_kind -->
+<!-- module~mo_aerosol_optics_rrtmgp_merra&#45;&gt;mo_rte_util_array_validation -->
 <g id="module~~mo_aerosol_optics_rrtmgp_merra~~UsesGraph_edge1" class="edge">
-<title>module~mo_aerosol_optics_rrtmgp_merra&#45;&gt;mo_rte_kind</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.94,-87.04C231.8,-95.75 195.34,-107.59 163,-117 152.49,-120.06 141.14,-123.15 130.38,-125.98"/>
-<polygon fill="#000000" stroke="#000000" points="129.5,-122.59 120.7,-128.5 131.26,-129.37 129.5,-122.59"/>
+<title>module~mo_aerosol_optics_rrtmgp_merra&#45;&gt;mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.94,-87.04C231.8,-95.75 195.34,-107.59 163,-117 155.77,-119.11 148.14,-121.22 140.58,-123.26"/>
+<polygon fill="#000000" stroke="#000000" points="139.48,-119.93 130.72,-125.89 141.29,-126.7 139.48,-119.93"/>
 </g>
 <!-- mo_optical_props -->
 <g id="module~~mo_aerosol_optics_rrtmgp_merra~~UsesGraph_node3" class="node">
@@ -209,17 +209,17 @@ <h3 class="panel-title">Uses</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M198.8,-65.57C177.16,-63.42 154.91,-61.21 135.74,-59.3"/>
 <polygon fill="#000000" stroke="#000000" points="136.02,-55.81 125.73,-58.3 135.33,-62.78 136.02,-55.81"/>
 </g>
-<!-- mo_rte_util_array_validation -->
+<!-- mo_rte_kind -->
 <g id="module~~mo_aerosol_optics_rrtmgp_merra~~UsesGraph_node5" class="node">
-<title>mo_rte_util_array_validation</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="163,-24 0,-24 0,0 163,0 163,-24"/>
-<text text-anchor="middle" x="81.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array_validation</text>
+<title>mo_rte_kind</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="120.5,-24 42.5,-24 42.5,0 120.5,0 120.5,-24"/>
+<text text-anchor="middle" x="81.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind</text>
 </g>
-<!-- module~mo_aerosol_optics_rrtmgp_merra&#45;&gt;mo_rte_util_array_validation -->
+<!-- module~mo_aerosol_optics_rrtmgp_merra&#45;&gt;mo_rte_kind -->
 <g id="module~~mo_aerosol_optics_rrtmgp_merra~~UsesGraph_edge4" class="edge">
-<title>module~mo_aerosol_optics_rrtmgp_merra&#45;&gt;mo_rte_util_array_validation</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.94,-62.96C231.8,-54.25 195.34,-42.41 163,-33 155.77,-30.89 148.14,-28.78 140.58,-26.74"/>
-<polygon fill="#000000" stroke="#000000" points="141.29,-23.3 130.72,-24.11 139.48,-30.07 141.29,-23.3"/>
+<title>module~mo_aerosol_optics_rrtmgp_merra&#45;&gt;mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.94,-62.96C231.8,-54.25 195.34,-42.41 163,-33 152.49,-29.94 141.14,-26.85 130.38,-24.02"/>
+<polygon fill="#000000" stroke="#000000" points="131.26,-20.63 120.7,-21.5 129.5,-27.41 131.26,-20.63"/>
 </g>
 </g>
 </svg>
diff --git a/reference/rrtmgp-fortran-interface/module/mo_cloud_optics_rrtmgp.html b/reference/rrtmgp-fortran-interface/module/mo_cloud_optics_rrtmgp.html
index a4bc0e589..c22500a86 100644
--- a/reference/rrtmgp-fortran-interface/module/mo_cloud_optics_rrtmgp.html
+++ b/reference/rrtmgp-fortran-interface/module/mo_cloud_optics_rrtmgp.html
@@ -141,10 +141,10 @@ <h3 class="panel-title">Uses</h3>
       <ul class="list-group">
       <li class="list-group-item">
   <ul class="list-inline">
-    <li>mo_rte_kind</li>
+    <li>mo_rte_util_array_validation</li>
     <li>mo_optical_props</li>
     <li>mo_rte_config</li>
-    <li>mo_rte_util_array_validation</li>
+    <li>mo_rte_kind</li>
   </ul>
       </li>
       <li class="list-group-item">
@@ -165,17 +165,17 @@ <h3 class="panel-title">Uses</h3>
 <polygon fill="none" stroke="black" points="342,-87 199,-87 199,-63 342,-63 342,-87"/>
 <text text-anchor="middle" x="270.5" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_cloud_optics_rrtmgp</text>
 </g>
-<!-- mo_rte_kind -->
+<!-- mo_rte_util_array_validation -->
 <g id="module~~mo_cloud_optics_rrtmgp~~UsesGraph_node2" class="node">
-<title>mo_rte_kind</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="120.5,-150 42.5,-150 42.5,-126 120.5,-126 120.5,-150"/>
-<text text-anchor="middle" x="81.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind</text>
+<title>mo_rte_util_array_validation</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="163,-150 0,-150 0,-126 163,-126 163,-150"/>
+<text text-anchor="middle" x="81.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array_validation</text>
 </g>
-<!-- module~mo_cloud_optics_rrtmgp&#45;&gt;mo_rte_kind -->
+<!-- module~mo_cloud_optics_rrtmgp&#45;&gt;mo_rte_util_array_validation -->
 <g id="module~~mo_cloud_optics_rrtmgp~~UsesGraph_edge1" class="edge">
-<title>module~mo_cloud_optics_rrtmgp&#45;&gt;mo_rte_kind</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M241.36,-87.17C220.08,-96.11 190.02,-108.18 163,-117 152.59,-120.4 141.29,-123.62 130.54,-126.48"/>
-<polygon fill="#000000" stroke="#000000" points="129.65,-123.09 120.86,-129 131.42,-129.87 129.65,-123.09"/>
+<title>module~mo_cloud_optics_rrtmgp&#45;&gt;mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M241.36,-87.17C220.08,-96.11 190.02,-108.18 163,-117 156.45,-119.14 149.55,-121.21 142.65,-123.16"/>
+<polygon fill="#000000" stroke="#000000" points="141.3,-119.9 132.58,-125.93 143.16,-126.65 141.3,-119.9"/>
 </g>
 <!-- mo_optical_props -->
 <g id="module~~mo_cloud_optics_rrtmgp~~UsesGraph_node3" class="node">
@@ -201,17 +201,17 @@ <h3 class="panel-title">Uses</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M198.8,-67.06C177.84,-64.71 155.25,-62.17 135.61,-59.96"/>
 <polygon fill="#000000" stroke="#000000" points="135.95,-56.48 125.63,-58.84 135.17,-63.44 135.95,-56.48"/>
 </g>
-<!-- mo_rte_util_array_validation -->
+<!-- mo_rte_kind -->
 <g id="module~~mo_cloud_optics_rrtmgp~~UsesGraph_node5" class="node">
-<title>mo_rte_util_array_validation</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="163,-24 0,-24 0,0 163,0 163,-24"/>
-<text text-anchor="middle" x="81.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array_validation</text>
+<title>mo_rte_kind</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="120.5,-24 42.5,-24 42.5,0 120.5,0 120.5,-24"/>
+<text text-anchor="middle" x="81.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind</text>
 </g>
-<!-- module~mo_cloud_optics_rrtmgp&#45;&gt;mo_rte_util_array_validation -->
+<!-- module~mo_cloud_optics_rrtmgp&#45;&gt;mo_rte_kind -->
 <g id="module~~mo_cloud_optics_rrtmgp~~UsesGraph_edge4" class="edge">
-<title>module~mo_cloud_optics_rrtmgp&#45;&gt;mo_rte_util_array_validation</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M241.36,-62.83C220.08,-53.89 190.02,-41.82 163,-33 156.45,-30.86 149.55,-28.79 142.65,-26.84"/>
-<polygon fill="#000000" stroke="#000000" points="143.16,-23.35 132.58,-24.07 141.3,-30.1 143.16,-23.35"/>
+<title>module~mo_cloud_optics_rrtmgp&#45;&gt;mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M241.36,-62.83C220.08,-53.89 190.02,-41.82 163,-33 152.59,-29.6 141.29,-26.38 130.54,-23.52"/>
+<polygon fill="#000000" stroke="#000000" points="131.42,-20.13 120.86,-21 129.65,-26.91 131.42,-20.13"/>
 </g>
 </g>
 </svg>
diff --git a/reference/rrtmgp-fortran-interface/module/mo_gas_optics_rrtmgp.html b/reference/rrtmgp-fortran-interface/module/mo_gas_optics_rrtmgp.html
index 85ce7b20d..f24e22b31 100644
--- a/reference/rrtmgp-fortran-interface/module/mo_gas_optics_rrtmgp.html
+++ b/reference/rrtmgp-fortran-interface/module/mo_gas_optics_rrtmgp.html
@@ -148,17 +148,17 @@ <h3 class="panel-title">Uses</h3>
       <ul class="list-group">
       <li class="list-group-item">
   <ul class="list-inline">
-    <li>mo_rte_util_array_validation</li>
-    <li>mo_gas_optics</li>
-    <li>mo_optical_props</li>
+    <li>mo_gas_concentrations</li>
     <li>mo_rte_config</li>
-    <li>mo_source_functions</li>
+    <li>mo_rte_kind</li>
     <li>mo_gas_optics_constants</li>
-    <li>mo_gas_optics_util_string</li>
+    <li>mo_gas_optics</li>
+    <li>mo_rte_util_array_validation</li>
     <li>mo_rte_util_array</li>
-    <li>mo_rte_kind</li>
-    <li>mo_gas_concentrations</li>
+    <li>mo_optical_props</li>
+    <li>mo_gas_optics_util_string</li>
     <li>mo_gas_optics_rrtmgp_kernels</li>
+    <li>mo_source_functions</li>
   </ul>
       </li>
       <li class="list-group-item">
@@ -179,137 +179,137 @@ <h3 class="panel-title">Uses</h3>
 <polygon fill="none" stroke="black" points="346,-234 213,-234 213,-210 346,-210 346,-234"/>
 <text text-anchor="middle" x="279.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_gas_optics_rrtmgp</text>
 </g>
-<!-- mo_gas_optics -->
+<!-- mo_gas_concentrations -->
 <g id="module~~mo_gas_optics_rrtmgp~~UsesGraph_node2" class="node">
-<title>mo_gas_optics</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="134,-444 43,-444 43,-420 134,-420 134,-444"/>
-<text text-anchor="middle" x="88.5" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_gas_optics</text>
+<title>mo_gas_concentrations</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="158,-444 19,-444 19,-420 158,-420 158,-444"/>
+<text text-anchor="middle" x="88.5" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_gas_concentrations</text>
 </g>
-<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics -->
+<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_concentrations -->
 <g id="module~~mo_gas_optics_rrtmgp~~UsesGraph_edge1" class="edge">
-<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.6,-234.45C267.01,-268.49 238.35,-363.7 177,-411 167.43,-418.38 155.66,-423.21 143.88,-426.37"/>
-<polygon fill="#000000" stroke="#000000" points="143,-422.98 134.04,-428.65 144.57,-429.8 143,-422.98"/>
+<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_concentrations</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.6,-234.45C267.01,-268.49 238.35,-363.7 177,-411 173.98,-413.33 170.73,-415.41 167.34,-417.26"/>
+<polygon fill="#000000" stroke="#000000" points="165.6,-414.21 158.05,-421.65 168.59,-420.54 165.6,-414.21"/>
 </g>
-<!-- mo_rte_kind -->
+<!-- mo_gas_optics_util_string -->
 <g id="module~~mo_gas_optics_rrtmgp~~UsesGraph_node3" class="node">
-<title>mo_rte_kind</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="127.5,-402 49.5,-402 49.5,-378 127.5,-378 127.5,-402"/>
-<text text-anchor="middle" x="88.5" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind</text>
+<title>mo_gas_optics_util_string</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="162.5,-402 14.5,-402 14.5,-378 162.5,-378 162.5,-402"/>
+<text text-anchor="middle" x="88.5" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_gas_optics_util_string</text>
 </g>
-<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_kind -->
+<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics_util_string -->
 <g id="module~~mo_gas_optics_rrtmgp~~UsesGraph_edge5" class="edge">
-<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_kind</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M273.75,-234.13C261.99,-262.53 228.67,-333.57 177,-369 165.5,-376.88 151.38,-381.82 137.87,-384.91"/>
-<polygon fill="#000000" stroke="#000000" points="136.84,-381.55 127.71,-386.93 138.2,-388.42 136.84,-381.55"/>
+<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics_util_string</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M273.75,-234.13C261.99,-262.53 228.67,-333.57 177,-369 174.58,-370.66 172.05,-372.18 169.44,-373.59"/>
+<polygon fill="#000000" stroke="#000000" points="167.8,-370.49 160.25,-377.92 170.79,-376.82 167.8,-370.49"/>
 </g>
-<!-- mo_rte_config -->
+<!-- mo_rte_util_array_validation -->
 <g id="module~~mo_gas_optics_rrtmgp~~UsesGraph_node4" class="node">
+<title>mo_rte_util_array_validation</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="170,-360 7,-360 7,-336 170,-336 170,-360"/>
+<text text-anchor="middle" x="88.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array_validation</text>
+</g>
+<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_util_array_validation -->
+<g id="module~~mo_gas_optics_rrtmgp~~UsesGraph_edge4" class="edge">
+<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M270.33,-234.22C254.85,-256.35 219.05,-302.98 177,-327 173.59,-328.95 170,-330.72 166.31,-332.32"/>
+<polygon fill="#000000" stroke="#000000" points="164.98,-329.08 156.94,-335.99 167.53,-335.6 164.98,-329.08"/>
+</g>
+<!-- mo_rte_config -->
+<g id="module~~mo_gas_optics_rrtmgp~~UsesGraph_node5" class="node">
 <title>mo_rte_config</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="132.5,-360 44.5,-360 44.5,-336 132.5,-336 132.5,-360"/>
-<text text-anchor="middle" x="88.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_config</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="132.5,-318 44.5,-318 44.5,-294 132.5,-294 132.5,-318"/>
+<text text-anchor="middle" x="88.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_config</text>
 </g>
 <!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_config -->
 <g id="module~~mo_gas_optics_rrtmgp~~UsesGraph_edge2" class="edge">
 <title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_config</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M270.33,-234.22C254.85,-256.35 219.05,-302.98 177,-327 166.51,-332.99 154.37,-337.28 142.54,-340.35"/>
-<polygon fill="#000000" stroke="#000000" points="141.65,-336.96 132.71,-342.65 143.24,-343.78 141.65,-336.96"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.51,-234.2C243.22,-248.37 209.34,-271.5 177,-285 166.18,-289.52 154.19,-293.19 142.64,-296.12"/>
+<polygon fill="#000000" stroke="#000000" points="141.56,-292.78 132.65,-298.52 143.19,-299.59 141.56,-292.78"/>
 </g>
-<!-- mo_gas_optics_constants -->
-<g id="module~~mo_gas_optics_rrtmgp~~UsesGraph_node5" class="node">
-<title>mo_gas_optics_constants</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="162,-318 15,-318 15,-294 162,-294 162,-318"/>
-<text text-anchor="middle" x="88.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_gas_optics_constants</text>
-</g>
-<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics_constants -->
-<g id="module~~mo_gas_optics_rrtmgp~~UsesGraph_edge3" class="edge">
-<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics_constants</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.51,-234.2C243.22,-248.37 209.34,-271.5 177,-285 171.86,-287.14 166.46,-289.1 160.97,-290.87"/>
-<polygon fill="#000000" stroke="#000000" points="159.58,-287.64 151.02,-293.88 161.61,-294.34 159.58,-287.64"/>
-</g>
-<!-- mo_rte_util_array -->
+<!-- mo_gas_optics -->
 <g id="module~~mo_gas_optics_rrtmgp~~UsesGraph_node6" class="node">
-<title>mo_rte_util_array</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="141.5,-276 35.5,-276 35.5,-252 141.5,-252 141.5,-276"/>
-<text text-anchor="middle" x="88.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array</text>
+<title>mo_gas_optics</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="134,-276 43,-276 43,-252 134,-252 134,-276"/>
+<text text-anchor="middle" x="88.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_gas_optics</text>
 </g>
-<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_util_array -->
-<g id="module~~mo_gas_optics_rrtmgp~~UsesGraph_edge4" class="edge">
-<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_util_array</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M224.34,-234.04C201.62,-239.08 175.08,-244.98 151.58,-250.2"/>
-<polygon fill="#000000" stroke="#000000" points="150.72,-246.81 141.71,-252.4 152.24,-253.64 150.72,-246.81"/>
+<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics -->
+<g id="module~~mo_gas_optics_rrtmgp~~UsesGraph_edge3" class="edge">
+<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M224.34,-234.04C199.11,-239.64 169.16,-246.3 143.9,-251.91"/>
+<polygon fill="#000000" stroke="#000000" points="143.11,-248.5 134.11,-254.09 144.63,-255.33 143.11,-248.5"/>
 </g>
-<!-- mo_gas_optics_rrtmgp_kernels -->
+<!-- mo_source_functions -->
 <g id="module~~mo_gas_optics_rrtmgp~~UsesGraph_node7" class="node">
-<title>mo_gas_optics_rrtmgp_kernels</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="177,-234 0,-234 0,-210 177,-210 177,-234"/>
-<text text-anchor="middle" x="88.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_gas_optics_rrtmgp_kernels</text>
+<title>mo_source_functions</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="150.5,-234 26.5,-234 26.5,-210 150.5,-210 150.5,-234"/>
+<text text-anchor="middle" x="88.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_source_functions</text>
 </g>
-<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics_rrtmgp_kernels -->
+<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_source_functions -->
 <g id="module~~mo_gas_optics_rrtmgp~~UsesGraph_edge6" class="edge">
-<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics_rrtmgp_kernels</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M212.93,-222C204.65,-222 196.05,-222 187.41,-222"/>
-<polygon fill="#000000" stroke="#000000" points="187.26,-218.5 177.26,-222 187.26,-225.5 187.26,-218.5"/>
+<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_source_functions</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M212.93,-222C196.15,-222 178.03,-222 160.97,-222"/>
+<polygon fill="#000000" stroke="#000000" points="160.51,-218.5 150.51,-222 160.51,-225.5 160.51,-218.5"/>
 </g>
-<!-- mo_rte_util_array_validation -->
+<!-- mo_gas_optics_constants -->
 <g id="module~~mo_gas_optics_rrtmgp~~UsesGraph_node8" class="node">
-<title>mo_rte_util_array_validation</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="170,-192 7,-192 7,-168 170,-168 170,-192"/>
-<text text-anchor="middle" x="88.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array_validation</text>
+<title>mo_gas_optics_constants</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="162,-192 15,-192 15,-168 162,-168 162,-192"/>
+<text text-anchor="middle" x="88.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_gas_optics_constants</text>
 </g>
-<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_util_array_validation -->
+<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics_constants -->
 <g id="module~~mo_gas_optics_rrtmgp~~UsesGraph_edge7" class="edge">
-<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_util_array_validation</title>
+<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics_constants</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M224.34,-209.96C202.3,-205.07 176.65,-199.37 153.67,-194.26"/>
 <polygon fill="#000000" stroke="#000000" points="154.19,-190.79 143.67,-192.04 152.67,-197.62 154.19,-190.79"/>
 </g>
-<!-- mo_source_functions -->
+<!-- mo_rte_kind -->
 <g id="module~~mo_gas_optics_rrtmgp~~UsesGraph_node9" class="node">
-<title>mo_source_functions</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="150.5,-150 26.5,-150 26.5,-126 150.5,-126 150.5,-150"/>
-<text text-anchor="middle" x="88.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_source_functions</text>
+<title>mo_rte_kind</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="127.5,-150 49.5,-150 49.5,-126 127.5,-126 127.5,-150"/>
+<text text-anchor="middle" x="88.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind</text>
 </g>
-<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_source_functions -->
+<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_kind -->
 <g id="module~~mo_gas_optics_rrtmgp~~UsesGraph_edge8" class="edge">
-<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_source_functions</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.51,-209.8C243.22,-195.63 209.34,-172.5 177,-159 171.64,-156.76 166,-154.73 160.26,-152.9"/>
-<polygon fill="#000000" stroke="#000000" points="161.14,-149.51 150.56,-149.99 159.13,-156.21 161.14,-149.51"/>
+<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.51,-209.8C243.22,-195.63 209.34,-172.5 177,-159 164.59,-153.82 150.64,-149.75 137.58,-146.63"/>
+<polygon fill="#000000" stroke="#000000" points="138.33,-143.21 127.81,-144.42 136.79,-150.04 138.33,-143.21"/>
 </g>
-<!-- mo_optical_props -->
+<!-- mo_rte_util_array -->
 <g id="module~~mo_gas_optics_rrtmgp~~UsesGraph_node10" class="node">
-<title>mo_optical_props</title>
+<title>mo_rte_util_array</title>
 <polygon fill="#337ab7" stroke="#337ab7" points="141.5,-108 35.5,-108 35.5,-84 141.5,-84 141.5,-108"/>
-<text text-anchor="middle" x="88.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props</text>
+<text text-anchor="middle" x="88.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array</text>
 </g>
-<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_optical_props -->
+<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_util_array -->
 <g id="module~~mo_gas_optics_rrtmgp~~UsesGraph_edge9" class="edge">
-<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_optical_props</title>
+<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_rte_util_array</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M270.33,-209.78C254.85,-187.65 219.05,-141.02 177,-117 169.13,-112.5 160.33,-108.97 151.43,-106.19"/>
 <polygon fill="#000000" stroke="#000000" points="152.35,-102.81 141.78,-103.46 150.45,-109.55 152.35,-102.81"/>
 </g>
-<!-- mo_gas_optics_util_string -->
+<!-- mo_optical_props -->
 <g id="module~~mo_gas_optics_rrtmgp~~UsesGraph_node11" class="node">
-<title>mo_gas_optics_util_string</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="162.5,-66 14.5,-66 14.5,-42 162.5,-42 162.5,-66"/>
-<text text-anchor="middle" x="88.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_gas_optics_util_string</text>
+<title>mo_optical_props</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="141.5,-66 35.5,-66 35.5,-42 141.5,-42 141.5,-66"/>
+<text text-anchor="middle" x="88.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props</text>
 </g>
-<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics_util_string -->
+<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_optical_props -->
 <g id="module~~mo_gas_optics_rrtmgp~~UsesGraph_edge10" class="edge">
-<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics_util_string</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M273.75,-209.87C261.99,-181.47 228.67,-110.43 177,-75 174.58,-73.34 172.05,-71.82 169.44,-70.41"/>
-<polygon fill="#000000" stroke="#000000" points="170.79,-67.18 160.25,-66.08 167.8,-73.51 170.79,-67.18"/>
+<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M273.75,-209.87C261.99,-181.47 228.67,-110.43 177,-75 169.34,-69.75 160.51,-65.8 151.47,-62.84"/>
+<polygon fill="#000000" stroke="#000000" points="152.21,-59.41 141.63,-59.99 150.27,-66.13 152.21,-59.41"/>
 </g>
-<!-- mo_gas_concentrations -->
+<!-- mo_gas_optics_rrtmgp_kernels -->
 <g id="module~~mo_gas_optics_rrtmgp~~UsesGraph_node12" class="node">
-<title>mo_gas_concentrations</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="158,-24 19,-24 19,0 158,0 158,-24"/>
-<text text-anchor="middle" x="88.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_gas_concentrations</text>
+<title>mo_gas_optics_rrtmgp_kernels</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="177,-24 0,-24 0,0 177,0 177,-24"/>
+<text text-anchor="middle" x="88.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_gas_optics_rrtmgp_kernels</text>
 </g>
-<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_concentrations -->
+<!-- module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics_rrtmgp_kernels -->
 <g id="module~~mo_gas_optics_rrtmgp~~UsesGraph_edge11" class="edge">
-<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_concentrations</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.6,-209.55C267.01,-175.51 238.35,-80.3 177,-33 173.98,-30.67 170.73,-28.59 167.34,-26.74"/>
-<polygon fill="#000000" stroke="#000000" points="168.59,-23.46 158.05,-22.35 165.6,-29.79 168.59,-23.46"/>
+<title>module~mo_gas_optics_rrtmgp&#45;&gt;mo_gas_optics_rrtmgp_kernels</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.6,-209.55C267.01,-175.51 238.35,-80.3 177,-33 175.14,-31.57 173.2,-30.23 171.19,-28.98"/>
+<polygon fill="#000000" stroke="#000000" points="172.46,-25.69 161.99,-24.06 169.16,-31.87 172.46,-25.69"/>
 </g>
 </g>
 </svg>
diff --git a/reference/rrtmgp-fortran-interface/tipuesearch/tipuesearch_content.js b/reference/rrtmgp-fortran-interface/tipuesearch/tipuesearch_content.js
index 0780d7332..ebbd1e2a2 100644
--- a/reference/rrtmgp-fortran-interface/tipuesearch/tipuesearch_content.js
+++ b/reference/rrtmgp-fortran-interface/tipuesearch/tipuesearch_content.js
@@ -1 +1 @@
-var tipuesearch = {"pages":[{"title":" RRTMGP-Fortran ","text":"RRTMGP-Fortran These pages provide a programmer's view of the Fortran user interface to RRTMGP. RRTMGP provides a class ty_gas_optics_rrtmgp that implements\nthe gas_optics() and other procedure(s) defined by the ty_gas_optics abstract class. The class is used to compute the spectrally-varying optical properties of the\ngaseous atmosphere given temperature, pressure, and gas concentrations. Each instance of the\nvariable is \"loaded\" with data from netCDF\nfiles in the $RRTMGP_DATA directory. Depending on the data provided the variable can be used\nor radiation emitted by the atmosphere and surface (\"longwave\") of for for radiation emitted\nby the planet's star (\"shortwave\"). The class implements both the longwave/internal sources and\nshortwave/external sources versions of the gas_optics procedure.\nThe longwave version reports Planck sources at layer centers and layer interfaces (levels)\nwhile the shortwave version reports the spectrally-varying stellar radiation\nCalling the longwave routine (by providing the longwave-relevant arguments)\nwhen the variable has been initialized with shortwave data triggers a run-time error. The user interface uses the ty_gas_concs type\nto represent the volume mixing ratios needed as input. Output suitable for\nscattering emission, two-stream, or multi-stream calculations are provided\ndepending on which sub-class of RTE's ty_optical_props_arry are provided. Planck source functions, if requested, are reported in a variable\nof type ty_source_func_lw. The listings below may not be exhaustive.\nTo see the full listings use the links at the top of the page.\nThere is a search bar in the top right. Return to the Documentation overview or the reference overview . Developer Info The RTE+RRTTMGP consortium","tags":"home","loc":"index.html"},{"title":"ty_cloud_optics_rrtmgp – RRTMGP-Fortran ","text":"type, public, extends(ty_optical_props) :: ty_cloud_optics_rrtmgp Inherits type~~ty_cloud_optics_rrtmgp~~InheritsGraph type~ty_cloud_optics_rrtmgp ty_cloud_optics_rrtmgp ty_optical_props ty_optical_props type~ty_cloud_optics_rrtmgp->ty_optical_props Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables ice_nsteps ice_step_size icergh liq_nsteps liq_step_size lut_asyice lut_asyliq lut_extice lut_extliq lut_ssaice lut_ssaliq pade_asyice pade_asyliq pade_extice pade_extliq pade_sizreg_asyice pade_sizreg_asyliq pade_sizreg_extice pade_sizreg_extliq pade_sizreg_ssaice pade_sizreg_ssaliq pade_ssaice pade_ssaliq radice_lwr radice_upr radliq_lwr radliq_upr Type-Bound Procedures cloud_optics finalize get_max_radius_ice get_max_radius_liq get_min_radius_ice get_min_radius_liq get_num_ice_roughness_types load set_ice_roughness Components Type Visibility Attributes Name Initial integer, public :: ice_nsteps = 0 real(kind=wp), public :: ice_step_size = 0._wp integer, public :: icergh = 0 integer, public :: liq_nsteps = 0 real(kind=wp), public :: liq_step_size = 0._wp real(kind=wp), public, dimension(:,:,:  ), allocatable :: lut_asyice real(kind=wp), public, dimension(:,:    ), allocatable :: lut_asyliq real(kind=wp), public, dimension(:,:,:  ), allocatable :: lut_extice real(kind=wp), public, dimension(:,:    ), allocatable :: lut_extliq real(kind=wp), public, dimension(:,:,:  ), allocatable :: lut_ssaice real(kind=wp), public, dimension(:,:    ), allocatable :: lut_ssaliq real(kind=wp), public, dimension(:,:,:,:), allocatable :: pade_asyice real(kind=wp), public, dimension(:,:,:  ), allocatable :: pade_asyliq real(kind=wp), public, dimension(:,:,:,:), allocatable :: pade_extice real(kind=wp), public, dimension(:,:,:  ), allocatable :: pade_extliq real(kind=wp), public, dimension(:), allocatable :: pade_sizreg_asyice real(kind=wp), public, dimension(:), allocatable :: pade_sizreg_asyliq real(kind=wp), public, dimension(:), allocatable :: pade_sizreg_extice real(kind=wp), public, dimension(:), allocatable :: pade_sizreg_extliq real(kind=wp), public, dimension(:), allocatable :: pade_sizreg_ssaice real(kind=wp), public, dimension(:), allocatable :: pade_sizreg_ssaliq real(kind=wp), public, dimension(:,:,:,:), allocatable :: pade_ssaice real(kind=wp), public, dimension(:,:,:  ), allocatable :: pade_ssaliq real(kind=wp), public :: radice_lwr = 0._wp real(kind=wp), public :: radice_upr = 0._wp real(kind=wp), public :: radliq_lwr = 0._wp real(kind=wp), public :: radliq_upr = 0._wp Type-Bound Procedures procedure, public :: cloud_optics private function cloud_optics(this, clwp, ciwp, reliq, reice, optical_props) result(error_msg) Arguments Type Intent Optional Attributes Name class( ty_cloud_optics_rrtmgp ), intent(in) :: this real(kind=wp), intent(in) :: clwp (:,:) real(kind=wp), intent(in) :: ciwp (:,:) real(kind=wp), intent(in) :: reliq (:,:) real(kind=wp), intent(in) :: reice (:,:) class(ty_optical_props_arry), intent(inout) :: optical_props Return Value character(len=128) procedure, public :: finalize private subroutine finalize(this) Arguments Type Intent Optional Attributes Name class( ty_cloud_optics_rrtmgp ), intent(inout) :: this procedure, public :: get_max_radius_ice private function get_max_radius_ice(this) result(r) Arguments Type Intent Optional Attributes Name class( ty_cloud_optics_rrtmgp ), intent(in) :: this Return Value real(kind=wp) procedure, public :: get_max_radius_liq private function get_max_radius_liq(this) result(r) Arguments Type Intent Optional Attributes Name class( ty_cloud_optics_rrtmgp ), intent(in) :: this Return Value real(kind=wp) procedure, public :: get_min_radius_ice private function get_min_radius_ice(this) result(r) Arguments Type Intent Optional Attributes Name class( ty_cloud_optics_rrtmgp ), intent(in) :: this Return Value real(kind=wp) procedure, public :: get_min_radius_liq private function get_min_radius_liq(this) result(r) Arguments Type Intent Optional Attributes Name class( ty_cloud_optics_rrtmgp ), intent(in) :: this Return Value real(kind=wp) procedure, public :: get_num_ice_roughness_types private function get_num_ice_roughness_types(this) result(i) Arguments Type Intent Optional Attributes Name class( ty_cloud_optics_rrtmgp ), intent(in) :: this Return Value integer generic, public :: load => load_lut, load_pade private function load_lut(this, band_lims_wvn, radliq_lwr, radliq_upr, radice_lwr, radice_upr, lut_extliq, lut_ssaliq, lut_asyliq, lut_extice, lut_ssaice, lut_asyice) result(error_msg) Arguments Type Intent Optional Attributes Name class( ty_cloud_optics_rrtmgp ), intent(inout) :: this real(kind=wp), intent(in), dimension(:,:) :: band_lims_wvn real(kind=wp), intent(in) :: radliq_lwr real(kind=wp), intent(in) :: radliq_upr real(kind=wp), intent(in) :: radice_lwr real(kind=wp), intent(in) :: radice_upr real(kind=wp), intent(in), dimension(:,:) :: lut_extliq real(kind=wp), intent(in), dimension(:,:) :: lut_ssaliq real(kind=wp), intent(in), dimension(:,:) :: lut_asyliq real(kind=wp), intent(in), dimension(:,:,:) :: lut_extice real(kind=wp), intent(in), dimension(:,:,:) :: lut_ssaice real(kind=wp), intent(in), dimension(:,:,:) :: lut_asyice Return Value character(len=128) private function load_pade(this, band_lims_wvn, pade_extliq, pade_ssaliq, pade_asyliq, pade_extice, pade_ssaice, pade_asyice, pade_sizreg_extliq, pade_sizreg_ssaliq, pade_sizreg_asyliq, pade_sizreg_extice, pade_sizreg_ssaice, pade_sizreg_asyice) result(error_msg) Arguments Type Intent Optional Attributes Name class( ty_cloud_optics_rrtmgp ), intent(inout) :: this real(kind=wp), intent(in), dimension(:,:) :: band_lims_wvn real(kind=wp), intent(in), dimension(:,:,:) :: pade_extliq real(kind=wp), intent(in), dimension(:,:,:) :: pade_ssaliq real(kind=wp), intent(in), dimension(:,:,:) :: pade_asyliq real(kind=wp), intent(in), dimension(:,:,:,:) :: pade_extice real(kind=wp), intent(in), dimension(:,:,:,:) :: pade_ssaice real(kind=wp), intent(in), dimension(:,:,:,:) :: pade_asyice real(kind=wp), intent(in), dimension(:) :: pade_sizreg_extliq real(kind=wp), intent(in), dimension(:) :: pade_sizreg_ssaliq real(kind=wp), intent(in), dimension(:) :: pade_sizreg_asyliq real(kind=wp), intent(in), dimension(:) :: pade_sizreg_extice real(kind=wp), intent(in), dimension(:) :: pade_sizreg_ssaice real(kind=wp), intent(in), dimension(:) :: pade_sizreg_asyice Return Value character(len=128) procedure, public :: set_ice_roughness private function set_ice_roughness(this, icergh) result(error_msg) Arguments Type Intent Optional Attributes Name class( ty_cloud_optics_rrtmgp ), intent(inout) :: this integer, intent(in) :: icergh Return Value character(len=128)","tags":"","loc":"type/ty_cloud_optics_rrtmgp.html"},{"title":"ty_aerosol_optics_rrtmgp_merra – RRTMGP-Fortran ","text":"type, public, extends(ty_optical_props) :: ty_aerosol_optics_rrtmgp_merra Inherits type~~ty_aerosol_optics_rrtmgp_merra~~InheritsGraph type~ty_aerosol_optics_rrtmgp_merra ty_aerosol_optics_rrtmgp_merra ty_optical_props ty_optical_props type~ty_aerosol_optics_rrtmgp_merra->ty_optical_props Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables aero_bcar_rh_tbl aero_bcar_tbl aero_dust_tbl aero_ocar_rh_tbl aero_ocar_tbl aero_rh aero_salt_tbl aero_sulf_tbl merra_aero_bin_lims Type-Bound Procedures aerosol_optics finalize load Components Type Visibility Attributes Name Initial real(kind=wp), public, dimension(:,:,:  ), allocatable :: aero_bcar_rh_tbl real(kind=wp), public, dimension(:,:    ), allocatable :: aero_bcar_tbl real(kind=wp), public, dimension(:,:,:  ), allocatable :: aero_dust_tbl real(kind=wp), public, dimension(:,:,:  ), allocatable :: aero_ocar_rh_tbl real(kind=wp), public, dimension(:,:    ), allocatable :: aero_ocar_tbl real(kind=wp), public, dimension(:), allocatable :: aero_rh (:) real(kind=wp), public, dimension(:,:,:,:), allocatable :: aero_salt_tbl real(kind=wp), public, dimension(:,:,:  ), allocatable :: aero_sulf_tbl real(kind=wp), public, dimension(:,:), allocatable :: merra_aero_bin_lims Type-Bound Procedures procedure, public :: aerosol_optics private function aerosol_optics(this, aero_type, aero_size, aero_mass, relhum, optical_props) result(error_msg) Arguments Type Intent Optional Attributes Name class( ty_aerosol_optics_rrtmgp_merra ), intent(in) :: this integer, intent(in) :: aero_type (:,:) real(kind=wp), intent(in) :: aero_size (:,:) real(kind=wp), intent(in) :: aero_mass (:,:) real(kind=wp), intent(in) :: relhum (:,:) class(ty_optical_props_arry), intent(inout) :: optical_props Return Value character(len=128) procedure, public :: finalize private subroutine finalize(this) Arguments Type Intent Optional Attributes Name class( ty_aerosol_optics_rrtmgp_merra ), intent(inout) :: this generic, public :: load => load_lut private function load_lut(this, band_lims_wvn, merra_aero_bin_lims, aero_rh, aero_dust_tbl, aero_salt_tbl, aero_sulf_tbl, aero_bcar_tbl, aero_bcar_rh_tbl, aero_ocar_tbl, aero_ocar_rh_tbl) result(error_msg) Arguments Type Intent Optional Attributes Name class( ty_aerosol_optics_rrtmgp_merra ), intent(inout) :: this real(kind=wp), intent(in), dimension(:,:) :: band_lims_wvn real(kind=wp), intent(in), dimension(:,:) :: merra_aero_bin_lims real(kind=wp), intent(in), dimension(:) :: aero_rh real(kind=wp), intent(in), dimension(:,:,:) :: aero_dust_tbl real(kind=wp), intent(in), dimension(:,:,:,:) :: aero_salt_tbl real(kind=wp), intent(in), dimension(:,:,:) :: aero_sulf_tbl real(kind=wp), intent(in), dimension(:,:) :: aero_bcar_tbl real(kind=wp), intent(in), dimension(:,:,:) :: aero_bcar_rh_tbl real(kind=wp), intent(in), dimension(:,:) :: aero_ocar_tbl real(kind=wp), intent(in), dimension(:,:,:) :: aero_ocar_rh_tbl Return Value character(len=128)","tags":"","loc":"type/ty_aerosol_optics_rrtmgp_merra.html"},{"title":"ty_gas_optics_rrtmgp – RRTMGP-Fortran ","text":"type, public, extends(ty_gas_optics) :: ty_gas_optics_rrtmgp Inherits type~~ty_gas_optics_rrtmgp~~InheritsGraph type~ty_gas_optics_rrtmgp ty_gas_optics_rrtmgp ty_gas_optics ty_gas_optics type~ty_gas_optics_rrtmgp->ty_gas_optics Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables flavor gas_names gpoint_flavor idx_minor_lower idx_minor_scaling_lower idx_minor_scaling_upper idx_minor_upper is_key kmajor kminor_lower kminor_start_lower kminor_start_upper kminor_upper krayl minor_limits_gpt_lower minor_limits_gpt_upper minor_scales_with_density_lower minor_scales_with_density_upper optimal_angle_fit planck_frac press_ref press_ref_log press_ref_log_delta press_ref_max press_ref_min press_ref_trop_log scale_by_complement_lower scale_by_complement_upper solar_source solar_source_facular solar_source_quiet solar_source_sunspot temp_ref temp_ref_delta temp_ref_max temp_ref_min totplnk totplnk_delta vmr_ref Type-Bound Procedures compute_optimal_angles finalize gas_optics_ext gas_optics_int get_gases get_ngas get_press_max get_press_min get_temp_max get_temp_min is_loaded load set_solar_variability set_tsi source_is_external source_is_internal Components Type Visibility Attributes Name Initial integer, public, dimension(:,:), allocatable :: flavor character(len=32), public, dimension(:), allocatable :: gas_names integer, public, dimension(:,:), allocatable :: gpoint_flavor integer, public, dimension(:), allocatable :: idx_minor_lower integer, public, dimension(:), allocatable :: idx_minor_scaling_lower integer, public, dimension(:), allocatable :: idx_minor_scaling_upper integer, public, dimension(:), allocatable :: idx_minor_upper logical, public, dimension(:), allocatable :: is_key real(kind=wp), public, dimension(:,:,:,:), allocatable :: kmajor real(kind=wp), public, dimension(:,:,:), allocatable :: kminor_lower integer, public, dimension(:), allocatable :: kminor_start_lower integer, public, dimension(:), allocatable :: kminor_start_upper real(kind=wp), public, dimension(:,:,:), allocatable :: kminor_upper real(kind=wp), public, dimension(:,:,:,:), allocatable :: krayl integer, public, dimension(:,:), allocatable :: minor_limits_gpt_lower integer, public, dimension(:,:), allocatable :: minor_limits_gpt_upper logical(kind=wl), public, dimension(:), allocatable :: minor_scales_with_density_lower logical(kind=wl), public, dimension(:), allocatable :: minor_scales_with_density_upper real(kind=wp), public, dimension(:,:), allocatable :: optimal_angle_fit real(kind=wp), public, dimension(:,:,:,:), allocatable :: planck_frac real(kind=wp), public, dimension(:), allocatable :: press_ref real(kind=wp), public, dimension(:), allocatable :: press_ref_log real(kind=wp), public :: press_ref_log_delta real(kind=wp), public :: press_ref_max real(kind=wp), public :: press_ref_min real(kind=wp), public :: press_ref_trop_log logical(kind=wl), public, dimension(:), allocatable :: scale_by_complement_lower logical(kind=wl), public, dimension(:), allocatable :: scale_by_complement_upper real(kind=wp), public, dimension(:), allocatable :: solar_source real(kind=wp), public, dimension(:), allocatable :: solar_source_facular real(kind=wp), public, dimension(:), allocatable :: solar_source_quiet real(kind=wp), public, dimension(:), allocatable :: solar_source_sunspot real(kind=wp), public, dimension(:), allocatable :: temp_ref real(kind=wp), public :: temp_ref_delta real(kind=wp), public :: temp_ref_max real(kind=wp), public :: temp_ref_min real(kind=wp), public, dimension(:,:), allocatable :: totplnk real(kind=wp), public :: totplnk_delta real(kind=wp), public, dimension(:,:,:), allocatable :: vmr_ref Type-Bound Procedures procedure, public :: compute_optimal_angles private function compute_optimal_angles(this, optical_props, optimal_angles) result(err_msg) Compute a transport angle that minimizes flux errors at surface and TOA based on empirical fits Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(in) :: this class(ty_optical_props_arry), intent(in) :: optical_props Optical properties real(kind=wp), intent(out), dimension(:,:) :: optimal_angles Secant of optical transport angle Return Value character(len=128) Empty if successful procedure, public :: finalize private subroutine finalize(this) Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(inout) :: this procedure, public :: gas_optics_ext private function gas_optics_ext(this, play, plev, tlay, gas_desc, optical_props, toa_src, col_dry) result(error_msg) Compute gas optical depth given temperature, pressure, and composition\n   Top-of-atmosphere stellar insolation is also reported Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(in) :: this real(kind=wp), intent(in), dimension(:,:) :: play layer pressures [Pa, mb]; (ncol,nlay)\nlevel pressures [Pa, mb]; (ncol,nlay+1)\nlayer temperatures [K]; (ncol,nlay) real(kind=wp), intent(in), dimension(:,:) :: plev layer pressures [Pa, mb]; (ncol,nlay)\nlevel pressures [Pa, mb]; (ncol,nlay+1)\nlayer temperatures [K]; (ncol,nlay) real(kind=wp), intent(in), dimension(:,:) :: tlay layer pressures [Pa, mb]; (ncol,nlay)\nlevel pressures [Pa, mb]; (ncol,nlay+1)\nlayer temperatures [K]; (ncol,nlay) type(ty_gas_concs), intent(in) :: gas_desc Gas volume mixing ratios class(ty_optical_props_arry), intent(inout) :: optical_props real(kind=wp), intent(out), dimension(:,:) :: toa_src Incoming solar irradiance(ncol,ngpt) real(kind=wp), intent(in), optional dimension(:,:), target :: col_dry Return Value character(len=128) Empty if successful procedure, public :: gas_optics_int private function gas_optics_int(this, play, plev, tlay, tsfc, gas_desc, optical_props, sources, col_dry, tlev) result(error_msg) Compute gas optical depth and Planck source functions,\n given temperature, pressure, and composition Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(in) :: this real(kind=wp), intent(in), dimension(:,:) :: play layer pressures [Pa, mb]; (ncol,nlay)\nlevel pressures [Pa, mb]; (ncol,nlay+1)\nlayer temperatures [K]; (ncol,nlay) real(kind=wp), intent(in), dimension(:,:) :: plev layer pressures [Pa, mb]; (ncol,nlay)\nlevel pressures [Pa, mb]; (ncol,nlay+1)\nlayer temperatures [K]; (ncol,nlay) real(kind=wp), intent(in), dimension(:,:) :: tlay layer pressures [Pa, mb]; (ncol,nlay)\nlevel pressures [Pa, mb]; (ncol,nlay+1)\nlayer temperatures [K]; (ncol,nlay) real(kind=wp), intent(in), dimension(:) :: tsfc surface skin temperatures [K]; (ncol) type(ty_gas_concs), intent(in) :: gas_desc Gas volume mixing ratios class(ty_optical_props_arry), intent(inout) :: optical_props Optical properties class(ty_source_func_lw), intent(inout) :: sources Planck sources real(kind=wp), intent(in), optional dimension(:,:), target :: col_dry Column dry amount; dim(ncol,nlay)\nlevel temperatures [K]; (ncol,nlay+1) real(kind=wp), intent(in), optional dimension(:,:), target :: tlev Column dry amount; dim(ncol,nlay)\nlevel temperatures [K]; (ncol,nlay+1) Return Value character(len=128) Empty if succssful procedure, public :: get_gases private pure function get_gases(this) return the names of the gases known to the k-distributions Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(in) :: this Return Value character(len=32),dimension(get_ngas(this)) names of the gases known to the k-distributions procedure, public :: get_ngas private pure function get_ngas(this) Two functions to define array sizes needed by gas_optics() Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(in) :: this Return Value integer procedure, public :: get_press_max private pure function get_press_max(this) return the maximum pressure on the interpolation grids Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(in) :: this Return Value real(kind=wp) maximum pressure for which the k-dsitribution is valid procedure, public :: get_press_min private pure function get_press_min(this) return the minimum pressure on the interpolation grids Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(in) :: this Return Value real(kind=wp) minimum pressure for which the k-dsitribution is valid procedure, public :: get_temp_max private pure function get_temp_max(this) return the maximum temparature on the interpolation grids Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(in) :: this Return Value real(kind=wp) maximum temperature for which the k-dsitribution is valid procedure, public :: get_temp_min private pure function get_temp_min(this) return the minimum temparature on the interpolation grids Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(in) :: this Return Value real(kind=wp) minimum temperature for which the k-dsitribution is valid procedure, public :: is_loaded private pure function is_loaded(this) Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(in) :: this Return Value logical(kind=wl) generic, public :: load => load_int, load_ext private function load_int(this, available_gases, gas_names, key_species, band2gpt, band_lims_wavenum, press_ref, press_ref_trop, temp_ref, temp_ref_p, temp_ref_t, vmr_ref, kmajor, kminor_lower, kminor_upper, gas_minor, identifier_minor, minor_gases_lower, minor_gases_upper, minor_limits_gpt_lower, minor_limits_gpt_upper, minor_scales_with_density_lower, minor_scales_with_density_upper, scaling_gas_lower, scaling_gas_upper, scale_by_complement_lower, scale_by_complement_upper, kminor_start_lower, kminor_start_upper, totplnk, planck_frac, rayl_lower, rayl_upper, optimal_angle_fit) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(inout) :: this class(ty_gas_concs), intent(in) :: available_gases character(len=*), intent(in), dimension(:) :: gas_names integer, intent(in), dimension(:,:,:) :: key_species integer, intent(in), dimension(:,:) :: band2gpt real(kind=wp), intent(in), dimension(:,:) :: band_lims_wavenum real(kind=wp), intent(in), dimension(:) :: press_ref real(kind=wp), intent(in) :: press_ref_trop real(kind=wp), intent(in), dimension(:) :: temp_ref real(kind=wp), intent(in) :: temp_ref_p real(kind=wp), intent(in) :: temp_ref_t real(kind=wp), intent(in), dimension(:,:,:) :: vmr_ref real(kind=wp), intent(in), dimension(:,:,:,:) :: kmajor real(kind=wp), intent(in), dimension(:,:,:) :: kminor_lower real(kind=wp), intent(in), dimension(:,:,:) :: kminor_upper character(len=*), intent(in), dimension(:) :: gas_minor character(len=*), intent(in), dimension(:) :: identifier_minor character(len=*), intent(in), dimension(:) :: minor_gases_lower character(len=*), intent(in), dimension(:) :: minor_gases_upper integer, intent(in), dimension(:,:) :: minor_limits_gpt_lower integer, intent(in), dimension(:,:) :: minor_limits_gpt_upper logical(kind=wl), intent(in), dimension(:) :: minor_scales_with_density_lower logical(kind=wl), intent(in), dimension(:) :: minor_scales_with_density_upper character(len=*), intent(in), dimension(:) :: scaling_gas_lower character(len=*), intent(in), dimension(:) :: scaling_gas_upper logical(kind=wl), intent(in), dimension(:) :: scale_by_complement_lower logical(kind=wl), intent(in), dimension(:) :: scale_by_complement_upper integer, intent(in), dimension(:) :: kminor_start_lower integer, intent(in), dimension(:) :: kminor_start_upper real(kind=wp), intent(in), dimension(:,:) :: totplnk real(kind=wp), intent(in), dimension(:,:,:,:) :: planck_frac real(kind=wp), intent(in), dimension(:,:,:), allocatable :: rayl_lower real(kind=wp), intent(in), dimension(:,:,:), allocatable :: rayl_upper real(kind=wp), intent(in), dimension(:,:) :: optimal_angle_fit Return Value character(len=128) private function load_ext(this, available_gases, gas_names, key_species, band2gpt, band_lims_wavenum, press_ref, press_ref_trop, temp_ref, temp_ref_p, temp_ref_t, vmr_ref, kmajor, kminor_lower, kminor_upper, gas_minor, identifier_minor, minor_gases_lower, minor_gases_upper, minor_limits_gpt_lower, minor_limits_gpt_upper, minor_scales_with_density_lower, minor_scales_with_density_upper, scaling_gas_lower, scaling_gas_upper, scale_by_complement_lower, scale_by_complement_upper, kminor_start_lower, kminor_start_upper, solar_quiet, solar_facular, solar_sunspot, tsi_default, mg_default, sb_default, rayl_lower, rayl_upper) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(inout) :: this class(ty_gas_concs), intent(in) :: available_gases character(len=*), intent(in), dimension(:) :: gas_names integer, intent(in), dimension(:,:,:) :: key_species integer, intent(in), dimension(:,:) :: band2gpt real(kind=wp), intent(in), dimension(:,:) :: band_lims_wavenum real(kind=wp), intent(in), dimension(:) :: press_ref real(kind=wp), intent(in) :: press_ref_trop real(kind=wp), intent(in), dimension(:) :: temp_ref real(kind=wp), intent(in) :: temp_ref_p real(kind=wp), intent(in) :: temp_ref_t real(kind=wp), intent(in), dimension(:,:,:) :: vmr_ref real(kind=wp), intent(in), dimension(:,:,:,:) :: kmajor real(kind=wp), intent(in), dimension(:,:,:) :: kminor_lower real(kind=wp), intent(in), dimension(:,:,:) :: kminor_upper character(len=*), intent(in), dimension(:) :: gas_minor character(len=*), intent(in), dimension(:) :: identifier_minor character(len=*), intent(in), dimension(:) :: minor_gases_lower character(len=*), intent(in), dimension(:) :: minor_gases_upper integer, intent(in), dimension(:,:) :: minor_limits_gpt_lower integer, intent(in), dimension(:,:) :: minor_limits_gpt_upper logical(kind=wl), intent(in), dimension(:) :: minor_scales_with_density_lower logical(kind=wl), intent(in), dimension(:) :: minor_scales_with_density_upper character(len=*), intent(in), dimension(:) :: scaling_gas_lower character(len=*), intent(in), dimension(:) :: scaling_gas_upper logical(kind=wl), intent(in), dimension(:) :: scale_by_complement_lower logical(kind=wl), intent(in), dimension(:) :: scale_by_complement_upper integer, intent(in), dimension(:) :: kminor_start_lower integer, intent(in), dimension(:) :: kminor_start_upper real(kind=wp), intent(in), dimension(:) :: solar_quiet real(kind=wp), intent(in), dimension(:) :: solar_facular real(kind=wp), intent(in), dimension(:) :: solar_sunspot real(kind=wp), intent(in) :: tsi_default real(kind=wp), intent(in) :: mg_default real(kind=wp), intent(in) :: sb_default real(kind=wp), intent(in), dimension(:,:,:), allocatable :: rayl_lower real(kind=wp), intent(in), dimension(:,:,:), allocatable :: rayl_upper Return Value character(len=128) procedure, public :: set_solar_variability private function set_solar_variability(this, mg_index, sb_index, tsi) result(error_msg) Compute the spectral solar source function adjusted to account for solar variability\n  following the NRLSSI2 model of Coddington et al. 2016, doi:10.1175/BAMS-D-14-00265.1.\nas specified by the facular brightening (mg_index) and sunspot dimming (sb_index)\nindices provided as input. Read more… Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(inout) :: this real(kind=wp), intent(in) :: mg_index facular brightening index (NRLSSI2 facular \"Bremen\" index) real(kind=wp), intent(in) :: sb_index sunspot dimming index     (NRLSSI2 sunspot \"SPOT67\" index) real(kind=wp), intent(in), optional :: tsi total solar irradiance Return Value character(len=128) Empty if successful procedure, public :: set_tsi private function set_tsi(this, tsi) result(error_msg) Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(inout) :: this Scale the solar source function without changing the spectral distribution real(kind=wp), intent(in) :: tsi user-specified total solar irradiance; Return Value character(len=128) Empty if successful procedure, public :: source_is_external private pure function source_is_external(this) return true if initialized for external sources/shortwave, false otherwise Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(in) :: this Return Value logical procedure, public :: source_is_internal private pure function source_is_internal(this) return true if initialized for internal sources/longwave, false otherwise Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(in) :: this Return Value logical","tags":"","loc":"type/ty_gas_optics_rrtmgp.html"},{"title":"pade_eval – RRTMGP-Fortran","text":"public interface pade_eval Contents Module Procedures pade_eval_nbnd pade_eval_1 Module Procedures private function pade_eval_nbnd(nbnd, nrads, m, n, irad, re, pade_coeffs) Arguments Type Intent Optional Attributes Name integer, intent(in) :: nbnd integer, intent(in) :: nrads integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: irad real(kind=wp), intent(in) :: re real(kind=wp), intent(in), dimension(nbnd, nrads, 0:m+n) :: pade_coeffs Return Value real(kind=wp),dimension(nbnd) private function pade_eval_1(iband, nbnd, nrads, m, n, irad, re, pade_coeffs) Arguments Type Intent Optional Attributes Name integer, intent(in) :: iband integer, intent(in) :: nbnd integer, intent(in) :: nrads integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: irad real(kind=wp), intent(in) :: re real(kind=wp), intent(in), dimension(nbnd, nrads, 0:m+n) :: pade_coeffs Return Value real(kind=wp)","tags":"","loc":"interface/pade_eval.html"},{"title":"get_col_dry – RRTMGP-Fortran","text":"public function get_col_dry(vmr_h2o, plev, latitude) result(col_dry) Utility function, provided for user convenience\ncomputes column amounts of dry air using hydrostatic equation Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:) :: vmr_h2o real(kind=wp), intent(in), dimension(:,:) :: plev real(kind=wp), intent(in), optional dimension(:) :: latitude Return Value real(kind=wp),dimension(size(plev,dim=1),size(plev,dim=2)-1) Contents None","tags":"","loc":"proc/get_col_dry.html"},{"title":"mo_cloud_optics_rrtmgp – RRTMGP-Fortran","text":"Uses mo_rte_kind mo_optical_props mo_rte_config mo_rte_util_array_validation module~~mo_cloud_optics_rrtmgp~~UsesGraph module~mo_cloud_optics_rrtmgp mo_cloud_optics_rrtmgp mo_rte_kind mo_rte_kind module~mo_cloud_optics_rrtmgp->mo_rte_kind mo_optical_props mo_optical_props module~mo_cloud_optics_rrtmgp->mo_optical_props mo_rte_config mo_rte_config module~mo_cloud_optics_rrtmgp->mo_rte_config mo_rte_util_array_validation mo_rte_util_array_validation module~mo_cloud_optics_rrtmgp->mo_rte_util_array_validation Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Interfaces pade_eval Derived Types ty_cloud_optics_rrtmgp Interfaces public interface pade_eval private function pade_eval_nbnd(nbnd, nrads, m, n, irad, re, pade_coeffs) Arguments Type Intent Optional Attributes Name integer, intent(in) :: nbnd integer, intent(in) :: nrads integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: irad real(kind=wp), intent(in) :: re real(kind=wp), intent(in), dimension(nbnd, nrads, 0:m+n) :: pade_coeffs Return Value real(kind=wp),dimension(nbnd) private function pade_eval_1(iband, nbnd, nrads, m, n, irad, re, pade_coeffs) Arguments Type Intent Optional Attributes Name integer, intent(in) :: iband integer, intent(in) :: nbnd integer, intent(in) :: nrads integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: irad real(kind=wp), intent(in) :: re real(kind=wp), intent(in), dimension(nbnd, nrads, 0:m+n) :: pade_coeffs Return Value real(kind=wp) Derived Types type, public, extends(ty_optical_props) :: ty_cloud_optics_rrtmgp Components Type Visibility Attributes Name Initial integer, public :: ice_nsteps = 0 real(kind=wp), public :: ice_step_size = 0._wp integer, public :: icergh = 0 integer, public :: liq_nsteps = 0 real(kind=wp), public :: liq_step_size = 0._wp real(kind=wp), public, dimension(:,:,:  ), allocatable :: lut_asyice real(kind=wp), public, dimension(:,:    ), allocatable :: lut_asyliq real(kind=wp), public, dimension(:,:,:  ), allocatable :: lut_extice real(kind=wp), public, dimension(:,:    ), allocatable :: lut_extliq real(kind=wp), public, dimension(:,:,:  ), allocatable :: lut_ssaice real(kind=wp), public, dimension(:,:    ), allocatable :: lut_ssaliq real(kind=wp), public, dimension(:,:,:,:), allocatable :: pade_asyice real(kind=wp), public, dimension(:,:,:  ), allocatable :: pade_asyliq real(kind=wp), public, dimension(:,:,:,:), allocatable :: pade_extice real(kind=wp), public, dimension(:,:,:  ), allocatable :: pade_extliq real(kind=wp), public, dimension(:), allocatable :: pade_sizreg_asyice real(kind=wp), public, dimension(:), allocatable :: pade_sizreg_asyliq real(kind=wp), public, dimension(:), allocatable :: pade_sizreg_extice real(kind=wp), public, dimension(:), allocatable :: pade_sizreg_extliq real(kind=wp), public, dimension(:), allocatable :: pade_sizreg_ssaice real(kind=wp), public, dimension(:), allocatable :: pade_sizreg_ssaliq real(kind=wp), public, dimension(:,:,:,:), allocatable :: pade_ssaice real(kind=wp), public, dimension(:,:,:  ), allocatable :: pade_ssaliq real(kind=wp), public :: radice_lwr = 0._wp real(kind=wp), public :: radice_upr = 0._wp real(kind=wp), public :: radliq_lwr = 0._wp real(kind=wp), public :: radliq_upr = 0._wp Type-Bound Procedures procedure, public :: cloud_optics procedure, public :: finalize procedure, public :: get_max_radius_ice procedure, public :: get_max_radius_liq procedure, public :: get_min_radius_ice procedure, public :: get_min_radius_liq procedure, public :: get_num_ice_roughness_types generic, public :: load => load_lut, load_pade procedure, public :: set_ice_roughness","tags":"","loc":"module/mo_cloud_optics_rrtmgp.html"},{"title":"mo_aerosol_optics_rrtmgp_merra – RRTMGP-Fortran","text":"Uses mo_rte_kind mo_optical_props mo_rte_config mo_rte_util_array_validation module~~mo_aerosol_optics_rrtmgp_merra~~UsesGraph module~mo_aerosol_optics_rrtmgp_merra mo_aerosol_optics_rrtmgp_merra mo_rte_kind mo_rte_kind module~mo_aerosol_optics_rrtmgp_merra->mo_rte_kind mo_optical_props mo_optical_props module~mo_aerosol_optics_rrtmgp_merra->mo_optical_props mo_rte_config mo_rte_config module~mo_aerosol_optics_rrtmgp_merra->mo_rte_config mo_rte_util_array_validation mo_rte_util_array_validation module~mo_aerosol_optics_rrtmgp_merra->mo_rte_util_array_validation Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Variables merra_aero_bcar merra_aero_bcar_rh merra_aero_dust merra_aero_none merra_aero_ocar merra_aero_ocar_rh merra_aero_salt merra_aero_sulf merra_ntype Derived Types ty_aerosol_optics_rrtmgp_merra Variables Type Visibility Attributes Name Initial integer, public, parameter :: merra_aero_bcar = 5 integer, public, parameter :: merra_aero_bcar_rh = 4 integer, public, parameter :: merra_aero_dust = 1 integer, public, parameter :: merra_aero_none = 0 integer, public, parameter :: merra_aero_ocar = 7 integer, public, parameter :: merra_aero_ocar_rh = 6 integer, public, parameter :: merra_aero_salt = 2 integer, public, parameter :: merra_aero_sulf = 3 integer, public, parameter :: merra_ntype = 7 Derived Types type, public, extends(ty_optical_props) :: ty_aerosol_optics_rrtmgp_merra Components Type Visibility Attributes Name Initial real(kind=wp), public, dimension(:,:,:  ), allocatable :: aero_bcar_rh_tbl real(kind=wp), public, dimension(:,:    ), allocatable :: aero_bcar_tbl real(kind=wp), public, dimension(:,:,:  ), allocatable :: aero_dust_tbl real(kind=wp), public, dimension(:,:,:  ), allocatable :: aero_ocar_rh_tbl real(kind=wp), public, dimension(:,:    ), allocatable :: aero_ocar_tbl real(kind=wp), public, dimension(:), allocatable :: aero_rh (:) real(kind=wp), public, dimension(:,:,:,:), allocatable :: aero_salt_tbl real(kind=wp), public, dimension(:,:,:  ), allocatable :: aero_sulf_tbl real(kind=wp), public, dimension(:,:), allocatable :: merra_aero_bin_lims Type-Bound Procedures procedure, public :: aerosol_optics procedure, public :: finalize generic, public :: load => load_lut","tags":"","loc":"module/mo_aerosol_optics_rrtmgp_merra.html"},{"title":"mo_gas_optics_rrtmgp – RRTMGP-Fortran","text":"Class implementing the RRTMGP correlated- k distribution Implements a class for computing spectrally-resolved gas optical properties and source functions\n  given atmopsheric physical properties (profiles of temperature, pressure, and gas concentrations)\n  The class must be initialized with data (provided as a netCDF file) before being used. Two variants apply to internal Planck sources (longwave radiation in the Earth's atmosphere) and to\n  external stellar radiation (shortwave radiation in the Earth's atmosphere).\n  The variant is chosen based on what information is supplied during initialization.\ncol_dry is the number of molecules per cm-2 of dry air Uses mo_rte_util_array_validation mo_gas_optics mo_optical_props mo_rte_config mo_source_functions mo_gas_optics_constants mo_gas_optics_util_string mo_rte_util_array mo_rte_kind mo_gas_concentrations mo_gas_optics_rrtmgp_kernels module~~mo_gas_optics_rrtmgp~~UsesGraph module~mo_gas_optics_rrtmgp mo_gas_optics_rrtmgp mo_gas_optics mo_gas_optics module~mo_gas_optics_rrtmgp->mo_gas_optics mo_rte_kind mo_rte_kind module~mo_gas_optics_rrtmgp->mo_rte_kind mo_rte_config mo_rte_config module~mo_gas_optics_rrtmgp->mo_rte_config mo_gas_optics_constants mo_gas_optics_constants module~mo_gas_optics_rrtmgp->mo_gas_optics_constants mo_rte_util_array mo_rte_util_array module~mo_gas_optics_rrtmgp->mo_rte_util_array mo_gas_optics_rrtmgp_kernels mo_gas_optics_rrtmgp_kernels module~mo_gas_optics_rrtmgp->mo_gas_optics_rrtmgp_kernels mo_rte_util_array_validation mo_rte_util_array_validation module~mo_gas_optics_rrtmgp->mo_rte_util_array_validation mo_source_functions mo_source_functions module~mo_gas_optics_rrtmgp->mo_source_functions mo_optical_props mo_optical_props module~mo_gas_optics_rrtmgp->mo_optical_props mo_gas_optics_util_string mo_gas_optics_util_string module~mo_gas_optics_rrtmgp->mo_gas_optics_util_string mo_gas_concentrations mo_gas_concentrations module~mo_gas_optics_rrtmgp->mo_gas_concentrations Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Derived Types ty_gas_optics_rrtmgp Functions get_col_dry Derived Types type, public, extends(ty_gas_optics) :: ty_gas_optics_rrtmgp Components Type Visibility Attributes Name Initial integer, public, dimension(:,:), allocatable :: flavor character(len=32), public, dimension(:), allocatable :: gas_names integer, public, dimension(:,:), allocatable :: gpoint_flavor integer, public, dimension(:), allocatable :: idx_minor_lower integer, public, dimension(:), allocatable :: idx_minor_scaling_lower integer, public, dimension(:), allocatable :: idx_minor_scaling_upper integer, public, dimension(:), allocatable :: idx_minor_upper logical, public, dimension(:), allocatable :: is_key real(kind=wp), public, dimension(:,:,:,:), allocatable :: kmajor real(kind=wp), public, dimension(:,:,:), allocatable :: kminor_lower integer, public, dimension(:), allocatable :: kminor_start_lower integer, public, dimension(:), allocatable :: kminor_start_upper real(kind=wp), public, dimension(:,:,:), allocatable :: kminor_upper real(kind=wp), public, dimension(:,:,:,:), allocatable :: krayl integer, public, dimension(:,:), allocatable :: minor_limits_gpt_lower integer, public, dimension(:,:), allocatable :: minor_limits_gpt_upper logical(kind=wl), public, dimension(:), allocatable :: minor_scales_with_density_lower logical(kind=wl), public, dimension(:), allocatable :: minor_scales_with_density_upper real(kind=wp), public, dimension(:,:), allocatable :: optimal_angle_fit real(kind=wp), public, dimension(:,:,:,:), allocatable :: planck_frac real(kind=wp), public, dimension(:), allocatable :: press_ref real(kind=wp), public, dimension(:), allocatable :: press_ref_log real(kind=wp), public :: press_ref_log_delta real(kind=wp), public :: press_ref_max real(kind=wp), public :: press_ref_min real(kind=wp), public :: press_ref_trop_log logical(kind=wl), public, dimension(:), allocatable :: scale_by_complement_lower logical(kind=wl), public, dimension(:), allocatable :: scale_by_complement_upper real(kind=wp), public, dimension(:), allocatable :: solar_source real(kind=wp), public, dimension(:), allocatable :: solar_source_facular real(kind=wp), public, dimension(:), allocatable :: solar_source_quiet real(kind=wp), public, dimension(:), allocatable :: solar_source_sunspot real(kind=wp), public, dimension(:), allocatable :: temp_ref real(kind=wp), public :: temp_ref_delta real(kind=wp), public :: temp_ref_max real(kind=wp), public :: temp_ref_min real(kind=wp), public, dimension(:,:), allocatable :: totplnk real(kind=wp), public :: totplnk_delta real(kind=wp), public, dimension(:,:,:), allocatable :: vmr_ref Type-Bound Procedures procedure, public :: compute_optimal_angles procedure, public :: finalize procedure, public :: gas_optics_ext procedure, public :: gas_optics_int procedure, public :: get_gases procedure, public :: get_ngas procedure, public :: get_press_max procedure, public :: get_press_min procedure, public :: get_temp_max procedure, public :: get_temp_min procedure, public :: is_loaded generic, public :: load => load_int, load_ext procedure, public :: set_solar_variability procedure, public :: set_tsi procedure, public :: source_is_external procedure, public :: source_is_internal Functions public function get_col_dry (vmr_h2o, plev, latitude) result(col_dry) Utility function, provided for user convenience\ncomputes column amounts of dry air using hydrostatic equation Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:) :: vmr_h2o real(kind=wp), intent(in), dimension(:,:) :: plev real(kind=wp), intent(in), optional dimension(:) :: latitude Return Value real(kind=wp),dimension(size(plev,dim=1),size(plev,dim=2)-1)","tags":"","loc":"module/mo_gas_optics_rrtmgp.html"},{"title":"mo_cloud_optics_rrtmgp.F90 – RRTMGP-Fortran","text":"Contents Modules mo_cloud_optics_rrtmgp Source Code mo_cloud_optics_rrtmgp.F90 Source Code ! This code is part of Radiative Transfer for Energetics (RTE) ! ! Contacts: Robert Pincus and Eli Mlawer ! email:  rrtmgp@aer.com ! ! Copyright 2015-2018,  Atmospheric and Environmental Research and ! Regents of the University of Colorado.  All right reserved. ! ! Use and duplication is permitted under the terms of the !    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause ! ------------------------------------------------------------------------------------------------- ! Provides cloud optical properties as a function of effective radius for the RRTMGP bands !   Based on Mie calculations for liquid !     and results from doi:10.1175/JAS-D-12-039.1 for ice with variable surface roughness !   Can use either look-up tables or Pade approximates according to which data has been loaded !   Mike Iacono (AER) is the original author ! ! The class can be used as-is but is also intended as an example of how to extend the RTE framework ! ------------------------------------------------------------------------------------------------- module mo_cloud_optics_rrtmgp use mo_rte_kind , only : wp , wl use mo_rte_config , only : check_values , check_extents use mo_rte_util_array_validation ,& only : any_vals_less_than , any_vals_outside , extents_are use mo_optical_props , only : ty_optical_props , & ty_optical_props_arry , & ty_optical_props_1scl , & ty_optical_props_2str , & ty_optical_props_nstr implicit none interface pade_eval module procedure pade_eval_nbnd , pade_eval_1 end interface pade_eval private ! ----------------------------------------------------------------------------------- type , extends ( ty_optical_props ), public :: ty_cloud_optics_rrtmgp private ! ! Ice surface roughness category - needed for Yang (2013) ice optics parameterization ! integer :: icergh = 0 ! (1 = none, 2 = medium, 3 = high) ! ! Lookup table information ! ! Upper and lower limits of the tables real ( wp ) :: radliq_lwr = 0._wp , radliq_upr = 0._wp real ( wp ) :: radice_lwr = 0._wp , radice_upr = 0._wp ! How many steps in the table? (for convenience) integer :: liq_nsteps = 0 , ice_nsteps = 0 ! How big is each step in the table? real ( wp ) :: liq_step_size = 0._wp , ice_step_size = 0._wp ! ! The tables themselves. ! real ( wp ), dimension (:,: ), allocatable :: lut_extliq , lut_ssaliq , lut_asyliq ! (nsize_liq, nbnd) real ( wp ), dimension (:,:,: ), allocatable :: lut_extice , lut_ssaice , lut_asyice ! (nsize_ice, nbnd, nrghice) ! ! Pade approximant coefficients ! real ( wp ), dimension (:,:,: ), allocatable :: pade_extliq ! (nbnd, nsizereg, ncoeff_ext) real ( wp ), dimension (:,:,: ), allocatable :: pade_ssaliq , pade_asyliq ! (nbnd, nsizereg, ncoeff_ssa_g) real ( wp ), dimension (:,:,:,:), allocatable :: pade_extice ! (nbnd, nsizereg, ncoeff_ext, nrghice) real ( wp ), dimension (:,:,:,:), allocatable :: pade_ssaice , pade_asyice ! (nbnd, nsizereg, ncoeff_ssa_g, nrghice) ! Particle size regimes for Pade formulations real ( wp ), dimension (:), allocatable :: pade_sizreg_extliq , pade_sizreg_ssaliq , pade_sizreg_asyliq ! (nbound) real ( wp ), dimension (:), allocatable :: pade_sizreg_extice , pade_sizreg_ssaice , pade_sizreg_asyice ! (nbound) ! ----- contains generic , public :: load => load_lut , load_pade procedure , public :: finalize procedure , public :: cloud_optics procedure , public :: get_min_radius_liq procedure , public :: get_min_radius_ice procedure , public :: get_max_radius_liq procedure , public :: get_max_radius_ice procedure , public :: get_num_ice_roughness_types procedure , public :: set_ice_roughness ! Internal procedures procedure , private :: load_lut procedure , private :: load_pade end type ty_cloud_optics_rrtmgp contains ! ------------------------------------------------------------------------------ ! ! Routines to load data needed for cloud optics calculations. Two routines: one to load !    lookup-tables and one for coefficients for Pade approximates ! ! ------------------------------------------------------------------------------ function load_lut ( this , band_lims_wvn , & radliq_lwr , radliq_upr , & radice_lwr , radice_upr , & lut_extliq , lut_ssaliq , lut_asyliq , & lut_extice , lut_ssaice , lut_asyice ) result ( error_msg ) class ( ty_cloud_optics_rrtmgp ), intent ( inout ) :: this real ( wp ), dimension (:,:), intent ( in ) :: band_lims_wvn ! Spectral discretization ! Lookup table interpolation constants ! Lower and upper bounds of the tables; also the constant for calculating interpolation indices for liquid real ( wp ), intent ( in ) :: radliq_lwr , radliq_upr real ( wp ), intent ( in ) :: radice_lwr , radice_upr ! LUT coefficients ! Extinction, single-scattering albedo, and asymmetry parameter for liquid and ice respectively real ( wp ), dimension (:,:), intent ( in ) :: lut_extliq , lut_ssaliq , lut_asyliq real ( wp ), dimension (:,:,:), intent ( in ) :: lut_extice , lut_ssaice , lut_asyice character ( len = 128 ) :: error_msg ! ------- ! ! Local variables ! integer :: nbnd , nrghice , nsize_liq , nsize_ice error_msg = this % init ( band_lims_wvn , name = \"RRTMGP cloud optics\" ) ! ! LUT coefficient dimensions ! nsize_liq = size ( lut_extliq , dim = 1 ) nsize_ice = size ( lut_extice , dim = 1 ) nbnd = size ( lut_extliq , dim = 2 ) nrghice = size ( lut_extice , dim = 3 ) ! ! Error checking !   Can we check for consistency between table bounds and _fac? ! if ( nbnd /= this % get_nband ()) & error_msg = \"cloud_optics%init(): number of bands inconsistent between lookup tables, spectral discretization\" if ( size ( lut_extice , 2 ) /= nbnd ) & error_msg = \"cloud_optics%init(): array lut_extice has the wrong number of bands\" if (. not . extents_are ( lut_ssaliq , nsize_liq , nbnd )) & error_msg = \"cloud_optics%init(): array lut_ssaliq isn't consistently sized\" if (. not . extents_are ( lut_asyliq , nsize_liq , nbnd )) & error_msg = \"cloud_optics%init(): array lut_asyliq isn't consistently sized\" if (. not . extents_are ( lut_ssaice , nsize_ice , nbnd , nrghice )) & error_msg = \"cloud_optics%init(): array lut_ssaice  isn't consistently sized\" if (. not . extents_are ( lut_asyice , nsize_ice , nbnd , nrghice )) & error_msg = \"cloud_optics%init(): array lut_asyice  isn't consistently sized\" if ( error_msg /= \"\" ) return this % liq_nsteps = nsize_liq this % ice_nsteps = nsize_ice this % liq_step_size = ( radliq_upr - radliq_lwr ) / real ( nsize_liq - 1 , wp ) this % ice_step_size = ( radice_upr - radice_lwr ) / real ( nsize_ice - 1 , wp ) ! Allocate LUT coefficients allocate ( this % lut_extliq ( nsize_liq , nbnd ), & this % lut_ssaliq ( nsize_liq , nbnd ), & this % lut_asyliq ( nsize_liq , nbnd ), & this % lut_extice ( nsize_ice , nbnd , nrghice ), & this % lut_ssaice ( nsize_ice , nbnd , nrghice ), & this % lut_asyice ( nsize_ice , nbnd , nrghice )) !$acc enter data create(this)                                               & !$acc            create(this%lut_extliq, this%lut_ssaliq, this%lut_asyliq)  & !$acc            create(this%lut_extice, this%lut_ssaice, this%lut_asyice) !$omp target enter data & !$omp map(alloc:this%lut_extliq, this%lut_ssaliq, this%lut_asyliq) & !$omp map(alloc:this%lut_extice, this%lut_ssaice, this%lut_asyice) ! Load LUT constants this % radliq_lwr = radliq_lwr this % radliq_upr = radliq_upr this % radice_lwr = radice_lwr this % radice_upr = radice_upr ! Load LUT coefficients !$acc kernels !$omp target this % lut_extliq = lut_extliq this % lut_ssaliq = lut_ssaliq this % lut_asyliq = lut_asyliq this % lut_extice = lut_extice this % lut_ssaice = lut_ssaice this % lut_asyice = lut_asyice !$acc end kernels !$omp end target ! ! Set default ice roughness - min values ! error_msg = this % set_ice_roughness ( 1 ) end function load_lut ! ------------------------------------------------------------------------------ ! ! Cloud optics initialization function - Pade ! ! ------------------------------------------------------------------------------ function load_pade ( this , band_lims_wvn , & pade_extliq , pade_ssaliq , pade_asyliq , & pade_extice , pade_ssaice , pade_asyice , & pade_sizreg_extliq , pade_sizreg_ssaliq , pade_sizreg_asyliq , & pade_sizreg_extice , pade_sizreg_ssaice , pade_sizreg_asyice ) & result ( error_msg ) class ( ty_cloud_optics_rrtmgp ), intent ( inout ) :: this ! cloud specification data real ( wp ), dimension (:,:), intent ( in ) :: band_lims_wvn ! Spectral discretization ! ! Pade coefficients: extinction, single-scattering albedo, and asymmetry factor for liquid and ice ! real ( wp ), dimension (:,:,:), intent ( in ) :: pade_extliq , pade_ssaliq , pade_asyliq real ( wp ), dimension (:,:,:,:), intent ( in ) :: pade_extice , pade_ssaice , pade_asyice ! ! Boundaries of size regimes. Liquid and ice are separate; !   extinction is fit to different numbers of size bins than single-scattering albedo and asymmetry factor ! real ( wp ), dimension (:), intent ( in ) :: pade_sizreg_extliq , pade_sizreg_ssaliq , pade_sizreg_asyliq real ( wp ), dimension (:), intent ( in ) :: pade_sizreg_extice , pade_sizreg_ssaice , pade_sizreg_asyice character ( len = 128 ) :: error_msg ! ------- Local ------- integer :: nbnd , nrghice , nsizereg , ncoeff_ext , ncoeff_ssa_g , nbound ! ------- Definitions ------- ! Pade coefficient dimensions nbnd = size ( pade_extliq , dim = 1 ) nsizereg = size ( pade_extliq , dim = 2 ) ncoeff_ext = size ( pade_extliq , dim = 3 ) ncoeff_ssa_g = size ( pade_ssaliq , dim = 3 ) nrghice = size ( pade_extice , dim = 4 ) nbound = size ( pade_sizreg_extliq ) ! The number of size regimes is assumed in the Pade evaluations if ( nsizereg /= 3 ) & error_msg = \"cloud optics: code assumes exactly three size regimes for Pade approximants but data is otherwise\" error_msg = this % init ( band_lims_wvn , name = \"RRTMGP cloud optics\" ) ! ! Error checking ! if ( nbnd /= this % get_nband ()) & error_msg = \"cloud_optics%init(): number of bands inconsistent between lookup tables, spectral discretization\" if (. not . extents_are ( pade_ssaliq , nbnd , nsizereg , ncoeff_ssa_g )) & error_msg = \"cloud_optics%init(): array pade_ssaliq isn't consistently sized\" if (. not . extents_are ( pade_asyliq , nbnd , nsizereg , ncoeff_ssa_g )) & error_msg = \"cloud_optics%init(): array pade_asyliq isn't consistently sized\" if (. not . extents_are ( pade_extice , nbnd , nsizereg , ncoeff_ext , nrghice )) & error_msg = \"cloud_optics%init(): array pade_extice isn't consistently sized\" if (. not . extents_are ( pade_ssaice , nbnd , nsizereg , ncoeff_ssa_g , nrghice )) & error_msg = \"cloud_optics%init(): array pade_ssaice isn't consistently sized\" if (. not . extents_are ( pade_asyice , nbnd , nsizereg , ncoeff_ssa_g , nrghice )) & error_msg = \"cloud_optics%init(): array pade_asyice isn't consistently sized\" if ( any ([ size ( pade_sizreg_ssaliq ), size ( pade_sizreg_asyliq ), & size ( pade_sizreg_extice ), size ( pade_sizreg_ssaice ), size ( pade_sizreg_asyice )] /= nbound )) & error_msg = \"cloud_optics%init(): one or more Pade size regime arrays are inconsistently sized\" if ( nsizereg /= 3 ) & error_msg = \"cloud_optics%init(): Expecting precisely three size regimes for Pade approximants\" if ( error_msg /= \"\" ) return ! ! Consistency among size regimes ! this % radliq_lwr = pade_sizreg_extliq ( 1 ) this % radliq_upr = pade_sizreg_extliq ( nbound ) this % radice_lwr = pade_sizreg_extice ( 1 ) this % radice_upr = pade_sizreg_extice ( nbound ) if ( error_msg /= \"\" ) return if ( any ([ pade_sizreg_ssaliq ( 1 ), pade_sizreg_asyliq ( 1 )] < this % radliq_lwr )) & error_msg = \"cloud_optics%init(): one or more Pade size regimes have inconsistent lowest values\" if ( any ([ pade_sizreg_ssaice ( 1 ), pade_sizreg_asyice ( 1 )] < this % radice_lwr )) & error_msg = \"cloud_optics%init(): one or more Pade size regimes have inconsistent lower values\" if ( any ([ pade_sizreg_ssaliq ( nbound ), pade_sizreg_asyliq ( nbound )] > this % radliq_upr )) & error_msg = \"cloud_optics%init(): one or more Pade size regimes have lowest value less than radliq_upr\" if ( any ([ pade_sizreg_ssaice ( nbound ), pade_sizreg_asyice ( nbound )] > this % radice_upr )) & error_msg = \"cloud_optics%init(): one or more Pade size regimes have lowest value less than radice_upr\" if ( error_msg /= \"\" ) return ! ! Allocate Pade coefficients ! allocate ( this % pade_extliq ( nbnd , nsizereg , ncoeff_ext ), & this % pade_ssaliq ( nbnd , nsizereg , ncoeff_ssa_g ), & this % pade_asyliq ( nbnd , nsizereg , ncoeff_ssa_g ), & this % pade_extice ( nbnd , nsizereg , ncoeff_ext , nrghice ), & this % pade_ssaice ( nbnd , nsizereg , ncoeff_ssa_g , nrghice ), & this % pade_asyice ( nbnd , nsizereg , ncoeff_ssa_g , nrghice )) ! ! Allocate Pade coefficient particle size regime boundaries ! allocate ( this % pade_sizreg_extliq ( nbound ), & this % pade_sizreg_ssaliq ( nbound ), & this % pade_sizreg_asyliq ( nbound ), & this % pade_sizreg_extice ( nbound ), & this % pade_sizreg_ssaice ( nbound ), & this % pade_sizreg_asyice ( nbound )) !$acc enter data create(this)                                                                       & !$acc            create(this%pade_extliq, this%pade_ssaliq, this%pade_asyliq)                       & !$acc            create(this%pade_extice, this%pade_ssaice, this%pade_asyice)                       & !$acc            create(this%pade_sizreg_extliq, this%pade_sizreg_ssaliq, this%pade_sizreg_asyliq)  & !$acc            create(this%pade_sizreg_extice, this%pade_sizreg_ssaice, this%pade_sizreg_asyice) !$omp target enter data & !$omp map(alloc:this%pade_extliq, this%pade_ssaliq, this%pade_asyliq) & !$omp map(alloc:this%pade_extice, this%pade_ssaice, this%pade_asyice) & !$omp map(alloc:this%pade_sizreg_extliq, this%pade_sizreg_ssaliq, this%pade_sizreg_asyliq) & !$omp map(alloc:this%pade_sizreg_extice, this%pade_sizreg_ssaice, this%pade_sizreg_asyice) ! ! Load data ! !$acc kernels !$omp target this % pade_extliq = pade_extliq this % pade_ssaliq = pade_ssaliq this % pade_asyliq = pade_asyliq this % pade_extice = pade_extice this % pade_ssaice = pade_ssaice this % pade_asyice = pade_asyice this % pade_sizreg_extliq = pade_sizreg_extliq this % pade_sizreg_ssaliq = pade_sizreg_ssaliq this % pade_sizreg_asyliq = pade_sizreg_asyliq this % pade_sizreg_extice = pade_sizreg_extice this % pade_sizreg_ssaice = pade_sizreg_ssaice this % pade_sizreg_asyice = pade_sizreg_asyice !$acc end kernels !$omp end target ! ! Set default ice roughness - min values ! error_msg = this % set_ice_roughness ( 1 ) end function load_pade !-------------------------------------------------------------------------------------------------------------------- ! ! Finalize ! !-------------------------------------------------------------------------------------------------------------------- subroutine finalize ( this ) class ( ty_cloud_optics_rrtmgp ), intent ( inout ) :: this this % radliq_lwr = 0._wp this % radliq_upr = 0._wp this % radice_lwr = 0._wp this % radice_upr = 0._wp ! Lookup table cloud optics coefficients if ( allocated ( this % lut_extliq )) then !$acc exit data delete(this%lut_extliq, this%lut_ssaliq, this%lut_asyliq)  & !$acc           delete(this%lut_extice, this%lut_ssaice, this%lut_asyice)  & !$acc           delete(this) !$omp target exit data map(release:this%lut_extliq, this%lut_ssaliq, this%lut_asyliq) & !$omp map(release:this%lut_extice, this%lut_ssaice, this%lut_asyice) deallocate ( this % lut_extliq , this % lut_ssaliq , this % lut_asyliq , & this % lut_extice , this % lut_ssaice , this % lut_asyice ) this % liq_nsteps = 0 this % ice_nsteps = 0 this % liq_step_size = 0._wp this % ice_step_size = 0._wp end if ! Pade cloud optics coefficients if ( allocated ( this % pade_extliq )) then !$acc exit data delete(this%pade_extliq, this%pade_ssaliq, this%pade_asyliq)                       & !$acc           delete(this%pade_extice, this%pade_ssaice, this%pade_asyice)                       & !$acc           delete(this%pade_sizreg_extliq, this%pade_sizreg_ssaliq, this%pade_sizreg_asyliq)  & !$acc           delete(this%pade_sizreg_extice, this%pade_sizreg_ssaice, this%pade_sizreg_asyice)  & !$acc           delete(this) !$omp target exit data map(release:this%pade_extliq, this%pade_ssaliq, this%pade_asyliq) & !$omp map(release:this%pade_extice, this%pade_ssaice, this%pade_asyice) & !$omp map(release:this%pade_sizreg_extliq, this%pade_sizreg_ssaliq, this%pade_sizreg_asyliq) & !$omp map(release:this%pade_sizreg_extice, this%pade_sizreg_ssaice, this%pade_sizreg_asyice) deallocate ( this % pade_extliq , this % pade_ssaliq , this % pade_asyliq , & this % pade_extice , this % pade_ssaice , this % pade_asyice , & this % pade_sizreg_extliq , this % pade_sizreg_ssaliq , this % pade_sizreg_asyliq , & this % pade_sizreg_extice , this % pade_sizreg_ssaice , this % pade_sizreg_asyice ) end if end subroutine finalize ! ------------------------------------------------------------------------------ ! ! Derive cloud optical properties from provided cloud physical properties ! ! ------------------------------------------------------------------------------ ! ! Compute single-scattering properties ! function cloud_optics ( this , & clwp , ciwp , reliq , reice , & optical_props ) result ( error_msg ) class ( ty_cloud_optics_rrtmgp ), & intent ( in ) :: this real ( wp ), intent ( in ) :: clwp (:,:), & ! cloud liquid water path (g/m2) ciwp (:,:), & ! cloud ice water path    (g/m2) reliq (:,:), & ! cloud liquid particle effective size (microns) reice (:,:) ! cloud ice particle effective radius  (microns) class ( ty_optical_props_arry ), & intent ( inout ) :: optical_props ! Dimensions: (ncol,nlay,nbnd) character ( len = 128 ) :: error_msg ! ------- Local ------- logical ( wl ), dimension ( size ( clwp , 1 ), size ( clwp , 2 )) :: liqmsk , icemsk real ( wp ), dimension ( size ( clwp , 1 ), size ( clwp , 2 ), this % get_nband ()) :: & ltau , ltaussa , ltaussag , itau , itaussa , itaussag ! Optical properties: tau, tau*ssa, tau*ssa*g ! liquid and ice separately integer :: ncol , nlay , nbnd integer :: nsizereg integer :: icol , ilay , ibnd ! scalars for total tau, tau*ssa real ( wp ) :: tau , taussa ! ---------------------------------------- ! ! Error checking ! ! ---------------------------------------- error_msg = '' if (. not .( allocated ( this % lut_extliq ) . or . allocated ( this % pade_extliq ))) then error_msg = 'cloud optics: no data has been initialized' return end if ncol = size ( clwp , 1 ) nlay = size ( clwp , 2 ) nbnd = this % get_nband () ! ! Array sizes ! if ( check_extents ) then if ( size ( liqmsk , 1 ) /= ncol . or . size ( liqmsk , 2 ) /= nlay ) & error_msg = \"cloud optics: liqmask has wrong extents\" if ( size ( icemsk , 1 ) /= ncol . or . size ( icemsk , 2 ) /= nlay ) & error_msg = \"cloud optics: icemsk has wrong extents\" if ( size ( ciwp , 1 ) /= ncol . or . size ( ciwp , 2 ) /= nlay ) & error_msg = \"cloud optics: ciwp has wrong extents\" if ( size ( reliq , 1 ) /= ncol . or . size ( reliq , 2 ) /= nlay ) & error_msg = \"cloud optics: reliq has wrong extents\" if ( size ( reice , 1 ) /= ncol . or . size ( reice , 2 ) /= nlay ) & error_msg = \"cloud optics: reice has wrong extents\" if ( optical_props % get_ncol () /= ncol . or . optical_props % get_nlay () /= nlay ) & error_msg = \"cloud optics: optical_props have wrong extents\" if ( error_msg /= \"\" ) return end if ! ! Spectral consistency ! if ( check_values ) then if (. not . this % bands_are_equal ( optical_props )) & error_msg = \"cloud optics: optical properties don't have the same band structure\" if ( optical_props % get_nband () /= optical_props % get_ngpt () ) & error_msg = \"cloud optics: optical properties must be requested by band not g-points\" if ( error_msg /= \"\" ) return end if !$acc data copyin(clwp, ciwp, reliq, reice)                         & !$acc      create(ltau, ltaussa, ltaussag, itau, itaussa, itaussag) & !$acc      create(liqmsk,icemsk) !$omp target data map(to:clwp, ciwp, reliq, reice) & !$omp map(alloc:ltau, ltaussa, ltaussag, itau, itaussa, itaussag) & !$omp map(alloc:liqmsk, icemsk) ! ! Cloud masks; don't need value re values if there's no cloud ! !$acc parallel loop gang vector default(present) collapse(2) !$omp target teams distribute parallel do simd collapse(2) do ilay = 1 , nlay do icol = 1 , ncol liqmsk ( icol , ilay ) = clwp ( icol , ilay ) > 0._wp icemsk ( icol , ilay ) = ciwp ( icol , ilay ) > 0._wp end do end do ! ! Particle size, liquid/ice water paths ! if ( check_values ) then if ( any_vals_outside ( reliq , liqmsk , this % radliq_lwr , this % radliq_upr )) & error_msg = 'cloud optics: liquid effective radius is out of bounds' if ( any_vals_outside ( reice , icemsk , this % radice_lwr , this % radice_upr )) & error_msg = 'cloud optics: ice effective radius is out of bounds' if ( any_vals_less_than ( clwp , liqmsk , 0._wp ) . or . any_vals_less_than ( ciwp , icemsk , 0._wp )) & error_msg = 'cloud optics: negative clwp or ciwp where clouds are supposed to be' end if if ( error_msg == \"\" ) then ! ! ! ---------------------------------------- ! ! The tables and Pade coefficients determing extinction coeffient, single-scattering albedo, !   and asymmetry parameter g as a function of effective raduis ! We compute the optical depth tau (=exintinction coeff * condensed water path) !   and the products tau*ssa and tau*ssa*g for liquid and ice cloud separately. ! These are used to determine the optical properties of ice and water cloud together. ! We could compute the properties for liquid and ice separately and !    use ty_optical_props_arry%increment but this involves substantially more division. ! if ( allocated ( this % lut_extliq )) then ! ! Liquid ! call compute_all_from_table ( ncol , nlay , nbnd , liqmsk , clwp , reliq , & this % liq_nsteps , this % liq_step_size , this % radliq_lwr , & this % lut_extliq , this % lut_ssaliq , this % lut_asyliq , & ltau , ltaussa , ltaussag ) ! ! Ice ! call compute_all_from_table ( ncol , nlay , nbnd , icemsk , ciwp , reice , & this % ice_nsteps , this % ice_step_size , this % radice_lwr , & this % lut_extice (:,:, this % icergh ), & this % lut_ssaice (:,:, this % icergh ), & this % lut_asyice (:,:, this % icergh ), & itau , itaussa , itaussag ) else ! ! Cloud optical properties from Pade coefficient method !   Hard coded assumptions: order of approximants, three size regimes ! nsizereg = size ( this % pade_extliq , 2 ) call compute_all_from_pade ( ncol , nlay , nbnd , nsizereg , & liqmsk , clwp , reliq , & 2 , 3 , this % pade_sizreg_extliq , this % pade_extliq , & 2 , 2 , this % pade_sizreg_ssaliq , this % pade_ssaliq , & 2 , 2 , this % pade_sizreg_asyliq , this % pade_asyliq , & ltau , ltaussa , ltaussag ) call compute_all_from_pade ( ncol , nlay , nbnd , nsizereg , & icemsk , ciwp , reice , & 2 , 3 , this % pade_sizreg_extice , this % pade_extice (:,:,:, this % icergh ), & 2 , 2 , this % pade_sizreg_ssaice , this % pade_ssaice (:,:,:, this % icergh ), & 2 , 2 , this % pade_sizreg_asyice , this % pade_asyice (:,:,:, this % icergh ), & itau , itaussa , itaussag ) endif ! ! Combine liquid and ice contributions into total cloud optical properties !   See also the increment routines in mo_optical_props_kernels ! select type ( optical_props ) type is ( ty_optical_props_1scl ) !$acc parallel loop gang vector default(present) collapse(3) & !$acc               copyin(optical_props) copyout(optical_props%tau) !$omp target teams distribute parallel do simd collapse(3) & !$omp map(from:optical_props%tau) do ibnd = 1 , nbnd do ilay = 1 , nlay do icol = 1 , ncol ! Absorption optical depth  = (1-ssa) * tau = tau - taussa optical_props % tau ( icol , ilay , ibnd ) = ( ltau ( icol , ilay , ibnd ) - ltaussa ( icol , ilay , ibnd )) + & ( itau ( icol , ilay , ibnd ) - itaussa ( icol , ilay , ibnd )) end do end do end do type is ( ty_optical_props_2str ) !$acc parallel loop gang vector default(present) collapse(3) & !$acc               copyin(optical_props) copyout(optical_props%tau, optical_props%ssa, optical_props%g) !$omp target teams distribute parallel do simd collapse(3) & !$omp map(from:optical_props%tau, optical_props%ssa, optical_props%g) do ibnd = 1 , nbnd do ilay = 1 , nlay do icol = 1 , ncol tau = ltau ( icol , ilay , ibnd ) + itau ( icol , ilay , ibnd ) taussa = ltaussa ( icol , ilay , ibnd ) + itaussa ( icol , ilay , ibnd ) optical_props % g ( icol , ilay , ibnd ) = ( ltaussag ( icol , ilay , ibnd ) + itaussag ( icol , ilay , ibnd )) / & max ( epsilon ( tau ), taussa ) optical_props % ssa ( icol , ilay , ibnd ) = taussa / max ( epsilon ( tau ), tau ) optical_props % tau ( icol , ilay , ibnd ) = tau end do end do end do type is ( ty_optical_props_nstr ) error_msg = \"cloud optics: n-stream calculations not yet supported\" end select end if !$acc end data !$omp end target data end function cloud_optics !-------------------------------------------------------------------------------------------------------------------- ! ! Inquiry functions ! !-------------------------------------------------------------------------------------------------------------------- function set_ice_roughness ( this , icergh ) result ( error_msg ) class ( ty_cloud_optics_rrtmgp ), intent ( inout ) :: this integer , intent ( in ) :: icergh character ( len = 128 ) :: error_msg error_msg = \"\" if (. not . allocated ( this % pade_extice ) . and . . not . allocated ( this % lut_extice )) & error_msg = \"cloud_optics%set_ice_roughness(): can't set before initialization\" if ( icergh < 1 . or . icergh > this % get_num_ice_roughness_types ()) & error_msg = 'cloud optics: cloud ice surface roughness flag is out of bounds' if ( error_msg /= \"\" ) return this % icergh = icergh end function set_ice_roughness !----------------------------------------------- function get_num_ice_roughness_types ( this ) result ( i ) class ( ty_cloud_optics_rrtmgp ), intent ( in ) :: this integer :: i i = 0 if ( allocated ( this % pade_extice )) i = size ( this % pade_extice , dim = 4 ) if ( allocated ( this % lut_extice )) i = size ( this % lut_extice , dim = 3 ) end function get_num_ice_roughness_types !----------------------------------------------- function get_min_radius_liq ( this ) result ( r ) class ( ty_cloud_optics_rrtmgp ), intent ( in ) :: this real ( wp ) :: r r = this % radliq_lwr end function get_min_radius_liq !----------------------------------------------- function get_max_radius_liq ( this ) result ( r ) class ( ty_cloud_optics_rrtmgp ), intent ( in ) :: this real ( wp ) :: r r = this % radliq_upr end function get_max_radius_liq !----------------------------------------------- function get_min_radius_ice ( this ) result ( r ) class ( ty_cloud_optics_rrtmgp ), intent ( in ) :: this real ( wp ) :: r r = this % radice_lwr end function get_min_radius_ice !----------------------------------------------- function get_max_radius_ice ( this ) result ( r ) class ( ty_cloud_optics_rrtmgp ), intent ( in ) :: this real ( wp ) :: r r = this % radice_upr end function get_max_radius_ice !-------------------------------------------------------------------------------------------------------------------- ! ! Ancillary functions ! !-------------------------------------------------------------------------------------------------------------------- ! ! Linearly interpolate values from a lookup table with \"nsteps\" evenly-spaced !   elements starting at \"offset.\" The table's second dimension is band. ! Returns 0 where the mask is false. ! We could also try gather/scatter for efficiency ! subroutine compute_all_from_table ( ncol , nlay , nbnd , mask , lwp , re , & nsteps , step_size , offset , & tau_table , ssa_table , asy_table , & tau , taussa , taussag ) integer , intent ( in ) :: ncol , nlay , nbnd , nsteps logical ( wl ), dimension ( ncol , nlay ), intent ( in ) :: mask real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: lwp , re real ( wp ), intent ( in ) :: step_size , offset real ( wp ), dimension ( nsteps , nbnd ), intent ( in ) :: tau_table , ssa_table , asy_table real ( wp ), dimension ( ncol , nlay , nbnd ) :: tau , taussa , taussag ! --------------------------- integer :: icol , ilay , ibnd integer :: index real ( wp ) :: fint real ( wp ) :: t , ts ! tau, tau*ssa, tau*ssa*g ! --------------------------- !$acc parallel loop gang vector default(present) collapse(3) !$omp target teams distribute parallel do simd collapse(3) do ibnd = 1 , nbnd do ilay = 1 , nlay do icol = 1 , ncol if ( mask ( icol , ilay )) then index = min ( floor (( re ( icol , ilay ) - offset ) / step_size ) + 1 , nsteps - 1 ) fint = ( re ( icol , ilay ) - offset ) / step_size - ( index - 1 ) t = lwp ( icol , ilay ) * & ( tau_table ( index , ibnd ) + fint * ( tau_table ( index + 1 , ibnd ) - tau_table ( index , ibnd ))) ts = t * & ( ssa_table ( index , ibnd ) + fint * ( ssa_table ( index + 1 , ibnd ) - ssa_table ( index , ibnd ))) taussag ( icol , ilay , ibnd ) = & ts * & ( asy_table ( index , ibnd ) + fint * ( asy_table ( index + 1 , ibnd ) - asy_table ( index , ibnd ))) taussa ( icol , ilay , ibnd ) = ts tau ( icol , ilay , ibnd ) = t else tau ( icol , ilay , ibnd ) = 0._wp taussa ( icol , ilay , ibnd ) = 0._wp taussag ( icol , ilay , ibnd ) = 0._wp end if end do end do end do end subroutine compute_all_from_table ! ! Pade functions ! !--------------------------------------------------------------------------- subroutine compute_all_from_pade ( ncol , nlay , nbnd , nsizes , & mask , lwp , re , & m_ext , n_ext , re_bounds_ext , coeffs_ext , & m_ssa , n_ssa , re_bounds_ssa , coeffs_ssa , & m_asy , n_asy , re_bounds_asy , coeffs_asy , & tau , taussa , taussag ) integer , intent ( in ) :: ncol , nlay , nbnd , nsizes logical ( wl ), & dimension ( ncol , nlay ), intent ( in ) :: mask real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: lwp , re real ( wp ), dimension ( nsizes + 1 ), intent ( in ) :: re_bounds_ext , re_bounds_ssa , re_bounds_asy integer , intent ( in ) :: m_ext , n_ext real ( wp ), dimension ( nbnd , nsizes , 0 : m_ext + n_ext ), & intent ( in ) :: coeffs_ext integer , intent ( in ) :: m_ssa , n_ssa real ( wp ), dimension ( nbnd , nsizes , 0 : m_ssa + n_ssa ), & intent ( in ) :: coeffs_ssa integer , intent ( in ) :: m_asy , n_asy real ( wp ), dimension ( nbnd , nsizes , 0 : m_asy + n_asy ), & intent ( in ) :: coeffs_asy real ( wp ), dimension ( ncol , nlay , nbnd ) :: tau , taussa , taussag ! --------------------------- integer :: icol , ilay , ibnd , irad real ( wp ) :: t , ts !$acc parallel loop gang vector default(present) collapse(3) !$omp target teams distribute parallel do simd collapse(3) do ibnd = 1 , nbnd do ilay = 1 , nlay do icol = 1 , ncol if ( mask ( icol , ilay )) then ! ! Finds index into size regime table ! This works only if there are precisely three size regimes (four bounds) and it's !   previously guaranteed that size_bounds(1) <= size <= size_bounds(4) ! irad = min ( floor (( re ( icol , ilay ) - re_bounds_ext ( 2 )) / re_bounds_ext ( 3 )) + 2 , 3 ) t = lwp ( icol , ilay ) * & pade_eval ( ibnd , nbnd , nsizes , m_ext , n_ext , irad , re ( icol , ilay ), coeffs_ext ) irad = min ( floor (( re ( icol , ilay ) - re_bounds_ssa ( 2 )) / re_bounds_ssa ( 3 )) + 2 , 3 ) ! Pade approximants for co-albedo can sometimes be negative ts = t * ( 1._wp - max ( 0._wp , & pade_eval ( ibnd , nbnd , nsizes , m_ssa , n_ssa , irad , re ( icol , ilay ), coeffs_ssa ))) irad = min ( floor (( re ( icol , ilay ) - re_bounds_asy ( 2 )) / re_bounds_asy ( 3 )) + 2 , 3 ) taussag ( icol , ilay , ibnd ) = & ts * & pade_eval ( ibnd , nbnd , nsizes , m_asy , n_asy , irad , re ( icol , ilay ), coeffs_asy ) taussa ( icol , ilay , ibnd ) = ts tau ( icol , ilay , ibnd ) = t else tau ( icol , ilay , ibnd ) = 0._wp taussa ( icol , ilay , ibnd ) = 0._wp taussag ( icol , ilay , ibnd ) = 0._wp end if end do end do end do end subroutine compute_all_from_pade !--------------------------------------------------------------------------- ! ! Evaluate Pade approximant of order [m/n] ! function pade_eval_nbnd ( nbnd , nrads , m , n , irad , re , pade_coeffs ) integer , intent ( in ) :: nbnd , nrads , m , n , irad real ( wp ), dimension ( nbnd , nrads , 0 : m + n ), & intent ( in ) :: pade_coeffs real ( wp ), intent ( in ) :: re real ( wp ), dimension ( nbnd ) :: pade_eval_nbnd integer :: iband real ( wp ) :: numer , denom integer :: i do iband = 1 , nbnd denom = pade_coeffs ( iband , irad , n + m ) do i = n - 1 + m , 1 + m , - 1 denom = pade_coeffs ( iband , irad , i ) + re * denom end do denom = 1._wp + re * denom numer = pade_coeffs ( iband , irad , m ) do i = m - 1 , 1 , - 1 numer = pade_coeffs ( iband , irad , i ) + re * numer end do numer = pade_coeffs ( iband , irad , 0 ) + re * numer pade_eval_nbnd ( iband ) = numer / denom end do end function pade_eval_nbnd !--------------------------------------------------------------------------- ! ! Evaluate Pade approximant of order [m/n] ! function pade_eval_1 ( iband , nbnd , nrads , m , n , irad , re , pade_coeffs ) !$acc routine seq !$omp declare target ! integer , intent ( in ) :: iband , nbnd , nrads , m , n , irad real ( wp ), dimension ( nbnd , nrads , 0 : m + n ), & intent ( in ) :: pade_coeffs real ( wp ), intent ( in ) :: re real ( wp ) :: pade_eval_1 real ( wp ) :: numer , denom integer :: i denom = pade_coeffs ( iband , irad , n + m ) do i = n - 1 + m , 1 + m , - 1 denom = pade_coeffs ( iband , irad , i ) + re * denom end do denom = 1._wp + re * denom numer = pade_coeffs ( iband , irad , m ) do i = m - 1 , 1 , - 1 numer = pade_coeffs ( iband , irad , i ) + re * numer end do numer = pade_coeffs ( iband , irad , 0 ) + re * numer pade_eval_1 = numer / denom end function pade_eval_1 end module mo_cloud_optics_rrtmgp","tags":"","loc":"sourcefile/mo_cloud_optics_rrtmgp.f90.html"},{"title":"mo_aerosol_optics_rrtmgp_merra.F90 – RRTMGP-Fortran","text":"Contents Modules mo_aerosol_optics_rrtmgp_merra Source Code mo_aerosol_optics_rrtmgp_merra.F90 Source Code ! This code is part of Radiative Transfer for Energetics (RTE) ! ! Contacts: Robert Pincus and Eli Mlawer ! email:  rrtmgp@aer.com ! ! Copyright 2015-2018,  Atmospheric and Environmental Research and ! Regents of the University of Colorado.  All right reserved. ! ! Use and duplication is permitted under the terms of the !    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause ! ------------------------------------------------------------------------------------------------- ! Provides aerosol optical properties as a function of aerosol size (radius), aerosol mass, ! and relative humidity for the RRTMGP spectral bands. !   Based on climatoligical aerosol optical properties used in MERRA2 as derived from the !     GOCART model for 15 aerosol types, including dust and sea salt each for five size bins, !     one sulfate type, and both hydrophobic and hydrophilic black carbon and organic carbon. !   Input aerosol optical data are stored in look-up tables. ! !   References for the gocart interactive aerosols: !     Chin et al., jgr, 2000 (https://doi.org/10.1029/2000jd900384) !     Chin et al., jas, 2002 (https://doi.org/10.1175/1520-0469(2002)059<0461:TAOTFT>2.0.CO;2) !     Colarco et al., jgr, 2010 (https://doi.org/10.1029/2009jd012820) ! !   References for merra2 aerosol reanalysis: !     Randles et al., j. clim., 2017 (https://doi.org/10.1175/jcli-d-16-0609.1) !     Buchard et al., j. clim., 2017 (https://doi.org/10.1175/jcli-d-16-0613.1) ! ! The class can be used as-is but is also intended as an example of how to extend the RTE framework ! ------------------------------------------------------------------------------------------------- module mo_aerosol_optics_rrtmgp_merra use mo_rte_kind , only : wp , wl use mo_rte_config , only : check_extents , check_values use mo_rte_util_array_validation ,& only : extents_are , any_vals_outside use mo_optical_props , only : ty_optical_props , & ty_optical_props_arry , & ty_optical_props_1scl , & ty_optical_props_2str , & ty_optical_props_nstr implicit none ! MERRA2/GOCART aerosol types integer , parameter , public :: merra_ntype = 7 ! Number of MERRA aerosol types integer , parameter , public :: merra_aero_none = 0 ! no aerosal integer , parameter , public :: merra_aero_dust = 1 ! dust integer , parameter , public :: merra_aero_salt = 2 ! Salt integer , parameter , public :: merra_aero_sulf = 3 ! sulfate integer , parameter , public :: merra_aero_bcar_rh = 4 ! black carbon, hydrophilic integer , parameter , public :: merra_aero_bcar = 5 ! black carbon, hydrophobic integer , parameter , public :: merra_aero_ocar_rh = 6 ! organic carbon, hydrophilic integer , parameter , public :: merra_aero_ocar = 7 ! organic carbon, hydrophobic ! index identifiers for aerosol optical property tables integer , parameter , private :: ext = 1 ! extinction integer , parameter , private :: ssa = 2 ! single scattering albedo integer , parameter , private :: g = 3 ! asymmetry parameter private ! ----------------------------------------------------------------------------------- type , extends ( ty_optical_props ), public :: ty_aerosol_optics_rrtmgp_merra private ! ! Lookup table information ! ! Table upper and lower aerosol size (radius) bin limits (microns) real ( wp ), dimension (:,:), allocatable :: merra_aero_bin_lims ! Dimensions (pair,nbin) ! Table relative humidity values real ( wp ), dimension (:), allocatable :: aero_rh (:) ! ! The aerosol tables themselves. ! extinction (m2/kg) ! single scattering albedo (unitless) ! asymmetry parameter (unitless) ! real ( wp ), dimension (:,:,: ), allocatable :: aero_dust_tbl ! ext, ssa, g (nval, nbin, nbnd) real ( wp ), dimension (:,:,:,:), allocatable :: aero_salt_tbl ! ext, ssa, g (nval, nrh, nbin, nbnd) real ( wp ), dimension (:,:,: ), allocatable :: aero_sulf_tbl ! ext, ssa, g (nval, nrh, nbnd) real ( wp ), dimension (:,: ), allocatable :: aero_bcar_tbl ! ext, ssa, g (nval, nbnd) real ( wp ), dimension (:,:,: ), allocatable :: aero_bcar_rh_tbl ! ext, ssa, g (nval, nrh, nbnd) real ( wp ), dimension (:,: ), allocatable :: aero_ocar_tbl ! ext, ssa, g (nval, nbnd) real ( wp ), dimension (:,:,: ), allocatable :: aero_ocar_rh_tbl ! ext, ssa, g (nval, nrh, nbnd) ! ! ----- contains generic , public :: load => load_lut procedure , public :: finalize procedure , public :: aerosol_optics ! Internal procedures procedure , private :: load_lut end type ty_aerosol_optics_rrtmgp_merra contains ! ------------------------------------------------------------------------------ ! ! Routines to load data needed for aerosol optics calculations from lookup-tables. ! ! ------------------------------------------------------------------------------ function load_lut ( this , band_lims_wvn , & merra_aero_bin_lims , aero_rh , & aero_dust_tbl , aero_salt_tbl , aero_sulf_tbl , & aero_bcar_tbl , aero_bcar_rh_tbl , & aero_ocar_tbl , aero_ocar_rh_tbl ) & result ( error_msg ) class ( ty_aerosol_optics_rrtmgp_merra ), & intent ( inout ) :: this real ( wp ), dimension (:,:), intent ( in ) :: band_lims_wvn ! spectral discretization ! Lookup table interpolation constants real ( wp ), dimension (:,:), intent ( in ) :: merra_aero_bin_lims ! aerosol lut size bin limiits (pair,nbin) real ( wp ), dimension (:), intent ( in ) :: aero_rh ! relative humidity LUT dimension values ! LUT coefficients ! Extinction, single-scattering albedo, and asymmetry parameter for aerosol types real ( wp ), dimension (:,:,:), intent ( in ) :: aero_dust_tbl real ( wp ), dimension (:,:,:,:), intent ( in ) :: aero_salt_tbl real ( wp ), dimension (:,:,:), intent ( in ) :: aero_sulf_tbl real ( wp ), dimension (:,:), intent ( in ) :: aero_bcar_tbl real ( wp ), dimension (:,:,:), intent ( in ) :: aero_bcar_rh_tbl real ( wp ), dimension (:,:), intent ( in ) :: aero_ocar_tbl real ( wp ), dimension (:,:,:), intent ( in ) :: aero_ocar_rh_tbl character ( len = 128 ) :: error_msg ! ------- ! ! Local variables ! integer :: npair , nval , nrh , nbin , nband error_msg = this % init ( band_lims_wvn , name = \"RRTMGP aerosol optics\" ) ! ! LUT coefficient dimensions ! npair = size ( merra_aero_bin_lims , dim = 1 ) nval = size ( aero_salt_tbl , dim = 1 ) nrh = size ( aero_salt_tbl , dim = 2 ) nbin = size ( aero_salt_tbl , dim = 3 ) nband = size ( aero_salt_tbl , dim = 4 ) ! ! Error checking ! if ( check_extents ) then error_msg = '' if (. not . extents_are ( aero_dust_tbl , nval , nbin , nband )) & error_msg = \"aerosol_optics%load_lut(): array aero_dust_tbl isn't consistently sized\" if (. not . extents_are ( aero_salt_tbl , nval , nrh , nbin , nband )) & error_msg = \"aerosol_optics%load_lut(): array aero_salt_tbl isn't consistently sized\" if (. not . extents_are ( aero_sulf_tbl , nval , nrh , nband )) & error_msg = \"aerosol_optics%load_lut(): array aero_sulf_tbl isn't consistently sized\" if (. not . extents_are ( aero_bcar_rh_tbl , nval , nrh , nband )) & error_msg = \"aerosol_optics%load_lut(): array aero_bcar_rh_tbl isn't consistently sized\" if (. not . extents_are ( aero_bcar_tbl , nval , nband )) & error_msg = \"aerosol_optics%load_lut(): array aero_bcar_tbl isn't consistently sized\" if (. not . extents_are ( aero_ocar_rh_tbl , nval , nrh , nband )) & error_msg = \"aerosol_optics%load_lut(): array aero_ocar_rh_tbl isn't consistently sized\" if (. not . extents_are ( aero_ocar_tbl , nval , nband )) & error_msg = \"aerosol_optics%load_lut(): array aero_ocar_tbl isn't consistently sized\" if ( error_msg /= \"\" ) return endif ! Allocate LUT parameters allocate ( this % merra_aero_bin_lims ( npair , nbin )) allocate ( this % aero_rh ( nrh )) ! Allocate LUT coefficients allocate ( this % aero_dust_tbl ( nval , nbin , nband ), & this % aero_salt_tbl ( nrh , nval , nbin , nband ), & this % aero_sulf_tbl ( nrh , nval , nband ), & this % aero_bcar_tbl ( nval , nband ), & this % aero_bcar_rh_tbl ( nrh , nval , nband ), & this % aero_ocar_tbl ( nval , nband ), & this % aero_ocar_rh_tbl ( nrh , nval , nband )) ! Copy LUT coefficients this % merra_aero_bin_lims = merra_aero_bin_lims this % aero_rh = aero_rh this % aero_dust_tbl = aero_dust_tbl this % aero_bcar_tbl = aero_bcar_tbl this % aero_ocar_tbl = aero_ocar_tbl this % aero_salt_tbl = reshape ( aero_salt_tbl , shape = ( / nrh , nval , nbin , nband / ), order = ( / 2 , 1 , 3 , 4 / ) ) this % aero_sulf_tbl = reshape ( aero_sulf_tbl , shape = ( / nrh , nval , nband / ), order = ( / 2 , 1 , 3 / ) ) this % aero_bcar_rh_tbl = reshape ( aero_bcar_rh_tbl , shape = ( / nrh , nval , nband / ), order = ( / 2 , 1 , 3 / ) ) this % aero_ocar_rh_tbl = reshape ( aero_ocar_rh_tbl , shape = ( / nrh , nval , nband / ), order = ( / 2 , 1 , 3 / ) ) !$acc enter data create(this)                                               & !$acc            copyin(this%aero_dust_tbl, this%aero_salt_tbl, this%aero_sulf_tbl)  & !$acc            copyin(this%aero_bcar_tbl, this%aero_bcar_rh_tbl)          & !$acc            copyin(this%aero_ocar_tbl, this%aero_ocar_rh_tbl)          & !$acc            copyin(this%merra_aero_bin_lims, this%aero_rh) !$omp target enter data & !$omp map(to:this%aero_dust_tbl, this%aero_salt_tbl, this%aero_sulf_tbl) & !$omp map(to:this%aero_bcar_tbl, this%aero_bcar_rh_tbl)                  & !$omp map(to:this%aero_ocar_tbl, this%aero_ocar_rh_tbl)                  & !$omp map(to:this%merra_aero_bin_lims, this%aero_rh) end function load_lut !-------------------------------------------------------------------------------------------------------------------- ! ! Finalize ! !-------------------------------------------------------------------------------------------------------------------- subroutine finalize ( this ) class ( ty_aerosol_optics_rrtmgp_merra ), intent ( inout ) :: this ! Lookup table aerosol optics interpolation arrays if ( allocated ( this % merra_aero_bin_lims )) then deallocate ( this % merra_aero_bin_lims , this % aero_rh ) !$acc        exit data delete(     this%merra_aero_bin_lims, this%aero_rh) !$omp target exit data map(release:this%merra_aero_bin_lims, this%aero_rh) end if ! Lookup table aerosol optics coefficients if ( allocated ( this % aero_dust_tbl )) then !$acc exit data delete(this%aero_dust_tbl, this%aero_salt_tbl, this%aero_sulf_tbl)  & !$acc           delete(this%aero_bcar_tbl, this%aero_bcar_rh_tbl) & !$acc           delete(this%aero_ocar_tbl, this%aero_ocar_rh_tbl) & !$acc           delete(this) !$omp target exit data map(release:this%aero_dust_tbl, this%aero_salt_tbl, this%aero_sulf_tbl) & !$omp                  map(release:this%aero_bcar_tbl, this%aero_bcar_rh_tbl)                  & !$omp                  map(release:this%aero_ocar_tbl, this%aero_ocar_rh_tbl) deallocate ( this % aero_dust_tbl , this % aero_salt_tbl , this % aero_sulf_tbl , & this % aero_bcar_tbl , this % aero_bcar_rh_tbl , & this % aero_ocar_tbl , this % aero_ocar_rh_tbl ) end if end subroutine finalize ! ------------------------------------------------------------------------------ ! ! Derive aerosol optical properties from provided aerosol input properties ! ! ------------------------------------------------------------------------------ ! ! Compute single-scattering properties ! function aerosol_optics ( this , aero_type , aero_size , aero_mass , relhum , & optical_props ) result ( error_msg ) class ( ty_aerosol_optics_rrtmgp_merra ), & intent ( in ) :: this integer , intent ( in ) :: aero_type (:,:) ! MERRA2/GOCART aerosol type ! Dimensions: (ncol,nlay) ! 1 = merra_aero_dust    (dust) ! 2 = merra_aero_salt    (salt) ! 3 = merra_aero_sulf    (sulfate) ! 4 = merra_aero_bcar_rh (black carbon, hydrophilic) ! 5 = merra_aero_bcar    (black carbon, hydrophobic) ! 6 = merra_aero_ocar_rh (organic carbon, hydrophilic) ! 7 = merra_aero_ocar    (organic carbon, hydrophobic) real ( wp ), intent ( in ) :: aero_size (:,:) ! aerosol size (radius) for dust and sea-salt (microns) ! Dimensions: (ncol,nlay) real ( wp ), intent ( in ) :: aero_mass (:,:) ! aerosol mass column (kg/m2) ! Dimensions: (ncol,nlay) real ( wp ), intent ( in ) :: relhum (:,:) ! relative humidity (fraction, 0-1) ! Dimensions: (ncol,nlay) class ( ty_optical_props_arry ), & intent ( inout ) :: optical_props ! Dimensions: (ncol,nlay,nbnd) character ( len = 128 ) :: error_msg ! ------- Local ------- logical ( wl ), dimension ( size ( aero_type , 1 ), size ( aero_type , 2 )) :: aeromsk real ( wp ), dimension ( size ( aero_type , 1 ), size ( aero_type , 2 ), size ( this % aero_dust_tbl , 3 )) :: & atau , ataussa , ataussag integer :: ncol , nlay , npair , nbin , nrh , nval , nbnd integer :: icol , ilay , ibnd , ibin ! scalars for total tau, tau*ssa real ( wp ) :: tau , taussa ! Scalars to work around OpenACC/OMP issues real ( wp ) :: minSize , maxSize ! ---------------------------------------- ! ! Error checking ! ! ---------------------------------------- error_msg = '' if (. not .( allocated ( this % aero_dust_tbl ))) then error_msg = 'aerosol optics: no data has been initialized' return end if ncol = size ( aero_type , 1 ) nlay = size ( aero_type , 2 ) npair = size ( this % merra_aero_bin_lims , 1 ) nbin = size ( this % merra_aero_bin_lims , 2 ) nrh = size ( this % aero_rh , 1 ) nval = size ( this % aero_dust_tbl , 1 ) nbnd = size ( this % aero_dust_tbl , 3 ) !$acc        update host(this%merra_aero_bin_lims) !$omp target update from(this%merra_aero_bin_lims) minSize = this % merra_aero_bin_lims ( 1 , 1 ) maxSize = this % merra_aero_bin_lims ( 2 , nbin ) ! ! Array sizes ! if ( check_extents ) then error_msg = '' if (. not . extents_are ( aero_type , ncol , nlay )) & error_msg = \"aerosol optics: aero_type isn't consistenly sized\" if (. not . extents_are ( aero_size , ncol , nlay )) & error_msg = \"aerosol optics: aero_size isn't consistenly sized\" if (. not . extents_are ( aero_mass , ncol , nlay )) & error_msg = \"aerosol optics: aero_mass isn't consistenly sized\" if (. not . extents_are ( relhum , ncol , nlay )) & error_msg = \"aerosol optics: relhum isn't consistenly sized\" if ( optical_props % get_ncol () /= ncol . or . optical_props % get_nlay () /= nlay ) & error_msg = \"aerosol optics: optical_props have wrong extents\" if ( error_msg /= \"\" ) return end if ! ! Spectral consistency ! if ( check_values ) then if (. not . this % bands_are_equal ( optical_props )) & error_msg = \"aerosol optics: optical properties don't have the same band structure\" if ( optical_props % get_nband () /= optical_props % get_ngpt () ) & error_msg = \"aerosol optics: optical properties must be requested by band not g-points\" if ( any_int_vals_outside_2D ( aero_type , merra_aero_none , merra_ntype )) & error_msg = 'aerosol optics: aerosol type is out of bounds' if ( error_msg /= \"\" ) return end if !$acc data        copyin(aero_type, aero_size, aero_mass, relhum) !$omp target data map(to:aero_type, aero_size, aero_mass, relhum) ! ! Aerosol mask; don't need aerosol optics if there's no aerosol ! !$acc data           create(aeromsk) !$omp target data map(alloc:aeromsk) !$acc              parallel loop default(present) collapse(2) !$omp target teams distribute parallel do simd collapse(2) do ilay = 1 , nlay do icol = 1 , ncol aeromsk ( icol , ilay ) = aero_type ( icol , ilay ) > 0 end do end do ! ! Aerosol size, relative humidity ! if ( check_values ) then if ( any_vals_outside ( aero_size , aeromsk , minSize , maxSize )) & error_msg = 'aerosol optics: requested aerosol size is out of bounds' if ( any_vals_outside ( relhum , aeromsk , 0._wp , 1._wp )) & error_msg = 'aerosol optics: relative humidity fraction is out of bounds' end if ! Release aerosol mask !$acc end data !$omp end target data if ( error_msg == \"\" ) then !$acc data           create(atau, ataussa, ataussag) !$omp target data map(alloc:atau, ataussa, ataussag) ! ! ! ---------------------------------------- ! ! The lookup tables determining extinction coefficient, single-scattering albedo, !   and asymmetry parameter g as a function of aerosol type, aerosol size and !   relative humidity. ! We compute the optical depth tau (= exintinction coeff * aerosol mass ) and the !    products tau*ssa and tau*ssa*g separately for each aerosol type requested. ! These are used to determine the aerosol optical properties. ! if ( allocated ( this % aero_dust_tbl )) then ! ! Aerosol ! call compute_all_from_table ( ncol , nlay , npair , nval , nrh , nbin , nbnd , & aero_type , aero_size , aero_mass , relhum , & this % merra_aero_bin_lims , this % aero_rh , & this % aero_dust_tbl , this % aero_salt_tbl , this % aero_sulf_tbl , & this % aero_bcar_rh_tbl , this % aero_bcar_tbl , & this % aero_ocar_rh_tbl , this % aero_ocar_tbl , & atau , ataussa , ataussag ) endif ! ! Derive total aerosol optical properties !   See also the increment routines in mo_optical_props_kernels ! select type ( optical_props ) type is ( ty_optical_props_1scl ) !$acc parallel loop gang vector default(present) collapse(3) & !$acc               copyin(optical_props) copyout(optical_props%tau) !$omp target teams distribute parallel do simd collapse(3) & !$omp map(from:optical_props%tau) do ibnd = 1 , nbnd do ilay = 1 , nlay do icol = 1 , ncol ! Absorption optical depth  = (1-ssa) * tau = tau - taussa optical_props % tau ( icol , ilay , ibnd ) = ( atau ( icol , ilay , ibnd ) - ataussa ( icol , ilay , ibnd )) end do end do end do type is ( ty_optical_props_2str ) !$acc parallel loop gang vector default(present) collapse(3) & !$acc               copyin(optical_props) copyout(optical_props%tau, optical_props%ssa, optical_props%g) !$omp target teams distribute parallel do simd collapse(3) & !$omp map(from:optical_props%tau, optical_props%ssa, optical_props%g) do ibnd = 1 , nbnd do ilay = 1 , nlay do icol = 1 , ncol tau = atau ( icol , ilay , ibnd ) taussa = ataussa ( icol , ilay , ibnd ) optical_props % tau ( icol , ilay , ibnd ) = tau optical_props % ssa ( icol , ilay , ibnd ) = taussa / max ( epsilon ( tau ), tau ) optical_props % g ( icol , ilay , ibnd ) = ( ataussag ( icol , ilay , ibnd )) & / max ( epsilon ( tau ), taussa ) end do end do end do type is ( ty_optical_props_nstr ) error_msg = \"aerosol optics: n-stream calculations not yet supported\" end select !$acc end data !$omp end target data end if !$acc end data !$omp end target data end function aerosol_optics !-------------------------------------------------------------------------------------------------------------------- ! ! Ancillary functions ! !-------------------------------------------------------------------------------------------------------------------- ! ! For size dimension, select size bin appropriate for the requested aerosol size. ! For rh dimension, linearly interpolate values from a lookup table with \"nrh\" !   unevenly-spaced elements \"aero_rh\". The last dimension for all tables is band. ! Returns zero where no aerosol is present. ! subroutine compute_all_from_table ( ncol , nlay , npair , nval , nrh , nbin , nbnd , & type , size , mass , rh , & merra_aero_bin_lims , aero_rh , & aero_dust_tbl , aero_salt_tbl , aero_sulf_tbl , & aero_bcar_rh_tbl , aero_bcar_tbl , & aero_ocar_rh_tbl , aero_ocar_tbl , & tau , taussa , taussag ) integer , intent ( in ) :: ncol , nlay , npair , nval , nrh , nbin , nbnd integer , dimension ( ncol , nlay ), intent ( in ) :: type real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: size , mass , rh real ( wp ), dimension ( npair , nbin ), intent ( in ) :: merra_aero_bin_lims real ( wp ), dimension ( nrh ), intent ( in ) :: aero_rh real ( wp ), dimension ( nval , nbin , nbnd ), intent ( in ) :: aero_dust_tbl real ( wp ), dimension ( nrh , nval , nbin , nbnd ), intent ( in ) :: aero_salt_tbl real ( wp ), dimension ( nrh , nval , nbnd ), intent ( in ) :: aero_sulf_tbl real ( wp ), dimension ( nrh , nval , nbnd ), intent ( in ) :: aero_bcar_rh_tbl real ( wp ), dimension ( nval , nbnd ), intent ( in ) :: aero_bcar_tbl real ( wp ), dimension ( nrh , nval , nbnd ), intent ( in ) :: aero_ocar_rh_tbl real ( wp ), dimension ( nval , nbnd ), intent ( in ) :: aero_ocar_tbl real ( wp ), dimension ( ncol , nlay , nbnd ), intent ( out ) :: tau , taussa , taussag ! --------------------------- integer :: icol , ilay , ibnd , ibin , i integer :: itype , irh1 , irh2 real ( wp ) :: drh0 , drh1 , rdrh real ( wp ) :: t , ts , tsg ! tau, tau*ssa, tau*ssa*g ! --------------------------- !$acc parallel loop gang vector default(present) collapse(3) !$omp target teams distribute parallel do simd collapse(3) do ibnd = 1 , nbnd do ilay = 1 , nlay do icol = 1 , ncol ! Sequential loop to find size bin do i = 1 , nbin if ( size ( icol , ilay ) . ge . merra_aero_bin_lims ( 1 , i ) . and . & size ( icol , ilay ) . le . merra_aero_bin_lims ( 2 , i )) then ibin = i endif enddo itype = type ( icol , ilay ) ! relative humidity linear interpolation coefficients if ( itype . ne . merra_aero_none ) then irh2 = 1 do while ( rh ( icol , ilay ) . gt . aero_rh ( irh2 )) irh2 = irh2 + 1 if ( irh2 . gt . nrh ) exit enddo irh1 = max ( 1 , irh2 - 1 ) irh2 = min ( nrh , irh2 ) drh0 = aero_rh ( irh2 ) - aero_rh ( irh1 ) drh1 = rh ( icol , ilay ) - aero_rh ( irh1 ) if ( irh1 == irh2 ) then rdrh = 0._wp else rdrh = drh1 / drh0 endif endif ! Set aerosol optical properties where aerosol present. Use aerosol type array as the mask. select case ( itype ) ! dust case ( merra_aero_dust ) tau ( icol , ilay , ibnd ) = mass ( icol , ilay ) * aero_dust_tbl ( ext , ibin , ibnd ) taussa ( icol , ilay , ibnd ) = tau ( icol , ilay , ibnd ) * aero_dust_tbl ( ssa , ibin , ibnd ) taussag ( icol , ilay , ibnd ) = taussa ( icol , ilay , ibnd ) * aero_dust_tbl ( g , ibin , ibnd ) ! sea-salt case ( merra_aero_salt ) tau ( icol , ilay , ibnd ) = mass ( icol , ilay ) * & linear_interp_aero_table ( aero_salt_tbl (:, ext , ibin , ibnd ), irh1 , irh2 , rdrh ) taussa ( icol , ilay , ibnd ) = tau ( icol , ilay , ibnd ) * & linear_interp_aero_table ( aero_salt_tbl (:, ssa , ibin , ibnd ), irh1 , irh2 , rdrh ) taussag ( icol , ilay , ibnd ) = taussa ( icol , ilay , ibnd ) * & linear_interp_aero_table ( aero_salt_tbl (:, g , ibin , ibnd ), irh1 , irh2 , rdrh ) ! sulfate case ( merra_aero_sulf ) tau ( icol , ilay , ibnd ) = mass ( icol , ilay ) * & linear_interp_aero_table ( aero_sulf_tbl (:, ext , ibnd ), irh1 , irh2 , rdrh ) taussa ( icol , ilay , ibnd ) = tau ( icol , ilay , ibnd ) * & linear_interp_aero_table ( aero_sulf_tbl (:, ssa , ibnd ), irh1 , irh2 , rdrh ) taussag ( icol , ilay , ibnd ) = taussa ( icol , ilay , ibnd ) * & linear_interp_aero_table ( aero_sulf_tbl (:, g , ibnd ), irh1 , irh2 , rdrh ) ! black carbon - hydrophilic case ( merra_aero_bcar_rh ) tau ( icol , ilay , ibnd ) = mass ( icol , ilay ) * & linear_interp_aero_table ( aero_bcar_rh_tbl (:, ext , ibnd ), irh1 , irh2 , rdrh ) taussa ( icol , ilay , ibnd ) = tau ( icol , ilay , ibnd ) * & linear_interp_aero_table ( aero_bcar_rh_tbl (:, ssa , ibnd ), irh1 , irh2 , rdrh ) taussag ( icol , ilay , ibnd ) = taussa ( icol , ilay , ibnd ) * & linear_interp_aero_table ( aero_bcar_rh_tbl (:, g , ibnd ), irh1 , irh2 , rdrh ) ! black carbon - hydrophobic case ( merra_aero_bcar ) tau ( icol , ilay , ibnd ) = mass ( icol , ilay ) * aero_bcar_tbl ( ext , ibnd ) taussa ( icol , ilay , ibnd ) = tau ( icol , ilay , ibnd ) * aero_bcar_tbl ( ssa , ibnd ) taussag ( icol , ilay , ibnd ) = taussa ( icol , ilay , ibnd ) * aero_bcar_tbl ( g , ibnd ) ! organic carbon - hydrophilic case ( merra_aero_ocar_rh ) tau ( icol , ilay , ibnd ) = mass ( icol , ilay ) * & linear_interp_aero_table ( aero_ocar_rh_tbl (:, ext , ibnd ), irh1 , irh2 , rdrh ) taussa ( icol , ilay , ibnd ) = tau ( icol , ilay , ibnd ) * & linear_interp_aero_table ( aero_ocar_rh_tbl (:, ssa , ibnd ), irh1 , irh2 , rdrh ) taussag ( icol , ilay , ibnd ) = taussa ( icol , ilay , ibnd ) * & linear_interp_aero_table ( aero_ocar_rh_tbl (:, g , ibnd ), irh1 , irh2 , rdrh ) ! organic carbon - hydrophobic case ( merra_aero_ocar ) tau ( icol , ilay , ibnd ) = mass ( icol , ilay ) * aero_ocar_tbl ( ext , ibnd ) taussa ( icol , ilay , ibnd ) = tau ( icol , ilay , ibnd ) * aero_ocar_tbl ( ssa , ibnd ) taussag ( icol , ilay , ibnd ) = taussa ( icol , ilay , ibnd ) * aero_ocar_tbl ( g , ibnd ) ! no aerosol case default tau ( icol , ilay , ibnd ) = 0._wp taussa ( icol , ilay , ibnd ) = 0._wp taussag ( icol , ilay , ibnd ) = 0._wp end select end do end do end do end subroutine compute_all_from_table !-------------------------------------------------------------------------------------------------------------------- ! ! Function for linearly interpolating MERRA aerosol optics tables in the rh dimension for ! a single parameter, aerosol type, spectral band, and size bin. Interpolation is performed ! only where aerosol in present using aerosol type as the mask. ! function linear_interp_aero_table ( table , index1 , index2 , weight ) result ( value ) !$acc routine seq !$omp declare target integer , intent ( in ) :: index1 , index2 real ( wp ), intent ( in ) :: weight real ( wp ), dimension (:), intent ( in ) :: table real ( wp ) :: value value = table ( index1 ) + weight * ( table ( index2 ) - table ( index1 )) end function linear_interp_aero_table ! ---------------------------------------------------------- logical function any_int_vals_outside_2D ( array , checkMin , checkMax ) integer , dimension (:,:), intent ( in ) :: array integer , intent ( in ) :: checkMin , checkMax integer :: minValue , maxValue !$acc kernels copyin(array) !$omp target map(to:array) map(from:minValue, maxValue) minValue = minval ( array ) maxValue = maxval ( array ) !$acc end kernels !$omp end target any_int_vals_outside_2D = minValue < checkMin . or . maxValue > checkMax end function any_int_vals_outside_2D end module mo_aerosol_optics_rrtmgp_merra","tags":"","loc":"sourcefile/mo_aerosol_optics_rrtmgp_merra.f90.html"},{"title":"mo_gas_optics_rrtmgp.F90 – RRTMGP-Fortran","text":"Contents Modules mo_gas_optics_rrtmgp Source Code mo_gas_optics_rrtmgp.F90 Source Code ! This code is part of RRTM for GCM Applications - Parallel (RRTMGP) ! ! Contacts: Robert Pincus and Eli Mlawer ! email:  rrtmgp@aer.com ! ! Copyright 2015-,  Atmospheric and Environmental Research, ! Regents of the University of Colorado, Trustees of Columbia University.  All right reserved. ! ! Use and duplication is permitted under the terms of the !    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause ! ------------------------------------------------------------------------------------------------- ! !> ## Class implementing the RRTMGP correlated-_k_ distribution !> !> Implements a class for computing spectrally-resolved gas optical properties and source functions !>   given atmopsheric physical properties (profiles of temperature, pressure, and gas concentrations) !>   The class must be initialized with data (provided as a netCDF file) before being used. !> !> Two variants apply to internal Planck sources (longwave radiation in the Earth's atmosphere) and to !>   external stellar radiation (shortwave radiation in the Earth's atmosphere). !>   The variant is chosen based on what information is supplied during initialization. !   (It might make more sense to define two sub-classes) ! ! ------------------------------------------------------------------------------------------------- module mo_gas_optics_rrtmgp use mo_rte_kind , only : wp , wl use mo_rte_config , only : check_extents , check_values use mo_rte_util_array , only : zero_array use mo_rte_util_array_validation , & only : any_vals_less_than , any_vals_outside , extents_are use mo_optical_props , only : ty_optical_props use mo_source_functions , only : ty_source_func_lw use mo_gas_optics_rrtmgp_kernels , & only : interpolation , compute_tau_absorption , compute_tau_rayleigh , compute_Planck_source use mo_gas_optics_constants , only : avogad , m_dry , m_h2o , grav use mo_gas_optics_util_string , only : lower_case , string_in_array , string_loc_in_array use mo_gas_concentrations , only : ty_gas_concs use mo_optical_props , only : ty_optical_props_arry , ty_optical_props_1scl , ty_optical_props_2str , ty_optical_props_nstr use mo_gas_optics , only : ty_gas_optics implicit none private real ( wp ), parameter :: pi = acos ( - 1._wp ) ! ------------------------------------------------------------------------------------------------- type , extends ( ty_gas_optics ), public :: ty_gas_optics_rrtmgp private ! ! RRTMGP computes absorption in each band arising from !   two major species in each band, which are combined to make !     a relative mixing ratio eta and a total column amount (col_mix) !   contributions from zero or more minor species whose concentrations !     may be scaled by other components of the atmosphere ! ! Absorption coefficients are interpolated from tables on a pressure/temperature/(eta) grid ! ! ------------------------------------ ! Interpolation variables: Temperature and pressure grids ! real ( wp ), dimension (:), allocatable :: press_ref , press_ref_log , temp_ref ! ! Derived and stored for convenience: !   Min and max for temperature and pressure intepolation grids !   difference in ln pressure between consecutive reference levels !   log of reference pressure separating the lower and upper atmosphere ! real ( wp ) :: press_ref_min , press_ref_max , & temp_ref_min , temp_ref_max real ( wp ) :: press_ref_log_delta , temp_ref_delta , press_ref_trop_log ! ------------------------------------ ! Major absorbers (\"key species\") !   Each unique set of major species is called a flavor. ! ! Names  and reference volume mixing ratios of major gases ! character ( 32 ), dimension (:), allocatable :: gas_names ! gas names real ( wp ), dimension (:,:,:), allocatable :: vmr_ref ! vmr_ref(lower or upper atmosphere, gas, temp) ! ! Which two gases are in each flavor? By index ! integer , dimension (:,:), allocatable :: flavor ! major species pair; (2,nflav) ! ! Which flavor for each g-point? One each for lower, upper atmosphere ! integer , dimension (:,:), allocatable :: gpoint_flavor ! flavor = gpoint_flavor(2, g-point) ! ! Major gas absorption coefficients ! real ( wp ), dimension (:,:,:,:), allocatable :: kmajor !  kmajor(g-point,eta,pressure,temperature) ! ! ------------------------------------ ! Minor species, independently for upper and lower atmospheres !   Array extents in the n_minor dimension will differ between upper and lower atmospheres !   Each contribution has starting and ending g-points ! integer , dimension (:,:), allocatable :: minor_limits_gpt_lower , & minor_limits_gpt_upper ! ! Minor gas contributions might be scaled by other gas amounts; if so we need to know !   the total density and whether the contribution is scaled by the partner gas !   or its complement (i.e. all other gases) ! Water vapor self- and foreign continua work like this, as do !   all collision-induced abosption pairs ! logical ( wl ), dimension (:), allocatable :: minor_scales_with_density_lower , & minor_scales_with_density_upper logical ( wl ), dimension (:), allocatable :: scale_by_complement_lower , scale_by_complement_upper integer , dimension (:), allocatable :: idx_minor_lower , idx_minor_upper integer , dimension (:), allocatable :: idx_minor_scaling_lower , idx_minor_scaling_upper ! ! Index into table of absorption coefficients ! integer , dimension (:), allocatable :: kminor_start_lower , kminor_start_upper ! ! The absorption coefficients themselves ! real ( wp ), dimension (:,:,:), allocatable :: kminor_lower , kminor_upper ! kminor_lower(n_minor,eta,temperature) ! ! ----------------------------------------------------------------------------------- ! ! Rayleigh scattering coefficients ! real ( wp ), dimension (:,:,:,:), allocatable :: krayl ! krayl(g-point,eta,temperature,upper/lower atmosphere) ! ! ----------------------------------------------------------------------------------- ! Planck function spectral mapping !   Allocated only when gas optics object is internal-source ! real ( wp ), dimension (:,:,:,:), allocatable :: planck_frac ! stored fraction of Planck irradiance in band for given g-point ! planck_frac(g-point, eta, pressure, temperature) real ( wp ), dimension (:,:), allocatable :: totplnk ! integrated Planck irradiance by band; (Planck temperatures,band) real ( wp ) :: totplnk_delta ! temperature steps in totplnk real ( wp ), dimension (:,:), allocatable :: optimal_angle_fit ! coefficients of linear function ! of vertical path clear-sky transmittance that is used to ! determine the secant of single angle used for the ! no-scattering calculation, ! optimal_angle_fit(coefficient, band) ! ----------------------------------------------------------------------------------- ! Solar source function spectral mapping with solar variability capability !   Allocated  when gas optics object is external-source !   n-solar-terms: quiet sun, facular brightening and sunspot dimming components !   following the NRLSSI2 model of Coddington et al. 2016, doi:10.1175/BAMS-D-14-00265.1. ! real ( wp ), dimension (:), allocatable :: solar_source ! incoming solar irradiance, computed from other three terms (g-point) real ( wp ), dimension (:), allocatable :: solar_source_quiet ! incoming solar irradiance, quiet sun term (g-point) real ( wp ), dimension (:), allocatable :: solar_source_facular ! incoming solar irradiance, facular term (g-point) real ( wp ), dimension (:), allocatable :: solar_source_sunspot ! incoming solar irradiance, sunspot term (g-point) ! ! ----------------------------------------------------------------------------------- ! Ancillary ! ----------------------------------------------------------------------------------- ! Index into %gas_names -- is this a key species in any band? logical , dimension (:), allocatable :: is_key ! ----------------------------------------------------------------------------------- contains ! Type-bound procedures ! Public procedures ! public interface generic , public :: load => load_int , load_ext procedure , public :: source_is_internal procedure , public :: source_is_external procedure , public :: is_loaded procedure , public :: finalize procedure , public :: get_ngas procedure , public :: get_gases procedure , public :: get_press_min procedure , public :: get_press_max procedure , public :: get_temp_min procedure , public :: get_temp_max procedure , public :: compute_optimal_angles procedure , public :: set_solar_variability procedure , public :: set_tsi ! Internal procedures procedure , private :: load_int procedure , private :: load_ext procedure , public :: gas_optics_int procedure , public :: gas_optics_ext procedure , private :: check_key_species_present ! Interpolation table dimensions procedure , private :: get_nflav procedure , private :: get_neta procedure , private :: get_npres procedure , private :: get_ntemp procedure , private :: get_nPlanckTemp end type ty_gas_optics_rrtmgp ! ------------------------------------------------------------------------------------------------- ! !> col_dry is the number of molecules per cm-2 of dry air ! public :: get_col_dry ! Utility function, not type-bound contains ! -------------------------------------------------------------------------------------- ! ! Public procedures ! ! -------------------------------------------------------------------------------------- ! !> Two functions to define array sizes needed by gas_optics() ! pure function get_ngas ( this ) ! return the number of gases registered in the spectral configuration class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this integer :: get_ngas get_ngas = size ( this % gas_names ) end function get_ngas !-------------------------------------------------------------------------------------------------------------------- ! !> return the number of distinct major gas pairs in the spectral bands (referred to as !> \"flavors\" - all bands have a flavor even if there is one or no major gas) ! pure function get_nflav ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this integer :: get_nflav get_nflav = size ( this % flavor , dim = 2 ) end function get_nflav !-------------------------------------------------------------------------------------------------------------------- ! !> Compute gas optical depth and Planck source functions, !>  given temperature, pressure, and composition ! function gas_optics_int ( this , & play , plev , tlay , tsfc , gas_desc , & optical_props , sources , & col_dry , tlev ) result ( error_msg ) ! inputs class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this real ( wp ), dimension (:,:), intent ( in ) :: play , & !! layer pressures [Pa, mb]; (ncol,nlay) plev , & !! level pressures [Pa, mb]; (ncol,nlay+1) tlay !! layer temperatures [K]; (ncol,nlay) real ( wp ), dimension (:), intent ( in ) :: tsfc !! surface skin temperatures [K]; (ncol) type ( ty_gas_concs ), intent ( in ) :: gas_desc !! Gas volume mixing ratios ! output class ( ty_optical_props_arry ), & intent ( inout ) :: optical_props !! Optical properties class ( ty_source_func_lw ), & intent ( inout ) :: sources !! Planck sources character ( len = 128 ) :: error_msg !! Empty if succssful ! Optional inputs real ( wp ), dimension (:,:), intent ( in ), & optional , target :: col_dry , & !! Column dry amount; dim(ncol,nlay) tlev !! level temperatures [K]; (ncol,nlay+1) ! ---------------------------------------------------------- ! Local variables ! Interpolation coefficients for use in source function integer , dimension ( size ( play , dim = 1 ), size ( play , dim = 2 )) :: jtemp , jpress logical ( wl ), dimension ( size ( play , dim = 1 ), size ( play , dim = 2 )) :: tropo real ( wp ), dimension ( 2 , 2 , 2 , size ( play , dim = 1 ), size ( play , dim = 2 ), get_nflav ( this )) :: fmajor integer , dimension ( 2 , size ( play , dim = 1 ), size ( play , dim = 2 ), get_nflav ( this )) :: jeta integer :: ncol , nlay , ngpt , nband ! ---------------------------------------------------------- ncol = size ( play , dim = 1 ) nlay = size ( play , dim = 2 ) ngpt = this % get_ngpt () nband = this % get_nband () ! ! Gas optics ! !$acc enter data create(jtemp, jpress, tropo, fmajor, jeta) !$omp target enter data map(alloc:jtemp, jpress, tropo, fmajor, jeta) error_msg = compute_gas_taus ( this , & ncol , nlay , ngpt , nband , & play , plev , tlay , gas_desc , & optical_props , & jtemp , jpress , jeta , tropo , fmajor , & col_dry ) if ( error_msg /= '' ) return ! ---------------------------------------------------------- ! ! External source -- check arrays sizes and values ! input data sizes and values ! !$acc enter data copyin(tsfc, tlev) ! Should be fine even if tlev is not supplied !$omp target enter data map(to:tsfc, tlev) if ( check_extents ) then if (. not . extents_are ( tsfc , ncol )) & error_msg = \"gas_optics(): array tsfc has wrong size\" if ( present ( tlev )) then if (. not . extents_are ( tlev , ncol , nlay + 1 )) & error_msg = \"gas_optics(): array tlev has wrong size\" end if ! !   output extents ! if ( any ([ sources % get_ncol (), sources % get_nlay (), sources % get_ngpt ()] /= [ ncol , nlay , ngpt ])) & error_msg = \"gas_optics%gas_optics: source function arrays inconsistently sized\" end if if ( error_msg /= '' ) return if ( check_values ) then if ( any_vals_outside ( tsfc , this % temp_ref_min , this % temp_ref_max )) & error_msg = \"gas_optics(): array tsfc has values outside range\" if ( present ( tlev )) then if ( any_vals_outside ( tlev , this % temp_ref_min , this % temp_ref_max )) & error_msg = \"gas_optics(): array tlev has values outside range\" end if end if if ( error_msg /= '' ) return ! ! Interpolate source function ! if ( present ( tlev )) then ! ! present status of optional argument should be passed to source() !   but isn't with PGI 19.10 ! error_msg = source ( this , & ncol , nlay , nband , ngpt , & play , plev , tlay , tsfc , & jtemp , jpress , jeta , tropo , fmajor , & sources , & tlev ) !$acc exit data delete(tlev) !$omp target exit data map(release:tlev) else error_msg = source ( this , & ncol , nlay , nband , ngpt , & play , plev , tlay , tsfc , & jtemp , jpress , jeta , tropo , fmajor , & sources ) end if !$acc exit data delete(tsfc) !$omp target exit data map(release:tsfc) !$acc exit data delete(jtemp, jpress, tropo, fmajor, jeta) !$omp target exit data map(release:jtemp, jpress, tropo, fmajor, jeta) end function gas_optics_int !------------------------------------------------------------------------------------------ ! !> Compute gas optical depth given temperature, pressure, and composition !>    Top-of-atmosphere stellar insolation is also reported ! function gas_optics_ext ( this , & play , plev , tlay , gas_desc , & ! mandatory inputs optical_props , toa_src , & ! mandatory outputs col_dry ) result ( error_msg ) ! optional input class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this real ( wp ), dimension (:,:), intent ( in ) :: play , & !! layer pressures [Pa, mb]; (ncol,nlay) plev , & !! level pressures [Pa, mb]; (ncol,nlay+1) tlay !! layer temperatures [K]; (ncol,nlay) type ( ty_gas_concs ), intent ( in ) :: gas_desc !! Gas volume mixing ratios ! output class ( ty_optical_props_arry ), & intent ( inout ) :: optical_props real ( wp ), dimension (:,:), intent ( out ) :: toa_src !! Incoming solar irradiance(ncol,ngpt) character ( len = 128 ) :: error_msg !! Empty if successful ! Optional inputs real ( wp ), dimension (:,:), intent ( in ), & optional , target :: col_dry ! Column dry amount; dim(ncol,nlay) ! ---------------------------------------------------------- ! Local variables ! Interpolation coefficients for use in source function integer , dimension ( size ( play , dim = 1 ), size ( play , dim = 2 )) :: jtemp , jpress logical ( wl ), dimension ( size ( play , dim = 1 ), size ( play , dim = 2 )) :: tropo real ( wp ), dimension ( 2 , 2 , 2 , size ( play , dim = 1 ), size ( play , dim = 2 ), get_nflav ( this )) :: fmajor integer , dimension ( 2 , size ( play , dim = 1 ), size ( play , dim = 2 ), get_nflav ( this )) :: jeta integer :: ncol , nlay , ngpt , nband , ngas , nflav integer :: igpt , icol ! ---------------------------------------------------------- ncol = size ( play , dim = 1 ) nlay = size ( play , dim = 2 ) ngpt = this % get_ngpt () nband = this % get_nband () ngas = this % get_ngas () nflav = get_nflav ( this ) ! ! Gas optics ! !$acc enter data create(jtemp, jpress, tropo, fmajor, jeta) !$omp target enter data map(alloc:jtemp, jpress, tropo, fmajor, jeta) error_msg = compute_gas_taus ( this , & ncol , nlay , ngpt , nband , & play , plev , tlay , gas_desc , & optical_props , & jtemp , jpress , jeta , tropo , fmajor , & col_dry ) !$acc exit data delete(jtemp, jpress, tropo, fmajor, jeta) !$omp target exit data map(release:jtemp, jpress, tropo, fmajor, jeta) if ( error_msg /= '' ) return ! ---------------------------------------------------------- ! ! External source function is constant ! !$acc enter data create(toa_src) !$omp target enter data map(alloc:toa_src) if ( check_extents ) then if (. not . extents_are ( toa_src , ncol , ngpt )) & error_msg = \"gas_optics(): array toa_src has wrong size\" end if if ( error_msg /= '' ) return !$acc parallel loop collapse(2) !$omp target teams distribute parallel do simd collapse(2) do igpt = 1 , ngpt do icol = 1 , ncol toa_src ( icol , igpt ) = this % solar_source ( igpt ) end do end do !$acc exit data copyout(toa_src) !$omp target exit data map(from:toa_src) end function gas_optics_ext !------------------------------------------------------------------------------------------ ! ! Returns optical properties and interpolation coefficients ! function compute_gas_taus ( this , & ncol , nlay , ngpt , nband , & play , plev , tlay , gas_desc , & optical_props , & jtemp , jpress , jeta , tropo , fmajor , & col_dry ) result ( error_msg ) class ( ty_gas_optics_rrtmgp ), & intent ( in ) :: this integer , intent ( in ) :: ncol , nlay , ngpt , nband real ( wp ), dimension (:,:), intent ( in ) :: play , & ! layer pressures [Pa, mb]; (ncol,nlay) plev , & ! level pressures [Pa, mb]; (ncol,nlay+1) tlay ! layer temperatures [K]; (ncol,nlay) type ( ty_gas_concs ), intent ( in ) :: gas_desc ! Gas volume mixing ratios class ( ty_optical_props_arry ), intent ( inout ) :: optical_props !inout because components are allocated ! Interpolation coefficients for use in internal source function integer , dimension ( ncol , nlay ), intent ( out ) :: jtemp , jpress integer , dimension ( 2 , ncol , nlay , get_nflav ( this )), intent ( out ) :: jeta logical ( wl ), dimension ( ncol , nlay ), intent ( out ) :: tropo real ( wp ), dimension ( 2 , 2 , 2 , ncol , nlay , get_nflav ( this )), intent ( out ) :: fmajor character ( len = 128 ) :: error_msg ! Optional inputs real ( wp ), dimension (:,:), intent ( in ), & optional , target :: col_dry ! Column dry amount; dim(ncol,nlay) ! ---------------------------------------------------------- ! Local variables real ( wp ), dimension ( ncol , nlay , ngpt ) :: tau , tau_rayleigh ! absorption, Rayleigh scattering optical depths ! Number of molecules per cm&#94;2 real ( wp ), dimension ( ncol , nlay ), target :: col_dry_arr real ( wp ), dimension (:,:), pointer :: col_dry_wk ! ! Interpolation variables used in major gas but not elsewhere, so don't need exporting ! real ( wp ), dimension ( ncol , nlay , this % get_ngas ()) :: vmr ! volume mixing ratios real ( wp ), dimension ( ncol , nlay , 0 : this % get_ngas ()) :: col_gas ! column amounts for each gas, plus col_dry real ( wp ), dimension ( 2 , ncol , nlay , get_nflav ( this )) :: col_mix ! combination of major species's column amounts ! index(1) : reference temperature level ! index(2) : flavor ! index(3) : layer real ( wp ), dimension ( 2 , 2 , ncol , nlay , get_nflav ( this )) :: fminor ! interpolation fractions for minor species ! index(1) : reference eta level (temperature dependent) ! index(2) : reference temperature level ! index(3) : flavor ! index(4) : layer integer :: ngas , nflav , neta , npres , ntemp integer :: icol , ilay , igas integer :: idx_h2o ! index of water vapor integer :: nminorlower , nminorklower , nminorupper , nminorkupper logical :: use_rayl ! ---------------------------------------------------------- ! ! Error checking ! use_rayl = allocated ( this % krayl ) error_msg = '' ! Check for initialization if (. not . this % is_loaded ()) then error_msg = 'ERROR: spectral configuration not loaded' return end if ! ! Check for presence of key species in ty_gas_concs; return error if any key species are not present ! error_msg = this % check_key_species_present ( gas_desc ) if ( error_msg /= '' ) return ! ! Check input data sizes and values ! !$acc        data copyin(play,plev,tlay) create(   vmr,col_gas) !$omp target data map(to:play,plev,tlay) map(alloc:vmr,col_gas) if ( check_extents ) then if (. not . extents_are ( play , ncol , nlay )) & error_msg = \"gas_optics(): array play has wrong size\" if (. not . extents_are ( tlay , ncol , nlay )) & error_msg = \"gas_optics(): array tlay has wrong size\" if (. not . extents_are ( plev , ncol , nlay + 1 )) & error_msg = \"gas_optics(): array plev has wrong size\" if ( optical_props % get_ncol () /= ncol . or . & optical_props % get_nlay () /= nlay . or . & optical_props % get_ngpt () /= ngpt ) & error_msg = \"gas_optics(): optical properties have the wrong extents\" if ( present ( col_dry )) then if (. not . extents_are ( col_dry , ncol , nlay )) & error_msg = \"gas_optics(): array col_dry has wrong size\" end if end if if ( error_msg == '' ) then if ( check_values ) then if ( any_vals_outside ( play , this % press_ref_min , this % press_ref_max )) & error_msg = \"gas_optics(): array play has values outside range\" if ( any_vals_less_than ( plev , 0._wp )) & error_msg = \"gas_optics(): array plev has values outside range\" if ( any_vals_outside ( tlay , this % temp_ref_min , this % temp_ref_max )) & error_msg = \"gas_optics(): array tlay has values outside range\" if ( present ( col_dry )) then if ( any_vals_less_than ( col_dry , 0._wp )) & error_msg = \"gas_optics(): array col_dry has values outside range\" end if end if end if ! ---------------------------------------------------------- if ( error_msg == '' ) then ngas = this % get_ngas () nflav = get_nflav ( this ) neta = this % get_neta () npres = this % get_npres () ntemp = this % get_ntemp () ! number of minor contributors, total num absorption coeffs nminorlower = size ( this % minor_scales_with_density_lower ) nminorklower = size ( this % kminor_lower , 3 ) nminorupper = size ( this % minor_scales_with_density_upper ) nminorkupper = size ( this % kminor_upper , 3 ) ! ! Fill out the array of volume mixing ratios ! do igas = 1 , ngas ! ! Get vmr if  gas is provided in ty_gas_concs ! if ( any ( lower_case ( this % gas_names ( igas )) == gas_desc % get_gas_names ())) then error_msg = gas_desc % get_vmr ( this % gas_names ( igas ), vmr (:,:, igas )) endif end do end if if ( error_msg == '' ) then ! ! Painful hacks to get code to compile with both the CCE-14 and Nvidia 21.3 compiler ! #ifdef _CRAYFTN !$acc enter data copyin(optical_props) #endif select type ( optical_props ) type is ( ty_optical_props_1scl ) #ifndef _CRAYFTN !$acc enter data copyin(optical_props) #endif !$acc enter data create(   optical_props%tau) !$omp target enter data map(alloc:optical_props%tau) type is ( ty_optical_props_2str ) #ifndef _CRAYFTN !$acc enter data copyin(optical_props) #endif !$acc enter data create(   optical_props%tau, optical_props%ssa, optical_props%g) !$omp target enter data map(alloc:optical_props%tau, optical_props%ssa, optical_props%g) type is ( ty_optical_props_nstr ) #ifndef _CRAYFTN !$acc enter data copyin(optical_props) #endif !$acc enter data create(   optical_props%tau, optical_props%ssa, optical_props%p) !$omp target enter data map(alloc:optical_props%tau, optical_props%ssa, optical_props%p) end select ! ! Compute dry air column amounts (number of molecule per cm&#94;2) if user hasn't provided them ! idx_h2o = string_loc_in_array ( 'h2o' , this % gas_names ) if ( present ( col_dry )) then !$acc        enter data copyin(col_dry) !$omp target enter data map(to:col_dry) col_dry_wk => col_dry else !$acc        enter data create(   col_dry_arr) !$omp target enter data map(alloc:col_dry_arr) col_dry_arr = get_col_dry ( vmr (:,:, idx_h2o ), plev ) ! dry air column amounts computation col_dry_wk => col_dry_arr end if ! ! compute column gas amounts [molec/cm&#94;2] ! !$acc parallel loop gang vector collapse(2) !$omp target teams distribute parallel do simd collapse(2) do ilay = 1 , nlay do icol = 1 , ncol col_gas ( icol , ilay , 0 ) = col_dry_wk ( icol , ilay ) end do end do !$acc parallel loop gang vector collapse(3) !$omp target teams distribute parallel do simd collapse(3) do igas = 1 , ngas do ilay = 1 , nlay do icol = 1 , ncol col_gas ( icol , ilay , igas ) = vmr ( icol , ilay , igas ) * col_dry_wk ( icol , ilay ) end do end do end do ! ! ---- calculate gas optical depths ---- ! !$acc        data copyout( jtemp, jpress, jeta, tropo, fmajor) create(   col_mix, fminor) !$omp target data map(from:jtemp, jpress, jeta, tropo, fmajor) map(alloc:col_mix, fminor) call interpolation ( & ncol , nlay , & ! problem dimensions ngas , nflav , neta , npres , ntemp , & ! interpolation dimensions this % flavor , & this % press_ref_log , & this % temp_ref , & this % press_ref_log_delta , & this % temp_ref_min , & this % temp_ref_delta , & this % press_ref_trop_log , & this % vmr_ref , & play , & tlay , & col_gas , & jtemp , & ! outputs fmajor , fminor ,& col_mix , & tropo , & jeta , jpress ) if ( allocated ( this % krayl )) then !$acc        data copyin(this%gpoint_flavor, this%krayl)    create(tau, tau_rayleigh) !$omp target data map(to:this%gpoint_flavor, this%krayl) map(alloc:tau, tau_rayleigh) call zero_array ( ncol , nlay , ngpt , tau ) call compute_tau_absorption ( & ncol , nlay , nband , ngpt , & ! dimensions ngas , nflav , neta , npres , ntemp , & nminorlower , nminorklower , & ! number of minor contributors, total num absorption coeffs nminorupper , nminorkupper , & idx_h2o , & this % gpoint_flavor , & this % get_band_lims_gpoint (), & this % kmajor , & this % kminor_lower , & this % kminor_upper , & this % minor_limits_gpt_lower , & this % minor_limits_gpt_upper , & this % minor_scales_with_density_lower , & this % minor_scales_with_density_upper , & this % scale_by_complement_lower , & this % scale_by_complement_upper , & this % idx_minor_lower , & this % idx_minor_upper , & this % idx_minor_scaling_lower , & this % idx_minor_scaling_upper , & this % kminor_start_lower , & this % kminor_start_upper , & tropo , & col_mix , fmajor , fminor , & play , tlay , col_gas , & jeta , jtemp , jpress , & tau ) call compute_tau_rayleigh ( & !Rayleigh scattering optical depths ncol , nlay , nband , ngpt , & ngas , nflav , neta , npres , ntemp , & ! dimensions this % gpoint_flavor , & this % get_band_lims_gpoint (), & this % krayl , & ! inputs from object idx_h2o , col_dry_wk , col_gas , & fminor , jeta , tropo , jtemp , & ! local input tau_rayleigh ) call combine_abs_and_rayleigh ( tau , tau_rayleigh , optical_props ) !$acc end        data !$omp end target data else call zero_array ( ncol , nlay , ngpt , optical_props % tau ) call compute_tau_absorption ( & ncol , nlay , nband , ngpt , & ! dimensions ngas , nflav , neta , npres , ntemp , & nminorlower , nminorklower , & ! number of minor contributors, total num absorption coeffs nminorupper , nminorkupper , & idx_h2o , & this % gpoint_flavor , & this % get_band_lims_gpoint (), & this % kmajor , & this % kminor_lower , & this % kminor_upper , & this % minor_limits_gpt_lower , & this % minor_limits_gpt_upper , & this % minor_scales_with_density_lower , & this % minor_scales_with_density_upper , & this % scale_by_complement_lower , & this % scale_by_complement_upper , & this % idx_minor_lower , & this % idx_minor_upper , & this % idx_minor_scaling_lower , & this % idx_minor_scaling_upper , & this % kminor_start_lower , & this % kminor_start_upper , & tropo , & col_mix , fmajor , fminor , & play , tlay , col_gas , & jeta , jtemp , jpress , & optical_props % tau ) ! select type ( optical_props ) type is ( ty_optical_props_2str ) call zero_array ( ncol , nlay , ngpt , optical_props % ssa ) call zero_array ( ncol , nlay , ngpt , optical_props % g ) type is ( ty_optical_props_nstr ) call zero_array ( ncol , nlay , ngpt , optical_props % ssa ) call zero_array ( optical_props % get_nmom (), & ncol , nlay , ngpt , optical_props % p ) end select end if !$acc end        data !$omp end target data if ( present ( col_dry )) then !$acc        exit data delete(     col_dry) !$omp target exit data map(release:col_dry) else !$acc        exit data delete(     col_dry_arr) !$omp target exit data map(release:col_dry_arr) end if select type ( optical_props ) type is ( ty_optical_props_1scl ) !$acc        exit data copyout( optical_props%tau) !$omp target exit data map(from:optical_props%tau) type is ( ty_optical_props_2str ) !$acc        exit data copyout( optical_props%tau, optical_props%ssa, optical_props%g) !$omp target exit data map(from:optical_props%tau, optical_props%ssa, optical_props%g) type is ( ty_optical_props_nstr ) !$acc        exit data copyout( optical_props%tau, optical_props%ssa, optical_props%p) !$omp target exit data map(from:optical_props%tau, optical_props%ssa, optical_props%p) end select !$acc exit data delete(optical_props) end if !$acc end        data !$omp end target data end function compute_gas_taus !------------------------------------------------------------------------------------------ ! !> Compute the spectral solar source function adjusted to account for solar variability !>   following the NRLSSI2 model of Coddington et al. 2016, doi:10.1175/BAMS-D-14-00265.1. !> as specified by the facular brightening (mg_index) and sunspot dimming (sb_index) !> indices provided as input. !> !> Users provide the NRLSSI2 facular (\"Bremen\") index and sunspot (\"SPOT67\") index. !>   Changing either of these indicies will change the total solar irradiance (TSI) !>   Code in extensions/mo_solar_variability may be used to compute the value of these !>   indices through an average solar cycle !> Users may also specify the TSI, either alone or in conjunction with the facular and sunspot indices ! !------------------------------------------------------------------------------------------ function set_solar_variability ( this , & mg_index , sb_index , tsi ) & result ( error_msg ) ! !! Updates the spectral distribution and, optionally, !!   the integrated value of the solar source function !!  Modifying either index will change the total solar irradiance ! class ( ty_gas_optics_rrtmgp ), intent ( inout ) :: this ! real ( wp ), intent ( in ) :: mg_index !! facular brightening index (NRLSSI2 facular \"Bremen\" index) real ( wp ), intent ( in ) :: sb_index !! sunspot dimming index     (NRLSSI2 sunspot \"SPOT67\" index) real ( wp ), optional , intent ( in ) :: tsi !! total solar irradiance character ( len = 128 ) :: error_msg !! Empty if successful ! ---------------------------------------------------------- integer :: igpt real ( wp ), parameter :: a_offset = 0.1495954_wp real ( wp ), parameter :: b_offset = 0.00066696_wp ! ---------------------------------------------------------- error_msg = \"\" if ( mg_index < 0._wp ) error_msg = 'mg_index out of range' if ( sb_index < 0._wp ) error_msg = 'sb_index out of range' if ( error_msg /= \"\" ) return ! ! Calculate solar source function for provided facular and sunspot indices ! !$acc parallel loop !$omp target teams distribute parallel do simd do igpt = 1 , size ( this % solar_source_quiet ) this % solar_source ( igpt ) = this % solar_source_quiet ( igpt ) + & ( mg_index - a_offset ) * this % solar_source_facular ( igpt ) + & ( sb_index - b_offset ) * this % solar_source_sunspot ( igpt ) end do ! ! Scale solar source to input TSI value ! if ( present ( tsi )) error_msg = this % set_tsi ( tsi ) end function set_solar_variability !------------------------------------------------------------------------------------------ function set_tsi ( this , tsi ) result ( error_msg ) ! !> Scale the solar source function without changing the spectral distribution ! class ( ty_gas_optics_rrtmgp ), intent ( inout ) :: this real ( wp ), intent ( in ) :: tsi !! user-specified total solar irradiance; character ( len = 128 ) :: error_msg !! Empty if successful real ( wp ) :: norm ! ---------------------------------------------------------- error_msg = \"\" if ( tsi < 0._wp ) then error_msg = 'tsi out of range' else ! ! Scale the solar source function to the input tsi ! !$acc kernels !$omp target norm = 1._wp / sum ( this % solar_source (:)) this % solar_source (:) = this % solar_source (:) * tsi * norm !$acc end kernels !$omp end target end if end function set_tsi !------------------------------------------------------------------------------------------ ! ! Compute Planck source functions at layer centers and levels ! function source ( this , & ncol , nlay , nbnd , ngpt , & play , plev , tlay , tsfc , & jtemp , jpress , jeta , tropo , fmajor , & sources , & ! Planck sources tlev ) & ! optional input result ( error_msg ) ! inputs class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this integer , intent ( in ) :: ncol , nlay , nbnd , ngpt real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: play ! layer pressures [Pa, mb] real ( wp ), dimension ( ncol , nlay + 1 ), intent ( in ) :: plev ! level pressures [Pa, mb] real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: tlay ! layer temperatures [K] real ( wp ), dimension ( ncol ), intent ( in ) :: tsfc ! surface skin temperatures [K] ! Interplation coefficients integer , dimension ( ncol , nlay ), intent ( in ) :: jtemp , jpress logical ( wl ), dimension ( ncol , nlay ), intent ( in ) :: tropo real ( wp ), dimension ( 2 , 2 , 2 , ncol , nlay , get_nflav ( this )), & intent ( in ) :: fmajor integer , dimension ( 2 , ncol , nlay , get_nflav ( this )), & intent ( in ) :: jeta class ( ty_source_func_lw ), intent ( inout ) :: sources real ( wp ), dimension ( ncol , nlay + 1 ), intent ( in ), & optional , target :: tlev ! level temperatures [K] character ( len = 128 ) :: error_msg ! ---------------------------------------------------------- logical ( wl ) :: top_at_1 integer :: icol , ilay ! Variables for temperature at layer edges [K] (ncol, nlay+1) real ( wp ), dimension ( ncol , nlay + 1 ), target :: tlev_arr real ( wp ), dimension (:,:), pointer :: tlev_wk ! ---------------------------------------------------------- error_msg = \"\" ! ! Source function needs temperature at interfaces/levels and at layer centers ! if ( present ( tlev )) then !   Users might have provided these tlev_wk => tlev else tlev_wk => tlev_arr ! ! Interpolate temperature to levels if not provided !   Interpolation and extrapolation at boundaries is weighted by pressure ! do icol = 1 , ncol tlev_arr ( icol , 1 ) = tlay ( icol , 1 ) & + ( plev ( icol , 1 ) - play ( icol , 1 )) * ( tlay ( icol , 2 ) - tlay ( icol , 1 )) & & / ( play ( icol , 2 ) - play ( icol , 1 )) end do do ilay = 2 , nlay do icol = 1 , ncol tlev_arr ( icol , ilay ) = ( play ( icol , ilay - 1 ) * tlay ( icol , ilay - 1 ) * ( plev ( icol , ilay ) - play ( icol , ilay )) & + play ( icol , ilay ) * tlay ( icol , ilay ) * ( play ( icol , ilay - 1 ) - plev ( icol , ilay ))) / & ( plev ( icol , ilay ) * ( play ( icol , ilay - 1 ) - play ( icol , ilay ))) end do end do do icol = 1 , ncol tlev_arr ( icol , nlay + 1 ) = tlay ( icol , nlay ) & + ( plev ( icol , nlay + 1 ) - play ( icol , nlay )) * ( tlay ( icol , nlay ) - tlay ( icol , nlay - 1 )) & / ( play ( icol , nlay ) - play ( icol , nlay - 1 )) end do end if !------------------------------------------------------------------- ! Compute internal (Planck) source functions at layers and levels, !  which depend on mapping from spectral space that creates k-distribution. !$acc        data copyin(sources) copyout( sources%lay_source, sources%lev_source_inc, sources%lev_source_dec) & !$acc                             copyout( sources%sfc_source, sources%sfc_source_Jac) !$omp target data                 map(from:sources%lay_source, sources%lev_source_inc, sources%lev_source_dec) & !$omp                             map(from:sources%sfc_source, sources%sfc_source_Jac) !$acc kernels copyout(top_at_1) !$omp target map(from:top_at_1) top_at_1 = play ( 1 , 1 ) < play ( 1 , nlay ) !$acc end kernels !$omp end target call compute_Planck_source ( ncol , nlay , nbnd , ngpt , & get_nflav ( this ), this % get_neta (), this % get_npres (), this % get_ntemp (), this % get_nPlanckTemp (), & tlay , tlev_wk , tsfc , merge ( nlay , 1 , top_at_1 ), & fmajor , jeta , tropo , jtemp , jpress , & this % get_gpoint_bands (), this % get_band_lims_gpoint (), this % planck_frac , this % temp_ref_min ,& this % totplnk_delta , this % totplnk , this % gpoint_flavor , & sources % sfc_source , sources % lay_source , sources % lev_source_inc , sources % lev_source_dec , & sources % sfc_source_Jac ) !$acc end        data !$omp end target data end function source !-------------------------------------------------------------------------------------------------------------------- ! ! Initialization ! !-------------------------------------------------------------------------------------------------------------------- ! Initialize object based on data read from netCDF file however the user desires. !  Rayleigh scattering tables may or may not be present; this is indicated with allocation status ! This interface is for the internal-sources object -- includes Plank functions and fractions ! function load_int ( this , available_gases , gas_names , key_species , & band2gpt , band_lims_wavenum , & press_ref , press_ref_trop , temp_ref , & temp_ref_p , temp_ref_t , vmr_ref , & kmajor , kminor_lower , kminor_upper , & gas_minor , identifier_minor , & minor_gases_lower , minor_gases_upper , & minor_limits_gpt_lower , minor_limits_gpt_upper , & minor_scales_with_density_lower , & minor_scales_with_density_upper , & scaling_gas_lower , scaling_gas_upper , & scale_by_complement_lower , & scale_by_complement_upper , & kminor_start_lower , & kminor_start_upper , & totplnk , planck_frac , & rayl_lower , rayl_upper , & optimal_angle_fit ) result ( err_message ) class ( ty_gas_optics_rrtmgp ), intent ( inout ) :: this class ( ty_gas_concs ), intent ( in ) :: available_gases ! Which gases does the host model have available? character ( len =* ), dimension (:), intent ( in ) :: gas_names integer , dimension (:,:,:), intent ( in ) :: key_species integer , dimension (:,:), intent ( in ) :: band2gpt real ( wp ), dimension (:,:), intent ( in ) :: band_lims_wavenum real ( wp ), dimension (:), intent ( in ) :: press_ref , temp_ref real ( wp ), intent ( in ) :: press_ref_trop , temp_ref_p , temp_ref_t real ( wp ), dimension (:,:,:), intent ( in ) :: vmr_ref real ( wp ), dimension (:,:,:,:), intent ( in ) :: kmajor real ( wp ), dimension (:,:,:), intent ( in ) :: kminor_lower , kminor_upper real ( wp ), dimension (:,:), intent ( in ) :: totplnk real ( wp ), dimension (:,:,:,:), intent ( in ) :: planck_frac real ( wp ), dimension (:,:,:), intent ( in ), & allocatable :: rayl_lower , rayl_upper real ( wp ), dimension (:,:), intent ( in ) :: optimal_angle_fit character ( len =* ), dimension (:), intent ( in ) :: gas_minor , identifier_minor character ( len =* ), dimension (:), intent ( in ) :: minor_gases_lower , & minor_gases_upper integer , dimension (:,:), intent ( in ) :: minor_limits_gpt_lower , & minor_limits_gpt_upper logical ( wl ), dimension (:), intent ( in ) :: minor_scales_with_density_lower , & minor_scales_with_density_upper character ( len =* ), dimension (:), intent ( in ) :: scaling_gas_lower , & scaling_gas_upper logical ( wl ), dimension (:), intent ( in ) :: scale_by_complement_lower ,& scale_by_complement_upper integer , dimension (:), intent ( in ) :: kminor_start_lower ,& kminor_start_upper character ( len = 128 ) :: err_message ! ---- !$acc enter data copyin(this) call this % finalize () err_message = init_abs_coeffs ( this , & available_gases , & gas_names , key_species , & band2gpt , band_lims_wavenum , & press_ref , temp_ref , & press_ref_trop , temp_ref_p , temp_ref_t , & vmr_ref , & kmajor , kminor_lower , kminor_upper , & gas_minor , identifier_minor ,& minor_gases_lower , minor_gases_upper , & minor_limits_gpt_lower , & minor_limits_gpt_upper , & minor_scales_with_density_lower , & minor_scales_with_density_upper , & scaling_gas_lower , scaling_gas_upper , & scale_by_complement_lower , & scale_by_complement_upper , & kminor_start_lower , & kminor_start_upper , & rayl_lower , rayl_upper ) ! Planck function tables ! allocate ( this % totplnk ( size ( totplnk , 1 ), size ( totplnk , 2 )), & this % planck_frac ( size ( planck_frac , 4 ), size ( planck_frac , 2 ), size ( planck_frac , 3 ), size ( planck_frac , 1 )), & this % optimal_angle_fit ( size ( optimal_angle_fit , 1 ), size ( optimal_angle_fit , 2 ))) this % totplnk = totplnk !    this%planck_frac = planck_frac this % planck_frac = RESHAPE ( planck_frac ,( / size ( planck_frac , 4 ), size ( planck_frac , 2 ), & size ( planck_frac , 3 ), size ( planck_frac , 1 ) / ), ORDER = ( / 4 , 2 , 3 , 1 / )) this % optimal_angle_fit = optimal_angle_fit !$acc        enter data copyin(this%totplnk, this%planck_frac, this%optimal_angle_fit) !$omp target enter data map(to:this%totplnk, this%planck_frac, this%optimal_angle_fit) ! Temperature steps for Planck function interpolation !   Assumes that temperature minimum and max are the same for the absorption coefficient grid and the !   Planck grid and the Planck grid is equally spaced this % totplnk_delta = ( this % temp_ref_max - this % temp_ref_min ) / ( size ( this % totplnk , dim = 1 ) - 1 ) end function load_int !-------------------------------------------------------------------------------------------------------------------- ! ! Initialize object based on data read from netCDF file however the user desires. !  Rayleigh scattering tables may or may not be present; this is indicated with allocation status ! This interface is for the external-sources object -- includes TOA source function table ! function load_ext ( this , available_gases , gas_names , key_species , & band2gpt , band_lims_wavenum , & press_ref , press_ref_trop , temp_ref , & temp_ref_p , temp_ref_t , vmr_ref , & kmajor , kminor_lower , kminor_upper , & gas_minor , identifier_minor , & minor_gases_lower , minor_gases_upper , & minor_limits_gpt_lower , minor_limits_gpt_upper , & minor_scales_with_density_lower , & minor_scales_with_density_upper , & scaling_gas_lower , scaling_gas_upper , & scale_by_complement_lower , & scale_by_complement_upper , & kminor_start_lower , & kminor_start_upper , & solar_quiet , solar_facular , solar_sunspot , & tsi_default , mg_default , sb_default , & rayl_lower , rayl_upper ) result ( err_message ) class ( ty_gas_optics_rrtmgp ), intent ( inout ) :: this class ( ty_gas_concs ), intent ( in ) :: available_gases ! Which gases does the host model have available? character ( len =* ), & dimension (:), intent ( in ) :: gas_names integer , dimension (:,:,:), intent ( in ) :: key_species integer , dimension (:,:), intent ( in ) :: band2gpt real ( wp ), dimension (:,:), intent ( in ) :: band_lims_wavenum real ( wp ), dimension (:), intent ( in ) :: press_ref , temp_ref real ( wp ), intent ( in ) :: press_ref_trop , temp_ref_p , temp_ref_t real ( wp ), dimension (:,:,:), intent ( in ) :: vmr_ref real ( wp ), dimension (:,:,:,:), intent ( in ) :: kmajor real ( wp ), dimension (:,:,:), intent ( in ) :: kminor_lower , kminor_upper character ( len =* ), dimension (:), & intent ( in ) :: gas_minor , & identifier_minor character ( len =* ), dimension (:), & intent ( in ) :: minor_gases_lower , & minor_gases_upper integer , dimension (:,:), intent ( in ) :: & minor_limits_gpt_lower , & minor_limits_gpt_upper logical ( wl ), dimension (:), intent ( in ) :: & minor_scales_with_density_lower , & minor_scales_with_density_upper character ( len =* ), dimension (:), intent ( in ) :: & scaling_gas_lower , & scaling_gas_upper logical ( wl ), dimension (:), intent ( in ) :: & scale_by_complement_lower , & scale_by_complement_upper integer , dimension (:), intent ( in ) :: & kminor_start_lower , & kminor_start_upper real ( wp ), dimension (:), intent ( in ) :: solar_quiet , & solar_facular , & solar_sunspot real ( wp ), intent ( in ) :: tsi_default , & mg_default , sb_default real ( wp ), dimension (:,:,:), intent ( in ), & allocatable :: rayl_lower , rayl_upper character ( len = 128 ) err_message integer :: ngpt ! ---- !$acc enter data copyin(this) call this % finalize () err_message = init_abs_coeffs ( this , & available_gases , & gas_names , key_species , & band2gpt , band_lims_wavenum , & press_ref , temp_ref , & press_ref_trop , temp_ref_p , temp_ref_t , & vmr_ref , & kmajor , kminor_lower , kminor_upper , & gas_minor , identifier_minor , & minor_gases_lower , minor_gases_upper , & minor_limits_gpt_lower , & minor_limits_gpt_upper , & minor_scales_with_density_lower , & minor_scales_with_density_upper , & scaling_gas_lower , scaling_gas_upper , & scale_by_complement_lower , & scale_by_complement_upper , & kminor_start_lower , & kminor_start_upper , & rayl_lower , rayl_upper ) if ( err_message == \"\" ) then ! ! Spectral solar irradiance terms init ! ngpt = size ( solar_quiet ) allocate ( this % solar_source_quiet ( ngpt ), this % solar_source_facular ( ngpt ), & this % solar_source_sunspot ( ngpt ), this % solar_source ( ngpt )) !$acc        enter data create(   this%solar_source_quiet, this%solar_source_facular, this%solar_source_sunspot, this%solar_source) !$omp target enter data map(alloc:this%solar_source_quiet, this%solar_source_facular, this%solar_source_sunspot, this%solar_source) !$acc kernels !$omp target this % solar_source_quiet = solar_quiet this % solar_source_facular = solar_facular this % solar_source_sunspot = solar_sunspot !$acc end kernels !$omp end target err_message = this % set_solar_variability ( mg_default , sb_default ) endif end function load_ext !-------------------------------------------------------------------------------------------------------------------- ! ! Initialize absorption coefficient arrays, !   including Rayleigh scattering tables if provided (allocated) ! function init_abs_coeffs ( this , & available_gases , & gas_names , key_species , & band2gpt , band_lims_wavenum , & press_ref , temp_ref , & press_ref_trop , temp_ref_p , temp_ref_t , & vmr_ref , & kmajor , kminor_lower , kminor_upper , & gas_minor , identifier_minor ,& minor_gases_lower , minor_gases_upper , & minor_limits_gpt_lower , & minor_limits_gpt_upper , & minor_scales_with_density_lower , & minor_scales_with_density_upper , & scaling_gas_lower , scaling_gas_upper , & scale_by_complement_lower , & scale_by_complement_upper , & kminor_start_lower , & kminor_start_upper , & rayl_lower , rayl_upper ) result ( err_message ) class ( ty_gas_optics_rrtmgp ), intent ( inout ) :: this class ( ty_gas_concs ), intent ( in ) :: available_gases character ( len =* ), & dimension (:), intent ( in ) :: gas_names integer , dimension (:,:,:), intent ( in ) :: key_species integer , dimension (:,:), intent ( in ) :: band2gpt real ( wp ), dimension (:,:), intent ( in ) :: band_lims_wavenum real ( wp ), dimension (:), intent ( in ) :: press_ref , temp_ref real ( wp ), intent ( in ) :: press_ref_trop , temp_ref_p , temp_ref_t real ( wp ), dimension (:,:,:), intent ( in ) :: vmr_ref real ( wp ), dimension (:,:,:,:), intent ( in ) :: kmajor real ( wp ), dimension (:,:,:), intent ( in ) :: kminor_lower , kminor_upper character ( len =* ), dimension (:), & intent ( in ) :: gas_minor , & identifier_minor character ( len =* ), dimension (:), & intent ( in ) :: minor_gases_lower , & minor_gases_upper integer , dimension (:,:), intent ( in ) :: minor_limits_gpt_lower , & minor_limits_gpt_upper logical ( wl ), dimension (:), intent ( in ) :: minor_scales_with_density_lower , & minor_scales_with_density_upper character ( len =* ), dimension (:),& intent ( in ) :: scaling_gas_lower , & scaling_gas_upper logical ( wl ), dimension (:), intent ( in ) :: scale_by_complement_lower , & scale_by_complement_upper integer , dimension (:), intent ( in ) :: kminor_start_lower , & kminor_start_upper real ( wp ), dimension (:,:,:), intent ( in ), & allocatable :: rayl_lower , rayl_upper character ( len = 128 ) :: err_message ! -------------------------------------------------------------------------- logical , dimension (:), allocatable :: gas_is_present logical , dimension (:), allocatable :: key_species_present_init integer , dimension (:,:,:), allocatable :: key_species_red real ( wp ), dimension (:,:,:), allocatable :: vmr_ref_red character ( len = 256 ), & dimension (:), allocatable :: minor_gases_lower_red , & minor_gases_upper_red character ( len = 256 ), & dimension (:), allocatable :: scaling_gas_lower_red , & scaling_gas_upper_red integer :: i , j , idx integer :: ngas ! -------------------------------------- err_message = this % ty_optical_props % init ( band_lims_wavenum , band2gpt ) if ( len_trim ( err_message ) /= 0 ) return ! ! Which gases known to the gas optics are present in the host model (available_gases)? ! ngas = size ( gas_names ) allocate ( gas_is_present ( ngas )) do i = 1 , ngas ! Next line causes a compiler bug in gfortran 11.0.1 on Mac ARM ! Should replace gas_names with get_gas_names() and make gas_names private in ty_gas_concs gas_is_present ( i ) = string_in_array ( gas_names ( i ), available_gases % gas_names ) end do ! ! Now the number of gases is the union of those known to the k-distribution and provided !   by the host model ! ngas = count ( gas_is_present ) ! ! Initialize the gas optics object, keeping only those gases known to the !   gas optics and also present in the host model ! this % gas_names = pack ( gas_names , mask = gas_is_present ) ! Copy-ins below allocate ( vmr_ref_red ( size ( vmr_ref , dim = 1 ), 0 : ngas , & size ( vmr_ref , dim = 3 ))) ! Gas 0 is used in single-key species method, set to 1.0 (col_dry) vmr_ref_red (:, 0 ,:) = vmr_ref (:, 1 ,:) do i = 1 , ngas idx = string_loc_in_array ( this % gas_names ( i ), gas_names ) vmr_ref_red (:, i ,:) = vmr_ref (:, idx + 1 ,:) enddo call move_alloc ( vmr_ref_red , this % vmr_ref ) !$acc        enter data copyin(this%vmr_ref, this%gas_names) !$omp target enter data map(to:this%vmr_ref, this%gas_names) ! ! Reduce minor arrays so variables only contain minor gases that are available ! Reduce size of minor Arrays ! call reduce_minor_arrays ( available_gases , & gas_minor , identifier_minor , & kminor_lower , & minor_gases_lower , & minor_limits_gpt_lower , & minor_scales_with_density_lower , & scaling_gas_lower , & scale_by_complement_lower , & kminor_start_lower , & this % kminor_lower , & minor_gases_lower_red , & this % minor_limits_gpt_lower , & this % minor_scales_with_density_lower , & scaling_gas_lower_red , & this % scale_by_complement_lower , & this % kminor_start_lower ) call reduce_minor_arrays ( available_gases , & gas_minor , identifier_minor ,& kminor_upper , & minor_gases_upper , & minor_limits_gpt_upper , & minor_scales_with_density_upper , & scaling_gas_upper , & scale_by_complement_upper , & kminor_start_upper , & this % kminor_upper , & minor_gases_upper_red , & this % minor_limits_gpt_upper , & this % minor_scales_with_density_upper , & scaling_gas_upper_red , & this % scale_by_complement_upper , & this % kminor_start_upper ) !$acc        enter data copyin(this%minor_limits_gpt_lower, this%minor_limits_gpt_upper) !$omp target enter data map(to:this%minor_limits_gpt_lower, this%minor_limits_gpt_upper) !$acc        enter data copyin(this%minor_scales_with_density_lower, this%minor_scales_with_density_upper) !$omp target enter data map(to:this%minor_scales_with_density_lower, this%minor_scales_with_density_upper) !$acc        enter data copyin(this%scale_by_complement_lower, this%scale_by_complement_upper) !$omp target enter data map(to:this%scale_by_complement_lower, this%scale_by_complement_upper) !$acc        enter data copyin(this%kminor_start_lower, this%kminor_start_upper) !$omp target enter data map(to:this%kminor_start_lower, this%kminor_start_upper) !$acc        enter data copyin(this%kminor_lower, this%kminor_upper) !$omp target enter data map(to:this%kminor_lower, this%kminor_upper) ! Arrays not reduced by the presence, or lack thereof, of a gas allocate ( this % press_ref ( size ( press_ref )), this % temp_ref ( size ( temp_ref )), & this % kmajor ( size ( kmajor , 4 ), size ( kmajor , 2 ), size ( kmajor , 3 ), size ( kmajor , 1 ))) this % press_ref (:) = press_ref (:) this % temp_ref (:) = temp_ref (:) this % kmajor = RESHAPE ( kmajor ,( / size ( kmajor , 4 ), size ( kmajor , 2 ), size ( kmajor , 3 ), size ( kmajor , 1 ) / ), ORDER = ( / 4 , 2 , 3 , 1 / )) !$acc        enter data copyin(this%press_ref, this%temp_ref, this%kmajor) !$omp target enter data map(to:this%press_ref, this%temp_ref, this%kmajor) if ( allocated ( rayl_lower ) . neqv . allocated ( rayl_upper )) then err_message = \"rayl_lower and rayl_upper must have the same allocation status\" return end if if ( allocated ( rayl_lower )) then allocate ( this % krayl ( size ( rayl_lower , dim = 3 ), size ( rayl_lower , dim = 2 ), size ( rayl_lower , dim = 1 ), 2 )) this % krayl (:,:,:, 1 ) = RESHAPE ( rayl_lower ,( / size ( rayl_lower , dim = 3 ), size ( rayl_lower , dim = 2 ), & size ( rayl_lower , dim = 1 ) / ), ORDER = ( / 3 , 2 , 1 / )) this % krayl (:,:,:, 2 ) = RESHAPE ( rayl_upper ,( / size ( rayl_lower , dim = 3 ), size ( rayl_lower , dim = 2 ), & size ( rayl_lower , dim = 1 ) / ), ORDER = ( / 3 , 2 , 1 / )) !$acc        enter data copyin(this%krayl) !$omp target enter data map(to:this%krayl) end if ! ---- post processing ---- ! creates log reference pressure allocate ( this % press_ref_log ( size ( this % press_ref ))) this % press_ref_log (:) = log ( this % press_ref (:)) !$acc        enter data copyin(this%press_ref_log) !$omp target enter data map(to:this%press_ref_log) ! log scale of reference pressure this % press_ref_trop_log = log ( press_ref_trop ) ! Get index of gas (if present) for determining col_gas call create_idx_minor ( this % gas_names , gas_minor , identifier_minor , minor_gases_lower_red , this % idx_minor_lower ) call create_idx_minor ( this % gas_names , gas_minor , identifier_minor , minor_gases_upper_red , this % idx_minor_upper ) ! Get index of gas (if present) that has special treatment in density scaling call create_idx_minor_scaling ( this % gas_names , scaling_gas_lower_red , this % idx_minor_scaling_lower ) call create_idx_minor_scaling ( this % gas_names , scaling_gas_upper_red , this % idx_minor_scaling_upper ) !$acc        enter data copyin(this%idx_minor_lower, this%idx_minor_upper) !$omp target enter data map(to:this%idx_minor_lower, this%idx_minor_upper) !$acc        enter data copyin(this%idx_minor_scaling_lower, this%idx_minor_scaling_upper) !$omp target enter data map(to:this%idx_minor_scaling_lower, this%idx_minor_scaling_upper) ! create flavor list ! Reduce (remap) key_species list; checks that all key gases are present in incoming call create_key_species_reduce ( gas_names , this % gas_names , & key_species , key_species_red , key_species_present_init ) err_message = check_key_species_present_init ( gas_names , key_species_present_init ) if ( len_trim ( err_message ) /= 0 ) return ! create flavor list call create_flavor ( key_species_red , this % flavor ) ! create gpoint_flavor list call create_gpoint_flavor ( key_species_red , this % get_gpoint_bands (), this % flavor , this % gpoint_flavor ) !Copy-ins at end of subroutine ! minimum, maximum reference temperature, pressure -- assumes low-to-high ordering !   for T, high-to-low ordering for p this % temp_ref_min = this % temp_ref ( 1 ) this % temp_ref_max = this % temp_ref ( size ( this % temp_ref )) this % press_ref_min = this % press_ref ( size ( this % press_ref )) this % press_ref_max = this % press_ref ( 1 ) ! creates press_ref_log, temp_ref_delta this % press_ref_log_delta = ( log ( this % press_ref_min ) - log ( this % press_ref_max )) / ( size ( this % press_ref ) - 1 ) this % temp_ref_delta = ( this % temp_ref_max - this % temp_ref_min ) / ( size ( this % temp_ref ) - 1 ) ! Which species are key in one or more bands? !   this%flavor is an index into this%gas_names ! if ( allocated ( this % is_key )) deallocate ( this % is_key ) ! Shouldn't ever happen... allocate ( this % is_key ( this % get_ngas ())) this % is_key (:) = . False . do j = 1 , size ( this % flavor , 2 ) do i = 1 , size ( this % flavor , 1 ) ! extents should be 2 if ( this % flavor ( i , j ) /= 0 ) this % is_key ( this % flavor ( i , j )) = . true . end do end do !$acc        enter data copyin(this%flavor, this%gpoint_flavor, this%is_key) !$omp target enter data map(to:this%flavor, this%gpoint_flavor, this%is_key) end function init_abs_coeffs ! ---------------------------------------------------------------------------------------------------- function check_key_species_present_init ( gas_names , key_species_present_init ) result ( err_message ) logical , dimension (:), intent ( in ) :: key_species_present_init character ( len =* ), dimension (:), intent ( in ) :: gas_names character ( len = 128 ) :: err_message integer :: i err_message = '' do i = 1 , size ( key_species_present_init ) if (. not . key_species_present_init ( i )) & err_message = ' ' // trim ( gas_names ( i )) // trim ( err_message ) end do if ( len_trim ( err_message ) > 0 ) err_message = \"gas_optics: required gases\" // trim ( err_message ) // \" are not provided\" end function check_key_species_present_init !------------------------------------------------------------------------------------------ ! ! Ensure that every key gas required by the k-distribution is !    present in the gas concentration object ! function check_key_species_present ( this , gas_desc ) result ( error_msg ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this class ( ty_gas_concs ), intent ( in ) :: gas_desc character ( len = 128 ) :: error_msg ! Local variables character ( len = 32 ), dimension ( count ( this % is_key (:) )) :: key_gas_names integer :: igas ! -------------------------------------- error_msg = \"\" key_gas_names = pack ( this % gas_names , mask = this % is_key ) do igas = 1 , size ( key_gas_names ) ! Next line causes a compiler bug in gfortran 11.0.1 on Mac ARM ! Should replace gas_names with get_gas_names() and make gas_names private in ty_gas_concs if (. not . string_in_array ( key_gas_names ( igas ), gas_desc % gas_names )) & error_msg = ' ' // trim ( lower_case ( key_gas_names ( igas ))) // trim ( error_msg ) end do if ( len_trim ( error_msg ) > 0 ) error_msg = \"gas_optics: required gases\" // trim ( error_msg ) // \" are not provided\" end function check_key_species_present !-------------------------------------------------------------------------------------------------------------------- ! ! Inquiry functions ! !-------------------------------------------------------------------------------------------------------------------- ! !> return true if initialized for internal sources/longwave, false otherwise ! pure function source_is_internal ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this logical :: source_is_internal source_is_internal = allocated ( this % totplnk ) . and . allocated ( this % planck_frac ) end function source_is_internal !-------------------------------------------------------------------------------------------------------------------- ! !> return true if initialized for external sources/shortwave, false otherwise ! pure function source_is_external ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this logical :: source_is_external source_is_external = allocated ( this % solar_source ) end function source_is_external !-------------------------------------------------------------------------------------------------------------------- ! !> return the names of the gases known to the k-distributions ! pure function get_gases ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this character ( 32 ), dimension ( get_ngas ( this )) :: get_gases !! names of the gases known to the k-distributions get_gases = this % gas_names end function get_gases !-------------------------------------------------------------------------------------------------------------------- ! !> return the minimum pressure on the interpolation grids ! pure function get_press_min ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this real ( wp ) :: get_press_min !! minimum pressure for which the k-dsitribution is valid get_press_min = this % press_ref_min end function get_press_min !-------------------------------------------------------------------------------------------------------------------- ! !> return the maximum pressure on the interpolation grids ! pure function get_press_max ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this real ( wp ) :: get_press_max !! maximum pressure for which the k-dsitribution is valid get_press_max = this % press_ref_max end function get_press_max !-------------------------------------------------------------------------------------------------------------------- ! !> return the minimum temparature on the interpolation grids ! pure function get_temp_min ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this real ( wp ) :: get_temp_min !! minimum temperature for which the k-dsitribution is valid get_temp_min = this % temp_ref_min end function get_temp_min !-------------------------------------------------------------------------------------------------------------------- ! !> return the maximum temparature on the interpolation grids ! pure function get_temp_max ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this real ( wp ) :: get_temp_max !! maximum temperature for which the k-dsitribution is valid get_temp_max = this % temp_ref_max end function get_temp_max !-------------------------------------------------------------------------------------------------------------------- ! !> Utility function, provided for user convenience !> computes column amounts of dry air using hydrostatic equation ! function get_col_dry ( vmr_h2o , plev , latitude ) result ( col_dry ) ! input real ( wp ), dimension (:,:), intent ( in ) :: vmr_h2o ! volume mixing ratio of water vapor to dry air; (ncol,nlay) real ( wp ), dimension (:,:), intent ( in ) :: plev ! Layer boundary pressures [Pa] (ncol,nlay+1) real ( wp ), dimension (:), optional , & intent ( in ) :: latitude ! Latitude [degrees] (ncol) ! output real ( wp ), dimension ( size ( plev , dim = 1 ), size ( plev , dim = 2 ) - 1 ) :: col_dry ! Column dry amount (ncol,nlay) ! ------------------------------------------------ ! first and second term of Helmert formula real ( wp ), parameter :: helmert1 = 9.80665_wp real ( wp ), parameter :: helmert2 = 0.02586_wp ! local variables real ( wp ), dimension ( size ( plev , dim = 1 )) :: g0 ! (ncol) real ( wp ) :: delta_plev , m_air , fact integer :: ncol , nlev integer :: icol , ilev ! nlay = nlev-1 ! ------------------------------------------------ ncol = size ( plev , dim = 1 ) nlev = size ( plev , dim = 2 ) !$acc        data    create(g0) !$omp target data map(alloc:g0) if ( present ( latitude )) then ! A purely OpenACC implementation would probably compute g0 within the kernel below !$acc parallel loop !$omp target teams distribute parallel do simd do icol = 1 , ncol g0 ( icol ) = helmert1 - helmert2 * cos ( 2.0_wp * pi * latitude ( icol ) / 18 0.0_wp ) ! acceleration due to gravity [m/s&#94;2] end do else !$acc parallel loop !$omp target teams distribute parallel do simd do icol = 1 , ncol g0 ( icol ) = grav end do end if !$acc                parallel loop gang vector collapse(2) copyin(plev,vmr_h2o)  copyout(col_dry) !$omp target teams distribute parallel do simd collapse(2) map(to:plev,vmr_h2o) map(from:col_dry) do ilev = 1 , nlev - 1 do icol = 1 , ncol delta_plev = abs ( plev ( icol , ilev ) - plev ( icol , ilev + 1 )) ! Get average mass of moist air per mole of moist air fact = 1._wp / ( 1. + vmr_h2o ( icol , ilev )) m_air = ( m_dry + m_h2o * vmr_h2o ( icol , ilev )) * fact col_dry ( icol , ilev ) = 1 0._wp * delta_plev * avogad * fact / ( 100 0._wp * m_air * 10 0._wp * g0 ( icol )) end do end do !$acc end        data !$omp end target data end function get_col_dry !-------------------------------------------------------------------------------------------------------------------- ! !> Compute a transport angle that minimizes flux errors at surface and TOA based on empirical fits ! function compute_optimal_angles ( this , optical_props , optimal_angles ) result ( err_msg ) ! input class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this class ( ty_optical_props_arry ), intent ( in ) :: optical_props !! Optical properties real ( wp ), dimension (:,:), intent ( out ) :: optimal_angles !! Secant of optical transport angle character ( len = 128 ) :: err_msg !! Empty if successful !---------------------------- integer :: ncol , nlay , ngpt integer :: icol , ilay , igpt , bnd real ( wp ) :: t , trans_total #if defined _CRAYFTN && _RELEASE_MAJOR == 14 && _RELEASE_MINOR == 0 && _RELEASE_PATCHLEVEL == 3 # define CRAY_WORKAROUND #endif #ifdef CRAY_WORKAROUND integer , allocatable :: bands (:) #else integer :: bands ( optical_props % get_ngpt ()) #endif !---------------------------- ncol = optical_props % get_ncol () nlay = optical_props % get_nlay () ngpt = optical_props % get_ngpt () #ifdef CRAY_WORKAROUND allocate ( bands ( ngpt ) ) ! In order to work with CCE 14  (it is also better software) #endif err_msg = \"\" if (. not . this % gpoints_are_equal ( optical_props )) & err_msg = \"gas_optics%compute_optimal_angles: optical_props has different spectral discretization than gas_optics\" if (. not . extents_are ( optimal_angles , ncol , ngpt )) & err_msg = \"gas_optics%compute_optimal_angles: optimal_angles different dimension (ncol)\" if ( err_msg /= \"\" ) return do igpt = 1 , ngpt bands ( igpt ) = optical_props % convert_gpt2band ( igpt ) enddo ! ! column transmissivity ! !$acc parallel loop gang vector collapse(2) copyin(bands, optical_props, optical_props%tau) copyout(optimal_angles) !$omp target teams distribute parallel do simd collapse(2) map(to:bands, optical_props%tau) map(from:optimal_angles) do icol = 1 , ncol do igpt = 1 , ngpt ! ! Column transmissivity ! t = 0._wp trans_total = 0._wp do ilay = 1 , nlay t = t + optical_props % tau ( icol , ilay , igpt ) end do trans_total = exp ( - t ) ! ! Optimal transport angle is a linear fit to column transmissivity ! optimal_angles ( icol , igpt ) = this % optimal_angle_fit ( 1 , bands ( igpt )) * trans_total + & this % optimal_angle_fit ( 2 , bands ( igpt )) end do end do end function compute_optimal_angles !-------------------------------------------------------------------------------------------------------------------- ! ! Internal procedures ! !-------------------------------------------------------------------------------------------------------------------- pure function rewrite_key_species_pair ( key_species_pair ) ! (0,0) becomes (2,2) -- because absorption coefficients for these g-points will be 0. integer , dimension ( 2 ) :: rewrite_key_species_pair integer , dimension ( 2 ), intent ( in ) :: key_species_pair rewrite_key_species_pair = key_species_pair if ( all ( key_species_pair (:). eq .( / 0 , 0 / ))) then rewrite_key_species_pair (:) = ( / 2 , 2 / ) end if end function ! --------------------------------------------------------------------------------------- ! true is key_species_pair exists in key_species_list pure function key_species_pair_exists ( key_species_list , key_species_pair ) logical :: key_species_pair_exists integer , dimension (:,:), intent ( in ) :: key_species_list integer , dimension ( 2 ), intent ( in ) :: key_species_pair integer :: i do i = 1 , size ( key_species_list , dim = 2 ) if ( all ( key_species_list (:, i ). eq . key_species_pair (:))) then key_species_pair_exists = . true . return end if end do key_species_pair_exists = . false . end function key_species_pair_exists ! --------------------------------------------------------------------------------------- ! create flavor list -- !   an unordered array of extent (2,:) containing all possible pairs of key species !   used in either upper or lower atmos ! subroutine create_flavor ( key_species , flavor ) integer , dimension (:,:,:), intent ( in ) :: key_species integer , dimension (:,:), allocatable , intent ( out ) :: flavor integer , dimension ( 2 , size ( key_species , 3 ) * 2 ) :: key_species_list integer :: ibnd , iatm , i , iflavor ! prepare list of key_species i = 1 do ibnd = 1 , size ( key_species , 3 ) ! bands do iatm = 1 , size ( key_species , 2 ) ! upper/lower atmosphere key_species_list (:, i ) = key_species (:, iatm , ibnd ) i = i + 1 end do end do ! rewrite single key_species pairs do i = 1 , size ( key_species_list , 2 ) key_species_list (:, i ) = rewrite_key_species_pair ( key_species_list (:, i )) end do ! count unique key species pairs iflavor = 0 do i = 1 , size ( key_species_list , 2 ) if (. not . key_species_pair_exists ( key_species_list (:, 1 : i - 1 ), key_species_list (:, i ))) then iflavor = iflavor + 1 end if end do ! fill flavors allocate ( flavor ( 2 , iflavor )) iflavor = 0 do i = 1 , size ( key_species_list , 2 ) if (. not . key_species_pair_exists ( key_species_list (:, 1 : i - 1 ), key_species_list (:, i ))) then iflavor = iflavor + 1 flavor (:, iflavor ) = key_species_list (:, i ) end if end do end subroutine create_flavor ! --------------------------------------------------------------------------------------- ! ! create index list for extracting col_gas needed for minor gas optical depth calculations ! subroutine create_idx_minor ( gas_names , & gas_minor , identifier_minor , minor_gases_atm , idx_minor_atm ) character ( len =* ), dimension (:), intent ( in ) :: gas_names character ( len =* ), dimension (:), intent ( in ) :: & gas_minor , & identifier_minor character ( len =* ), dimension (:), intent ( in ) :: minor_gases_atm integer , dimension (:), allocatable , & intent ( out ) :: idx_minor_atm ! local integer :: imnr integer :: idx_mnr allocate ( idx_minor_atm ( size ( minor_gases_atm , dim = 1 ))) do imnr = 1 , size ( minor_gases_atm , dim = 1 ) ! loop over minor absorbers in each band ! Find identifying string for minor species in list of possible identifiers (e.g. h2o_slf) idx_mnr = string_loc_in_array ( minor_gases_atm ( imnr ), identifier_minor ) ! Find name of gas associated with minor species identifier (e.g. h2o) idx_minor_atm ( imnr ) = string_loc_in_array ( gas_minor ( idx_mnr ), gas_names ) enddo end subroutine create_idx_minor ! --------------------------------------------------------------------------------------- ! ! create index for special treatment in density scaling of minor gases ! subroutine create_idx_minor_scaling ( gas_names , & scaling_gas_atm , idx_minor_scaling_atm ) character ( len =* ), dimension (:), intent ( in ) :: gas_names character ( len =* ), dimension (:), intent ( in ) :: scaling_gas_atm integer , dimension (:), allocatable , & intent ( out ) :: idx_minor_scaling_atm ! local integer :: imnr allocate ( idx_minor_scaling_atm ( size ( scaling_gas_atm , dim = 1 ))) do imnr = 1 , size ( scaling_gas_atm , dim = 1 ) ! loop over minor absorbers in each band ! This will be -1 if there's no interacting gas idx_minor_scaling_atm ( imnr ) = string_loc_in_array ( scaling_gas_atm ( imnr ), gas_names ) enddo end subroutine create_idx_minor_scaling !-------------------------------------------------------------------------------------------------------------------- ! Is the object ready to use? ! pure function is_loaded ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this logical ( wl ) :: is_loaded is_loaded = allocated ( this % kmajor ) end function is_loaded !-------------------------------------------------------------------------------------------------------------------- ! ! Reset the object to un-initialized state ! subroutine finalize ( this ) class ( ty_gas_optics_rrtmgp ), intent ( inout ) :: this real ( wp ), dimension (:), allocatable :: press_ref , press_ref_log , temp_ref if ( this % is_loaded ()) then !$acc exit data delete(this%gas_names, this%vmr_ref, this%flavor) & !$acc           delete(this%gpoint_flavor, this%kmajor)  & !$acc           delete(this%minor_limits_gpt_lower) & !$acc           delete(this%minor_scales_with_density_lower, this%scale_by_complement_lower)  & !$acc           delete(this%idx_minor_lower, this%idx_minor_scaling_lower)  & !$acc           delete(this%kminor_start_lower, this%kminor_lower) & !$acc           delete(this%minor_limits_gpt_upper) & !$acc           delete(this%minor_scales_with_density_upper, this%scale_by_complement_upper)  & !$acc           delete(this%idx_minor_upper, this%idx_minor_scaling_upper)  & !$acc           delete(this%kminor_start_upper, this%kminor_upper) !$omp target exit data map(release:this%gas_names, this%vmr_ref, this%flavor) & !$omp map(release:this%gpoint_flavor, this%kmajor)  & !$omp map(release:this%minor_limits_gpt_lower) & !$omp map(release:this%minor_scales_with_density_lower, this%scale_by_complement_lower)  & !$omp map(release:this%idx_minor_lower, this%idx_minor_scaling_lower)  & !$omp map(release:this%kminor_start_lower, this%kminor_lower) & !$omp map(release:this%minor_limits_gpt_upper) & !$omp map(release:this%minor_scales_with_density_upper, this%scale_by_complement_upper)  & !$omp map(release:this%idx_minor_upper, this%idx_minor_scaling_upper)  & !$omp map(release:this%kminor_start_upper, this%kminor_upper) deallocate ( this % gas_names , this % vmr_ref , this % flavor , this % gpoint_flavor , this % kmajor ) deallocate ( this % minor_limits_gpt_lower , & this % minor_scales_with_density_lower , this % scale_by_complement_lower , & this % idx_minor_lower , this % idx_minor_scaling_lower , this % kminor_start_lower , this % kminor_lower ) deallocate ( this % minor_limits_gpt_upper , & this % minor_scales_with_density_upper , this % scale_by_complement_upper , & this % idx_minor_upper , this % idx_minor_scaling_upper , this % kminor_start_upper , this % kminor_upper ) if ( allocated ( this % krayl )) then !$acc exit data delete(this%krayl) !$omp target exit data map(release:this%krayl) deallocate ( this % krayl ) end if if ( allocated ( this % planck_frac )) then !$acc exit data delete(this%planck_frac, this%totplnk, this%optimal_angle_fit) !$omp target exit data map(release:this%planck_frac, this%totplnk, this%optimal_angle_fit) deallocate ( this % planck_frac , this % totplnk , this % optimal_angle_fit ) end if if ( allocated ( this % solar_source )) then !$acc exit data delete(this%solar_source, this%solar_source_quiet) & !$acc           delete(this%solar_source_facular,this%solar_source_sunspot) !$omp target exit data map(release:this%solar_source, this%solar_source_quiet) !$omp map(release:this%solar_source_facular,this%solar_source_sunspot) deallocate ( this % solar_source , & this % solar_source_quiet , this % solar_source_facular , this % solar_source_sunspot ) end if !$acc exit data delete(this) !$omp target exit data map(release:this) end if end subroutine finalize ! --------------------------------------------------------------------------------------- subroutine create_key_species_reduce ( gas_names , gas_names_red , & key_species , key_species_red , key_species_present_init ) character ( len =* ), & dimension (:), intent ( in ) :: gas_names character ( len =* ), & dimension (:), intent ( in ) :: gas_names_red integer , dimension (:,:,:), intent ( in ) :: key_species integer , dimension (:,:,:), allocatable , intent ( out ) :: key_species_red logical , dimension (:), allocatable , intent ( out ) :: key_species_present_init integer :: ip , ia , it , np , na , nt np = size ( key_species , dim = 1 ) na = size ( key_species , dim = 2 ) nt = size ( key_species , dim = 3 ) allocate ( key_species_red ( size ( key_species , dim = 1 ), & size ( key_species , dim = 2 ), & size ( key_species , dim = 3 ))) allocate ( key_species_present_init ( size ( gas_names ))) key_species_present_init = . true . do ip = 1 , np do ia = 1 , na do it = 1 , nt if ( key_species ( ip , ia , it ) . ne . 0 ) then key_species_red ( ip , ia , it ) = string_loc_in_array ( gas_names ( key_species ( ip , ia , it )), gas_names_red ) if ( key_species_red ( ip , ia , it ) . eq . - 1 ) key_species_present_init ( key_species ( ip , ia , it )) = . false . else key_species_red ( ip , ia , it ) = key_species ( ip , ia , it ) endif enddo end do enddo end subroutine create_key_species_reduce ! --------------------------------------------------------------------------------------- subroutine reduce_minor_arrays ( available_gases , & gas_minor , identifier_minor ,& kminor_atm , & minor_gases_atm , & minor_limits_gpt_atm , & minor_scales_with_density_atm , & scaling_gas_atm , & scale_by_complement_atm , & kminor_start_atm , & kminor_atm_red , & minor_gases_atm_red , & minor_limits_gpt_atm_red , & minor_scales_with_density_atm_red , & scaling_gas_atm_red , & scale_by_complement_atm_red , & kminor_start_atm_red ) class ( ty_gas_concs ), intent ( in ) :: available_gases real ( wp ), dimension (:,:,:), intent ( in ) :: kminor_atm character ( len =* ), dimension (:), intent ( in ) :: gas_minor , & identifier_minor character ( len =* ), dimension (:), intent ( in ) :: minor_gases_atm integer , dimension (:,:), intent ( in ) :: minor_limits_gpt_atm logical ( wl ), dimension (:), intent ( in ) :: minor_scales_with_density_atm character ( len =* ), dimension (:), intent ( in ) :: scaling_gas_atm logical ( wl ), dimension (:), intent ( in ) :: scale_by_complement_atm integer , dimension (:), intent ( in ) :: kminor_start_atm real ( wp ), dimension (:,:,:), allocatable , & intent ( out ) :: kminor_atm_red character ( len =* ), dimension (:), allocatable , & intent ( out ) :: minor_gases_atm_red integer , dimension (:,:), allocatable , & intent ( out ) :: minor_limits_gpt_atm_red logical ( wl ), dimension (:), allocatable , & intent ( out ) :: minor_scales_with_density_atm_red character ( len =* ), dimension (:), allocatable , & intent ( out ) :: scaling_gas_atm_red logical ( wl ), dimension (:), allocatable , intent ( out ) :: & scale_by_complement_atm_red integer , dimension (:), allocatable , intent ( out ) :: & kminor_start_atm_red ! Local variables integer :: i , j , ks integer :: idx_mnr , nm , tot_g , red_nm integer :: icnt , n_elim , ng logical , dimension (:), allocatable :: gas_is_present integer , dimension (:), allocatable :: indexes real ( wp ), dimension (:,:,:), allocatable :: kminor_atm_red_t nm = size ( minor_gases_atm ) tot_g = 0 allocate ( gas_is_present ( nm )) do i = 1 , size ( minor_gases_atm ) idx_mnr = string_loc_in_array ( minor_gases_atm ( i ), identifier_minor ) ! Next line causes a compiler bug in gfortran 11.0.1 on Mac ARM ! Should replace gas_names with get_gas_names() and make gas_names private in ty_gas_concs gas_is_present ( i ) = string_in_array ( gas_minor ( idx_mnr ), available_gases % gas_names ) if ( gas_is_present ( i )) then tot_g = tot_g + ( minor_limits_gpt_atm ( 2 , i ) - minor_limits_gpt_atm ( 1 , i ) + 1 ) endif enddo red_nm = count ( gas_is_present ) allocate ( minor_gases_atm_red ( red_nm ),& minor_scales_with_density_atm_red ( red_nm ), & scaling_gas_atm_red ( red_nm ), & scale_by_complement_atm_red ( red_nm ), & kminor_start_atm_red ( red_nm )) allocate ( minor_limits_gpt_atm_red ( 2 , red_nm )) allocate ( kminor_atm_red_t ( tot_g , size ( kminor_atm , 2 ), size ( kminor_atm , 3 ))) allocate ( kminor_atm_red ( size ( kminor_atm , 3 ), size ( kminor_atm , 2 ), tot_g )) if (( red_nm . eq . nm )) then ! Character data not allowed in OpenACC regions? minor_gases_atm_red = minor_gases_atm scaling_gas_atm_red = scaling_gas_atm kminor_atm_red_t = kminor_atm minor_limits_gpt_atm_red = minor_limits_gpt_atm minor_scales_with_density_atm_red = minor_scales_with_density_atm scale_by_complement_atm_red = scale_by_complement_atm kminor_start_atm_red = kminor_start_atm else allocate ( indexes ( red_nm )) ! Find the integer indexes for the gases that are present indexes = pack ([( i , i = 1 , size ( minor_gases_atm ))], mask = gas_is_present ) minor_gases_atm_red = minor_gases_atm ( indexes ) scaling_gas_atm_red = scaling_gas_atm ( indexes ) minor_scales_with_density_atm_red = & minor_scales_with_density_atm ( indexes ) scale_by_complement_atm_red = & scale_by_complement_atm ( indexes ) kminor_start_atm_red = kminor_start_atm ( indexes ) icnt = 0 n_elim = 0 do i = 1 , nm ng = minor_limits_gpt_atm ( 2 , i ) - minor_limits_gpt_atm ( 1 , i ) + 1 if ( gas_is_present ( i )) then icnt = icnt + 1 minor_limits_gpt_atm_red ( 1 : 2 , icnt ) = minor_limits_gpt_atm ( 1 : 2 , i ) kminor_start_atm_red ( icnt ) = kminor_start_atm ( i ) - n_elim ks = kminor_start_atm_red ( icnt ) do j = 1 , ng kminor_atm_red_t ( kminor_start_atm_red ( icnt ) + j - 1 ,:,:) = & kminor_atm ( kminor_start_atm ( i ) + j - 1 ,:,:) enddo else n_elim = n_elim + ng endif enddo endif kminor_atm_red = RESHAPE ( kminor_atm_red_t ,( / size ( kminor_atm_red_t , dim = 3 ), & size ( kminor_atm_red_t , dim = 2 ), size ( kminor_atm_red_t , dim = 1 ) / ), ORDER = ( / 3 , 2 , 1 / )) deallocate ( kminor_atm_red_t ) end subroutine reduce_minor_arrays ! --------------------------------------------------------------------------------------- ! returns flavor index; -1 if not found pure function key_species_pair2flavor ( flavor , key_species_pair ) integer :: key_species_pair2flavor integer , dimension (:,:), intent ( in ) :: flavor integer , dimension ( 2 ), intent ( in ) :: key_species_pair integer :: iflav do iflav = 1 , size ( flavor , 2 ) if ( all ( key_species_pair (:). eq . flavor (:, iflav ))) then key_species_pair2flavor = iflav return end if end do key_species_pair2flavor = - 1 end function key_species_pair2flavor ! --------------------------------------------------------------------------------------- ! ! create gpoint_flavor list !   a map pointing from each g-point to the corresponding entry in the \"flavor list\" ! subroutine create_gpoint_flavor ( key_species , gpt2band , flavor , gpoint_flavor ) integer , dimension (:,:,:), intent ( in ) :: key_species integer , dimension (:), intent ( in ) :: gpt2band integer , dimension (:,:), intent ( in ) :: flavor integer , dimension (:,:), intent ( out ), allocatable :: gpoint_flavor integer :: ngpt , igpt , iatm ngpt = size ( gpt2band ) allocate ( gpoint_flavor ( 2 , ngpt )) do igpt = 1 , ngpt do iatm = 1 , 2 gpoint_flavor ( iatm , igpt ) = key_species_pair2flavor ( & flavor , & rewrite_key_species_pair ( key_species (:, iatm , gpt2band ( igpt ))) & ) end do end do end subroutine create_gpoint_flavor !-------------------------------------------------------------------------------------------------------------------- ! ! Utility function to combine optical depths from gas absorption and Rayleigh scattering !   It may be more efficient to combine scattering and absorption optical depths in place !   rather than storing and processing two large arrays ! subroutine combine_abs_and_rayleigh ( tau , tau_rayleigh , optical_props ) real ( wp ), dimension (:,:,:), intent ( in ) :: tau real ( wp ), dimension (:,:,:), intent ( in ) :: tau_rayleigh class ( ty_optical_props_arry ), intent ( inout ) :: optical_props integer :: icol , ilay , igpt , ncol , nlay , ngpt , nmom real ( wp ) :: t ncol = size ( tau , 1 ) nlay = size ( tau , 2 ) ngpt = size ( tau , 3 ) select type ( optical_props ) type is ( ty_optical_props_1scl ) ! ! Extinction optical depth ! !$acc parallel loop gang vector collapse(3) default(present) !$omp target teams distribute parallel do simd collapse(3) do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol optical_props % tau ( icol , ilay , igpt ) = tau ( icol , ilay , igpt ) + & tau_rayleigh ( icol , ilay , igpt ) end do end do end do ! ! asymmetry factor or phase function moments ! type is ( ty_optical_props_2str ) ! ! Extinction optical depth and single scattering albedo ! !$acc parallel loop gang vector collapse(3) default(present) !$omp target teams distribute parallel do simd collapse(3) do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol t = tau ( icol , ilay , igpt ) + tau_rayleigh ( icol , ilay , igpt ) if ( t > 2._wp * tiny ( t )) then optical_props % ssa ( icol , ilay , igpt ) = tau_rayleigh ( icol , ilay , igpt ) / t else optical_props % ssa ( icol , ilay , igpt ) = 0._wp end if optical_props % tau ( icol , ilay , igpt ) = t end do end do end do call zero_array ( ncol , nlay , ngpt , optical_props % g ) type is ( ty_optical_props_nstr ) ! ! Extinction optical depth and single scattering albedo ! !$acc parallel loop gang vector collapse(3) default(present) !$omp target teams distribute parallel do simd collapse(3) do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol t = tau ( icol , ilay , igpt ) + tau_rayleigh ( icol , ilay , igpt ) if ( t > 2._wp * tiny ( t )) then optical_props % ssa ( icol , ilay , igpt ) = tau_rayleigh ( icol , ilay , igpt ) / t else optical_props % ssa ( icol , ilay , igpt ) = 0._wp end if optical_props % tau ( icol , ilay , igpt ) = t end do end do end do nmom = size ( optical_props % p , 1 ) call zero_array ( nmom , ncol , nlay , ngpt , optical_props % p ) if ( nmom >= 2 ) then !$acc parallel loop gang vector collapse(3) default(present) !$omp target teams distribute parallel do simd collapse(3) do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol optical_props % p ( 2 , icol , ilay , igpt ) = 0.1_wp end do end do end do end if end select end subroutine combine_abs_and_rayleigh !-------------------------------------------------------------------------------------------------------------------- ! Sizes of tables: pressure, temperate, eta (mixing fraction) !   Equivalent routines for the number of gases and flavors (get_ngas(), get_nflav()) are defined above because they're !   used in function defintions ! Table kmajor has dimensions (ngpt, neta, npres, ntemp) !-------------------------------------------------------------------------------------------------------------------- ! ! return extent of eta dimension ! pure function get_neta ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this integer :: get_neta get_neta = size ( this % kmajor , dim = 2 ) end function ! -------------------------------------------------------------------------------------- ! ! return the number of pressures in reference profile !   absorption coefficient table is one bigger since a pressure is repeated in upper/lower atmos ! pure function get_npres ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this integer :: get_npres get_npres = size ( this % kmajor , dim = 3 ) - 1 end function get_npres ! -------------------------------------------------------------------------------------- ! ! return the number of temperatures ! pure function get_ntemp ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this integer :: get_ntemp get_ntemp = size ( this % kmajor , dim = 1 ) end function get_ntemp ! -------------------------------------------------------------------------------------- ! ! return the number of temperatures for Planck function ! pure function get_nPlanckTemp ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this integer :: get_nPlanckTemp get_nPlanckTemp = size ( this % totplnk , dim = 1 ) ! dimensions are Planck-temperature, band end function get_nPlanckTemp end module mo_gas_optics_rrtmgp","tags":"","loc":"sourcefile/mo_gas_optics_rrtmgp.f90.html"}]}
\ No newline at end of file
+var tipuesearch = {"pages":[{"title":" RRTMGP-Fortran ","text":"RRTMGP-Fortran These pages provide a programmer's view of the Fortran user interface to RRTMGP. RRTMGP provides a class ty_gas_optics_rrtmgp that implements\nthe gas_optics() and other procedure(s) defined by the ty_gas_optics abstract class. The class is used to compute the spectrally-varying optical properties of the\ngaseous atmosphere given temperature, pressure, and gas concentrations. Each instance of the\nvariable is \"loaded\" with data from netCDF\nfiles in the $RRTMGP_DATA directory. Depending on the data provided the variable can be used\nor radiation emitted by the atmosphere and surface (\"longwave\") of for for radiation emitted\nby the planet's star (\"shortwave\"). The class implements both the longwave/internal sources and\nshortwave/external sources versions of the gas_optics procedure.\nThe longwave version reports Planck sources at layer centers and layer interfaces (levels)\nwhile the shortwave version reports the spectrally-varying stellar radiation\nCalling the longwave routine (by providing the longwave-relevant arguments)\nwhen the variable has been initialized with shortwave data triggers a run-time error. The user interface uses the ty_gas_concs type\nto represent the volume mixing ratios needed as input. Output suitable for\nscattering emission, two-stream, or multi-stream calculations are provided\ndepending on which sub-class of RTE's ty_optical_props_arry are provided. Planck source functions, if requested, are reported in a variable\nof type ty_source_func_lw. The listings below may not be exhaustive.\nTo see the full listings use the links at the top of the page.\nThere is a search bar in the top right. Return to the Documentation overview or the [reference overview]. Developer Info The RTE+RRTTMGP consortium","tags":"home","loc":"index.html"},{"title":"ty_cloud_optics_rrtmgp – RRTMGP-Fortran ","text":"type, public, extends(ty_optical_props) :: ty_cloud_optics_rrtmgp Inherits type~~ty_cloud_optics_rrtmgp~~InheritsGraph type~ty_cloud_optics_rrtmgp ty_cloud_optics_rrtmgp ty_optical_props ty_optical_props type~ty_cloud_optics_rrtmgp->ty_optical_props Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables ice_nsteps ice_step_size icergh liq_nsteps liq_step_size lut_asyice lut_asyliq lut_extice lut_extliq lut_ssaice lut_ssaliq pade_asyice pade_asyliq pade_extice pade_extliq pade_sizreg_asyice pade_sizreg_asyliq pade_sizreg_extice pade_sizreg_extliq pade_sizreg_ssaice pade_sizreg_ssaliq pade_ssaice pade_ssaliq radice_lwr radice_upr radliq_lwr radliq_upr Type-Bound Procedures cloud_optics finalize get_max_radius_ice get_max_radius_liq get_min_radius_ice get_min_radius_liq get_num_ice_roughness_types load set_ice_roughness Components Type Visibility Attributes Name Initial integer, public :: ice_nsteps = 0 real(kind=wp), public :: ice_step_size = 0._wp integer, public :: icergh = 0 integer, public :: liq_nsteps = 0 real(kind=wp), public :: liq_step_size = 0._wp real(kind=wp), public, dimension(:,:,:  ), allocatable :: lut_asyice real(kind=wp), public, dimension(:,:    ), allocatable :: lut_asyliq real(kind=wp), public, dimension(:,:,:  ), allocatable :: lut_extice real(kind=wp), public, dimension(:,:    ), allocatable :: lut_extliq real(kind=wp), public, dimension(:,:,:  ), allocatable :: lut_ssaice real(kind=wp), public, dimension(:,:    ), allocatable :: lut_ssaliq real(kind=wp), public, dimension(:,:,:,:), allocatable :: pade_asyice real(kind=wp), public, dimension(:,:,:  ), allocatable :: pade_asyliq real(kind=wp), public, dimension(:,:,:,:), allocatable :: pade_extice real(kind=wp), public, dimension(:,:,:  ), allocatable :: pade_extliq real(kind=wp), public, dimension(:), allocatable :: pade_sizreg_asyice real(kind=wp), public, dimension(:), allocatable :: pade_sizreg_asyliq real(kind=wp), public, dimension(:), allocatable :: pade_sizreg_extice real(kind=wp), public, dimension(:), allocatable :: pade_sizreg_extliq real(kind=wp), public, dimension(:), allocatable :: pade_sizreg_ssaice real(kind=wp), public, dimension(:), allocatable :: pade_sizreg_ssaliq real(kind=wp), public, dimension(:,:,:,:), allocatable :: pade_ssaice real(kind=wp), public, dimension(:,:,:  ), allocatable :: pade_ssaliq real(kind=wp), public :: radice_lwr = 0._wp real(kind=wp), public :: radice_upr = 0._wp real(kind=wp), public :: radliq_lwr = 0._wp real(kind=wp), public :: radliq_upr = 0._wp Type-Bound Procedures procedure, public :: cloud_optics private function cloud_optics(this, clwp, ciwp, reliq, reice, optical_props) result(error_msg) Arguments Type Intent Optional Attributes Name class( ty_cloud_optics_rrtmgp ), intent(in) :: this real(kind=wp), intent(in) :: clwp (:,:) real(kind=wp), intent(in) :: ciwp (:,:) real(kind=wp), intent(in) :: reliq (:,:) real(kind=wp), intent(in) :: reice (:,:) class(ty_optical_props_arry), intent(inout) :: optical_props Return Value character(len=128) procedure, public :: finalize private subroutine finalize(this) Arguments Type Intent Optional Attributes Name class( ty_cloud_optics_rrtmgp ), intent(inout) :: this procedure, public :: get_max_radius_ice private function get_max_radius_ice(this) result(r) Arguments Type Intent Optional Attributes Name class( ty_cloud_optics_rrtmgp ), intent(in) :: this Return Value real(kind=wp) procedure, public :: get_max_radius_liq private function get_max_radius_liq(this) result(r) Arguments Type Intent Optional Attributes Name class( ty_cloud_optics_rrtmgp ), intent(in) :: this Return Value real(kind=wp) procedure, public :: get_min_radius_ice private function get_min_radius_ice(this) result(r) Arguments Type Intent Optional Attributes Name class( ty_cloud_optics_rrtmgp ), intent(in) :: this Return Value real(kind=wp) procedure, public :: get_min_radius_liq private function get_min_radius_liq(this) result(r) Arguments Type Intent Optional Attributes Name class( ty_cloud_optics_rrtmgp ), intent(in) :: this Return Value real(kind=wp) procedure, public :: get_num_ice_roughness_types private function get_num_ice_roughness_types(this) result(i) Arguments Type Intent Optional Attributes Name class( ty_cloud_optics_rrtmgp ), intent(in) :: this Return Value integer generic, public :: load => load_lut, load_pade private function load_lut(this, band_lims_wvn, radliq_lwr, radliq_upr, radice_lwr, radice_upr, lut_extliq, lut_ssaliq, lut_asyliq, lut_extice, lut_ssaice, lut_asyice) result(error_msg) Arguments Type Intent Optional Attributes Name class( ty_cloud_optics_rrtmgp ), intent(inout) :: this real(kind=wp), intent(in), dimension(:,:) :: band_lims_wvn real(kind=wp), intent(in) :: radliq_lwr real(kind=wp), intent(in) :: radliq_upr real(kind=wp), intent(in) :: radice_lwr real(kind=wp), intent(in) :: radice_upr real(kind=wp), intent(in), dimension(:,:) :: lut_extliq real(kind=wp), intent(in), dimension(:,:) :: lut_ssaliq real(kind=wp), intent(in), dimension(:,:) :: lut_asyliq real(kind=wp), intent(in), dimension(:,:,:) :: lut_extice real(kind=wp), intent(in), dimension(:,:,:) :: lut_ssaice real(kind=wp), intent(in), dimension(:,:,:) :: lut_asyice Return Value character(len=128) private function load_pade(this, band_lims_wvn, pade_extliq, pade_ssaliq, pade_asyliq, pade_extice, pade_ssaice, pade_asyice, pade_sizreg_extliq, pade_sizreg_ssaliq, pade_sizreg_asyliq, pade_sizreg_extice, pade_sizreg_ssaice, pade_sizreg_asyice) result(error_msg) Arguments Type Intent Optional Attributes Name class( ty_cloud_optics_rrtmgp ), intent(inout) :: this real(kind=wp), intent(in), dimension(:,:) :: band_lims_wvn real(kind=wp), intent(in), dimension(:,:,:) :: pade_extliq real(kind=wp), intent(in), dimension(:,:,:) :: pade_ssaliq real(kind=wp), intent(in), dimension(:,:,:) :: pade_asyliq real(kind=wp), intent(in), dimension(:,:,:,:) :: pade_extice real(kind=wp), intent(in), dimension(:,:,:,:) :: pade_ssaice real(kind=wp), intent(in), dimension(:,:,:,:) :: pade_asyice real(kind=wp), intent(in), dimension(:) :: pade_sizreg_extliq real(kind=wp), intent(in), dimension(:) :: pade_sizreg_ssaliq real(kind=wp), intent(in), dimension(:) :: pade_sizreg_asyliq real(kind=wp), intent(in), dimension(:) :: pade_sizreg_extice real(kind=wp), intent(in), dimension(:) :: pade_sizreg_ssaice real(kind=wp), intent(in), dimension(:) :: pade_sizreg_asyice Return Value character(len=128) procedure, public :: set_ice_roughness private function set_ice_roughness(this, icergh) result(error_msg) Arguments Type Intent Optional Attributes Name class( ty_cloud_optics_rrtmgp ), intent(inout) :: this integer, intent(in) :: icergh Return Value character(len=128)","tags":"","loc":"type/ty_cloud_optics_rrtmgp.html"},{"title":"ty_aerosol_optics_rrtmgp_merra – RRTMGP-Fortran ","text":"type, public, extends(ty_optical_props) :: ty_aerosol_optics_rrtmgp_merra Inherits type~~ty_aerosol_optics_rrtmgp_merra~~InheritsGraph type~ty_aerosol_optics_rrtmgp_merra ty_aerosol_optics_rrtmgp_merra ty_optical_props ty_optical_props type~ty_aerosol_optics_rrtmgp_merra->ty_optical_props Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables aero_bcar_rh_tbl aero_bcar_tbl aero_dust_tbl aero_ocar_rh_tbl aero_ocar_tbl aero_rh aero_salt_tbl aero_sulf_tbl merra_aero_bin_lims Type-Bound Procedures aerosol_optics finalize load Components Type Visibility Attributes Name Initial real(kind=wp), public, dimension(:,:,:  ), allocatable :: aero_bcar_rh_tbl real(kind=wp), public, dimension(:,:    ), allocatable :: aero_bcar_tbl real(kind=wp), public, dimension(:,:,:  ), allocatable :: aero_dust_tbl real(kind=wp), public, dimension(:,:,:  ), allocatable :: aero_ocar_rh_tbl real(kind=wp), public, dimension(:,:    ), allocatable :: aero_ocar_tbl real(kind=wp), public, dimension(:), allocatable :: aero_rh (:) real(kind=wp), public, dimension(:,:,:,:), allocatable :: aero_salt_tbl real(kind=wp), public, dimension(:,:,:  ), allocatable :: aero_sulf_tbl real(kind=wp), public, dimension(:,:), allocatable :: merra_aero_bin_lims Type-Bound Procedures procedure, public :: aerosol_optics private function aerosol_optics(this, aero_type, aero_size, aero_mass, relhum, optical_props) result(error_msg) Arguments Type Intent Optional Attributes Name class( ty_aerosol_optics_rrtmgp_merra ), intent(in) :: this integer, intent(in) :: aero_type (:,:) real(kind=wp), intent(in) :: aero_size (:,:) real(kind=wp), intent(in) :: aero_mass (:,:) real(kind=wp), intent(in) :: relhum (:,:) class(ty_optical_props_arry), intent(inout) :: optical_props Return Value character(len=128) procedure, public :: finalize private subroutine finalize(this) Arguments Type Intent Optional Attributes Name class( ty_aerosol_optics_rrtmgp_merra ), intent(inout) :: this generic, public :: load => load_lut private function load_lut(this, band_lims_wvn, merra_aero_bin_lims, aero_rh, aero_dust_tbl, aero_salt_tbl, aero_sulf_tbl, aero_bcar_tbl, aero_bcar_rh_tbl, aero_ocar_tbl, aero_ocar_rh_tbl) result(error_msg) Arguments Type Intent Optional Attributes Name class( ty_aerosol_optics_rrtmgp_merra ), intent(inout) :: this real(kind=wp), intent(in), dimension(:,:) :: band_lims_wvn real(kind=wp), intent(in), dimension(:,:) :: merra_aero_bin_lims real(kind=wp), intent(in), dimension(:) :: aero_rh real(kind=wp), intent(in), dimension(:,:,:) :: aero_dust_tbl real(kind=wp), intent(in), dimension(:,:,:,:) :: aero_salt_tbl real(kind=wp), intent(in), dimension(:,:,:) :: aero_sulf_tbl real(kind=wp), intent(in), dimension(:,:) :: aero_bcar_tbl real(kind=wp), intent(in), dimension(:,:,:) :: aero_bcar_rh_tbl real(kind=wp), intent(in), dimension(:,:) :: aero_ocar_tbl real(kind=wp), intent(in), dimension(:,:,:) :: aero_ocar_rh_tbl Return Value character(len=128)","tags":"","loc":"type/ty_aerosol_optics_rrtmgp_merra.html"},{"title":"ty_gas_optics_rrtmgp – RRTMGP-Fortran ","text":"type, public, extends(ty_gas_optics) :: ty_gas_optics_rrtmgp Inherits type~~ty_gas_optics_rrtmgp~~InheritsGraph type~ty_gas_optics_rrtmgp ty_gas_optics_rrtmgp ty_gas_optics ty_gas_optics type~ty_gas_optics_rrtmgp->ty_gas_optics Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables flavor gas_names gpoint_flavor idx_minor_lower idx_minor_scaling_lower idx_minor_scaling_upper idx_minor_upper is_key kmajor kminor_lower kminor_start_lower kminor_start_upper kminor_upper krayl minor_limits_gpt_lower minor_limits_gpt_upper minor_scales_with_density_lower minor_scales_with_density_upper optimal_angle_fit planck_frac press_ref press_ref_log press_ref_log_delta press_ref_max press_ref_min press_ref_trop_log scale_by_complement_lower scale_by_complement_upper solar_source solar_source_facular solar_source_quiet solar_source_sunspot temp_ref temp_ref_delta temp_ref_max temp_ref_min totplnk totplnk_delta vmr_ref Type-Bound Procedures compute_optimal_angles finalize gas_optics_ext gas_optics_int get_gases get_ngas get_press_max get_press_min get_temp_max get_temp_min is_loaded load set_solar_variability set_tsi source_is_external source_is_internal Components Type Visibility Attributes Name Initial integer, public, dimension(:,:), allocatable :: flavor character(len=32), public, dimension(:), allocatable :: gas_names integer, public, dimension(:,:), allocatable :: gpoint_flavor integer, public, dimension(:), allocatable :: idx_minor_lower integer, public, dimension(:), allocatable :: idx_minor_scaling_lower integer, public, dimension(:), allocatable :: idx_minor_scaling_upper integer, public, dimension(:), allocatable :: idx_minor_upper logical, public, dimension(:), allocatable :: is_key real(kind=wp), public, dimension(:,:,:,:), allocatable :: kmajor real(kind=wp), public, dimension(:,:,:), allocatable :: kminor_lower integer, public, dimension(:), allocatable :: kminor_start_lower integer, public, dimension(:), allocatable :: kminor_start_upper real(kind=wp), public, dimension(:,:,:), allocatable :: kminor_upper real(kind=wp), public, dimension(:,:,:,:), allocatable :: krayl integer, public, dimension(:,:), allocatable :: minor_limits_gpt_lower integer, public, dimension(:,:), allocatable :: minor_limits_gpt_upper logical(kind=wl), public, dimension(:), allocatable :: minor_scales_with_density_lower logical(kind=wl), public, dimension(:), allocatable :: minor_scales_with_density_upper real(kind=wp), public, dimension(:,:), allocatable :: optimal_angle_fit real(kind=wp), public, dimension(:,:,:,:), allocatable :: planck_frac real(kind=wp), public, dimension(:), allocatable :: press_ref real(kind=wp), public, dimension(:), allocatable :: press_ref_log real(kind=wp), public :: press_ref_log_delta real(kind=wp), public :: press_ref_max real(kind=wp), public :: press_ref_min real(kind=wp), public :: press_ref_trop_log logical(kind=wl), public, dimension(:), allocatable :: scale_by_complement_lower logical(kind=wl), public, dimension(:), allocatable :: scale_by_complement_upper real(kind=wp), public, dimension(:), allocatable :: solar_source real(kind=wp), public, dimension(:), allocatable :: solar_source_facular real(kind=wp), public, dimension(:), allocatable :: solar_source_quiet real(kind=wp), public, dimension(:), allocatable :: solar_source_sunspot real(kind=wp), public, dimension(:), allocatable :: temp_ref real(kind=wp), public :: temp_ref_delta real(kind=wp), public :: temp_ref_max real(kind=wp), public :: temp_ref_min real(kind=wp), public, dimension(:,:), allocatable :: totplnk real(kind=wp), public :: totplnk_delta real(kind=wp), public, dimension(:,:,:), allocatable :: vmr_ref Type-Bound Procedures procedure, public :: compute_optimal_angles private function compute_optimal_angles(this, optical_props, optimal_angles) result(err_msg) Compute a transport angle that minimizes flux errors at surface and TOA based on empirical fits Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(in) :: this class(ty_optical_props_arry), intent(in) :: optical_props Optical properties real(kind=wp), intent(out), dimension(:,:) :: optimal_angles Secant of optical transport angle Return Value character(len=128) Empty if successful procedure, public :: finalize private subroutine finalize(this) Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(inout) :: this procedure, public :: gas_optics_ext private function gas_optics_ext(this, play, plev, tlay, gas_desc, optical_props, toa_src, col_dry) result(error_msg) Compute gas optical depth given temperature, pressure, and composition\n   Top-of-atmosphere stellar insolation is also reported Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(in) :: this real(kind=wp), intent(in), dimension(:,:) :: play layer pressures [Pa, mb]; (ncol,nlay)\nlevel pressures [Pa, mb]; (ncol,nlay+1)\nlayer temperatures [K]; (ncol,nlay) real(kind=wp), intent(in), dimension(:,:) :: plev layer pressures [Pa, mb]; (ncol,nlay)\nlevel pressures [Pa, mb]; (ncol,nlay+1)\nlayer temperatures [K]; (ncol,nlay) real(kind=wp), intent(in), dimension(:,:) :: tlay layer pressures [Pa, mb]; (ncol,nlay)\nlevel pressures [Pa, mb]; (ncol,nlay+1)\nlayer temperatures [K]; (ncol,nlay) type(ty_gas_concs), intent(in) :: gas_desc Gas volume mixing ratios class(ty_optical_props_arry), intent(inout) :: optical_props real(kind=wp), intent(out), dimension(:,:) :: toa_src Incoming solar irradiance(ncol,ngpt) real(kind=wp), intent(in), optional dimension(:,:), target :: col_dry Return Value character(len=128) Empty if successful procedure, public :: gas_optics_int private function gas_optics_int(this, play, plev, tlay, tsfc, gas_desc, optical_props, sources, col_dry, tlev) result(error_msg) Compute gas optical depth and Planck source functions,\n given temperature, pressure, and composition Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(in) :: this real(kind=wp), intent(in), dimension(:,:) :: play layer pressures [Pa, mb]; (ncol,nlay)\nlevel pressures [Pa, mb]; (ncol,nlay+1)\nlayer temperatures [K]; (ncol,nlay) real(kind=wp), intent(in), dimension(:,:) :: plev layer pressures [Pa, mb]; (ncol,nlay)\nlevel pressures [Pa, mb]; (ncol,nlay+1)\nlayer temperatures [K]; (ncol,nlay) real(kind=wp), intent(in), dimension(:,:) :: tlay layer pressures [Pa, mb]; (ncol,nlay)\nlevel pressures [Pa, mb]; (ncol,nlay+1)\nlayer temperatures [K]; (ncol,nlay) real(kind=wp), intent(in), dimension(:) :: tsfc surface skin temperatures [K]; (ncol) type(ty_gas_concs), intent(in) :: gas_desc Gas volume mixing ratios class(ty_optical_props_arry), intent(inout) :: optical_props Optical properties class(ty_source_func_lw), intent(inout) :: sources Planck sources real(kind=wp), intent(in), optional dimension(:,:), target :: col_dry Column dry amount; dim(ncol,nlay)\nlevel temperatures [K]; (ncol,nlay+1) real(kind=wp), intent(in), optional dimension(:,:), target :: tlev Column dry amount; dim(ncol,nlay)\nlevel temperatures [K]; (ncol,nlay+1) Return Value character(len=128) Empty if succssful procedure, public :: get_gases private pure function get_gases(this) return the names of the gases known to the k-distributions Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(in) :: this Return Value character(len=32),dimension(get_ngas(this)) names of the gases known to the k-distributions procedure, public :: get_ngas private pure function get_ngas(this) Two functions to define array sizes needed by gas_optics() Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(in) :: this Return Value integer procedure, public :: get_press_max private pure function get_press_max(this) return the maximum pressure on the interpolation grids Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(in) :: this Return Value real(kind=wp) maximum pressure for which the k-dsitribution is valid procedure, public :: get_press_min private pure function get_press_min(this) return the minimum pressure on the interpolation grids Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(in) :: this Return Value real(kind=wp) minimum pressure for which the k-dsitribution is valid procedure, public :: get_temp_max private pure function get_temp_max(this) return the maximum temparature on the interpolation grids Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(in) :: this Return Value real(kind=wp) maximum temperature for which the k-dsitribution is valid procedure, public :: get_temp_min private pure function get_temp_min(this) return the minimum temparature on the interpolation grids Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(in) :: this Return Value real(kind=wp) minimum temperature for which the k-dsitribution is valid procedure, public :: is_loaded private pure function is_loaded(this) Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(in) :: this Return Value logical(kind=wl) generic, public :: load => load_int, load_ext private function load_int(this, available_gases, gas_names, key_species, band2gpt, band_lims_wavenum, press_ref, press_ref_trop, temp_ref, temp_ref_p, temp_ref_t, vmr_ref, kmajor, kminor_lower, kminor_upper, gas_minor, identifier_minor, minor_gases_lower, minor_gases_upper, minor_limits_gpt_lower, minor_limits_gpt_upper, minor_scales_with_density_lower, minor_scales_with_density_upper, scaling_gas_lower, scaling_gas_upper, scale_by_complement_lower, scale_by_complement_upper, kminor_start_lower, kminor_start_upper, totplnk, planck_frac, rayl_lower, rayl_upper, optimal_angle_fit) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(inout) :: this class(ty_gas_concs), intent(in) :: available_gases character(len=*), intent(in), dimension(:) :: gas_names integer, intent(in), dimension(:,:,:) :: key_species integer, intent(in), dimension(:,:) :: band2gpt real(kind=wp), intent(in), dimension(:,:) :: band_lims_wavenum real(kind=wp), intent(in), dimension(:) :: press_ref real(kind=wp), intent(in) :: press_ref_trop real(kind=wp), intent(in), dimension(:) :: temp_ref real(kind=wp), intent(in) :: temp_ref_p real(kind=wp), intent(in) :: temp_ref_t real(kind=wp), intent(in), dimension(:,:,:) :: vmr_ref real(kind=wp), intent(in), dimension(:,:,:,:) :: kmajor real(kind=wp), intent(in), dimension(:,:,:) :: kminor_lower real(kind=wp), intent(in), dimension(:,:,:) :: kminor_upper character(len=*), intent(in), dimension(:) :: gas_minor character(len=*), intent(in), dimension(:) :: identifier_minor character(len=*), intent(in), dimension(:) :: minor_gases_lower character(len=*), intent(in), dimension(:) :: minor_gases_upper integer, intent(in), dimension(:,:) :: minor_limits_gpt_lower integer, intent(in), dimension(:,:) :: minor_limits_gpt_upper logical(kind=wl), intent(in), dimension(:) :: minor_scales_with_density_lower logical(kind=wl), intent(in), dimension(:) :: minor_scales_with_density_upper character(len=*), intent(in), dimension(:) :: scaling_gas_lower character(len=*), intent(in), dimension(:) :: scaling_gas_upper logical(kind=wl), intent(in), dimension(:) :: scale_by_complement_lower logical(kind=wl), intent(in), dimension(:) :: scale_by_complement_upper integer, intent(in), dimension(:) :: kminor_start_lower integer, intent(in), dimension(:) :: kminor_start_upper real(kind=wp), intent(in), dimension(:,:) :: totplnk real(kind=wp), intent(in), dimension(:,:,:,:) :: planck_frac real(kind=wp), intent(in), dimension(:,:,:), allocatable :: rayl_lower real(kind=wp), intent(in), dimension(:,:,:), allocatable :: rayl_upper real(kind=wp), intent(in), dimension(:,:) :: optimal_angle_fit Return Value character(len=128) private function load_ext(this, available_gases, gas_names, key_species, band2gpt, band_lims_wavenum, press_ref, press_ref_trop, temp_ref, temp_ref_p, temp_ref_t, vmr_ref, kmajor, kminor_lower, kminor_upper, gas_minor, identifier_minor, minor_gases_lower, minor_gases_upper, minor_limits_gpt_lower, minor_limits_gpt_upper, minor_scales_with_density_lower, minor_scales_with_density_upper, scaling_gas_lower, scaling_gas_upper, scale_by_complement_lower, scale_by_complement_upper, kminor_start_lower, kminor_start_upper, solar_quiet, solar_facular, solar_sunspot, tsi_default, mg_default, sb_default, rayl_lower, rayl_upper) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(inout) :: this class(ty_gas_concs), intent(in) :: available_gases character(len=*), intent(in), dimension(:) :: gas_names integer, intent(in), dimension(:,:,:) :: key_species integer, intent(in), dimension(:,:) :: band2gpt real(kind=wp), intent(in), dimension(:,:) :: band_lims_wavenum real(kind=wp), intent(in), dimension(:) :: press_ref real(kind=wp), intent(in) :: press_ref_trop real(kind=wp), intent(in), dimension(:) :: temp_ref real(kind=wp), intent(in) :: temp_ref_p real(kind=wp), intent(in) :: temp_ref_t real(kind=wp), intent(in), dimension(:,:,:) :: vmr_ref real(kind=wp), intent(in), dimension(:,:,:,:) :: kmajor real(kind=wp), intent(in), dimension(:,:,:) :: kminor_lower real(kind=wp), intent(in), dimension(:,:,:) :: kminor_upper character(len=*), intent(in), dimension(:) :: gas_minor character(len=*), intent(in), dimension(:) :: identifier_minor character(len=*), intent(in), dimension(:) :: minor_gases_lower character(len=*), intent(in), dimension(:) :: minor_gases_upper integer, intent(in), dimension(:,:) :: minor_limits_gpt_lower integer, intent(in), dimension(:,:) :: minor_limits_gpt_upper logical(kind=wl), intent(in), dimension(:) :: minor_scales_with_density_lower logical(kind=wl), intent(in), dimension(:) :: minor_scales_with_density_upper character(len=*), intent(in), dimension(:) :: scaling_gas_lower character(len=*), intent(in), dimension(:) :: scaling_gas_upper logical(kind=wl), intent(in), dimension(:) :: scale_by_complement_lower logical(kind=wl), intent(in), dimension(:) :: scale_by_complement_upper integer, intent(in), dimension(:) :: kminor_start_lower integer, intent(in), dimension(:) :: kminor_start_upper real(kind=wp), intent(in), dimension(:) :: solar_quiet real(kind=wp), intent(in), dimension(:) :: solar_facular real(kind=wp), intent(in), dimension(:) :: solar_sunspot real(kind=wp), intent(in) :: tsi_default real(kind=wp), intent(in) :: mg_default real(kind=wp), intent(in) :: sb_default real(kind=wp), intent(in), dimension(:,:,:), allocatable :: rayl_lower real(kind=wp), intent(in), dimension(:,:,:), allocatable :: rayl_upper Return Value character(len=128) procedure, public :: set_solar_variability private function set_solar_variability(this, mg_index, sb_index, tsi) result(error_msg) Compute the spectral solar source function adjusted to account for solar variability\n  following the NRLSSI2 model of Coddington et al. 2016, doi:10.1175/BAMS-D-14-00265.1.\nas specified by the facular brightening (mg_index) and sunspot dimming (sb_index)\nindices provided as input. Read more… Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(inout) :: this real(kind=wp), intent(in) :: mg_index facular brightening index (NRLSSI2 facular \"Bremen\" index) real(kind=wp), intent(in) :: sb_index sunspot dimming index     (NRLSSI2 sunspot \"SPOT67\" index) real(kind=wp), intent(in), optional :: tsi total solar irradiance Return Value character(len=128) Empty if successful procedure, public :: set_tsi private function set_tsi(this, tsi) result(error_msg) Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(inout) :: this Scale the solar source function without changing the spectral distribution real(kind=wp), intent(in) :: tsi user-specified total solar irradiance; Return Value character(len=128) Empty if successful procedure, public :: source_is_external private pure function source_is_external(this) return true if initialized for external sources/shortwave, false otherwise Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(in) :: this Return Value logical procedure, public :: source_is_internal private pure function source_is_internal(this) return true if initialized for internal sources/longwave, false otherwise Arguments Type Intent Optional Attributes Name class( ty_gas_optics_rrtmgp ), intent(in) :: this Return Value logical","tags":"","loc":"type/ty_gas_optics_rrtmgp.html"},{"title":"pade_eval – RRTMGP-Fortran","text":"public interface pade_eval Contents Module Procedures pade_eval_nbnd pade_eval_1 Module Procedures private function pade_eval_nbnd(nbnd, nrads, m, n, irad, re, pade_coeffs) Arguments Type Intent Optional Attributes Name integer, intent(in) :: nbnd integer, intent(in) :: nrads integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: irad real(kind=wp), intent(in) :: re real(kind=wp), intent(in), dimension(nbnd, nrads, 0:m+n) :: pade_coeffs Return Value real(kind=wp),dimension(nbnd) private function pade_eval_1(iband, nbnd, nrads, m, n, irad, re, pade_coeffs) Arguments Type Intent Optional Attributes Name integer, intent(in) :: iband integer, intent(in) :: nbnd integer, intent(in) :: nrads integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: irad real(kind=wp), intent(in) :: re real(kind=wp), intent(in), dimension(nbnd, nrads, 0:m+n) :: pade_coeffs Return Value real(kind=wp)","tags":"","loc":"interface/pade_eval.html"},{"title":"get_col_dry – RRTMGP-Fortran","text":"public function get_col_dry(vmr_h2o, plev, latitude) result(col_dry) Utility function, provided for user convenience\ncomputes column amounts of dry air using hydrostatic equation Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:) :: vmr_h2o real(kind=wp), intent(in), dimension(:,:) :: plev real(kind=wp), intent(in), optional dimension(:) :: latitude Return Value real(kind=wp),dimension(size(plev,dim=1),size(plev,dim=2)-1) Contents None","tags":"","loc":"proc/get_col_dry.html"},{"title":"mo_cloud_optics_rrtmgp – RRTMGP-Fortran","text":"Uses mo_rte_util_array_validation mo_optical_props mo_rte_config mo_rte_kind module~~mo_cloud_optics_rrtmgp~~UsesGraph module~mo_cloud_optics_rrtmgp mo_cloud_optics_rrtmgp mo_rte_util_array_validation mo_rte_util_array_validation module~mo_cloud_optics_rrtmgp->mo_rte_util_array_validation mo_optical_props mo_optical_props module~mo_cloud_optics_rrtmgp->mo_optical_props mo_rte_config mo_rte_config module~mo_cloud_optics_rrtmgp->mo_rte_config mo_rte_kind mo_rte_kind module~mo_cloud_optics_rrtmgp->mo_rte_kind Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Interfaces pade_eval Derived Types ty_cloud_optics_rrtmgp Interfaces public interface pade_eval private function pade_eval_nbnd(nbnd, nrads, m, n, irad, re, pade_coeffs) Arguments Type Intent Optional Attributes Name integer, intent(in) :: nbnd integer, intent(in) :: nrads integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: irad real(kind=wp), intent(in) :: re real(kind=wp), intent(in), dimension(nbnd, nrads, 0:m+n) :: pade_coeffs Return Value real(kind=wp),dimension(nbnd) private function pade_eval_1(iband, nbnd, nrads, m, n, irad, re, pade_coeffs) Arguments Type Intent Optional Attributes Name integer, intent(in) :: iband integer, intent(in) :: nbnd integer, intent(in) :: nrads integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: irad real(kind=wp), intent(in) :: re real(kind=wp), intent(in), dimension(nbnd, nrads, 0:m+n) :: pade_coeffs Return Value real(kind=wp) Derived Types type, public, extends(ty_optical_props) :: ty_cloud_optics_rrtmgp Components Type Visibility Attributes Name Initial integer, public :: ice_nsteps = 0 real(kind=wp), public :: ice_step_size = 0._wp integer, public :: icergh = 0 integer, public :: liq_nsteps = 0 real(kind=wp), public :: liq_step_size = 0._wp real(kind=wp), public, dimension(:,:,:  ), allocatable :: lut_asyice real(kind=wp), public, dimension(:,:    ), allocatable :: lut_asyliq real(kind=wp), public, dimension(:,:,:  ), allocatable :: lut_extice real(kind=wp), public, dimension(:,:    ), allocatable :: lut_extliq real(kind=wp), public, dimension(:,:,:  ), allocatable :: lut_ssaice real(kind=wp), public, dimension(:,:    ), allocatable :: lut_ssaliq real(kind=wp), public, dimension(:,:,:,:), allocatable :: pade_asyice real(kind=wp), public, dimension(:,:,:  ), allocatable :: pade_asyliq real(kind=wp), public, dimension(:,:,:,:), allocatable :: pade_extice real(kind=wp), public, dimension(:,:,:  ), allocatable :: pade_extliq real(kind=wp), public, dimension(:), allocatable :: pade_sizreg_asyice real(kind=wp), public, dimension(:), allocatable :: pade_sizreg_asyliq real(kind=wp), public, dimension(:), allocatable :: pade_sizreg_extice real(kind=wp), public, dimension(:), allocatable :: pade_sizreg_extliq real(kind=wp), public, dimension(:), allocatable :: pade_sizreg_ssaice real(kind=wp), public, dimension(:), allocatable :: pade_sizreg_ssaliq real(kind=wp), public, dimension(:,:,:,:), allocatable :: pade_ssaice real(kind=wp), public, dimension(:,:,:  ), allocatable :: pade_ssaliq real(kind=wp), public :: radice_lwr = 0._wp real(kind=wp), public :: radice_upr = 0._wp real(kind=wp), public :: radliq_lwr = 0._wp real(kind=wp), public :: radliq_upr = 0._wp Type-Bound Procedures procedure, public :: cloud_optics procedure, public :: finalize procedure, public :: get_max_radius_ice procedure, public :: get_max_radius_liq procedure, public :: get_min_radius_ice procedure, public :: get_min_radius_liq procedure, public :: get_num_ice_roughness_types generic, public :: load => load_lut, load_pade procedure, public :: set_ice_roughness","tags":"","loc":"module/mo_cloud_optics_rrtmgp.html"},{"title":"mo_aerosol_optics_rrtmgp_merra – RRTMGP-Fortran","text":"Uses mo_rte_util_array_validation mo_optical_props mo_rte_config mo_rte_kind module~~mo_aerosol_optics_rrtmgp_merra~~UsesGraph module~mo_aerosol_optics_rrtmgp_merra mo_aerosol_optics_rrtmgp_merra mo_rte_util_array_validation mo_rte_util_array_validation module~mo_aerosol_optics_rrtmgp_merra->mo_rte_util_array_validation mo_optical_props mo_optical_props module~mo_aerosol_optics_rrtmgp_merra->mo_optical_props mo_rte_config mo_rte_config module~mo_aerosol_optics_rrtmgp_merra->mo_rte_config mo_rte_kind mo_rte_kind module~mo_aerosol_optics_rrtmgp_merra->mo_rte_kind Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Variables merra_aero_bcar merra_aero_bcar_rh merra_aero_dust merra_aero_none merra_aero_ocar merra_aero_ocar_rh merra_aero_salt merra_aero_sulf merra_ntype Derived Types ty_aerosol_optics_rrtmgp_merra Variables Type Visibility Attributes Name Initial integer, public, parameter :: merra_aero_bcar = 5 integer, public, parameter :: merra_aero_bcar_rh = 4 integer, public, parameter :: merra_aero_dust = 1 integer, public, parameter :: merra_aero_none = 0 integer, public, parameter :: merra_aero_ocar = 7 integer, public, parameter :: merra_aero_ocar_rh = 6 integer, public, parameter :: merra_aero_salt = 2 integer, public, parameter :: merra_aero_sulf = 3 integer, public, parameter :: merra_ntype = 7 Derived Types type, public, extends(ty_optical_props) :: ty_aerosol_optics_rrtmgp_merra Components Type Visibility Attributes Name Initial real(kind=wp), public, dimension(:,:,:  ), allocatable :: aero_bcar_rh_tbl real(kind=wp), public, dimension(:,:    ), allocatable :: aero_bcar_tbl real(kind=wp), public, dimension(:,:,:  ), allocatable :: aero_dust_tbl real(kind=wp), public, dimension(:,:,:  ), allocatable :: aero_ocar_rh_tbl real(kind=wp), public, dimension(:,:    ), allocatable :: aero_ocar_tbl real(kind=wp), public, dimension(:), allocatable :: aero_rh (:) real(kind=wp), public, dimension(:,:,:,:), allocatable :: aero_salt_tbl real(kind=wp), public, dimension(:,:,:  ), allocatable :: aero_sulf_tbl real(kind=wp), public, dimension(:,:), allocatable :: merra_aero_bin_lims Type-Bound Procedures procedure, public :: aerosol_optics procedure, public :: finalize generic, public :: load => load_lut","tags":"","loc":"module/mo_aerosol_optics_rrtmgp_merra.html"},{"title":"mo_gas_optics_rrtmgp – RRTMGP-Fortran","text":"Class implementing the RRTMGP correlated- k distribution Implements a class for computing spectrally-resolved gas optical properties and source functions\n  given atmopsheric physical properties (profiles of temperature, pressure, and gas concentrations)\n  The class must be initialized with data (provided as a netCDF file) before being used. Two variants apply to internal Planck sources (longwave radiation in the Earth's atmosphere) and to\n  external stellar radiation (shortwave radiation in the Earth's atmosphere).\n  The variant is chosen based on what information is supplied during initialization.\ncol_dry is the number of molecules per cm-2 of dry air Uses mo_gas_concentrations mo_rte_config mo_rte_kind mo_gas_optics_constants mo_gas_optics mo_rte_util_array_validation mo_rte_util_array mo_optical_props mo_gas_optics_util_string mo_gas_optics_rrtmgp_kernels mo_source_functions module~~mo_gas_optics_rrtmgp~~UsesGraph module~mo_gas_optics_rrtmgp mo_gas_optics_rrtmgp mo_gas_concentrations mo_gas_concentrations module~mo_gas_optics_rrtmgp->mo_gas_concentrations mo_gas_optics_util_string mo_gas_optics_util_string module~mo_gas_optics_rrtmgp->mo_gas_optics_util_string mo_rte_util_array_validation mo_rte_util_array_validation module~mo_gas_optics_rrtmgp->mo_rte_util_array_validation mo_rte_config mo_rte_config module~mo_gas_optics_rrtmgp->mo_rte_config mo_gas_optics mo_gas_optics module~mo_gas_optics_rrtmgp->mo_gas_optics mo_source_functions mo_source_functions module~mo_gas_optics_rrtmgp->mo_source_functions mo_gas_optics_constants mo_gas_optics_constants module~mo_gas_optics_rrtmgp->mo_gas_optics_constants mo_rte_kind mo_rte_kind module~mo_gas_optics_rrtmgp->mo_rte_kind mo_rte_util_array mo_rte_util_array module~mo_gas_optics_rrtmgp->mo_rte_util_array mo_optical_props mo_optical_props module~mo_gas_optics_rrtmgp->mo_optical_props mo_gas_optics_rrtmgp_kernels mo_gas_optics_rrtmgp_kernels module~mo_gas_optics_rrtmgp->mo_gas_optics_rrtmgp_kernels Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Derived Types ty_gas_optics_rrtmgp Functions get_col_dry Derived Types type, public, extends(ty_gas_optics) :: ty_gas_optics_rrtmgp Components Type Visibility Attributes Name Initial integer, public, dimension(:,:), allocatable :: flavor character(len=32), public, dimension(:), allocatable :: gas_names integer, public, dimension(:,:), allocatable :: gpoint_flavor integer, public, dimension(:), allocatable :: idx_minor_lower integer, public, dimension(:), allocatable :: idx_minor_scaling_lower integer, public, dimension(:), allocatable :: idx_minor_scaling_upper integer, public, dimension(:), allocatable :: idx_minor_upper logical, public, dimension(:), allocatable :: is_key real(kind=wp), public, dimension(:,:,:,:), allocatable :: kmajor real(kind=wp), public, dimension(:,:,:), allocatable :: kminor_lower integer, public, dimension(:), allocatable :: kminor_start_lower integer, public, dimension(:), allocatable :: kminor_start_upper real(kind=wp), public, dimension(:,:,:), allocatable :: kminor_upper real(kind=wp), public, dimension(:,:,:,:), allocatable :: krayl integer, public, dimension(:,:), allocatable :: minor_limits_gpt_lower integer, public, dimension(:,:), allocatable :: minor_limits_gpt_upper logical(kind=wl), public, dimension(:), allocatable :: minor_scales_with_density_lower logical(kind=wl), public, dimension(:), allocatable :: minor_scales_with_density_upper real(kind=wp), public, dimension(:,:), allocatable :: optimal_angle_fit real(kind=wp), public, dimension(:,:,:,:), allocatable :: planck_frac real(kind=wp), public, dimension(:), allocatable :: press_ref real(kind=wp), public, dimension(:), allocatable :: press_ref_log real(kind=wp), public :: press_ref_log_delta real(kind=wp), public :: press_ref_max real(kind=wp), public :: press_ref_min real(kind=wp), public :: press_ref_trop_log logical(kind=wl), public, dimension(:), allocatable :: scale_by_complement_lower logical(kind=wl), public, dimension(:), allocatable :: scale_by_complement_upper real(kind=wp), public, dimension(:), allocatable :: solar_source real(kind=wp), public, dimension(:), allocatable :: solar_source_facular real(kind=wp), public, dimension(:), allocatable :: solar_source_quiet real(kind=wp), public, dimension(:), allocatable :: solar_source_sunspot real(kind=wp), public, dimension(:), allocatable :: temp_ref real(kind=wp), public :: temp_ref_delta real(kind=wp), public :: temp_ref_max real(kind=wp), public :: temp_ref_min real(kind=wp), public, dimension(:,:), allocatable :: totplnk real(kind=wp), public :: totplnk_delta real(kind=wp), public, dimension(:,:,:), allocatable :: vmr_ref Type-Bound Procedures procedure, public :: compute_optimal_angles procedure, public :: finalize procedure, public :: gas_optics_ext procedure, public :: gas_optics_int procedure, public :: get_gases procedure, public :: get_ngas procedure, public :: get_press_max procedure, public :: get_press_min procedure, public :: get_temp_max procedure, public :: get_temp_min procedure, public :: is_loaded generic, public :: load => load_int, load_ext procedure, public :: set_solar_variability procedure, public :: set_tsi procedure, public :: source_is_external procedure, public :: source_is_internal Functions public function get_col_dry (vmr_h2o, plev, latitude) result(col_dry) Utility function, provided for user convenience\ncomputes column amounts of dry air using hydrostatic equation Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:) :: vmr_h2o real(kind=wp), intent(in), dimension(:,:) :: plev real(kind=wp), intent(in), optional dimension(:) :: latitude Return Value real(kind=wp),dimension(size(plev,dim=1),size(plev,dim=2)-1)","tags":"","loc":"module/mo_gas_optics_rrtmgp.html"},{"title":"mo_cloud_optics_rrtmgp.F90 – RRTMGP-Fortran","text":"Contents Modules mo_cloud_optics_rrtmgp Source Code mo_cloud_optics_rrtmgp.F90 Source Code ! This code is part of Radiative Transfer for Energetics (RTE) ! ! Contacts: Robert Pincus and Eli Mlawer ! email:  rrtmgp@aer.com ! ! Copyright 2015-2018,  Atmospheric and Environmental Research and ! Regents of the University of Colorado.  All right reserved. ! ! Use and duplication is permitted under the terms of the !    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause ! ------------------------------------------------------------------------------------------------- ! Provides cloud optical properties as a function of effective radius for the RRTMGP bands !   Based on Mie calculations for liquid !     and results from doi:10.1175/JAS-D-12-039.1 for ice with variable surface roughness !   Can use either look-up tables or Pade approximates according to which data has been loaded !   Mike Iacono (AER) is the original author ! ! The class can be used as-is but is also intended as an example of how to extend the RTE framework ! ------------------------------------------------------------------------------------------------- module mo_cloud_optics_rrtmgp use mo_rte_kind , only : wp , wl use mo_rte_config , only : check_values , check_extents use mo_rte_util_array_validation ,& only : any_vals_less_than , any_vals_outside , extents_are use mo_optical_props , only : ty_optical_props , & ty_optical_props_arry , & ty_optical_props_1scl , & ty_optical_props_2str , & ty_optical_props_nstr implicit none interface pade_eval module procedure pade_eval_nbnd , pade_eval_1 end interface pade_eval private ! ----------------------------------------------------------------------------------- type , extends ( ty_optical_props ), public :: ty_cloud_optics_rrtmgp private ! ! Ice surface roughness category - needed for Yang (2013) ice optics parameterization ! integer :: icergh = 0 ! (1 = none, 2 = medium, 3 = high) ! ! Lookup table information ! ! Upper and lower limits of the tables real ( wp ) :: radliq_lwr = 0._wp , radliq_upr = 0._wp real ( wp ) :: radice_lwr = 0._wp , radice_upr = 0._wp ! How many steps in the table? (for convenience) integer :: liq_nsteps = 0 , ice_nsteps = 0 ! How big is each step in the table? real ( wp ) :: liq_step_size = 0._wp , ice_step_size = 0._wp ! ! The tables themselves. ! real ( wp ), dimension (:,: ), allocatable :: lut_extliq , lut_ssaliq , lut_asyliq ! (nsize_liq, nbnd) real ( wp ), dimension (:,:,: ), allocatable :: lut_extice , lut_ssaice , lut_asyice ! (nsize_ice, nbnd, nrghice) ! ! Pade approximant coefficients ! real ( wp ), dimension (:,:,: ), allocatable :: pade_extliq ! (nbnd, nsizereg, ncoeff_ext) real ( wp ), dimension (:,:,: ), allocatable :: pade_ssaliq , pade_asyliq ! (nbnd, nsizereg, ncoeff_ssa_g) real ( wp ), dimension (:,:,:,:), allocatable :: pade_extice ! (nbnd, nsizereg, ncoeff_ext, nrghice) real ( wp ), dimension (:,:,:,:), allocatable :: pade_ssaice , pade_asyice ! (nbnd, nsizereg, ncoeff_ssa_g, nrghice) ! Particle size regimes for Pade formulations real ( wp ), dimension (:), allocatable :: pade_sizreg_extliq , pade_sizreg_ssaliq , pade_sizreg_asyliq ! (nbound) real ( wp ), dimension (:), allocatable :: pade_sizreg_extice , pade_sizreg_ssaice , pade_sizreg_asyice ! (nbound) ! ----- contains generic , public :: load => load_lut , load_pade procedure , public :: finalize procedure , public :: cloud_optics procedure , public :: get_min_radius_liq procedure , public :: get_min_radius_ice procedure , public :: get_max_radius_liq procedure , public :: get_max_radius_ice procedure , public :: get_num_ice_roughness_types procedure , public :: set_ice_roughness ! Internal procedures procedure , private :: load_lut procedure , private :: load_pade end type ty_cloud_optics_rrtmgp contains ! ------------------------------------------------------------------------------ ! ! Routines to load data needed for cloud optics calculations. Two routines: one to load !    lookup-tables and one for coefficients for Pade approximates ! ! ------------------------------------------------------------------------------ function load_lut ( this , band_lims_wvn , & radliq_lwr , radliq_upr , & radice_lwr , radice_upr , & lut_extliq , lut_ssaliq , lut_asyliq , & lut_extice , lut_ssaice , lut_asyice ) result ( error_msg ) class ( ty_cloud_optics_rrtmgp ), intent ( inout ) :: this real ( wp ), dimension (:,:), intent ( in ) :: band_lims_wvn ! Spectral discretization ! Lookup table interpolation constants ! Lower and upper bounds of the tables; also the constant for calculating interpolation indices for liquid real ( wp ), intent ( in ) :: radliq_lwr , radliq_upr real ( wp ), intent ( in ) :: radice_lwr , radice_upr ! LUT coefficients ! Extinction, single-scattering albedo, and asymmetry parameter for liquid and ice respectively real ( wp ), dimension (:,:), intent ( in ) :: lut_extliq , lut_ssaliq , lut_asyliq real ( wp ), dimension (:,:,:), intent ( in ) :: lut_extice , lut_ssaice , lut_asyice character ( len = 128 ) :: error_msg ! ------- ! ! Local variables ! integer :: nbnd , nrghice , nsize_liq , nsize_ice error_msg = this % init ( band_lims_wvn , name = \"RRTMGP cloud optics\" ) ! ! LUT coefficient dimensions ! nsize_liq = size ( lut_extliq , dim = 1 ) nsize_ice = size ( lut_extice , dim = 1 ) nbnd = size ( lut_extliq , dim = 2 ) nrghice = size ( lut_extice , dim = 3 ) ! ! Error checking !   Can we check for consistency between table bounds and _fac? ! if ( nbnd /= this % get_nband ()) & error_msg = \"cloud_optics%init(): number of bands inconsistent between lookup tables, spectral discretization\" if ( size ( lut_extice , 2 ) /= nbnd ) & error_msg = \"cloud_optics%init(): array lut_extice has the wrong number of bands\" if (. not . extents_are ( lut_ssaliq , nsize_liq , nbnd )) & error_msg = \"cloud_optics%init(): array lut_ssaliq isn't consistently sized\" if (. not . extents_are ( lut_asyliq , nsize_liq , nbnd )) & error_msg = \"cloud_optics%init(): array lut_asyliq isn't consistently sized\" if (. not . extents_are ( lut_ssaice , nsize_ice , nbnd , nrghice )) & error_msg = \"cloud_optics%init(): array lut_ssaice  isn't consistently sized\" if (. not . extents_are ( lut_asyice , nsize_ice , nbnd , nrghice )) & error_msg = \"cloud_optics%init(): array lut_asyice  isn't consistently sized\" if ( error_msg /= \"\" ) return this % liq_nsteps = nsize_liq this % ice_nsteps = nsize_ice this % liq_step_size = ( radliq_upr - radliq_lwr ) / real ( nsize_liq - 1 , wp ) this % ice_step_size = ( radice_upr - radice_lwr ) / real ( nsize_ice - 1 , wp ) ! Allocate LUT coefficients allocate ( this % lut_extliq ( nsize_liq , nbnd ), & this % lut_ssaliq ( nsize_liq , nbnd ), & this % lut_asyliq ( nsize_liq , nbnd ), & this % lut_extice ( nsize_ice , nbnd , nrghice ), & this % lut_ssaice ( nsize_ice , nbnd , nrghice ), & this % lut_asyice ( nsize_ice , nbnd , nrghice )) !$acc enter data create(this)                                               & !$acc            create(this%lut_extliq, this%lut_ssaliq, this%lut_asyliq)  & !$acc            create(this%lut_extice, this%lut_ssaice, this%lut_asyice) !$omp target enter data & !$omp map(alloc:this%lut_extliq, this%lut_ssaliq, this%lut_asyliq) & !$omp map(alloc:this%lut_extice, this%lut_ssaice, this%lut_asyice) ! Load LUT constants this % radliq_lwr = radliq_lwr this % radliq_upr = radliq_upr this % radice_lwr = radice_lwr this % radice_upr = radice_upr ! Load LUT coefficients !$acc kernels !$omp target this % lut_extliq = lut_extliq this % lut_ssaliq = lut_ssaliq this % lut_asyliq = lut_asyliq this % lut_extice = lut_extice this % lut_ssaice = lut_ssaice this % lut_asyice = lut_asyice !$acc end kernels !$omp end target ! ! Set default ice roughness - min values ! error_msg = this % set_ice_roughness ( 1 ) end function load_lut ! ------------------------------------------------------------------------------ ! ! Cloud optics initialization function - Pade ! ! ------------------------------------------------------------------------------ function load_pade ( this , band_lims_wvn , & pade_extliq , pade_ssaliq , pade_asyliq , & pade_extice , pade_ssaice , pade_asyice , & pade_sizreg_extliq , pade_sizreg_ssaliq , pade_sizreg_asyliq , & pade_sizreg_extice , pade_sizreg_ssaice , pade_sizreg_asyice ) & result ( error_msg ) class ( ty_cloud_optics_rrtmgp ), intent ( inout ) :: this ! cloud specification data real ( wp ), dimension (:,:), intent ( in ) :: band_lims_wvn ! Spectral discretization ! ! Pade coefficients: extinction, single-scattering albedo, and asymmetry factor for liquid and ice ! real ( wp ), dimension (:,:,:), intent ( in ) :: pade_extliq , pade_ssaliq , pade_asyliq real ( wp ), dimension (:,:,:,:), intent ( in ) :: pade_extice , pade_ssaice , pade_asyice ! ! Boundaries of size regimes. Liquid and ice are separate; !   extinction is fit to different numbers of size bins than single-scattering albedo and asymmetry factor ! real ( wp ), dimension (:), intent ( in ) :: pade_sizreg_extliq , pade_sizreg_ssaliq , pade_sizreg_asyliq real ( wp ), dimension (:), intent ( in ) :: pade_sizreg_extice , pade_sizreg_ssaice , pade_sizreg_asyice character ( len = 128 ) :: error_msg ! ------- Local ------- integer :: nbnd , nrghice , nsizereg , ncoeff_ext , ncoeff_ssa_g , nbound ! ------- Definitions ------- ! Pade coefficient dimensions nbnd = size ( pade_extliq , dim = 1 ) nsizereg = size ( pade_extliq , dim = 2 ) ncoeff_ext = size ( pade_extliq , dim = 3 ) ncoeff_ssa_g = size ( pade_ssaliq , dim = 3 ) nrghice = size ( pade_extice , dim = 4 ) nbound = size ( pade_sizreg_extliq ) ! The number of size regimes is assumed in the Pade evaluations if ( nsizereg /= 3 ) & error_msg = \"cloud optics: code assumes exactly three size regimes for Pade approximants but data is otherwise\" error_msg = this % init ( band_lims_wvn , name = \"RRTMGP cloud optics\" ) ! ! Error checking ! if ( nbnd /= this % get_nband ()) & error_msg = \"cloud_optics%init(): number of bands inconsistent between lookup tables, spectral discretization\" if (. not . extents_are ( pade_ssaliq , nbnd , nsizereg , ncoeff_ssa_g )) & error_msg = \"cloud_optics%init(): array pade_ssaliq isn't consistently sized\" if (. not . extents_are ( pade_asyliq , nbnd , nsizereg , ncoeff_ssa_g )) & error_msg = \"cloud_optics%init(): array pade_asyliq isn't consistently sized\" if (. not . extents_are ( pade_extice , nbnd , nsizereg , ncoeff_ext , nrghice )) & error_msg = \"cloud_optics%init(): array pade_extice isn't consistently sized\" if (. not . extents_are ( pade_ssaice , nbnd , nsizereg , ncoeff_ssa_g , nrghice )) & error_msg = \"cloud_optics%init(): array pade_ssaice isn't consistently sized\" if (. not . extents_are ( pade_asyice , nbnd , nsizereg , ncoeff_ssa_g , nrghice )) & error_msg = \"cloud_optics%init(): array pade_asyice isn't consistently sized\" if ( any ([ size ( pade_sizreg_ssaliq ), size ( pade_sizreg_asyliq ), & size ( pade_sizreg_extice ), size ( pade_sizreg_ssaice ), size ( pade_sizreg_asyice )] /= nbound )) & error_msg = \"cloud_optics%init(): one or more Pade size regime arrays are inconsistently sized\" if ( nsizereg /= 3 ) & error_msg = \"cloud_optics%init(): Expecting precisely three size regimes for Pade approximants\" if ( error_msg /= \"\" ) return ! ! Consistency among size regimes ! this % radliq_lwr = pade_sizreg_extliq ( 1 ) this % radliq_upr = pade_sizreg_extliq ( nbound ) this % radice_lwr = pade_sizreg_extice ( 1 ) this % radice_upr = pade_sizreg_extice ( nbound ) if ( error_msg /= \"\" ) return if ( any ([ pade_sizreg_ssaliq ( 1 ), pade_sizreg_asyliq ( 1 )] < this % radliq_lwr )) & error_msg = \"cloud_optics%init(): one or more Pade size regimes have inconsistent lowest values\" if ( any ([ pade_sizreg_ssaice ( 1 ), pade_sizreg_asyice ( 1 )] < this % radice_lwr )) & error_msg = \"cloud_optics%init(): one or more Pade size regimes have inconsistent lower values\" if ( any ([ pade_sizreg_ssaliq ( nbound ), pade_sizreg_asyliq ( nbound )] > this % radliq_upr )) & error_msg = \"cloud_optics%init(): one or more Pade size regimes have lowest value less than radliq_upr\" if ( any ([ pade_sizreg_ssaice ( nbound ), pade_sizreg_asyice ( nbound )] > this % radice_upr )) & error_msg = \"cloud_optics%init(): one or more Pade size regimes have lowest value less than radice_upr\" if ( error_msg /= \"\" ) return ! ! Allocate Pade coefficients ! allocate ( this % pade_extliq ( nbnd , nsizereg , ncoeff_ext ), & this % pade_ssaliq ( nbnd , nsizereg , ncoeff_ssa_g ), & this % pade_asyliq ( nbnd , nsizereg , ncoeff_ssa_g ), & this % pade_extice ( nbnd , nsizereg , ncoeff_ext , nrghice ), & this % pade_ssaice ( nbnd , nsizereg , ncoeff_ssa_g , nrghice ), & this % pade_asyice ( nbnd , nsizereg , ncoeff_ssa_g , nrghice )) ! ! Allocate Pade coefficient particle size regime boundaries ! allocate ( this % pade_sizreg_extliq ( nbound ), & this % pade_sizreg_ssaliq ( nbound ), & this % pade_sizreg_asyliq ( nbound ), & this % pade_sizreg_extice ( nbound ), & this % pade_sizreg_ssaice ( nbound ), & this % pade_sizreg_asyice ( nbound )) !$acc enter data create(this)                                                                       & !$acc            create(this%pade_extliq, this%pade_ssaliq, this%pade_asyliq)                       & !$acc            create(this%pade_extice, this%pade_ssaice, this%pade_asyice)                       & !$acc            create(this%pade_sizreg_extliq, this%pade_sizreg_ssaliq, this%pade_sizreg_asyliq)  & !$acc            create(this%pade_sizreg_extice, this%pade_sizreg_ssaice, this%pade_sizreg_asyice) !$omp target enter data & !$omp map(alloc:this%pade_extliq, this%pade_ssaliq, this%pade_asyliq) & !$omp map(alloc:this%pade_extice, this%pade_ssaice, this%pade_asyice) & !$omp map(alloc:this%pade_sizreg_extliq, this%pade_sizreg_ssaliq, this%pade_sizreg_asyliq) & !$omp map(alloc:this%pade_sizreg_extice, this%pade_sizreg_ssaice, this%pade_sizreg_asyice) ! ! Load data ! !$acc kernels !$omp target this % pade_extliq = pade_extliq this % pade_ssaliq = pade_ssaliq this % pade_asyliq = pade_asyliq this % pade_extice = pade_extice this % pade_ssaice = pade_ssaice this % pade_asyice = pade_asyice this % pade_sizreg_extliq = pade_sizreg_extliq this % pade_sizreg_ssaliq = pade_sizreg_ssaliq this % pade_sizreg_asyliq = pade_sizreg_asyliq this % pade_sizreg_extice = pade_sizreg_extice this % pade_sizreg_ssaice = pade_sizreg_ssaice this % pade_sizreg_asyice = pade_sizreg_asyice !$acc end kernels !$omp end target ! ! Set default ice roughness - min values ! error_msg = this % set_ice_roughness ( 1 ) end function load_pade !-------------------------------------------------------------------------------------------------------------------- ! ! Finalize ! !-------------------------------------------------------------------------------------------------------------------- subroutine finalize ( this ) class ( ty_cloud_optics_rrtmgp ), intent ( inout ) :: this this % radliq_lwr = 0._wp this % radliq_upr = 0._wp this % radice_lwr = 0._wp this % radice_upr = 0._wp ! Lookup table cloud optics coefficients if ( allocated ( this % lut_extliq )) then !$acc exit data delete(this%lut_extliq, this%lut_ssaliq, this%lut_asyliq)  & !$acc           delete(this%lut_extice, this%lut_ssaice, this%lut_asyice)  & !$acc           delete(this) !$omp target exit data map(release:this%lut_extliq, this%lut_ssaliq, this%lut_asyliq) & !$omp map(release:this%lut_extice, this%lut_ssaice, this%lut_asyice) deallocate ( this % lut_extliq , this % lut_ssaliq , this % lut_asyliq , & this % lut_extice , this % lut_ssaice , this % lut_asyice ) this % liq_nsteps = 0 this % ice_nsteps = 0 this % liq_step_size = 0._wp this % ice_step_size = 0._wp end if ! Pade cloud optics coefficients if ( allocated ( this % pade_extliq )) then !$acc exit data delete(this%pade_extliq, this%pade_ssaliq, this%pade_asyliq)                       & !$acc           delete(this%pade_extice, this%pade_ssaice, this%pade_asyice)                       & !$acc           delete(this%pade_sizreg_extliq, this%pade_sizreg_ssaliq, this%pade_sizreg_asyliq)  & !$acc           delete(this%pade_sizreg_extice, this%pade_sizreg_ssaice, this%pade_sizreg_asyice)  & !$acc           delete(this) !$omp target exit data map(release:this%pade_extliq, this%pade_ssaliq, this%pade_asyliq) & !$omp map(release:this%pade_extice, this%pade_ssaice, this%pade_asyice) & !$omp map(release:this%pade_sizreg_extliq, this%pade_sizreg_ssaliq, this%pade_sizreg_asyliq) & !$omp map(release:this%pade_sizreg_extice, this%pade_sizreg_ssaice, this%pade_sizreg_asyice) deallocate ( this % pade_extliq , this % pade_ssaliq , this % pade_asyliq , & this % pade_extice , this % pade_ssaice , this % pade_asyice , & this % pade_sizreg_extliq , this % pade_sizreg_ssaliq , this % pade_sizreg_asyliq , & this % pade_sizreg_extice , this % pade_sizreg_ssaice , this % pade_sizreg_asyice ) end if end subroutine finalize ! ------------------------------------------------------------------------------ ! ! Derive cloud optical properties from provided cloud physical properties ! ! ------------------------------------------------------------------------------ ! ! Compute single-scattering properties ! function cloud_optics ( this , & clwp , ciwp , reliq , reice , & optical_props ) result ( error_msg ) class ( ty_cloud_optics_rrtmgp ), & intent ( in ) :: this real ( wp ), intent ( in ) :: clwp (:,:), & ! cloud liquid water path (g/m2) ciwp (:,:), & ! cloud ice water path    (g/m2) reliq (:,:), & ! cloud liquid particle effective size (microns) reice (:,:) ! cloud ice particle effective radius  (microns) class ( ty_optical_props_arry ), & intent ( inout ) :: optical_props ! Dimensions: (ncol,nlay,nbnd) character ( len = 128 ) :: error_msg ! ------- Local ------- logical ( wl ), dimension ( size ( clwp , 1 ), size ( clwp , 2 )) :: liqmsk , icemsk real ( wp ), dimension ( size ( clwp , 1 ), size ( clwp , 2 ), this % get_nband ()) :: & ltau , ltaussa , ltaussag , itau , itaussa , itaussag ! Optical properties: tau, tau*ssa, tau*ssa*g ! liquid and ice separately integer :: ncol , nlay , nbnd integer :: nsizereg integer :: icol , ilay , ibnd ! scalars for total tau, tau*ssa real ( wp ) :: tau , taussa ! ---------------------------------------- ! ! Error checking ! ! ---------------------------------------- error_msg = '' if (. not .( allocated ( this % lut_extliq ) . or . allocated ( this % pade_extliq ))) then error_msg = 'cloud optics: no data has been initialized' return end if ncol = size ( clwp , 1 ) nlay = size ( clwp , 2 ) nbnd = this % get_nband () ! ! Array sizes ! if ( check_extents ) then if ( size ( liqmsk , 1 ) /= ncol . or . size ( liqmsk , 2 ) /= nlay ) & error_msg = \"cloud optics: liqmask has wrong extents\" if ( size ( icemsk , 1 ) /= ncol . or . size ( icemsk , 2 ) /= nlay ) & error_msg = \"cloud optics: icemsk has wrong extents\" if ( size ( ciwp , 1 ) /= ncol . or . size ( ciwp , 2 ) /= nlay ) & error_msg = \"cloud optics: ciwp has wrong extents\" if ( size ( reliq , 1 ) /= ncol . or . size ( reliq , 2 ) /= nlay ) & error_msg = \"cloud optics: reliq has wrong extents\" if ( size ( reice , 1 ) /= ncol . or . size ( reice , 2 ) /= nlay ) & error_msg = \"cloud optics: reice has wrong extents\" if ( optical_props % get_ncol () /= ncol . or . optical_props % get_nlay () /= nlay ) & error_msg = \"cloud optics: optical_props have wrong extents\" if ( error_msg /= \"\" ) return end if ! ! Spectral consistency ! if ( check_values ) then if (. not . this % bands_are_equal ( optical_props )) & error_msg = \"cloud optics: optical properties don't have the same band structure\" if ( optical_props % get_nband () /= optical_props % get_ngpt () ) & error_msg = \"cloud optics: optical properties must be requested by band not g-points\" if ( error_msg /= \"\" ) return end if !$acc data copyin(clwp, ciwp, reliq, reice)                         & !$acc      create(ltau, ltaussa, ltaussag, itau, itaussa, itaussag) & !$acc      create(liqmsk,icemsk) !$omp target data map(to:clwp, ciwp, reliq, reice) & !$omp map(alloc:ltau, ltaussa, ltaussag, itau, itaussa, itaussag) & !$omp map(alloc:liqmsk, icemsk) ! ! Cloud masks; don't need value re values if there's no cloud ! !$acc parallel loop gang vector default(present) collapse(2) !$omp target teams distribute parallel do simd collapse(2) do ilay = 1 , nlay do icol = 1 , ncol liqmsk ( icol , ilay ) = clwp ( icol , ilay ) > 0._wp icemsk ( icol , ilay ) = ciwp ( icol , ilay ) > 0._wp end do end do ! ! Particle size, liquid/ice water paths ! if ( check_values ) then if ( any_vals_outside ( reliq , liqmsk , this % radliq_lwr , this % radliq_upr )) & error_msg = 'cloud optics: liquid effective radius is out of bounds' if ( any_vals_outside ( reice , icemsk , this % radice_lwr , this % radice_upr )) & error_msg = 'cloud optics: ice effective radius is out of bounds' if ( any_vals_less_than ( clwp , liqmsk , 0._wp ) . or . any_vals_less_than ( ciwp , icemsk , 0._wp )) & error_msg = 'cloud optics: negative clwp or ciwp where clouds are supposed to be' end if if ( error_msg == \"\" ) then ! ! ! ---------------------------------------- ! ! The tables and Pade coefficients determing extinction coeffient, single-scattering albedo, !   and asymmetry parameter g as a function of effective raduis ! We compute the optical depth tau (=exintinction coeff * condensed water path) !   and the products tau*ssa and tau*ssa*g for liquid and ice cloud separately. ! These are used to determine the optical properties of ice and water cloud together. ! We could compute the properties for liquid and ice separately and !    use ty_optical_props_arry%increment but this involves substantially more division. ! if ( allocated ( this % lut_extliq )) then ! ! Liquid ! call compute_all_from_table ( ncol , nlay , nbnd , liqmsk , clwp , reliq , & this % liq_nsteps , this % liq_step_size , this % radliq_lwr , & this % lut_extliq , this % lut_ssaliq , this % lut_asyliq , & ltau , ltaussa , ltaussag ) ! ! Ice ! call compute_all_from_table ( ncol , nlay , nbnd , icemsk , ciwp , reice , & this % ice_nsteps , this % ice_step_size , this % radice_lwr , & this % lut_extice (:,:, this % icergh ), & this % lut_ssaice (:,:, this % icergh ), & this % lut_asyice (:,:, this % icergh ), & itau , itaussa , itaussag ) else ! ! Cloud optical properties from Pade coefficient method !   Hard coded assumptions: order of approximants, three size regimes ! nsizereg = size ( this % pade_extliq , 2 ) call compute_all_from_pade ( ncol , nlay , nbnd , nsizereg , & liqmsk , clwp , reliq , & 2 , 3 , this % pade_sizreg_extliq , this % pade_extliq , & 2 , 2 , this % pade_sizreg_ssaliq , this % pade_ssaliq , & 2 , 2 , this % pade_sizreg_asyliq , this % pade_asyliq , & ltau , ltaussa , ltaussag ) call compute_all_from_pade ( ncol , nlay , nbnd , nsizereg , & icemsk , ciwp , reice , & 2 , 3 , this % pade_sizreg_extice , this % pade_extice (:,:,:, this % icergh ), & 2 , 2 , this % pade_sizreg_ssaice , this % pade_ssaice (:,:,:, this % icergh ), & 2 , 2 , this % pade_sizreg_asyice , this % pade_asyice (:,:,:, this % icergh ), & itau , itaussa , itaussag ) endif ! ! Combine liquid and ice contributions into total cloud optical properties !   See also the increment routines in mo_optical_props_kernels ! select type ( optical_props ) type is ( ty_optical_props_1scl ) !$acc parallel loop gang vector default(present) collapse(3) & !$acc               copyin(optical_props) copyout(optical_props%tau) !$omp target teams distribute parallel do simd collapse(3) & !$omp map(from:optical_props%tau) do ibnd = 1 , nbnd do ilay = 1 , nlay do icol = 1 , ncol ! Absorption optical depth  = (1-ssa) * tau = tau - taussa optical_props % tau ( icol , ilay , ibnd ) = ( ltau ( icol , ilay , ibnd ) - ltaussa ( icol , ilay , ibnd )) + & ( itau ( icol , ilay , ibnd ) - itaussa ( icol , ilay , ibnd )) end do end do end do type is ( ty_optical_props_2str ) !$acc parallel loop gang vector default(present) collapse(3) & !$acc               copyin(optical_props) copyout(optical_props%tau, optical_props%ssa, optical_props%g) !$omp target teams distribute parallel do simd collapse(3) & !$omp map(from:optical_props%tau, optical_props%ssa, optical_props%g) do ibnd = 1 , nbnd do ilay = 1 , nlay do icol = 1 , ncol tau = ltau ( icol , ilay , ibnd ) + itau ( icol , ilay , ibnd ) taussa = ltaussa ( icol , ilay , ibnd ) + itaussa ( icol , ilay , ibnd ) optical_props % g ( icol , ilay , ibnd ) = ( ltaussag ( icol , ilay , ibnd ) + itaussag ( icol , ilay , ibnd )) / & max ( epsilon ( tau ), taussa ) optical_props % ssa ( icol , ilay , ibnd ) = taussa / max ( epsilon ( tau ), tau ) optical_props % tau ( icol , ilay , ibnd ) = tau end do end do end do type is ( ty_optical_props_nstr ) error_msg = \"cloud optics: n-stream calculations not yet supported\" end select end if !$acc end data !$omp end target data end function cloud_optics !-------------------------------------------------------------------------------------------------------------------- ! ! Inquiry functions ! !-------------------------------------------------------------------------------------------------------------------- function set_ice_roughness ( this , icergh ) result ( error_msg ) class ( ty_cloud_optics_rrtmgp ), intent ( inout ) :: this integer , intent ( in ) :: icergh character ( len = 128 ) :: error_msg error_msg = \"\" if (. not . allocated ( this % pade_extice ) . and . . not . allocated ( this % lut_extice )) & error_msg = \"cloud_optics%set_ice_roughness(): can't set before initialization\" if ( icergh < 1 . or . icergh > this % get_num_ice_roughness_types ()) & error_msg = 'cloud optics: cloud ice surface roughness flag is out of bounds' if ( error_msg /= \"\" ) return this % icergh = icergh end function set_ice_roughness !----------------------------------------------- function get_num_ice_roughness_types ( this ) result ( i ) class ( ty_cloud_optics_rrtmgp ), intent ( in ) :: this integer :: i i = 0 if ( allocated ( this % pade_extice )) i = size ( this % pade_extice , dim = 4 ) if ( allocated ( this % lut_extice )) i = size ( this % lut_extice , dim = 3 ) end function get_num_ice_roughness_types !----------------------------------------------- function get_min_radius_liq ( this ) result ( r ) class ( ty_cloud_optics_rrtmgp ), intent ( in ) :: this real ( wp ) :: r r = this % radliq_lwr end function get_min_radius_liq !----------------------------------------------- function get_max_radius_liq ( this ) result ( r ) class ( ty_cloud_optics_rrtmgp ), intent ( in ) :: this real ( wp ) :: r r = this % radliq_upr end function get_max_radius_liq !----------------------------------------------- function get_min_radius_ice ( this ) result ( r ) class ( ty_cloud_optics_rrtmgp ), intent ( in ) :: this real ( wp ) :: r r = this % radice_lwr end function get_min_radius_ice !----------------------------------------------- function get_max_radius_ice ( this ) result ( r ) class ( ty_cloud_optics_rrtmgp ), intent ( in ) :: this real ( wp ) :: r r = this % radice_upr end function get_max_radius_ice !-------------------------------------------------------------------------------------------------------------------- ! ! Ancillary functions ! !-------------------------------------------------------------------------------------------------------------------- ! ! Linearly interpolate values from a lookup table with \"nsteps\" evenly-spaced !   elements starting at \"offset.\" The table's second dimension is band. ! Returns 0 where the mask is false. ! We could also try gather/scatter for efficiency ! subroutine compute_all_from_table ( ncol , nlay , nbnd , mask , lwp , re , & nsteps , step_size , offset , & tau_table , ssa_table , asy_table , & tau , taussa , taussag ) integer , intent ( in ) :: ncol , nlay , nbnd , nsteps logical ( wl ), dimension ( ncol , nlay ), intent ( in ) :: mask real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: lwp , re real ( wp ), intent ( in ) :: step_size , offset real ( wp ), dimension ( nsteps , nbnd ), intent ( in ) :: tau_table , ssa_table , asy_table real ( wp ), dimension ( ncol , nlay , nbnd ) :: tau , taussa , taussag ! --------------------------- integer :: icol , ilay , ibnd integer :: index real ( wp ) :: fint real ( wp ) :: t , ts ! tau, tau*ssa, tau*ssa*g ! --------------------------- !$acc parallel loop gang vector default(present) collapse(3) !$omp target teams distribute parallel do simd collapse(3) do ibnd = 1 , nbnd do ilay = 1 , nlay do icol = 1 , ncol if ( mask ( icol , ilay )) then index = min ( floor (( re ( icol , ilay ) - offset ) / step_size ) + 1 , nsteps - 1 ) fint = ( re ( icol , ilay ) - offset ) / step_size - ( index - 1 ) t = lwp ( icol , ilay ) * & ( tau_table ( index , ibnd ) + fint * ( tau_table ( index + 1 , ibnd ) - tau_table ( index , ibnd ))) ts = t * & ( ssa_table ( index , ibnd ) + fint * ( ssa_table ( index + 1 , ibnd ) - ssa_table ( index , ibnd ))) taussag ( icol , ilay , ibnd ) = & ts * & ( asy_table ( index , ibnd ) + fint * ( asy_table ( index + 1 , ibnd ) - asy_table ( index , ibnd ))) taussa ( icol , ilay , ibnd ) = ts tau ( icol , ilay , ibnd ) = t else tau ( icol , ilay , ibnd ) = 0._wp taussa ( icol , ilay , ibnd ) = 0._wp taussag ( icol , ilay , ibnd ) = 0._wp end if end do end do end do end subroutine compute_all_from_table ! ! Pade functions ! !--------------------------------------------------------------------------- subroutine compute_all_from_pade ( ncol , nlay , nbnd , nsizes , & mask , lwp , re , & m_ext , n_ext , re_bounds_ext , coeffs_ext , & m_ssa , n_ssa , re_bounds_ssa , coeffs_ssa , & m_asy , n_asy , re_bounds_asy , coeffs_asy , & tau , taussa , taussag ) integer , intent ( in ) :: ncol , nlay , nbnd , nsizes logical ( wl ), & dimension ( ncol , nlay ), intent ( in ) :: mask real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: lwp , re real ( wp ), dimension ( nsizes + 1 ), intent ( in ) :: re_bounds_ext , re_bounds_ssa , re_bounds_asy integer , intent ( in ) :: m_ext , n_ext real ( wp ), dimension ( nbnd , nsizes , 0 : m_ext + n_ext ), & intent ( in ) :: coeffs_ext integer , intent ( in ) :: m_ssa , n_ssa real ( wp ), dimension ( nbnd , nsizes , 0 : m_ssa + n_ssa ), & intent ( in ) :: coeffs_ssa integer , intent ( in ) :: m_asy , n_asy real ( wp ), dimension ( nbnd , nsizes , 0 : m_asy + n_asy ), & intent ( in ) :: coeffs_asy real ( wp ), dimension ( ncol , nlay , nbnd ) :: tau , taussa , taussag ! --------------------------- integer :: icol , ilay , ibnd , irad real ( wp ) :: t , ts !$acc parallel loop gang vector default(present) collapse(3) !$omp target teams distribute parallel do simd collapse(3) do ibnd = 1 , nbnd do ilay = 1 , nlay do icol = 1 , ncol if ( mask ( icol , ilay )) then ! ! Finds index into size regime table ! This works only if there are precisely three size regimes (four bounds) and it's !   previously guaranteed that size_bounds(1) <= size <= size_bounds(4) ! irad = min ( floor (( re ( icol , ilay ) - re_bounds_ext ( 2 )) / re_bounds_ext ( 3 )) + 2 , 3 ) t = lwp ( icol , ilay ) * & pade_eval ( ibnd , nbnd , nsizes , m_ext , n_ext , irad , re ( icol , ilay ), coeffs_ext ) irad = min ( floor (( re ( icol , ilay ) - re_bounds_ssa ( 2 )) / re_bounds_ssa ( 3 )) + 2 , 3 ) ! Pade approximants for co-albedo can sometimes be negative ts = t * ( 1._wp - max ( 0._wp , & pade_eval ( ibnd , nbnd , nsizes , m_ssa , n_ssa , irad , re ( icol , ilay ), coeffs_ssa ))) irad = min ( floor (( re ( icol , ilay ) - re_bounds_asy ( 2 )) / re_bounds_asy ( 3 )) + 2 , 3 ) taussag ( icol , ilay , ibnd ) = & ts * & pade_eval ( ibnd , nbnd , nsizes , m_asy , n_asy , irad , re ( icol , ilay ), coeffs_asy ) taussa ( icol , ilay , ibnd ) = ts tau ( icol , ilay , ibnd ) = t else tau ( icol , ilay , ibnd ) = 0._wp taussa ( icol , ilay , ibnd ) = 0._wp taussag ( icol , ilay , ibnd ) = 0._wp end if end do end do end do end subroutine compute_all_from_pade !--------------------------------------------------------------------------- ! ! Evaluate Pade approximant of order [m/n] ! function pade_eval_nbnd ( nbnd , nrads , m , n , irad , re , pade_coeffs ) integer , intent ( in ) :: nbnd , nrads , m , n , irad real ( wp ), dimension ( nbnd , nrads , 0 : m + n ), & intent ( in ) :: pade_coeffs real ( wp ), intent ( in ) :: re real ( wp ), dimension ( nbnd ) :: pade_eval_nbnd integer :: iband real ( wp ) :: numer , denom integer :: i do iband = 1 , nbnd denom = pade_coeffs ( iband , irad , n + m ) do i = n - 1 + m , 1 + m , - 1 denom = pade_coeffs ( iband , irad , i ) + re * denom end do denom = 1._wp + re * denom numer = pade_coeffs ( iband , irad , m ) do i = m - 1 , 1 , - 1 numer = pade_coeffs ( iband , irad , i ) + re * numer end do numer = pade_coeffs ( iband , irad , 0 ) + re * numer pade_eval_nbnd ( iband ) = numer / denom end do end function pade_eval_nbnd !--------------------------------------------------------------------------- ! ! Evaluate Pade approximant of order [m/n] ! function pade_eval_1 ( iband , nbnd , nrads , m , n , irad , re , pade_coeffs ) !$acc routine seq !$omp declare target ! integer , intent ( in ) :: iband , nbnd , nrads , m , n , irad real ( wp ), dimension ( nbnd , nrads , 0 : m + n ), & intent ( in ) :: pade_coeffs real ( wp ), intent ( in ) :: re real ( wp ) :: pade_eval_1 real ( wp ) :: numer , denom integer :: i denom = pade_coeffs ( iband , irad , n + m ) do i = n - 1 + m , 1 + m , - 1 denom = pade_coeffs ( iband , irad , i ) + re * denom end do denom = 1._wp + re * denom numer = pade_coeffs ( iband , irad , m ) do i = m - 1 , 1 , - 1 numer = pade_coeffs ( iband , irad , i ) + re * numer end do numer = pade_coeffs ( iband , irad , 0 ) + re * numer pade_eval_1 = numer / denom end function pade_eval_1 end module mo_cloud_optics_rrtmgp","tags":"","loc":"sourcefile/mo_cloud_optics_rrtmgp.f90.html"},{"title":"mo_aerosol_optics_rrtmgp_merra.F90 – RRTMGP-Fortran","text":"Contents Modules mo_aerosol_optics_rrtmgp_merra Source Code mo_aerosol_optics_rrtmgp_merra.F90 Source Code ! This code is part of Radiative Transfer for Energetics (RTE) ! ! Contacts: Robert Pincus and Eli Mlawer ! email:  rrtmgp@aer.com ! ! Copyright 2015-2018,  Atmospheric and Environmental Research and ! Regents of the University of Colorado.  All right reserved. ! ! Use and duplication is permitted under the terms of the !    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause ! ------------------------------------------------------------------------------------------------- ! Provides aerosol optical properties as a function of aerosol size (radius), aerosol mass, ! and relative humidity for the RRTMGP spectral bands. !   Based on climatoligical aerosol optical properties used in MERRA2 as derived from the !     GOCART model for 15 aerosol types, including dust and sea salt each for five size bins, !     one sulfate type, and both hydrophobic and hydrophilic black carbon and organic carbon. !   Input aerosol optical data are stored in look-up tables. ! !   References for the gocart interactive aerosols: !     Chin et al., jgr, 2000 (https://doi.org/10.1029/2000jd900384) !     Chin et al., jas, 2002 (https://doi.org/10.1175/1520-0469(2002)059<0461:TAOTFT>2.0.CO;2) !     Colarco et al., jgr, 2010 (https://doi.org/10.1029/2009jd012820) ! !   References for merra2 aerosol reanalysis: !     Randles et al., j. clim., 2017 (https://doi.org/10.1175/jcli-d-16-0609.1) !     Buchard et al., j. clim., 2017 (https://doi.org/10.1175/jcli-d-16-0613.1) ! ! The class can be used as-is but is also intended as an example of how to extend the RTE framework ! ------------------------------------------------------------------------------------------------- module mo_aerosol_optics_rrtmgp_merra use mo_rte_kind , only : wp , wl use mo_rte_config , only : check_extents , check_values use mo_rte_util_array_validation ,& only : extents_are , any_vals_outside use mo_optical_props , only : ty_optical_props , & ty_optical_props_arry , & ty_optical_props_1scl , & ty_optical_props_2str , & ty_optical_props_nstr implicit none ! MERRA2/GOCART aerosol types integer , parameter , public :: merra_ntype = 7 ! Number of MERRA aerosol types integer , parameter , public :: merra_aero_none = 0 ! no aerosal integer , parameter , public :: merra_aero_dust = 1 ! dust integer , parameter , public :: merra_aero_salt = 2 ! Salt integer , parameter , public :: merra_aero_sulf = 3 ! sulfate integer , parameter , public :: merra_aero_bcar_rh = 4 ! black carbon, hydrophilic integer , parameter , public :: merra_aero_bcar = 5 ! black carbon, hydrophobic integer , parameter , public :: merra_aero_ocar_rh = 6 ! organic carbon, hydrophilic integer , parameter , public :: merra_aero_ocar = 7 ! organic carbon, hydrophobic ! index identifiers for aerosol optical property tables integer , parameter , private :: ext = 1 ! extinction integer , parameter , private :: ssa = 2 ! single scattering albedo integer , parameter , private :: g = 3 ! asymmetry parameter private ! ----------------------------------------------------------------------------------- type , extends ( ty_optical_props ), public :: ty_aerosol_optics_rrtmgp_merra private ! ! Lookup table information ! ! Table upper and lower aerosol size (radius) bin limits (microns) real ( wp ), dimension (:,:), allocatable :: merra_aero_bin_lims ! Dimensions (pair,nbin) ! Table relative humidity values real ( wp ), dimension (:), allocatable :: aero_rh (:) ! ! The aerosol tables themselves. ! extinction (m2/kg) ! single scattering albedo (unitless) ! asymmetry parameter (unitless) ! real ( wp ), dimension (:,:,: ), allocatable :: aero_dust_tbl ! ext, ssa, g (nval, nbin, nbnd) real ( wp ), dimension (:,:,:,:), allocatable :: aero_salt_tbl ! ext, ssa, g (nval, nrh, nbin, nbnd) real ( wp ), dimension (:,:,: ), allocatable :: aero_sulf_tbl ! ext, ssa, g (nval, nrh, nbnd) real ( wp ), dimension (:,: ), allocatable :: aero_bcar_tbl ! ext, ssa, g (nval, nbnd) real ( wp ), dimension (:,:,: ), allocatable :: aero_bcar_rh_tbl ! ext, ssa, g (nval, nrh, nbnd) real ( wp ), dimension (:,: ), allocatable :: aero_ocar_tbl ! ext, ssa, g (nval, nbnd) real ( wp ), dimension (:,:,: ), allocatable :: aero_ocar_rh_tbl ! ext, ssa, g (nval, nrh, nbnd) ! ! ----- contains generic , public :: load => load_lut procedure , public :: finalize procedure , public :: aerosol_optics ! Internal procedures procedure , private :: load_lut end type ty_aerosol_optics_rrtmgp_merra contains ! ------------------------------------------------------------------------------ ! ! Routines to load data needed for aerosol optics calculations from lookup-tables. ! ! ------------------------------------------------------------------------------ function load_lut ( this , band_lims_wvn , & merra_aero_bin_lims , aero_rh , & aero_dust_tbl , aero_salt_tbl , aero_sulf_tbl , & aero_bcar_tbl , aero_bcar_rh_tbl , & aero_ocar_tbl , aero_ocar_rh_tbl ) & result ( error_msg ) class ( ty_aerosol_optics_rrtmgp_merra ), & intent ( inout ) :: this real ( wp ), dimension (:,:), intent ( in ) :: band_lims_wvn ! spectral discretization ! Lookup table interpolation constants real ( wp ), dimension (:,:), intent ( in ) :: merra_aero_bin_lims ! aerosol lut size bin limiits (pair,nbin) real ( wp ), dimension (:), intent ( in ) :: aero_rh ! relative humidity LUT dimension values ! LUT coefficients ! Extinction, single-scattering albedo, and asymmetry parameter for aerosol types real ( wp ), dimension (:,:,:), intent ( in ) :: aero_dust_tbl real ( wp ), dimension (:,:,:,:), intent ( in ) :: aero_salt_tbl real ( wp ), dimension (:,:,:), intent ( in ) :: aero_sulf_tbl real ( wp ), dimension (:,:), intent ( in ) :: aero_bcar_tbl real ( wp ), dimension (:,:,:), intent ( in ) :: aero_bcar_rh_tbl real ( wp ), dimension (:,:), intent ( in ) :: aero_ocar_tbl real ( wp ), dimension (:,:,:), intent ( in ) :: aero_ocar_rh_tbl character ( len = 128 ) :: error_msg ! ------- ! ! Local variables ! integer :: npair , nval , nrh , nbin , nband error_msg = this % init ( band_lims_wvn , name = \"RRTMGP aerosol optics\" ) ! ! LUT coefficient dimensions ! npair = size ( merra_aero_bin_lims , dim = 1 ) nval = size ( aero_salt_tbl , dim = 1 ) nrh = size ( aero_salt_tbl , dim = 2 ) nbin = size ( aero_salt_tbl , dim = 3 ) nband = size ( aero_salt_tbl , dim = 4 ) ! ! Error checking ! if ( check_extents ) then error_msg = '' if (. not . extents_are ( aero_dust_tbl , nval , nbin , nband )) & error_msg = \"aerosol_optics%load_lut(): array aero_dust_tbl isn't consistently sized\" if (. not . extents_are ( aero_salt_tbl , nval , nrh , nbin , nband )) & error_msg = \"aerosol_optics%load_lut(): array aero_salt_tbl isn't consistently sized\" if (. not . extents_are ( aero_sulf_tbl , nval , nrh , nband )) & error_msg = \"aerosol_optics%load_lut(): array aero_sulf_tbl isn't consistently sized\" if (. not . extents_are ( aero_bcar_rh_tbl , nval , nrh , nband )) & error_msg = \"aerosol_optics%load_lut(): array aero_bcar_rh_tbl isn't consistently sized\" if (. not . extents_are ( aero_bcar_tbl , nval , nband )) & error_msg = \"aerosol_optics%load_lut(): array aero_bcar_tbl isn't consistently sized\" if (. not . extents_are ( aero_ocar_rh_tbl , nval , nrh , nband )) & error_msg = \"aerosol_optics%load_lut(): array aero_ocar_rh_tbl isn't consistently sized\" if (. not . extents_are ( aero_ocar_tbl , nval , nband )) & error_msg = \"aerosol_optics%load_lut(): array aero_ocar_tbl isn't consistently sized\" if ( error_msg /= \"\" ) return endif ! Allocate LUT parameters allocate ( this % merra_aero_bin_lims ( npair , nbin )) allocate ( this % aero_rh ( nrh )) ! Allocate LUT coefficients allocate ( this % aero_dust_tbl ( nval , nbin , nband ), & this % aero_salt_tbl ( nrh , nval , nbin , nband ), & this % aero_sulf_tbl ( nrh , nval , nband ), & this % aero_bcar_tbl ( nval , nband ), & this % aero_bcar_rh_tbl ( nrh , nval , nband ), & this % aero_ocar_tbl ( nval , nband ), & this % aero_ocar_rh_tbl ( nrh , nval , nband )) ! Copy LUT coefficients this % merra_aero_bin_lims = merra_aero_bin_lims this % aero_rh = aero_rh this % aero_dust_tbl = aero_dust_tbl this % aero_bcar_tbl = aero_bcar_tbl this % aero_ocar_tbl = aero_ocar_tbl this % aero_salt_tbl = reshape ( aero_salt_tbl , shape = ( / nrh , nval , nbin , nband / ), order = ( / 2 , 1 , 3 , 4 / ) ) this % aero_sulf_tbl = reshape ( aero_sulf_tbl , shape = ( / nrh , nval , nband / ), order = ( / 2 , 1 , 3 / ) ) this % aero_bcar_rh_tbl = reshape ( aero_bcar_rh_tbl , shape = ( / nrh , nval , nband / ), order = ( / 2 , 1 , 3 / ) ) this % aero_ocar_rh_tbl = reshape ( aero_ocar_rh_tbl , shape = ( / nrh , nval , nband / ), order = ( / 2 , 1 , 3 / ) ) !$acc enter data create(this)                                               & !$acc            copyin(this%aero_dust_tbl, this%aero_salt_tbl, this%aero_sulf_tbl)  & !$acc            copyin(this%aero_bcar_tbl, this%aero_bcar_rh_tbl)          & !$acc            copyin(this%aero_ocar_tbl, this%aero_ocar_rh_tbl)          & !$acc            copyin(this%merra_aero_bin_lims, this%aero_rh) !$omp target enter data & !$omp map(to:this%aero_dust_tbl, this%aero_salt_tbl, this%aero_sulf_tbl) & !$omp map(to:this%aero_bcar_tbl, this%aero_bcar_rh_tbl)                  & !$omp map(to:this%aero_ocar_tbl, this%aero_ocar_rh_tbl)                  & !$omp map(to:this%merra_aero_bin_lims, this%aero_rh) end function load_lut !-------------------------------------------------------------------------------------------------------------------- ! ! Finalize ! !-------------------------------------------------------------------------------------------------------------------- subroutine finalize ( this ) class ( ty_aerosol_optics_rrtmgp_merra ), intent ( inout ) :: this ! Lookup table aerosol optics interpolation arrays if ( allocated ( this % merra_aero_bin_lims )) then deallocate ( this % merra_aero_bin_lims , this % aero_rh ) !$acc        exit data delete(     this%merra_aero_bin_lims, this%aero_rh) !$omp target exit data map(release:this%merra_aero_bin_lims, this%aero_rh) end if ! Lookup table aerosol optics coefficients if ( allocated ( this % aero_dust_tbl )) then !$acc exit data delete(this%aero_dust_tbl, this%aero_salt_tbl, this%aero_sulf_tbl)  & !$acc           delete(this%aero_bcar_tbl, this%aero_bcar_rh_tbl) & !$acc           delete(this%aero_ocar_tbl, this%aero_ocar_rh_tbl) & !$acc           delete(this) !$omp target exit data map(release:this%aero_dust_tbl, this%aero_salt_tbl, this%aero_sulf_tbl) & !$omp                  map(release:this%aero_bcar_tbl, this%aero_bcar_rh_tbl)                  & !$omp                  map(release:this%aero_ocar_tbl, this%aero_ocar_rh_tbl) deallocate ( this % aero_dust_tbl , this % aero_salt_tbl , this % aero_sulf_tbl , & this % aero_bcar_tbl , this % aero_bcar_rh_tbl , & this % aero_ocar_tbl , this % aero_ocar_rh_tbl ) end if end subroutine finalize ! ------------------------------------------------------------------------------ ! ! Derive aerosol optical properties from provided aerosol input properties ! ! ------------------------------------------------------------------------------ ! ! Compute single-scattering properties ! function aerosol_optics ( this , aero_type , aero_size , aero_mass , relhum , & optical_props ) result ( error_msg ) class ( ty_aerosol_optics_rrtmgp_merra ), & intent ( in ) :: this integer , intent ( in ) :: aero_type (:,:) ! MERRA2/GOCART aerosol type ! Dimensions: (ncol,nlay) ! 1 = merra_aero_dust    (dust) ! 2 = merra_aero_salt    (salt) ! 3 = merra_aero_sulf    (sulfate) ! 4 = merra_aero_bcar_rh (black carbon, hydrophilic) ! 5 = merra_aero_bcar    (black carbon, hydrophobic) ! 6 = merra_aero_ocar_rh (organic carbon, hydrophilic) ! 7 = merra_aero_ocar    (organic carbon, hydrophobic) real ( wp ), intent ( in ) :: aero_size (:,:) ! aerosol size (radius) for dust and sea-salt (microns) ! Dimensions: (ncol,nlay) real ( wp ), intent ( in ) :: aero_mass (:,:) ! aerosol mass column (kg/m2) ! Dimensions: (ncol,nlay) real ( wp ), intent ( in ) :: relhum (:,:) ! relative humidity (fraction, 0-1) ! Dimensions: (ncol,nlay) class ( ty_optical_props_arry ), & intent ( inout ) :: optical_props ! Dimensions: (ncol,nlay,nbnd) character ( len = 128 ) :: error_msg ! ------- Local ------- logical ( wl ), dimension ( size ( aero_type , 1 ), size ( aero_type , 2 )) :: aeromsk real ( wp ), dimension ( size ( aero_type , 1 ), size ( aero_type , 2 ), size ( this % aero_dust_tbl , 3 )) :: & atau , ataussa , ataussag integer :: ncol , nlay , npair , nbin , nrh , nval , nbnd integer :: icol , ilay , ibnd , ibin ! scalars for total tau, tau*ssa real ( wp ) :: tau , taussa ! Scalars to work around OpenACC/OMP issues real ( wp ) :: minSize , maxSize ! ---------------------------------------- ! ! Error checking ! ! ---------------------------------------- error_msg = '' if (. not .( allocated ( this % aero_dust_tbl ))) then error_msg = 'aerosol optics: no data has been initialized' return end if ncol = size ( aero_type , 1 ) nlay = size ( aero_type , 2 ) npair = size ( this % merra_aero_bin_lims , 1 ) nbin = size ( this % merra_aero_bin_lims , 2 ) nrh = size ( this % aero_rh , 1 ) nval = size ( this % aero_dust_tbl , 1 ) nbnd = size ( this % aero_dust_tbl , 3 ) !$acc        update host(this%merra_aero_bin_lims) !$omp target update from(this%merra_aero_bin_lims) minSize = this % merra_aero_bin_lims ( 1 , 1 ) maxSize = this % merra_aero_bin_lims ( 2 , nbin ) ! ! Array sizes ! if ( check_extents ) then error_msg = '' if (. not . extents_are ( aero_type , ncol , nlay )) & error_msg = \"aerosol optics: aero_type isn't consistenly sized\" if (. not . extents_are ( aero_size , ncol , nlay )) & error_msg = \"aerosol optics: aero_size isn't consistenly sized\" if (. not . extents_are ( aero_mass , ncol , nlay )) & error_msg = \"aerosol optics: aero_mass isn't consistenly sized\" if (. not . extents_are ( relhum , ncol , nlay )) & error_msg = \"aerosol optics: relhum isn't consistenly sized\" if ( optical_props % get_ncol () /= ncol . or . optical_props % get_nlay () /= nlay ) & error_msg = \"aerosol optics: optical_props have wrong extents\" if ( error_msg /= \"\" ) return end if ! ! Spectral consistency ! if ( check_values ) then if (. not . this % bands_are_equal ( optical_props )) & error_msg = \"aerosol optics: optical properties don't have the same band structure\" if ( optical_props % get_nband () /= optical_props % get_ngpt () ) & error_msg = \"aerosol optics: optical properties must be requested by band not g-points\" if ( any_int_vals_outside_2D ( aero_type , merra_aero_none , merra_ntype )) & error_msg = 'aerosol optics: aerosol type is out of bounds' if ( error_msg /= \"\" ) return end if !$acc data        copyin(aero_type, aero_size, aero_mass, relhum) !$omp target data map(to:aero_type, aero_size, aero_mass, relhum) ! ! Aerosol mask; don't need aerosol optics if there's no aerosol ! !$acc data           create(aeromsk) !$omp target data map(alloc:aeromsk) !$acc              parallel loop default(present) collapse(2) !$omp target teams distribute parallel do simd collapse(2) do ilay = 1 , nlay do icol = 1 , ncol aeromsk ( icol , ilay ) = aero_type ( icol , ilay ) > 0 end do end do ! ! Aerosol size, relative humidity ! if ( check_values ) then if ( any_vals_outside ( aero_size , aeromsk , minSize , maxSize )) & error_msg = 'aerosol optics: requested aerosol size is out of bounds' if ( any_vals_outside ( relhum , aeromsk , 0._wp , 1._wp )) & error_msg = 'aerosol optics: relative humidity fraction is out of bounds' end if ! Release aerosol mask !$acc end data !$omp end target data if ( error_msg == \"\" ) then !$acc data           create(atau, ataussa, ataussag) !$omp target data map(alloc:atau, ataussa, ataussag) ! ! ! ---------------------------------------- ! ! The lookup tables determining extinction coefficient, single-scattering albedo, !   and asymmetry parameter g as a function of aerosol type, aerosol size and !   relative humidity. ! We compute the optical depth tau (= exintinction coeff * aerosol mass ) and the !    products tau*ssa and tau*ssa*g separately for each aerosol type requested. ! These are used to determine the aerosol optical properties. ! if ( allocated ( this % aero_dust_tbl )) then ! ! Aerosol ! call compute_all_from_table ( ncol , nlay , npair , nval , nrh , nbin , nbnd , & aero_type , aero_size , aero_mass , relhum , & this % merra_aero_bin_lims , this % aero_rh , & this % aero_dust_tbl , this % aero_salt_tbl , this % aero_sulf_tbl , & this % aero_bcar_rh_tbl , this % aero_bcar_tbl , & this % aero_ocar_rh_tbl , this % aero_ocar_tbl , & atau , ataussa , ataussag ) endif ! ! Derive total aerosol optical properties !   See also the increment routines in mo_optical_props_kernels ! select type ( optical_props ) type is ( ty_optical_props_1scl ) !$acc parallel loop gang vector default(present) collapse(3) & !$acc               copyin(optical_props) copyout(optical_props%tau) !$omp target teams distribute parallel do simd collapse(3) & !$omp map(from:optical_props%tau) do ibnd = 1 , nbnd do ilay = 1 , nlay do icol = 1 , ncol ! Absorption optical depth  = (1-ssa) * tau = tau - taussa optical_props % tau ( icol , ilay , ibnd ) = ( atau ( icol , ilay , ibnd ) - ataussa ( icol , ilay , ibnd )) end do end do end do type is ( ty_optical_props_2str ) !$acc parallel loop gang vector default(present) collapse(3) & !$acc               copyin(optical_props) copyout(optical_props%tau, optical_props%ssa, optical_props%g) !$omp target teams distribute parallel do simd collapse(3) & !$omp map(from:optical_props%tau, optical_props%ssa, optical_props%g) do ibnd = 1 , nbnd do ilay = 1 , nlay do icol = 1 , ncol tau = atau ( icol , ilay , ibnd ) taussa = ataussa ( icol , ilay , ibnd ) optical_props % tau ( icol , ilay , ibnd ) = tau optical_props % ssa ( icol , ilay , ibnd ) = taussa / max ( epsilon ( tau ), tau ) optical_props % g ( icol , ilay , ibnd ) = ( ataussag ( icol , ilay , ibnd )) & / max ( epsilon ( tau ), taussa ) end do end do end do type is ( ty_optical_props_nstr ) error_msg = \"aerosol optics: n-stream calculations not yet supported\" end select !$acc end data !$omp end target data end if !$acc end data !$omp end target data end function aerosol_optics !-------------------------------------------------------------------------------------------------------------------- ! ! Ancillary functions ! !-------------------------------------------------------------------------------------------------------------------- ! ! For size dimension, select size bin appropriate for the requested aerosol size. ! For rh dimension, linearly interpolate values from a lookup table with \"nrh\" !   unevenly-spaced elements \"aero_rh\". The last dimension for all tables is band. ! Returns zero where no aerosol is present. ! subroutine compute_all_from_table ( ncol , nlay , npair , nval , nrh , nbin , nbnd , & type , size , mass , rh , & merra_aero_bin_lims , aero_rh , & aero_dust_tbl , aero_salt_tbl , aero_sulf_tbl , & aero_bcar_rh_tbl , aero_bcar_tbl , & aero_ocar_rh_tbl , aero_ocar_tbl , & tau , taussa , taussag ) integer , intent ( in ) :: ncol , nlay , npair , nval , nrh , nbin , nbnd integer , dimension ( ncol , nlay ), intent ( in ) :: type real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: size , mass , rh real ( wp ), dimension ( npair , nbin ), intent ( in ) :: merra_aero_bin_lims real ( wp ), dimension ( nrh ), intent ( in ) :: aero_rh real ( wp ), dimension ( nval , nbin , nbnd ), intent ( in ) :: aero_dust_tbl real ( wp ), dimension ( nrh , nval , nbin , nbnd ), intent ( in ) :: aero_salt_tbl real ( wp ), dimension ( nrh , nval , nbnd ), intent ( in ) :: aero_sulf_tbl real ( wp ), dimension ( nrh , nval , nbnd ), intent ( in ) :: aero_bcar_rh_tbl real ( wp ), dimension ( nval , nbnd ), intent ( in ) :: aero_bcar_tbl real ( wp ), dimension ( nrh , nval , nbnd ), intent ( in ) :: aero_ocar_rh_tbl real ( wp ), dimension ( nval , nbnd ), intent ( in ) :: aero_ocar_tbl real ( wp ), dimension ( ncol , nlay , nbnd ), intent ( out ) :: tau , taussa , taussag ! --------------------------- integer :: icol , ilay , ibnd , ibin , i integer :: itype , irh1 , irh2 real ( wp ) :: drh0 , drh1 , rdrh real ( wp ) :: t , ts , tsg ! tau, tau*ssa, tau*ssa*g ! --------------------------- !$acc parallel loop gang vector default(present) collapse(3) !$omp target teams distribute parallel do simd collapse(3) do ibnd = 1 , nbnd do ilay = 1 , nlay do icol = 1 , ncol ! Sequential loop to find size bin do i = 1 , nbin if ( size ( icol , ilay ) . ge . merra_aero_bin_lims ( 1 , i ) . and . & size ( icol , ilay ) . le . merra_aero_bin_lims ( 2 , i )) then ibin = i endif enddo itype = type ( icol , ilay ) ! relative humidity linear interpolation coefficients if ( itype . ne . merra_aero_none ) then irh2 = 1 do while ( rh ( icol , ilay ) . gt . aero_rh ( irh2 )) irh2 = irh2 + 1 if ( irh2 . gt . nrh ) exit enddo irh1 = max ( 1 , irh2 - 1 ) irh2 = min ( nrh , irh2 ) drh0 = aero_rh ( irh2 ) - aero_rh ( irh1 ) drh1 = rh ( icol , ilay ) - aero_rh ( irh1 ) if ( irh1 == irh2 ) then rdrh = 0._wp else rdrh = drh1 / drh0 endif endif ! Set aerosol optical properties where aerosol present. Use aerosol type array as the mask. select case ( itype ) ! dust case ( merra_aero_dust ) tau ( icol , ilay , ibnd ) = mass ( icol , ilay ) * aero_dust_tbl ( ext , ibin , ibnd ) taussa ( icol , ilay , ibnd ) = tau ( icol , ilay , ibnd ) * aero_dust_tbl ( ssa , ibin , ibnd ) taussag ( icol , ilay , ibnd ) = taussa ( icol , ilay , ibnd ) * aero_dust_tbl ( g , ibin , ibnd ) ! sea-salt case ( merra_aero_salt ) tau ( icol , ilay , ibnd ) = mass ( icol , ilay ) * & linear_interp_aero_table ( aero_salt_tbl (:, ext , ibin , ibnd ), irh1 , irh2 , rdrh ) taussa ( icol , ilay , ibnd ) = tau ( icol , ilay , ibnd ) * & linear_interp_aero_table ( aero_salt_tbl (:, ssa , ibin , ibnd ), irh1 , irh2 , rdrh ) taussag ( icol , ilay , ibnd ) = taussa ( icol , ilay , ibnd ) * & linear_interp_aero_table ( aero_salt_tbl (:, g , ibin , ibnd ), irh1 , irh2 , rdrh ) ! sulfate case ( merra_aero_sulf ) tau ( icol , ilay , ibnd ) = mass ( icol , ilay ) * & linear_interp_aero_table ( aero_sulf_tbl (:, ext , ibnd ), irh1 , irh2 , rdrh ) taussa ( icol , ilay , ibnd ) = tau ( icol , ilay , ibnd ) * & linear_interp_aero_table ( aero_sulf_tbl (:, ssa , ibnd ), irh1 , irh2 , rdrh ) taussag ( icol , ilay , ibnd ) = taussa ( icol , ilay , ibnd ) * & linear_interp_aero_table ( aero_sulf_tbl (:, g , ibnd ), irh1 , irh2 , rdrh ) ! black carbon - hydrophilic case ( merra_aero_bcar_rh ) tau ( icol , ilay , ibnd ) = mass ( icol , ilay ) * & linear_interp_aero_table ( aero_bcar_rh_tbl (:, ext , ibnd ), irh1 , irh2 , rdrh ) taussa ( icol , ilay , ibnd ) = tau ( icol , ilay , ibnd ) * & linear_interp_aero_table ( aero_bcar_rh_tbl (:, ssa , ibnd ), irh1 , irh2 , rdrh ) taussag ( icol , ilay , ibnd ) = taussa ( icol , ilay , ibnd ) * & linear_interp_aero_table ( aero_bcar_rh_tbl (:, g , ibnd ), irh1 , irh2 , rdrh ) ! black carbon - hydrophobic case ( merra_aero_bcar ) tau ( icol , ilay , ibnd ) = mass ( icol , ilay ) * aero_bcar_tbl ( ext , ibnd ) taussa ( icol , ilay , ibnd ) = tau ( icol , ilay , ibnd ) * aero_bcar_tbl ( ssa , ibnd ) taussag ( icol , ilay , ibnd ) = taussa ( icol , ilay , ibnd ) * aero_bcar_tbl ( g , ibnd ) ! organic carbon - hydrophilic case ( merra_aero_ocar_rh ) tau ( icol , ilay , ibnd ) = mass ( icol , ilay ) * & linear_interp_aero_table ( aero_ocar_rh_tbl (:, ext , ibnd ), irh1 , irh2 , rdrh ) taussa ( icol , ilay , ibnd ) = tau ( icol , ilay , ibnd ) * & linear_interp_aero_table ( aero_ocar_rh_tbl (:, ssa , ibnd ), irh1 , irh2 , rdrh ) taussag ( icol , ilay , ibnd ) = taussa ( icol , ilay , ibnd ) * & linear_interp_aero_table ( aero_ocar_rh_tbl (:, g , ibnd ), irh1 , irh2 , rdrh ) ! organic carbon - hydrophobic case ( merra_aero_ocar ) tau ( icol , ilay , ibnd ) = mass ( icol , ilay ) * aero_ocar_tbl ( ext , ibnd ) taussa ( icol , ilay , ibnd ) = tau ( icol , ilay , ibnd ) * aero_ocar_tbl ( ssa , ibnd ) taussag ( icol , ilay , ibnd ) = taussa ( icol , ilay , ibnd ) * aero_ocar_tbl ( g , ibnd ) ! no aerosol case default tau ( icol , ilay , ibnd ) = 0._wp taussa ( icol , ilay , ibnd ) = 0._wp taussag ( icol , ilay , ibnd ) = 0._wp end select end do end do end do end subroutine compute_all_from_table !-------------------------------------------------------------------------------------------------------------------- ! ! Function for linearly interpolating MERRA aerosol optics tables in the rh dimension for ! a single parameter, aerosol type, spectral band, and size bin. Interpolation is performed ! only where aerosol in present using aerosol type as the mask. ! function linear_interp_aero_table ( table , index1 , index2 , weight ) result ( value ) !$acc routine seq !$omp declare target integer , intent ( in ) :: index1 , index2 real ( wp ), intent ( in ) :: weight real ( wp ), dimension (:), intent ( in ) :: table real ( wp ) :: value value = table ( index1 ) + weight * ( table ( index2 ) - table ( index1 )) end function linear_interp_aero_table ! ---------------------------------------------------------- logical function any_int_vals_outside_2D ( array , checkMin , checkMax ) integer , dimension (:,:), intent ( in ) :: array integer , intent ( in ) :: checkMin , checkMax integer :: minValue , maxValue !$acc kernels copyin(array) !$omp target map(to:array) map(from:minValue, maxValue) minValue = minval ( array ) maxValue = maxval ( array ) !$acc end kernels !$omp end target any_int_vals_outside_2D = minValue < checkMin . or . maxValue > checkMax end function any_int_vals_outside_2D end module mo_aerosol_optics_rrtmgp_merra","tags":"","loc":"sourcefile/mo_aerosol_optics_rrtmgp_merra.f90.html"},{"title":"mo_gas_optics_rrtmgp.F90 – RRTMGP-Fortran","text":"Contents Modules mo_gas_optics_rrtmgp Source Code mo_gas_optics_rrtmgp.F90 Source Code ! This code is part of RRTM for GCM Applications - Parallel (RRTMGP) ! ! Contacts: Robert Pincus and Eli Mlawer ! email:  rrtmgp@aer.com ! ! Copyright 2015-,  Atmospheric and Environmental Research, ! Regents of the University of Colorado, Trustees of Columbia University.  All right reserved. ! ! Use and duplication is permitted under the terms of the !    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause ! ------------------------------------------------------------------------------------------------- ! !> ## Class implementing the RRTMGP correlated-_k_ distribution !> !> Implements a class for computing spectrally-resolved gas optical properties and source functions !>   given atmopsheric physical properties (profiles of temperature, pressure, and gas concentrations) !>   The class must be initialized with data (provided as a netCDF file) before being used. !> !> Two variants apply to internal Planck sources (longwave radiation in the Earth's atmosphere) and to !>   external stellar radiation (shortwave radiation in the Earth's atmosphere). !>   The variant is chosen based on what information is supplied during initialization. !   (It might make more sense to define two sub-classes) ! ! ------------------------------------------------------------------------------------------------- module mo_gas_optics_rrtmgp use mo_rte_kind , only : wp , wl use mo_rte_config , only : check_extents , check_values use mo_rte_util_array , only : zero_array use mo_rte_util_array_validation , & only : any_vals_less_than , any_vals_outside , extents_are use mo_optical_props , only : ty_optical_props use mo_source_functions , only : ty_source_func_lw use mo_gas_optics_rrtmgp_kernels , & only : interpolation , compute_tau_absorption , compute_tau_rayleigh , compute_Planck_source use mo_gas_optics_constants , only : avogad , m_dry , m_h2o , grav use mo_gas_optics_util_string , only : lower_case , string_in_array , string_loc_in_array use mo_gas_concentrations , only : ty_gas_concs use mo_optical_props , only : ty_optical_props_arry , ty_optical_props_1scl , ty_optical_props_2str , ty_optical_props_nstr use mo_gas_optics , only : ty_gas_optics implicit none private real ( wp ), parameter :: pi = acos ( - 1._wp ) ! ------------------------------------------------------------------------------------------------- type , extends ( ty_gas_optics ), public :: ty_gas_optics_rrtmgp private ! ! RRTMGP computes absorption in each band arising from !   two major species in each band, which are combined to make !     a relative mixing ratio eta and a total column amount (col_mix) !   contributions from zero or more minor species whose concentrations !     may be scaled by other components of the atmosphere ! ! Absorption coefficients are interpolated from tables on a pressure/temperature/(eta) grid ! ! ------------------------------------ ! Interpolation variables: Temperature and pressure grids ! real ( wp ), dimension (:), allocatable :: press_ref , press_ref_log , temp_ref ! ! Derived and stored for convenience: !   Min and max for temperature and pressure intepolation grids !   difference in ln pressure between consecutive reference levels !   log of reference pressure separating the lower and upper atmosphere ! real ( wp ) :: press_ref_min , press_ref_max , & temp_ref_min , temp_ref_max real ( wp ) :: press_ref_log_delta , temp_ref_delta , press_ref_trop_log ! ------------------------------------ ! Major absorbers (\"key species\") !   Each unique set of major species is called a flavor. ! ! Names  and reference volume mixing ratios of major gases ! character ( 32 ), dimension (:), allocatable :: gas_names ! gas names real ( wp ), dimension (:,:,:), allocatable :: vmr_ref ! vmr_ref(lower or upper atmosphere, gas, temp) ! ! Which two gases are in each flavor? By index ! integer , dimension (:,:), allocatable :: flavor ! major species pair; (2,nflav) ! ! Which flavor for each g-point? One each for lower, upper atmosphere ! integer , dimension (:,:), allocatable :: gpoint_flavor ! flavor = gpoint_flavor(2, g-point) ! ! Major gas absorption coefficients ! real ( wp ), dimension (:,:,:,:), allocatable :: kmajor !  kmajor(g-point,eta,pressure,temperature) ! ! ------------------------------------ ! Minor species, independently for upper and lower atmospheres !   Array extents in the n_minor dimension will differ between upper and lower atmospheres !   Each contribution has starting and ending g-points ! integer , dimension (:,:), allocatable :: minor_limits_gpt_lower , & minor_limits_gpt_upper ! ! Minor gas contributions might be scaled by other gas amounts; if so we need to know !   the total density and whether the contribution is scaled by the partner gas !   or its complement (i.e. all other gases) ! Water vapor self- and foreign continua work like this, as do !   all collision-induced abosption pairs ! logical ( wl ), dimension (:), allocatable :: minor_scales_with_density_lower , & minor_scales_with_density_upper logical ( wl ), dimension (:), allocatable :: scale_by_complement_lower , scale_by_complement_upper integer , dimension (:), allocatable :: idx_minor_lower , idx_minor_upper integer , dimension (:), allocatable :: idx_minor_scaling_lower , idx_minor_scaling_upper ! ! Index into table of absorption coefficients ! integer , dimension (:), allocatable :: kminor_start_lower , kminor_start_upper ! ! The absorption coefficients themselves ! real ( wp ), dimension (:,:,:), allocatable :: kminor_lower , kminor_upper ! kminor_lower(n_minor,eta,temperature) ! ! ----------------------------------------------------------------------------------- ! ! Rayleigh scattering coefficients ! real ( wp ), dimension (:,:,:,:), allocatable :: krayl ! krayl(g-point,eta,temperature,upper/lower atmosphere) ! ! ----------------------------------------------------------------------------------- ! Planck function spectral mapping !   Allocated only when gas optics object is internal-source ! real ( wp ), dimension (:,:,:,:), allocatable :: planck_frac ! stored fraction of Planck irradiance in band for given g-point ! planck_frac(g-point, eta, pressure, temperature) real ( wp ), dimension (:,:), allocatable :: totplnk ! integrated Planck irradiance by band; (Planck temperatures,band) real ( wp ) :: totplnk_delta ! temperature steps in totplnk real ( wp ), dimension (:,:), allocatable :: optimal_angle_fit ! coefficients of linear function ! of vertical path clear-sky transmittance that is used to ! determine the secant of single angle used for the ! no-scattering calculation, ! optimal_angle_fit(coefficient, band) ! ----------------------------------------------------------------------------------- ! Solar source function spectral mapping with solar variability capability !   Allocated  when gas optics object is external-source !   n-solar-terms: quiet sun, facular brightening and sunspot dimming components !   following the NRLSSI2 model of Coddington et al. 2016, doi:10.1175/BAMS-D-14-00265.1. ! real ( wp ), dimension (:), allocatable :: solar_source ! incoming solar irradiance, computed from other three terms (g-point) real ( wp ), dimension (:), allocatable :: solar_source_quiet ! incoming solar irradiance, quiet sun term (g-point) real ( wp ), dimension (:), allocatable :: solar_source_facular ! incoming solar irradiance, facular term (g-point) real ( wp ), dimension (:), allocatable :: solar_source_sunspot ! incoming solar irradiance, sunspot term (g-point) ! ! ----------------------------------------------------------------------------------- ! Ancillary ! ----------------------------------------------------------------------------------- ! Index into %gas_names -- is this a key species in any band? logical , dimension (:), allocatable :: is_key ! ----------------------------------------------------------------------------------- contains ! Type-bound procedures ! Public procedures ! public interface generic , public :: load => load_int , load_ext procedure , public :: source_is_internal procedure , public :: source_is_external procedure , public :: is_loaded procedure , public :: finalize procedure , public :: get_ngas procedure , public :: get_gases procedure , public :: get_press_min procedure , public :: get_press_max procedure , public :: get_temp_min procedure , public :: get_temp_max procedure , public :: compute_optimal_angles procedure , public :: set_solar_variability procedure , public :: set_tsi ! Internal procedures procedure , private :: load_int procedure , private :: load_ext procedure , public :: gas_optics_int procedure , public :: gas_optics_ext procedure , private :: check_key_species_present ! Interpolation table dimensions procedure , private :: get_nflav procedure , private :: get_neta procedure , private :: get_npres procedure , private :: get_ntemp procedure , private :: get_nPlanckTemp end type ty_gas_optics_rrtmgp ! ------------------------------------------------------------------------------------------------- ! !> col_dry is the number of molecules per cm-2 of dry air ! public :: get_col_dry ! Utility function, not type-bound contains ! -------------------------------------------------------------------------------------- ! ! Public procedures ! ! -------------------------------------------------------------------------------------- ! !> Two functions to define array sizes needed by gas_optics() ! pure function get_ngas ( this ) ! return the number of gases registered in the spectral configuration class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this integer :: get_ngas get_ngas = size ( this % gas_names ) end function get_ngas !-------------------------------------------------------------------------------------------------------------------- ! !> return the number of distinct major gas pairs in the spectral bands (referred to as !> \"flavors\" - all bands have a flavor even if there is one or no major gas) ! pure function get_nflav ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this integer :: get_nflav get_nflav = size ( this % flavor , dim = 2 ) end function get_nflav !-------------------------------------------------------------------------------------------------------------------- ! !> Compute gas optical depth and Planck source functions, !>  given temperature, pressure, and composition ! function gas_optics_int ( this , & play , plev , tlay , tsfc , gas_desc , & optical_props , sources , & col_dry , tlev ) result ( error_msg ) ! inputs class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this real ( wp ), dimension (:,:), intent ( in ) :: play , & !! layer pressures [Pa, mb]; (ncol,nlay) plev , & !! level pressures [Pa, mb]; (ncol,nlay+1) tlay !! layer temperatures [K]; (ncol,nlay) real ( wp ), dimension (:), intent ( in ) :: tsfc !! surface skin temperatures [K]; (ncol) type ( ty_gas_concs ), intent ( in ) :: gas_desc !! Gas volume mixing ratios ! output class ( ty_optical_props_arry ), & intent ( inout ) :: optical_props !! Optical properties class ( ty_source_func_lw ), & intent ( inout ) :: sources !! Planck sources character ( len = 128 ) :: error_msg !! Empty if succssful ! Optional inputs real ( wp ), dimension (:,:), intent ( in ), & optional , target :: col_dry , & !! Column dry amount; dim(ncol,nlay) tlev !! level temperatures [K]; (ncol,nlay+1) ! ---------------------------------------------------------- ! Local variables ! Interpolation coefficients for use in source function integer , dimension ( size ( play , dim = 1 ), size ( play , dim = 2 )) :: jtemp , jpress logical ( wl ), dimension ( size ( play , dim = 1 ), size ( play , dim = 2 )) :: tropo real ( wp ), dimension ( 2 , 2 , 2 , size ( play , dim = 1 ), size ( play , dim = 2 ), get_nflav ( this )) :: fmajor integer , dimension ( 2 , size ( play , dim = 1 ), size ( play , dim = 2 ), get_nflav ( this )) :: jeta integer :: ncol , nlay , ngpt , nband ! ---------------------------------------------------------- ncol = size ( play , dim = 1 ) nlay = size ( play , dim = 2 ) ngpt = this % get_ngpt () nband = this % get_nband () ! ! Gas optics ! !$acc enter data create(jtemp, jpress, tropo, fmajor, jeta) !$omp target enter data map(alloc:jtemp, jpress, tropo, fmajor, jeta) error_msg = compute_gas_taus ( this , & ncol , nlay , ngpt , nband , & play , plev , tlay , gas_desc , & optical_props , & jtemp , jpress , jeta , tropo , fmajor , & col_dry ) if ( error_msg /= '' ) return ! ---------------------------------------------------------- ! ! External source -- check arrays sizes and values ! input data sizes and values ! !$acc enter data copyin(tsfc, tlev) ! Should be fine even if tlev is not supplied !$omp target enter data map(to:tsfc, tlev) if ( check_extents ) then if (. not . extents_are ( tsfc , ncol )) & error_msg = \"gas_optics(): array tsfc has wrong size\" if ( present ( tlev )) then if (. not . extents_are ( tlev , ncol , nlay + 1 )) & error_msg = \"gas_optics(): array tlev has wrong size\" end if ! !   output extents ! if ( any ([ sources % get_ncol (), sources % get_nlay (), sources % get_ngpt ()] /= [ ncol , nlay , ngpt ])) & error_msg = \"gas_optics%gas_optics: source function arrays inconsistently sized\" end if if ( error_msg /= '' ) return if ( check_values ) then if ( any_vals_outside ( tsfc , this % temp_ref_min , this % temp_ref_max )) & error_msg = \"gas_optics(): array tsfc has values outside range\" if ( present ( tlev )) then if ( any_vals_outside ( tlev , this % temp_ref_min , this % temp_ref_max )) & error_msg = \"gas_optics(): array tlev has values outside range\" end if end if if ( error_msg /= '' ) return ! ! Interpolate source function ! if ( present ( tlev )) then ! ! present status of optional argument should be passed to source() !   but isn't with PGI 19.10 ! error_msg = source ( this , & ncol , nlay , nband , ngpt , & play , plev , tlay , tsfc , & jtemp , jpress , jeta , tropo , fmajor , & sources , & tlev ) !$acc exit data delete(tlev) !$omp target exit data map(release:tlev) else error_msg = source ( this , & ncol , nlay , nband , ngpt , & play , plev , tlay , tsfc , & jtemp , jpress , jeta , tropo , fmajor , & sources ) end if !$acc exit data delete(tsfc) !$omp target exit data map(release:tsfc) !$acc exit data delete(jtemp, jpress, tropo, fmajor, jeta) !$omp target exit data map(release:jtemp, jpress, tropo, fmajor, jeta) end function gas_optics_int !------------------------------------------------------------------------------------------ ! !> Compute gas optical depth given temperature, pressure, and composition !>    Top-of-atmosphere stellar insolation is also reported ! function gas_optics_ext ( this , & play , plev , tlay , gas_desc , & ! mandatory inputs optical_props , toa_src , & ! mandatory outputs col_dry ) result ( error_msg ) ! optional input class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this real ( wp ), dimension (:,:), intent ( in ) :: play , & !! layer pressures [Pa, mb]; (ncol,nlay) plev , & !! level pressures [Pa, mb]; (ncol,nlay+1) tlay !! layer temperatures [K]; (ncol,nlay) type ( ty_gas_concs ), intent ( in ) :: gas_desc !! Gas volume mixing ratios ! output class ( ty_optical_props_arry ), & intent ( inout ) :: optical_props real ( wp ), dimension (:,:), intent ( out ) :: toa_src !! Incoming solar irradiance(ncol,ngpt) character ( len = 128 ) :: error_msg !! Empty if successful ! Optional inputs real ( wp ), dimension (:,:), intent ( in ), & optional , target :: col_dry ! Column dry amount; dim(ncol,nlay) ! ---------------------------------------------------------- ! Local variables ! Interpolation coefficients for use in source function integer , dimension ( size ( play , dim = 1 ), size ( play , dim = 2 )) :: jtemp , jpress logical ( wl ), dimension ( size ( play , dim = 1 ), size ( play , dim = 2 )) :: tropo real ( wp ), dimension ( 2 , 2 , 2 , size ( play , dim = 1 ), size ( play , dim = 2 ), get_nflav ( this )) :: fmajor integer , dimension ( 2 , size ( play , dim = 1 ), size ( play , dim = 2 ), get_nflav ( this )) :: jeta integer :: ncol , nlay , ngpt , nband , ngas , nflav integer :: igpt , icol ! ---------------------------------------------------------- ncol = size ( play , dim = 1 ) nlay = size ( play , dim = 2 ) ngpt = this % get_ngpt () nband = this % get_nband () ngas = this % get_ngas () nflav = get_nflav ( this ) ! ! Gas optics ! !$acc enter data create(jtemp, jpress, tropo, fmajor, jeta) !$omp target enter data map(alloc:jtemp, jpress, tropo, fmajor, jeta) error_msg = compute_gas_taus ( this , & ncol , nlay , ngpt , nband , & play , plev , tlay , gas_desc , & optical_props , & jtemp , jpress , jeta , tropo , fmajor , & col_dry ) !$acc exit data delete(jtemp, jpress, tropo, fmajor, jeta) !$omp target exit data map(release:jtemp, jpress, tropo, fmajor, jeta) if ( error_msg /= '' ) return ! ---------------------------------------------------------- ! ! External source function is constant ! !$acc enter data create(toa_src) !$omp target enter data map(alloc:toa_src) if ( check_extents ) then if (. not . extents_are ( toa_src , ncol , ngpt )) & error_msg = \"gas_optics(): array toa_src has wrong size\" end if if ( error_msg /= '' ) return !$acc parallel loop collapse(2) !$omp target teams distribute parallel do simd collapse(2) do igpt = 1 , ngpt do icol = 1 , ncol toa_src ( icol , igpt ) = this % solar_source ( igpt ) end do end do !$acc exit data copyout(toa_src) !$omp target exit data map(from:toa_src) end function gas_optics_ext !------------------------------------------------------------------------------------------ ! ! Returns optical properties and interpolation coefficients ! function compute_gas_taus ( this , & ncol , nlay , ngpt , nband , & play , plev , tlay , gas_desc , & optical_props , & jtemp , jpress , jeta , tropo , fmajor , & col_dry ) result ( error_msg ) class ( ty_gas_optics_rrtmgp ), & intent ( in ) :: this integer , intent ( in ) :: ncol , nlay , ngpt , nband real ( wp ), dimension (:,:), intent ( in ) :: play , & ! layer pressures [Pa, mb]; (ncol,nlay) plev , & ! level pressures [Pa, mb]; (ncol,nlay+1) tlay ! layer temperatures [K]; (ncol,nlay) type ( ty_gas_concs ), intent ( in ) :: gas_desc ! Gas volume mixing ratios class ( ty_optical_props_arry ), intent ( inout ) :: optical_props !inout because components are allocated ! Interpolation coefficients for use in internal source function integer , dimension ( ncol , nlay ), intent ( out ) :: jtemp , jpress integer , dimension ( 2 , ncol , nlay , get_nflav ( this )), intent ( out ) :: jeta logical ( wl ), dimension ( ncol , nlay ), intent ( out ) :: tropo real ( wp ), dimension ( 2 , 2 , 2 , ncol , nlay , get_nflav ( this )), intent ( out ) :: fmajor character ( len = 128 ) :: error_msg ! Optional inputs real ( wp ), dimension (:,:), intent ( in ), & optional , target :: col_dry ! Column dry amount; dim(ncol,nlay) ! ---------------------------------------------------------- ! Local variables real ( wp ), dimension ( ncol , nlay , ngpt ) :: tau , tau_rayleigh ! absorption, Rayleigh scattering optical depths ! Number of molecules per cm&#94;2 real ( wp ), dimension ( ncol , nlay ), target :: col_dry_arr real ( wp ), dimension (:,:), pointer :: col_dry_wk ! ! Interpolation variables used in major gas but not elsewhere, so don't need exporting ! real ( wp ), dimension ( ncol , nlay , this % get_ngas ()) :: vmr ! volume mixing ratios real ( wp ), dimension ( ncol , nlay , 0 : this % get_ngas ()) :: col_gas ! column amounts for each gas, plus col_dry real ( wp ), dimension ( 2 , ncol , nlay , get_nflav ( this )) :: col_mix ! combination of major species's column amounts ! index(1) : reference temperature level ! index(2) : flavor ! index(3) : layer real ( wp ), dimension ( 2 , 2 , ncol , nlay , get_nflav ( this )) :: fminor ! interpolation fractions for minor species ! index(1) : reference eta level (temperature dependent) ! index(2) : reference temperature level ! index(3) : flavor ! index(4) : layer integer :: ngas , nflav , neta , npres , ntemp integer :: icol , ilay , igas integer :: idx_h2o ! index of water vapor integer :: nminorlower , nminorklower , nminorupper , nminorkupper logical :: use_rayl ! ---------------------------------------------------------- ! ! Error checking ! use_rayl = allocated ( this % krayl ) error_msg = '' ! Check for initialization if (. not . this % is_loaded ()) then error_msg = 'ERROR: spectral configuration not loaded' return end if ! ! Check for presence of key species in ty_gas_concs; return error if any key species are not present ! error_msg = this % check_key_species_present ( gas_desc ) if ( error_msg /= '' ) return ! ! Check input data sizes and values ! !$acc        data copyin(play,plev,tlay) create(   vmr,col_gas) !$omp target data map(to:play,plev,tlay) map(alloc:vmr,col_gas) if ( check_extents ) then if (. not . extents_are ( play , ncol , nlay )) & error_msg = \"gas_optics(): array play has wrong size\" if (. not . extents_are ( tlay , ncol , nlay )) & error_msg = \"gas_optics(): array tlay has wrong size\" if (. not . extents_are ( plev , ncol , nlay + 1 )) & error_msg = \"gas_optics(): array plev has wrong size\" if ( optical_props % get_ncol () /= ncol . or . & optical_props % get_nlay () /= nlay . or . & optical_props % get_ngpt () /= ngpt ) & error_msg = \"gas_optics(): optical properties have the wrong extents\" if ( present ( col_dry )) then if (. not . extents_are ( col_dry , ncol , nlay )) & error_msg = \"gas_optics(): array col_dry has wrong size\" end if end if if ( error_msg == '' ) then if ( check_values ) then if ( any_vals_outside ( play , this % press_ref_min , this % press_ref_max )) & error_msg = \"gas_optics(): array play has values outside range\" if ( any_vals_less_than ( plev , 0._wp )) & error_msg = \"gas_optics(): array plev has values outside range\" if ( any_vals_outside ( tlay , this % temp_ref_min , this % temp_ref_max )) & error_msg = \"gas_optics(): array tlay has values outside range\" if ( present ( col_dry )) then if ( any_vals_less_than ( col_dry , 0._wp )) & error_msg = \"gas_optics(): array col_dry has values outside range\" end if end if end if ! ---------------------------------------------------------- if ( error_msg == '' ) then ngas = this % get_ngas () nflav = get_nflav ( this ) neta = this % get_neta () npres = this % get_npres () ntemp = this % get_ntemp () ! number of minor contributors, total num absorption coeffs nminorlower = size ( this % minor_scales_with_density_lower ) nminorklower = size ( this % kminor_lower , 3 ) nminorupper = size ( this % minor_scales_with_density_upper ) nminorkupper = size ( this % kminor_upper , 3 ) ! ! Fill out the array of volume mixing ratios ! do igas = 1 , ngas ! ! Get vmr if  gas is provided in ty_gas_concs ! if ( any ( lower_case ( this % gas_names ( igas )) == gas_desc % get_gas_names ())) then error_msg = gas_desc % get_vmr ( this % gas_names ( igas ), vmr (:,:, igas )) endif end do end if if ( error_msg == '' ) then ! ! Painful hacks to get code to compile with both the CCE-14 and Nvidia 21.3 compiler ! #ifdef _CRAYFTN !$acc enter data copyin(optical_props) #endif select type ( optical_props ) type is ( ty_optical_props_1scl ) #ifndef _CRAYFTN !$acc enter data copyin(optical_props) #endif !$acc enter data create(   optical_props%tau) !$omp target enter data map(alloc:optical_props%tau) type is ( ty_optical_props_2str ) #ifndef _CRAYFTN !$acc enter data copyin(optical_props) #endif !$acc enter data create(   optical_props%tau, optical_props%ssa, optical_props%g) !$omp target enter data map(alloc:optical_props%tau, optical_props%ssa, optical_props%g) type is ( ty_optical_props_nstr ) #ifndef _CRAYFTN !$acc enter data copyin(optical_props) #endif !$acc enter data create(   optical_props%tau, optical_props%ssa, optical_props%p) !$omp target enter data map(alloc:optical_props%tau, optical_props%ssa, optical_props%p) end select ! ! Compute dry air column amounts (number of molecule per cm&#94;2) if user hasn't provided them ! idx_h2o = string_loc_in_array ( 'h2o' , this % gas_names ) if ( present ( col_dry )) then !$acc        enter data copyin(col_dry) !$omp target enter data map(to:col_dry) col_dry_wk => col_dry else !$acc        enter data create(   col_dry_arr) !$omp target enter data map(alloc:col_dry_arr) col_dry_arr = get_col_dry ( vmr (:,:, idx_h2o ), plev ) ! dry air column amounts computation col_dry_wk => col_dry_arr end if ! ! compute column gas amounts [molec/cm&#94;2] ! !$acc parallel loop gang vector collapse(2) !$omp target teams distribute parallel do simd collapse(2) do ilay = 1 , nlay do icol = 1 , ncol col_gas ( icol , ilay , 0 ) = col_dry_wk ( icol , ilay ) end do end do !$acc parallel loop gang vector collapse(3) !$omp target teams distribute parallel do simd collapse(3) do igas = 1 , ngas do ilay = 1 , nlay do icol = 1 , ncol col_gas ( icol , ilay , igas ) = vmr ( icol , ilay , igas ) * col_dry_wk ( icol , ilay ) end do end do end do ! ! ---- calculate gas optical depths ---- ! !$acc        data copyout( jtemp, jpress, jeta, tropo, fmajor) create(   col_mix, fminor) !$omp target data map(from:jtemp, jpress, jeta, tropo, fmajor) map(alloc:col_mix, fminor) call interpolation ( & ncol , nlay , & ! problem dimensions ngas , nflav , neta , npres , ntemp , & ! interpolation dimensions this % flavor , & this % press_ref_log , & this % temp_ref , & this % press_ref_log_delta , & this % temp_ref_min , & this % temp_ref_delta , & this % press_ref_trop_log , & this % vmr_ref , & play , & tlay , & col_gas , & jtemp , & ! outputs fmajor , fminor ,& col_mix , & tropo , & jeta , jpress ) if ( allocated ( this % krayl )) then !$acc        data copyin(this%gpoint_flavor, this%krayl)    create(tau, tau_rayleigh) !$omp target data map(to:this%gpoint_flavor, this%krayl) map(alloc:tau, tau_rayleigh) call zero_array ( ncol , nlay , ngpt , tau ) call compute_tau_absorption ( & ncol , nlay , nband , ngpt , & ! dimensions ngas , nflav , neta , npres , ntemp , & nminorlower , nminorklower , & ! number of minor contributors, total num absorption coeffs nminorupper , nminorkupper , & idx_h2o , & this % gpoint_flavor , & this % get_band_lims_gpoint (), & this % kmajor , & this % kminor_lower , & this % kminor_upper , & this % minor_limits_gpt_lower , & this % minor_limits_gpt_upper , & this % minor_scales_with_density_lower , & this % minor_scales_with_density_upper , & this % scale_by_complement_lower , & this % scale_by_complement_upper , & this % idx_minor_lower , & this % idx_minor_upper , & this % idx_minor_scaling_lower , & this % idx_minor_scaling_upper , & this % kminor_start_lower , & this % kminor_start_upper , & tropo , & col_mix , fmajor , fminor , & play , tlay , col_gas , & jeta , jtemp , jpress , & tau ) call compute_tau_rayleigh ( & !Rayleigh scattering optical depths ncol , nlay , nband , ngpt , & ngas , nflav , neta , npres , ntemp , & ! dimensions this % gpoint_flavor , & this % get_band_lims_gpoint (), & this % krayl , & ! inputs from object idx_h2o , col_dry_wk , col_gas , & fminor , jeta , tropo , jtemp , & ! local input tau_rayleigh ) call combine_abs_and_rayleigh ( tau , tau_rayleigh , optical_props ) !$acc end        data !$omp end target data else call zero_array ( ncol , nlay , ngpt , optical_props % tau ) call compute_tau_absorption ( & ncol , nlay , nband , ngpt , & ! dimensions ngas , nflav , neta , npres , ntemp , & nminorlower , nminorklower , & ! number of minor contributors, total num absorption coeffs nminorupper , nminorkupper , & idx_h2o , & this % gpoint_flavor , & this % get_band_lims_gpoint (), & this % kmajor , & this % kminor_lower , & this % kminor_upper , & this % minor_limits_gpt_lower , & this % minor_limits_gpt_upper , & this % minor_scales_with_density_lower , & this % minor_scales_with_density_upper , & this % scale_by_complement_lower , & this % scale_by_complement_upper , & this % idx_minor_lower , & this % idx_minor_upper , & this % idx_minor_scaling_lower , & this % idx_minor_scaling_upper , & this % kminor_start_lower , & this % kminor_start_upper , & tropo , & col_mix , fmajor , fminor , & play , tlay , col_gas , & jeta , jtemp , jpress , & optical_props % tau ) ! select type ( optical_props ) type is ( ty_optical_props_2str ) call zero_array ( ncol , nlay , ngpt , optical_props % ssa ) call zero_array ( ncol , nlay , ngpt , optical_props % g ) type is ( ty_optical_props_nstr ) call zero_array ( ncol , nlay , ngpt , optical_props % ssa ) call zero_array ( optical_props % get_nmom (), & ncol , nlay , ngpt , optical_props % p ) end select end if !$acc end        data !$omp end target data if ( present ( col_dry )) then !$acc        exit data delete(     col_dry) !$omp target exit data map(release:col_dry) else !$acc        exit data delete(     col_dry_arr) !$omp target exit data map(release:col_dry_arr) end if select type ( optical_props ) type is ( ty_optical_props_1scl ) !$acc        exit data copyout( optical_props%tau) !$omp target exit data map(from:optical_props%tau) type is ( ty_optical_props_2str ) !$acc        exit data copyout( optical_props%tau, optical_props%ssa, optical_props%g) !$omp target exit data map(from:optical_props%tau, optical_props%ssa, optical_props%g) type is ( ty_optical_props_nstr ) !$acc        exit data copyout( optical_props%tau, optical_props%ssa, optical_props%p) !$omp target exit data map(from:optical_props%tau, optical_props%ssa, optical_props%p) end select !$acc exit data delete(optical_props) end if !$acc end        data !$omp end target data end function compute_gas_taus !------------------------------------------------------------------------------------------ ! !> Compute the spectral solar source function adjusted to account for solar variability !>   following the NRLSSI2 model of Coddington et al. 2016, doi:10.1175/BAMS-D-14-00265.1. !> as specified by the facular brightening (mg_index) and sunspot dimming (sb_index) !> indices provided as input. !> !> Users provide the NRLSSI2 facular (\"Bremen\") index and sunspot (\"SPOT67\") index. !>   Changing either of these indicies will change the total solar irradiance (TSI) !>   Code in extensions/mo_solar_variability may be used to compute the value of these !>   indices through an average solar cycle !> Users may also specify the TSI, either alone or in conjunction with the facular and sunspot indices ! !------------------------------------------------------------------------------------------ function set_solar_variability ( this , & mg_index , sb_index , tsi ) & result ( error_msg ) ! !! Updates the spectral distribution and, optionally, !!   the integrated value of the solar source function !!  Modifying either index will change the total solar irradiance ! class ( ty_gas_optics_rrtmgp ), intent ( inout ) :: this ! real ( wp ), intent ( in ) :: mg_index !! facular brightening index (NRLSSI2 facular \"Bremen\" index) real ( wp ), intent ( in ) :: sb_index !! sunspot dimming index     (NRLSSI2 sunspot \"SPOT67\" index) real ( wp ), optional , intent ( in ) :: tsi !! total solar irradiance character ( len = 128 ) :: error_msg !! Empty if successful ! ---------------------------------------------------------- integer :: igpt real ( wp ), parameter :: a_offset = 0.1495954_wp real ( wp ), parameter :: b_offset = 0.00066696_wp ! ---------------------------------------------------------- error_msg = \"\" if ( mg_index < 0._wp ) error_msg = 'mg_index out of range' if ( sb_index < 0._wp ) error_msg = 'sb_index out of range' if ( error_msg /= \"\" ) return ! ! Calculate solar source function for provided facular and sunspot indices ! !$acc parallel loop !$omp target teams distribute parallel do simd do igpt = 1 , size ( this % solar_source_quiet ) this % solar_source ( igpt ) = this % solar_source_quiet ( igpt ) + & ( mg_index - a_offset ) * this % solar_source_facular ( igpt ) + & ( sb_index - b_offset ) * this % solar_source_sunspot ( igpt ) end do ! ! Scale solar source to input TSI value ! if ( present ( tsi )) error_msg = this % set_tsi ( tsi ) end function set_solar_variability !------------------------------------------------------------------------------------------ function set_tsi ( this , tsi ) result ( error_msg ) ! !> Scale the solar source function without changing the spectral distribution ! class ( ty_gas_optics_rrtmgp ), intent ( inout ) :: this real ( wp ), intent ( in ) :: tsi !! user-specified total solar irradiance; character ( len = 128 ) :: error_msg !! Empty if successful real ( wp ) :: norm ! ---------------------------------------------------------- error_msg = \"\" if ( tsi < 0._wp ) then error_msg = 'tsi out of range' else ! ! Scale the solar source function to the input tsi ! !$acc kernels !$omp target norm = 1._wp / sum ( this % solar_source (:)) this % solar_source (:) = this % solar_source (:) * tsi * norm !$acc end kernels !$omp end target end if end function set_tsi !------------------------------------------------------------------------------------------ ! ! Compute Planck source functions at layer centers and levels ! function source ( this , & ncol , nlay , nbnd , ngpt , & play , plev , tlay , tsfc , & jtemp , jpress , jeta , tropo , fmajor , & sources , & ! Planck sources tlev ) & ! optional input result ( error_msg ) ! inputs class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this integer , intent ( in ) :: ncol , nlay , nbnd , ngpt real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: play ! layer pressures [Pa, mb] real ( wp ), dimension ( ncol , nlay + 1 ), intent ( in ) :: plev ! level pressures [Pa, mb] real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: tlay ! layer temperatures [K] real ( wp ), dimension ( ncol ), intent ( in ) :: tsfc ! surface skin temperatures [K] ! Interplation coefficients integer , dimension ( ncol , nlay ), intent ( in ) :: jtemp , jpress logical ( wl ), dimension ( ncol , nlay ), intent ( in ) :: tropo real ( wp ), dimension ( 2 , 2 , 2 , ncol , nlay , get_nflav ( this )), & intent ( in ) :: fmajor integer , dimension ( 2 , ncol , nlay , get_nflav ( this )), & intent ( in ) :: jeta class ( ty_source_func_lw ), intent ( inout ) :: sources real ( wp ), dimension ( ncol , nlay + 1 ), intent ( in ), & optional , target :: tlev ! level temperatures [K] character ( len = 128 ) :: error_msg ! ---------------------------------------------------------- logical ( wl ) :: top_at_1 integer :: icol , ilay ! Variables for temperature at layer edges [K] (ncol, nlay+1) real ( wp ), dimension ( ncol , nlay + 1 ), target :: tlev_arr real ( wp ), dimension (:,:), pointer :: tlev_wk ! ---------------------------------------------------------- error_msg = \"\" ! ! Source function needs temperature at interfaces/levels and at layer centers ! if ( present ( tlev )) then !   Users might have provided these tlev_wk => tlev else tlev_wk => tlev_arr ! ! Interpolate temperature to levels if not provided !   Interpolation and extrapolation at boundaries is weighted by pressure ! do icol = 1 , ncol tlev_arr ( icol , 1 ) = tlay ( icol , 1 ) & + ( plev ( icol , 1 ) - play ( icol , 1 )) * ( tlay ( icol , 2 ) - tlay ( icol , 1 )) & & / ( play ( icol , 2 ) - play ( icol , 1 )) end do do ilay = 2 , nlay do icol = 1 , ncol tlev_arr ( icol , ilay ) = ( play ( icol , ilay - 1 ) * tlay ( icol , ilay - 1 ) * ( plev ( icol , ilay ) - play ( icol , ilay )) & + play ( icol , ilay ) * tlay ( icol , ilay ) * ( play ( icol , ilay - 1 ) - plev ( icol , ilay ))) / & ( plev ( icol , ilay ) * ( play ( icol , ilay - 1 ) - play ( icol , ilay ))) end do end do do icol = 1 , ncol tlev_arr ( icol , nlay + 1 ) = tlay ( icol , nlay ) & + ( plev ( icol , nlay + 1 ) - play ( icol , nlay )) * ( tlay ( icol , nlay ) - tlay ( icol , nlay - 1 )) & / ( play ( icol , nlay ) - play ( icol , nlay - 1 )) end do end if !------------------------------------------------------------------- ! Compute internal (Planck) source functions at layers and levels, !  which depend on mapping from spectral space that creates k-distribution. !$acc        data copyin(sources) copyout( sources%lay_source, sources%lev_source_inc, sources%lev_source_dec) & !$acc                             copyout( sources%sfc_source, sources%sfc_source_Jac) !$omp target data                 map(from:sources%lay_source, sources%lev_source_inc, sources%lev_source_dec) & !$omp                             map(from:sources%sfc_source, sources%sfc_source_Jac) !$acc kernels copyout(top_at_1) !$omp target map(from:top_at_1) top_at_1 = play ( 1 , 1 ) < play ( 1 , nlay ) !$acc end kernels !$omp end target call compute_Planck_source ( ncol , nlay , nbnd , ngpt , & get_nflav ( this ), this % get_neta (), this % get_npres (), this % get_ntemp (), this % get_nPlanckTemp (), & tlay , tlev_wk , tsfc , merge ( nlay , 1 , top_at_1 ), & fmajor , jeta , tropo , jtemp , jpress , & this % get_gpoint_bands (), this % get_band_lims_gpoint (), this % planck_frac , this % temp_ref_min ,& this % totplnk_delta , this % totplnk , this % gpoint_flavor , & sources % sfc_source , sources % lay_source , sources % lev_source_inc , sources % lev_source_dec , & sources % sfc_source_Jac ) !$acc end        data !$omp end target data end function source !-------------------------------------------------------------------------------------------------------------------- ! ! Initialization ! !-------------------------------------------------------------------------------------------------------------------- ! Initialize object based on data read from netCDF file however the user desires. !  Rayleigh scattering tables may or may not be present; this is indicated with allocation status ! This interface is for the internal-sources object -- includes Plank functions and fractions ! function load_int ( this , available_gases , gas_names , key_species , & band2gpt , band_lims_wavenum , & press_ref , press_ref_trop , temp_ref , & temp_ref_p , temp_ref_t , vmr_ref , & kmajor , kminor_lower , kminor_upper , & gas_minor , identifier_minor , & minor_gases_lower , minor_gases_upper , & minor_limits_gpt_lower , minor_limits_gpt_upper , & minor_scales_with_density_lower , & minor_scales_with_density_upper , & scaling_gas_lower , scaling_gas_upper , & scale_by_complement_lower , & scale_by_complement_upper , & kminor_start_lower , & kminor_start_upper , & totplnk , planck_frac , & rayl_lower , rayl_upper , & optimal_angle_fit ) result ( err_message ) class ( ty_gas_optics_rrtmgp ), intent ( inout ) :: this class ( ty_gas_concs ), intent ( in ) :: available_gases ! Which gases does the host model have available? character ( len =* ), dimension (:), intent ( in ) :: gas_names integer , dimension (:,:,:), intent ( in ) :: key_species integer , dimension (:,:), intent ( in ) :: band2gpt real ( wp ), dimension (:,:), intent ( in ) :: band_lims_wavenum real ( wp ), dimension (:), intent ( in ) :: press_ref , temp_ref real ( wp ), intent ( in ) :: press_ref_trop , temp_ref_p , temp_ref_t real ( wp ), dimension (:,:,:), intent ( in ) :: vmr_ref real ( wp ), dimension (:,:,:,:), intent ( in ) :: kmajor real ( wp ), dimension (:,:,:), intent ( in ) :: kminor_lower , kminor_upper real ( wp ), dimension (:,:), intent ( in ) :: totplnk real ( wp ), dimension (:,:,:,:), intent ( in ) :: planck_frac real ( wp ), dimension (:,:,:), intent ( in ), & allocatable :: rayl_lower , rayl_upper real ( wp ), dimension (:,:), intent ( in ) :: optimal_angle_fit character ( len =* ), dimension (:), intent ( in ) :: gas_minor , identifier_minor character ( len =* ), dimension (:), intent ( in ) :: minor_gases_lower , & minor_gases_upper integer , dimension (:,:), intent ( in ) :: minor_limits_gpt_lower , & minor_limits_gpt_upper logical ( wl ), dimension (:), intent ( in ) :: minor_scales_with_density_lower , & minor_scales_with_density_upper character ( len =* ), dimension (:), intent ( in ) :: scaling_gas_lower , & scaling_gas_upper logical ( wl ), dimension (:), intent ( in ) :: scale_by_complement_lower ,& scale_by_complement_upper integer , dimension (:), intent ( in ) :: kminor_start_lower ,& kminor_start_upper character ( len = 128 ) :: err_message ! ---- !$acc enter data copyin(this) call this % finalize () err_message = init_abs_coeffs ( this , & available_gases , & gas_names , key_species , & band2gpt , band_lims_wavenum , & press_ref , temp_ref , & press_ref_trop , temp_ref_p , temp_ref_t , & vmr_ref , & kmajor , kminor_lower , kminor_upper , & gas_minor , identifier_minor ,& minor_gases_lower , minor_gases_upper , & minor_limits_gpt_lower , & minor_limits_gpt_upper , & minor_scales_with_density_lower , & minor_scales_with_density_upper , & scaling_gas_lower , scaling_gas_upper , & scale_by_complement_lower , & scale_by_complement_upper , & kminor_start_lower , & kminor_start_upper , & rayl_lower , rayl_upper ) ! Planck function tables ! allocate ( this % totplnk ( size ( totplnk , 1 ), size ( totplnk , 2 )), & this % planck_frac ( size ( planck_frac , 4 ), size ( planck_frac , 2 ), size ( planck_frac , 3 ), size ( planck_frac , 1 )), & this % optimal_angle_fit ( size ( optimal_angle_fit , 1 ), size ( optimal_angle_fit , 2 ))) this % totplnk = totplnk !    this%planck_frac = planck_frac this % planck_frac = RESHAPE ( planck_frac ,( / size ( planck_frac , 4 ), size ( planck_frac , 2 ), & size ( planck_frac , 3 ), size ( planck_frac , 1 ) / ), ORDER = ( / 4 , 2 , 3 , 1 / )) this % optimal_angle_fit = optimal_angle_fit !$acc        enter data copyin(this%totplnk, this%planck_frac, this%optimal_angle_fit) !$omp target enter data map(to:this%totplnk, this%planck_frac, this%optimal_angle_fit) ! Temperature steps for Planck function interpolation !   Assumes that temperature minimum and max are the same for the absorption coefficient grid and the !   Planck grid and the Planck grid is equally spaced this % totplnk_delta = ( this % temp_ref_max - this % temp_ref_min ) / ( size ( this % totplnk , dim = 1 ) - 1 ) end function load_int !-------------------------------------------------------------------------------------------------------------------- ! ! Initialize object based on data read from netCDF file however the user desires. !  Rayleigh scattering tables may or may not be present; this is indicated with allocation status ! This interface is for the external-sources object -- includes TOA source function table ! function load_ext ( this , available_gases , gas_names , key_species , & band2gpt , band_lims_wavenum , & press_ref , press_ref_trop , temp_ref , & temp_ref_p , temp_ref_t , vmr_ref , & kmajor , kminor_lower , kminor_upper , & gas_minor , identifier_minor , & minor_gases_lower , minor_gases_upper , & minor_limits_gpt_lower , minor_limits_gpt_upper , & minor_scales_with_density_lower , & minor_scales_with_density_upper , & scaling_gas_lower , scaling_gas_upper , & scale_by_complement_lower , & scale_by_complement_upper , & kminor_start_lower , & kminor_start_upper , & solar_quiet , solar_facular , solar_sunspot , & tsi_default , mg_default , sb_default , & rayl_lower , rayl_upper ) result ( err_message ) class ( ty_gas_optics_rrtmgp ), intent ( inout ) :: this class ( ty_gas_concs ), intent ( in ) :: available_gases ! Which gases does the host model have available? character ( len =* ), & dimension (:), intent ( in ) :: gas_names integer , dimension (:,:,:), intent ( in ) :: key_species integer , dimension (:,:), intent ( in ) :: band2gpt real ( wp ), dimension (:,:), intent ( in ) :: band_lims_wavenum real ( wp ), dimension (:), intent ( in ) :: press_ref , temp_ref real ( wp ), intent ( in ) :: press_ref_trop , temp_ref_p , temp_ref_t real ( wp ), dimension (:,:,:), intent ( in ) :: vmr_ref real ( wp ), dimension (:,:,:,:), intent ( in ) :: kmajor real ( wp ), dimension (:,:,:), intent ( in ) :: kminor_lower , kminor_upper character ( len =* ), dimension (:), & intent ( in ) :: gas_minor , & identifier_minor character ( len =* ), dimension (:), & intent ( in ) :: minor_gases_lower , & minor_gases_upper integer , dimension (:,:), intent ( in ) :: & minor_limits_gpt_lower , & minor_limits_gpt_upper logical ( wl ), dimension (:), intent ( in ) :: & minor_scales_with_density_lower , & minor_scales_with_density_upper character ( len =* ), dimension (:), intent ( in ) :: & scaling_gas_lower , & scaling_gas_upper logical ( wl ), dimension (:), intent ( in ) :: & scale_by_complement_lower , & scale_by_complement_upper integer , dimension (:), intent ( in ) :: & kminor_start_lower , & kminor_start_upper real ( wp ), dimension (:), intent ( in ) :: solar_quiet , & solar_facular , & solar_sunspot real ( wp ), intent ( in ) :: tsi_default , & mg_default , sb_default real ( wp ), dimension (:,:,:), intent ( in ), & allocatable :: rayl_lower , rayl_upper character ( len = 128 ) err_message integer :: ngpt ! ---- !$acc enter data copyin(this) call this % finalize () err_message = init_abs_coeffs ( this , & available_gases , & gas_names , key_species , & band2gpt , band_lims_wavenum , & press_ref , temp_ref , & press_ref_trop , temp_ref_p , temp_ref_t , & vmr_ref , & kmajor , kminor_lower , kminor_upper , & gas_minor , identifier_minor , & minor_gases_lower , minor_gases_upper , & minor_limits_gpt_lower , & minor_limits_gpt_upper , & minor_scales_with_density_lower , & minor_scales_with_density_upper , & scaling_gas_lower , scaling_gas_upper , & scale_by_complement_lower , & scale_by_complement_upper , & kminor_start_lower , & kminor_start_upper , & rayl_lower , rayl_upper ) if ( err_message == \"\" ) then ! ! Spectral solar irradiance terms init ! ngpt = size ( solar_quiet ) allocate ( this % solar_source_quiet ( ngpt ), this % solar_source_facular ( ngpt ), & this % solar_source_sunspot ( ngpt ), this % solar_source ( ngpt )) !$acc        enter data create(   this%solar_source_quiet, this%solar_source_facular, this%solar_source_sunspot, this%solar_source) !$omp target enter data map(alloc:this%solar_source_quiet, this%solar_source_facular, this%solar_source_sunspot, this%solar_source) !$acc kernels !$omp target this % solar_source_quiet = solar_quiet this % solar_source_facular = solar_facular this % solar_source_sunspot = solar_sunspot !$acc end kernels !$omp end target err_message = this % set_solar_variability ( mg_default , sb_default ) endif end function load_ext !-------------------------------------------------------------------------------------------------------------------- ! ! Initialize absorption coefficient arrays, !   including Rayleigh scattering tables if provided (allocated) ! function init_abs_coeffs ( this , & available_gases , & gas_names , key_species , & band2gpt , band_lims_wavenum , & press_ref , temp_ref , & press_ref_trop , temp_ref_p , temp_ref_t , & vmr_ref , & kmajor , kminor_lower , kminor_upper , & gas_minor , identifier_minor ,& minor_gases_lower , minor_gases_upper , & minor_limits_gpt_lower , & minor_limits_gpt_upper , & minor_scales_with_density_lower , & minor_scales_with_density_upper , & scaling_gas_lower , scaling_gas_upper , & scale_by_complement_lower , & scale_by_complement_upper , & kminor_start_lower , & kminor_start_upper , & rayl_lower , rayl_upper ) result ( err_message ) class ( ty_gas_optics_rrtmgp ), intent ( inout ) :: this class ( ty_gas_concs ), intent ( in ) :: available_gases character ( len =* ), & dimension (:), intent ( in ) :: gas_names integer , dimension (:,:,:), intent ( in ) :: key_species integer , dimension (:,:), intent ( in ) :: band2gpt real ( wp ), dimension (:,:), intent ( in ) :: band_lims_wavenum real ( wp ), dimension (:), intent ( in ) :: press_ref , temp_ref real ( wp ), intent ( in ) :: press_ref_trop , temp_ref_p , temp_ref_t real ( wp ), dimension (:,:,:), intent ( in ) :: vmr_ref real ( wp ), dimension (:,:,:,:), intent ( in ) :: kmajor real ( wp ), dimension (:,:,:), intent ( in ) :: kminor_lower , kminor_upper character ( len =* ), dimension (:), & intent ( in ) :: gas_minor , & identifier_minor character ( len =* ), dimension (:), & intent ( in ) :: minor_gases_lower , & minor_gases_upper integer , dimension (:,:), intent ( in ) :: minor_limits_gpt_lower , & minor_limits_gpt_upper logical ( wl ), dimension (:), intent ( in ) :: minor_scales_with_density_lower , & minor_scales_with_density_upper character ( len =* ), dimension (:),& intent ( in ) :: scaling_gas_lower , & scaling_gas_upper logical ( wl ), dimension (:), intent ( in ) :: scale_by_complement_lower , & scale_by_complement_upper integer , dimension (:), intent ( in ) :: kminor_start_lower , & kminor_start_upper real ( wp ), dimension (:,:,:), intent ( in ), & allocatable :: rayl_lower , rayl_upper character ( len = 128 ) :: err_message ! -------------------------------------------------------------------------- logical , dimension (:), allocatable :: gas_is_present logical , dimension (:), allocatable :: key_species_present_init integer , dimension (:,:,:), allocatable :: key_species_red real ( wp ), dimension (:,:,:), allocatable :: vmr_ref_red character ( len = 256 ), & dimension (:), allocatable :: minor_gases_lower_red , & minor_gases_upper_red character ( len = 256 ), & dimension (:), allocatable :: scaling_gas_lower_red , & scaling_gas_upper_red integer :: i , j , idx integer :: ngas ! -------------------------------------- err_message = this % ty_optical_props % init ( band_lims_wavenum , band2gpt ) if ( len_trim ( err_message ) /= 0 ) return ! ! Which gases known to the gas optics are present in the host model (available_gases)? ! ngas = size ( gas_names ) allocate ( gas_is_present ( ngas )) do i = 1 , ngas ! Next line causes a compiler bug in gfortran 11.0.1 on Mac ARM ! Should replace gas_names with get_gas_names() and make gas_names private in ty_gas_concs gas_is_present ( i ) = string_in_array ( gas_names ( i ), available_gases % gas_names ) end do ! ! Now the number of gases is the union of those known to the k-distribution and provided !   by the host model ! ngas = count ( gas_is_present ) ! ! Initialize the gas optics object, keeping only those gases known to the !   gas optics and also present in the host model ! this % gas_names = pack ( gas_names , mask = gas_is_present ) ! Copy-ins below allocate ( vmr_ref_red ( size ( vmr_ref , dim = 1 ), 0 : ngas , & size ( vmr_ref , dim = 3 ))) ! Gas 0 is used in single-key species method, set to 1.0 (col_dry) vmr_ref_red (:, 0 ,:) = vmr_ref (:, 1 ,:) do i = 1 , ngas idx = string_loc_in_array ( this % gas_names ( i ), gas_names ) vmr_ref_red (:, i ,:) = vmr_ref (:, idx + 1 ,:) enddo call move_alloc ( vmr_ref_red , this % vmr_ref ) !$acc        enter data copyin(this%vmr_ref, this%gas_names) !$omp target enter data map(to:this%vmr_ref, this%gas_names) ! ! Reduce minor arrays so variables only contain minor gases that are available ! Reduce size of minor Arrays ! call reduce_minor_arrays ( available_gases , & gas_minor , identifier_minor , & kminor_lower , & minor_gases_lower , & minor_limits_gpt_lower , & minor_scales_with_density_lower , & scaling_gas_lower , & scale_by_complement_lower , & kminor_start_lower , & this % kminor_lower , & minor_gases_lower_red , & this % minor_limits_gpt_lower , & this % minor_scales_with_density_lower , & scaling_gas_lower_red , & this % scale_by_complement_lower , & this % kminor_start_lower ) call reduce_minor_arrays ( available_gases , & gas_minor , identifier_minor ,& kminor_upper , & minor_gases_upper , & minor_limits_gpt_upper , & minor_scales_with_density_upper , & scaling_gas_upper , & scale_by_complement_upper , & kminor_start_upper , & this % kminor_upper , & minor_gases_upper_red , & this % minor_limits_gpt_upper , & this % minor_scales_with_density_upper , & scaling_gas_upper_red , & this % scale_by_complement_upper , & this % kminor_start_upper ) !$acc        enter data copyin(this%minor_limits_gpt_lower, this%minor_limits_gpt_upper) !$omp target enter data map(to:this%minor_limits_gpt_lower, this%minor_limits_gpt_upper) !$acc        enter data copyin(this%minor_scales_with_density_lower, this%minor_scales_with_density_upper) !$omp target enter data map(to:this%minor_scales_with_density_lower, this%minor_scales_with_density_upper) !$acc        enter data copyin(this%scale_by_complement_lower, this%scale_by_complement_upper) !$omp target enter data map(to:this%scale_by_complement_lower, this%scale_by_complement_upper) !$acc        enter data copyin(this%kminor_start_lower, this%kminor_start_upper) !$omp target enter data map(to:this%kminor_start_lower, this%kminor_start_upper) !$acc        enter data copyin(this%kminor_lower, this%kminor_upper) !$omp target enter data map(to:this%kminor_lower, this%kminor_upper) ! Arrays not reduced by the presence, or lack thereof, of a gas allocate ( this % press_ref ( size ( press_ref )), this % temp_ref ( size ( temp_ref )), & this % kmajor ( size ( kmajor , 4 ), size ( kmajor , 2 ), size ( kmajor , 3 ), size ( kmajor , 1 ))) this % press_ref (:) = press_ref (:) this % temp_ref (:) = temp_ref (:) this % kmajor = RESHAPE ( kmajor ,( / size ( kmajor , 4 ), size ( kmajor , 2 ), size ( kmajor , 3 ), size ( kmajor , 1 ) / ), ORDER = ( / 4 , 2 , 3 , 1 / )) !$acc        enter data copyin(this%press_ref, this%temp_ref, this%kmajor) !$omp target enter data map(to:this%press_ref, this%temp_ref, this%kmajor) if ( allocated ( rayl_lower ) . neqv . allocated ( rayl_upper )) then err_message = \"rayl_lower and rayl_upper must have the same allocation status\" return end if if ( allocated ( rayl_lower )) then allocate ( this % krayl ( size ( rayl_lower , dim = 3 ), size ( rayl_lower , dim = 2 ), size ( rayl_lower , dim = 1 ), 2 )) this % krayl (:,:,:, 1 ) = RESHAPE ( rayl_lower ,( / size ( rayl_lower , dim = 3 ), size ( rayl_lower , dim = 2 ), & size ( rayl_lower , dim = 1 ) / ), ORDER = ( / 3 , 2 , 1 / )) this % krayl (:,:,:, 2 ) = RESHAPE ( rayl_upper ,( / size ( rayl_lower , dim = 3 ), size ( rayl_lower , dim = 2 ), & size ( rayl_lower , dim = 1 ) / ), ORDER = ( / 3 , 2 , 1 / )) !$acc        enter data copyin(this%krayl) !$omp target enter data map(to:this%krayl) end if ! ---- post processing ---- ! creates log reference pressure allocate ( this % press_ref_log ( size ( this % press_ref ))) this % press_ref_log (:) = log ( this % press_ref (:)) !$acc        enter data copyin(this%press_ref_log) !$omp target enter data map(to:this%press_ref_log) ! log scale of reference pressure this % press_ref_trop_log = log ( press_ref_trop ) ! Get index of gas (if present) for determining col_gas call create_idx_minor ( this % gas_names , gas_minor , identifier_minor , minor_gases_lower_red , this % idx_minor_lower ) call create_idx_minor ( this % gas_names , gas_minor , identifier_minor , minor_gases_upper_red , this % idx_minor_upper ) ! Get index of gas (if present) that has special treatment in density scaling call create_idx_minor_scaling ( this % gas_names , scaling_gas_lower_red , this % idx_minor_scaling_lower ) call create_idx_minor_scaling ( this % gas_names , scaling_gas_upper_red , this % idx_minor_scaling_upper ) !$acc        enter data copyin(this%idx_minor_lower, this%idx_minor_upper) !$omp target enter data map(to:this%idx_minor_lower, this%idx_minor_upper) !$acc        enter data copyin(this%idx_minor_scaling_lower, this%idx_minor_scaling_upper) !$omp target enter data map(to:this%idx_minor_scaling_lower, this%idx_minor_scaling_upper) ! create flavor list ! Reduce (remap) key_species list; checks that all key gases are present in incoming call create_key_species_reduce ( gas_names , this % gas_names , & key_species , key_species_red , key_species_present_init ) err_message = check_key_species_present_init ( gas_names , key_species_present_init ) if ( len_trim ( err_message ) /= 0 ) return ! create flavor list call create_flavor ( key_species_red , this % flavor ) ! create gpoint_flavor list call create_gpoint_flavor ( key_species_red , this % get_gpoint_bands (), this % flavor , this % gpoint_flavor ) !Copy-ins at end of subroutine ! minimum, maximum reference temperature, pressure -- assumes low-to-high ordering !   for T, high-to-low ordering for p this % temp_ref_min = this % temp_ref ( 1 ) this % temp_ref_max = this % temp_ref ( size ( this % temp_ref )) this % press_ref_min = this % press_ref ( size ( this % press_ref )) this % press_ref_max = this % press_ref ( 1 ) ! creates press_ref_log, temp_ref_delta this % press_ref_log_delta = ( log ( this % press_ref_min ) - log ( this % press_ref_max )) / ( size ( this % press_ref ) - 1 ) this % temp_ref_delta = ( this % temp_ref_max - this % temp_ref_min ) / ( size ( this % temp_ref ) - 1 ) ! Which species are key in one or more bands? !   this%flavor is an index into this%gas_names ! if ( allocated ( this % is_key )) deallocate ( this % is_key ) ! Shouldn't ever happen... allocate ( this % is_key ( this % get_ngas ())) this % is_key (:) = . False . do j = 1 , size ( this % flavor , 2 ) do i = 1 , size ( this % flavor , 1 ) ! extents should be 2 if ( this % flavor ( i , j ) /= 0 ) this % is_key ( this % flavor ( i , j )) = . true . end do end do !$acc        enter data copyin(this%flavor, this%gpoint_flavor, this%is_key) !$omp target enter data map(to:this%flavor, this%gpoint_flavor, this%is_key) end function init_abs_coeffs ! ---------------------------------------------------------------------------------------------------- function check_key_species_present_init ( gas_names , key_species_present_init ) result ( err_message ) logical , dimension (:), intent ( in ) :: key_species_present_init character ( len =* ), dimension (:), intent ( in ) :: gas_names character ( len = 128 ) :: err_message integer :: i err_message = '' do i = 1 , size ( key_species_present_init ) if (. not . key_species_present_init ( i )) & err_message = ' ' // trim ( gas_names ( i )) // trim ( err_message ) end do if ( len_trim ( err_message ) > 0 ) err_message = \"gas_optics: required gases\" // trim ( err_message ) // \" are not provided\" end function check_key_species_present_init !------------------------------------------------------------------------------------------ ! ! Ensure that every key gas required by the k-distribution is !    present in the gas concentration object ! function check_key_species_present ( this , gas_desc ) result ( error_msg ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this class ( ty_gas_concs ), intent ( in ) :: gas_desc character ( len = 128 ) :: error_msg ! Local variables character ( len = 32 ), dimension ( count ( this % is_key (:) )) :: key_gas_names integer :: igas ! -------------------------------------- error_msg = \"\" key_gas_names = pack ( this % gas_names , mask = this % is_key ) do igas = 1 , size ( key_gas_names ) ! Next line causes a compiler bug in gfortran 11.0.1 on Mac ARM ! Should replace gas_names with get_gas_names() and make gas_names private in ty_gas_concs if (. not . string_in_array ( key_gas_names ( igas ), gas_desc % gas_names )) & error_msg = ' ' // trim ( lower_case ( key_gas_names ( igas ))) // trim ( error_msg ) end do if ( len_trim ( error_msg ) > 0 ) error_msg = \"gas_optics: required gases\" // trim ( error_msg ) // \" are not provided\" end function check_key_species_present !-------------------------------------------------------------------------------------------------------------------- ! ! Inquiry functions ! !-------------------------------------------------------------------------------------------------------------------- ! !> return true if initialized for internal sources/longwave, false otherwise ! pure function source_is_internal ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this logical :: source_is_internal source_is_internal = allocated ( this % totplnk ) . and . allocated ( this % planck_frac ) end function source_is_internal !-------------------------------------------------------------------------------------------------------------------- ! !> return true if initialized for external sources/shortwave, false otherwise ! pure function source_is_external ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this logical :: source_is_external source_is_external = allocated ( this % solar_source ) end function source_is_external !-------------------------------------------------------------------------------------------------------------------- ! !> return the names of the gases known to the k-distributions ! pure function get_gases ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this character ( 32 ), dimension ( get_ngas ( this )) :: get_gases !! names of the gases known to the k-distributions get_gases = this % gas_names end function get_gases !-------------------------------------------------------------------------------------------------------------------- ! !> return the minimum pressure on the interpolation grids ! pure function get_press_min ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this real ( wp ) :: get_press_min !! minimum pressure for which the k-dsitribution is valid get_press_min = this % press_ref_min end function get_press_min !-------------------------------------------------------------------------------------------------------------------- ! !> return the maximum pressure on the interpolation grids ! pure function get_press_max ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this real ( wp ) :: get_press_max !! maximum pressure for which the k-dsitribution is valid get_press_max = this % press_ref_max end function get_press_max !-------------------------------------------------------------------------------------------------------------------- ! !> return the minimum temparature on the interpolation grids ! pure function get_temp_min ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this real ( wp ) :: get_temp_min !! minimum temperature for which the k-dsitribution is valid get_temp_min = this % temp_ref_min end function get_temp_min !-------------------------------------------------------------------------------------------------------------------- ! !> return the maximum temparature on the interpolation grids ! pure function get_temp_max ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this real ( wp ) :: get_temp_max !! maximum temperature for which the k-dsitribution is valid get_temp_max = this % temp_ref_max end function get_temp_max !-------------------------------------------------------------------------------------------------------------------- ! !> Utility function, provided for user convenience !> computes column amounts of dry air using hydrostatic equation ! function get_col_dry ( vmr_h2o , plev , latitude ) result ( col_dry ) ! input real ( wp ), dimension (:,:), intent ( in ) :: vmr_h2o ! volume mixing ratio of water vapor to dry air; (ncol,nlay) real ( wp ), dimension (:,:), intent ( in ) :: plev ! Layer boundary pressures [Pa] (ncol,nlay+1) real ( wp ), dimension (:), optional , & intent ( in ) :: latitude ! Latitude [degrees] (ncol) ! output real ( wp ), dimension ( size ( plev , dim = 1 ), size ( plev , dim = 2 ) - 1 ) :: col_dry ! Column dry amount (ncol,nlay) ! ------------------------------------------------ ! first and second term of Helmert formula real ( wp ), parameter :: helmert1 = 9.80665_wp real ( wp ), parameter :: helmert2 = 0.02586_wp ! local variables real ( wp ), dimension ( size ( plev , dim = 1 )) :: g0 ! (ncol) real ( wp ) :: delta_plev , m_air , fact integer :: ncol , nlev integer :: icol , ilev ! nlay = nlev-1 ! ------------------------------------------------ ncol = size ( plev , dim = 1 ) nlev = size ( plev , dim = 2 ) !$acc        data    create(g0) !$omp target data map(alloc:g0) if ( present ( latitude )) then ! A purely OpenACC implementation would probably compute g0 within the kernel below !$acc parallel loop !$omp target teams distribute parallel do simd do icol = 1 , ncol g0 ( icol ) = helmert1 - helmert2 * cos ( 2.0_wp * pi * latitude ( icol ) / 18 0.0_wp ) ! acceleration due to gravity [m/s&#94;2] end do else !$acc parallel loop !$omp target teams distribute parallel do simd do icol = 1 , ncol g0 ( icol ) = grav end do end if !$acc                parallel loop gang vector collapse(2) copyin(plev,vmr_h2o)  copyout(col_dry) !$omp target teams distribute parallel do simd collapse(2) map(to:plev,vmr_h2o) map(from:col_dry) do ilev = 1 , nlev - 1 do icol = 1 , ncol delta_plev = abs ( plev ( icol , ilev ) - plev ( icol , ilev + 1 )) ! Get average mass of moist air per mole of moist air fact = 1._wp / ( 1. + vmr_h2o ( icol , ilev )) m_air = ( m_dry + m_h2o * vmr_h2o ( icol , ilev )) * fact col_dry ( icol , ilev ) = 1 0._wp * delta_plev * avogad * fact / ( 100 0._wp * m_air * 10 0._wp * g0 ( icol )) end do end do !$acc end        data !$omp end target data end function get_col_dry !-------------------------------------------------------------------------------------------------------------------- ! !> Compute a transport angle that minimizes flux errors at surface and TOA based on empirical fits ! function compute_optimal_angles ( this , optical_props , optimal_angles ) result ( err_msg ) ! input class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this class ( ty_optical_props_arry ), intent ( in ) :: optical_props !! Optical properties real ( wp ), dimension (:,:), intent ( out ) :: optimal_angles !! Secant of optical transport angle character ( len = 128 ) :: err_msg !! Empty if successful !---------------------------- integer :: ncol , nlay , ngpt integer :: icol , ilay , igpt , bnd real ( wp ) :: t , trans_total #if defined _CRAYFTN && _RELEASE_MAJOR == 14 && _RELEASE_MINOR == 0 && _RELEASE_PATCHLEVEL == 3 # define CRAY_WORKAROUND #endif #ifdef CRAY_WORKAROUND integer , allocatable :: bands (:) #else integer :: bands ( optical_props % get_ngpt ()) #endif !---------------------------- ncol = optical_props % get_ncol () nlay = optical_props % get_nlay () ngpt = optical_props % get_ngpt () #ifdef CRAY_WORKAROUND allocate ( bands ( ngpt ) ) ! In order to work with CCE 14  (it is also better software) #endif err_msg = \"\" if (. not . this % gpoints_are_equal ( optical_props )) & err_msg = \"gas_optics%compute_optimal_angles: optical_props has different spectral discretization than gas_optics\" if (. not . extents_are ( optimal_angles , ncol , ngpt )) & err_msg = \"gas_optics%compute_optimal_angles: optimal_angles different dimension (ncol)\" if ( err_msg /= \"\" ) return do igpt = 1 , ngpt bands ( igpt ) = optical_props % convert_gpt2band ( igpt ) enddo ! ! column transmissivity ! !$acc parallel loop gang vector collapse(2) copyin(bands, optical_props, optical_props%tau) copyout(optimal_angles) !$omp target teams distribute parallel do simd collapse(2) map(to:bands, optical_props%tau) map(from:optimal_angles) do icol = 1 , ncol do igpt = 1 , ngpt ! ! Column transmissivity ! t = 0._wp trans_total = 0._wp do ilay = 1 , nlay t = t + optical_props % tau ( icol , ilay , igpt ) end do trans_total = exp ( - t ) ! ! Optimal transport angle is a linear fit to column transmissivity ! optimal_angles ( icol , igpt ) = this % optimal_angle_fit ( 1 , bands ( igpt )) * trans_total + & this % optimal_angle_fit ( 2 , bands ( igpt )) end do end do end function compute_optimal_angles !-------------------------------------------------------------------------------------------------------------------- ! ! Internal procedures ! !-------------------------------------------------------------------------------------------------------------------- pure function rewrite_key_species_pair ( key_species_pair ) ! (0,0) becomes (2,2) -- because absorption coefficients for these g-points will be 0. integer , dimension ( 2 ) :: rewrite_key_species_pair integer , dimension ( 2 ), intent ( in ) :: key_species_pair rewrite_key_species_pair = key_species_pair if ( all ( key_species_pair (:). eq .( / 0 , 0 / ))) then rewrite_key_species_pair (:) = ( / 2 , 2 / ) end if end function ! --------------------------------------------------------------------------------------- ! true is key_species_pair exists in key_species_list pure function key_species_pair_exists ( key_species_list , key_species_pair ) logical :: key_species_pair_exists integer , dimension (:,:), intent ( in ) :: key_species_list integer , dimension ( 2 ), intent ( in ) :: key_species_pair integer :: i do i = 1 , size ( key_species_list , dim = 2 ) if ( all ( key_species_list (:, i ). eq . key_species_pair (:))) then key_species_pair_exists = . true . return end if end do key_species_pair_exists = . false . end function key_species_pair_exists ! --------------------------------------------------------------------------------------- ! create flavor list -- !   an unordered array of extent (2,:) containing all possible pairs of key species !   used in either upper or lower atmos ! subroutine create_flavor ( key_species , flavor ) integer , dimension (:,:,:), intent ( in ) :: key_species integer , dimension (:,:), allocatable , intent ( out ) :: flavor integer , dimension ( 2 , size ( key_species , 3 ) * 2 ) :: key_species_list integer :: ibnd , iatm , i , iflavor ! prepare list of key_species i = 1 do ibnd = 1 , size ( key_species , 3 ) ! bands do iatm = 1 , size ( key_species , 2 ) ! upper/lower atmosphere key_species_list (:, i ) = key_species (:, iatm , ibnd ) i = i + 1 end do end do ! rewrite single key_species pairs do i = 1 , size ( key_species_list , 2 ) key_species_list (:, i ) = rewrite_key_species_pair ( key_species_list (:, i )) end do ! count unique key species pairs iflavor = 0 do i = 1 , size ( key_species_list , 2 ) if (. not . key_species_pair_exists ( key_species_list (:, 1 : i - 1 ), key_species_list (:, i ))) then iflavor = iflavor + 1 end if end do ! fill flavors allocate ( flavor ( 2 , iflavor )) iflavor = 0 do i = 1 , size ( key_species_list , 2 ) if (. not . key_species_pair_exists ( key_species_list (:, 1 : i - 1 ), key_species_list (:, i ))) then iflavor = iflavor + 1 flavor (:, iflavor ) = key_species_list (:, i ) end if end do end subroutine create_flavor ! --------------------------------------------------------------------------------------- ! ! create index list for extracting col_gas needed for minor gas optical depth calculations ! subroutine create_idx_minor ( gas_names , & gas_minor , identifier_minor , minor_gases_atm , idx_minor_atm ) character ( len =* ), dimension (:), intent ( in ) :: gas_names character ( len =* ), dimension (:), intent ( in ) :: & gas_minor , & identifier_minor character ( len =* ), dimension (:), intent ( in ) :: minor_gases_atm integer , dimension (:), allocatable , & intent ( out ) :: idx_minor_atm ! local integer :: imnr integer :: idx_mnr allocate ( idx_minor_atm ( size ( minor_gases_atm , dim = 1 ))) do imnr = 1 , size ( minor_gases_atm , dim = 1 ) ! loop over minor absorbers in each band ! Find identifying string for minor species in list of possible identifiers (e.g. h2o_slf) idx_mnr = string_loc_in_array ( minor_gases_atm ( imnr ), identifier_minor ) ! Find name of gas associated with minor species identifier (e.g. h2o) idx_minor_atm ( imnr ) = string_loc_in_array ( gas_minor ( idx_mnr ), gas_names ) enddo end subroutine create_idx_minor ! --------------------------------------------------------------------------------------- ! ! create index for special treatment in density scaling of minor gases ! subroutine create_idx_minor_scaling ( gas_names , & scaling_gas_atm , idx_minor_scaling_atm ) character ( len =* ), dimension (:), intent ( in ) :: gas_names character ( len =* ), dimension (:), intent ( in ) :: scaling_gas_atm integer , dimension (:), allocatable , & intent ( out ) :: idx_minor_scaling_atm ! local integer :: imnr allocate ( idx_minor_scaling_atm ( size ( scaling_gas_atm , dim = 1 ))) do imnr = 1 , size ( scaling_gas_atm , dim = 1 ) ! loop over minor absorbers in each band ! This will be -1 if there's no interacting gas idx_minor_scaling_atm ( imnr ) = string_loc_in_array ( scaling_gas_atm ( imnr ), gas_names ) enddo end subroutine create_idx_minor_scaling !-------------------------------------------------------------------------------------------------------------------- ! Is the object ready to use? ! pure function is_loaded ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this logical ( wl ) :: is_loaded is_loaded = allocated ( this % kmajor ) end function is_loaded !-------------------------------------------------------------------------------------------------------------------- ! ! Reset the object to un-initialized state ! subroutine finalize ( this ) class ( ty_gas_optics_rrtmgp ), intent ( inout ) :: this real ( wp ), dimension (:), allocatable :: press_ref , press_ref_log , temp_ref if ( this % is_loaded ()) then !$acc exit data delete(this%gas_names, this%vmr_ref, this%flavor) & !$acc           delete(this%gpoint_flavor, this%kmajor)  & !$acc           delete(this%minor_limits_gpt_lower) & !$acc           delete(this%minor_scales_with_density_lower, this%scale_by_complement_lower)  & !$acc           delete(this%idx_minor_lower, this%idx_minor_scaling_lower)  & !$acc           delete(this%kminor_start_lower, this%kminor_lower) & !$acc           delete(this%minor_limits_gpt_upper) & !$acc           delete(this%minor_scales_with_density_upper, this%scale_by_complement_upper)  & !$acc           delete(this%idx_minor_upper, this%idx_minor_scaling_upper)  & !$acc           delete(this%kminor_start_upper, this%kminor_upper) !$omp target exit data map(release:this%gas_names, this%vmr_ref, this%flavor) & !$omp map(release:this%gpoint_flavor, this%kmajor)  & !$omp map(release:this%minor_limits_gpt_lower) & !$omp map(release:this%minor_scales_with_density_lower, this%scale_by_complement_lower)  & !$omp map(release:this%idx_minor_lower, this%idx_minor_scaling_lower)  & !$omp map(release:this%kminor_start_lower, this%kminor_lower) & !$omp map(release:this%minor_limits_gpt_upper) & !$omp map(release:this%minor_scales_with_density_upper, this%scale_by_complement_upper)  & !$omp map(release:this%idx_minor_upper, this%idx_minor_scaling_upper)  & !$omp map(release:this%kminor_start_upper, this%kminor_upper) deallocate ( this % gas_names , this % vmr_ref , this % flavor , this % gpoint_flavor , this % kmajor ) deallocate ( this % minor_limits_gpt_lower , & this % minor_scales_with_density_lower , this % scale_by_complement_lower , & this % idx_minor_lower , this % idx_minor_scaling_lower , this % kminor_start_lower , this % kminor_lower ) deallocate ( this % minor_limits_gpt_upper , & this % minor_scales_with_density_upper , this % scale_by_complement_upper , & this % idx_minor_upper , this % idx_minor_scaling_upper , this % kminor_start_upper , this % kminor_upper ) if ( allocated ( this % krayl )) then !$acc exit data delete(this%krayl) !$omp target exit data map(release:this%krayl) deallocate ( this % krayl ) end if if ( allocated ( this % planck_frac )) then !$acc exit data delete(this%planck_frac, this%totplnk, this%optimal_angle_fit) !$omp target exit data map(release:this%planck_frac, this%totplnk, this%optimal_angle_fit) deallocate ( this % planck_frac , this % totplnk , this % optimal_angle_fit ) end if if ( allocated ( this % solar_source )) then !$acc exit data delete(this%solar_source, this%solar_source_quiet) & !$acc           delete(this%solar_source_facular,this%solar_source_sunspot) !$omp target exit data map(release:this%solar_source, this%solar_source_quiet) !$omp map(release:this%solar_source_facular,this%solar_source_sunspot) deallocate ( this % solar_source , & this % solar_source_quiet , this % solar_source_facular , this % solar_source_sunspot ) end if !$acc exit data delete(this) !$omp target exit data map(release:this) end if end subroutine finalize ! --------------------------------------------------------------------------------------- subroutine create_key_species_reduce ( gas_names , gas_names_red , & key_species , key_species_red , key_species_present_init ) character ( len =* ), & dimension (:), intent ( in ) :: gas_names character ( len =* ), & dimension (:), intent ( in ) :: gas_names_red integer , dimension (:,:,:), intent ( in ) :: key_species integer , dimension (:,:,:), allocatable , intent ( out ) :: key_species_red logical , dimension (:), allocatable , intent ( out ) :: key_species_present_init integer :: ip , ia , it , np , na , nt np = size ( key_species , dim = 1 ) na = size ( key_species , dim = 2 ) nt = size ( key_species , dim = 3 ) allocate ( key_species_red ( size ( key_species , dim = 1 ), & size ( key_species , dim = 2 ), & size ( key_species , dim = 3 ))) allocate ( key_species_present_init ( size ( gas_names ))) key_species_present_init = . true . do ip = 1 , np do ia = 1 , na do it = 1 , nt if ( key_species ( ip , ia , it ) . ne . 0 ) then key_species_red ( ip , ia , it ) = string_loc_in_array ( gas_names ( key_species ( ip , ia , it )), gas_names_red ) if ( key_species_red ( ip , ia , it ) . eq . - 1 ) key_species_present_init ( key_species ( ip , ia , it )) = . false . else key_species_red ( ip , ia , it ) = key_species ( ip , ia , it ) endif enddo end do enddo end subroutine create_key_species_reduce ! --------------------------------------------------------------------------------------- subroutine reduce_minor_arrays ( available_gases , & gas_minor , identifier_minor ,& kminor_atm , & minor_gases_atm , & minor_limits_gpt_atm , & minor_scales_with_density_atm , & scaling_gas_atm , & scale_by_complement_atm , & kminor_start_atm , & kminor_atm_red , & minor_gases_atm_red , & minor_limits_gpt_atm_red , & minor_scales_with_density_atm_red , & scaling_gas_atm_red , & scale_by_complement_atm_red , & kminor_start_atm_red ) class ( ty_gas_concs ), intent ( in ) :: available_gases real ( wp ), dimension (:,:,:), intent ( in ) :: kminor_atm character ( len =* ), dimension (:), intent ( in ) :: gas_minor , & identifier_minor character ( len =* ), dimension (:), intent ( in ) :: minor_gases_atm integer , dimension (:,:), intent ( in ) :: minor_limits_gpt_atm logical ( wl ), dimension (:), intent ( in ) :: minor_scales_with_density_atm character ( len =* ), dimension (:), intent ( in ) :: scaling_gas_atm logical ( wl ), dimension (:), intent ( in ) :: scale_by_complement_atm integer , dimension (:), intent ( in ) :: kminor_start_atm real ( wp ), dimension (:,:,:), allocatable , & intent ( out ) :: kminor_atm_red character ( len =* ), dimension (:), allocatable , & intent ( out ) :: minor_gases_atm_red integer , dimension (:,:), allocatable , & intent ( out ) :: minor_limits_gpt_atm_red logical ( wl ), dimension (:), allocatable , & intent ( out ) :: minor_scales_with_density_atm_red character ( len =* ), dimension (:), allocatable , & intent ( out ) :: scaling_gas_atm_red logical ( wl ), dimension (:), allocatable , intent ( out ) :: & scale_by_complement_atm_red integer , dimension (:), allocatable , intent ( out ) :: & kminor_start_atm_red ! Local variables integer :: i , j , ks integer :: idx_mnr , nm , tot_g , red_nm integer :: icnt , n_elim , ng logical , dimension (:), allocatable :: gas_is_present integer , dimension (:), allocatable :: indexes real ( wp ), dimension (:,:,:), allocatable :: kminor_atm_red_t nm = size ( minor_gases_atm ) tot_g = 0 allocate ( gas_is_present ( nm )) do i = 1 , size ( minor_gases_atm ) idx_mnr = string_loc_in_array ( minor_gases_atm ( i ), identifier_minor ) ! Next line causes a compiler bug in gfortran 11.0.1 on Mac ARM ! Should replace gas_names with get_gas_names() and make gas_names private in ty_gas_concs gas_is_present ( i ) = string_in_array ( gas_minor ( idx_mnr ), available_gases % gas_names ) if ( gas_is_present ( i )) then tot_g = tot_g + ( minor_limits_gpt_atm ( 2 , i ) - minor_limits_gpt_atm ( 1 , i ) + 1 ) endif enddo red_nm = count ( gas_is_present ) allocate ( minor_gases_atm_red ( red_nm ),& minor_scales_with_density_atm_red ( red_nm ), & scaling_gas_atm_red ( red_nm ), & scale_by_complement_atm_red ( red_nm ), & kminor_start_atm_red ( red_nm )) allocate ( minor_limits_gpt_atm_red ( 2 , red_nm )) allocate ( kminor_atm_red_t ( tot_g , size ( kminor_atm , 2 ), size ( kminor_atm , 3 ))) allocate ( kminor_atm_red ( size ( kminor_atm , 3 ), size ( kminor_atm , 2 ), tot_g )) if (( red_nm . eq . nm )) then ! Character data not allowed in OpenACC regions? minor_gases_atm_red = minor_gases_atm scaling_gas_atm_red = scaling_gas_atm kminor_atm_red_t = kminor_atm minor_limits_gpt_atm_red = minor_limits_gpt_atm minor_scales_with_density_atm_red = minor_scales_with_density_atm scale_by_complement_atm_red = scale_by_complement_atm kminor_start_atm_red = kminor_start_atm else allocate ( indexes ( red_nm )) ! Find the integer indexes for the gases that are present indexes = pack ([( i , i = 1 , size ( minor_gases_atm ))], mask = gas_is_present ) minor_gases_atm_red = minor_gases_atm ( indexes ) scaling_gas_atm_red = scaling_gas_atm ( indexes ) minor_scales_with_density_atm_red = & minor_scales_with_density_atm ( indexes ) scale_by_complement_atm_red = & scale_by_complement_atm ( indexes ) kminor_start_atm_red = kminor_start_atm ( indexes ) icnt = 0 n_elim = 0 do i = 1 , nm ng = minor_limits_gpt_atm ( 2 , i ) - minor_limits_gpt_atm ( 1 , i ) + 1 if ( gas_is_present ( i )) then icnt = icnt + 1 minor_limits_gpt_atm_red ( 1 : 2 , icnt ) = minor_limits_gpt_atm ( 1 : 2 , i ) kminor_start_atm_red ( icnt ) = kminor_start_atm ( i ) - n_elim ks = kminor_start_atm_red ( icnt ) do j = 1 , ng kminor_atm_red_t ( kminor_start_atm_red ( icnt ) + j - 1 ,:,:) = & kminor_atm ( kminor_start_atm ( i ) + j - 1 ,:,:) enddo else n_elim = n_elim + ng endif enddo endif kminor_atm_red = RESHAPE ( kminor_atm_red_t ,( / size ( kminor_atm_red_t , dim = 3 ), & size ( kminor_atm_red_t , dim = 2 ), size ( kminor_atm_red_t , dim = 1 ) / ), ORDER = ( / 3 , 2 , 1 / )) deallocate ( kminor_atm_red_t ) end subroutine reduce_minor_arrays ! --------------------------------------------------------------------------------------- ! returns flavor index; -1 if not found pure function key_species_pair2flavor ( flavor , key_species_pair ) integer :: key_species_pair2flavor integer , dimension (:,:), intent ( in ) :: flavor integer , dimension ( 2 ), intent ( in ) :: key_species_pair integer :: iflav do iflav = 1 , size ( flavor , 2 ) if ( all ( key_species_pair (:). eq . flavor (:, iflav ))) then key_species_pair2flavor = iflav return end if end do key_species_pair2flavor = - 1 end function key_species_pair2flavor ! --------------------------------------------------------------------------------------- ! ! create gpoint_flavor list !   a map pointing from each g-point to the corresponding entry in the \"flavor list\" ! subroutine create_gpoint_flavor ( key_species , gpt2band , flavor , gpoint_flavor ) integer , dimension (:,:,:), intent ( in ) :: key_species integer , dimension (:), intent ( in ) :: gpt2band integer , dimension (:,:), intent ( in ) :: flavor integer , dimension (:,:), intent ( out ), allocatable :: gpoint_flavor integer :: ngpt , igpt , iatm ngpt = size ( gpt2band ) allocate ( gpoint_flavor ( 2 , ngpt )) do igpt = 1 , ngpt do iatm = 1 , 2 gpoint_flavor ( iatm , igpt ) = key_species_pair2flavor ( & flavor , & rewrite_key_species_pair ( key_species (:, iatm , gpt2band ( igpt ))) & ) end do end do end subroutine create_gpoint_flavor !-------------------------------------------------------------------------------------------------------------------- ! ! Utility function to combine optical depths from gas absorption and Rayleigh scattering !   It may be more efficient to combine scattering and absorption optical depths in place !   rather than storing and processing two large arrays ! subroutine combine_abs_and_rayleigh ( tau , tau_rayleigh , optical_props ) real ( wp ), dimension (:,:,:), intent ( in ) :: tau real ( wp ), dimension (:,:,:), intent ( in ) :: tau_rayleigh class ( ty_optical_props_arry ), intent ( inout ) :: optical_props integer :: icol , ilay , igpt , ncol , nlay , ngpt , nmom real ( wp ) :: t ncol = size ( tau , 1 ) nlay = size ( tau , 2 ) ngpt = size ( tau , 3 ) select type ( optical_props ) type is ( ty_optical_props_1scl ) ! ! Extinction optical depth ! !$acc parallel loop gang vector collapse(3) default(present) !$omp target teams distribute parallel do simd collapse(3) do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol optical_props % tau ( icol , ilay , igpt ) = tau ( icol , ilay , igpt ) + & tau_rayleigh ( icol , ilay , igpt ) end do end do end do ! ! asymmetry factor or phase function moments ! type is ( ty_optical_props_2str ) ! ! Extinction optical depth and single scattering albedo ! !$acc parallel loop gang vector collapse(3) default(present) !$omp target teams distribute parallel do simd collapse(3) do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol t = tau ( icol , ilay , igpt ) + tau_rayleigh ( icol , ilay , igpt ) if ( t > 2._wp * tiny ( t )) then optical_props % ssa ( icol , ilay , igpt ) = tau_rayleigh ( icol , ilay , igpt ) / t else optical_props % ssa ( icol , ilay , igpt ) = 0._wp end if optical_props % tau ( icol , ilay , igpt ) = t end do end do end do call zero_array ( ncol , nlay , ngpt , optical_props % g ) type is ( ty_optical_props_nstr ) ! ! Extinction optical depth and single scattering albedo ! !$acc parallel loop gang vector collapse(3) default(present) !$omp target teams distribute parallel do simd collapse(3) do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol t = tau ( icol , ilay , igpt ) + tau_rayleigh ( icol , ilay , igpt ) if ( t > 2._wp * tiny ( t )) then optical_props % ssa ( icol , ilay , igpt ) = tau_rayleigh ( icol , ilay , igpt ) / t else optical_props % ssa ( icol , ilay , igpt ) = 0._wp end if optical_props % tau ( icol , ilay , igpt ) = t end do end do end do nmom = size ( optical_props % p , 1 ) call zero_array ( nmom , ncol , nlay , ngpt , optical_props % p ) if ( nmom >= 2 ) then !$acc parallel loop gang vector collapse(3) default(present) !$omp target teams distribute parallel do simd collapse(3) do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol optical_props % p ( 2 , icol , ilay , igpt ) = 0.1_wp end do end do end do end if end select end subroutine combine_abs_and_rayleigh !-------------------------------------------------------------------------------------------------------------------- ! Sizes of tables: pressure, temperate, eta (mixing fraction) !   Equivalent routines for the number of gases and flavors (get_ngas(), get_nflav()) are defined above because they're !   used in function defintions ! Table kmajor has dimensions (ngpt, neta, npres, ntemp) !-------------------------------------------------------------------------------------------------------------------- ! ! return extent of eta dimension ! pure function get_neta ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this integer :: get_neta get_neta = size ( this % kmajor , dim = 2 ) end function ! -------------------------------------------------------------------------------------- ! ! return the number of pressures in reference profile !   absorption coefficient table is one bigger since a pressure is repeated in upper/lower atmos ! pure function get_npres ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this integer :: get_npres get_npres = size ( this % kmajor , dim = 3 ) - 1 end function get_npres ! -------------------------------------------------------------------------------------- ! ! return the number of temperatures ! pure function get_ntemp ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this integer :: get_ntemp get_ntemp = size ( this % kmajor , dim = 1 ) end function get_ntemp ! -------------------------------------------------------------------------------------- ! ! return the number of temperatures for Planck function ! pure function get_nPlanckTemp ( this ) class ( ty_gas_optics_rrtmgp ), intent ( in ) :: this integer :: get_nPlanckTemp get_nPlanckTemp = size ( this % totplnk , dim = 1 ) ! dimensions are Planck-temperature, band end function get_nPlanckTemp end module mo_gas_optics_rrtmgp","tags":"","loc":"sourcefile/mo_gas_optics_rrtmgp.f90.html"}]}
\ No newline at end of file
diff --git a/reference/rrtmgp-kernels/index.html b/reference/rrtmgp-kernels/index.html
index 73dec18a3..e2db016ec 100644
--- a/reference/rrtmgp-kernels/index.html
+++ b/reference/rrtmgp-kernels/index.html
@@ -86,7 +86,7 @@ <h1>RRTMGP kernels</h1>
 <p>The listings below may not be exhaustive.
 To see the full listings use the links at the top of the page.
 There is a search bar in the top right.</p>
-<p>Return to the <a href="../../index.html">Documentation overview</a> or the <a href="../../reference.html">reference overview</a>.</p>
+<p>Return to the <a href="../../index.html">Documentation overview</a> or the <a href="../index.html">reference overview</a>.</p>
         </div>
         <div class="col-md-4">
 	  <div class="well">
diff --git a/reference/rrtmgp-kernels/lists/procedures.html b/reference/rrtmgp-kernels/lists/procedures.html
index 8d991f819..85a01287a 100644
--- a/reference/rrtmgp-kernels/lists/procedures.html
+++ b/reference/rrtmgp-kernels/lists/procedures.html
@@ -99,51 +99,51 @@ <h1>Procedures</h1>
 <g id="call~~graph~~CallGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 154)">
 <title>call~~graph~~CallGraph</title>
 <polygon fill="white" stroke="transparent" points="-4,4 -4,-154 239,-154 239,4 -4,4"/>
-<!-- proc~interpolation -->
+<!-- proc~compute_planck_source -->
 <g id="call~~graph~~CallGraph_node1" class="node">
+<title>proc~compute_planck_source</title>
+<g id="a_call~~graph~~CallGraph_node1"><a xlink:href=".././proc/compute_planck_source.html" xlink:title="compute_Planck_source">
+<polygon fill="#d9534f" stroke="#d9534f" points="142.5,-24 2.5,-24 2.5,0 142.5,0 142.5,-24"/>
+<text text-anchor="middle" x="72.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">compute_Planck_source</text>
+</a>
+</g>
+</g>
+<!-- proc~compute_tau_absorption -->
+<g id="call~~graph~~CallGraph_node2" class="node">
+<title>proc~compute_tau_absorption</title>
+<g id="a_call~~graph~~CallGraph_node2"><a xlink:href=".././proc/compute_tau_absorption.html" xlink:title="compute_tau_absorption">
+<polygon fill="#d9534f" stroke="#d9534f" points="145,-66 0,-66 0,-42 145,-42 145,-66"/>
+<text text-anchor="middle" x="72.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">compute_tau_absorption</text>
+</a>
+</g>
+</g>
+<!-- proc~interpolation -->
+<g id="call~~graph~~CallGraph_node3" class="node">
 <title>proc~interpolation</title>
-<g id="a_call~~graph~~CallGraph_node1"><a xlink:href=".././proc/interpolation.html" xlink:title="interpolation">
-<polygon fill="#d9534f" stroke="#d9534f" points="113,-24 32,-24 32,0 113,0 113,-24"/>
-<text text-anchor="middle" x="72.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">interpolation</text>
+<g id="a_call~~graph~~CallGraph_node3"><a xlink:href=".././proc/interpolation.html" xlink:title="interpolation">
+<polygon fill="#d9534f" stroke="#d9534f" points="113,-108 32,-108 32,-84 113,-84 113,-108"/>
+<text text-anchor="middle" x="72.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">interpolation</text>
 </a>
 </g>
 </g>
 <!-- float -->
 <g id="call~~graph~~CallGraph_node5" class="node">
 <title>float</title>
-<polygon fill="#777777" stroke="#777777" points="235,-24 181,-24 181,0 235,0 235,-24"/>
-<text text-anchor="middle" x="208" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">float</text>
+<polygon fill="#777777" stroke="#777777" points="235,-108 181,-108 181,-84 235,-84 235,-108"/>
+<text text-anchor="middle" x="208" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">float</text>
 </g>
 <!-- proc~interpolation&#45;&gt;float -->
 <g id="call~~graph~~CallGraph_edge1" class="edge">
 <title>proc~interpolation&#45;&gt;float</title>
-<path fill="none" stroke="#000000" d="M113.19,-12C131.44,-12 152.93,-12 170.74,-12"/>
-<polygon fill="#000000" stroke="#000000" points="170.75,-15.5 180.75,-12 170.75,-8.5 170.75,-15.5"/>
+<path fill="none" stroke="#000000" d="M113.19,-96C131.44,-96 152.93,-96 170.74,-96"/>
+<polygon fill="#000000" stroke="#000000" points="170.75,-99.5 180.75,-96 170.75,-92.5 170.75,-99.5"/>
 </g>
 <!-- proc~compute_tau_rayleigh -->
-<g id="call~~graph~~CallGraph_node2" class="node">
-<title>proc~compute_tau_rayleigh</title>
-<g id="a_call~~graph~~CallGraph_node2"><a xlink:href=".././proc/compute_tau_rayleigh.html" xlink:title="compute_tau_rayleigh">
-<polygon fill="#d9534f" stroke="#d9534f" points="138,-66 7,-66 7,-42 138,-42 138,-66"/>
-<text text-anchor="middle" x="72.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">compute_tau_rayleigh</text>
-</a>
-</g>
-</g>
-<!-- proc~compute_tau_absorption -->
-<g id="call~~graph~~CallGraph_node3" class="node">
-<title>proc~compute_tau_absorption</title>
-<g id="a_call~~graph~~CallGraph_node3"><a xlink:href=".././proc/compute_tau_absorption.html" xlink:title="compute_tau_absorption">
-<polygon fill="#d9534f" stroke="#d9534f" points="145,-108 0,-108 0,-84 145,-84 145,-108"/>
-<text text-anchor="middle" x="72.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">compute_tau_absorption</text>
-</a>
-</g>
-</g>
-<!-- proc~compute_planck_source -->
 <g id="call~~graph~~CallGraph_node4" class="node">
-<title>proc~compute_planck_source</title>
-<g id="a_call~~graph~~CallGraph_node4"><a xlink:href=".././proc/compute_planck_source.html" xlink:title="compute_Planck_source">
-<polygon fill="#d9534f" stroke="#d9534f" points="142.5,-150 2.5,-150 2.5,-126 142.5,-126 142.5,-150"/>
-<text text-anchor="middle" x="72.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">compute_Planck_source</text>
+<title>proc~compute_tau_rayleigh</title>
+<g id="a_call~~graph~~CallGraph_node4"><a xlink:href=".././proc/compute_tau_rayleigh.html" xlink:title="compute_tau_rayleigh">
+<polygon fill="#d9534f" stroke="#d9534f" points="138,-150 7,-150 7,-126 138,-126 138,-150"/>
+<text text-anchor="middle" x="72.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">compute_tau_rayleigh</text>
 </a>
 </g>
 </g>
diff --git a/reference/rte-fortran-interface/css/bootstrap.css b/reference/rte-fortran-interface/css/bootstrap.css
new file mode 100644
index 000000000..57846456c
--- /dev/null
+++ b/reference/rte-fortran-interface/css/bootstrap.css
@@ -0,0 +1,6013 @@
+/*!
+ * Bootstrap v3.3.1 (http://getbootstrap.com)
+ * Copyright 2011-2014 Twitter, Inc.
+ * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LICENSE)
+ */
+
+/*!
+ * Generated using the Bootstrap Customizer (http://getbootstrap.com/customize/?id=f8210fe4edf87d7604a7)
+ * Config saved to config.json and https://gist.github.com/f8210fe4edf87d7604a7
+ */
+/*! normalize.css v3.0.2 | MIT License | git.io/normalize */
+html {
+  font-family: sans-serif;
+  -ms-text-size-adjust: 100%;
+  -webkit-text-size-adjust: 100%;
+}
+body {
+  margin: 0;
+}
+article,
+aside,
+details,
+figcaption,
+figure,
+footer,
+header,
+hgroup,
+main,
+menu,
+nav,
+section,
+summary {
+  display: block;
+}
+audio,
+canvas,
+progress,
+video {
+  display: inline-block;
+  vertical-align: baseline;
+}
+audio:not([controls]) {
+  display: none;
+  height: 0;
+}
+[hidden],
+template {
+  display: none;
+}
+a {
+  background-color: transparent;
+}
+a:active,
+a:hover {
+  outline: 0;
+}
+abbr[title] {
+  border-bottom: 1px dotted;
+}
+b,
+strong {
+  font-weight: bold;
+}
+dfn {
+  font-style: italic;
+}
+h1 {
+  font-size: 2em;
+  margin: 0.67em 0;
+}
+mark {
+  background: #ff0;
+  color: #000;
+}
+small {
+  font-size: 80%;
+}
+sub,
+sup {
+  font-size: 75%;
+  line-height: 0;
+  position: relative;
+  vertical-align: baseline;
+}
+sup {
+  top: -0.5em;
+}
+sub {
+  bottom: -0.25em;
+}
+img {
+  border: 0;
+}
+svg:not(:root) {
+  overflow: hidden;
+}
+figure {
+  margin: 1em 40px;
+}
+hr {
+  -moz-box-sizing: content-box;
+  -webkit-box-sizing: content-box;
+          box-sizing: content-box;
+  height: 0;
+}
+pre {
+  overflow: auto;
+}
+code,
+kbd,
+pre,
+samp {
+  font-family: monospace, monospace;
+  font-size: 1em;
+}
+button,
+input,
+optgroup,
+select,
+textarea {
+  color: inherit;
+  font: inherit;
+  margin: 0;
+}
+button {
+  overflow: visible;
+}
+button,
+select {
+  text-transform: none;
+}
+button,
+html input[type="button"],
+input[type="reset"],
+input[type="submit"] {
+  -webkit-appearance: button;
+  cursor: pointer;
+}
+button[disabled],
+html input[disabled] {
+  cursor: default;
+}
+button::-moz-focus-inner,
+input::-moz-focus-inner {
+  border: 0;
+  padding: 0;
+}
+input {
+  line-height: normal;
+}
+input[type="checkbox"],
+input[type="radio"] {
+  -webkit-box-sizing: border-box;
+     -moz-box-sizing: border-box;
+          box-sizing: border-box;
+  padding: 0;
+}
+input[type="number"]::-webkit-inner-spin-button,
+input[type="number"]::-webkit-outer-spin-button {
+  height: auto;
+}
+input[type="search"] {
+  -webkit-appearance: textfield;
+  -moz-box-sizing: content-box;
+  -webkit-box-sizing: content-box;
+  box-sizing: content-box;
+}
+input[type="search"]::-webkit-search-cancel-button,
+input[type="search"]::-webkit-search-decoration {
+  -webkit-appearance: none;
+}
+fieldset {
+  border: 1px solid #c0c0c0;
+  margin: 0 2px;
+  padding: 0.35em 0.625em 0.75em;
+}
+legend {
+  border: 0;
+  padding: 0;
+}
+textarea {
+  overflow: auto;
+}
+optgroup {
+  font-weight: bold;
+}
+table {
+  border-collapse: collapse;
+  border-spacing: 0;
+}
+td,
+th {
+  padding: 0;
+}
+/*! Source: https://github.com/h5bp/html5-boilerplate/blob/master/src/css/main.css */
+@media print {
+  *,
+  *:before,
+  *:after {
+    background: transparent !important;
+    color: #000 !important;
+    -webkit-box-shadow: none !important;
+            box-shadow: none !important;
+    text-shadow: none !important;
+  }
+  a,
+  a:visited {
+    text-decoration: underline;
+  }
+  a[href]:after {
+    content: " (" attr(href) ")";
+  }
+  abbr[title]:after {
+    content: " (" attr(title) ")";
+  }
+  a[href^="#"]:after,
+  a[href^="javascript:"]:after {
+    content: "";
+  }
+  pre,
+  blockquote {
+    border: 1px solid #999;
+    page-break-inside: avoid;
+  }
+  thead {
+    display: table-header-group;
+  }
+  tr,
+  img {
+    page-break-inside: avoid;
+  }
+  img {
+    max-width: 100% !important;
+  }
+  p,
+  h2,
+  h3 {
+    orphans: 3;
+    widows: 3;
+  }
+  h2,
+  h3 {
+    page-break-after: avoid;
+  }
+  select {
+    background: #fff !important;
+  }
+  .navbar {
+    display: none;
+  }
+  .btn > .caret,
+  .dropup > .btn > .caret {
+    border-top-color: #000 !important;
+  }
+  .label {
+    border: 1px solid #000;
+  }
+  .table {
+    border-collapse: collapse !important;
+  }
+  .table td,
+  .table th {
+    background-color: #fff !important;
+  }
+  .table-bordered th,
+  .table-bordered td {
+    border: 1px solid #ddd !important;
+  }
+}
+@font-face {
+  font-family: 'Glyphicons Halflings';
+  src: url('../fonts/glyphicons-halflings-regular.eot');
+  src: url('../fonts/glyphicons-halflings-regular.eot?#iefix') format('embedded-opentype'), url('../fonts/glyphicons-halflings-regular.woff') format('woff'), url('../fonts/glyphicons-halflings-regular.ttf') format('truetype'), url('../fonts/glyphicons-halflings-regular.svg#glyphicons_halflingsregular') format('svg');
+}
+.glyphicon {
+  position: relative;
+  top: 1px;
+  display: inline-block;
+  font-family: 'Glyphicons Halflings';
+  font-style: normal;
+  font-weight: normal;
+  line-height: 1;
+  -webkit-font-smoothing: antialiased;
+  -moz-osx-font-smoothing: grayscale;
+}
+.glyphicon-asterisk:before {
+  content: "\2a";
+}
+.glyphicon-plus:before {
+  content: "\2b";
+}
+.glyphicon-euro:before,
+.glyphicon-eur:before {
+  content: "\20ac";
+}
+.glyphicon-minus:before {
+  content: "\2212";
+}
+.glyphicon-cloud:before {
+  content: "\2601";
+}
+.glyphicon-envelope:before {
+  content: "\2709";
+}
+.glyphicon-pencil:before {
+  content: "\270f";
+}
+.glyphicon-glass:before {
+  content: "\e001";
+}
+.glyphicon-music:before {
+  content: "\e002";
+}
+.glyphicon-search:before {
+  content: "\e003";
+}
+.glyphicon-heart:before {
+  content: "\e005";
+}
+.glyphicon-star:before {
+  content: "\e006";
+}
+.glyphicon-star-empty:before {
+  content: "\e007";
+}
+.glyphicon-user:before {
+  content: "\e008";
+}
+.glyphicon-film:before {
+  content: "\e009";
+}
+.glyphicon-th-large:before {
+  content: "\e010";
+}
+.glyphicon-th:before {
+  content: "\e011";
+}
+.glyphicon-th-list:before {
+  content: "\e012";
+}
+.glyphicon-ok:before {
+  content: "\e013";
+}
+.glyphicon-remove:before {
+  content: "\e014";
+}
+.glyphicon-zoom-in:before {
+  content: "\e015";
+}
+.glyphicon-zoom-out:before {
+  content: "\e016";
+}
+.glyphicon-off:before {
+  content: "\e017";
+}
+.glyphicon-signal:before {
+  content: "\e018";
+}
+.glyphicon-cog:before {
+  content: "\e019";
+}
+.glyphicon-trash:before {
+  content: "\e020";
+}
+.glyphicon-home:before {
+  content: "\e021";
+}
+.glyphicon-file:before {
+  content: "\e022";
+}
+.glyphicon-time:before {
+  content: "\e023";
+}
+.glyphicon-road:before {
+  content: "\e024";
+}
+.glyphicon-download-alt:before {
+  content: "\e025";
+}
+.glyphicon-download:before {
+  content: "\e026";
+}
+.glyphicon-upload:before {
+  content: "\e027";
+}
+.glyphicon-inbox:before {
+  content: "\e028";
+}
+.glyphicon-play-circle:before {
+  content: "\e029";
+}
+.glyphicon-repeat:before {
+  content: "\e030";
+}
+.glyphicon-refresh:before {
+  content: "\e031";
+}
+.glyphicon-list-alt:before {
+  content: "\e032";
+}
+.glyphicon-lock:before {
+  content: "\e033";
+}
+.glyphicon-flag:before {
+  content: "\e034";
+}
+.glyphicon-headphones:before {
+  content: "\e035";
+}
+.glyphicon-volume-off:before {
+  content: "\e036";
+}
+.glyphicon-volume-down:before {
+  content: "\e037";
+}
+.glyphicon-volume-up:before {
+  content: "\e038";
+}
+.glyphicon-qrcode:before {
+  content: "\e039";
+}
+.glyphicon-barcode:before {
+  content: "\e040";
+}
+.glyphicon-tag:before {
+  content: "\e041";
+}
+.glyphicon-tags:before {
+  content: "\e042";
+}
+.glyphicon-book:before {
+  content: "\e043";
+}
+.glyphicon-bookmark:before {
+  content: "\e044";
+}
+.glyphicon-print:before {
+  content: "\e045";
+}
+.glyphicon-camera:before {
+  content: "\e046";
+}
+.glyphicon-font:before {
+  content: "\e047";
+}
+.glyphicon-bold:before {
+  content: "\e048";
+}
+.glyphicon-italic:before {
+  content: "\e049";
+}
+.glyphicon-text-height:before {
+  content: "\e050";
+}
+.glyphicon-text-width:before {
+  content: "\e051";
+}
+.glyphicon-align-left:before {
+  content: "\e052";
+}
+.glyphicon-align-center:before {
+  content: "\e053";
+}
+.glyphicon-align-right:before {
+  content: "\e054";
+}
+.glyphicon-align-justify:before {
+  content: "\e055";
+}
+.glyphicon-list:before {
+  content: "\e056";
+}
+.glyphicon-indent-left:before {
+  content: "\e057";
+}
+.glyphicon-indent-right:before {
+  content: "\e058";
+}
+.glyphicon-facetime-video:before {
+  content: "\e059";
+}
+.glyphicon-picture:before {
+  content: "\e060";
+}
+.glyphicon-map-marker:before {
+  content: "\e062";
+}
+.glyphicon-adjust:before {
+  content: "\e063";
+}
+.glyphicon-tint:before {
+  content: "\e064";
+}
+.glyphicon-edit:before {
+  content: "\e065";
+}
+.glyphicon-share:before {
+  content: "\e066";
+}
+.glyphicon-check:before {
+  content: "\e067";
+}
+.glyphicon-move:before {
+  content: "\e068";
+}
+.glyphicon-step-backward:before {
+  content: "\e069";
+}
+.glyphicon-fast-backward:before {
+  content: "\e070";
+}
+.glyphicon-backward:before {
+  content: "\e071";
+}
+.glyphicon-play:before {
+  content: "\e072";
+}
+.glyphicon-pause:before {
+  content: "\e073";
+}
+.glyphicon-stop:before {
+  content: "\e074";
+}
+.glyphicon-forward:before {
+  content: "\e075";
+}
+.glyphicon-fast-forward:before {
+  content: "\e076";
+}
+.glyphicon-step-forward:before {
+  content: "\e077";
+}
+.glyphicon-eject:before {
+  content: "\e078";
+}
+.glyphicon-chevron-left:before {
+  content: "\e079";
+}
+.glyphicon-chevron-right:before {
+  content: "\e080";
+}
+.glyphicon-plus-sign:before {
+  content: "\e081";
+}
+.glyphicon-minus-sign:before {
+  content: "\e082";
+}
+.glyphicon-remove-sign:before {
+  content: "\e083";
+}
+.glyphicon-ok-sign:before {
+  content: "\e084";
+}
+.glyphicon-question-sign:before {
+  content: "\e085";
+}
+.glyphicon-info-sign:before {
+  content: "\e086";
+}
+.glyphicon-screenshot:before {
+  content: "\e087";
+}
+.glyphicon-remove-circle:before {
+  content: "\e088";
+}
+.glyphicon-ok-circle:before {
+  content: "\e089";
+}
+.glyphicon-ban-circle:before {
+  content: "\e090";
+}
+.glyphicon-arrow-left:before {
+  content: "\e091";
+}
+.glyphicon-arrow-right:before {
+  content: "\e092";
+}
+.glyphicon-arrow-up:before {
+  content: "\e093";
+}
+.glyphicon-arrow-down:before {
+  content: "\e094";
+}
+.glyphicon-share-alt:before {
+  content: "\e095";
+}
+.glyphicon-resize-full:before {
+  content: "\e096";
+}
+.glyphicon-resize-small:before {
+  content: "\e097";
+}
+.glyphicon-exclamation-sign:before {
+  content: "\e101";
+}
+.glyphicon-gift:before {
+  content: "\e102";
+}
+.glyphicon-leaf:before {
+  content: "\e103";
+}
+.glyphicon-fire:before {
+  content: "\e104";
+}
+.glyphicon-eye-open:before {
+  content: "\e105";
+}
+.glyphicon-eye-close:before {
+  content: "\e106";
+}
+.glyphicon-warning-sign:before {
+  content: "\e107";
+}
+.glyphicon-plane:before {
+  content: "\e108";
+}
+.glyphicon-calendar:before {
+  content: "\e109";
+}
+.glyphicon-random:before {
+  content: "\e110";
+}
+.glyphicon-comment:before {
+  content: "\e111";
+}
+.glyphicon-magnet:before {
+  content: "\e112";
+}
+.glyphicon-chevron-up:before {
+  content: "\e113";
+}
+.glyphicon-chevron-down:before {
+  content: "\e114";
+}
+.glyphicon-retweet:before {
+  content: "\e115";
+}
+.glyphicon-shopping-cart:before {
+  content: "\e116";
+}
+.glyphicon-folder-close:before {
+  content: "\e117";
+}
+.glyphicon-folder-open:before {
+  content: "\e118";
+}
+.glyphicon-resize-vertical:before {
+  content: "\e119";
+}
+.glyphicon-resize-horizontal:before {
+  content: "\e120";
+}
+.glyphicon-hdd:before {
+  content: "\e121";
+}
+.glyphicon-bullhorn:before {
+  content: "\e122";
+}
+.glyphicon-bell:before {
+  content: "\e123";
+}
+.glyphicon-certificate:before {
+  content: "\e124";
+}
+.glyphicon-thumbs-up:before {
+  content: "\e125";
+}
+.glyphicon-thumbs-down:before {
+  content: "\e126";
+}
+.glyphicon-hand-right:before {
+  content: "\e127";
+}
+.glyphicon-hand-left:before {
+  content: "\e128";
+}
+.glyphicon-hand-up:before {
+  content: "\e129";
+}
+.glyphicon-hand-down:before {
+  content: "\e130";
+}
+.glyphicon-circle-arrow-right:before {
+  content: "\e131";
+}
+.glyphicon-circle-arrow-left:before {
+  content: "\e132";
+}
+.glyphicon-circle-arrow-up:before {
+  content: "\e133";
+}
+.glyphicon-circle-arrow-down:before {
+  content: "\e134";
+}
+.glyphicon-globe:before {
+  content: "\e135";
+}
+.glyphicon-wrench:before {
+  content: "\e136";
+}
+.glyphicon-tasks:before {
+  content: "\e137";
+}
+.glyphicon-filter:before {
+  content: "\e138";
+}
+.glyphicon-briefcase:before {
+  content: "\e139";
+}
+.glyphicon-fullscreen:before {
+  content: "\e140";
+}
+.glyphicon-dashboard:before {
+  content: "\e141";
+}
+.glyphicon-paperclip:before {
+  content: "\e142";
+}
+.glyphicon-heart-empty:before {
+  content: "\e143";
+}
+.glyphicon-link:before {
+  content: "\e144";
+}
+.glyphicon-phone:before {
+  content: "\e145";
+}
+.glyphicon-pushpin:before {
+  content: "\e146";
+}
+.glyphicon-usd:before {
+  content: "\e148";
+}
+.glyphicon-gbp:before {
+  content: "\e149";
+}
+.glyphicon-sort:before {
+  content: "\e150";
+}
+.glyphicon-sort-by-alphabet:before {
+  content: "\e151";
+}
+.glyphicon-sort-by-alphabet-alt:before {
+  content: "\e152";
+}
+.glyphicon-sort-by-order:before {
+  content: "\e153";
+}
+.glyphicon-sort-by-order-alt:before {
+  content: "\e154";
+}
+.glyphicon-sort-by-attributes:before {
+  content: "\e155";
+}
+.glyphicon-sort-by-attributes-alt:before {
+  content: "\e156";
+}
+.glyphicon-unchecked:before {
+  content: "\e157";
+}
+.glyphicon-expand:before {
+  content: "\e158";
+}
+.glyphicon-collapse-down:before {
+  content: "\e159";
+}
+.glyphicon-collapse-up:before {
+  content: "\e160";
+}
+.glyphicon-log-in:before {
+  content: "\e161";
+}
+.glyphicon-flash:before {
+  content: "\e162";
+}
+.glyphicon-log-out:before {
+  content: "\e163";
+}
+.glyphicon-new-window:before {
+  content: "\e164";
+}
+.glyphicon-record:before {
+  content: "\e165";
+}
+.glyphicon-save:before {
+  content: "\e166";
+}
+.glyphicon-open:before {
+  content: "\e167";
+}
+.glyphicon-saved:before {
+  content: "\e168";
+}
+.glyphicon-import:before {
+  content: "\e169";
+}
+.glyphicon-export:before {
+  content: "\e170";
+}
+.glyphicon-send:before {
+  content: "\e171";
+}
+.glyphicon-floppy-disk:before {
+  content: "\e172";
+}
+.glyphicon-floppy-saved:before {
+  content: "\e173";
+}
+.glyphicon-floppy-remove:before {
+  content: "\e174";
+}
+.glyphicon-floppy-save:before {
+  content: "\e175";
+}
+.glyphicon-floppy-open:before {
+  content: "\e176";
+}
+.glyphicon-credit-card:before {
+  content: "\e177";
+}
+.glyphicon-transfer:before {
+  content: "\e178";
+}
+.glyphicon-cutlery:before {
+  content: "\e179";
+}
+.glyphicon-header:before {
+  content: "\e180";
+}
+.glyphicon-compressed:before {
+  content: "\e181";
+}
+.glyphicon-earphone:before {
+  content: "\e182";
+}
+.glyphicon-phone-alt:before {
+  content: "\e183";
+}
+.glyphicon-tower:before {
+  content: "\e184";
+}
+.glyphicon-stats:before {
+  content: "\e185";
+}
+.glyphicon-sd-video:before {
+  content: "\e186";
+}
+.glyphicon-hd-video:before {
+  content: "\e187";
+}
+.glyphicon-subtitles:before {
+  content: "\e188";
+}
+.glyphicon-sound-stereo:before {
+  content: "\e189";
+}
+.glyphicon-sound-dolby:before {
+  content: "\e190";
+}
+.glyphicon-sound-5-1:before {
+  content: "\e191";
+}
+.glyphicon-sound-6-1:before {
+  content: "\e192";
+}
+.glyphicon-sound-7-1:before {
+  content: "\e193";
+}
+.glyphicon-copyright-mark:before {
+  content: "\e194";
+}
+.glyphicon-registration-mark:before {
+  content: "\e195";
+}
+.glyphicon-cloud-download:before {
+  content: "\e197";
+}
+.glyphicon-cloud-upload:before {
+  content: "\e198";
+}
+.glyphicon-tree-conifer:before {
+  content: "\e199";
+}
+.glyphicon-tree-deciduous:before {
+  content: "\e200";
+}
+* {
+  -webkit-box-sizing: border-box;
+  -moz-box-sizing: border-box;
+  box-sizing: border-box;
+}
+*:before,
+*:after {
+  -webkit-box-sizing: border-box;
+  -moz-box-sizing: border-box;
+  box-sizing: border-box;
+}
+html {
+  font-size: 10px;
+  -webkit-tap-highlight-color: rgba(0, 0, 0, 0);
+}
+body {
+  font-family: "Helvetica Neue", Helvetica, Arial, sans-serif;
+  font-size: 14px;
+  line-height: 1.42857143;
+  color: #333333;
+  background-color: #ffffff;
+}
+input,
+button,
+select,
+textarea {
+  font-family: inherit;
+  font-size: inherit;
+  line-height: inherit;
+}
+a {
+  color: #337ab7;
+  text-decoration: none;
+}
+a:hover,
+a:focus {
+  color: #23527c;
+  text-decoration: underline;
+}
+a:focus {
+  outline: thin dotted;
+  outline: 5px auto -webkit-focus-ring-color;
+  outline-offset: -2px;
+}
+figure {
+  margin: 0;
+}
+img {
+  vertical-align: middle;
+}
+.img-responsive,
+.thumbnail > img,
+.thumbnail a > img {
+  display: block;
+  max-width: 100%;
+  height: auto;
+}
+.img-rounded {
+  border-radius: 6px;
+}
+.img-thumbnail {
+  padding: 4px;
+  line-height: 1.42857143;
+  background-color: #ffffff;
+  border: 1px solid #dddddd;
+  border-radius: 4px;
+  -webkit-transition: all 0.2s ease-in-out;
+  -o-transition: all 0.2s ease-in-out;
+  transition: all 0.2s ease-in-out;
+  display: inline-block;
+  max-width: 100%;
+  height: auto;
+}
+.img-circle {
+  border-radius: 50%;
+}
+hr {
+  margin-top: 20px;
+  margin-bottom: 20px;
+  border: 0;
+  border-top: 1px solid #eeeeee;
+}
+.sr-only {
+  position: absolute;
+  width: 1px;
+  height: 1px;
+  margin: -1px;
+  padding: 0;
+  overflow: hidden;
+  clip: rect(0, 0, 0, 0);
+  border: 0;
+}
+.sr-only-focusable:active,
+.sr-only-focusable:focus {
+  position: static;
+  width: auto;
+  height: auto;
+  margin: 0;
+  overflow: visible;
+  clip: auto;
+}
+h1,
+h2,
+h3,
+h4,
+h5,
+h6,
+.h1,
+.h2,
+.h3,
+.h4,
+.h5,
+.h6 {
+  font-family: inherit;
+  font-weight: 500;
+  line-height: 1.1;
+  color: inherit;
+}
+h1 small,
+h2 small,
+h3 small,
+h4 small,
+h5 small,
+h6 small,
+.h1 small,
+.h2 small,
+.h3 small,
+.h4 small,
+.h5 small,
+.h6 small,
+h1 .small,
+h2 .small,
+h3 .small,
+h4 .small,
+h5 .small,
+h6 .small,
+.h1 .small,
+.h2 .small,
+.h3 .small,
+.h4 .small,
+.h5 .small,
+.h6 .small {
+  font-weight: normal;
+  line-height: 1;
+  color: #777777;
+}
+h1,
+.h1,
+h2,
+.h2,
+h3,
+.h3 {
+  margin-top: 20px;
+  margin-bottom: 10px;
+}
+h1 small,
+.h1 small,
+h2 small,
+.h2 small,
+h3 small,
+.h3 small,
+h1 .small,
+.h1 .small,
+h2 .small,
+.h2 .small,
+h3 .small,
+.h3 .small {
+  font-size: 65%;
+}
+h4,
+.h4,
+h5,
+.h5,
+h6,
+.h6 {
+  margin-top: 10px;
+  margin-bottom: 10px;
+}
+h4 small,
+.h4 small,
+h5 small,
+.h5 small,
+h6 small,
+.h6 small,
+h4 .small,
+.h4 .small,
+h5 .small,
+.h5 .small,
+h6 .small,
+.h6 .small {
+  font-size: 75%;
+}
+h1,
+.h1 {
+  font-size: 36px;
+}
+h2,
+.h2 {
+  font-size: 30px;
+}
+h3,
+.h3 {
+  font-size: 24px;
+}
+h4,
+.h4 {
+  font-size: 18px;
+}
+h5,
+.h5 {
+  font-size: 14px;
+}
+h6,
+.h6 {
+  font-size: 12px;
+}
+p {
+  margin: 0 0 10px;
+}
+.lead {
+  margin-bottom: 20px;
+  font-size: 16px;
+  font-weight: 300;
+  line-height: 1.4;
+}
+@media (min-width: 768px) {
+  .lead {
+    font-size: 21px;
+  }
+}
+small,
+.small {
+  font-size: 85%;
+}
+mark,
+.mark {
+  background-color: #fcf8e3;
+  padding: .2em;
+}
+.text-left {
+  text-align: left;
+}
+.text-right {
+  text-align: right;
+}
+.text-center {
+  text-align: center;
+}
+.text-justify {
+  text-align: justify;
+}
+.text-nowrap {
+  white-space: nowrap;
+}
+.text-lowercase {
+  text-transform: lowercase;
+}
+.text-uppercase {
+  text-transform: uppercase;
+}
+.text-capitalize {
+  text-transform: capitalize;
+}
+.text-muted {
+  color: #777777;
+}
+.text-primary {
+  color: #337ab7;
+}
+a.text-primary:hover {
+  color: #286090;
+}
+.text-success {
+  color: #3c763d;
+}
+a.text-success:hover {
+  color: #2b542c;
+}
+.text-info {
+  color: #31708f;
+}
+a.text-info:hover {
+  color: #245269;
+}
+.text-warning {
+  color: #8a6d3b;
+}
+a.text-warning:hover {
+  color: #66512c;
+}
+.text-danger {
+  color: #a94442;
+}
+a.text-danger:hover {
+  color: #843534;
+}
+.bg-primary {
+  color: #fff;
+  background-color: #337ab7;
+}
+a.bg-primary:hover {
+  background-color: #286090;
+}
+.bg-success {
+  background-color: #dff0d8;
+}
+a.bg-success:hover {
+  background-color: #c1e2b3;
+}
+.bg-info {
+  background-color: #d9edf7;
+}
+a.bg-info:hover {
+  background-color: #afd9ee;
+}
+.bg-warning {
+  background-color: #fcf8e3;
+}
+a.bg-warning:hover {
+  background-color: #f7ecb5;
+}
+.bg-danger {
+  background-color: #f2dede;
+}
+a.bg-danger:hover {
+  background-color: #e4b9b9;
+}
+.page-header {
+  padding-bottom: 9px;
+  margin: 40px 0 20px;
+  border-bottom: 1px solid #eeeeee;
+}
+ul,
+ol {
+  margin-top: 0;
+  margin-bottom: 10px;
+}
+ul ul,
+ol ul,
+ul ol,
+ol ol {
+  margin-bottom: 0;
+}
+.list-unstyled {
+  padding-left: 0;
+  list-style: none;
+}
+.list-inline {
+  padding-left: 0;
+  list-style: none;
+  margin-left: -5px;
+}
+.list-inline > li {
+  display: inline-block;
+  padding-left: 5px;
+  padding-right: 5px;
+}
+dl {
+  margin-top: 0;
+  margin-bottom: 20px;
+}
+dt,
+dd {
+  line-height: 1.42857143;
+}
+dt {
+  font-weight: bold;
+}
+dd {
+  margin-left: 0;
+}
+@media (min-width: 768px) {
+  .dl-horizontal dt {
+    float: left;
+    width: 160px;
+    clear: left;
+    text-align: right;
+    overflow: hidden;
+    text-overflow: ellipsis;
+    white-space: nowrap;
+  }
+  .dl-horizontal dd {
+    margin-left: 180px;
+  }
+}
+abbr[title],
+abbr[data-original-title] {
+  cursor: help;
+  border-bottom: 1px dotted #777777;
+}
+.initialism {
+  font-size: 90%;
+  text-transform: uppercase;
+}
+blockquote {
+  padding: 10px 20px;
+  margin: 0 0 20px;
+  font-size: 17.5px;
+  border-left: 5px solid #eeeeee;
+}
+blockquote p:last-child,
+blockquote ul:last-child,
+blockquote ol:last-child {
+  margin-bottom: 0;
+}
+blockquote footer,
+blockquote small,
+blockquote .small {
+  display: block;
+  font-size: 80%;
+  line-height: 1.42857143;
+  color: #777777;
+}
+blockquote footer:before,
+blockquote small:before,
+blockquote .small:before {
+  content: '\2014 \00A0';
+}
+.blockquote-reverse,
+blockquote.pull-right {
+  padding-right: 15px;
+  padding-left: 0;
+  border-right: 5px solid #eeeeee;
+  border-left: 0;
+  text-align: right;
+}
+.blockquote-reverse footer:before,
+blockquote.pull-right footer:before,
+.blockquote-reverse small:before,
+blockquote.pull-right small:before,
+.blockquote-reverse .small:before,
+blockquote.pull-right .small:before {
+  content: '';
+}
+.blockquote-reverse footer:after,
+blockquote.pull-right footer:after,
+.blockquote-reverse small:after,
+blockquote.pull-right small:after,
+.blockquote-reverse .small:after,
+blockquote.pull-right .small:after {
+  content: '\00A0 \2014';
+}
+address {
+  margin-bottom: 20px;
+  font-style: normal;
+  line-height: 1.42857143;
+}
+code,
+kbd,
+pre,
+samp {
+  font-family: Menlo, Monaco, Consolas, "Courier New", monospace;
+}
+code {
+  padding: 2px 4px;
+  font-size: 90%;
+  color: #c7254e;
+  background-color: #f9f2f4;
+  border-radius: 4px;
+}
+kbd {
+  padding: 2px 4px;
+  font-size: 90%;
+  color: #ffffff;
+  background-color: #333333;
+  border-radius: 3px;
+  -webkit-box-shadow: inset 0 -1px 0 rgba(0, 0, 0, 0.25);
+          box-shadow: inset 0 -1px 0 rgba(0, 0, 0, 0.25);
+}
+kbd kbd {
+  padding: 0;
+  font-size: 100%;
+  font-weight: bold;
+  -webkit-box-shadow: none;
+          box-shadow: none;
+}
+pre {
+  display: block;
+  padding: 9.5px;
+  margin: 0 0 10px;
+  font-size: 13px;
+  line-height: 1.42857143;
+  word-break: break-all;
+  word-wrap: break-word;
+  color: #333333;
+  background-color: #f5f5f5;
+  border: 1px solid #cccccc;
+  border-radius: 4px;
+}
+pre code {
+  padding: 0;
+  font-size: inherit;
+  color: inherit;
+  white-space: pre-wrap;
+  background-color: transparent;
+  border-radius: 0;
+}
+.pre-scrollable {
+  max-height: 340px;
+  overflow-y: scroll;
+}
+.container {
+  margin-right: auto;
+  margin-left: auto;
+  padding-left: 15px;
+  padding-right: 15px;
+}
+@media (min-width: 768px) {
+  .container {
+    width: 750px;
+  }
+}
+@media (min-width: 992px) {
+  .container {
+    width: 970px;
+  }
+}
+@media (min-width: 1200px) {
+  .container {
+    width: 1170px;
+  }
+}
+.container-fluid {
+  margin-right: auto;
+  margin-left: auto;
+  padding-left: 15px;
+  padding-right: 15px;
+}
+.row {
+  margin-left: -15px;
+  margin-right: -15px;
+}
+.col-xs-1, .col-sm-1, .col-md-1, .col-lg-1, .col-xs-2, .col-sm-2, .col-md-2, .col-lg-2, .col-xs-3, .col-sm-3, .col-md-3, .col-lg-3, .col-xs-4, .col-sm-4, .col-md-4, .col-lg-4, .col-xs-5, .col-sm-5, .col-md-5, .col-lg-5, .col-xs-6, .col-sm-6, .col-md-6, .col-lg-6, .col-xs-7, .col-sm-7, .col-md-7, .col-lg-7, .col-xs-8, .col-sm-8, .col-md-8, .col-lg-8, .col-xs-9, .col-sm-9, .col-md-9, .col-lg-9, .col-xs-10, .col-sm-10, .col-md-10, .col-lg-10, .col-xs-11, .col-sm-11, .col-md-11, .col-lg-11, .col-xs-12, .col-sm-12, .col-md-12, .col-lg-12 {
+  position: relative;
+  min-height: 1px;
+  padding-left: 15px;
+  padding-right: 15px;
+}
+.col-xs-1, .col-xs-2, .col-xs-3, .col-xs-4, .col-xs-5, .col-xs-6, .col-xs-7, .col-xs-8, .col-xs-9, .col-xs-10, .col-xs-11, .col-xs-12 {
+  float: left;
+}
+.col-xs-12 {
+  width: 100%;
+}
+.col-xs-11 {
+  width: 91.66666667%;
+}
+.col-xs-10 {
+  width: 83.33333333%;
+}
+.col-xs-9 {
+  width: 75%;
+}
+.col-xs-8 {
+  width: 66.66666667%;
+}
+.col-xs-7 {
+  width: 58.33333333%;
+}
+.col-xs-6 {
+  width: 50%;
+}
+.col-xs-5 {
+  width: 41.66666667%;
+}
+.col-xs-4 {
+  width: 33.33333333%;
+}
+.col-xs-3 {
+  width: 25%;
+}
+.col-xs-2 {
+  width: 16.66666667%;
+}
+.col-xs-1 {
+  width: 8.33333333%;
+}
+.col-xs-pull-12 {
+  right: 100%;
+}
+.col-xs-pull-11 {
+  right: 91.66666667%;
+}
+.col-xs-pull-10 {
+  right: 83.33333333%;
+}
+.col-xs-pull-9 {
+  right: 75%;
+}
+.col-xs-pull-8 {
+  right: 66.66666667%;
+}
+.col-xs-pull-7 {
+  right: 58.33333333%;
+}
+.col-xs-pull-6 {
+  right: 50%;
+}
+.col-xs-pull-5 {
+  right: 41.66666667%;
+}
+.col-xs-pull-4 {
+  right: 33.33333333%;
+}
+.col-xs-pull-3 {
+  right: 25%;
+}
+.col-xs-pull-2 {
+  right: 16.66666667%;
+}
+.col-xs-pull-1 {
+  right: 8.33333333%;
+}
+.col-xs-pull-0 {
+  right: auto;
+}
+.col-xs-push-12 {
+  left: 100%;
+}
+.col-xs-push-11 {
+  left: 91.66666667%;
+}
+.col-xs-push-10 {
+  left: 83.33333333%;
+}
+.col-xs-push-9 {
+  left: 75%;
+}
+.col-xs-push-8 {
+  left: 66.66666667%;
+}
+.col-xs-push-7 {
+  left: 58.33333333%;
+}
+.col-xs-push-6 {
+  left: 50%;
+}
+.col-xs-push-5 {
+  left: 41.66666667%;
+}
+.col-xs-push-4 {
+  left: 33.33333333%;
+}
+.col-xs-push-3 {
+  left: 25%;
+}
+.col-xs-push-2 {
+  left: 16.66666667%;
+}
+.col-xs-push-1 {
+  left: 8.33333333%;
+}
+.col-xs-push-0 {
+  left: auto;
+}
+.col-xs-offset-12 {
+  margin-left: 100%;
+}
+.col-xs-offset-11 {
+  margin-left: 91.66666667%;
+}
+.col-xs-offset-10 {
+  margin-left: 83.33333333%;
+}
+.col-xs-offset-9 {
+  margin-left: 75%;
+}
+.col-xs-offset-8 {
+  margin-left: 66.66666667%;
+}
+.col-xs-offset-7 {
+  margin-left: 58.33333333%;
+}
+.col-xs-offset-6 {
+  margin-left: 50%;
+}
+.col-xs-offset-5 {
+  margin-left: 41.66666667%;
+}
+.col-xs-offset-4 {
+  margin-left: 33.33333333%;
+}
+.col-xs-offset-3 {
+  margin-left: 25%;
+}
+.col-xs-offset-2 {
+  margin-left: 16.66666667%;
+}
+.col-xs-offset-1 {
+  margin-left: 8.33333333%;
+}
+.col-xs-offset-0 {
+  margin-left: 0%;
+}
+@media (min-width: 768px) {
+  .col-sm-1, .col-sm-2, .col-sm-3, .col-sm-4, .col-sm-5, .col-sm-6, .col-sm-7, .col-sm-8, .col-sm-9, .col-sm-10, .col-sm-11, .col-sm-12 {
+    float: left;
+  }
+  .col-sm-12 {
+    width: 100%;
+  }
+  .col-sm-11 {
+    width: 91.66666667%;
+  }
+  .col-sm-10 {
+    width: 83.33333333%;
+  }
+  .col-sm-9 {
+    width: 75%;
+  }
+  .col-sm-8 {
+    width: 66.66666667%;
+  }
+  .col-sm-7 {
+    width: 58.33333333%;
+  }
+  .col-sm-6 {
+    width: 50%;
+  }
+  .col-sm-5 {
+    width: 41.66666667%;
+  }
+  .col-sm-4 {
+    width: 33.33333333%;
+  }
+  .col-sm-3 {
+    width: 25%;
+  }
+  .col-sm-2 {
+    width: 16.66666667%;
+  }
+  .col-sm-1 {
+    width: 8.33333333%;
+  }
+  .col-sm-pull-12 {
+    right: 100%;
+  }
+  .col-sm-pull-11 {
+    right: 91.66666667%;
+  }
+  .col-sm-pull-10 {
+    right: 83.33333333%;
+  }
+  .col-sm-pull-9 {
+    right: 75%;
+  }
+  .col-sm-pull-8 {
+    right: 66.66666667%;
+  }
+  .col-sm-pull-7 {
+    right: 58.33333333%;
+  }
+  .col-sm-pull-6 {
+    right: 50%;
+  }
+  .col-sm-pull-5 {
+    right: 41.66666667%;
+  }
+  .col-sm-pull-4 {
+    right: 33.33333333%;
+  }
+  .col-sm-pull-3 {
+    right: 25%;
+  }
+  .col-sm-pull-2 {
+    right: 16.66666667%;
+  }
+  .col-sm-pull-1 {
+    right: 8.33333333%;
+  }
+  .col-sm-pull-0 {
+    right: auto;
+  }
+  .col-sm-push-12 {
+    left: 100%;
+  }
+  .col-sm-push-11 {
+    left: 91.66666667%;
+  }
+  .col-sm-push-10 {
+    left: 83.33333333%;
+  }
+  .col-sm-push-9 {
+    left: 75%;
+  }
+  .col-sm-push-8 {
+    left: 66.66666667%;
+  }
+  .col-sm-push-7 {
+    left: 58.33333333%;
+  }
+  .col-sm-push-6 {
+    left: 50%;
+  }
+  .col-sm-push-5 {
+    left: 41.66666667%;
+  }
+  .col-sm-push-4 {
+    left: 33.33333333%;
+  }
+  .col-sm-push-3 {
+    left: 25%;
+  }
+  .col-sm-push-2 {
+    left: 16.66666667%;
+  }
+  .col-sm-push-1 {
+    left: 8.33333333%;
+  }
+  .col-sm-push-0 {
+    left: auto;
+  }
+  .col-sm-offset-12 {
+    margin-left: 100%;
+  }
+  .col-sm-offset-11 {
+    margin-left: 91.66666667%;
+  }
+  .col-sm-offset-10 {
+    margin-left: 83.33333333%;
+  }
+  .col-sm-offset-9 {
+    margin-left: 75%;
+  }
+  .col-sm-offset-8 {
+    margin-left: 66.66666667%;
+  }
+  .col-sm-offset-7 {
+    margin-left: 58.33333333%;
+  }
+  .col-sm-offset-6 {
+    margin-left: 50%;
+  }
+  .col-sm-offset-5 {
+    margin-left: 41.66666667%;
+  }
+  .col-sm-offset-4 {
+    margin-left: 33.33333333%;
+  }
+  .col-sm-offset-3 {
+    margin-left: 25%;
+  }
+  .col-sm-offset-2 {
+    margin-left: 16.66666667%;
+  }
+  .col-sm-offset-1 {
+    margin-left: 8.33333333%;
+  }
+  .col-sm-offset-0 {
+    margin-left: 0%;
+  }
+}
+@media (min-width: 992px) {
+  .col-md-1, .col-md-2, .col-md-3, .col-md-4, .col-md-5, .col-md-6, .col-md-7, .col-md-8, .col-md-9, .col-md-10, .col-md-11, .col-md-12 {
+    float: left;
+  }
+  .col-md-12 {
+    width: 100%;
+  }
+  .col-md-11 {
+    width: 91.66666667%;
+  }
+  .col-md-10 {
+    width: 83.33333333%;
+  }
+  .col-md-9 {
+    width: 75%;
+  }
+  .col-md-8 {
+    width: 66.66666667%;
+  }
+  .col-md-7 {
+    width: 58.33333333%;
+  }
+  .col-md-6 {
+    width: 50%;
+  }
+  .col-md-5 {
+    width: 41.66666667%;
+  }
+  .col-md-4 {
+    width: 33.33333333%;
+  }
+  .col-md-3 {
+    width: 25%;
+  }
+  .col-md-2 {
+    width: 16.66666667%;
+  }
+  .col-md-1 {
+    width: 8.33333333%;
+  }
+  .col-md-pull-12 {
+    right: 100%;
+  }
+  .col-md-pull-11 {
+    right: 91.66666667%;
+  }
+  .col-md-pull-10 {
+    right: 83.33333333%;
+  }
+  .col-md-pull-9 {
+    right: 75%;
+  }
+  .col-md-pull-8 {
+    right: 66.66666667%;
+  }
+  .col-md-pull-7 {
+    right: 58.33333333%;
+  }
+  .col-md-pull-6 {
+    right: 50%;
+  }
+  .col-md-pull-5 {
+    right: 41.66666667%;
+  }
+  .col-md-pull-4 {
+    right: 33.33333333%;
+  }
+  .col-md-pull-3 {
+    right: 25%;
+  }
+  .col-md-pull-2 {
+    right: 16.66666667%;
+  }
+  .col-md-pull-1 {
+    right: 8.33333333%;
+  }
+  .col-md-pull-0 {
+    right: auto;
+  }
+  .col-md-push-12 {
+    left: 100%;
+  }
+  .col-md-push-11 {
+    left: 91.66666667%;
+  }
+  .col-md-push-10 {
+    left: 83.33333333%;
+  }
+  .col-md-push-9 {
+    left: 75%;
+  }
+  .col-md-push-8 {
+    left: 66.66666667%;
+  }
+  .col-md-push-7 {
+    left: 58.33333333%;
+  }
+  .col-md-push-6 {
+    left: 50%;
+  }
+  .col-md-push-5 {
+    left: 41.66666667%;
+  }
+  .col-md-push-4 {
+    left: 33.33333333%;
+  }
+  .col-md-push-3 {
+    left: 25%;
+  }
+  .col-md-push-2 {
+    left: 16.66666667%;
+  }
+  .col-md-push-1 {
+    left: 8.33333333%;
+  }
+  .col-md-push-0 {
+    left: auto;
+  }
+  .col-md-offset-12 {
+    margin-left: 100%;
+  }
+  .col-md-offset-11 {
+    margin-left: 91.66666667%;
+  }
+  .col-md-offset-10 {
+    margin-left: 83.33333333%;
+  }
+  .col-md-offset-9 {
+    margin-left: 75%;
+  }
+  .col-md-offset-8 {
+    margin-left: 66.66666667%;
+  }
+  .col-md-offset-7 {
+    margin-left: 58.33333333%;
+  }
+  .col-md-offset-6 {
+    margin-left: 50%;
+  }
+  .col-md-offset-5 {
+    margin-left: 41.66666667%;
+  }
+  .col-md-offset-4 {
+    margin-left: 33.33333333%;
+  }
+  .col-md-offset-3 {
+    margin-left: 25%;
+  }
+  .col-md-offset-2 {
+    margin-left: 16.66666667%;
+  }
+  .col-md-offset-1 {
+    margin-left: 8.33333333%;
+  }
+  .col-md-offset-0 {
+    margin-left: 0%;
+  }
+}
+@media (min-width: 1200px) {
+  .col-lg-1, .col-lg-2, .col-lg-3, .col-lg-4, .col-lg-5, .col-lg-6, .col-lg-7, .col-lg-8, .col-lg-9, .col-lg-10, .col-lg-11, .col-lg-12 {
+    float: left;
+  }
+  .col-lg-12 {
+    width: 100%;
+  }
+  .col-lg-11 {
+    width: 91.66666667%;
+  }
+  .col-lg-10 {
+    width: 83.33333333%;
+  }
+  .col-lg-9 {
+    width: 75%;
+  }
+  .col-lg-8 {
+    width: 66.66666667%;
+  }
+  .col-lg-7 {
+    width: 58.33333333%;
+  }
+  .col-lg-6 {
+    width: 50%;
+  }
+  .col-lg-5 {
+    width: 41.66666667%;
+  }
+  .col-lg-4 {
+    width: 33.33333333%;
+  }
+  .col-lg-3 {
+    width: 25%;
+  }
+  .col-lg-2 {
+    width: 16.66666667%;
+  }
+  .col-lg-1 {
+    width: 8.33333333%;
+  }
+  .col-lg-pull-12 {
+    right: 100%;
+  }
+  .col-lg-pull-11 {
+    right: 91.66666667%;
+  }
+  .col-lg-pull-10 {
+    right: 83.33333333%;
+  }
+  .col-lg-pull-9 {
+    right: 75%;
+  }
+  .col-lg-pull-8 {
+    right: 66.66666667%;
+  }
+  .col-lg-pull-7 {
+    right: 58.33333333%;
+  }
+  .col-lg-pull-6 {
+    right: 50%;
+  }
+  .col-lg-pull-5 {
+    right: 41.66666667%;
+  }
+  .col-lg-pull-4 {
+    right: 33.33333333%;
+  }
+  .col-lg-pull-3 {
+    right: 25%;
+  }
+  .col-lg-pull-2 {
+    right: 16.66666667%;
+  }
+  .col-lg-pull-1 {
+    right: 8.33333333%;
+  }
+  .col-lg-pull-0 {
+    right: auto;
+  }
+  .col-lg-push-12 {
+    left: 100%;
+  }
+  .col-lg-push-11 {
+    left: 91.66666667%;
+  }
+  .col-lg-push-10 {
+    left: 83.33333333%;
+  }
+  .col-lg-push-9 {
+    left: 75%;
+  }
+  .col-lg-push-8 {
+    left: 66.66666667%;
+  }
+  .col-lg-push-7 {
+    left: 58.33333333%;
+  }
+  .col-lg-push-6 {
+    left: 50%;
+  }
+  .col-lg-push-5 {
+    left: 41.66666667%;
+  }
+  .col-lg-push-4 {
+    left: 33.33333333%;
+  }
+  .col-lg-push-3 {
+    left: 25%;
+  }
+  .col-lg-push-2 {
+    left: 16.66666667%;
+  }
+  .col-lg-push-1 {
+    left: 8.33333333%;
+  }
+  .col-lg-push-0 {
+    left: auto;
+  }
+  .col-lg-offset-12 {
+    margin-left: 100%;
+  }
+  .col-lg-offset-11 {
+    margin-left: 91.66666667%;
+  }
+  .col-lg-offset-10 {
+    margin-left: 83.33333333%;
+  }
+  .col-lg-offset-9 {
+    margin-left: 75%;
+  }
+  .col-lg-offset-8 {
+    margin-left: 66.66666667%;
+  }
+  .col-lg-offset-7 {
+    margin-left: 58.33333333%;
+  }
+  .col-lg-offset-6 {
+    margin-left: 50%;
+  }
+  .col-lg-offset-5 {
+    margin-left: 41.66666667%;
+  }
+  .col-lg-offset-4 {
+    margin-left: 33.33333333%;
+  }
+  .col-lg-offset-3 {
+    margin-left: 25%;
+  }
+  .col-lg-offset-2 {
+    margin-left: 16.66666667%;
+  }
+  .col-lg-offset-1 {
+    margin-left: 8.33333333%;
+  }
+  .col-lg-offset-0 {
+    margin-left: 0%;
+  }
+}
+table {
+  background-color: transparent;
+}
+caption {
+  padding-top: 8px;
+  padding-bottom: 8px;
+  color: #777777;
+  text-align: left;
+}
+th {
+  text-align: left;
+}
+.table {
+  width: 100%;
+  max-width: 100%;
+  margin-bottom: 20px;
+}
+.table > thead > tr > th,
+.table > tbody > tr > th,
+.table > tfoot > tr > th,
+.table > thead > tr > td,
+.table > tbody > tr > td,
+.table > tfoot > tr > td {
+  padding: 8px;
+  line-height: 1.42857143;
+  vertical-align: top;
+  border-top: 1px solid #dddddd;
+}
+.table > thead > tr > th {
+  vertical-align: bottom;
+  border-bottom: 2px solid #dddddd;
+}
+.table > caption + thead > tr:first-child > th,
+.table > colgroup + thead > tr:first-child > th,
+.table > thead:first-child > tr:first-child > th,
+.table > caption + thead > tr:first-child > td,
+.table > colgroup + thead > tr:first-child > td,
+.table > thead:first-child > tr:first-child > td {
+  border-top: 0;
+}
+.table > tbody + tbody {
+  border-top: 2px solid #dddddd;
+}
+.table .table {
+  background-color: #ffffff;
+}
+.table-condensed > thead > tr > th,
+.table-condensed > tbody > tr > th,
+.table-condensed > tfoot > tr > th,
+.table-condensed > thead > tr > td,
+.table-condensed > tbody > tr > td,
+.table-condensed > tfoot > tr > td {
+  padding: 5px;
+}
+.table-bordered {
+  border: 1px solid #dddddd;
+}
+.table-bordered > thead > tr > th,
+.table-bordered > tbody > tr > th,
+.table-bordered > tfoot > tr > th,
+.table-bordered > thead > tr > td,
+.table-bordered > tbody > tr > td,
+.table-bordered > tfoot > tr > td {
+  border: 1px solid #dddddd;
+}
+.table-bordered > thead > tr > th,
+.table-bordered > thead > tr > td {
+  border-bottom-width: 2px;
+}
+.table-striped > tbody > tr:nth-child(odd) {
+  background-color: #f9f9f9;
+}
+.table-hover > tbody > tr:hover {
+  background-color: #f5f5f5;
+}
+table col[class*="col-"] {
+  position: static;
+  float: none;
+  display: table-column;
+}
+table td[class*="col-"],
+table th[class*="col-"] {
+  position: static;
+  float: none;
+  display: table-cell;
+}
+.table > thead > tr > td.active,
+.table > tbody > tr > td.active,
+.table > tfoot > tr > td.active,
+.table > thead > tr > th.active,
+.table > tbody > tr > th.active,
+.table > tfoot > tr > th.active,
+.table > thead > tr.active > td,
+.table > tbody > tr.active > td,
+.table > tfoot > tr.active > td,
+.table > thead > tr.active > th,
+.table > tbody > tr.active > th,
+.table > tfoot > tr.active > th {
+  background-color: #f5f5f5;
+}
+.table-hover > tbody > tr > td.active:hover,
+.table-hover > tbody > tr > th.active:hover,
+.table-hover > tbody > tr.active:hover > td,
+.table-hover > tbody > tr:hover > .active,
+.table-hover > tbody > tr.active:hover > th {
+  background-color: #e8e8e8;
+}
+.table > thead > tr > td.success,
+.table > tbody > tr > td.success,
+.table > tfoot > tr > td.success,
+.table > thead > tr > th.success,
+.table > tbody > tr > th.success,
+.table > tfoot > tr > th.success,
+.table > thead > tr.success > td,
+.table > tbody > tr.success > td,
+.table > tfoot > tr.success > td,
+.table > thead > tr.success > th,
+.table > tbody > tr.success > th,
+.table > tfoot > tr.success > th {
+  background-color: #dff0d8;
+}
+.table-hover > tbody > tr > td.success:hover,
+.table-hover > tbody > tr > th.success:hover,
+.table-hover > tbody > tr.success:hover > td,
+.table-hover > tbody > tr:hover > .success,
+.table-hover > tbody > tr.success:hover > th {
+  background-color: #d0e9c6;
+}
+.table > thead > tr > td.info,
+.table > tbody > tr > td.info,
+.table > tfoot > tr > td.info,
+.table > thead > tr > th.info,
+.table > tbody > tr > th.info,
+.table > tfoot > tr > th.info,
+.table > thead > tr.info > td,
+.table > tbody > tr.info > td,
+.table > tfoot > tr.info > td,
+.table > thead > tr.info > th,
+.table > tbody > tr.info > th,
+.table > tfoot > tr.info > th {
+  background-color: #d9edf7;
+}
+.table-hover > tbody > tr > td.info:hover,
+.table-hover > tbody > tr > th.info:hover,
+.table-hover > tbody > tr.info:hover > td,
+.table-hover > tbody > tr:hover > .info,
+.table-hover > tbody > tr.info:hover > th {
+  background-color: #c4e3f3;
+}
+.table > thead > tr > td.warning,
+.table > tbody > tr > td.warning,
+.table > tfoot > tr > td.warning,
+.table > thead > tr > th.warning,
+.table > tbody > tr > th.warning,
+.table > tfoot > tr > th.warning,
+.table > thead > tr.warning > td,
+.table > tbody > tr.warning > td,
+.table > tfoot > tr.warning > td,
+.table > thead > tr.warning > th,
+.table > tbody > tr.warning > th,
+.table > tfoot > tr.warning > th {
+  background-color: #fcf8e3;
+}
+.table-hover > tbody > tr > td.warning:hover,
+.table-hover > tbody > tr > th.warning:hover,
+.table-hover > tbody > tr.warning:hover > td,
+.table-hover > tbody > tr:hover > .warning,
+.table-hover > tbody > tr.warning:hover > th {
+  background-color: #faf2cc;
+}
+.table > thead > tr > td.danger,
+.table > tbody > tr > td.danger,
+.table > tfoot > tr > td.danger,
+.table > thead > tr > th.danger,
+.table > tbody > tr > th.danger,
+.table > tfoot > tr > th.danger,
+.table > thead > tr.danger > td,
+.table > tbody > tr.danger > td,
+.table > tfoot > tr.danger > td,
+.table > thead > tr.danger > th,
+.table > tbody > tr.danger > th,
+.table > tfoot > tr.danger > th {
+  background-color: #f2dede;
+}
+.table-hover > tbody > tr > td.danger:hover,
+.table-hover > tbody > tr > th.danger:hover,
+.table-hover > tbody > tr.danger:hover > td,
+.table-hover > tbody > tr:hover > .danger,
+.table-hover > tbody > tr.danger:hover > th {
+  background-color: #ebcccc;
+}
+.table-responsive {
+  overflow-x: auto;
+  min-height: 0.01%;
+}
+@media screen and (max-width: 767px) {
+  .table-responsive {
+    width: 100%;
+    margin-bottom: 15px;
+    overflow-y: hidden;
+    -ms-overflow-style: -ms-autohiding-scrollbar;
+    border: 1px solid #dddddd;
+  }
+  .table-responsive > .table {
+    margin-bottom: 0;
+  }
+  .table-responsive > .table > thead > tr > th,
+  .table-responsive > .table > tbody > tr > th,
+  .table-responsive > .table > tfoot > tr > th,
+  .table-responsive > .table > thead > tr > td,
+  .table-responsive > .table > tbody > tr > td,
+  .table-responsive > .table > tfoot > tr > td {
+    white-space: nowrap;
+  }
+  .table-responsive > .table-bordered {
+    border: 0;
+  }
+  .table-responsive > .table-bordered > thead > tr > th:first-child,
+  .table-responsive > .table-bordered > tbody > tr > th:first-child,
+  .table-responsive > .table-bordered > tfoot > tr > th:first-child,
+  .table-responsive > .table-bordered > thead > tr > td:first-child,
+  .table-responsive > .table-bordered > tbody > tr > td:first-child,
+  .table-responsive > .table-bordered > tfoot > tr > td:first-child {
+    border-left: 0;
+  }
+  .table-responsive > .table-bordered > thead > tr > th:last-child,
+  .table-responsive > .table-bordered > tbody > tr > th:last-child,
+  .table-responsive > .table-bordered > tfoot > tr > th:last-child,
+  .table-responsive > .table-bordered > thead > tr > td:last-child,
+  .table-responsive > .table-bordered > tbody > tr > td:last-child,
+  .table-responsive > .table-bordered > tfoot > tr > td:last-child {
+    border-right: 0;
+  }
+  .table-responsive > .table-bordered > tbody > tr:last-child > th,
+  .table-responsive > .table-bordered > tfoot > tr:last-child > th,
+  .table-responsive > .table-bordered > tbody > tr:last-child > td,
+  .table-responsive > .table-bordered > tfoot > tr:last-child > td {
+    border-bottom: 0;
+  }
+}
+fieldset {
+  padding: 0;
+  margin: 0;
+  border: 0;
+  min-width: 0;
+}
+legend {
+  display: block;
+  width: 100%;
+  padding: 0;
+  margin-bottom: 20px;
+  font-size: 21px;
+  line-height: inherit;
+  color: #333333;
+  border: 0;
+  border-bottom: 1px solid #e5e5e5;
+}
+label {
+  display: inline-block;
+  max-width: 100%;
+  margin-bottom: 5px;
+  font-weight: bold;
+}
+input[type="search"] {
+  -webkit-box-sizing: border-box;
+  -moz-box-sizing: border-box;
+  box-sizing: border-box;
+}
+input[type="radio"],
+input[type="checkbox"] {
+  margin: 4px 0 0;
+  margin-top: 1px \9;
+  line-height: normal;
+}
+input[type="file"] {
+  display: block;
+}
+input[type="range"] {
+  display: block;
+  width: 100%;
+}
+select[multiple],
+select[size] {
+  height: auto;
+}
+input[type="file"]:focus,
+input[type="radio"]:focus,
+input[type="checkbox"]:focus {
+  outline: thin dotted;
+  outline: 5px auto -webkit-focus-ring-color;
+  outline-offset: -2px;
+}
+output {
+  display: block;
+  padding-top: 7px;
+  font-size: 14px;
+  line-height: 1.42857143;
+  color: #555555;
+}
+.form-control {
+  display: block;
+  width: 100%;
+  height: 34px;
+  padding: 6px 12px;
+  font-size: 14px;
+  line-height: 1.42857143;
+  color: #555555;
+  background-color: #ffffff;
+  background-image: none;
+  border: 1px solid #cccccc;
+  border-radius: 4px;
+  -webkit-box-shadow: inset 0 1px 1px rgba(0, 0, 0, 0.075);
+  box-shadow: inset 0 1px 1px rgba(0, 0, 0, 0.075);
+  -webkit-transition: border-color ease-in-out .15s, -webkit-box-shadow ease-in-out .15s;
+  -o-transition: border-color ease-in-out .15s, box-shadow ease-in-out .15s;
+  transition: border-color ease-in-out .15s, box-shadow ease-in-out .15s;
+}
+.form-control:focus {
+  border-color: #66afe9;
+  outline: 0;
+  -webkit-box-shadow: inset 0 1px 1px rgba(0,0,0,.075), 0 0 8px rgba(102, 175, 233, 0.6);
+  box-shadow: inset 0 1px 1px rgba(0,0,0,.075), 0 0 8px rgba(102, 175, 233, 0.6);
+}
+.form-control::-moz-placeholder {
+  color: #999999;
+  opacity: 1;
+}
+.form-control:-ms-input-placeholder {
+  color: #999999;
+}
+.form-control::-webkit-input-placeholder {
+  color: #999999;
+}
+.form-control[disabled],
+.form-control[readonly],
+fieldset[disabled] .form-control {
+  cursor: not-allowed;
+  background-color: #eeeeee;
+  opacity: 1;
+}
+textarea.form-control {
+  height: auto;
+}
+input[type="search"] {
+  -webkit-appearance: none;
+}
+@media screen and (-webkit-min-device-pixel-ratio: 0) {
+  input[type="date"],
+  input[type="time"],
+  input[type="datetime-local"],
+  input[type="month"] {
+    line-height: 34px;
+  }
+  input[type="date"].input-sm,
+  input[type="time"].input-sm,
+  input[type="datetime-local"].input-sm,
+  input[type="month"].input-sm {
+    line-height: 30px;
+  }
+  input[type="date"].input-lg,
+  input[type="time"].input-lg,
+  input[type="datetime-local"].input-lg,
+  input[type="month"].input-lg {
+    line-height: 46px;
+  }
+}
+.form-group {
+  margin-bottom: 15px;
+}
+.radio,
+.checkbox {
+  position: relative;
+  display: block;
+  margin-top: 10px;
+  margin-bottom: 10px;
+}
+.radio label,
+.checkbox label {
+  min-height: 20px;
+  padding-left: 20px;
+  margin-bottom: 0;
+  font-weight: normal;
+  cursor: pointer;
+}
+.radio input[type="radio"],
+.radio-inline input[type="radio"],
+.checkbox input[type="checkbox"],
+.checkbox-inline input[type="checkbox"] {
+  position: absolute;
+  margin-left: -20px;
+  margin-top: 4px \9;
+}
+.radio + .radio,
+.checkbox + .checkbox {
+  margin-top: -5px;
+}
+.radio-inline,
+.checkbox-inline {
+  display: inline-block;
+  padding-left: 20px;
+  margin-bottom: 0;
+  vertical-align: middle;
+  font-weight: normal;
+  cursor: pointer;
+}
+.radio-inline + .radio-inline,
+.checkbox-inline + .checkbox-inline {
+  margin-top: 0;
+  margin-left: 10px;
+}
+input[type="radio"][disabled],
+input[type="checkbox"][disabled],
+input[type="radio"].disabled,
+input[type="checkbox"].disabled,
+fieldset[disabled] input[type="radio"],
+fieldset[disabled] input[type="checkbox"] {
+  cursor: not-allowed;
+}
+.radio-inline.disabled,
+.checkbox-inline.disabled,
+fieldset[disabled] .radio-inline,
+fieldset[disabled] .checkbox-inline {
+  cursor: not-allowed;
+}
+.radio.disabled label,
+.checkbox.disabled label,
+fieldset[disabled] .radio label,
+fieldset[disabled] .checkbox label {
+  cursor: not-allowed;
+}
+.form-control-static {
+  padding-top: 7px;
+  padding-bottom: 7px;
+  margin-bottom: 0;
+}
+.form-control-static.input-lg,
+.form-control-static.input-sm {
+  padding-left: 0;
+  padding-right: 0;
+}
+.input-sm,
+.form-group-sm .form-control {
+  height: 30px;
+  padding: 5px 10px;
+  font-size: 12px;
+  line-height: 1.5;
+  border-radius: 3px;
+}
+select.input-sm,
+select.form-group-sm .form-control {
+  height: 30px;
+  line-height: 30px;
+}
+textarea.input-sm,
+textarea.form-group-sm .form-control,
+select[multiple].input-sm,
+select[multiple].form-group-sm .form-control {
+  height: auto;
+}
+.input-lg,
+.form-group-lg .form-control {
+  height: 46px;
+  padding: 10px 16px;
+  font-size: 18px;
+  line-height: 1.33;
+  border-radius: 6px;
+}
+select.input-lg,
+select.form-group-lg .form-control {
+  height: 46px;
+  line-height: 46px;
+}
+textarea.input-lg,
+textarea.form-group-lg .form-control,
+select[multiple].input-lg,
+select[multiple].form-group-lg .form-control {
+  height: auto;
+}
+.has-feedback {
+  position: relative;
+}
+.has-feedback .form-control {
+  padding-right: 42.5px;
+}
+.form-control-feedback {
+  position: absolute;
+  top: 0;
+  right: 0;
+  z-index: 2;
+  display: block;
+  width: 34px;
+  height: 34px;
+  line-height: 34px;
+  text-align: center;
+  pointer-events: none;
+}
+.input-lg + .form-control-feedback {
+  width: 46px;
+  height: 46px;
+  line-height: 46px;
+}
+.input-sm + .form-control-feedback {
+  width: 30px;
+  height: 30px;
+  line-height: 30px;
+}
+.has-success .help-block,
+.has-success .control-label,
+.has-success .radio,
+.has-success .checkbox,
+.has-success .radio-inline,
+.has-success .checkbox-inline,
+.has-success.radio label,
+.has-success.checkbox label,
+.has-success.radio-inline label,
+.has-success.checkbox-inline label {
+  color: #3c763d;
+}
+.has-success .form-control {
+  border-color: #3c763d;
+  -webkit-box-shadow: inset 0 1px 1px rgba(0, 0, 0, 0.075);
+  box-shadow: inset 0 1px 1px rgba(0, 0, 0, 0.075);
+}
+.has-success .form-control:focus {
+  border-color: #2b542c;
+  -webkit-box-shadow: inset 0 1px 1px rgba(0, 0, 0, 0.075), 0 0 6px #67b168;
+  box-shadow: inset 0 1px 1px rgba(0, 0, 0, 0.075), 0 0 6px #67b168;
+}
+.has-success .input-group-addon {
+  color: #3c763d;
+  border-color: #3c763d;
+  background-color: #dff0d8;
+}
+.has-success .form-control-feedback {
+  color: #3c763d;
+}
+.has-warning .help-block,
+.has-warning .control-label,
+.has-warning .radio,
+.has-warning .checkbox,
+.has-warning .radio-inline,
+.has-warning .checkbox-inline,
+.has-warning.radio label,
+.has-warning.checkbox label,
+.has-warning.radio-inline label,
+.has-warning.checkbox-inline label {
+  color: #8a6d3b;
+}
+.has-warning .form-control {
+  border-color: #8a6d3b;
+  -webkit-box-shadow: inset 0 1px 1px rgba(0, 0, 0, 0.075);
+  box-shadow: inset 0 1px 1px rgba(0, 0, 0, 0.075);
+}
+.has-warning .form-control:focus {
+  border-color: #66512c;
+  -webkit-box-shadow: inset 0 1px 1px rgba(0, 0, 0, 0.075), 0 0 6px #c0a16b;
+  box-shadow: inset 0 1px 1px rgba(0, 0, 0, 0.075), 0 0 6px #c0a16b;
+}
+.has-warning .input-group-addon {
+  color: #8a6d3b;
+  border-color: #8a6d3b;
+  background-color: #fcf8e3;
+}
+.has-warning .form-control-feedback {
+  color: #8a6d3b;
+}
+.has-error .help-block,
+.has-error .control-label,
+.has-error .radio,
+.has-error .checkbox,
+.has-error .radio-inline,
+.has-error .checkbox-inline,
+.has-error.radio label,
+.has-error.checkbox label,
+.has-error.radio-inline label,
+.has-error.checkbox-inline label {
+  color: #a94442;
+}
+.has-error .form-control {
+  border-color: #a94442;
+  -webkit-box-shadow: inset 0 1px 1px rgba(0, 0, 0, 0.075);
+  box-shadow: inset 0 1px 1px rgba(0, 0, 0, 0.075);
+}
+.has-error .form-control:focus {
+  border-color: #843534;
+  -webkit-box-shadow: inset 0 1px 1px rgba(0, 0, 0, 0.075), 0 0 6px #ce8483;
+  box-shadow: inset 0 1px 1px rgba(0, 0, 0, 0.075), 0 0 6px #ce8483;
+}
+.has-error .input-group-addon {
+  color: #a94442;
+  border-color: #a94442;
+  background-color: #f2dede;
+}
+.has-error .form-control-feedback {
+  color: #a94442;
+}
+.has-feedback label ~ .form-control-feedback {
+  top: 25px;
+}
+.has-feedback label.sr-only ~ .form-control-feedback {
+  top: 0;
+}
+.help-block {
+  display: block;
+  margin-top: 5px;
+  margin-bottom: 10px;
+  color: #737373;
+}
+@media (min-width: 768px) {
+  .form-inline .form-group {
+    display: inline-block;
+    margin-bottom: 0;
+    vertical-align: middle;
+  }
+  .form-inline .form-control {
+    display: inline-block;
+    width: auto;
+    vertical-align: middle;
+  }
+  .form-inline .form-control-static {
+    display: inline-block;
+  }
+  .form-inline .input-group {
+    display: inline-table;
+    vertical-align: middle;
+  }
+  .form-inline .input-group .input-group-addon,
+  .form-inline .input-group .input-group-btn,
+  .form-inline .input-group .form-control {
+    width: auto;
+  }
+  .form-inline .input-group > .form-control {
+    width: 100%;
+  }
+  .form-inline .control-label {
+    margin-bottom: 0;
+    vertical-align: middle;
+  }
+  .form-inline .radio,
+  .form-inline .checkbox {
+    display: inline-block;
+    margin-top: 0;
+    margin-bottom: 0;
+    vertical-align: middle;
+  }
+  .form-inline .radio label,
+  .form-inline .checkbox label {
+    padding-left: 0;
+  }
+  .form-inline .radio input[type="radio"],
+  .form-inline .checkbox input[type="checkbox"] {
+    position: relative;
+    margin-left: 0;
+  }
+  .form-inline .has-feedback .form-control-feedback {
+    top: 0;
+  }
+}
+.form-horizontal .radio,
+.form-horizontal .checkbox,
+.form-horizontal .radio-inline,
+.form-horizontal .checkbox-inline {
+  margin-top: 0;
+  margin-bottom: 0;
+  padding-top: 7px;
+}
+.form-horizontal .radio,
+.form-horizontal .checkbox {
+  min-height: 27px;
+}
+.form-horizontal .form-group {
+  margin-left: -15px;
+  margin-right: -15px;
+}
+@media (min-width: 768px) {
+  .form-horizontal .control-label {
+    text-align: right;
+    margin-bottom: 0;
+    padding-top: 7px;
+  }
+}
+.form-horizontal .has-feedback .form-control-feedback {
+  right: 15px;
+}
+@media (min-width: 768px) {
+  .form-horizontal .form-group-lg .control-label {
+    padding-top: 14.3px;
+  }
+}
+@media (min-width: 768px) {
+  .form-horizontal .form-group-sm .control-label {
+    padding-top: 6px;
+  }
+}
+.btn {
+  display: inline-block;
+  margin-bottom: 0;
+  font-weight: normal;
+  text-align: center;
+  vertical-align: middle;
+  -ms-touch-action: manipulation;
+      touch-action: manipulation;
+  cursor: pointer;
+  background-image: none;
+  border: 1px solid transparent;
+  white-space: nowrap;
+  padding: 6px 12px;
+  font-size: 14px;
+  line-height: 1.42857143;
+  border-radius: 4px;
+  -webkit-user-select: none;
+  -moz-user-select: none;
+  -ms-user-select: none;
+  user-select: none;
+}
+.btn:focus,
+.btn:active:focus,
+.btn.active:focus,
+.btn.focus,
+.btn:active.focus,
+.btn.active.focus {
+  outline: thin dotted;
+  outline: 5px auto -webkit-focus-ring-color;
+  outline-offset: -2px;
+}
+.btn:hover,
+.btn:focus,
+.btn.focus {
+  color: #333333;
+  text-decoration: none;
+}
+.btn:active,
+.btn.active {
+  outline: 0;
+  background-image: none;
+  -webkit-box-shadow: inset 0 3px 5px rgba(0, 0, 0, 0.125);
+  box-shadow: inset 0 3px 5px rgba(0, 0, 0, 0.125);
+}
+.btn.disabled,
+.btn[disabled],
+fieldset[disabled] .btn {
+  cursor: not-allowed;
+  pointer-events: none;
+  opacity: 0.65;
+  filter: alpha(opacity=65);
+  -webkit-box-shadow: none;
+  box-shadow: none;
+}
+.btn-default {
+  color: #333333;
+  background-color: #ffffff;
+  border-color: #cccccc;
+}
+.btn-default:hover,
+.btn-default:focus,
+.btn-default.focus,
+.btn-default:active,
+.btn-default.active,
+.open > .dropdown-toggle.btn-default {
+  color: #333333;
+  background-color: #e6e6e6;
+  border-color: #adadad;
+}
+.btn-default:active,
+.btn-default.active,
+.open > .dropdown-toggle.btn-default {
+  background-image: none;
+}
+.btn-default.disabled,
+.btn-default[disabled],
+fieldset[disabled] .btn-default,
+.btn-default.disabled:hover,
+.btn-default[disabled]:hover,
+fieldset[disabled] .btn-default:hover,
+.btn-default.disabled:focus,
+.btn-default[disabled]:focus,
+fieldset[disabled] .btn-default:focus,
+.btn-default.disabled.focus,
+.btn-default[disabled].focus,
+fieldset[disabled] .btn-default.focus,
+.btn-default.disabled:active,
+.btn-default[disabled]:active,
+fieldset[disabled] .btn-default:active,
+.btn-default.disabled.active,
+.btn-default[disabled].active,
+fieldset[disabled] .btn-default.active {
+  background-color: #ffffff;
+  border-color: #cccccc;
+}
+.btn-default .badge {
+  color: #ffffff;
+  background-color: #333333;
+}
+.btn-primary {
+  color: #ffffff;
+  background-color: #337ab7;
+  border-color: #2e6da4;
+}
+.btn-primary:hover,
+.btn-primary:focus,
+.btn-primary.focus,
+.btn-primary:active,
+.btn-primary.active,
+.open > .dropdown-toggle.btn-primary {
+  color: #ffffff;
+  background-color: #286090;
+  border-color: #204d74;
+}
+.btn-primary:active,
+.btn-primary.active,
+.open > .dropdown-toggle.btn-primary {
+  background-image: none;
+}
+.btn-primary.disabled,
+.btn-primary[disabled],
+fieldset[disabled] .btn-primary,
+.btn-primary.disabled:hover,
+.btn-primary[disabled]:hover,
+fieldset[disabled] .btn-primary:hover,
+.btn-primary.disabled:focus,
+.btn-primary[disabled]:focus,
+fieldset[disabled] .btn-primary:focus,
+.btn-primary.disabled.focus,
+.btn-primary[disabled].focus,
+fieldset[disabled] .btn-primary.focus,
+.btn-primary.disabled:active,
+.btn-primary[disabled]:active,
+fieldset[disabled] .btn-primary:active,
+.btn-primary.disabled.active,
+.btn-primary[disabled].active,
+fieldset[disabled] .btn-primary.active {
+  background-color: #337ab7;
+  border-color: #2e6da4;
+}
+.btn-primary .badge {
+  color: #337ab7;
+  background-color: #ffffff;
+}
+.btn-success {
+  color: #ffffff;
+  background-color: #5cb85c;
+  border-color: #4cae4c;
+}
+.btn-success:hover,
+.btn-success:focus,
+.btn-success.focus,
+.btn-success:active,
+.btn-success.active,
+.open > .dropdown-toggle.btn-success {
+  color: #ffffff;
+  background-color: #449d44;
+  border-color: #398439;
+}
+.btn-success:active,
+.btn-success.active,
+.open > .dropdown-toggle.btn-success {
+  background-image: none;
+}
+.btn-success.disabled,
+.btn-success[disabled],
+fieldset[disabled] .btn-success,
+.btn-success.disabled:hover,
+.btn-success[disabled]:hover,
+fieldset[disabled] .btn-success:hover,
+.btn-success.disabled:focus,
+.btn-success[disabled]:focus,
+fieldset[disabled] .btn-success:focus,
+.btn-success.disabled.focus,
+.btn-success[disabled].focus,
+fieldset[disabled] .btn-success.focus,
+.btn-success.disabled:active,
+.btn-success[disabled]:active,
+fieldset[disabled] .btn-success:active,
+.btn-success.disabled.active,
+.btn-success[disabled].active,
+fieldset[disabled] .btn-success.active {
+  background-color: #5cb85c;
+  border-color: #4cae4c;
+}
+.btn-success .badge {
+  color: #5cb85c;
+  background-color: #ffffff;
+}
+.btn-info {
+  color: #ffffff;
+  background-color: #5bc0de;
+  border-color: #46b8da;
+}
+.btn-info:hover,
+.btn-info:focus,
+.btn-info.focus,
+.btn-info:active,
+.btn-info.active,
+.open > .dropdown-toggle.btn-info {
+  color: #ffffff;
+  background-color: #31b0d5;
+  border-color: #269abc;
+}
+.btn-info:active,
+.btn-info.active,
+.open > .dropdown-toggle.btn-info {
+  background-image: none;
+}
+.btn-info.disabled,
+.btn-info[disabled],
+fieldset[disabled] .btn-info,
+.btn-info.disabled:hover,
+.btn-info[disabled]:hover,
+fieldset[disabled] .btn-info:hover,
+.btn-info.disabled:focus,
+.btn-info[disabled]:focus,
+fieldset[disabled] .btn-info:focus,
+.btn-info.disabled.focus,
+.btn-info[disabled].focus,
+fieldset[disabled] .btn-info.focus,
+.btn-info.disabled:active,
+.btn-info[disabled]:active,
+fieldset[disabled] .btn-info:active,
+.btn-info.disabled.active,
+.btn-info[disabled].active,
+fieldset[disabled] .btn-info.active {
+  background-color: #5bc0de;
+  border-color: #46b8da;
+}
+.btn-info .badge {
+  color: #5bc0de;
+  background-color: #ffffff;
+}
+.btn-warning {
+  color: #ffffff;
+  background-color: #f0ad4e;
+  border-color: #eea236;
+}
+.btn-warning:hover,
+.btn-warning:focus,
+.btn-warning.focus,
+.btn-warning:active,
+.btn-warning.active,
+.open > .dropdown-toggle.btn-warning {
+  color: #ffffff;
+  background-color: #ec971f;
+  border-color: #d58512;
+}
+.btn-warning:active,
+.btn-warning.active,
+.open > .dropdown-toggle.btn-warning {
+  background-image: none;
+}
+.btn-warning.disabled,
+.btn-warning[disabled],
+fieldset[disabled] .btn-warning,
+.btn-warning.disabled:hover,
+.btn-warning[disabled]:hover,
+fieldset[disabled] .btn-warning:hover,
+.btn-warning.disabled:focus,
+.btn-warning[disabled]:focus,
+fieldset[disabled] .btn-warning:focus,
+.btn-warning.disabled.focus,
+.btn-warning[disabled].focus,
+fieldset[disabled] .btn-warning.focus,
+.btn-warning.disabled:active,
+.btn-warning[disabled]:active,
+fieldset[disabled] .btn-warning:active,
+.btn-warning.disabled.active,
+.btn-warning[disabled].active,
+fieldset[disabled] .btn-warning.active {
+  background-color: #f0ad4e;
+  border-color: #eea236;
+}
+.btn-warning .badge {
+  color: #f0ad4e;
+  background-color: #ffffff;
+}
+.btn-danger {
+  color: #ffffff;
+  background-color: #d9534f;
+  border-color: #d43f3a;
+}
+.btn-danger:hover,
+.btn-danger:focus,
+.btn-danger.focus,
+.btn-danger:active,
+.btn-danger.active,
+.open > .dropdown-toggle.btn-danger {
+  color: #ffffff;
+  background-color: #c9302c;
+  border-color: #ac2925;
+}
+.btn-danger:active,
+.btn-danger.active,
+.open > .dropdown-toggle.btn-danger {
+  background-image: none;
+}
+.btn-danger.disabled,
+.btn-danger[disabled],
+fieldset[disabled] .btn-danger,
+.btn-danger.disabled:hover,
+.btn-danger[disabled]:hover,
+fieldset[disabled] .btn-danger:hover,
+.btn-danger.disabled:focus,
+.btn-danger[disabled]:focus,
+fieldset[disabled] .btn-danger:focus,
+.btn-danger.disabled.focus,
+.btn-danger[disabled].focus,
+fieldset[disabled] .btn-danger.focus,
+.btn-danger.disabled:active,
+.btn-danger[disabled]:active,
+fieldset[disabled] .btn-danger:active,
+.btn-danger.disabled.active,
+.btn-danger[disabled].active,
+fieldset[disabled] .btn-danger.active {
+  background-color: #d9534f;
+  border-color: #d43f3a;
+}
+.btn-danger .badge {
+  color: #d9534f;
+  background-color: #ffffff;
+}
+.btn-link {
+  color: #337ab7;
+  font-weight: normal;
+  border-radius: 0;
+}
+.btn-link,
+.btn-link:active,
+.btn-link.active,
+.btn-link[disabled],
+fieldset[disabled] .btn-link {
+  background-color: transparent;
+  -webkit-box-shadow: none;
+  box-shadow: none;
+}
+.btn-link,
+.btn-link:hover,
+.btn-link:focus,
+.btn-link:active {
+  border-color: transparent;
+}
+.btn-link:hover,
+.btn-link:focus {
+  color: #23527c;
+  text-decoration: underline;
+  background-color: transparent;
+}
+.btn-link[disabled]:hover,
+fieldset[disabled] .btn-link:hover,
+.btn-link[disabled]:focus,
+fieldset[disabled] .btn-link:focus {
+  color: #777777;
+  text-decoration: none;
+}
+.btn-lg,
+.btn-group-lg > .btn {
+  padding: 10px 16px;
+  font-size: 18px;
+  line-height: 1.33;
+  border-radius: 6px;
+}
+.btn-sm,
+.btn-group-sm > .btn {
+  padding: 5px 10px;
+  font-size: 12px;
+  line-height: 1.5;
+  border-radius: 3px;
+}
+.btn-xs,
+.btn-group-xs > .btn {
+  padding: 1px 5px;
+  font-size: 12px;
+  line-height: 1.5;
+  border-radius: 3px;
+}
+.btn-block {
+  display: block;
+  width: 100%;
+}
+.btn-block + .btn-block {
+  margin-top: 5px;
+}
+input[type="submit"].btn-block,
+input[type="reset"].btn-block,
+input[type="button"].btn-block {
+  width: 100%;
+}
+.fade {
+  opacity: 0;
+  -webkit-transition: opacity 0.15s linear;
+  -o-transition: opacity 0.15s linear;
+  transition: opacity 0.15s linear;
+}
+.fade.in {
+  opacity: 1;
+}
+.collapse {
+  display: none;
+  visibility: hidden;
+}
+.collapse.in {
+  display: block;
+  visibility: visible;
+}
+tr.collapse.in {
+  display: table-row;
+}
+tbody.collapse.in {
+  display: table-row-group;
+}
+.collapsing {
+  position: relative;
+  height: 0;
+  overflow: hidden;
+  -webkit-transition-property: height, visibility;
+  -o-transition-property: height, visibility;
+     transition-property: height, visibility;
+  -webkit-transition-duration: 0.35s;
+  -o-transition-duration: 0.35s;
+     transition-duration: 0.35s;
+  -webkit-transition-timing-function: ease;
+  -o-transition-timing-function: ease;
+     transition-timing-function: ease;
+}
+.caret {
+  display: inline-block;
+  width: 0;
+  height: 0;
+  margin-left: 2px;
+  vertical-align: middle;
+  border-top: 4px solid;
+  border-right: 4px solid transparent;
+  border-left: 4px solid transparent;
+}
+.dropdown {
+  position: relative;
+}
+.dropdown-toggle:focus {
+  outline: 0;
+}
+.dropdown-menu {
+  position: absolute;
+  top: 100%;
+  left: 0;
+  z-index: 1000;
+  display: none;
+  float: left;
+  min-width: 160px;
+  padding: 5px 0;
+  margin: 2px 0 0;
+  list-style: none;
+  font-size: 14px;
+  text-align: left;
+  background-color: #ffffff;
+  border: 1px solid #cccccc;
+  border: 1px solid rgba(0, 0, 0, 0.15);
+  border-radius: 4px;
+  -webkit-box-shadow: 0 6px 12px rgba(0, 0, 0, 0.175);
+  box-shadow: 0 6px 12px rgba(0, 0, 0, 0.175);
+  -webkit-background-clip: padding-box;
+          background-clip: padding-box;
+}
+.dropdown-menu.pull-right {
+  right: 0;
+  left: auto;
+}
+.dropdown-menu .divider {
+  height: 1px;
+  margin: 9px 0;
+  overflow: hidden;
+  background-color: #e5e5e5;
+}
+.dropdown-menu > li > a {
+  display: block;
+  padding: 3px 20px;
+  clear: both;
+  font-weight: normal;
+  line-height: 1.42857143;
+  color: #333333;
+  white-space: nowrap;
+}
+.dropdown-menu > li > a:hover,
+.dropdown-menu > li > a:focus {
+  text-decoration: none;
+  color: #262626;
+  background-color: #f5f5f5;
+}
+.dropdown-menu > .active > a,
+.dropdown-menu > .active > a:hover,
+.dropdown-menu > .active > a:focus {
+  color: #ffffff;
+  text-decoration: none;
+  outline: 0;
+  background-color: #337ab7;
+}
+.dropdown-menu > .disabled > a,
+.dropdown-menu > .disabled > a:hover,
+.dropdown-menu > .disabled > a:focus {
+  color: #777777;
+}
+.dropdown-menu > .disabled > a:hover,
+.dropdown-menu > .disabled > a:focus {
+  text-decoration: none;
+  background-color: transparent;
+  background-image: none;
+  filter: progid:DXImageTransform.Microsoft.gradient(enabled = false);
+  cursor: not-allowed;
+}
+.open > .dropdown-menu {
+  display: block;
+}
+.open > a {
+  outline: 0;
+}
+.dropdown-menu-right {
+  left: auto;
+  right: 0;
+}
+.dropdown-menu-left {
+  left: 0;
+  right: auto;
+}
+.dropdown-header {
+  display: block;
+  padding: 3px 20px;
+  font-size: 12px;
+  line-height: 1.42857143;
+  color: #777777;
+  white-space: nowrap;
+}
+.dropdown-backdrop {
+  position: fixed;
+  left: 0;
+  right: 0;
+  bottom: 0;
+  top: 0;
+  z-index: 990;
+}
+.pull-right > .dropdown-menu {
+  right: 0;
+  left: auto;
+}
+.dropup .caret,
+.navbar-fixed-bottom .dropdown .caret {
+  border-top: 0;
+  border-bottom: 4px solid;
+  content: "";
+}
+.dropup .dropdown-menu,
+.navbar-fixed-bottom .dropdown .dropdown-menu {
+  top: auto;
+  bottom: 100%;
+  margin-bottom: 1px;
+}
+@media (min-width: 768px) {
+  .navbar-right .dropdown-menu {
+    left: auto;
+    right: 0;
+  }
+  .navbar-right .dropdown-menu-left {
+    left: 0;
+    right: auto;
+  }
+}
+.btn-group,
+.btn-group-vertical {
+  position: relative;
+  display: inline-block;
+  vertical-align: middle;
+}
+.btn-group > .btn,
+.btn-group-vertical > .btn {
+  position: relative;
+  float: left;
+}
+.btn-group > .btn:hover,
+.btn-group-vertical > .btn:hover,
+.btn-group > .btn:focus,
+.btn-group-vertical > .btn:focus,
+.btn-group > .btn:active,
+.btn-group-vertical > .btn:active,
+.btn-group > .btn.active,
+.btn-group-vertical > .btn.active {
+  z-index: 2;
+}
+.btn-group .btn + .btn,
+.btn-group .btn + .btn-group,
+.btn-group .btn-group + .btn,
+.btn-group .btn-group + .btn-group {
+  margin-left: -1px;
+}
+.btn-toolbar {
+  margin-left: -5px;
+}
+.btn-toolbar .btn-group,
+.btn-toolbar .input-group {
+  float: left;
+}
+.btn-toolbar > .btn,
+.btn-toolbar > .btn-group,
+.btn-toolbar > .input-group {
+  margin-left: 5px;
+}
+.btn-group > .btn:not(:first-child):not(:last-child):not(.dropdown-toggle) {
+  border-radius: 0;
+}
+.btn-group > .btn:first-child {
+  margin-left: 0;
+}
+.btn-group > .btn:first-child:not(:last-child):not(.dropdown-toggle) {
+  border-bottom-right-radius: 0;
+  border-top-right-radius: 0;
+}
+.btn-group > .btn:last-child:not(:first-child),
+.btn-group > .dropdown-toggle:not(:first-child) {
+  border-bottom-left-radius: 0;
+  border-top-left-radius: 0;
+}
+.btn-group > .btn-group {
+  float: left;
+}
+.btn-group > .btn-group:not(:first-child):not(:last-child) > .btn {
+  border-radius: 0;
+}
+.btn-group > .btn-group:first-child > .btn:last-child,
+.btn-group > .btn-group:first-child > .dropdown-toggle {
+  border-bottom-right-radius: 0;
+  border-top-right-radius: 0;
+}
+.btn-group > .btn-group:last-child > .btn:first-child {
+  border-bottom-left-radius: 0;
+  border-top-left-radius: 0;
+}
+.btn-group .dropdown-toggle:active,
+.btn-group.open .dropdown-toggle {
+  outline: 0;
+}
+.btn-group > .btn + .dropdown-toggle {
+  padding-left: 8px;
+  padding-right: 8px;
+}
+.btn-group > .btn-lg + .dropdown-toggle {
+  padding-left: 12px;
+  padding-right: 12px;
+}
+.btn-group.open .dropdown-toggle {
+  -webkit-box-shadow: inset 0 3px 5px rgba(0, 0, 0, 0.125);
+  box-shadow: inset 0 3px 5px rgba(0, 0, 0, 0.125);
+}
+.btn-group.open .dropdown-toggle.btn-link {
+  -webkit-box-shadow: none;
+  box-shadow: none;
+}
+.btn .caret {
+  margin-left: 0;
+}
+.btn-lg .caret {
+  border-width: 5px 5px 0;
+  border-bottom-width: 0;
+}
+.dropup .btn-lg .caret {
+  border-width: 0 5px 5px;
+}
+.btn-group-vertical > .btn,
+.btn-group-vertical > .btn-group,
+.btn-group-vertical > .btn-group > .btn {
+  display: block;
+  float: none;
+  width: 100%;
+  max-width: 100%;
+}
+.btn-group-vertical > .btn-group > .btn {
+  float: none;
+}
+.btn-group-vertical > .btn + .btn,
+.btn-group-vertical > .btn + .btn-group,
+.btn-group-vertical > .btn-group + .btn,
+.btn-group-vertical > .btn-group + .btn-group {
+  margin-top: -1px;
+  margin-left: 0;
+}
+.btn-group-vertical > .btn:not(:first-child):not(:last-child) {
+  border-radius: 0;
+}
+.btn-group-vertical > .btn:first-child:not(:last-child) {
+  border-top-right-radius: 4px;
+  border-bottom-right-radius: 0;
+  border-bottom-left-radius: 0;
+}
+.btn-group-vertical > .btn:last-child:not(:first-child) {
+  border-bottom-left-radius: 4px;
+  border-top-right-radius: 0;
+  border-top-left-radius: 0;
+}
+.btn-group-vertical > .btn-group:not(:first-child):not(:last-child) > .btn {
+  border-radius: 0;
+}
+.btn-group-vertical > .btn-group:first-child:not(:last-child) > .btn:last-child,
+.btn-group-vertical > .btn-group:first-child:not(:last-child) > .dropdown-toggle {
+  border-bottom-right-radius: 0;
+  border-bottom-left-radius: 0;
+}
+.btn-group-vertical > .btn-group:last-child:not(:first-child) > .btn:first-child {
+  border-top-right-radius: 0;
+  border-top-left-radius: 0;
+}
+.btn-group-justified {
+  display: table;
+  width: 100%;
+  table-layout: fixed;
+  border-collapse: separate;
+}
+.btn-group-justified > .btn,
+.btn-group-justified > .btn-group {
+  float: none;
+  display: table-cell;
+  width: 1%;
+}
+.btn-group-justified > .btn-group .btn {
+  width: 100%;
+}
+.btn-group-justified > .btn-group .dropdown-menu {
+  left: auto;
+}
+[data-toggle="buttons"] > .btn input[type="radio"],
+[data-toggle="buttons"] > .btn-group > .btn input[type="radio"],
+[data-toggle="buttons"] > .btn input[type="checkbox"],
+[data-toggle="buttons"] > .btn-group > .btn input[type="checkbox"] {
+  position: absolute;
+  clip: rect(0, 0, 0, 0);
+  pointer-events: none;
+}
+.input-group {
+  position: relative;
+  display: table;
+  border-collapse: separate;
+}
+.input-group[class*="col-"] {
+  float: none;
+  padding-left: 0;
+  padding-right: 0;
+}
+.input-group .form-control {
+  position: relative;
+  z-index: 2;
+  float: left;
+  width: 100%;
+  margin-bottom: 0;
+}
+.input-group-lg > .form-control,
+.input-group-lg > .input-group-addon,
+.input-group-lg > .input-group-btn > .btn {
+  height: 46px;
+  padding: 10px 16px;
+  font-size: 18px;
+  line-height: 1.33;
+  border-radius: 6px;
+}
+select.input-group-lg > .form-control,
+select.input-group-lg > .input-group-addon,
+select.input-group-lg > .input-group-btn > .btn {
+  height: 46px;
+  line-height: 46px;
+}
+textarea.input-group-lg > .form-control,
+textarea.input-group-lg > .input-group-addon,
+textarea.input-group-lg > .input-group-btn > .btn,
+select[multiple].input-group-lg > .form-control,
+select[multiple].input-group-lg > .input-group-addon,
+select[multiple].input-group-lg > .input-group-btn > .btn {
+  height: auto;
+}
+.input-group-sm > .form-control,
+.input-group-sm > .input-group-addon,
+.input-group-sm > .input-group-btn > .btn {
+  height: 30px;
+  padding: 5px 10px;
+  font-size: 12px;
+  line-height: 1.5;
+  border-radius: 3px;
+}
+select.input-group-sm > .form-control,
+select.input-group-sm > .input-group-addon,
+select.input-group-sm > .input-group-btn > .btn {
+  height: 30px;
+  line-height: 30px;
+}
+textarea.input-group-sm > .form-control,
+textarea.input-group-sm > .input-group-addon,
+textarea.input-group-sm > .input-group-btn > .btn,
+select[multiple].input-group-sm > .form-control,
+select[multiple].input-group-sm > .input-group-addon,
+select[multiple].input-group-sm > .input-group-btn > .btn {
+  height: auto;
+}
+.input-group-addon,
+.input-group-btn,
+.input-group .form-control {
+  display: table-cell;
+}
+.input-group-addon:not(:first-child):not(:last-child),
+.input-group-btn:not(:first-child):not(:last-child),
+.input-group .form-control:not(:first-child):not(:last-child) {
+  border-radius: 0;
+}
+.input-group-addon,
+.input-group-btn {
+  width: 1%;
+  white-space: nowrap;
+  vertical-align: middle;
+}
+.input-group-addon {
+  padding: 6px 12px;
+  font-size: 14px;
+  font-weight: normal;
+  line-height: 1;
+  color: #555555;
+  text-align: center;
+  background-color: #eeeeee;
+  border: 1px solid #cccccc;
+  border-radius: 4px;
+}
+.input-group-addon.input-sm {
+  padding: 5px 10px;
+  font-size: 12px;
+  border-radius: 3px;
+}
+.input-group-addon.input-lg {
+  padding: 10px 16px;
+  font-size: 18px;
+  border-radius: 6px;
+}
+.input-group-addon input[type="radio"],
+.input-group-addon input[type="checkbox"] {
+  margin-top: 0;
+}
+.input-group .form-control:first-child,
+.input-group-addon:first-child,
+.input-group-btn:first-child > .btn,
+.input-group-btn:first-child > .btn-group > .btn,
+.input-group-btn:first-child > .dropdown-toggle,
+.input-group-btn:last-child > .btn:not(:last-child):not(.dropdown-toggle),
+.input-group-btn:last-child > .btn-group:not(:last-child) > .btn {
+  border-bottom-right-radius: 0;
+  border-top-right-radius: 0;
+}
+.input-group-addon:first-child {
+  border-right: 0;
+}
+.input-group .form-control:last-child,
+.input-group-addon:last-child,
+.input-group-btn:last-child > .btn,
+.input-group-btn:last-child > .btn-group > .btn,
+.input-group-btn:last-child > .dropdown-toggle,
+.input-group-btn:first-child > .btn:not(:first-child),
+.input-group-btn:first-child > .btn-group:not(:first-child) > .btn {
+  border-bottom-left-radius: 0;
+  border-top-left-radius: 0;
+}
+.input-group-addon:last-child {
+  border-left: 0;
+}
+.input-group-btn {
+  position: relative;
+  font-size: 0;
+  white-space: nowrap;
+}
+.input-group-btn > .btn {
+  position: relative;
+}
+.input-group-btn > .btn + .btn {
+  margin-left: -1px;
+}
+.input-group-btn > .btn:hover,
+.input-group-btn > .btn:focus,
+.input-group-btn > .btn:active {
+  z-index: 2;
+}
+.input-group-btn:first-child > .btn,
+.input-group-btn:first-child > .btn-group {
+  margin-right: -1px;
+}
+.input-group-btn:last-child > .btn,
+.input-group-btn:last-child > .btn-group {
+  margin-left: -1px;
+}
+.nav {
+  margin-bottom: 0;
+  padding-left: 0;
+  list-style: none;
+}
+.nav > li {
+  position: relative;
+  display: block;
+}
+.nav > li > a {
+  position: relative;
+  display: block;
+  padding: 10px 15px;
+}
+.nav > li > a:hover,
+.nav > li > a:focus {
+  text-decoration: none;
+  background-color: #eeeeee;
+}
+.nav > li.disabled > a {
+  color: #777777;
+}
+.nav > li.disabled > a:hover,
+.nav > li.disabled > a:focus {
+  color: #777777;
+  text-decoration: none;
+  background-color: transparent;
+  cursor: not-allowed;
+}
+.nav .open > a,
+.nav .open > a:hover,
+.nav .open > a:focus {
+  background-color: #eeeeee;
+  border-color: #337ab7;
+}
+.nav .nav-divider {
+  height: 1px;
+  margin: 9px 0;
+  overflow: hidden;
+  background-color: #e5e5e5;
+}
+.nav > li > a > img {
+  max-width: none;
+}
+.nav-tabs {
+  border-bottom: 1px solid #dddddd;
+}
+.nav-tabs > li {
+  float: left;
+  margin-bottom: -1px;
+}
+.nav-tabs > li > a {
+  margin-right: 2px;
+  line-height: 1.42857143;
+  border: 1px solid transparent;
+  border-radius: 4px 4px 0 0;
+}
+.nav-tabs > li > a:hover {
+  border-color: #eeeeee #eeeeee #dddddd;
+}
+.nav-tabs > li.active > a,
+.nav-tabs > li.active > a:hover,
+.nav-tabs > li.active > a:focus {
+  color: #555555;
+  background-color: #ffffff;
+  border: 1px solid #dddddd;
+  border-bottom-color: transparent;
+  cursor: default;
+}
+.nav-tabs.nav-justified {
+  width: 100%;
+  border-bottom: 0;
+}
+.nav-tabs.nav-justified > li {
+  float: none;
+}
+.nav-tabs.nav-justified > li > a {
+  text-align: center;
+  margin-bottom: 5px;
+}
+.nav-tabs.nav-justified > .dropdown .dropdown-menu {
+  top: auto;
+  left: auto;
+}
+@media (min-width: 768px) {
+  .nav-tabs.nav-justified > li {
+    display: table-cell;
+    width: 1%;
+  }
+  .nav-tabs.nav-justified > li > a {
+    margin-bottom: 0;
+  }
+}
+.nav-tabs.nav-justified > li > a {
+  margin-right: 0;
+  border-radius: 4px;
+}
+.nav-tabs.nav-justified > .active > a,
+.nav-tabs.nav-justified > .active > a:hover,
+.nav-tabs.nav-justified > .active > a:focus {
+  border: 1px solid #dddddd;
+}
+@media (min-width: 768px) {
+  .nav-tabs.nav-justified > li > a {
+    border-bottom: 1px solid #dddddd;
+    border-radius: 4px 4px 0 0;
+  }
+  .nav-tabs.nav-justified > .active > a,
+  .nav-tabs.nav-justified > .active > a:hover,
+  .nav-tabs.nav-justified > .active > a:focus {
+    border-bottom-color: #ffffff;
+  }
+}
+.nav-pills > li {
+  float: left;
+}
+.nav-pills > li > a {
+  border-radius: 4px;
+}
+.nav-pills > li + li {
+  margin-left: 2px;
+}
+.nav-pills > li.active > a,
+.nav-pills > li.active > a:hover,
+.nav-pills > li.active > a:focus {
+  color: #ffffff;
+  background-color: #337ab7;
+}
+.nav-stacked > li {
+  float: none;
+}
+.nav-stacked > li + li {
+  margin-top: 2px;
+  margin-left: 0;
+}
+.nav-justified {
+  width: 100%;
+}
+.nav-justified > li {
+  float: none;
+}
+.nav-justified > li > a {
+  text-align: center;
+  margin-bottom: 5px;
+}
+.nav-justified > .dropdown .dropdown-menu {
+  top: auto;
+  left: auto;
+}
+@media (min-width: 768px) {
+  .nav-justified > li {
+    display: table-cell;
+    width: 1%;
+  }
+  .nav-justified > li > a {
+    margin-bottom: 0;
+  }
+}
+.nav-tabs-justified {
+  border-bottom: 0;
+}
+.nav-tabs-justified > li > a {
+  margin-right: 0;
+  border-radius: 4px;
+}
+.nav-tabs-justified > .active > a,
+.nav-tabs-justified > .active > a:hover,
+.nav-tabs-justified > .active > a:focus {
+  border: 1px solid #dddddd;
+}
+@media (min-width: 768px) {
+  .nav-tabs-justified > li > a {
+    border-bottom: 1px solid #dddddd;
+    border-radius: 4px 4px 0 0;
+  }
+  .nav-tabs-justified > .active > a,
+  .nav-tabs-justified > .active > a:hover,
+  .nav-tabs-justified > .active > a:focus {
+    border-bottom-color: #ffffff;
+  }
+}
+.tab-content > .tab-pane {
+  display: none;
+  visibility: hidden;
+}
+.tab-content > .active {
+  display: block;
+  visibility: visible;
+}
+.nav-tabs .dropdown-menu {
+  margin-top: -1px;
+  border-top-right-radius: 0;
+  border-top-left-radius: 0;
+}
+.navbar {
+  position: relative;
+  min-height: 50px;
+  margin-bottom: 20px;
+  border: 1px solid transparent;
+}
+@media (min-width: 768px) {
+  .navbar {
+    border-radius: 4px;
+  }
+}
+@media (min-width: 768px) {
+  .navbar-header {
+    float: left;
+  }
+}
+.navbar-collapse {
+  overflow-x: visible;
+  padding-right: 15px;
+  padding-left: 15px;
+  border-top: 1px solid transparent;
+  -webkit-box-shadow: inset 0 1px 0 rgba(255, 255, 255, 0.1);
+          box-shadow: inset 0 1px 0 rgba(255, 255, 255, 0.1);
+  -webkit-overflow-scrolling: touch;
+}
+.navbar-collapse.in {
+  overflow-y: auto;
+}
+@media (min-width: 768px) {
+  .navbar-collapse {
+    width: auto;
+    border-top: 0;
+    -webkit-box-shadow: none;
+            box-shadow: none;
+  }
+  .navbar-collapse.collapse {
+    display: block !important;
+    visibility: visible !important;
+    height: auto !important;
+    padding-bottom: 0;
+    overflow: visible !important;
+  }
+  .navbar-collapse.in {
+    overflow-y: visible;
+  }
+  .navbar-fixed-top .navbar-collapse,
+  .navbar-static-top .navbar-collapse,
+  .navbar-fixed-bottom .navbar-collapse {
+    padding-left: 0;
+    padding-right: 0;
+  }
+}
+.navbar-fixed-top .navbar-collapse,
+.navbar-fixed-bottom .navbar-collapse {
+  max-height: 340px;
+}
+@media (max-device-width: 480px) and (orientation: landscape) {
+  .navbar-fixed-top .navbar-collapse,
+  .navbar-fixed-bottom .navbar-collapse {
+    max-height: 200px;
+  }
+}
+.container > .navbar-header,
+.container-fluid > .navbar-header,
+.container > .navbar-collapse,
+.container-fluid > .navbar-collapse {
+  margin-right: -15px;
+  margin-left: -15px;
+}
+@media (min-width: 768px) {
+  .container > .navbar-header,
+  .container-fluid > .navbar-header,
+  .container > .navbar-collapse,
+  .container-fluid > .navbar-collapse {
+    margin-right: 0;
+    margin-left: 0;
+  }
+}
+.navbar-static-top {
+  z-index: 1000;
+  border-width: 0 0 1px;
+}
+@media (min-width: 768px) {
+  .navbar-static-top {
+    border-radius: 0;
+  }
+}
+.navbar-fixed-top,
+.navbar-fixed-bottom {
+  position: fixed;
+  right: 0;
+  left: 0;
+  z-index: 1030;
+}
+@media (min-width: 768px) {
+  .navbar-fixed-top,
+  .navbar-fixed-bottom {
+    border-radius: 0;
+  }
+}
+.navbar-fixed-top {
+  top: 0;
+  border-width: 0 0 1px;
+}
+.navbar-fixed-bottom {
+  bottom: 0;
+  margin-bottom: 0;
+  border-width: 1px 0 0;
+}
+.navbar-brand {
+  float: left;
+  padding: 15px 15px;
+  font-size: 18px;
+  line-height: 20px;
+  height: 50px;
+}
+.navbar-brand:hover,
+.navbar-brand:focus {
+  text-decoration: none;
+}
+.navbar-brand > img {
+  display: block;
+}
+@media (min-width: 768px) {
+  .navbar > .container .navbar-brand,
+  .navbar > .container-fluid .navbar-brand {
+    margin-left: -15px;
+  }
+}
+.navbar-toggle {
+  position: relative;
+  float: right;
+  margin-right: 15px;
+  padding: 9px 10px;
+  margin-top: 8px;
+  margin-bottom: 8px;
+  background-color: transparent;
+  background-image: none;
+  border: 1px solid transparent;
+  border-radius: 4px;
+}
+.navbar-toggle:focus {
+  outline: 0;
+}
+.navbar-toggle .icon-bar {
+  display: block;
+  width: 22px;
+  height: 2px;
+  border-radius: 1px;
+}
+.navbar-toggle .icon-bar + .icon-bar {
+  margin-top: 4px;
+}
+@media (min-width: 768px) {
+  .navbar-toggle {
+    display: none;
+  }
+}
+.navbar-nav {
+  margin: 7.5px -15px;
+}
+.navbar-nav > li > a {
+  padding-top: 10px;
+  padding-bottom: 10px;
+  line-height: 20px;
+}
+@media (max-width: 767px) {
+  .navbar-nav .open .dropdown-menu {
+    position: static;
+    float: none;
+    width: auto;
+    margin-top: 0;
+    background-color: transparent;
+    border: 0;
+    -webkit-box-shadow: none;
+            box-shadow: none;
+  }
+  .navbar-nav .open .dropdown-menu > li > a,
+  .navbar-nav .open .dropdown-menu .dropdown-header {
+    padding: 5px 15px 5px 25px;
+  }
+  .navbar-nav .open .dropdown-menu > li > a {
+    line-height: 20px;
+  }
+  .navbar-nav .open .dropdown-menu > li > a:hover,
+  .navbar-nav .open .dropdown-menu > li > a:focus {
+    background-image: none;
+  }
+}
+@media (min-width: 768px) {
+  .navbar-nav {
+    float: left;
+    margin: 0;
+  }
+  .navbar-nav > li {
+    float: left;
+  }
+  .navbar-nav > li > a {
+    padding-top: 15px;
+    padding-bottom: 15px;
+  }
+}
+.navbar-form {
+  margin-left: -15px;
+  margin-right: -15px;
+  padding: 10px 15px;
+  border-top: 1px solid transparent;
+  border-bottom: 1px solid transparent;
+  -webkit-box-shadow: inset 0 1px 0 rgba(255, 255, 255, 0.1), 0 1px 0 rgba(255, 255, 255, 0.1);
+  box-shadow: inset 0 1px 0 rgba(255, 255, 255, 0.1), 0 1px 0 rgba(255, 255, 255, 0.1);
+  margin-top: 8px;
+  margin-bottom: 8px;
+}
+@media (min-width: 768px) {
+  .navbar-form .form-group {
+    display: inline-block;
+    margin-bottom: 0;
+    vertical-align: middle;
+  }
+  .navbar-form .form-control {
+    display: inline-block;
+    width: auto;
+    vertical-align: middle;
+  }
+  .navbar-form .form-control-static {
+    display: inline-block;
+  }
+  .navbar-form .input-group {
+    display: inline-table;
+    vertical-align: middle;
+  }
+  .navbar-form .input-group .input-group-addon,
+  .navbar-form .input-group .input-group-btn,
+  .navbar-form .input-group .form-control {
+    width: auto;
+  }
+  .navbar-form .input-group > .form-control {
+    width: 100%;
+  }
+  .navbar-form .control-label {
+    margin-bottom: 0;
+    vertical-align: middle;
+  }
+  .navbar-form .radio,
+  .navbar-form .checkbox {
+    display: inline-block;
+    margin-top: 0;
+    margin-bottom: 0;
+    vertical-align: middle;
+  }
+  .navbar-form .radio label,
+  .navbar-form .checkbox label {
+    padding-left: 0;
+  }
+  .navbar-form .radio input[type="radio"],
+  .navbar-form .checkbox input[type="checkbox"] {
+    position: relative;
+    margin-left: 0;
+  }
+  .navbar-form .has-feedback .form-control-feedback {
+    top: 0;
+  }
+}
+@media (max-width: 767px) {
+  .navbar-form .form-group {
+    margin-bottom: 5px;
+  }
+  .navbar-form .form-group:last-child {
+    margin-bottom: 0;
+  }
+}
+@media (min-width: 768px) {
+  .navbar-form {
+    width: auto;
+    border: 0;
+    margin-left: 0;
+    margin-right: 0;
+    padding-top: 0;
+    padding-bottom: 0;
+    -webkit-box-shadow: none;
+    box-shadow: none;
+  }
+}
+.navbar-nav > li > .dropdown-menu {
+  margin-top: 0;
+  border-top-right-radius: 0;
+  border-top-left-radius: 0;
+}
+.navbar-fixed-bottom .navbar-nav > li > .dropdown-menu {
+  border-top-right-radius: 4px;
+  border-top-left-radius: 4px;
+  border-bottom-right-radius: 0;
+  border-bottom-left-radius: 0;
+}
+.navbar-btn {
+  margin-top: 8px;
+  margin-bottom: 8px;
+}
+.navbar-btn.btn-sm {
+  margin-top: 10px;
+  margin-bottom: 10px;
+}
+.navbar-btn.btn-xs {
+  margin-top: 14px;
+  margin-bottom: 14px;
+}
+.navbar-text {
+  margin-top: 15px;
+  margin-bottom: 15px;
+}
+@media (min-width: 768px) {
+  .navbar-text {
+    float: left;
+    margin-left: 15px;
+    margin-right: 15px;
+  }
+}
+@media (min-width: 768px) {
+  .navbar-left {
+    float: left !important;
+  }
+  .navbar-right {
+    float: right !important;
+    margin-right: -15px;
+  }
+  .navbar-right ~ .navbar-right {
+    margin-right: 0;
+  }
+}
+.navbar-default {
+  background-color: #f8f8f8;
+  border-color: #e7e7e7;
+}
+.navbar-default .navbar-brand {
+  color: #777777;
+}
+.navbar-default .navbar-brand:hover,
+.navbar-default .navbar-brand:focus {
+  color: #5e5e5e;
+  background-color: transparent;
+}
+.navbar-default .navbar-text {
+  color: #777777;
+}
+.navbar-default .navbar-nav > li > a {
+  color: #777777;
+}
+.navbar-default .navbar-nav > li > a:hover,
+.navbar-default .navbar-nav > li > a:focus {
+  color: #333333;
+  background-color: transparent;
+}
+.navbar-default .navbar-nav > .active > a,
+.navbar-default .navbar-nav > .active > a:hover,
+.navbar-default .navbar-nav > .active > a:focus {
+  color: #555555;
+  background-color: #e7e7e7;
+}
+.navbar-default .navbar-nav > .disabled > a,
+.navbar-default .navbar-nav > .disabled > a:hover,
+.navbar-default .navbar-nav > .disabled > a:focus {
+  color: #cccccc;
+  background-color: transparent;
+}
+.navbar-default .navbar-toggle {
+  border-color: #dddddd;
+}
+.navbar-default .navbar-toggle:hover,
+.navbar-default .navbar-toggle:focus {
+  background-color: #dddddd;
+}
+.navbar-default .navbar-toggle .icon-bar {
+  background-color: #888888;
+}
+.navbar-default .navbar-collapse,
+.navbar-default .navbar-form {
+  border-color: #e7e7e7;
+}
+.navbar-default .navbar-nav > .open > a,
+.navbar-default .navbar-nav > .open > a:hover,
+.navbar-default .navbar-nav > .open > a:focus {
+  background-color: #e7e7e7;
+  color: #555555;
+}
+@media (max-width: 767px) {
+  .navbar-default .navbar-nav .open .dropdown-menu > li > a {
+    color: #777777;
+  }
+  .navbar-default .navbar-nav .open .dropdown-menu > li > a:hover,
+  .navbar-default .navbar-nav .open .dropdown-menu > li > a:focus {
+    color: #333333;
+    background-color: transparent;
+  }
+  .navbar-default .navbar-nav .open .dropdown-menu > .active > a,
+  .navbar-default .navbar-nav .open .dropdown-menu > .active > a:hover,
+  .navbar-default .navbar-nav .open .dropdown-menu > .active > a:focus {
+    color: #555555;
+    background-color: #e7e7e7;
+  }
+  .navbar-default .navbar-nav .open .dropdown-menu > .disabled > a,
+  .navbar-default .navbar-nav .open .dropdown-menu > .disabled > a:hover,
+  .navbar-default .navbar-nav .open .dropdown-menu > .disabled > a:focus {
+    color: #cccccc;
+    background-color: transparent;
+  }
+}
+.navbar-default .navbar-link {
+  color: #777777;
+}
+.navbar-default .navbar-link:hover {
+  color: #333333;
+}
+.navbar-default .btn-link {
+  color: #777777;
+}
+.navbar-default .btn-link:hover,
+.navbar-default .btn-link:focus {
+  color: #333333;
+}
+.navbar-default .btn-link[disabled]:hover,
+fieldset[disabled] .navbar-default .btn-link:hover,
+.navbar-default .btn-link[disabled]:focus,
+fieldset[disabled] .navbar-default .btn-link:focus {
+  color: #cccccc;
+}
+.navbar-inverse {
+  background-color: #222222;
+  border-color: #080808;
+}
+.navbar-inverse .navbar-brand {
+  color: #9d9d9d;
+}
+.navbar-inverse .navbar-brand:hover,
+.navbar-inverse .navbar-brand:focus {
+  color: #ffffff;
+  background-color: transparent;
+}
+.navbar-inverse .navbar-text {
+  color: #9d9d9d;
+}
+.navbar-inverse .navbar-nav > li > a {
+  color: #9d9d9d;
+}
+.navbar-inverse .navbar-nav > li > a:hover,
+.navbar-inverse .navbar-nav > li > a:focus {
+  color: #ffffff;
+  background-color: transparent;
+}
+.navbar-inverse .navbar-nav > .active > a,
+.navbar-inverse .navbar-nav > .active > a:hover,
+.navbar-inverse .navbar-nav > .active > a:focus {
+  color: #ffffff;
+  background-color: #080808;
+}
+.navbar-inverse .navbar-nav > .disabled > a,
+.navbar-inverse .navbar-nav > .disabled > a:hover,
+.navbar-inverse .navbar-nav > .disabled > a:focus {
+  color: #444444;
+  background-color: transparent;
+}
+.navbar-inverse .navbar-toggle {
+  border-color: #333333;
+}
+.navbar-inverse .navbar-toggle:hover,
+.navbar-inverse .navbar-toggle:focus {
+  background-color: #333333;
+}
+.navbar-inverse .navbar-toggle .icon-bar {
+  background-color: #ffffff;
+}
+.navbar-inverse .navbar-collapse,
+.navbar-inverse .navbar-form {
+  border-color: #101010;
+}
+.navbar-inverse .navbar-nav > .open > a,
+.navbar-inverse .navbar-nav > .open > a:hover,
+.navbar-inverse .navbar-nav > .open > a:focus {
+  background-color: #080808;
+  color: #ffffff;
+}
+@media (max-width: 767px) {
+  .navbar-inverse .navbar-nav .open .dropdown-menu > .dropdown-header {
+    border-color: #080808;
+  }
+  .navbar-inverse .navbar-nav .open .dropdown-menu .divider {
+    background-color: #080808;
+  }
+  .navbar-inverse .navbar-nav .open .dropdown-menu > li > a {
+    color: #9d9d9d;
+  }
+  .navbar-inverse .navbar-nav .open .dropdown-menu > li > a:hover,
+  .navbar-inverse .navbar-nav .open .dropdown-menu > li > a:focus {
+    color: #ffffff;
+    background-color: transparent;
+  }
+  .navbar-inverse .navbar-nav .open .dropdown-menu > .active > a,
+  .navbar-inverse .navbar-nav .open .dropdown-menu > .active > a:hover,
+  .navbar-inverse .navbar-nav .open .dropdown-menu > .active > a:focus {
+    color: #ffffff;
+    background-color: #080808;
+  }
+  .navbar-inverse .navbar-nav .open .dropdown-menu > .disabled > a,
+  .navbar-inverse .navbar-nav .open .dropdown-menu > .disabled > a:hover,
+  .navbar-inverse .navbar-nav .open .dropdown-menu > .disabled > a:focus {
+    color: #444444;
+    background-color: transparent;
+  }
+}
+.navbar-inverse .navbar-link {
+  color: #9d9d9d;
+}
+.navbar-inverse .navbar-link:hover {
+  color: #ffffff;
+}
+.navbar-inverse .btn-link {
+  color: #9d9d9d;
+}
+.navbar-inverse .btn-link:hover,
+.navbar-inverse .btn-link:focus {
+  color: #ffffff;
+}
+.navbar-inverse .btn-link[disabled]:hover,
+fieldset[disabled] .navbar-inverse .btn-link:hover,
+.navbar-inverse .btn-link[disabled]:focus,
+fieldset[disabled] .navbar-inverse .btn-link:focus {
+  color: #444444;
+}
+.breadcrumb {
+  padding: 8px 15px;
+  margin-bottom: 20px;
+  list-style: none;
+  background-color: #f5f5f5;
+  border-radius: 4px;
+}
+.breadcrumb > li {
+  display: inline-block;
+}
+.breadcrumb > li + li:before {
+  content: "/\00a0";
+  padding: 0 5px;
+  color: #cccccc;
+}
+.breadcrumb > .active {
+  color: #777777;
+}
+.pagination {
+  display: inline-block;
+  padding-left: 0;
+  margin: 20px 0;
+  border-radius: 4px;
+}
+.pagination > li {
+  display: inline;
+}
+.pagination > li > a,
+.pagination > li > span {
+  position: relative;
+  float: left;
+  padding: 6px 12px;
+  line-height: 1.42857143;
+  text-decoration: none;
+  color: #337ab7;
+  background-color: #ffffff;
+  border: 1px solid #dddddd;
+  margin-left: -1px;
+}
+.pagination > li:first-child > a,
+.pagination > li:first-child > span {
+  margin-left: 0;
+  border-bottom-left-radius: 4px;
+  border-top-left-radius: 4px;
+}
+.pagination > li:last-child > a,
+.pagination > li:last-child > span {
+  border-bottom-right-radius: 4px;
+  border-top-right-radius: 4px;
+}
+.pagination > li > a:hover,
+.pagination > li > span:hover,
+.pagination > li > a:focus,
+.pagination > li > span:focus {
+  color: #23527c;
+  background-color: #eeeeee;
+  border-color: #dddddd;
+}
+.pagination > .active > a,
+.pagination > .active > span,
+.pagination > .active > a:hover,
+.pagination > .active > span:hover,
+.pagination > .active > a:focus,
+.pagination > .active > span:focus {
+  z-index: 2;
+  color: #ffffff;
+  background-color: #337ab7;
+  border-color: #337ab7;
+  cursor: default;
+}
+.pagination > .disabled > span,
+.pagination > .disabled > span:hover,
+.pagination > .disabled > span:focus,
+.pagination > .disabled > a,
+.pagination > .disabled > a:hover,
+.pagination > .disabled > a:focus {
+  color: #777777;
+  background-color: #ffffff;
+  border-color: #dddddd;
+  cursor: not-allowed;
+}
+.pagination-lg > li > a,
+.pagination-lg > li > span {
+  padding: 10px 16px;
+  font-size: 18px;
+}
+.pagination-lg > li:first-child > a,
+.pagination-lg > li:first-child > span {
+  border-bottom-left-radius: 6px;
+  border-top-left-radius: 6px;
+}
+.pagination-lg > li:last-child > a,
+.pagination-lg > li:last-child > span {
+  border-bottom-right-radius: 6px;
+  border-top-right-radius: 6px;
+}
+.pagination-sm > li > a,
+.pagination-sm > li > span {
+  padding: 5px 10px;
+  font-size: 12px;
+}
+.pagination-sm > li:first-child > a,
+.pagination-sm > li:first-child > span {
+  border-bottom-left-radius: 3px;
+  border-top-left-radius: 3px;
+}
+.pagination-sm > li:last-child > a,
+.pagination-sm > li:last-child > span {
+  border-bottom-right-radius: 3px;
+  border-top-right-radius: 3px;
+}
+.pager {
+  padding-left: 0;
+  margin: 20px 0;
+  list-style: none;
+  text-align: center;
+}
+.pager li {
+  display: inline;
+}
+.pager li > a,
+.pager li > span {
+  display: inline-block;
+  padding: 5px 14px;
+  background-color: #ffffff;
+  border: 1px solid #dddddd;
+  border-radius: 15px;
+}
+.pager li > a:hover,
+.pager li > a:focus {
+  text-decoration: none;
+  background-color: #eeeeee;
+}
+.pager .next > a,
+.pager .next > span {
+  float: right;
+}
+.pager .previous > a,
+.pager .previous > span {
+  float: left;
+}
+.pager .disabled > a,
+.pager .disabled > a:hover,
+.pager .disabled > a:focus,
+.pager .disabled > span {
+  color: #777777;
+  background-color: #ffffff;
+  cursor: not-allowed;
+}
+.label {
+  display: inline;
+  padding: .2em .6em .3em;
+  font-size: 75%;
+  font-weight: bold;
+  line-height: 1;
+  color: #ffffff;
+  text-align: center;
+  white-space: nowrap;
+  vertical-align: baseline;
+  border-radius: .25em;
+}
+a.label:hover,
+a.label:focus {
+  color: #ffffff;
+  text-decoration: none;
+  cursor: pointer;
+}
+.label:empty {
+  display: none;
+}
+.btn .label {
+  position: relative;
+  top: -1px;
+}
+.label-default {
+  background-color: #777777;
+}
+.label-default[href]:hover,
+.label-default[href]:focus {
+  background-color: #5e5e5e;
+}
+.label-primary {
+  background-color: #337ab7;
+}
+.label-primary[href]:hover,
+.label-primary[href]:focus {
+  background-color: #286090;
+}
+.label-success {
+  background-color: #5cb85c;
+}
+.label-success[href]:hover,
+.label-success[href]:focus {
+  background-color: #449d44;
+}
+.label-info {
+  background-color: #5bc0de;
+}
+.label-info[href]:hover,
+.label-info[href]:focus {
+  background-color: #31b0d5;
+}
+.label-warning {
+  background-color: #f0ad4e;
+}
+.label-warning[href]:hover,
+.label-warning[href]:focus {
+  background-color: #ec971f;
+}
+.label-danger {
+  background-color: #d9534f;
+}
+.label-danger[href]:hover,
+.label-danger[href]:focus {
+  background-color: #c9302c;
+}
+.badge {
+  display: inline-block;
+  min-width: 10px;
+  padding: 3px 7px;
+  font-size: 12px;
+  font-weight: bold;
+  color: #ffffff;
+  line-height: 1;
+  vertical-align: baseline;
+  white-space: nowrap;
+  text-align: center;
+  background-color: #777777;
+  border-radius: 10px;
+}
+.badge:empty {
+  display: none;
+}
+.btn .badge {
+  position: relative;
+  top: -1px;
+}
+.btn-xs .badge {
+  top: 0;
+  padding: 1px 5px;
+}
+a.badge:hover,
+a.badge:focus {
+  color: #ffffff;
+  text-decoration: none;
+  cursor: pointer;
+}
+.list-group-item.active > .badge,
+.nav-pills > .active > a > .badge {
+  color: #337ab7;
+  background-color: #ffffff;
+}
+.list-group-item > .badge {
+  float: right;
+}
+.list-group-item > .badge + .badge {
+  margin-right: 5px;
+}
+.nav-pills > li > a > .badge {
+  margin-left: 3px;
+}
+.jumbotron {
+  padding: 30px 15px;
+  margin-bottom: 30px;
+  color: inherit;
+  background-color: #eeeeee;
+}
+.jumbotron h1,
+.jumbotron .h1 {
+  color: inherit;
+}
+.jumbotron p {
+  margin-bottom: 15px;
+  font-size: 21px;
+  font-weight: 200;
+}
+.jumbotron > hr {
+  border-top-color: #d5d5d5;
+}
+.container .jumbotron,
+.container-fluid .jumbotron {
+  border-radius: 6px;
+}
+.jumbotron .container {
+  max-width: 100%;
+}
+@media screen and (min-width: 768px) {
+  .jumbotron {
+    padding: 48px 0;
+  }
+  .container .jumbotron,
+  .container-fluid .jumbotron {
+    padding-left: 60px;
+    padding-right: 60px;
+  }
+  .jumbotron h1,
+  .jumbotron .h1 {
+    font-size: 63px;
+  }
+}
+.thumbnail {
+  display: block;
+  padding: 4px;
+  margin-bottom: 20px;
+  line-height: 1.42857143;
+  background-color: #ffffff;
+  border: 1px solid #dddddd;
+  border-radius: 4px;
+  -webkit-transition: border 0.2s ease-in-out;
+  -o-transition: border 0.2s ease-in-out;
+  transition: border 0.2s ease-in-out;
+}
+.thumbnail > img,
+.thumbnail a > img {
+  margin-left: auto;
+  margin-right: auto;
+}
+a.thumbnail:hover,
+a.thumbnail:focus,
+a.thumbnail.active {
+  border-color: #337ab7;
+}
+.thumbnail .caption {
+  padding: 9px;
+  color: #333333;
+}
+.alert {
+  padding: 15px;
+  margin-bottom: 20px;
+  border: 1px solid transparent;
+  border-radius: 4px;
+}
+.alert h4 {
+  margin-top: 0;
+  color: inherit;
+}
+.alert .alert-link {
+  font-weight: bold;
+}
+.alert > p,
+.alert > ul {
+  margin-bottom: 0;
+}
+.alert > p + p {
+  margin-top: 5px;
+}
+.alert-dismissable,
+.alert-dismissible {
+  padding-right: 35px;
+}
+.alert-dismissable .close,
+.alert-dismissible .close {
+  position: relative;
+  top: -2px;
+  right: -21px;
+  color: inherit;
+}
+.alert-success {
+  background-color: #dff0d8;
+  border-color: #d6e9c6;
+  color: #3c763d;
+}
+.alert-success hr {
+  border-top-color: #c9e2b3;
+}
+.alert-success .alert-link {
+  color: #2b542c;
+}
+.alert-info {
+  background-color: #d9edf7;
+  border-color: #bce8f1;
+  color: #31708f;
+}
+.alert-info hr {
+  border-top-color: #a6e1ec;
+}
+.alert-info .alert-link {
+  color: #245269;
+}
+.alert-warning {
+  background-color: #fcf8e3;
+  border-color: #faebcc;
+  color: #8a6d3b;
+}
+.alert-warning hr {
+  border-top-color: #f7e1b5;
+}
+.alert-warning .alert-link {
+  color: #66512c;
+}
+.alert-danger {
+  background-color: #f2dede;
+  border-color: #ebccd1;
+  color: #a94442;
+}
+.alert-danger hr {
+  border-top-color: #e4b9c0;
+}
+.alert-danger .alert-link {
+  color: #843534;
+}
+.media {
+  margin-top: 15px;
+}
+.media:first-child {
+  margin-top: 0;
+}
+.media-right,
+.media > .pull-right {
+  padding-left: 10px;
+}
+.media-left,
+.media > .pull-left {
+  padding-right: 10px;
+}
+.media-left,
+.media-right,
+.media-body {
+  display: table-cell;
+  vertical-align: top;
+}
+.media-middle {
+  vertical-align: middle;
+}
+.media-bottom {
+  vertical-align: bottom;
+}
+.media-heading {
+  margin-top: 0;
+  margin-bottom: 5px;
+}
+.media-list {
+  padding-left: 0;
+  list-style: none;
+}
+.list-group {
+  margin-bottom: 20px;
+  padding-left: 0;
+}
+.list-group-item {
+  position: relative;
+  display: block;
+  padding: 10px 15px;
+  margin-bottom: -1px;
+  background-color: #ffffff;
+  border: 1px solid #dddddd;
+}
+.list-group-item:first-child {
+  border-top-right-radius: 4px;
+  border-top-left-radius: 4px;
+}
+.list-group-item:last-child {
+  margin-bottom: 0;
+  border-bottom-right-radius: 4px;
+  border-bottom-left-radius: 4px;
+}
+a.list-group-item {
+  color: #555555;
+}
+a.list-group-item .list-group-item-heading {
+  color: #333333;
+}
+a.list-group-item:hover,
+a.list-group-item:focus {
+  text-decoration: none;
+  color: #555555;
+  background-color: #f5f5f5;
+}
+.list-group-item.disabled,
+.list-group-item.disabled:hover,
+.list-group-item.disabled:focus {
+  background-color: #eeeeee;
+  color: #777777;
+  cursor: not-allowed;
+}
+.list-group-item.disabled .list-group-item-heading,
+.list-group-item.disabled:hover .list-group-item-heading,
+.list-group-item.disabled:focus .list-group-item-heading {
+  color: inherit;
+}
+.list-group-item.disabled .list-group-item-text,
+.list-group-item.disabled:hover .list-group-item-text,
+.list-group-item.disabled:focus .list-group-item-text {
+  color: #777777;
+}
+.list-group-item.active,
+.list-group-item.active:hover,
+.list-group-item.active:focus {
+  z-index: 2;
+  color: #ffffff;
+  background-color: #337ab7;
+  border-color: #337ab7;
+}
+.list-group-item.active .list-group-item-heading,
+.list-group-item.active:hover .list-group-item-heading,
+.list-group-item.active:focus .list-group-item-heading,
+.list-group-item.active .list-group-item-heading > small,
+.list-group-item.active:hover .list-group-item-heading > small,
+.list-group-item.active:focus .list-group-item-heading > small,
+.list-group-item.active .list-group-item-heading > .small,
+.list-group-item.active:hover .list-group-item-heading > .small,
+.list-group-item.active:focus .list-group-item-heading > .small {
+  color: inherit;
+}
+.list-group-item.active .list-group-item-text,
+.list-group-item.active:hover .list-group-item-text,
+.list-group-item.active:focus .list-group-item-text {
+  color: #c7ddef;
+}
+.list-group-item-success {
+  color: #3c763d;
+  background-color: #dff0d8;
+}
+a.list-group-item-success {
+  color: #3c763d;
+}
+a.list-group-item-success .list-group-item-heading {
+  color: inherit;
+}
+a.list-group-item-success:hover,
+a.list-group-item-success:focus {
+  color: #3c763d;
+  background-color: #d0e9c6;
+}
+a.list-group-item-success.active,
+a.list-group-item-success.active:hover,
+a.list-group-item-success.active:focus {
+  color: #fff;
+  background-color: #3c763d;
+  border-color: #3c763d;
+}
+.list-group-item-info {
+  color: #31708f;
+  background-color: #d9edf7;
+}
+a.list-group-item-info {
+  color: #31708f;
+}
+a.list-group-item-info .list-group-item-heading {
+  color: inherit;
+}
+a.list-group-item-info:hover,
+a.list-group-item-info:focus {
+  color: #31708f;
+  background-color: #c4e3f3;
+}
+a.list-group-item-info.active,
+a.list-group-item-info.active:hover,
+a.list-group-item-info.active:focus {
+  color: #fff;
+  background-color: #31708f;
+  border-color: #31708f;
+}
+.list-group-item-warning {
+  color: #8a6d3b;
+  background-color: #fcf8e3;
+}
+a.list-group-item-warning {
+  color: #8a6d3b;
+}
+a.list-group-item-warning .list-group-item-heading {
+  color: inherit;
+}
+a.list-group-item-warning:hover,
+a.list-group-item-warning:focus {
+  color: #8a6d3b;
+  background-color: #faf2cc;
+}
+a.list-group-item-warning.active,
+a.list-group-item-warning.active:hover,
+a.list-group-item-warning.active:focus {
+  color: #fff;
+  background-color: #8a6d3b;
+  border-color: #8a6d3b;
+}
+.list-group-item-danger {
+  color: #a94442;
+  background-color: #f2dede;
+}
+a.list-group-item-danger {
+  color: #a94442;
+}
+a.list-group-item-danger .list-group-item-heading {
+  color: inherit;
+}
+a.list-group-item-danger:hover,
+a.list-group-item-danger:focus {
+  color: #a94442;
+  background-color: #ebcccc;
+}
+a.list-group-item-danger.active,
+a.list-group-item-danger.active:hover,
+a.list-group-item-danger.active:focus {
+  color: #fff;
+  background-color: #a94442;
+  border-color: #a94442;
+}
+.list-group-item-heading {
+  margin-top: 0;
+  margin-bottom: 5px;
+}
+.list-group-item-text {
+  margin-bottom: 0;
+  line-height: 1.3;
+}
+.panel {
+  margin-bottom: 20px;
+  background-color: #ffffff;
+  border: 1px solid transparent;
+  border-radius: 4px;
+  -webkit-box-shadow: 0 1px 1px rgba(0, 0, 0, 0.05);
+  box-shadow: 0 1px 1px rgba(0, 0, 0, 0.05);
+}
+.panel-body {
+  padding: 15px;
+}
+.panel-heading {
+  padding: 10px 15px;
+  border-bottom: 1px solid transparent;
+  border-top-right-radius: 3px;
+  border-top-left-radius: 3px;
+}
+.panel-heading > .dropdown .dropdown-toggle {
+  color: inherit;
+}
+.panel-title {
+  margin-top: 0;
+  margin-bottom: 0;
+  font-size: 16px;
+  color: inherit;
+}
+.panel-title > a {
+  color: inherit;
+}
+.panel-footer {
+  padding: 10px 15px;
+  background-color: #f5f5f5;
+  border-top: 1px solid #dddddd;
+  border-bottom-right-radius: 3px;
+  border-bottom-left-radius: 3px;
+}
+.panel > .list-group,
+.panel > .panel-collapse > .list-group {
+  margin-bottom: 0;
+}
+.panel > .list-group .list-group-item,
+.panel > .panel-collapse > .list-group .list-group-item {
+  border-width: 1px 0;
+  border-radius: 0;
+}
+.panel > .list-group:first-child .list-group-item:first-child,
+.panel > .panel-collapse > .list-group:first-child .list-group-item:first-child {
+  border-top: 0;
+  border-top-right-radius: 3px;
+  border-top-left-radius: 3px;
+}
+.panel > .list-group:last-child .list-group-item:last-child,
+.panel > .panel-collapse > .list-group:last-child .list-group-item:last-child {
+  border-bottom: 0;
+  border-bottom-right-radius: 3px;
+  border-bottom-left-radius: 3px;
+}
+.panel-heading + .list-group .list-group-item:first-child {
+  border-top-width: 0;
+}
+.list-group + .panel-footer {
+  border-top-width: 0;
+}
+.panel > .table,
+.panel > .table-responsive > .table,
+.panel > .panel-collapse > .table {
+  margin-bottom: 0;
+}
+.panel > .table caption,
+.panel > .table-responsive > .table caption,
+.panel > .panel-collapse > .table caption {
+  padding-left: 15px;
+  padding-right: 15px;
+}
+.panel > .table:first-child,
+.panel > .table-responsive:first-child > .table:first-child {
+  border-top-right-radius: 3px;
+  border-top-left-radius: 3px;
+}
+.panel > .table:first-child > thead:first-child > tr:first-child,
+.panel > .table-responsive:first-child > .table:first-child > thead:first-child > tr:first-child,
+.panel > .table:first-child > tbody:first-child > tr:first-child,
+.panel > .table-responsive:first-child > .table:first-child > tbody:first-child > tr:first-child {
+  border-top-left-radius: 3px;
+  border-top-right-radius: 3px;
+}
+.panel > .table:first-child > thead:first-child > tr:first-child td:first-child,
+.panel > .table-responsive:first-child > .table:first-child > thead:first-child > tr:first-child td:first-child,
+.panel > .table:first-child > tbody:first-child > tr:first-child td:first-child,
+.panel > .table-responsive:first-child > .table:first-child > tbody:first-child > tr:first-child td:first-child,
+.panel > .table:first-child > thead:first-child > tr:first-child th:first-child,
+.panel > .table-responsive:first-child > .table:first-child > thead:first-child > tr:first-child th:first-child,
+.panel > .table:first-child > tbody:first-child > tr:first-child th:first-child,
+.panel > .table-responsive:first-child > .table:first-child > tbody:first-child > tr:first-child th:first-child {
+  border-top-left-radius: 3px;
+}
+.panel > .table:first-child > thead:first-child > tr:first-child td:last-child,
+.panel > .table-responsive:first-child > .table:first-child > thead:first-child > tr:first-child td:last-child,
+.panel > .table:first-child > tbody:first-child > tr:first-child td:last-child,
+.panel > .table-responsive:first-child > .table:first-child > tbody:first-child > tr:first-child td:last-child,
+.panel > .table:first-child > thead:first-child > tr:first-child th:last-child,
+.panel > .table-responsive:first-child > .table:first-child > thead:first-child > tr:first-child th:last-child,
+.panel > .table:first-child > tbody:first-child > tr:first-child th:last-child,
+.panel > .table-responsive:first-child > .table:first-child > tbody:first-child > tr:first-child th:last-child {
+  border-top-right-radius: 3px;
+}
+.panel > .table:last-child,
+.panel > .table-responsive:last-child > .table:last-child {
+  border-bottom-right-radius: 3px;
+  border-bottom-left-radius: 3px;
+}
+.panel > .table:last-child > tbody:last-child > tr:last-child,
+.panel > .table-responsive:last-child > .table:last-child > tbody:last-child > tr:last-child,
+.panel > .table:last-child > tfoot:last-child > tr:last-child,
+.panel > .table-responsive:last-child > .table:last-child > tfoot:last-child > tr:last-child {
+  border-bottom-left-radius: 3px;
+  border-bottom-right-radius: 3px;
+}
+.panel > .table:last-child > tbody:last-child > tr:last-child td:first-child,
+.panel > .table-responsive:last-child > .table:last-child > tbody:last-child > tr:last-child td:first-child,
+.panel > .table:last-child > tfoot:last-child > tr:last-child td:first-child,
+.panel > .table-responsive:last-child > .table:last-child > tfoot:last-child > tr:last-child td:first-child,
+.panel > .table:last-child > tbody:last-child > tr:last-child th:first-child,
+.panel > .table-responsive:last-child > .table:last-child > tbody:last-child > tr:last-child th:first-child,
+.panel > .table:last-child > tfoot:last-child > tr:last-child th:first-child,
+.panel > .table-responsive:last-child > .table:last-child > tfoot:last-child > tr:last-child th:first-child {
+  border-bottom-left-radius: 3px;
+}
+.panel > .table:last-child > tbody:last-child > tr:last-child td:last-child,
+.panel > .table-responsive:last-child > .table:last-child > tbody:last-child > tr:last-child td:last-child,
+.panel > .table:last-child > tfoot:last-child > tr:last-child td:last-child,
+.panel > .table-responsive:last-child > .table:last-child > tfoot:last-child > tr:last-child td:last-child,
+.panel > .table:last-child > tbody:last-child > tr:last-child th:last-child,
+.panel > .table-responsive:last-child > .table:last-child > tbody:last-child > tr:last-child th:last-child,
+.panel > .table:last-child > tfoot:last-child > tr:last-child th:last-child,
+.panel > .table-responsive:last-child > .table:last-child > tfoot:last-child > tr:last-child th:last-child {
+  border-bottom-right-radius: 3px;
+}
+.panel > .panel-body + .table,
+.panel > .panel-body + .table-responsive,
+.panel > .table + .panel-body,
+.panel > .table-responsive + .panel-body {
+  border-top: 1px solid #dddddd;
+}
+.panel > .table > tbody:first-child > tr:first-child th,
+.panel > .table > tbody:first-child > tr:first-child td {
+  border-top: 0;
+}
+.panel > .table-bordered,
+.panel > .table-responsive > .table-bordered {
+  border: 0;
+}
+.panel > .table-bordered > thead > tr > th:first-child,
+.panel > .table-responsive > .table-bordered > thead > tr > th:first-child,
+.panel > .table-bordered > tbody > tr > th:first-child,
+.panel > .table-responsive > .table-bordered > tbody > tr > th:first-child,
+.panel > .table-bordered > tfoot > tr > th:first-child,
+.panel > .table-responsive > .table-bordered > tfoot > tr > th:first-child,
+.panel > .table-bordered > thead > tr > td:first-child,
+.panel > .table-responsive > .table-bordered > thead > tr > td:first-child,
+.panel > .table-bordered > tbody > tr > td:first-child,
+.panel > .table-responsive > .table-bordered > tbody > tr > td:first-child,
+.panel > .table-bordered > tfoot > tr > td:first-child,
+.panel > .table-responsive > .table-bordered > tfoot > tr > td:first-child {
+  border-left: 0;
+}
+.panel > .table-bordered > thead > tr > th:last-child,
+.panel > .table-responsive > .table-bordered > thead > tr > th:last-child,
+.panel > .table-bordered > tbody > tr > th:last-child,
+.panel > .table-responsive > .table-bordered > tbody > tr > th:last-child,
+.panel > .table-bordered > tfoot > tr > th:last-child,
+.panel > .table-responsive > .table-bordered > tfoot > tr > th:last-child,
+.panel > .table-bordered > thead > tr > td:last-child,
+.panel > .table-responsive > .table-bordered > thead > tr > td:last-child,
+.panel > .table-bordered > tbody > tr > td:last-child,
+.panel > .table-responsive > .table-bordered > tbody > tr > td:last-child,
+.panel > .table-bordered > tfoot > tr > td:last-child,
+.panel > .table-responsive > .table-bordered > tfoot > tr > td:last-child {
+  border-right: 0;
+}
+.panel > .table-bordered > thead > tr:first-child > td,
+.panel > .table-responsive > .table-bordered > thead > tr:first-child > td,
+.panel > .table-bordered > tbody > tr:first-child > td,
+.panel > .table-responsive > .table-bordered > tbody > tr:first-child > td,
+.panel > .table-bordered > thead > tr:first-child > th,
+.panel > .table-responsive > .table-bordered > thead > tr:first-child > th,
+.panel > .table-bordered > tbody > tr:first-child > th,
+.panel > .table-responsive > .table-bordered > tbody > tr:first-child > th {
+  border-bottom: 0;
+}
+.panel > .table-bordered > tbody > tr:last-child > td,
+.panel > .table-responsive > .table-bordered > tbody > tr:last-child > td,
+.panel > .table-bordered > tfoot > tr:last-child > td,
+.panel > .table-responsive > .table-bordered > tfoot > tr:last-child > td,
+.panel > .table-bordered > tbody > tr:last-child > th,
+.panel > .table-responsive > .table-bordered > tbody > tr:last-child > th,
+.panel > .table-bordered > tfoot > tr:last-child > th,
+.panel > .table-responsive > .table-bordered > tfoot > tr:last-child > th {
+  border-bottom: 0;
+}
+.panel > .table-responsive {
+  border: 0;
+  margin-bottom: 0;
+}
+.panel-group {
+  margin-bottom: 20px;
+}
+.panel-group .panel {
+  margin-bottom: 0;
+  border-radius: 4px;
+}
+.panel-group .panel + .panel {
+  margin-top: 5px;
+}
+.panel-group .panel-heading {
+  border-bottom: 0;
+}
+.panel-group .panel-heading + .panel-collapse > .panel-body,
+.panel-group .panel-heading + .panel-collapse > .list-group {
+  border-top: 1px solid #dddddd;
+}
+.panel-group .panel-footer {
+  border-top: 0;
+}
+.panel-group .panel-footer + .panel-collapse .panel-body {
+  border-bottom: 1px solid #dddddd;
+}
+.panel-default {
+  border-color: #dddddd;
+}
+.panel-default > .panel-heading {
+  color: #333333;
+  background-color: #f5f5f5;
+  border-color: #dddddd;
+}
+.panel-default > .panel-heading + .panel-collapse > .panel-body {
+  border-top-color: #dddddd;
+}
+.panel-default > .panel-heading .badge {
+  color: #f5f5f5;
+  background-color: #333333;
+}
+.panel-default > .panel-footer + .panel-collapse > .panel-body {
+  border-bottom-color: #dddddd;
+}
+.panel-primary {
+  border-color: #337ab7;
+}
+.panel-primary > .panel-heading {
+  color: #ffffff;
+  background-color: #337ab7;
+  border-color: #337ab7;
+}
+.panel-primary > .panel-heading + .panel-collapse > .panel-body {
+  border-top-color: #337ab7;
+}
+.panel-primary > .panel-heading .badge {
+  color: #337ab7;
+  background-color: #ffffff;
+}
+.panel-primary > .panel-footer + .panel-collapse > .panel-body {
+  border-bottom-color: #337ab7;
+}
+.panel-success {
+  border-color: #d6e9c6;
+}
+.panel-success > .panel-heading {
+  color: #3c763d;
+  background-color: #dff0d8;
+  border-color: #d6e9c6;
+}
+.panel-success > .panel-heading + .panel-collapse > .panel-body {
+  border-top-color: #d6e9c6;
+}
+.panel-success > .panel-heading .badge {
+  color: #dff0d8;
+  background-color: #3c763d;
+}
+.panel-success > .panel-footer + .panel-collapse > .panel-body {
+  border-bottom-color: #d6e9c6;
+}
+.panel-info {
+  border-color: #bce8f1;
+}
+.panel-info > .panel-heading {
+  color: #31708f;
+  background-color: #d9edf7;
+  border-color: #bce8f1;
+}
+.panel-info > .panel-heading + .panel-collapse > .panel-body {
+  border-top-color: #bce8f1;
+}
+.panel-info > .panel-heading .badge {
+  color: #d9edf7;
+  background-color: #31708f;
+}
+.panel-info > .panel-footer + .panel-collapse > .panel-body {
+  border-bottom-color: #bce8f1;
+}
+.panel-warning {
+  border-color: #faebcc;
+}
+.panel-warning > .panel-heading {
+  color: #8a6d3b;
+  background-color: #fcf8e3;
+  border-color: #faebcc;
+}
+.panel-warning > .panel-heading + .panel-collapse > .panel-body {
+  border-top-color: #faebcc;
+}
+.panel-warning > .panel-heading .badge {
+  color: #fcf8e3;
+  background-color: #8a6d3b;
+}
+.panel-warning > .panel-footer + .panel-collapse > .panel-body {
+  border-bottom-color: #faebcc;
+}
+.panel-danger {
+  border-color: #ebccd1;
+}
+.panel-danger > .panel-heading {
+  color: #a94442;
+  background-color: #f2dede;
+  border-color: #ebccd1;
+}
+.panel-danger > .panel-heading + .panel-collapse > .panel-body {
+  border-top-color: #ebccd1;
+}
+.panel-danger > .panel-heading .badge {
+  color: #f2dede;
+  background-color: #a94442;
+}
+.panel-danger > .panel-footer + .panel-collapse > .panel-body {
+  border-bottom-color: #ebccd1;
+}
+.embed-responsive {
+  position: relative;
+  display: block;
+  height: 0;
+  padding: 0;
+  overflow: hidden;
+}
+.embed-responsive .embed-responsive-item,
+.embed-responsive iframe,
+.embed-responsive embed,
+.embed-responsive object,
+.embed-responsive video {
+  position: absolute;
+  top: 0;
+  left: 0;
+  bottom: 0;
+  height: 100%;
+  width: 100%;
+  border: 0;
+}
+.embed-responsive.embed-responsive-16by9 {
+  padding-bottom: 56.25%;
+}
+.embed-responsive.embed-responsive-4by3 {
+  padding-bottom: 75%;
+}
+.well {
+  min-height: 20px;
+  padding: 19px;
+  margin-bottom: 20px;
+  background-color: #f5f5f5;
+  border: 1px solid #e3e3e3;
+  border-radius: 4px;
+  -webkit-box-shadow: inset 0 1px 1px rgba(0, 0, 0, 0.05);
+  box-shadow: inset 0 1px 1px rgba(0, 0, 0, 0.05);
+}
+.well blockquote {
+  border-color: #ddd;
+  border-color: rgba(0, 0, 0, 0.15);
+}
+.well-lg {
+  padding: 24px;
+  border-radius: 6px;
+}
+.well-sm {
+  padding: 9px;
+  border-radius: 3px;
+}
+.close {
+  float: right;
+  font-size: 21px;
+  font-weight: bold;
+  line-height: 1;
+  color: #000000;
+  text-shadow: 0 1px 0 #ffffff;
+  opacity: 0.2;
+  filter: alpha(opacity=20);
+}
+.close:hover,
+.close:focus {
+  color: #000000;
+  text-decoration: none;
+  cursor: pointer;
+  opacity: 0.5;
+  filter: alpha(opacity=50);
+}
+button.close {
+  padding: 0;
+  cursor: pointer;
+  background: transparent;
+  border: 0;
+  -webkit-appearance: none;
+}
+.modal-open {
+  overflow: hidden;
+}
+.modal {
+  display: none;
+  overflow: hidden;
+  position: fixed;
+  top: 0;
+  right: 0;
+  bottom: 0;
+  left: 0;
+  z-index: 1040;
+  -webkit-overflow-scrolling: touch;
+  outline: 0;
+}
+.modal.fade .modal-dialog {
+  -webkit-transform: translate(0, -25%);
+  -ms-transform: translate(0, -25%);
+  -o-transform: translate(0, -25%);
+  transform: translate(0, -25%);
+  -webkit-transition: -webkit-transform 0.3s ease-out;
+  -o-transition: -o-transform 0.3s ease-out;
+  transition: transform 0.3s ease-out;
+}
+.modal.in .modal-dialog {
+  -webkit-transform: translate(0, 0);
+  -ms-transform: translate(0, 0);
+  -o-transform: translate(0, 0);
+  transform: translate(0, 0);
+}
+.modal-open .modal {
+  overflow-x: hidden;
+  overflow-y: auto;
+}
+.modal-dialog {
+  position: relative;
+  width: auto;
+  margin: 10px;
+}
+.modal-content {
+  position: relative;
+  background-color: #ffffff;
+  border: 1px solid #999999;
+  border: 1px solid rgba(0, 0, 0, 0.2);
+  border-radius: 6px;
+  -webkit-box-shadow: 0 3px 9px rgba(0, 0, 0, 0.5);
+  box-shadow: 0 3px 9px rgba(0, 0, 0, 0.5);
+  -webkit-background-clip: padding-box;
+          background-clip: padding-box;
+  outline: 0;
+}
+.modal-backdrop {
+  position: absolute;
+  top: 0;
+  right: 0;
+  left: 0;
+  background-color: #000000;
+}
+.modal-backdrop.fade {
+  opacity: 0;
+  filter: alpha(opacity=0);
+}
+.modal-backdrop.in {
+  opacity: 0.5;
+  filter: alpha(opacity=50);
+}
+.modal-header {
+  padding: 15px;
+  border-bottom: 1px solid #e5e5e5;
+  min-height: 16.42857143px;
+}
+.modal-header .close {
+  margin-top: -2px;
+}
+.modal-title {
+  margin: 0;
+  line-height: 1.42857143;
+}
+.modal-body {
+  position: relative;
+  padding: 15px;
+}
+.modal-footer {
+  padding: 15px;
+  text-align: right;
+  border-top: 1px solid #e5e5e5;
+}
+.modal-footer .btn + .btn {
+  margin-left: 5px;
+  margin-bottom: 0;
+}
+.modal-footer .btn-group .btn + .btn {
+  margin-left: -1px;
+}
+.modal-footer .btn-block + .btn-block {
+  margin-left: 0;
+}
+.modal-scrollbar-measure {
+  position: absolute;
+  top: -9999px;
+  width: 50px;
+  height: 50px;
+  overflow: scroll;
+}
+@media (min-width: 768px) {
+  .modal-dialog {
+    width: 600px;
+    margin: 30px auto;
+  }
+  .modal-content {
+    -webkit-box-shadow: 0 5px 15px rgba(0, 0, 0, 0.5);
+    box-shadow: 0 5px 15px rgba(0, 0, 0, 0.5);
+  }
+  .modal-sm {
+    width: 300px;
+  }
+}
+@media (min-width: 992px) {
+  .modal-lg {
+    width: 900px;
+  }
+}
+.tooltip {
+  position: absolute;
+  z-index: 1070;
+  display: block;
+  visibility: visible;
+  font-family: "Helvetica Neue", Helvetica, Arial, sans-serif;
+  font-size: 12px;
+  font-weight: normal;
+  line-height: 1.4;
+  opacity: 0;
+  filter: alpha(opacity=0);
+}
+.tooltip.in {
+  opacity: 0.9;
+  filter: alpha(opacity=90);
+}
+.tooltip.top {
+  margin-top: -3px;
+  padding: 5px 0;
+}
+.tooltip.right {
+  margin-left: 3px;
+  padding: 0 5px;
+}
+.tooltip.bottom {
+  margin-top: 3px;
+  padding: 5px 0;
+}
+.tooltip.left {
+  margin-left: -3px;
+  padding: 0 5px;
+}
+.tooltip-inner {
+  max-width: 200px;
+  padding: 3px 8px;
+  color: #ffffff;
+  text-align: center;
+  text-decoration: none;
+  background-color: #000000;
+  border-radius: 4px;
+}
+.tooltip-arrow {
+  position: absolute;
+  width: 0;
+  height: 0;
+  border-color: transparent;
+  border-style: solid;
+}
+.tooltip.top .tooltip-arrow {
+  bottom: 0;
+  left: 50%;
+  margin-left: -5px;
+  border-width: 5px 5px 0;
+  border-top-color: #000000;
+}
+.tooltip.top-left .tooltip-arrow {
+  bottom: 0;
+  right: 5px;
+  margin-bottom: -5px;
+  border-width: 5px 5px 0;
+  border-top-color: #000000;
+}
+.tooltip.top-right .tooltip-arrow {
+  bottom: 0;
+  left: 5px;
+  margin-bottom: -5px;
+  border-width: 5px 5px 0;
+  border-top-color: #000000;
+}
+.tooltip.right .tooltip-arrow {
+  top: 50%;
+  left: 0;
+  margin-top: -5px;
+  border-width: 5px 5px 5px 0;
+  border-right-color: #000000;
+}
+.tooltip.left .tooltip-arrow {
+  top: 50%;
+  right: 0;
+  margin-top: -5px;
+  border-width: 5px 0 5px 5px;
+  border-left-color: #000000;
+}
+.tooltip.bottom .tooltip-arrow {
+  top: 0;
+  left: 50%;
+  margin-left: -5px;
+  border-width: 0 5px 5px;
+  border-bottom-color: #000000;
+}
+.tooltip.bottom-left .tooltip-arrow {
+  top: 0;
+  right: 5px;
+  margin-top: -5px;
+  border-width: 0 5px 5px;
+  border-bottom-color: #000000;
+}
+.tooltip.bottom-right .tooltip-arrow {
+  top: 0;
+  left: 5px;
+  margin-top: -5px;
+  border-width: 0 5px 5px;
+  border-bottom-color: #000000;
+}
+.popover {
+  position: absolute;
+  top: 0;
+  left: 0;
+  z-index: 1060;
+  display: none;
+  max-width: 276px;
+  padding: 1px;
+  font-family: "Helvetica Neue", Helvetica, Arial, sans-serif;
+  font-size: 14px;
+  font-weight: normal;
+  line-height: 1.42857143;
+  text-align: left;
+  background-color: #ffffff;
+  -webkit-background-clip: padding-box;
+          background-clip: padding-box;
+  border: 1px solid #cccccc;
+  border: 1px solid rgba(0, 0, 0, 0.2);
+  border-radius: 6px;
+  -webkit-box-shadow: 0 5px 10px rgba(0, 0, 0, 0.2);
+  box-shadow: 0 5px 10px rgba(0, 0, 0, 0.2);
+  white-space: normal;
+}
+.popover.top {
+  margin-top: -10px;
+}
+.popover.right {
+  margin-left: 10px;
+}
+.popover.bottom {
+  margin-top: 10px;
+}
+.popover.left {
+  margin-left: -10px;
+}
+.popover-title {
+  margin: 0;
+  padding: 8px 14px;
+  font-size: 14px;
+  background-color: #f7f7f7;
+  border-bottom: 1px solid #ebebeb;
+  border-radius: 5px 5px 0 0;
+}
+.popover-content {
+  padding: 9px 14px;
+}
+.popover > .arrow,
+.popover > .arrow:after {
+  position: absolute;
+  display: block;
+  width: 0;
+  height: 0;
+  border-color: transparent;
+  border-style: solid;
+}
+.popover > .arrow {
+  border-width: 11px;
+}
+.popover > .arrow:after {
+  border-width: 10px;
+  content: "";
+}
+.popover.top > .arrow {
+  left: 50%;
+  margin-left: -11px;
+  border-bottom-width: 0;
+  border-top-color: #999999;
+  border-top-color: rgba(0, 0, 0, 0.25);
+  bottom: -11px;
+}
+.popover.top > .arrow:after {
+  content: " ";
+  bottom: 1px;
+  margin-left: -10px;
+  border-bottom-width: 0;
+  border-top-color: #ffffff;
+}
+.popover.right > .arrow {
+  top: 50%;
+  left: -11px;
+  margin-top: -11px;
+  border-left-width: 0;
+  border-right-color: #999999;
+  border-right-color: rgba(0, 0, 0, 0.25);
+}
+.popover.right > .arrow:after {
+  content: " ";
+  left: 1px;
+  bottom: -10px;
+  border-left-width: 0;
+  border-right-color: #ffffff;
+}
+.popover.bottom > .arrow {
+  left: 50%;
+  margin-left: -11px;
+  border-top-width: 0;
+  border-bottom-color: #999999;
+  border-bottom-color: rgba(0, 0, 0, 0.25);
+  top: -11px;
+}
+.popover.bottom > .arrow:after {
+  content: " ";
+  top: 1px;
+  margin-left: -10px;
+  border-top-width: 0;
+  border-bottom-color: #ffffff;
+}
+.popover.left > .arrow {
+  top: 50%;
+  right: -11px;
+  margin-top: -11px;
+  border-right-width: 0;
+  border-left-color: #999999;
+  border-left-color: rgba(0, 0, 0, 0.25);
+}
+.popover.left > .arrow:after {
+  content: " ";
+  right: 1px;
+  border-right-width: 0;
+  border-left-color: #ffffff;
+  bottom: -10px;
+}
+.clearfix:before,
+.clearfix:after,
+.dl-horizontal dd:before,
+.dl-horizontal dd:after,
+.container:before,
+.container:after,
+.container-fluid:before,
+.container-fluid:after,
+.row:before,
+.row:after,
+.form-horizontal .form-group:before,
+.form-horizontal .form-group:after,
+.btn-toolbar:before,
+.btn-toolbar:after,
+.btn-group-vertical > .btn-group:before,
+.btn-group-vertical > .btn-group:after,
+.nav:before,
+.nav:after,
+.navbar:before,
+.navbar:after,
+.navbar-header:before,
+.navbar-header:after,
+.navbar-collapse:before,
+.navbar-collapse:after,
+.pager:before,
+.pager:after,
+.panel-body:before,
+.panel-body:after,
+.modal-footer:before,
+.modal-footer:after {
+  content: " ";
+  display: table;
+}
+.clearfix:after,
+.dl-horizontal dd:after,
+.container:after,
+.container-fluid:after,
+.row:after,
+.form-horizontal .form-group:after,
+.btn-toolbar:after,
+.btn-group-vertical > .btn-group:after,
+.nav:after,
+.navbar:after,
+.navbar-header:after,
+.navbar-collapse:after,
+.pager:after,
+.panel-body:after,
+.modal-footer:after {
+  clear: both;
+}
+.center-block {
+  display: block;
+  margin-left: auto;
+  margin-right: auto;
+}
+.pull-right {
+  float: right !important;
+}
+.pull-left {
+  float: left !important;
+}
+.hide {
+  display: none !important;
+}
+.show {
+  display: block !important;
+}
+.invisible {
+  visibility: hidden;
+}
+.text-hide {
+  font: 0/0 a;
+  color: transparent;
+  text-shadow: none;
+  background-color: transparent;
+  border: 0;
+}
+.hidden {
+  display: none !important;
+  visibility: hidden !important;
+}
+.affix {
+  position: fixed;
+}
+@-ms-viewport {
+  width: device-width;
+}
+.visible-xs,
+.visible-sm,
+.visible-md,
+.visible-lg {
+  display: none !important;
+}
+.visible-xs-block,
+.visible-xs-inline,
+.visible-xs-inline-block,
+.visible-sm-block,
+.visible-sm-inline,
+.visible-sm-inline-block,
+.visible-md-block,
+.visible-md-inline,
+.visible-md-inline-block,
+.visible-lg-block,
+.visible-lg-inline,
+.visible-lg-inline-block {
+  display: none !important;
+}
+@media (max-width: 767px) {
+  .visible-xs {
+    display: block !important;
+  }
+  table.visible-xs {
+    display: table;
+  }
+  tr.visible-xs {
+    display: table-row !important;
+  }
+  th.visible-xs,
+  td.visible-xs {
+    display: table-cell !important;
+  }
+}
+@media (max-width: 767px) {
+  .visible-xs-block {
+    display: block !important;
+  }
+}
+@media (max-width: 767px) {
+  .visible-xs-inline {
+    display: inline !important;
+  }
+}
+@media (max-width: 767px) {
+  .visible-xs-inline-block {
+    display: inline-block !important;
+  }
+}
+@media (min-width: 768px) and (max-width: 991px) {
+  .visible-sm {
+    display: block !important;
+  }
+  table.visible-sm {
+    display: table;
+  }
+  tr.visible-sm {
+    display: table-row !important;
+  }
+  th.visible-sm,
+  td.visible-sm {
+    display: table-cell !important;
+  }
+}
+@media (min-width: 768px) and (max-width: 991px) {
+  .visible-sm-block {
+    display: block !important;
+  }
+}
+@media (min-width: 768px) and (max-width: 991px) {
+  .visible-sm-inline {
+    display: inline !important;
+  }
+}
+@media (min-width: 768px) and (max-width: 991px) {
+  .visible-sm-inline-block {
+    display: inline-block !important;
+  }
+}
+@media (min-width: 992px) and (max-width: 1199px) {
+  .visible-md {
+    display: block !important;
+  }
+  table.visible-md {
+    display: table;
+  }
+  tr.visible-md {
+    display: table-row !important;
+  }
+  th.visible-md,
+  td.visible-md {
+    display: table-cell !important;
+  }
+}
+@media (min-width: 992px) and (max-width: 1199px) {
+  .visible-md-block {
+    display: block !important;
+  }
+}
+@media (min-width: 992px) and (max-width: 1199px) {
+  .visible-md-inline {
+    display: inline !important;
+  }
+}
+@media (min-width: 992px) and (max-width: 1199px) {
+  .visible-md-inline-block {
+    display: inline-block !important;
+  }
+}
+@media (min-width: 1200px) {
+  .visible-lg {
+    display: block !important;
+  }
+  table.visible-lg {
+    display: table;
+  }
+  tr.visible-lg {
+    display: table-row !important;
+  }
+  th.visible-lg,
+  td.visible-lg {
+    display: table-cell !important;
+  }
+}
+@media (min-width: 1200px) {
+  .visible-lg-block {
+    display: block !important;
+  }
+}
+@media (min-width: 1200px) {
+  .visible-lg-inline {
+    display: inline !important;
+  }
+}
+@media (min-width: 1200px) {
+  .visible-lg-inline-block {
+    display: inline-block !important;
+  }
+}
+@media (max-width: 767px) {
+  .hidden-xs {
+    display: none !important;
+  }
+}
+@media (min-width: 768px) and (max-width: 991px) {
+  .hidden-sm {
+    display: none !important;
+  }
+}
+@media (min-width: 992px) and (max-width: 1199px) {
+  .hidden-md {
+    display: none !important;
+  }
+}
+@media (min-width: 1200px) {
+  .hidden-lg {
+    display: none !important;
+  }
+}
+.visible-print {
+  display: none !important;
+}
+@media print {
+  .visible-print {
+    display: block !important;
+  }
+  table.visible-print {
+    display: table;
+  }
+  tr.visible-print {
+    display: table-row !important;
+  }
+  th.visible-print,
+  td.visible-print {
+    display: table-cell !important;
+  }
+}
+.visible-print-block {
+  display: none !important;
+}
+@media print {
+  .visible-print-block {
+    display: block !important;
+  }
+}
+.visible-print-inline {
+  display: none !important;
+}
+@media print {
+  .visible-print-inline {
+    display: inline !important;
+  }
+}
+.visible-print-inline-block {
+  display: none !important;
+}
+@media print {
+  .visible-print-inline-block {
+    display: inline-block !important;
+  }
+}
+@media print {
+  .hidden-print {
+    display: none !important;
+  }
+}
diff --git a/reference/rte-fortran-interface/css/bootstrap.min.css b/reference/rte-fortran-interface/css/bootstrap.min.css
new file mode 100644
index 000000000..a40d9432f
--- /dev/null
+++ b/reference/rte-fortran-interface/css/bootstrap.min.css
@@ -0,0 +1,10 @@
+/*!
+ * Bootstrap v3.3.1 (http://getbootstrap.com)
+ * Copyright 2011-2014 Twitter, Inc.
+ * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LICENSE)
+ */
+
+/*!
+ * Generated using the Bootstrap Customizer (http://getbootstrap.com/customize/?id=f8210fe4edf87d7604a7)
+ * Config saved to config.json and https://gist.github.com/f8210fe4edf87d7604a7
+ *//*! normalize.css v3.0.2 | MIT License | git.io/normalize */html{font-family:sans-serif;-ms-text-size-adjust:100%;-webkit-text-size-adjust:100%}body{margin:0}article,aside,details,figcaption,figure,footer,header,hgroup,main,menu,nav,section,summary{display:block}audio,canvas,progress,video{display:inline-block;vertical-align:baseline}audio:not([controls]){display:none;height:0}[hidden],template{display:none}a{background-color:transparent}a:active,a:hover{outline:0}abbr[title]{border-bottom:1px dotted}b,strong{font-weight:bold}dfn{font-style:italic}h1{font-size:2em;margin:0.67em 0}mark{background:#ff0;color:#000}small{font-size:80%}sub,sup{font-size:75%;line-height:0;position:relative;vertical-align:baseline}sup{top:-0.5em}sub{bottom:-0.25em}img{border:0}svg:not(:root){overflow:hidden}figure{margin:1em 40px}hr{-moz-box-sizing:content-box;-webkit-box-sizing:content-box;box-sizing:content-box;height:0}pre{overflow:auto}code,kbd,pre,samp{font-family:monospace, monospace;font-size:1em}button,input,optgroup,select,textarea{color:inherit;font:inherit;margin:0}button{overflow:visible}button,select{text-transform:none}button,html input[type="button"],input[type="reset"],input[type="submit"]{-webkit-appearance:button;cursor:pointer}button[disabled],html input[disabled]{cursor:default}button::-moz-focus-inner,input::-moz-focus-inner{border:0;padding:0}input{line-height:normal}input[type="checkbox"],input[type="radio"]{-webkit-box-sizing:border-box;-moz-box-sizing:border-box;box-sizing:border-box;padding:0}input[type="number"]::-webkit-inner-spin-button,input[type="number"]::-webkit-outer-spin-button{height:auto}input[type="search"]{-webkit-appearance:textfield;-moz-box-sizing:content-box;-webkit-box-sizing:content-box;box-sizing:content-box}input[type="search"]::-webkit-search-cancel-button,input[type="search"]::-webkit-search-decoration{-webkit-appearance:none}fieldset{border:1px solid #c0c0c0;margin:0 2px;padding:0.35em 0.625em 0.75em}legend{border:0;padding:0}textarea{overflow:auto}optgroup{font-weight:bold}table{border-collapse:collapse;border-spacing:0}td,th{padding:0}/*! Source: https://github.com/h5bp/html5-boilerplate/blob/master/src/css/main.css */@media print{*,*:before,*:after{background:transparent !important;color:#000 !important;-webkit-box-shadow:none !important;box-shadow:none !important;text-shadow:none !important}a,a:visited{text-decoration:underline}a[href]:after{content:" (" attr(href) ")"}abbr[title]:after{content:" (" attr(title) ")"}a[href^="#"]:after,a[href^="javascript:"]:after{content:""}pre,blockquote{border:1px solid #999;page-break-inside:avoid}thead{display:table-header-group}tr,img{page-break-inside:avoid}img{max-width:100% !important}p,h2,h3{orphans:3;widows:3}h2,h3{page-break-after:avoid}select{background:#fff !important}.navbar{display:none}.btn>.caret,.dropup>.btn>.caret{border-top-color:#000 !important}.label{border:1px solid #000}.table{border-collapse:collapse !important}.table td,.table th{background-color:#fff !important}.table-bordered th,.table-bordered td{border:1px solid #ddd !important}}@font-face{font-family:'Glyphicons Halflings';src:url('../fonts/glyphicons-halflings-regular.eot');src:url('../fonts/glyphicons-halflings-regular.eot?#iefix') format('embedded-opentype'),url('../fonts/glyphicons-halflings-regular.woff') format('woff'),url('../fonts/glyphicons-halflings-regular.ttf') format('truetype'),url('../fonts/glyphicons-halflings-regular.svg#glyphicons_halflingsregular') format('svg')}.glyphicon{position:relative;top:1px;display:inline-block;font-family:'Glyphicons Halflings';font-style:normal;font-weight:normal;line-height:1;-webkit-font-smoothing:antialiased;-moz-osx-font-smoothing:grayscale}.glyphicon-asterisk:before{content:"\2a"}.glyphicon-plus:before{content:"\2b"}.glyphicon-euro:before,.glyphicon-eur:before{content:"\20ac"}.glyphicon-minus:before{content:"\2212"}.glyphicon-cloud:before{content:"\2601"}.glyphicon-envelope:before{content:"\2709"}.glyphicon-pencil:before{content:"\270f"}.glyphicon-glass:before{content:"\e001"}.glyphicon-music:before{content:"\e002"}.glyphicon-search:before{content:"\e003"}.glyphicon-heart:before{content:"\e005"}.glyphicon-star:before{content:"\e006"}.glyphicon-star-empty:before{content:"\e007"}.glyphicon-user:before{content:"\e008"}.glyphicon-film:before{content:"\e009"}.glyphicon-th-large:before{content:"\e010"}.glyphicon-th:before{content:"\e011"}.glyphicon-th-list:before{content:"\e012"}.glyphicon-ok:before{content:"\e013"}.glyphicon-remove:before{content:"\e014"}.glyphicon-zoom-in:before{content:"\e015"}.glyphicon-zoom-out:before{content:"\e016"}.glyphicon-off:before{content:"\e017"}.glyphicon-signal:before{content:"\e018"}.glyphicon-cog:before{content:"\e019"}.glyphicon-trash:before{content:"\e020"}.glyphicon-home:before{content:"\e021"}.glyphicon-file:before{content:"\e022"}.glyphicon-time:before{content:"\e023"}.glyphicon-road:before{content:"\e024"}.glyphicon-download-alt:before{content:"\e025"}.glyphicon-download:before{content:"\e026"}.glyphicon-upload:before{content:"\e027"}.glyphicon-inbox:before{content:"\e028"}.glyphicon-play-circle:before{content:"\e029"}.glyphicon-repeat:before{content:"\e030"}.glyphicon-refresh:before{content:"\e031"}.glyphicon-list-alt:before{content:"\e032"}.glyphicon-lock:before{content:"\e033"}.glyphicon-flag:before{content:"\e034"}.glyphicon-headphones:before{content:"\e035"}.glyphicon-volume-off:before{content:"\e036"}.glyphicon-volume-down:before{content:"\e037"}.glyphicon-volume-up:before{content:"\e038"}.glyphicon-qrcode:before{content:"\e039"}.glyphicon-barcode:before{content:"\e040"}.glyphicon-tag:before{content:"\e041"}.glyphicon-tags:before{content:"\e042"}.glyphicon-book:before{content:"\e043"}.glyphicon-bookmark:before{content:"\e044"}.glyphicon-print:before{content:"\e045"}.glyphicon-camera:before{content:"\e046"}.glyphicon-font:before{content:"\e047"}.glyphicon-bold:before{content:"\e048"}.glyphicon-italic:before{content:"\e049"}.glyphicon-text-height:before{content:"\e050"}.glyphicon-text-width:before{content:"\e051"}.glyphicon-align-left:before{content:"\e052"}.glyphicon-align-center:before{content:"\e053"}.glyphicon-align-right:before{content:"\e054"}.glyphicon-align-justify:before{content:"\e055"}.glyphicon-list:before{content:"\e056"}.glyphicon-indent-left:before{content:"\e057"}.glyphicon-indent-right:before{content:"\e058"}.glyphicon-facetime-video:before{content:"\e059"}.glyphicon-picture:before{content:"\e060"}.glyphicon-map-marker:before{content:"\e062"}.glyphicon-adjust:before{content:"\e063"}.glyphicon-tint:before{content:"\e064"}.glyphicon-edit:before{content:"\e065"}.glyphicon-share:before{content:"\e066"}.glyphicon-check:before{content:"\e067"}.glyphicon-move:before{content:"\e068"}.glyphicon-step-backward:before{content:"\e069"}.glyphicon-fast-backward:before{content:"\e070"}.glyphicon-backward:before{content:"\e071"}.glyphicon-play:before{content:"\e072"}.glyphicon-pause:before{content:"\e073"}.glyphicon-stop:before{content:"\e074"}.glyphicon-forward:before{content:"\e075"}.glyphicon-fast-forward:before{content:"\e076"}.glyphicon-step-forward:before{content:"\e077"}.glyphicon-eject:before{content:"\e078"}.glyphicon-chevron-left:before{content:"\e079"}.glyphicon-chevron-right:before{content:"\e080"}.glyphicon-plus-sign:before{content:"\e081"}.glyphicon-minus-sign:before{content:"\e082"}.glyphicon-remove-sign:before{content:"\e083"}.glyphicon-ok-sign:before{content:"\e084"}.glyphicon-question-sign:before{content:"\e085"}.glyphicon-info-sign:before{content:"\e086"}.glyphicon-screenshot:before{content:"\e087"}.glyphicon-remove-circle:before{content:"\e088"}.glyphicon-ok-circle:before{content:"\e089"}.glyphicon-ban-circle:before{content:"\e090"}.glyphicon-arrow-left:before{content:"\e091"}.glyphicon-arrow-right:before{content:"\e092"}.glyphicon-arrow-up:before{content:"\e093"}.glyphicon-arrow-down:before{content:"\e094"}.glyphicon-share-alt:before{content:"\e095"}.glyphicon-resize-full:before{content:"\e096"}.glyphicon-resize-small:before{content:"\e097"}.glyphicon-exclamation-sign:before{content:"\e101"}.glyphicon-gift:before{content:"\e102"}.glyphicon-leaf:before{content:"\e103"}.glyphicon-fire:before{content:"\e104"}.glyphicon-eye-open:before{content:"\e105"}.glyphicon-eye-close:before{content:"\e106"}.glyphicon-warning-sign:before{content:"\e107"}.glyphicon-plane:before{content:"\e108"}.glyphicon-calendar:before{content:"\e109"}.glyphicon-random:before{content:"\e110"}.glyphicon-comment:before{content:"\e111"}.glyphicon-magnet:before{content:"\e112"}.glyphicon-chevron-up:before{content:"\e113"}.glyphicon-chevron-down:before{content:"\e114"}.glyphicon-retweet:before{content:"\e115"}.glyphicon-shopping-cart:before{content:"\e116"}.glyphicon-folder-close:before{content:"\e117"}.glyphicon-folder-open:before{content:"\e118"}.glyphicon-resize-vertical:before{content:"\e119"}.glyphicon-resize-horizontal:before{content:"\e120"}.glyphicon-hdd:before{content:"\e121"}.glyphicon-bullhorn:before{content:"\e122"}.glyphicon-bell:before{content:"\e123"}.glyphicon-certificate:before{content:"\e124"}.glyphicon-thumbs-up:before{content:"\e125"}.glyphicon-thumbs-down:before{content:"\e126"}.glyphicon-hand-right:before{content:"\e127"}.glyphicon-hand-left:before{content:"\e128"}.glyphicon-hand-up:before{content:"\e129"}.glyphicon-hand-down:before{content:"\e130"}.glyphicon-circle-arrow-right:before{content:"\e131"}.glyphicon-circle-arrow-left:before{content:"\e132"}.glyphicon-circle-arrow-up:before{content:"\e133"}.glyphicon-circle-arrow-down:before{content:"\e134"}.glyphicon-globe:before{content:"\e135"}.glyphicon-wrench:before{content:"\e136"}.glyphicon-tasks:before{content:"\e137"}.glyphicon-filter:before{content:"\e138"}.glyphicon-briefcase:before{content:"\e139"}.glyphicon-fullscreen:before{content:"\e140"}.glyphicon-dashboard:before{content:"\e141"}.glyphicon-paperclip:before{content:"\e142"}.glyphicon-heart-empty:before{content:"\e143"}.glyphicon-link:before{content:"\e144"}.glyphicon-phone:before{content:"\e145"}.glyphicon-pushpin:before{content:"\e146"}.glyphicon-usd:before{content:"\e148"}.glyphicon-gbp:before{content:"\e149"}.glyphicon-sort:before{content:"\e150"}.glyphicon-sort-by-alphabet:before{content:"\e151"}.glyphicon-sort-by-alphabet-alt:before{content:"\e152"}.glyphicon-sort-by-order:before{content:"\e153"}.glyphicon-sort-by-order-alt:before{content:"\e154"}.glyphicon-sort-by-attributes:before{content:"\e155"}.glyphicon-sort-by-attributes-alt:before{content:"\e156"}.glyphicon-unchecked:before{content:"\e157"}.glyphicon-expand:before{content:"\e158"}.glyphicon-collapse-down:before{content:"\e159"}.glyphicon-collapse-up:before{content:"\e160"}.glyphicon-log-in:before{content:"\e161"}.glyphicon-flash:before{content:"\e162"}.glyphicon-log-out:before{content:"\e163"}.glyphicon-new-window:before{content:"\e164"}.glyphicon-record:before{content:"\e165"}.glyphicon-save:before{content:"\e166"}.glyphicon-open:before{content:"\e167"}.glyphicon-saved:before{content:"\e168"}.glyphicon-import:before{content:"\e169"}.glyphicon-export:before{content:"\e170"}.glyphicon-send:before{content:"\e171"}.glyphicon-floppy-disk:before{content:"\e172"}.glyphicon-floppy-saved:before{content:"\e173"}.glyphicon-floppy-remove:before{content:"\e174"}.glyphicon-floppy-save:before{content:"\e175"}.glyphicon-floppy-open:before{content:"\e176"}.glyphicon-credit-card:before{content:"\e177"}.glyphicon-transfer:before{content:"\e178"}.glyphicon-cutlery:before{content:"\e179"}.glyphicon-header:before{content:"\e180"}.glyphicon-compressed:before{content:"\e181"}.glyphicon-earphone:before{content:"\e182"}.glyphicon-phone-alt:before{content:"\e183"}.glyphicon-tower:before{content:"\e184"}.glyphicon-stats:before{content:"\e185"}.glyphicon-sd-video:before{content:"\e186"}.glyphicon-hd-video:before{content:"\e187"}.glyphicon-subtitles:before{content:"\e188"}.glyphicon-sound-stereo:before{content:"\e189"}.glyphicon-sound-dolby:before{content:"\e190"}.glyphicon-sound-5-1:before{content:"\e191"}.glyphicon-sound-6-1:before{content:"\e192"}.glyphicon-sound-7-1:before{content:"\e193"}.glyphicon-copyright-mark:before{content:"\e194"}.glyphicon-registration-mark:before{content:"\e195"}.glyphicon-cloud-download:before{content:"\e197"}.glyphicon-cloud-upload:before{content:"\e198"}.glyphicon-tree-conifer:before{content:"\e199"}.glyphicon-tree-deciduous:before{content:"\e200"}*{-webkit-box-sizing:border-box;-moz-box-sizing:border-box;box-sizing:border-box}*:before,*:after{-webkit-box-sizing:border-box;-moz-box-sizing:border-box;box-sizing:border-box}html{font-size:10px;-webkit-tap-highlight-color:rgba(0,0,0,0)}body{font-family:"Helvetica Neue",Helvetica,Arial,sans-serif;font-size:14px;line-height:1.42857143;color:#333;background-color:#fff}input,button,select,textarea{font-family:inherit;font-size:inherit;line-height:inherit}a{color:#337ab7;text-decoration:none}a:hover,a:focus{color:#23527c;text-decoration:underline}a:focus{outline:thin dotted;outline:5px auto -webkit-focus-ring-color;outline-offset:-2px}figure{margin:0}img{vertical-align:middle}.img-responsive,.thumbnail>img,.thumbnail a>img{display:block;max-width:100%;height:auto}.img-rounded{border-radius:6px}.img-thumbnail{padding:4px;line-height:1.42857143;background-color:#fff;border:1px solid #ddd;border-radius:4px;-webkit-transition:all .2s ease-in-out;-o-transition:all .2s ease-in-out;transition:all .2s ease-in-out;display:inline-block;max-width:100%;height:auto}.img-circle{border-radius:50%}hr{margin-top:20px;margin-bottom:20px;border:0;border-top:1px solid #eee}.sr-only{position:absolute;width:1px;height:1px;margin:-1px;padding:0;overflow:hidden;clip:rect(0, 0, 0, 0);border:0}.sr-only-focusable:active,.sr-only-focusable:focus{position:static;width:auto;height:auto;margin:0;overflow:visible;clip:auto}h1,h2,h3,h4,h5,h6,.h1,.h2,.h3,.h4,.h5,.h6{font-family:inherit;font-weight:500;line-height:1.1;color:inherit}h1 small,h2 small,h3 small,h4 small,h5 small,h6 small,.h1 small,.h2 small,.h3 small,.h4 small,.h5 small,.h6 small,h1 .small,h2 .small,h3 .small,h4 .small,h5 .small,h6 .small,.h1 .small,.h2 .small,.h3 .small,.h4 .small,.h5 .small,.h6 .small{font-weight:normal;line-height:1;color:#777}h1,.h1,h2,.h2,h3,.h3{margin-top:20px;margin-bottom:10px}h1 small,.h1 small,h2 small,.h2 small,h3 small,.h3 small,h1 .small,.h1 .small,h2 .small,.h2 .small,h3 .small,.h3 .small{font-size:65%}h4,.h4,h5,.h5,h6,.h6{margin-top:10px;margin-bottom:10px}h4 small,.h4 small,h5 small,.h5 small,h6 small,.h6 small,h4 .small,.h4 .small,h5 .small,.h5 .small,h6 .small,.h6 .small{font-size:75%}h1,.h1{font-size:36px}h2,.h2{font-size:30px}h3,.h3{font-size:24px}h4,.h4{font-size:18px}h5,.h5{font-size:14px}h6,.h6{font-size:12px}p{margin:0 0 10px}.lead{margin-bottom:20px;font-size:16px;font-weight:300;line-height:1.4}@media (min-width:768px){.lead{font-size:21px}}small,.small{font-size:85%}mark,.mark{background-color:#fcf8e3;padding:.2em}.text-left{text-align:left}.text-right{text-align:right}.text-center{text-align:center}.text-justify{text-align:justify}.text-nowrap{white-space:nowrap}.text-lowercase{text-transform:lowercase}.text-uppercase{text-transform:uppercase}.text-capitalize{text-transform:capitalize}.text-muted{color:#777}.text-primary{color:#337ab7}a.text-primary:hover{color:#286090}.text-success{color:#3c763d}a.text-success:hover{color:#2b542c}.text-info{color:#31708f}a.text-info:hover{color:#245269}.text-warning{color:#8a6d3b}a.text-warning:hover{color:#66512c}.text-danger{color:#a94442}a.text-danger:hover{color:#843534}.bg-primary{color:#fff;background-color:#337ab7}a.bg-primary:hover{background-color:#286090}.bg-success{background-color:#dff0d8}a.bg-success:hover{background-color:#c1e2b3}.bg-info{background-color:#d9edf7}a.bg-info:hover{background-color:#afd9ee}.bg-warning{background-color:#fcf8e3}a.bg-warning:hover{background-color:#f7ecb5}.bg-danger{background-color:#f2dede}a.bg-danger:hover{background-color:#e4b9b9}.page-header{padding-bottom:9px;margin:40px 0 20px;border-bottom:1px solid #eee}ul,ol{margin-top:0;margin-bottom:10px}ul ul,ol ul,ul ol,ol ol{margin-bottom:0}.list-unstyled{padding-left:0;list-style:none}.list-inline{padding-left:0;list-style:none;margin-left:-5px}.list-inline>li{display:inline-block;padding-left:5px;padding-right:5px}dl{margin-top:0;margin-bottom:20px}dt,dd{line-height:1.42857143}dt{font-weight:bold}dd{margin-left:0}@media (min-width:768px){.dl-horizontal dt{float:left;width:160px;clear:left;text-align:right;overflow:hidden;text-overflow:ellipsis;white-space:nowrap}.dl-horizontal dd{margin-left:180px}}abbr[title],abbr[data-original-title]{cursor:help;border-bottom:1px dotted #777}.initialism{font-size:90%;text-transform:uppercase}blockquote{padding:10px 20px;margin:0 0 20px;font-size:17.5px;border-left:5px solid #eee}blockquote p:last-child,blockquote ul:last-child,blockquote ol:last-child{margin-bottom:0}blockquote footer,blockquote small,blockquote .small{display:block;font-size:80%;line-height:1.42857143;color:#777}blockquote footer:before,blockquote small:before,blockquote .small:before{content:'\2014 \00A0'}.blockquote-reverse,blockquote.pull-right{padding-right:15px;padding-left:0;border-right:5px solid #eee;border-left:0;text-align:right}.blockquote-reverse footer:before,blockquote.pull-right footer:before,.blockquote-reverse small:before,blockquote.pull-right small:before,.blockquote-reverse .small:before,blockquote.pull-right .small:before{content:''}.blockquote-reverse footer:after,blockquote.pull-right footer:after,.blockquote-reverse small:after,blockquote.pull-right small:after,.blockquote-reverse .small:after,blockquote.pull-right .small:after{content:'\00A0 \2014'}address{margin-bottom:20px;font-style:normal;line-height:1.42857143}code,kbd,pre,samp{font-family:Menlo,Monaco,Consolas,"Courier New",monospace}code{padding:2px 4px;font-size:90%;color:#c7254e;background-color:#f9f2f4;border-radius:4px}kbd{padding:2px 4px;font-size:90%;color:#fff;background-color:#333;border-radius:3px;-webkit-box-shadow:inset 0 -1px 0 rgba(0,0,0,0.25);box-shadow:inset 0 -1px 0 rgba(0,0,0,0.25)}kbd kbd{padding:0;font-size:100%;font-weight:bold;-webkit-box-shadow:none;box-shadow:none}pre{display:block;padding:9.5px;margin:0 0 10px;font-size:13px;line-height:1.42857143;word-break:break-all;word-wrap:break-word;color:#333;background-color:#f5f5f5;border:1px solid #ccc;border-radius:4px}pre code{padding:0;font-size:inherit;color:inherit;white-space:pre-wrap;background-color:transparent;border-radius:0}.pre-scrollable{max-height:340px;overflow-y:scroll}.container{margin-right:auto;margin-left:auto;padding-left:15px;padding-right:15px}@media (min-width:768px){.container{width:750px}}@media (min-width:992px){.container{width:970px}}@media (min-width:1200px){.container{width:1170px}}.container-fluid{margin-right:auto;margin-left:auto;padding-left:15px;padding-right:15px}.row{margin-left:-15px;margin-right:-15px}.col-xs-1, .col-sm-1, .col-md-1, .col-lg-1, .col-xs-2, .col-sm-2, .col-md-2, .col-lg-2, .col-xs-3, .col-sm-3, .col-md-3, .col-lg-3, .col-xs-4, .col-sm-4, .col-md-4, .col-lg-4, .col-xs-5, .col-sm-5, .col-md-5, .col-lg-5, .col-xs-6, .col-sm-6, .col-md-6, .col-lg-6, .col-xs-7, .col-sm-7, .col-md-7, .col-lg-7, .col-xs-8, .col-sm-8, .col-md-8, .col-lg-8, .col-xs-9, .col-sm-9, .col-md-9, .col-lg-9, .col-xs-10, .col-sm-10, .col-md-10, .col-lg-10, .col-xs-11, .col-sm-11, .col-md-11, .col-lg-11, .col-xs-12, .col-sm-12, .col-md-12, .col-lg-12{position:relative;min-height:1px;padding-left:15px;padding-right:15px}.col-xs-1, .col-xs-2, .col-xs-3, .col-xs-4, .col-xs-5, .col-xs-6, .col-xs-7, .col-xs-8, .col-xs-9, .col-xs-10, .col-xs-11, .col-xs-12{float:left}.col-xs-12{width:100%}.col-xs-11{width:91.66666667%}.col-xs-10{width:83.33333333%}.col-xs-9{width:75%}.col-xs-8{width:66.66666667%}.col-xs-7{width:58.33333333%}.col-xs-6{width:50%}.col-xs-5{width:41.66666667%}.col-xs-4{width:33.33333333%}.col-xs-3{width:25%}.col-xs-2{width:16.66666667%}.col-xs-1{width:8.33333333%}.col-xs-pull-12{right:100%}.col-xs-pull-11{right:91.66666667%}.col-xs-pull-10{right:83.33333333%}.col-xs-pull-9{right:75%}.col-xs-pull-8{right:66.66666667%}.col-xs-pull-7{right:58.33333333%}.col-xs-pull-6{right:50%}.col-xs-pull-5{right:41.66666667%}.col-xs-pull-4{right:33.33333333%}.col-xs-pull-3{right:25%}.col-xs-pull-2{right:16.66666667%}.col-xs-pull-1{right:8.33333333%}.col-xs-pull-0{right:auto}.col-xs-push-12{left:100%}.col-xs-push-11{left:91.66666667%}.col-xs-push-10{left:83.33333333%}.col-xs-push-9{left:75%}.col-xs-push-8{left:66.66666667%}.col-xs-push-7{left:58.33333333%}.col-xs-push-6{left:50%}.col-xs-push-5{left:41.66666667%}.col-xs-push-4{left:33.33333333%}.col-xs-push-3{left:25%}.col-xs-push-2{left:16.66666667%}.col-xs-push-1{left:8.33333333%}.col-xs-push-0{left:auto}.col-xs-offset-12{margin-left:100%}.col-xs-offset-11{margin-left:91.66666667%}.col-xs-offset-10{margin-left:83.33333333%}.col-xs-offset-9{margin-left:75%}.col-xs-offset-8{margin-left:66.66666667%}.col-xs-offset-7{margin-left:58.33333333%}.col-xs-offset-6{margin-left:50%}.col-xs-offset-5{margin-left:41.66666667%}.col-xs-offset-4{margin-left:33.33333333%}.col-xs-offset-3{margin-left:25%}.col-xs-offset-2{margin-left:16.66666667%}.col-xs-offset-1{margin-left:8.33333333%}.col-xs-offset-0{margin-left:0}@media (min-width:768px){.col-sm-1, .col-sm-2, .col-sm-3, .col-sm-4, .col-sm-5, .col-sm-6, .col-sm-7, .col-sm-8, .col-sm-9, .col-sm-10, .col-sm-11, .col-sm-12{float:left}.col-sm-12{width:100%}.col-sm-11{width:91.66666667%}.col-sm-10{width:83.33333333%}.col-sm-9{width:75%}.col-sm-8{width:66.66666667%}.col-sm-7{width:58.33333333%}.col-sm-6{width:50%}.col-sm-5{width:41.66666667%}.col-sm-4{width:33.33333333%}.col-sm-3{width:25%}.col-sm-2{width:16.66666667%}.col-sm-1{width:8.33333333%}.col-sm-pull-12{right:100%}.col-sm-pull-11{right:91.66666667%}.col-sm-pull-10{right:83.33333333%}.col-sm-pull-9{right:75%}.col-sm-pull-8{right:66.66666667%}.col-sm-pull-7{right:58.33333333%}.col-sm-pull-6{right:50%}.col-sm-pull-5{right:41.66666667%}.col-sm-pull-4{right:33.33333333%}.col-sm-pull-3{right:25%}.col-sm-pull-2{right:16.66666667%}.col-sm-pull-1{right:8.33333333%}.col-sm-pull-0{right:auto}.col-sm-push-12{left:100%}.col-sm-push-11{left:91.66666667%}.col-sm-push-10{left:83.33333333%}.col-sm-push-9{left:75%}.col-sm-push-8{left:66.66666667%}.col-sm-push-7{left:58.33333333%}.col-sm-push-6{left:50%}.col-sm-push-5{left:41.66666667%}.col-sm-push-4{left:33.33333333%}.col-sm-push-3{left:25%}.col-sm-push-2{left:16.66666667%}.col-sm-push-1{left:8.33333333%}.col-sm-push-0{left:auto}.col-sm-offset-12{margin-left:100%}.col-sm-offset-11{margin-left:91.66666667%}.col-sm-offset-10{margin-left:83.33333333%}.col-sm-offset-9{margin-left:75%}.col-sm-offset-8{margin-left:66.66666667%}.col-sm-offset-7{margin-left:58.33333333%}.col-sm-offset-6{margin-left:50%}.col-sm-offset-5{margin-left:41.66666667%}.col-sm-offset-4{margin-left:33.33333333%}.col-sm-offset-3{margin-left:25%}.col-sm-offset-2{margin-left:16.66666667%}.col-sm-offset-1{margin-left:8.33333333%}.col-sm-offset-0{margin-left:0}}@media (min-width:992px){.col-md-1, .col-md-2, .col-md-3, .col-md-4, .col-md-5, .col-md-6, .col-md-7, .col-md-8, .col-md-9, .col-md-10, .col-md-11, .col-md-12{float:left}.col-md-12{width:100%}.col-md-11{width:91.66666667%}.col-md-10{width:83.33333333%}.col-md-9{width:75%}.col-md-8{width:66.66666667%}.col-md-7{width:58.33333333%}.col-md-6{width:50%}.col-md-5{width:41.66666667%}.col-md-4{width:33.33333333%}.col-md-3{width:25%}.col-md-2{width:16.66666667%}.col-md-1{width:8.33333333%}.col-md-pull-12{right:100%}.col-md-pull-11{right:91.66666667%}.col-md-pull-10{right:83.33333333%}.col-md-pull-9{right:75%}.col-md-pull-8{right:66.66666667%}.col-md-pull-7{right:58.33333333%}.col-md-pull-6{right:50%}.col-md-pull-5{right:41.66666667%}.col-md-pull-4{right:33.33333333%}.col-md-pull-3{right:25%}.col-md-pull-2{right:16.66666667%}.col-md-pull-1{right:8.33333333%}.col-md-pull-0{right:auto}.col-md-push-12{left:100%}.col-md-push-11{left:91.66666667%}.col-md-push-10{left:83.33333333%}.col-md-push-9{left:75%}.col-md-push-8{left:66.66666667%}.col-md-push-7{left:58.33333333%}.col-md-push-6{left:50%}.col-md-push-5{left:41.66666667%}.col-md-push-4{left:33.33333333%}.col-md-push-3{left:25%}.col-md-push-2{left:16.66666667%}.col-md-push-1{left:8.33333333%}.col-md-push-0{left:auto}.col-md-offset-12{margin-left:100%}.col-md-offset-11{margin-left:91.66666667%}.col-md-offset-10{margin-left:83.33333333%}.col-md-offset-9{margin-left:75%}.col-md-offset-8{margin-left:66.66666667%}.col-md-offset-7{margin-left:58.33333333%}.col-md-offset-6{margin-left:50%}.col-md-offset-5{margin-left:41.66666667%}.col-md-offset-4{margin-left:33.33333333%}.col-md-offset-3{margin-left:25%}.col-md-offset-2{margin-left:16.66666667%}.col-md-offset-1{margin-left:8.33333333%}.col-md-offset-0{margin-left:0}}@media (min-width:1200px){.col-lg-1, .col-lg-2, .col-lg-3, .col-lg-4, .col-lg-5, .col-lg-6, .col-lg-7, .col-lg-8, .col-lg-9, .col-lg-10, .col-lg-11, .col-lg-12{float:left}.col-lg-12{width:100%}.col-lg-11{width:91.66666667%}.col-lg-10{width:83.33333333%}.col-lg-9{width:75%}.col-lg-8{width:66.66666667%}.col-lg-7{width:58.33333333%}.col-lg-6{width:50%}.col-lg-5{width:41.66666667%}.col-lg-4{width:33.33333333%}.col-lg-3{width:25%}.col-lg-2{width:16.66666667%}.col-lg-1{width:8.33333333%}.col-lg-pull-12{right:100%}.col-lg-pull-11{right:91.66666667%}.col-lg-pull-10{right:83.33333333%}.col-lg-pull-9{right:75%}.col-lg-pull-8{right:66.66666667%}.col-lg-pull-7{right:58.33333333%}.col-lg-pull-6{right:50%}.col-lg-pull-5{right:41.66666667%}.col-lg-pull-4{right:33.33333333%}.col-lg-pull-3{right:25%}.col-lg-pull-2{right:16.66666667%}.col-lg-pull-1{right:8.33333333%}.col-lg-pull-0{right:auto}.col-lg-push-12{left:100%}.col-lg-push-11{left:91.66666667%}.col-lg-push-10{left:83.33333333%}.col-lg-push-9{left:75%}.col-lg-push-8{left:66.66666667%}.col-lg-push-7{left:58.33333333%}.col-lg-push-6{left:50%}.col-lg-push-5{left:41.66666667%}.col-lg-push-4{left:33.33333333%}.col-lg-push-3{left:25%}.col-lg-push-2{left:16.66666667%}.col-lg-push-1{left:8.33333333%}.col-lg-push-0{left:auto}.col-lg-offset-12{margin-left:100%}.col-lg-offset-11{margin-left:91.66666667%}.col-lg-offset-10{margin-left:83.33333333%}.col-lg-offset-9{margin-left:75%}.col-lg-offset-8{margin-left:66.66666667%}.col-lg-offset-7{margin-left:58.33333333%}.col-lg-offset-6{margin-left:50%}.col-lg-offset-5{margin-left:41.66666667%}.col-lg-offset-4{margin-left:33.33333333%}.col-lg-offset-3{margin-left:25%}.col-lg-offset-2{margin-left:16.66666667%}.col-lg-offset-1{margin-left:8.33333333%}.col-lg-offset-0{margin-left:0}}table{background-color:transparent}caption{padding-top:8px;padding-bottom:8px;color:#777;text-align:left}th{text-align:left}.table{width:100%;max-width:100%;margin-bottom:20px}.table>thead>tr>th,.table>tbody>tr>th,.table>tfoot>tr>th,.table>thead>tr>td,.table>tbody>tr>td,.table>tfoot>tr>td{padding:8px;line-height:1.42857143;vertical-align:top;border-top:1px solid #ddd}.table>thead>tr>th{vertical-align:bottom;border-bottom:2px solid #ddd}.table>caption+thead>tr:first-child>th,.table>colgroup+thead>tr:first-child>th,.table>thead:first-child>tr:first-child>th,.table>caption+thead>tr:first-child>td,.table>colgroup+thead>tr:first-child>td,.table>thead:first-child>tr:first-child>td{border-top:0}.table>tbody+tbody{border-top:2px solid #ddd}.table .table{background-color:#fff}.table-condensed>thead>tr>th,.table-condensed>tbody>tr>th,.table-condensed>tfoot>tr>th,.table-condensed>thead>tr>td,.table-condensed>tbody>tr>td,.table-condensed>tfoot>tr>td{padding:5px}.table-bordered{border:1px solid #ddd}.table-bordered>thead>tr>th,.table-bordered>tbody>tr>th,.table-bordered>tfoot>tr>th,.table-bordered>thead>tr>td,.table-bordered>tbody>tr>td,.table-bordered>tfoot>tr>td{border:1px solid #ddd}.table-bordered>thead>tr>th,.table-bordered>thead>tr>td{border-bottom-width:2px}.table-striped>tbody>tr:nth-child(odd){background-color:#f9f9f9}.table-hover>tbody>tr:hover{background-color:#f5f5f5}table col[class*="col-"]{position:static;float:none;display:table-column}table td[class*="col-"],table th[class*="col-"]{position:static;float:none;display:table-cell}.table>thead>tr>td.active,.table>tbody>tr>td.active,.table>tfoot>tr>td.active,.table>thead>tr>th.active,.table>tbody>tr>th.active,.table>tfoot>tr>th.active,.table>thead>tr.active>td,.table>tbody>tr.active>td,.table>tfoot>tr.active>td,.table>thead>tr.active>th,.table>tbody>tr.active>th,.table>tfoot>tr.active>th{background-color:#f5f5f5}.table-hover>tbody>tr>td.active:hover,.table-hover>tbody>tr>th.active:hover,.table-hover>tbody>tr.active:hover>td,.table-hover>tbody>tr:hover>.active,.table-hover>tbody>tr.active:hover>th{background-color:#e8e8e8}.table>thead>tr>td.success,.table>tbody>tr>td.success,.table>tfoot>tr>td.success,.table>thead>tr>th.success,.table>tbody>tr>th.success,.table>tfoot>tr>th.success,.table>thead>tr.success>td,.table>tbody>tr.success>td,.table>tfoot>tr.success>td,.table>thead>tr.success>th,.table>tbody>tr.success>th,.table>tfoot>tr.success>th{background-color:#dff0d8}.table-hover>tbody>tr>td.success:hover,.table-hover>tbody>tr>th.success:hover,.table-hover>tbody>tr.success:hover>td,.table-hover>tbody>tr:hover>.success,.table-hover>tbody>tr.success:hover>th{background-color:#d0e9c6}.table>thead>tr>td.info,.table>tbody>tr>td.info,.table>tfoot>tr>td.info,.table>thead>tr>th.info,.table>tbody>tr>th.info,.table>tfoot>tr>th.info,.table>thead>tr.info>td,.table>tbody>tr.info>td,.table>tfoot>tr.info>td,.table>thead>tr.info>th,.table>tbody>tr.info>th,.table>tfoot>tr.info>th{background-color:#d9edf7}.table-hover>tbody>tr>td.info:hover,.table-hover>tbody>tr>th.info:hover,.table-hover>tbody>tr.info:hover>td,.table-hover>tbody>tr:hover>.info,.table-hover>tbody>tr.info:hover>th{background-color:#c4e3f3}.table>thead>tr>td.warning,.table>tbody>tr>td.warning,.table>tfoot>tr>td.warning,.table>thead>tr>th.warning,.table>tbody>tr>th.warning,.table>tfoot>tr>th.warning,.table>thead>tr.warning>td,.table>tbody>tr.warning>td,.table>tfoot>tr.warning>td,.table>thead>tr.warning>th,.table>tbody>tr.warning>th,.table>tfoot>tr.warning>th{background-color:#fcf8e3}.table-hover>tbody>tr>td.warning:hover,.table-hover>tbody>tr>th.warning:hover,.table-hover>tbody>tr.warning:hover>td,.table-hover>tbody>tr:hover>.warning,.table-hover>tbody>tr.warning:hover>th{background-color:#faf2cc}.table>thead>tr>td.danger,.table>tbody>tr>td.danger,.table>tfoot>tr>td.danger,.table>thead>tr>th.danger,.table>tbody>tr>th.danger,.table>tfoot>tr>th.danger,.table>thead>tr.danger>td,.table>tbody>tr.danger>td,.table>tfoot>tr.danger>td,.table>thead>tr.danger>th,.table>tbody>tr.danger>th,.table>tfoot>tr.danger>th{background-color:#f2dede}.table-hover>tbody>tr>td.danger:hover,.table-hover>tbody>tr>th.danger:hover,.table-hover>tbody>tr.danger:hover>td,.table-hover>tbody>tr:hover>.danger,.table-hover>tbody>tr.danger:hover>th{background-color:#ebcccc}.table-responsive{overflow-x:auto;min-height:0.01%}@media screen and (max-width:767px){.table-responsive{width:100%;margin-bottom:15px;overflow-y:hidden;-ms-overflow-style:-ms-autohiding-scrollbar;border:1px solid #ddd}.table-responsive>.table{margin-bottom:0}.table-responsive>.table>thead>tr>th,.table-responsive>.table>tbody>tr>th,.table-responsive>.table>tfoot>tr>th,.table-responsive>.table>thead>tr>td,.table-responsive>.table>tbody>tr>td,.table-responsive>.table>tfoot>tr>td{white-space:nowrap}.table-responsive>.table-bordered{border:0}.table-responsive>.table-bordered>thead>tr>th:first-child,.table-responsive>.table-bordered>tbody>tr>th:first-child,.table-responsive>.table-bordered>tfoot>tr>th:first-child,.table-responsive>.table-bordered>thead>tr>td:first-child,.table-responsive>.table-bordered>tbody>tr>td:first-child,.table-responsive>.table-bordered>tfoot>tr>td:first-child{border-left:0}.table-responsive>.table-bordered>thead>tr>th:last-child,.table-responsive>.table-bordered>tbody>tr>th:last-child,.table-responsive>.table-bordered>tfoot>tr>th:last-child,.table-responsive>.table-bordered>thead>tr>td:last-child,.table-responsive>.table-bordered>tbody>tr>td:last-child,.table-responsive>.table-bordered>tfoot>tr>td:last-child{border-right:0}.table-responsive>.table-bordered>tbody>tr:last-child>th,.table-responsive>.table-bordered>tfoot>tr:last-child>th,.table-responsive>.table-bordered>tbody>tr:last-child>td,.table-responsive>.table-bordered>tfoot>tr:last-child>td{border-bottom:0}}fieldset{padding:0;margin:0;border:0;min-width:0}legend{display:block;width:100%;padding:0;margin-bottom:20px;font-size:21px;line-height:inherit;color:#333;border:0;border-bottom:1px solid #e5e5e5}label{display:inline-block;max-width:100%;margin-bottom:5px;font-weight:bold}input[type="search"]{-webkit-box-sizing:border-box;-moz-box-sizing:border-box;box-sizing:border-box}input[type="radio"],input[type="checkbox"]{margin:4px 0 0;margin-top:1px \9;line-height:normal}input[type="file"]{display:block}input[type="range"]{display:block;width:100%}select[multiple],select[size]{height:auto}input[type="file"]:focus,input[type="radio"]:focus,input[type="checkbox"]:focus{outline:thin dotted;outline:5px auto -webkit-focus-ring-color;outline-offset:-2px}output{display:block;padding-top:7px;font-size:14px;line-height:1.42857143;color:#555}.form-control{display:block;width:100%;height:34px;padding:6px 12px;font-size:14px;line-height:1.42857143;color:#555;background-color:#fff;background-image:none;border:1px solid #ccc;border-radius:4px;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,0.075);box-shadow:inset 0 1px 1px rgba(0,0,0,0.075);-webkit-transition:border-color ease-in-out .15s, -webkit-box-shadow ease-in-out .15s;-o-transition:border-color ease-in-out .15s, box-shadow ease-in-out .15s;transition:border-color ease-in-out .15s, box-shadow ease-in-out .15s}.form-control:focus{border-color:#66afe9;outline:0;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,.075), 0 0 8px rgba(102, 175, 233, 0.6);box-shadow:inset 0 1px 1px rgba(0,0,0,.075), 0 0 8px rgba(102, 175, 233, 0.6)}.form-control::-moz-placeholder{color:#999;opacity:1}.form-control:-ms-input-placeholder{color:#999}.form-control::-webkit-input-placeholder{color:#999}.form-control[disabled],.form-control[readonly],fieldset[disabled] .form-control{cursor:not-allowed;background-color:#eee;opacity:1}textarea.form-control{height:auto}input[type="search"]{-webkit-appearance:none}@media screen and (-webkit-min-device-pixel-ratio:0){input[type="date"],input[type="time"],input[type="datetime-local"],input[type="month"]{line-height:34px}input[type="date"].input-sm,input[type="time"].input-sm,input[type="datetime-local"].input-sm,input[type="month"].input-sm{line-height:30px}input[type="date"].input-lg,input[type="time"].input-lg,input[type="datetime-local"].input-lg,input[type="month"].input-lg{line-height:46px}}.form-group{margin-bottom:15px}.radio,.checkbox{position:relative;display:block;margin-top:10px;margin-bottom:10px}.radio label,.checkbox label{min-height:20px;padding-left:20px;margin-bottom:0;font-weight:normal;cursor:pointer}.radio input[type="radio"],.radio-inline input[type="radio"],.checkbox input[type="checkbox"],.checkbox-inline input[type="checkbox"]{position:absolute;margin-left:-20px;margin-top:4px \9}.radio+.radio,.checkbox+.checkbox{margin-top:-5px}.radio-inline,.checkbox-inline{display:inline-block;padding-left:20px;margin-bottom:0;vertical-align:middle;font-weight:normal;cursor:pointer}.radio-inline+.radio-inline,.checkbox-inline+.checkbox-inline{margin-top:0;margin-left:10px}input[type="radio"][disabled],input[type="checkbox"][disabled],input[type="radio"].disabled,input[type="checkbox"].disabled,fieldset[disabled] input[type="radio"],fieldset[disabled] input[type="checkbox"]{cursor:not-allowed}.radio-inline.disabled,.checkbox-inline.disabled,fieldset[disabled] .radio-inline,fieldset[disabled] .checkbox-inline{cursor:not-allowed}.radio.disabled label,.checkbox.disabled label,fieldset[disabled] .radio label,fieldset[disabled] .checkbox label{cursor:not-allowed}.form-control-static{padding-top:7px;padding-bottom:7px;margin-bottom:0}.form-control-static.input-lg,.form-control-static.input-sm{padding-left:0;padding-right:0}.input-sm,.form-group-sm .form-control{height:30px;padding:5px 10px;font-size:12px;line-height:1.5;border-radius:3px}select.input-sm,select.form-group-sm .form-control{height:30px;line-height:30px}textarea.input-sm,textarea.form-group-sm .form-control,select[multiple].input-sm,select[multiple].form-group-sm .form-control{height:auto}.input-lg,.form-group-lg .form-control{height:46px;padding:10px 16px;font-size:18px;line-height:1.33;border-radius:6px}select.input-lg,select.form-group-lg .form-control{height:46px;line-height:46px}textarea.input-lg,textarea.form-group-lg .form-control,select[multiple].input-lg,select[multiple].form-group-lg .form-control{height:auto}.has-feedback{position:relative}.has-feedback .form-control{padding-right:42.5px}.form-control-feedback{position:absolute;top:0;right:0;z-index:2;display:block;width:34px;height:34px;line-height:34px;text-align:center;pointer-events:none}.input-lg+.form-control-feedback{width:46px;height:46px;line-height:46px}.input-sm+.form-control-feedback{width:30px;height:30px;line-height:30px}.has-success .help-block,.has-success .control-label,.has-success .radio,.has-success .checkbox,.has-success .radio-inline,.has-success .checkbox-inline,.has-success.radio label,.has-success.checkbox label,.has-success.radio-inline label,.has-success.checkbox-inline label{color:#3c763d}.has-success .form-control{border-color:#3c763d;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,0.075);box-shadow:inset 0 1px 1px rgba(0,0,0,0.075)}.has-success .form-control:focus{border-color:#2b542c;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,0.075),0 0 6px #67b168;box-shadow:inset 0 1px 1px rgba(0,0,0,0.075),0 0 6px #67b168}.has-success .input-group-addon{color:#3c763d;border-color:#3c763d;background-color:#dff0d8}.has-success .form-control-feedback{color:#3c763d}.has-warning .help-block,.has-warning .control-label,.has-warning .radio,.has-warning .checkbox,.has-warning .radio-inline,.has-warning .checkbox-inline,.has-warning.radio label,.has-warning.checkbox label,.has-warning.radio-inline label,.has-warning.checkbox-inline label{color:#8a6d3b}.has-warning .form-control{border-color:#8a6d3b;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,0.075);box-shadow:inset 0 1px 1px rgba(0,0,0,0.075)}.has-warning .form-control:focus{border-color:#66512c;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,0.075),0 0 6px #c0a16b;box-shadow:inset 0 1px 1px rgba(0,0,0,0.075),0 0 6px #c0a16b}.has-warning .input-group-addon{color:#8a6d3b;border-color:#8a6d3b;background-color:#fcf8e3}.has-warning .form-control-feedback{color:#8a6d3b}.has-error .help-block,.has-error .control-label,.has-error .radio,.has-error .checkbox,.has-error .radio-inline,.has-error .checkbox-inline,.has-error.radio label,.has-error.checkbox label,.has-error.radio-inline label,.has-error.checkbox-inline label{color:#a94442}.has-error .form-control{border-color:#a94442;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,0.075);box-shadow:inset 0 1px 1px rgba(0,0,0,0.075)}.has-error .form-control:focus{border-color:#843534;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,0.075),0 0 6px #ce8483;box-shadow:inset 0 1px 1px rgba(0,0,0,0.075),0 0 6px #ce8483}.has-error .input-group-addon{color:#a94442;border-color:#a94442;background-color:#f2dede}.has-error .form-control-feedback{color:#a94442}.has-feedback label~.form-control-feedback{top:25px}.has-feedback label.sr-only~.form-control-feedback{top:0}.help-block{display:block;margin-top:5px;margin-bottom:10px;color:#737373}@media (min-width:768px){.form-inline .form-group{display:inline-block;margin-bottom:0;vertical-align:middle}.form-inline .form-control{display:inline-block;width:auto;vertical-align:middle}.form-inline .form-control-static{display:inline-block}.form-inline .input-group{display:inline-table;vertical-align:middle}.form-inline .input-group .input-group-addon,.form-inline .input-group .input-group-btn,.form-inline .input-group .form-control{width:auto}.form-inline .input-group>.form-control{width:100%}.form-inline .control-label{margin-bottom:0;vertical-align:middle}.form-inline .radio,.form-inline .checkbox{display:inline-block;margin-top:0;margin-bottom:0;vertical-align:middle}.form-inline .radio label,.form-inline .checkbox label{padding-left:0}.form-inline .radio input[type="radio"],.form-inline .checkbox input[type="checkbox"]{position:relative;margin-left:0}.form-inline .has-feedback .form-control-feedback{top:0}}.form-horizontal .radio,.form-horizontal .checkbox,.form-horizontal .radio-inline,.form-horizontal .checkbox-inline{margin-top:0;margin-bottom:0;padding-top:7px}.form-horizontal .radio,.form-horizontal .checkbox{min-height:27px}.form-horizontal .form-group{margin-left:-15px;margin-right:-15px}@media (min-width:768px){.form-horizontal .control-label{text-align:right;margin-bottom:0;padding-top:7px}}.form-horizontal .has-feedback .form-control-feedback{right:15px}@media (min-width:768px){.form-horizontal .form-group-lg .control-label{padding-top:14.3px}}@media (min-width:768px){.form-horizontal .form-group-sm .control-label{padding-top:6px}}.btn{display:inline-block;margin-bottom:0;font-weight:normal;text-align:center;vertical-align:middle;-ms-touch-action:manipulation;touch-action:manipulation;cursor:pointer;background-image:none;border:1px solid transparent;white-space:nowrap;padding:6px 12px;font-size:14px;line-height:1.42857143;border-radius:4px;-webkit-user-select:none;-moz-user-select:none;-ms-user-select:none;user-select:none}.btn:focus,.btn:active:focus,.btn.active:focus,.btn.focus,.btn:active.focus,.btn.active.focus{outline:thin dotted;outline:5px auto -webkit-focus-ring-color;outline-offset:-2px}.btn:hover,.btn:focus,.btn.focus{color:#333;text-decoration:none}.btn:active,.btn.active{outline:0;background-image:none;-webkit-box-shadow:inset 0 3px 5px rgba(0,0,0,0.125);box-shadow:inset 0 3px 5px rgba(0,0,0,0.125)}.btn.disabled,.btn[disabled],fieldset[disabled] .btn{cursor:not-allowed;pointer-events:none;opacity:.65;filter:alpha(opacity=65);-webkit-box-shadow:none;box-shadow:none}.btn-default{color:#333;background-color:#fff;border-color:#ccc}.btn-default:hover,.btn-default:focus,.btn-default.focus,.btn-default:active,.btn-default.active,.open>.dropdown-toggle.btn-default{color:#333;background-color:#e6e6e6;border-color:#adadad}.btn-default:active,.btn-default.active,.open>.dropdown-toggle.btn-default{background-image:none}.btn-default.disabled,.btn-default[disabled],fieldset[disabled] .btn-default,.btn-default.disabled:hover,.btn-default[disabled]:hover,fieldset[disabled] .btn-default:hover,.btn-default.disabled:focus,.btn-default[disabled]:focus,fieldset[disabled] .btn-default:focus,.btn-default.disabled.focus,.btn-default[disabled].focus,fieldset[disabled] .btn-default.focus,.btn-default.disabled:active,.btn-default[disabled]:active,fieldset[disabled] .btn-default:active,.btn-default.disabled.active,.btn-default[disabled].active,fieldset[disabled] .btn-default.active{background-color:#fff;border-color:#ccc}.btn-default .badge{color:#fff;background-color:#333}.btn-primary{color:#fff;background-color:#337ab7;border-color:#2e6da4}.btn-primary:hover,.btn-primary:focus,.btn-primary.focus,.btn-primary:active,.btn-primary.active,.open>.dropdown-toggle.btn-primary{color:#fff;background-color:#286090;border-color:#204d74}.btn-primary:active,.btn-primary.active,.open>.dropdown-toggle.btn-primary{background-image:none}.btn-primary.disabled,.btn-primary[disabled],fieldset[disabled] .btn-primary,.btn-primary.disabled:hover,.btn-primary[disabled]:hover,fieldset[disabled] .btn-primary:hover,.btn-primary.disabled:focus,.btn-primary[disabled]:focus,fieldset[disabled] .btn-primary:focus,.btn-primary.disabled.focus,.btn-primary[disabled].focus,fieldset[disabled] .btn-primary.focus,.btn-primary.disabled:active,.btn-primary[disabled]:active,fieldset[disabled] .btn-primary:active,.btn-primary.disabled.active,.btn-primary[disabled].active,fieldset[disabled] .btn-primary.active{background-color:#337ab7;border-color:#2e6da4}.btn-primary .badge{color:#337ab7;background-color:#fff}.btn-success{color:#fff;background-color:#5cb85c;border-color:#4cae4c}.btn-success:hover,.btn-success:focus,.btn-success.focus,.btn-success:active,.btn-success.active,.open>.dropdown-toggle.btn-success{color:#fff;background-color:#449d44;border-color:#398439}.btn-success:active,.btn-success.active,.open>.dropdown-toggle.btn-success{background-image:none}.btn-success.disabled,.btn-success[disabled],fieldset[disabled] .btn-success,.btn-success.disabled:hover,.btn-success[disabled]:hover,fieldset[disabled] .btn-success:hover,.btn-success.disabled:focus,.btn-success[disabled]:focus,fieldset[disabled] .btn-success:focus,.btn-success.disabled.focus,.btn-success[disabled].focus,fieldset[disabled] .btn-success.focus,.btn-success.disabled:active,.btn-success[disabled]:active,fieldset[disabled] .btn-success:active,.btn-success.disabled.active,.btn-success[disabled].active,fieldset[disabled] .btn-success.active{background-color:#5cb85c;border-color:#4cae4c}.btn-success .badge{color:#5cb85c;background-color:#fff}.btn-info{color:#fff;background-color:#5bc0de;border-color:#46b8da}.btn-info:hover,.btn-info:focus,.btn-info.focus,.btn-info:active,.btn-info.active,.open>.dropdown-toggle.btn-info{color:#fff;background-color:#31b0d5;border-color:#269abc}.btn-info:active,.btn-info.active,.open>.dropdown-toggle.btn-info{background-image:none}.btn-info.disabled,.btn-info[disabled],fieldset[disabled] .btn-info,.btn-info.disabled:hover,.btn-info[disabled]:hover,fieldset[disabled] .btn-info:hover,.btn-info.disabled:focus,.btn-info[disabled]:focus,fieldset[disabled] .btn-info:focus,.btn-info.disabled.focus,.btn-info[disabled].focus,fieldset[disabled] .btn-info.focus,.btn-info.disabled:active,.btn-info[disabled]:active,fieldset[disabled] .btn-info:active,.btn-info.disabled.active,.btn-info[disabled].active,fieldset[disabled] .btn-info.active{background-color:#5bc0de;border-color:#46b8da}.btn-info .badge{color:#5bc0de;background-color:#fff}.btn-warning{color:#fff;background-color:#f0ad4e;border-color:#eea236}.btn-warning:hover,.btn-warning:focus,.btn-warning.focus,.btn-warning:active,.btn-warning.active,.open>.dropdown-toggle.btn-warning{color:#fff;background-color:#ec971f;border-color:#d58512}.btn-warning:active,.btn-warning.active,.open>.dropdown-toggle.btn-warning{background-image:none}.btn-warning.disabled,.btn-warning[disabled],fieldset[disabled] .btn-warning,.btn-warning.disabled:hover,.btn-warning[disabled]:hover,fieldset[disabled] .btn-warning:hover,.btn-warning.disabled:focus,.btn-warning[disabled]:focus,fieldset[disabled] .btn-warning:focus,.btn-warning.disabled.focus,.btn-warning[disabled].focus,fieldset[disabled] .btn-warning.focus,.btn-warning.disabled:active,.btn-warning[disabled]:active,fieldset[disabled] .btn-warning:active,.btn-warning.disabled.active,.btn-warning[disabled].active,fieldset[disabled] .btn-warning.active{background-color:#f0ad4e;border-color:#eea236}.btn-warning .badge{color:#f0ad4e;background-color:#fff}.btn-danger{color:#fff;background-color:#d9534f;border-color:#d43f3a}.btn-danger:hover,.btn-danger:focus,.btn-danger.focus,.btn-danger:active,.btn-danger.active,.open>.dropdown-toggle.btn-danger{color:#fff;background-color:#c9302c;border-color:#ac2925}.btn-danger:active,.btn-danger.active,.open>.dropdown-toggle.btn-danger{background-image:none}.btn-danger.disabled,.btn-danger[disabled],fieldset[disabled] .btn-danger,.btn-danger.disabled:hover,.btn-danger[disabled]:hover,fieldset[disabled] .btn-danger:hover,.btn-danger.disabled:focus,.btn-danger[disabled]:focus,fieldset[disabled] .btn-danger:focus,.btn-danger.disabled.focus,.btn-danger[disabled].focus,fieldset[disabled] .btn-danger.focus,.btn-danger.disabled:active,.btn-danger[disabled]:active,fieldset[disabled] .btn-danger:active,.btn-danger.disabled.active,.btn-danger[disabled].active,fieldset[disabled] .btn-danger.active{background-color:#d9534f;border-color:#d43f3a}.btn-danger .badge{color:#d9534f;background-color:#fff}.btn-link{color:#337ab7;font-weight:normal;border-radius:0}.btn-link,.btn-link:active,.btn-link.active,.btn-link[disabled],fieldset[disabled] .btn-link{background-color:transparent;-webkit-box-shadow:none;box-shadow:none}.btn-link,.btn-link:hover,.btn-link:focus,.btn-link:active{border-color:transparent}.btn-link:hover,.btn-link:focus{color:#23527c;text-decoration:underline;background-color:transparent}.btn-link[disabled]:hover,fieldset[disabled] .btn-link:hover,.btn-link[disabled]:focus,fieldset[disabled] .btn-link:focus{color:#777;text-decoration:none}.btn-lg,.btn-group-lg>.btn{padding:10px 16px;font-size:18px;line-height:1.33;border-radius:6px}.btn-sm,.btn-group-sm>.btn{padding:5px 10px;font-size:12px;line-height:1.5;border-radius:3px}.btn-xs,.btn-group-xs>.btn{padding:1px 5px;font-size:12px;line-height:1.5;border-radius:3px}.btn-block{display:block;width:100%}.btn-block+.btn-block{margin-top:5px}input[type="submit"].btn-block,input[type="reset"].btn-block,input[type="button"].btn-block{width:100%}.fade{opacity:0;-webkit-transition:opacity .15s linear;-o-transition:opacity .15s linear;transition:opacity .15s linear}.fade.in{opacity:1}.collapse{display:none;visibility:hidden}.collapse.in{display:block;visibility:visible}tr.collapse.in{display:table-row}tbody.collapse.in{display:table-row-group}.collapsing{position:relative;height:0;overflow:hidden;-webkit-transition-property:height, visibility;-o-transition-property:height, visibility;transition-property:height, visibility;-webkit-transition-duration:.35s;-o-transition-duration:.35s;transition-duration:.35s;-webkit-transition-timing-function:ease;-o-transition-timing-function:ease;transition-timing-function:ease}.caret{display:inline-block;width:0;height:0;margin-left:2px;vertical-align:middle;border-top:4px solid;border-right:4px solid transparent;border-left:4px solid transparent}.dropdown{position:relative}.dropdown-toggle:focus{outline:0}.dropdown-menu{position:absolute;top:100%;left:0;z-index:1000;display:none;float:left;min-width:160px;padding:5px 0;margin:2px 0 0;list-style:none;font-size:14px;text-align:left;background-color:#fff;border:1px solid #ccc;border:1px solid rgba(0,0,0,0.15);border-radius:4px;-webkit-box-shadow:0 6px 12px rgba(0,0,0,0.175);box-shadow:0 6px 12px rgba(0,0,0,0.175);-webkit-background-clip:padding-box;background-clip:padding-box}.dropdown-menu.pull-right{right:0;left:auto}.dropdown-menu .divider{height:1px;margin:9px 0;overflow:hidden;background-color:#e5e5e5}.dropdown-menu>li>a{display:block;padding:3px 20px;clear:both;font-weight:normal;line-height:1.42857143;color:#333;white-space:nowrap}.dropdown-menu>li>a:hover,.dropdown-menu>li>a:focus{text-decoration:none;color:#262626;background-color:#f5f5f5}.dropdown-menu>.active>a,.dropdown-menu>.active>a:hover,.dropdown-menu>.active>a:focus{color:#fff;text-decoration:none;outline:0;background-color:#337ab7}.dropdown-menu>.disabled>a,.dropdown-menu>.disabled>a:hover,.dropdown-menu>.disabled>a:focus{color:#777}.dropdown-menu>.disabled>a:hover,.dropdown-menu>.disabled>a:focus{text-decoration:none;background-color:transparent;background-image:none;filter:progid:DXImageTransform.Microsoft.gradient(enabled = false);cursor:not-allowed}.open>.dropdown-menu{display:block}.open>a{outline:0}.dropdown-menu-right{left:auto;right:0}.dropdown-menu-left{left:0;right:auto}.dropdown-header{display:block;padding:3px 20px;font-size:12px;line-height:1.42857143;color:#777;white-space:nowrap}.dropdown-backdrop{position:fixed;left:0;right:0;bottom:0;top:0;z-index:990}.pull-right>.dropdown-menu{right:0;left:auto}.dropup .caret,.navbar-fixed-bottom .dropdown .caret{border-top:0;border-bottom:4px solid;content:""}.dropup .dropdown-menu,.navbar-fixed-bottom .dropdown .dropdown-menu{top:auto;bottom:100%;margin-bottom:1px}@media (min-width:768px){.navbar-right .dropdown-menu{left:auto;right:0}.navbar-right .dropdown-menu-left{left:0;right:auto}}.btn-group,.btn-group-vertical{position:relative;display:inline-block;vertical-align:middle}.btn-group>.btn,.btn-group-vertical>.btn{position:relative;float:left}.btn-group>.btn:hover,.btn-group-vertical>.btn:hover,.btn-group>.btn:focus,.btn-group-vertical>.btn:focus,.btn-group>.btn:active,.btn-group-vertical>.btn:active,.btn-group>.btn.active,.btn-group-vertical>.btn.active{z-index:2}.btn-group .btn+.btn,.btn-group .btn+.btn-group,.btn-group .btn-group+.btn,.btn-group .btn-group+.btn-group{margin-left:-1px}.btn-toolbar{margin-left:-5px}.btn-toolbar .btn-group,.btn-toolbar .input-group{float:left}.btn-toolbar>.btn,.btn-toolbar>.btn-group,.btn-toolbar>.input-group{margin-left:5px}.btn-group>.btn:not(:first-child):not(:last-child):not(.dropdown-toggle){border-radius:0}.btn-group>.btn:first-child{margin-left:0}.btn-group>.btn:first-child:not(:last-child):not(.dropdown-toggle){border-bottom-right-radius:0;border-top-right-radius:0}.btn-group>.btn:last-child:not(:first-child),.btn-group>.dropdown-toggle:not(:first-child){border-bottom-left-radius:0;border-top-left-radius:0}.btn-group>.btn-group{float:left}.btn-group>.btn-group:not(:first-child):not(:last-child)>.btn{border-radius:0}.btn-group>.btn-group:first-child>.btn:last-child,.btn-group>.btn-group:first-child>.dropdown-toggle{border-bottom-right-radius:0;border-top-right-radius:0}.btn-group>.btn-group:last-child>.btn:first-child{border-bottom-left-radius:0;border-top-left-radius:0}.btn-group .dropdown-toggle:active,.btn-group.open .dropdown-toggle{outline:0}.btn-group>.btn+.dropdown-toggle{padding-left:8px;padding-right:8px}.btn-group>.btn-lg+.dropdown-toggle{padding-left:12px;padding-right:12px}.btn-group.open .dropdown-toggle{-webkit-box-shadow:inset 0 3px 5px rgba(0,0,0,0.125);box-shadow:inset 0 3px 5px rgba(0,0,0,0.125)}.btn-group.open .dropdown-toggle.btn-link{-webkit-box-shadow:none;box-shadow:none}.btn .caret{margin-left:0}.btn-lg .caret{border-width:5px 5px 0;border-bottom-width:0}.dropup .btn-lg .caret{border-width:0 5px 5px}.btn-group-vertical>.btn,.btn-group-vertical>.btn-group,.btn-group-vertical>.btn-group>.btn{display:block;float:none;width:100%;max-width:100%}.btn-group-vertical>.btn-group>.btn{float:none}.btn-group-vertical>.btn+.btn,.btn-group-vertical>.btn+.btn-group,.btn-group-vertical>.btn-group+.btn,.btn-group-vertical>.btn-group+.btn-group{margin-top:-1px;margin-left:0}.btn-group-vertical>.btn:not(:first-child):not(:last-child){border-radius:0}.btn-group-vertical>.btn:first-child:not(:last-child){border-top-right-radius:4px;border-bottom-right-radius:0;border-bottom-left-radius:0}.btn-group-vertical>.btn:last-child:not(:first-child){border-bottom-left-radius:4px;border-top-right-radius:0;border-top-left-radius:0}.btn-group-vertical>.btn-group:not(:first-child):not(:last-child)>.btn{border-radius:0}.btn-group-vertical>.btn-group:first-child:not(:last-child)>.btn:last-child,.btn-group-vertical>.btn-group:first-child:not(:last-child)>.dropdown-toggle{border-bottom-right-radius:0;border-bottom-left-radius:0}.btn-group-vertical>.btn-group:last-child:not(:first-child)>.btn:first-child{border-top-right-radius:0;border-top-left-radius:0}.btn-group-justified{display:table;width:100%;table-layout:fixed;border-collapse:separate}.btn-group-justified>.btn,.btn-group-justified>.btn-group{float:none;display:table-cell;width:1%}.btn-group-justified>.btn-group .btn{width:100%}.btn-group-justified>.btn-group .dropdown-menu{left:auto}[data-toggle="buttons"]>.btn input[type="radio"],[data-toggle="buttons"]>.btn-group>.btn input[type="radio"],[data-toggle="buttons"]>.btn input[type="checkbox"],[data-toggle="buttons"]>.btn-group>.btn input[type="checkbox"]{position:absolute;clip:rect(0, 0, 0, 0);pointer-events:none}.input-group{position:relative;display:table;border-collapse:separate}.input-group[class*="col-"]{float:none;padding-left:0;padding-right:0}.input-group .form-control{position:relative;z-index:2;float:left;width:100%;margin-bottom:0}.input-group-lg>.form-control,.input-group-lg>.input-group-addon,.input-group-lg>.input-group-btn>.btn{height:46px;padding:10px 16px;font-size:18px;line-height:1.33;border-radius:6px}select.input-group-lg>.form-control,select.input-group-lg>.input-group-addon,select.input-group-lg>.input-group-btn>.btn{height:46px;line-height:46px}textarea.input-group-lg>.form-control,textarea.input-group-lg>.input-group-addon,textarea.input-group-lg>.input-group-btn>.btn,select[multiple].input-group-lg>.form-control,select[multiple].input-group-lg>.input-group-addon,select[multiple].input-group-lg>.input-group-btn>.btn{height:auto}.input-group-sm>.form-control,.input-group-sm>.input-group-addon,.input-group-sm>.input-group-btn>.btn{height:30px;padding:5px 10px;font-size:12px;line-height:1.5;border-radius:3px}select.input-group-sm>.form-control,select.input-group-sm>.input-group-addon,select.input-group-sm>.input-group-btn>.btn{height:30px;line-height:30px}textarea.input-group-sm>.form-control,textarea.input-group-sm>.input-group-addon,textarea.input-group-sm>.input-group-btn>.btn,select[multiple].input-group-sm>.form-control,select[multiple].input-group-sm>.input-group-addon,select[multiple].input-group-sm>.input-group-btn>.btn{height:auto}.input-group-addon,.input-group-btn,.input-group .form-control{display:table-cell}.input-group-addon:not(:first-child):not(:last-child),.input-group-btn:not(:first-child):not(:last-child),.input-group .form-control:not(:first-child):not(:last-child){border-radius:0}.input-group-addon,.input-group-btn{width:1%;white-space:nowrap;vertical-align:middle}.input-group-addon{padding:6px 12px;font-size:14px;font-weight:normal;line-height:1;color:#555;text-align:center;background-color:#eee;border:1px solid #ccc;border-radius:4px}.input-group-addon.input-sm{padding:5px 10px;font-size:12px;border-radius:3px}.input-group-addon.input-lg{padding:10px 16px;font-size:18px;border-radius:6px}.input-group-addon input[type="radio"],.input-group-addon input[type="checkbox"]{margin-top:0}.input-group .form-control:first-child,.input-group-addon:first-child,.input-group-btn:first-child>.btn,.input-group-btn:first-child>.btn-group>.btn,.input-group-btn:first-child>.dropdown-toggle,.input-group-btn:last-child>.btn:not(:last-child):not(.dropdown-toggle),.input-group-btn:last-child>.btn-group:not(:last-child)>.btn{border-bottom-right-radius:0;border-top-right-radius:0}.input-group-addon:first-child{border-right:0}.input-group .form-control:last-child,.input-group-addon:last-child,.input-group-btn:last-child>.btn,.input-group-btn:last-child>.btn-group>.btn,.input-group-btn:last-child>.dropdown-toggle,.input-group-btn:first-child>.btn:not(:first-child),.input-group-btn:first-child>.btn-group:not(:first-child)>.btn{border-bottom-left-radius:0;border-top-left-radius:0}.input-group-addon:last-child{border-left:0}.input-group-btn{position:relative;font-size:0;white-space:nowrap}.input-group-btn>.btn{position:relative}.input-group-btn>.btn+.btn{margin-left:-1px}.input-group-btn>.btn:hover,.input-group-btn>.btn:focus,.input-group-btn>.btn:active{z-index:2}.input-group-btn:first-child>.btn,.input-group-btn:first-child>.btn-group{margin-right:-1px}.input-group-btn:last-child>.btn,.input-group-btn:last-child>.btn-group{margin-left:-1px}.nav{margin-bottom:0;padding-left:0;list-style:none}.nav>li{position:relative;display:block}.nav>li>a{position:relative;display:block;padding:10px 15px}.nav>li>a:hover,.nav>li>a:focus{text-decoration:none;background-color:#eee}.nav>li.disabled>a{color:#777}.nav>li.disabled>a:hover,.nav>li.disabled>a:focus{color:#777;text-decoration:none;background-color:transparent;cursor:not-allowed}.nav .open>a,.nav .open>a:hover,.nav .open>a:focus{background-color:#eee;border-color:#337ab7}.nav .nav-divider{height:1px;margin:9px 0;overflow:hidden;background-color:#e5e5e5}.nav>li>a>img{max-width:none}.nav-tabs{border-bottom:1px solid #ddd}.nav-tabs>li{float:left;margin-bottom:-1px}.nav-tabs>li>a{margin-right:2px;line-height:1.42857143;border:1px solid transparent;border-radius:4px 4px 0 0}.nav-tabs>li>a:hover{border-color:#eee #eee #ddd}.nav-tabs>li.active>a,.nav-tabs>li.active>a:hover,.nav-tabs>li.active>a:focus{color:#555;background-color:#fff;border:1px solid #ddd;border-bottom-color:transparent;cursor:default}.nav-tabs.nav-justified{width:100%;border-bottom:0}.nav-tabs.nav-justified>li{float:none}.nav-tabs.nav-justified>li>a{text-align:center;margin-bottom:5px}.nav-tabs.nav-justified>.dropdown .dropdown-menu{top:auto;left:auto}@media (min-width:768px){.nav-tabs.nav-justified>li{display:table-cell;width:1%}.nav-tabs.nav-justified>li>a{margin-bottom:0}}.nav-tabs.nav-justified>li>a{margin-right:0;border-radius:4px}.nav-tabs.nav-justified>.active>a,.nav-tabs.nav-justified>.active>a:hover,.nav-tabs.nav-justified>.active>a:focus{border:1px solid #ddd}@media (min-width:768px){.nav-tabs.nav-justified>li>a{border-bottom:1px solid #ddd;border-radius:4px 4px 0 0}.nav-tabs.nav-justified>.active>a,.nav-tabs.nav-justified>.active>a:hover,.nav-tabs.nav-justified>.active>a:focus{border-bottom-color:#fff}}.nav-pills>li{float:left}.nav-pills>li>a{border-radius:4px}.nav-pills>li+li{margin-left:2px}.nav-pills>li.active>a,.nav-pills>li.active>a:hover,.nav-pills>li.active>a:focus{color:#fff;background-color:#337ab7}.nav-stacked>li{float:none}.nav-stacked>li+li{margin-top:2px;margin-left:0}.nav-justified{width:100%}.nav-justified>li{float:none}.nav-justified>li>a{text-align:center;margin-bottom:5px}.nav-justified>.dropdown .dropdown-menu{top:auto;left:auto}@media (min-width:768px){.nav-justified>li{display:table-cell;width:1%}.nav-justified>li>a{margin-bottom:0}}.nav-tabs-justified{border-bottom:0}.nav-tabs-justified>li>a{margin-right:0;border-radius:4px}.nav-tabs-justified>.active>a,.nav-tabs-justified>.active>a:hover,.nav-tabs-justified>.active>a:focus{border:1px solid #ddd}@media (min-width:768px){.nav-tabs-justified>li>a{border-bottom:1px solid #ddd;border-radius:4px 4px 0 0}.nav-tabs-justified>.active>a,.nav-tabs-justified>.active>a:hover,.nav-tabs-justified>.active>a:focus{border-bottom-color:#fff}}.tab-content>.tab-pane{display:none;visibility:hidden}.tab-content>.active{display:block;visibility:visible}.nav-tabs .dropdown-menu{margin-top:-1px;border-top-right-radius:0;border-top-left-radius:0}.navbar{position:relative;min-height:50px;margin-bottom:20px;border:1px solid transparent}@media (min-width:768px){.navbar{border-radius:4px}}@media (min-width:768px){.navbar-header{float:left}}.navbar-collapse{overflow-x:visible;padding-right:15px;padding-left:15px;border-top:1px solid transparent;-webkit-box-shadow:inset 0 1px 0 rgba(255,255,255,0.1);box-shadow:inset 0 1px 0 rgba(255,255,255,0.1);-webkit-overflow-scrolling:touch}.navbar-collapse.in{overflow-y:auto}@media (min-width:768px){.navbar-collapse{width:auto;border-top:0;-webkit-box-shadow:none;box-shadow:none}.navbar-collapse.collapse{display:block !important;visibility:visible !important;height:auto !important;padding-bottom:0;overflow:visible !important}.navbar-collapse.in{overflow-y:visible}.navbar-fixed-top .navbar-collapse,.navbar-static-top .navbar-collapse,.navbar-fixed-bottom .navbar-collapse{padding-left:0;padding-right:0}}.navbar-fixed-top .navbar-collapse,.navbar-fixed-bottom .navbar-collapse{max-height:340px}@media (max-device-width:480px) and (orientation:landscape){.navbar-fixed-top .navbar-collapse,.navbar-fixed-bottom .navbar-collapse{max-height:200px}}.container>.navbar-header,.container-fluid>.navbar-header,.container>.navbar-collapse,.container-fluid>.navbar-collapse{margin-right:-15px;margin-left:-15px}@media (min-width:768px){.container>.navbar-header,.container-fluid>.navbar-header,.container>.navbar-collapse,.container-fluid>.navbar-collapse{margin-right:0;margin-left:0}}.navbar-static-top{z-index:1000;border-width:0 0 1px}@media (min-width:768px){.navbar-static-top{border-radius:0}}.navbar-fixed-top,.navbar-fixed-bottom{position:fixed;right:0;left:0;z-index:1030}@media (min-width:768px){.navbar-fixed-top,.navbar-fixed-bottom{border-radius:0}}.navbar-fixed-top{top:0;border-width:0 0 1px}.navbar-fixed-bottom{bottom:0;margin-bottom:0;border-width:1px 0 0}.navbar-brand{float:left;padding:15px 15px;font-size:18px;line-height:20px;height:50px}.navbar-brand:hover,.navbar-brand:focus{text-decoration:none}.navbar-brand>img{display:block}@media (min-width:768px){.navbar>.container .navbar-brand,.navbar>.container-fluid .navbar-brand{margin-left:-15px}}.navbar-toggle{position:relative;float:right;margin-right:15px;padding:9px 10px;margin-top:8px;margin-bottom:8px;background-color:transparent;background-image:none;border:1px solid transparent;border-radius:4px}.navbar-toggle:focus{outline:0}.navbar-toggle .icon-bar{display:block;width:22px;height:2px;border-radius:1px}.navbar-toggle .icon-bar+.icon-bar{margin-top:4px}@media (min-width:768px){.navbar-toggle{display:none}}.navbar-nav{margin:7.5px -15px}.navbar-nav>li>a{padding-top:10px;padding-bottom:10px;line-height:20px}@media (max-width:767px){.navbar-nav .open .dropdown-menu{position:static;float:none;width:auto;margin-top:0;background-color:transparent;border:0;-webkit-box-shadow:none;box-shadow:none}.navbar-nav .open .dropdown-menu>li>a,.navbar-nav .open .dropdown-menu .dropdown-header{padding:5px 15px 5px 25px}.navbar-nav .open .dropdown-menu>li>a{line-height:20px}.navbar-nav .open .dropdown-menu>li>a:hover,.navbar-nav .open .dropdown-menu>li>a:focus{background-image:none}}@media (min-width:768px){.navbar-nav{float:left;margin:0}.navbar-nav>li{float:left}.navbar-nav>li>a{padding-top:15px;padding-bottom:15px}}.navbar-form{margin-left:-15px;margin-right:-15px;padding:10px 15px;border-top:1px solid transparent;border-bottom:1px solid transparent;-webkit-box-shadow:inset 0 1px 0 rgba(255,255,255,0.1),0 1px 0 rgba(255,255,255,0.1);box-shadow:inset 0 1px 0 rgba(255,255,255,0.1),0 1px 0 rgba(255,255,255,0.1);margin-top:8px;margin-bottom:8px}@media (min-width:768px){.navbar-form .form-group{display:inline-block;margin-bottom:0;vertical-align:middle}.navbar-form .form-control{display:inline-block;width:auto;vertical-align:middle}.navbar-form .form-control-static{display:inline-block}.navbar-form .input-group{display:inline-table;vertical-align:middle}.navbar-form .input-group .input-group-addon,.navbar-form .input-group .input-group-btn,.navbar-form .input-group .form-control{width:auto}.navbar-form .input-group>.form-control{width:100%}.navbar-form .control-label{margin-bottom:0;vertical-align:middle}.navbar-form .radio,.navbar-form .checkbox{display:inline-block;margin-top:0;margin-bottom:0;vertical-align:middle}.navbar-form .radio label,.navbar-form .checkbox label{padding-left:0}.navbar-form .radio input[type="radio"],.navbar-form .checkbox input[type="checkbox"]{position:relative;margin-left:0}.navbar-form .has-feedback .form-control-feedback{top:0}}@media (max-width:767px){.navbar-form .form-group{margin-bottom:5px}.navbar-form .form-group:last-child{margin-bottom:0}}@media (min-width:768px){.navbar-form{width:auto;border:0;margin-left:0;margin-right:0;padding-top:0;padding-bottom:0;-webkit-box-shadow:none;box-shadow:none}}.navbar-nav>li>.dropdown-menu{margin-top:0;border-top-right-radius:0;border-top-left-radius:0}.navbar-fixed-bottom .navbar-nav>li>.dropdown-menu{border-top-right-radius:4px;border-top-left-radius:4px;border-bottom-right-radius:0;border-bottom-left-radius:0}.navbar-btn{margin-top:8px;margin-bottom:8px}.navbar-btn.btn-sm{margin-top:10px;margin-bottom:10px}.navbar-btn.btn-xs{margin-top:14px;margin-bottom:14px}.navbar-text{margin-top:15px;margin-bottom:15px}@media (min-width:768px){.navbar-text{float:left;margin-left:15px;margin-right:15px}}@media (min-width:768px){.navbar-left{float:left !important}.navbar-right{float:right !important;margin-right:-15px}.navbar-right~.navbar-right{margin-right:0}}.navbar-default{background-color:#f8f8f8;border-color:#e7e7e7}.navbar-default .navbar-brand{color:#777}.navbar-default .navbar-brand:hover,.navbar-default .navbar-brand:focus{color:#5e5e5e;background-color:transparent}.navbar-default .navbar-text{color:#777}.navbar-default .navbar-nav>li>a{color:#777}.navbar-default .navbar-nav>li>a:hover,.navbar-default .navbar-nav>li>a:focus{color:#333;background-color:transparent}.navbar-default .navbar-nav>.active>a,.navbar-default .navbar-nav>.active>a:hover,.navbar-default .navbar-nav>.active>a:focus{color:#555;background-color:#e7e7e7}.navbar-default .navbar-nav>.disabled>a,.navbar-default .navbar-nav>.disabled>a:hover,.navbar-default .navbar-nav>.disabled>a:focus{color:#ccc;background-color:transparent}.navbar-default .navbar-toggle{border-color:#ddd}.navbar-default .navbar-toggle:hover,.navbar-default .navbar-toggle:focus{background-color:#ddd}.navbar-default .navbar-toggle .icon-bar{background-color:#888}.navbar-default .navbar-collapse,.navbar-default .navbar-form{border-color:#e7e7e7}.navbar-default .navbar-nav>.open>a,.navbar-default .navbar-nav>.open>a:hover,.navbar-default .navbar-nav>.open>a:focus{background-color:#e7e7e7;color:#555}@media (max-width:767px){.navbar-default .navbar-nav .open .dropdown-menu>li>a{color:#777}.navbar-default .navbar-nav .open .dropdown-menu>li>a:hover,.navbar-default .navbar-nav .open .dropdown-menu>li>a:focus{color:#333;background-color:transparent}.navbar-default .navbar-nav .open .dropdown-menu>.active>a,.navbar-default .navbar-nav .open .dropdown-menu>.active>a:hover,.navbar-default .navbar-nav .open .dropdown-menu>.active>a:focus{color:#555;background-color:#e7e7e7}.navbar-default .navbar-nav .open .dropdown-menu>.disabled>a,.navbar-default .navbar-nav .open .dropdown-menu>.disabled>a:hover,.navbar-default .navbar-nav .open .dropdown-menu>.disabled>a:focus{color:#ccc;background-color:transparent}}.navbar-default .navbar-link{color:#777}.navbar-default .navbar-link:hover{color:#333}.navbar-default .btn-link{color:#777}.navbar-default .btn-link:hover,.navbar-default .btn-link:focus{color:#333}.navbar-default .btn-link[disabled]:hover,fieldset[disabled] .navbar-default .btn-link:hover,.navbar-default .btn-link[disabled]:focus,fieldset[disabled] .navbar-default .btn-link:focus{color:#ccc}.navbar-inverse{background-color:#222;border-color:#080808}.navbar-inverse .navbar-brand{color:#9d9d9d}.navbar-inverse .navbar-brand:hover,.navbar-inverse .navbar-brand:focus{color:#fff;background-color:transparent}.navbar-inverse .navbar-text{color:#9d9d9d}.navbar-inverse .navbar-nav>li>a{color:#9d9d9d}.navbar-inverse .navbar-nav>li>a:hover,.navbar-inverse .navbar-nav>li>a:focus{color:#fff;background-color:transparent}.navbar-inverse .navbar-nav>.active>a,.navbar-inverse .navbar-nav>.active>a:hover,.navbar-inverse .navbar-nav>.active>a:focus{color:#fff;background-color:#080808}.navbar-inverse .navbar-nav>.disabled>a,.navbar-inverse .navbar-nav>.disabled>a:hover,.navbar-inverse .navbar-nav>.disabled>a:focus{color:#444;background-color:transparent}.navbar-inverse .navbar-toggle{border-color:#333}.navbar-inverse .navbar-toggle:hover,.navbar-inverse .navbar-toggle:focus{background-color:#333}.navbar-inverse .navbar-toggle .icon-bar{background-color:#fff}.navbar-inverse .navbar-collapse,.navbar-inverse .navbar-form{border-color:#101010}.navbar-inverse .navbar-nav>.open>a,.navbar-inverse .navbar-nav>.open>a:hover,.navbar-inverse .navbar-nav>.open>a:focus{background-color:#080808;color:#fff}@media (max-width:767px){.navbar-inverse .navbar-nav .open .dropdown-menu>.dropdown-header{border-color:#080808}.navbar-inverse .navbar-nav .open .dropdown-menu .divider{background-color:#080808}.navbar-inverse .navbar-nav .open .dropdown-menu>li>a{color:#9d9d9d}.navbar-inverse .navbar-nav .open .dropdown-menu>li>a:hover,.navbar-inverse .navbar-nav .open .dropdown-menu>li>a:focus{color:#fff;background-color:transparent}.navbar-inverse .navbar-nav .open .dropdown-menu>.active>a,.navbar-inverse .navbar-nav .open .dropdown-menu>.active>a:hover,.navbar-inverse .navbar-nav .open .dropdown-menu>.active>a:focus{color:#fff;background-color:#080808}.navbar-inverse .navbar-nav .open .dropdown-menu>.disabled>a,.navbar-inverse .navbar-nav .open .dropdown-menu>.disabled>a:hover,.navbar-inverse .navbar-nav .open .dropdown-menu>.disabled>a:focus{color:#444;background-color:transparent}}.navbar-inverse .navbar-link{color:#9d9d9d}.navbar-inverse .navbar-link:hover{color:#fff}.navbar-inverse .btn-link{color:#9d9d9d}.navbar-inverse .btn-link:hover,.navbar-inverse .btn-link:focus{color:#fff}.navbar-inverse .btn-link[disabled]:hover,fieldset[disabled] .navbar-inverse .btn-link:hover,.navbar-inverse .btn-link[disabled]:focus,fieldset[disabled] .navbar-inverse .btn-link:focus{color:#444}.breadcrumb{padding:8px 15px;margin-bottom:20px;list-style:none;background-color:#f5f5f5;border-radius:4px}.breadcrumb>li{display:inline-block}.breadcrumb>li+li:before{content:"/\00a0";padding:0 5px;color:#ccc}.breadcrumb>.active{color:#777}.pagination{display:inline-block;padding-left:0;margin:20px 0;border-radius:4px}.pagination>li{display:inline}.pagination>li>a,.pagination>li>span{position:relative;float:left;padding:6px 12px;line-height:1.42857143;text-decoration:none;color:#337ab7;background-color:#fff;border:1px solid #ddd;margin-left:-1px}.pagination>li:first-child>a,.pagination>li:first-child>span{margin-left:0;border-bottom-left-radius:4px;border-top-left-radius:4px}.pagination>li:last-child>a,.pagination>li:last-child>span{border-bottom-right-radius:4px;border-top-right-radius:4px}.pagination>li>a:hover,.pagination>li>span:hover,.pagination>li>a:focus,.pagination>li>span:focus{color:#23527c;background-color:#eee;border-color:#ddd}.pagination>.active>a,.pagination>.active>span,.pagination>.active>a:hover,.pagination>.active>span:hover,.pagination>.active>a:focus,.pagination>.active>span:focus{z-index:2;color:#fff;background-color:#337ab7;border-color:#337ab7;cursor:default}.pagination>.disabled>span,.pagination>.disabled>span:hover,.pagination>.disabled>span:focus,.pagination>.disabled>a,.pagination>.disabled>a:hover,.pagination>.disabled>a:focus{color:#777;background-color:#fff;border-color:#ddd;cursor:not-allowed}.pagination-lg>li>a,.pagination-lg>li>span{padding:10px 16px;font-size:18px}.pagination-lg>li:first-child>a,.pagination-lg>li:first-child>span{border-bottom-left-radius:6px;border-top-left-radius:6px}.pagination-lg>li:last-child>a,.pagination-lg>li:last-child>span{border-bottom-right-radius:6px;border-top-right-radius:6px}.pagination-sm>li>a,.pagination-sm>li>span{padding:5px 10px;font-size:12px}.pagination-sm>li:first-child>a,.pagination-sm>li:first-child>span{border-bottom-left-radius:3px;border-top-left-radius:3px}.pagination-sm>li:last-child>a,.pagination-sm>li:last-child>span{border-bottom-right-radius:3px;border-top-right-radius:3px}.pager{padding-left:0;margin:20px 0;list-style:none;text-align:center}.pager li{display:inline}.pager li>a,.pager li>span{display:inline-block;padding:5px 14px;background-color:#fff;border:1px solid #ddd;border-radius:15px}.pager li>a:hover,.pager li>a:focus{text-decoration:none;background-color:#eee}.pager .next>a,.pager .next>span{float:right}.pager .previous>a,.pager .previous>span{float:left}.pager .disabled>a,.pager .disabled>a:hover,.pager .disabled>a:focus,.pager .disabled>span{color:#777;background-color:#fff;cursor:not-allowed}.label{display:inline;padding:.2em .6em .3em;font-size:75%;font-weight:bold;line-height:1;color:#fff;text-align:center;white-space:nowrap;vertical-align:baseline;border-radius:.25em}a.label:hover,a.label:focus{color:#fff;text-decoration:none;cursor:pointer}.label:empty{display:none}.btn .label{position:relative;top:-1px}.label-default{background-color:#777}.label-default[href]:hover,.label-default[href]:focus{background-color:#5e5e5e}.label-primary{background-color:#337ab7}.label-primary[href]:hover,.label-primary[href]:focus{background-color:#286090}.label-success{background-color:#5cb85c}.label-success[href]:hover,.label-success[href]:focus{background-color:#449d44}.label-info{background-color:#5bc0de}.label-info[href]:hover,.label-info[href]:focus{background-color:#31b0d5}.label-warning{background-color:#f0ad4e}.label-warning[href]:hover,.label-warning[href]:focus{background-color:#ec971f}.label-danger{background-color:#d9534f}.label-danger[href]:hover,.label-danger[href]:focus{background-color:#c9302c}.badge{display:inline-block;min-width:10px;padding:3px 7px;font-size:12px;font-weight:bold;color:#fff;line-height:1;vertical-align:baseline;white-space:nowrap;text-align:center;background-color:#777;border-radius:10px}.badge:empty{display:none}.btn .badge{position:relative;top:-1px}.btn-xs .badge{top:0;padding:1px 5px}a.badge:hover,a.badge:focus{color:#fff;text-decoration:none;cursor:pointer}.list-group-item.active>.badge,.nav-pills>.active>a>.badge{color:#337ab7;background-color:#fff}.list-group-item>.badge{float:right}.list-group-item>.badge+.badge{margin-right:5px}.nav-pills>li>a>.badge{margin-left:3px}.jumbotron{padding:30px 15px;margin-bottom:30px;color:inherit;background-color:#eee}.jumbotron h1,.jumbotron .h1{color:inherit}.jumbotron p{margin-bottom:15px;font-size:21px;font-weight:200}.jumbotron>hr{border-top-color:#d5d5d5}.container .jumbotron,.container-fluid .jumbotron{border-radius:6px}.jumbotron .container{max-width:100%}@media screen and (min-width:768px){.jumbotron{padding:48px 0}.container .jumbotron,.container-fluid .jumbotron{padding-left:60px;padding-right:60px}.jumbotron h1,.jumbotron .h1{font-size:63px}}.thumbnail{display:block;padding:4px;margin-bottom:20px;line-height:1.42857143;background-color:#fff;border:1px solid #ddd;border-radius:4px;-webkit-transition:border .2s ease-in-out;-o-transition:border .2s ease-in-out;transition:border .2s ease-in-out}.thumbnail>img,.thumbnail a>img{margin-left:auto;margin-right:auto}a.thumbnail:hover,a.thumbnail:focus,a.thumbnail.active{border-color:#337ab7}.thumbnail .caption{padding:9px;color:#333}.alert{padding:15px;margin-bottom:20px;border:1px solid transparent;border-radius:4px}.alert h4{margin-top:0;color:inherit}.alert .alert-link{font-weight:bold}.alert>p,.alert>ul{margin-bottom:0}.alert>p+p{margin-top:5px}.alert-dismissable,.alert-dismissible{padding-right:35px}.alert-dismissable .close,.alert-dismissible .close{position:relative;top:-2px;right:-21px;color:inherit}.alert-success{background-color:#dff0d8;border-color:#d6e9c6;color:#3c763d}.alert-success hr{border-top-color:#c9e2b3}.alert-success .alert-link{color:#2b542c}.alert-info{background-color:#d9edf7;border-color:#bce8f1;color:#31708f}.alert-info hr{border-top-color:#a6e1ec}.alert-info .alert-link{color:#245269}.alert-warning{background-color:#fcf8e3;border-color:#faebcc;color:#8a6d3b}.alert-warning hr{border-top-color:#f7e1b5}.alert-warning .alert-link{color:#66512c}.alert-danger{background-color:#f2dede;border-color:#ebccd1;color:#a94442}.alert-danger hr{border-top-color:#e4b9c0}.alert-danger .alert-link{color:#843534}.media{margin-top:15px}.media:first-child{margin-top:0}.media-right,.media>.pull-right{padding-left:10px}.media-left,.media>.pull-left{padding-right:10px}.media-left,.media-right,.media-body{display:table-cell;vertical-align:top}.media-middle{vertical-align:middle}.media-bottom{vertical-align:bottom}.media-heading{margin-top:0;margin-bottom:5px}.media-list{padding-left:0;list-style:none}.list-group{margin-bottom:20px;padding-left:0}.list-group-item{position:relative;display:block;padding:10px 15px;margin-bottom:-1px;background-color:#fff;border:1px solid #ddd}.list-group-item:first-child{border-top-right-radius:4px;border-top-left-radius:4px}.list-group-item:last-child{margin-bottom:0;border-bottom-right-radius:4px;border-bottom-left-radius:4px}a.list-group-item{color:#555}a.list-group-item .list-group-item-heading{color:#333}a.list-group-item:hover,a.list-group-item:focus{text-decoration:none;color:#555;background-color:#f5f5f5}.list-group-item.disabled,.list-group-item.disabled:hover,.list-group-item.disabled:focus{background-color:#eee;color:#777;cursor:not-allowed}.list-group-item.disabled .list-group-item-heading,.list-group-item.disabled:hover .list-group-item-heading,.list-group-item.disabled:focus .list-group-item-heading{color:inherit}.list-group-item.disabled .list-group-item-text,.list-group-item.disabled:hover .list-group-item-text,.list-group-item.disabled:focus .list-group-item-text{color:#777}.list-group-item.active,.list-group-item.active:hover,.list-group-item.active:focus{z-index:2;color:#fff;background-color:#337ab7;border-color:#337ab7}.list-group-item.active .list-group-item-heading,.list-group-item.active:hover .list-group-item-heading,.list-group-item.active:focus .list-group-item-heading,.list-group-item.active .list-group-item-heading>small,.list-group-item.active:hover .list-group-item-heading>small,.list-group-item.active:focus .list-group-item-heading>small,.list-group-item.active .list-group-item-heading>.small,.list-group-item.active:hover .list-group-item-heading>.small,.list-group-item.active:focus .list-group-item-heading>.small{color:inherit}.list-group-item.active .list-group-item-text,.list-group-item.active:hover .list-group-item-text,.list-group-item.active:focus .list-group-item-text{color:#c7ddef}.list-group-item-success{color:#3c763d;background-color:#dff0d8}a.list-group-item-success{color:#3c763d}a.list-group-item-success .list-group-item-heading{color:inherit}a.list-group-item-success:hover,a.list-group-item-success:focus{color:#3c763d;background-color:#d0e9c6}a.list-group-item-success.active,a.list-group-item-success.active:hover,a.list-group-item-success.active:focus{color:#fff;background-color:#3c763d;border-color:#3c763d}.list-group-item-info{color:#31708f;background-color:#d9edf7}a.list-group-item-info{color:#31708f}a.list-group-item-info .list-group-item-heading{color:inherit}a.list-group-item-info:hover,a.list-group-item-info:focus{color:#31708f;background-color:#c4e3f3}a.list-group-item-info.active,a.list-group-item-info.active:hover,a.list-group-item-info.active:focus{color:#fff;background-color:#31708f;border-color:#31708f}.list-group-item-warning{color:#8a6d3b;background-color:#fcf8e3}a.list-group-item-warning{color:#8a6d3b}a.list-group-item-warning .list-group-item-heading{color:inherit}a.list-group-item-warning:hover,a.list-group-item-warning:focus{color:#8a6d3b;background-color:#faf2cc}a.list-group-item-warning.active,a.list-group-item-warning.active:hover,a.list-group-item-warning.active:focus{color:#fff;background-color:#8a6d3b;border-color:#8a6d3b}.list-group-item-danger{color:#a94442;background-color:#f2dede}a.list-group-item-danger{color:#a94442}a.list-group-item-danger .list-group-item-heading{color:inherit}a.list-group-item-danger:hover,a.list-group-item-danger:focus{color:#a94442;background-color:#ebcccc}a.list-group-item-danger.active,a.list-group-item-danger.active:hover,a.list-group-item-danger.active:focus{color:#fff;background-color:#a94442;border-color:#a94442}.list-group-item-heading{margin-top:0;margin-bottom:5px}.list-group-item-text{margin-bottom:0;line-height:1.3}.panel{margin-bottom:20px;background-color:#fff;border:1px solid transparent;border-radius:4px;-webkit-box-shadow:0 1px 1px rgba(0,0,0,0.05);box-shadow:0 1px 1px rgba(0,0,0,0.05)}.panel-body{padding:15px}.panel-heading{padding:10px 15px;border-bottom:1px solid transparent;border-top-right-radius:3px;border-top-left-radius:3px}.panel-heading>.dropdown .dropdown-toggle{color:inherit}.panel-title{margin-top:0;margin-bottom:0;font-size:16px;color:inherit}.panel-title>a{color:inherit}.panel-footer{padding:10px 15px;background-color:#f5f5f5;border-top:1px solid #ddd;border-bottom-right-radius:3px;border-bottom-left-radius:3px}.panel>.list-group,.panel>.panel-collapse>.list-group{margin-bottom:0}.panel>.list-group .list-group-item,.panel>.panel-collapse>.list-group .list-group-item{border-width:1px 0;border-radius:0}.panel>.list-group:first-child .list-group-item:first-child,.panel>.panel-collapse>.list-group:first-child .list-group-item:first-child{border-top:0;border-top-right-radius:3px;border-top-left-radius:3px}.panel>.list-group:last-child .list-group-item:last-child,.panel>.panel-collapse>.list-group:last-child .list-group-item:last-child{border-bottom:0;border-bottom-right-radius:3px;border-bottom-left-radius:3px}.panel-heading+.list-group .list-group-item:first-child{border-top-width:0}.list-group+.panel-footer{border-top-width:0}.panel>.table,.panel>.table-responsive>.table,.panel>.panel-collapse>.table{margin-bottom:0}.panel>.table caption,.panel>.table-responsive>.table caption,.panel>.panel-collapse>.table caption{padding-left:15px;padding-right:15px}.panel>.table:first-child,.panel>.table-responsive:first-child>.table:first-child{border-top-right-radius:3px;border-top-left-radius:3px}.panel>.table:first-child>thead:first-child>tr:first-child,.panel>.table-responsive:first-child>.table:first-child>thead:first-child>tr:first-child,.panel>.table:first-child>tbody:first-child>tr:first-child,.panel>.table-responsive:first-child>.table:first-child>tbody:first-child>tr:first-child{border-top-left-radius:3px;border-top-right-radius:3px}.panel>.table:first-child>thead:first-child>tr:first-child td:first-child,.panel>.table-responsive:first-child>.table:first-child>thead:first-child>tr:first-child td:first-child,.panel>.table:first-child>tbody:first-child>tr:first-child td:first-child,.panel>.table-responsive:first-child>.table:first-child>tbody:first-child>tr:first-child td:first-child,.panel>.table:first-child>thead:first-child>tr:first-child th:first-child,.panel>.table-responsive:first-child>.table:first-child>thead:first-child>tr:first-child th:first-child,.panel>.table:first-child>tbody:first-child>tr:first-child th:first-child,.panel>.table-responsive:first-child>.table:first-child>tbody:first-child>tr:first-child th:first-child{border-top-left-radius:3px}.panel>.table:first-child>thead:first-child>tr:first-child td:last-child,.panel>.table-responsive:first-child>.table:first-child>thead:first-child>tr:first-child td:last-child,.panel>.table:first-child>tbody:first-child>tr:first-child td:last-child,.panel>.table-responsive:first-child>.table:first-child>tbody:first-child>tr:first-child td:last-child,.panel>.table:first-child>thead:first-child>tr:first-child th:last-child,.panel>.table-responsive:first-child>.table:first-child>thead:first-child>tr:first-child th:last-child,.panel>.table:first-child>tbody:first-child>tr:first-child th:last-child,.panel>.table-responsive:first-child>.table:first-child>tbody:first-child>tr:first-child th:last-child{border-top-right-radius:3px}.panel>.table:last-child,.panel>.table-responsive:last-child>.table:last-child{border-bottom-right-radius:3px;border-bottom-left-radius:3px}.panel>.table:last-child>tbody:last-child>tr:last-child,.panel>.table-responsive:last-child>.table:last-child>tbody:last-child>tr:last-child,.panel>.table:last-child>tfoot:last-child>tr:last-child,.panel>.table-responsive:last-child>.table:last-child>tfoot:last-child>tr:last-child{border-bottom-left-radius:3px;border-bottom-right-radius:3px}.panel>.table:last-child>tbody:last-child>tr:last-child td:first-child,.panel>.table-responsive:last-child>.table:last-child>tbody:last-child>tr:last-child td:first-child,.panel>.table:last-child>tfoot:last-child>tr:last-child td:first-child,.panel>.table-responsive:last-child>.table:last-child>tfoot:last-child>tr:last-child td:first-child,.panel>.table:last-child>tbody:last-child>tr:last-child th:first-child,.panel>.table-responsive:last-child>.table:last-child>tbody:last-child>tr:last-child th:first-child,.panel>.table:last-child>tfoot:last-child>tr:last-child th:first-child,.panel>.table-responsive:last-child>.table:last-child>tfoot:last-child>tr:last-child th:first-child{border-bottom-left-radius:3px}.panel>.table:last-child>tbody:last-child>tr:last-child td:last-child,.panel>.table-responsive:last-child>.table:last-child>tbody:last-child>tr:last-child td:last-child,.panel>.table:last-child>tfoot:last-child>tr:last-child td:last-child,.panel>.table-responsive:last-child>.table:last-child>tfoot:last-child>tr:last-child td:last-child,.panel>.table:last-child>tbody:last-child>tr:last-child th:last-child,.panel>.table-responsive:last-child>.table:last-child>tbody:last-child>tr:last-child th:last-child,.panel>.table:last-child>tfoot:last-child>tr:last-child th:last-child,.panel>.table-responsive:last-child>.table:last-child>tfoot:last-child>tr:last-child th:last-child{border-bottom-right-radius:3px}.panel>.panel-body+.table,.panel>.panel-body+.table-responsive,.panel>.table+.panel-body,.panel>.table-responsive+.panel-body{border-top:1px solid #ddd}.panel>.table>tbody:first-child>tr:first-child th,.panel>.table>tbody:first-child>tr:first-child td{border-top:0}.panel>.table-bordered,.panel>.table-responsive>.table-bordered{border:0}.panel>.table-bordered>thead>tr>th:first-child,.panel>.table-responsive>.table-bordered>thead>tr>th:first-child,.panel>.table-bordered>tbody>tr>th:first-child,.panel>.table-responsive>.table-bordered>tbody>tr>th:first-child,.panel>.table-bordered>tfoot>tr>th:first-child,.panel>.table-responsive>.table-bordered>tfoot>tr>th:first-child,.panel>.table-bordered>thead>tr>td:first-child,.panel>.table-responsive>.table-bordered>thead>tr>td:first-child,.panel>.table-bordered>tbody>tr>td:first-child,.panel>.table-responsive>.table-bordered>tbody>tr>td:first-child,.panel>.table-bordered>tfoot>tr>td:first-child,.panel>.table-responsive>.table-bordered>tfoot>tr>td:first-child{border-left:0}.panel>.table-bordered>thead>tr>th:last-child,.panel>.table-responsive>.table-bordered>thead>tr>th:last-child,.panel>.table-bordered>tbody>tr>th:last-child,.panel>.table-responsive>.table-bordered>tbody>tr>th:last-child,.panel>.table-bordered>tfoot>tr>th:last-child,.panel>.table-responsive>.table-bordered>tfoot>tr>th:last-child,.panel>.table-bordered>thead>tr>td:last-child,.panel>.table-responsive>.table-bordered>thead>tr>td:last-child,.panel>.table-bordered>tbody>tr>td:last-child,.panel>.table-responsive>.table-bordered>tbody>tr>td:last-child,.panel>.table-bordered>tfoot>tr>td:last-child,.panel>.table-responsive>.table-bordered>tfoot>tr>td:last-child{border-right:0}.panel>.table-bordered>thead>tr:first-child>td,.panel>.table-responsive>.table-bordered>thead>tr:first-child>td,.panel>.table-bordered>tbody>tr:first-child>td,.panel>.table-responsive>.table-bordered>tbody>tr:first-child>td,.panel>.table-bordered>thead>tr:first-child>th,.panel>.table-responsive>.table-bordered>thead>tr:first-child>th,.panel>.table-bordered>tbody>tr:first-child>th,.panel>.table-responsive>.table-bordered>tbody>tr:first-child>th{border-bottom:0}.panel>.table-bordered>tbody>tr:last-child>td,.panel>.table-responsive>.table-bordered>tbody>tr:last-child>td,.panel>.table-bordered>tfoot>tr:last-child>td,.panel>.table-responsive>.table-bordered>tfoot>tr:last-child>td,.panel>.table-bordered>tbody>tr:last-child>th,.panel>.table-responsive>.table-bordered>tbody>tr:last-child>th,.panel>.table-bordered>tfoot>tr:last-child>th,.panel>.table-responsive>.table-bordered>tfoot>tr:last-child>th{border-bottom:0}.panel>.table-responsive{border:0;margin-bottom:0}.panel-group{margin-bottom:20px}.panel-group .panel{margin-bottom:0;border-radius:4px}.panel-group .panel+.panel{margin-top:5px}.panel-group .panel-heading{border-bottom:0}.panel-group .panel-heading+.panel-collapse>.panel-body,.panel-group .panel-heading+.panel-collapse>.list-group{border-top:1px solid #ddd}.panel-group .panel-footer{border-top:0}.panel-group .panel-footer+.panel-collapse .panel-body{border-bottom:1px solid #ddd}.panel-default{border-color:#ddd}.panel-default>.panel-heading{color:#333;background-color:#f5f5f5;border-color:#ddd}.panel-default>.panel-heading+.panel-collapse>.panel-body{border-top-color:#ddd}.panel-default>.panel-heading .badge{color:#f5f5f5;background-color:#333}.panel-default>.panel-footer+.panel-collapse>.panel-body{border-bottom-color:#ddd}.panel-primary{border-color:#337ab7}.panel-primary>.panel-heading{color:#fff;background-color:#337ab7;border-color:#337ab7}.panel-primary>.panel-heading+.panel-collapse>.panel-body{border-top-color:#337ab7}.panel-primary>.panel-heading .badge{color:#337ab7;background-color:#fff}.panel-primary>.panel-footer+.panel-collapse>.panel-body{border-bottom-color:#337ab7}.panel-success{border-color:#d6e9c6}.panel-success>.panel-heading{color:#3c763d;background-color:#dff0d8;border-color:#d6e9c6}.panel-success>.panel-heading+.panel-collapse>.panel-body{border-top-color:#d6e9c6}.panel-success>.panel-heading .badge{color:#dff0d8;background-color:#3c763d}.panel-success>.panel-footer+.panel-collapse>.panel-body{border-bottom-color:#d6e9c6}.panel-info{border-color:#bce8f1}.panel-info>.panel-heading{color:#31708f;background-color:#d9edf7;border-color:#bce8f1}.panel-info>.panel-heading+.panel-collapse>.panel-body{border-top-color:#bce8f1}.panel-info>.panel-heading .badge{color:#d9edf7;background-color:#31708f}.panel-info>.panel-footer+.panel-collapse>.panel-body{border-bottom-color:#bce8f1}.panel-warning{border-color:#faebcc}.panel-warning>.panel-heading{color:#8a6d3b;background-color:#fcf8e3;border-color:#faebcc}.panel-warning>.panel-heading+.panel-collapse>.panel-body{border-top-color:#faebcc}.panel-warning>.panel-heading .badge{color:#fcf8e3;background-color:#8a6d3b}.panel-warning>.panel-footer+.panel-collapse>.panel-body{border-bottom-color:#faebcc}.panel-danger{border-color:#ebccd1}.panel-danger>.panel-heading{color:#a94442;background-color:#f2dede;border-color:#ebccd1}.panel-danger>.panel-heading+.panel-collapse>.panel-body{border-top-color:#ebccd1}.panel-danger>.panel-heading .badge{color:#f2dede;background-color:#a94442}.panel-danger>.panel-footer+.panel-collapse>.panel-body{border-bottom-color:#ebccd1}.embed-responsive{position:relative;display:block;height:0;padding:0;overflow:hidden}.embed-responsive .embed-responsive-item,.embed-responsive iframe,.embed-responsive embed,.embed-responsive object,.embed-responsive video{position:absolute;top:0;left:0;bottom:0;height:100%;width:100%;border:0}.embed-responsive.embed-responsive-16by9{padding-bottom:56.25%}.embed-responsive.embed-responsive-4by3{padding-bottom:75%}.well{min-height:20px;padding:19px;margin-bottom:20px;background-color:#f5f5f5;border:1px solid #e3e3e3;border-radius:4px;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,0.05);box-shadow:inset 0 1px 1px rgba(0,0,0,0.05)}.well blockquote{border-color:#ddd;border-color:rgba(0,0,0,0.15)}.well-lg{padding:24px;border-radius:6px}.well-sm{padding:9px;border-radius:3px}.close{float:right;font-size:21px;font-weight:bold;line-height:1;color:#000;text-shadow:0 1px 0 #fff;opacity:.2;filter:alpha(opacity=20)}.close:hover,.close:focus{color:#000;text-decoration:none;cursor:pointer;opacity:.5;filter:alpha(opacity=50)}button.close{padding:0;cursor:pointer;background:transparent;border:0;-webkit-appearance:none}.modal-open{overflow:hidden}.modal{display:none;overflow:hidden;position:fixed;top:0;right:0;bottom:0;left:0;z-index:1040;-webkit-overflow-scrolling:touch;outline:0}.modal.fade .modal-dialog{-webkit-transform:translate(0, -25%);-ms-transform:translate(0, -25%);-o-transform:translate(0, -25%);transform:translate(0, -25%);-webkit-transition:-webkit-transform 0.3s ease-out;-o-transition:-o-transform 0.3s ease-out;transition:transform 0.3s ease-out}.modal.in .modal-dialog{-webkit-transform:translate(0, 0);-ms-transform:translate(0, 0);-o-transform:translate(0, 0);transform:translate(0, 0)}.modal-open .modal{overflow-x:hidden;overflow-y:auto}.modal-dialog{position:relative;width:auto;margin:10px}.modal-content{position:relative;background-color:#fff;border:1px solid #999;border:1px solid rgba(0,0,0,0.2);border-radius:6px;-webkit-box-shadow:0 3px 9px rgba(0,0,0,0.5);box-shadow:0 3px 9px rgba(0,0,0,0.5);-webkit-background-clip:padding-box;background-clip:padding-box;outline:0}.modal-backdrop{position:absolute;top:0;right:0;left:0;background-color:#000}.modal-backdrop.fade{opacity:0;filter:alpha(opacity=0)}.modal-backdrop.in{opacity:.5;filter:alpha(opacity=50)}.modal-header{padding:15px;border-bottom:1px solid #e5e5e5;min-height:16.42857143px}.modal-header .close{margin-top:-2px}.modal-title{margin:0;line-height:1.42857143}.modal-body{position:relative;padding:15px}.modal-footer{padding:15px;text-align:right;border-top:1px solid #e5e5e5}.modal-footer .btn+.btn{margin-left:5px;margin-bottom:0}.modal-footer .btn-group .btn+.btn{margin-left:-1px}.modal-footer .btn-block+.btn-block{margin-left:0}.modal-scrollbar-measure{position:absolute;top:-9999px;width:50px;height:50px;overflow:scroll}@media (min-width:768px){.modal-dialog{width:600px;margin:30px auto}.modal-content{-webkit-box-shadow:0 5px 15px rgba(0,0,0,0.5);box-shadow:0 5px 15px rgba(0,0,0,0.5)}.modal-sm{width:300px}}@media (min-width:992px){.modal-lg{width:900px}}.tooltip{position:absolute;z-index:1070;display:block;visibility:visible;font-family:"Helvetica Neue",Helvetica,Arial,sans-serif;font-size:12px;font-weight:normal;line-height:1.4;opacity:0;filter:alpha(opacity=0)}.tooltip.in{opacity:.9;filter:alpha(opacity=90)}.tooltip.top{margin-top:-3px;padding:5px 0}.tooltip.right{margin-left:3px;padding:0 5px}.tooltip.bottom{margin-top:3px;padding:5px 0}.tooltip.left{margin-left:-3px;padding:0 5px}.tooltip-inner{max-width:200px;padding:3px 8px;color:#fff;text-align:center;text-decoration:none;background-color:#000;border-radius:4px}.tooltip-arrow{position:absolute;width:0;height:0;border-color:transparent;border-style:solid}.tooltip.top .tooltip-arrow{bottom:0;left:50%;margin-left:-5px;border-width:5px 5px 0;border-top-color:#000}.tooltip.top-left .tooltip-arrow{bottom:0;right:5px;margin-bottom:-5px;border-width:5px 5px 0;border-top-color:#000}.tooltip.top-right .tooltip-arrow{bottom:0;left:5px;margin-bottom:-5px;border-width:5px 5px 0;border-top-color:#000}.tooltip.right .tooltip-arrow{top:50%;left:0;margin-top:-5px;border-width:5px 5px 5px 0;border-right-color:#000}.tooltip.left .tooltip-arrow{top:50%;right:0;margin-top:-5px;border-width:5px 0 5px 5px;border-left-color:#000}.tooltip.bottom .tooltip-arrow{top:0;left:50%;margin-left:-5px;border-width:0 5px 5px;border-bottom-color:#000}.tooltip.bottom-left .tooltip-arrow{top:0;right:5px;margin-top:-5px;border-width:0 5px 5px;border-bottom-color:#000}.tooltip.bottom-right .tooltip-arrow{top:0;left:5px;margin-top:-5px;border-width:0 5px 5px;border-bottom-color:#000}.popover{position:absolute;top:0;left:0;z-index:1060;display:none;max-width:276px;padding:1px;font-family:"Helvetica Neue",Helvetica,Arial,sans-serif;font-size:14px;font-weight:normal;line-height:1.42857143;text-align:left;background-color:#fff;-webkit-background-clip:padding-box;background-clip:padding-box;border:1px solid #ccc;border:1px solid rgba(0,0,0,0.2);border-radius:6px;-webkit-box-shadow:0 5px 10px rgba(0,0,0,0.2);box-shadow:0 5px 10px rgba(0,0,0,0.2);white-space:normal}.popover.top{margin-top:-10px}.popover.right{margin-left:10px}.popover.bottom{margin-top:10px}.popover.left{margin-left:-10px}.popover-title{margin:0;padding:8px 14px;font-size:14px;background-color:#f7f7f7;border-bottom:1px solid #ebebeb;border-radius:5px 5px 0 0}.popover-content{padding:9px 14px}.popover>.arrow,.popover>.arrow:after{position:absolute;display:block;width:0;height:0;border-color:transparent;border-style:solid}.popover>.arrow{border-width:11px}.popover>.arrow:after{border-width:10px;content:""}.popover.top>.arrow{left:50%;margin-left:-11px;border-bottom-width:0;border-top-color:#999;border-top-color:rgba(0,0,0,0.25);bottom:-11px}.popover.top>.arrow:after{content:" ";bottom:1px;margin-left:-10px;border-bottom-width:0;border-top-color:#fff}.popover.right>.arrow{top:50%;left:-11px;margin-top:-11px;border-left-width:0;border-right-color:#999;border-right-color:rgba(0,0,0,0.25)}.popover.right>.arrow:after{content:" ";left:1px;bottom:-10px;border-left-width:0;border-right-color:#fff}.popover.bottom>.arrow{left:50%;margin-left:-11px;border-top-width:0;border-bottom-color:#999;border-bottom-color:rgba(0,0,0,0.25);top:-11px}.popover.bottom>.arrow:after{content:" ";top:1px;margin-left:-10px;border-top-width:0;border-bottom-color:#fff}.popover.left>.arrow{top:50%;right:-11px;margin-top:-11px;border-right-width:0;border-left-color:#999;border-left-color:rgba(0,0,0,0.25)}.popover.left>.arrow:after{content:" ";right:1px;border-right-width:0;border-left-color:#fff;bottom:-10px}.clearfix:before,.clearfix:after,.dl-horizontal dd:before,.dl-horizontal dd:after,.container:before,.container:after,.container-fluid:before,.container-fluid:after,.row:before,.row:after,.form-horizontal .form-group:before,.form-horizontal .form-group:after,.btn-toolbar:before,.btn-toolbar:after,.btn-group-vertical>.btn-group:before,.btn-group-vertical>.btn-group:after,.nav:before,.nav:after,.navbar:before,.navbar:after,.navbar-header:before,.navbar-header:after,.navbar-collapse:before,.navbar-collapse:after,.pager:before,.pager:after,.panel-body:before,.panel-body:after,.modal-footer:before,.modal-footer:after{content:" ";display:table}.clearfix:after,.dl-horizontal dd:after,.container:after,.container-fluid:after,.row:after,.form-horizontal .form-group:after,.btn-toolbar:after,.btn-group-vertical>.btn-group:after,.nav:after,.navbar:after,.navbar-header:after,.navbar-collapse:after,.pager:after,.panel-body:after,.modal-footer:after{clear:both}.center-block{display:block;margin-left:auto;margin-right:auto}.pull-right{float:right !important}.pull-left{float:left !important}.hide{display:none !important}.show{display:block !important}.invisible{visibility:hidden}.text-hide{font:0/0 a;color:transparent;text-shadow:none;background-color:transparent;border:0}.hidden{display:none !important;visibility:hidden !important}.affix{position:fixed}@-ms-viewport{width:device-width}.visible-xs,.visible-sm,.visible-md,.visible-lg{display:none !important}.visible-xs-block,.visible-xs-inline,.visible-xs-inline-block,.visible-sm-block,.visible-sm-inline,.visible-sm-inline-block,.visible-md-block,.visible-md-inline,.visible-md-inline-block,.visible-lg-block,.visible-lg-inline,.visible-lg-inline-block{display:none !important}@media (max-width:767px){.visible-xs{display:block !important}table.visible-xs{display:table}tr.visible-xs{display:table-row !important}th.visible-xs,td.visible-xs{display:table-cell !important}}@media (max-width:767px){.visible-xs-block{display:block !important}}@media (max-width:767px){.visible-xs-inline{display:inline !important}}@media (max-width:767px){.visible-xs-inline-block{display:inline-block !important}}@media (min-width:768px) and (max-width:991px){.visible-sm{display:block !important}table.visible-sm{display:table}tr.visible-sm{display:table-row !important}th.visible-sm,td.visible-sm{display:table-cell !important}}@media (min-width:768px) and (max-width:991px){.visible-sm-block{display:block !important}}@media (min-width:768px) and (max-width:991px){.visible-sm-inline{display:inline !important}}@media (min-width:768px) and (max-width:991px){.visible-sm-inline-block{display:inline-block !important}}@media (min-width:992px) and (max-width:1199px){.visible-md{display:block !important}table.visible-md{display:table}tr.visible-md{display:table-row !important}th.visible-md,td.visible-md{display:table-cell !important}}@media (min-width:992px) and (max-width:1199px){.visible-md-block{display:block !important}}@media (min-width:992px) and (max-width:1199px){.visible-md-inline{display:inline !important}}@media (min-width:992px) and (max-width:1199px){.visible-md-inline-block{display:inline-block !important}}@media (min-width:1200px){.visible-lg{display:block !important}table.visible-lg{display:table}tr.visible-lg{display:table-row !important}th.visible-lg,td.visible-lg{display:table-cell !important}}@media (min-width:1200px){.visible-lg-block{display:block !important}}@media (min-width:1200px){.visible-lg-inline{display:inline !important}}@media (min-width:1200px){.visible-lg-inline-block{display:inline-block !important}}@media (max-width:767px){.hidden-xs{display:none !important}}@media (min-width:768px) and (max-width:991px){.hidden-sm{display:none !important}}@media (min-width:992px) and (max-width:1199px){.hidden-md{display:none !important}}@media (min-width:1200px){.hidden-lg{display:none !important}}.visible-print{display:none !important}@media print{.visible-print{display:block !important}table.visible-print{display:table}tr.visible-print{display:table-row !important}th.visible-print,td.visible-print{display:table-cell !important}}.visible-print-block{display:none !important}@media print{.visible-print-block{display:block !important}}.visible-print-inline{display:none !important}@media print{.visible-print-inline{display:inline !important}}.visible-print-inline-block{display:none !important}@media print{.visible-print-inline-block{display:inline-block !important}}@media print{.hidden-print{display:none !important}}
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/css/font-awesome.css b/reference/rte-fortran-interface/css/font-awesome.css
new file mode 100644
index 000000000..4040b3cf8
--- /dev/null
+++ b/reference/rte-fortran-interface/css/font-awesome.css
@@ -0,0 +1,1672 @@
+/*!
+ *  Font Awesome 4.2.0 by @davegandy - http://fontawesome.io - @fontawesome
+ *  License - http://fontawesome.io/license (Font: SIL OFL 1.1, CSS: MIT License)
+ */
+/* FONT PATH
+ * -------------------------- */
+@font-face {
+  font-family: 'FontAwesome';
+  src: url('../fonts/fontawesome-webfont.eot?v=4.2.0');
+  src: url('../fonts/fontawesome-webfont.eot?#iefix&v=4.2.0') format('embedded-opentype'), url('../fonts/fontawesome-webfont.woff?v=4.2.0') format('woff'), url('../fonts/fontawesome-webfont.ttf?v=4.2.0') format('truetype'), url('../fonts/fontawesome-webfont.svg?v=4.2.0#fontawesomeregular') format('svg');
+  font-weight: normal;
+  font-style: normal;
+}
+.fa {
+  display: inline-block;
+  font: normal normal normal 14px/1 FontAwesome;
+  font-size: inherit;
+  text-rendering: auto;
+  -webkit-font-smoothing: antialiased;
+  -moz-osx-font-smoothing: grayscale;
+}
+/* makes the font 33% larger relative to the icon container */
+.fa-lg {
+  font-size: 1.33333333em;
+  line-height: 0.75em;
+  vertical-align: -15%;
+}
+.fa-2x {
+  font-size: 2em;
+}
+.fa-3x {
+  font-size: 3em;
+}
+.fa-4x {
+  font-size: 4em;
+}
+.fa-5x {
+  font-size: 5em;
+}
+.fa-fw {
+  width: 1.28571429em;
+  text-align: center;
+}
+.fa-ul {
+  padding-left: 0;
+  margin-left: 2.14285714em;
+  list-style-type: none;
+}
+.fa-ul > li {
+  position: relative;
+}
+.fa-li {
+  position: absolute;
+  left: -2.14285714em;
+  width: 2.14285714em;
+  top: 0.14285714em;
+  text-align: center;
+}
+.fa-li.fa-lg {
+  left: -1.85714286em;
+}
+.fa-border {
+  padding: .2em .25em .15em;
+  border: solid 0.08em #eeeeee;
+  border-radius: .1em;
+}
+.pull-right {
+  float: right;
+}
+.pull-left {
+  float: left;
+}
+.fa.pull-left {
+  margin-right: .3em;
+}
+.fa.pull-right {
+  margin-left: .3em;
+}
+.fa-spin {
+  -webkit-animation: fa-spin 2s infinite linear;
+  animation: fa-spin 2s infinite linear;
+}
+@-webkit-keyframes fa-spin {
+  0% {
+    -webkit-transform: rotate(0deg);
+    transform: rotate(0deg);
+  }
+  100% {
+    -webkit-transform: rotate(359deg);
+    transform: rotate(359deg);
+  }
+}
+@keyframes fa-spin {
+  0% {
+    -webkit-transform: rotate(0deg);
+    transform: rotate(0deg);
+  }
+  100% {
+    -webkit-transform: rotate(359deg);
+    transform: rotate(359deg);
+  }
+}
+.fa-rotate-90 {
+  filter: progid:DXImageTransform.Microsoft.BasicImage(rotation=1);
+  -webkit-transform: rotate(90deg);
+  -ms-transform: rotate(90deg);
+  transform: rotate(90deg);
+}
+.fa-rotate-180 {
+  filter: progid:DXImageTransform.Microsoft.BasicImage(rotation=2);
+  -webkit-transform: rotate(180deg);
+  -ms-transform: rotate(180deg);
+  transform: rotate(180deg);
+}
+.fa-rotate-270 {
+  filter: progid:DXImageTransform.Microsoft.BasicImage(rotation=3);
+  -webkit-transform: rotate(270deg);
+  -ms-transform: rotate(270deg);
+  transform: rotate(270deg);
+}
+.fa-flip-horizontal {
+  filter: progid:DXImageTransform.Microsoft.BasicImage(rotation=0, mirror=1);
+  -webkit-transform: scale(-1, 1);
+  -ms-transform: scale(-1, 1);
+  transform: scale(-1, 1);
+}
+.fa-flip-vertical {
+  filter: progid:DXImageTransform.Microsoft.BasicImage(rotation=2, mirror=1);
+  -webkit-transform: scale(1, -1);
+  -ms-transform: scale(1, -1);
+  transform: scale(1, -1);
+}
+:root .fa-rotate-90,
+:root .fa-rotate-180,
+:root .fa-rotate-270,
+:root .fa-flip-horizontal,
+:root .fa-flip-vertical {
+  filter: none;
+}
+.fa-stack {
+  position: relative;
+  display: inline-block;
+  width: 2em;
+  height: 2em;
+  line-height: 2em;
+  vertical-align: middle;
+}
+.fa-stack-1x,
+.fa-stack-2x {
+  position: absolute;
+  left: 0;
+  width: 100%;
+  text-align: center;
+}
+.fa-stack-1x {
+  line-height: inherit;
+}
+.fa-stack-2x {
+  font-size: 2em;
+}
+.fa-inverse {
+  color: #ffffff;
+}
+/* Font Awesome uses the Unicode Private Use Area (PUA) to ensure screen
+   readers do not read off random characters that represent icons */
+.fa-glass:before {
+  content: "\f000";
+}
+.fa-music:before {
+  content: "\f001";
+}
+.fa-search:before {
+  content: "\f002";
+}
+.fa-envelope-o:before {
+  content: "\f003";
+}
+.fa-heart:before {
+  content: "\f004";
+}
+.fa-star:before {
+  content: "\f005";
+}
+.fa-star-o:before {
+  content: "\f006";
+}
+.fa-user:before {
+  content: "\f007";
+}
+.fa-film:before {
+  content: "\f008";
+}
+.fa-th-large:before {
+  content: "\f009";
+}
+.fa-th:before {
+  content: "\f00a";
+}
+.fa-th-list:before {
+  content: "\f00b";
+}
+.fa-check:before {
+  content: "\f00c";
+}
+.fa-remove:before,
+.fa-close:before,
+.fa-times:before {
+  content: "\f00d";
+}
+.fa-search-plus:before {
+  content: "\f00e";
+}
+.fa-search-minus:before {
+  content: "\f010";
+}
+.fa-power-off:before {
+  content: "\f011";
+}
+.fa-signal:before {
+  content: "\f012";
+}
+.fa-gear:before,
+.fa-cog:before {
+  content: "\f013";
+}
+.fa-trash-o:before {
+  content: "\f014";
+}
+.fa-home:before {
+  content: "\f015";
+}
+.fa-file-o:before {
+  content: "\f016";
+}
+.fa-clock-o:before {
+  content: "\f017";
+}
+.fa-road:before {
+  content: "\f018";
+}
+.fa-download:before {
+  content: "\f019";
+}
+.fa-arrow-circle-o-down:before {
+  content: "\f01a";
+}
+.fa-arrow-circle-o-up:before {
+  content: "\f01b";
+}
+.fa-inbox:before {
+  content: "\f01c";
+}
+.fa-play-circle-o:before {
+  content: "\f01d";
+}
+.fa-rotate-right:before,
+.fa-repeat:before {
+  content: "\f01e";
+}
+.fa-refresh:before {
+  content: "\f021";
+}
+.fa-list-alt:before {
+  content: "\f022";
+}
+.fa-lock:before {
+  content: "\f023";
+}
+.fa-flag:before {
+  content: "\f024";
+}
+.fa-headphones:before {
+  content: "\f025";
+}
+.fa-volume-off:before {
+  content: "\f026";
+}
+.fa-volume-down:before {
+  content: "\f027";
+}
+.fa-volume-up:before {
+  content: "\f028";
+}
+.fa-qrcode:before {
+  content: "\f029";
+}
+.fa-barcode:before {
+  content: "\f02a";
+}
+.fa-tag:before {
+  content: "\f02b";
+}
+.fa-tags:before {
+  content: "\f02c";
+}
+.fa-book:before {
+  content: "\f02d";
+}
+.fa-bookmark:before {
+  content: "\f02e";
+}
+.fa-print:before {
+  content: "\f02f";
+}
+.fa-camera:before {
+  content: "\f030";
+}
+.fa-font:before {
+  content: "\f031";
+}
+.fa-bold:before {
+  content: "\f032";
+}
+.fa-italic:before {
+  content: "\f033";
+}
+.fa-text-height:before {
+  content: "\f034";
+}
+.fa-text-width:before {
+  content: "\f035";
+}
+.fa-align-left:before {
+  content: "\f036";
+}
+.fa-align-center:before {
+  content: "\f037";
+}
+.fa-align-right:before {
+  content: "\f038";
+}
+.fa-align-justify:before {
+  content: "\f039";
+}
+.fa-list:before {
+  content: "\f03a";
+}
+.fa-dedent:before,
+.fa-outdent:before {
+  content: "\f03b";
+}
+.fa-indent:before {
+  content: "\f03c";
+}
+.fa-video-camera:before {
+  content: "\f03d";
+}
+.fa-photo:before,
+.fa-image:before,
+.fa-picture-o:before {
+  content: "\f03e";
+}
+.fa-pencil:before {
+  content: "\f040";
+}
+.fa-map-marker:before {
+  content: "\f041";
+}
+.fa-adjust:before {
+  content: "\f042";
+}
+.fa-tint:before {
+  content: "\f043";
+}
+.fa-edit:before,
+.fa-pencil-square-o:before {
+  content: "\f044";
+}
+.fa-share-square-o:before {
+  content: "\f045";
+}
+.fa-check-square-o:before {
+  content: "\f046";
+}
+.fa-arrows:before {
+  content: "\f047";
+}
+.fa-step-backward:before {
+  content: "\f048";
+}
+.fa-fast-backward:before {
+  content: "\f049";
+}
+.fa-backward:before {
+  content: "\f04a";
+}
+.fa-play:before {
+  content: "\f04b";
+}
+.fa-pause:before {
+  content: "\f04c";
+}
+.fa-stop:before {
+  content: "\f04d";
+}
+.fa-forward:before {
+  content: "\f04e";
+}
+.fa-fast-forward:before {
+  content: "\f050";
+}
+.fa-step-forward:before {
+  content: "\f051";
+}
+.fa-eject:before {
+  content: "\f052";
+}
+.fa-chevron-left:before {
+  content: "\f053";
+}
+.fa-chevron-right:before {
+  content: "\f054";
+}
+.fa-plus-circle:before {
+  content: "\f055";
+}
+.fa-minus-circle:before {
+  content: "\f056";
+}
+.fa-times-circle:before {
+  content: "\f057";
+}
+.fa-check-circle:before {
+  content: "\f058";
+}
+.fa-question-circle:before {
+  content: "\f059";
+}
+.fa-info-circle:before {
+  content: "\f05a";
+}
+.fa-crosshairs:before {
+  content: "\f05b";
+}
+.fa-times-circle-o:before {
+  content: "\f05c";
+}
+.fa-check-circle-o:before {
+  content: "\f05d";
+}
+.fa-ban:before {
+  content: "\f05e";
+}
+.fa-arrow-left:before {
+  content: "\f060";
+}
+.fa-arrow-right:before {
+  content: "\f061";
+}
+.fa-arrow-up:before {
+  content: "\f062";
+}
+.fa-arrow-down:before {
+  content: "\f063";
+}
+.fa-mail-forward:before,
+.fa-share:before {
+  content: "\f064";
+}
+.fa-expand:before {
+  content: "\f065";
+}
+.fa-compress:before {
+  content: "\f066";
+}
+.fa-plus:before {
+  content: "\f067";
+}
+.fa-minus:before {
+  content: "\f068";
+}
+.fa-asterisk:before {
+  content: "\f069";
+}
+.fa-exclamation-circle:before {
+  content: "\f06a";
+}
+.fa-gift:before {
+  content: "\f06b";
+}
+.fa-leaf:before {
+  content: "\f06c";
+}
+.fa-fire:before {
+  content: "\f06d";
+}
+.fa-eye:before {
+  content: "\f06e";
+}
+.fa-eye-slash:before {
+  content: "\f070";
+}
+.fa-warning:before,
+.fa-exclamation-triangle:before {
+  content: "\f071";
+}
+.fa-plane:before {
+  content: "\f072";
+}
+.fa-calendar:before {
+  content: "\f073";
+}
+.fa-random:before {
+  content: "\f074";
+}
+.fa-comment:before {
+  content: "\f075";
+}
+.fa-magnet:before {
+  content: "\f076";
+}
+.fa-chevron-up:before {
+  content: "\f077";
+}
+.fa-chevron-down:before {
+  content: "\f078";
+}
+.fa-retweet:before {
+  content: "\f079";
+}
+.fa-shopping-cart:before {
+  content: "\f07a";
+}
+.fa-folder:before {
+  content: "\f07b";
+}
+.fa-folder-open:before {
+  content: "\f07c";
+}
+.fa-arrows-v:before {
+  content: "\f07d";
+}
+.fa-arrows-h:before {
+  content: "\f07e";
+}
+.fa-bar-chart-o:before,
+.fa-bar-chart:before {
+  content: "\f080";
+}
+.fa-twitter-square:before {
+  content: "\f081";
+}
+.fa-facebook-square:before {
+  content: "\f082";
+}
+.fa-camera-retro:before {
+  content: "\f083";
+}
+.fa-key:before {
+  content: "\f084";
+}
+.fa-gears:before,
+.fa-cogs:before {
+  content: "\f085";
+}
+.fa-comments:before {
+  content: "\f086";
+}
+.fa-thumbs-o-up:before {
+  content: "\f087";
+}
+.fa-thumbs-o-down:before {
+  content: "\f088";
+}
+.fa-star-half:before {
+  content: "\f089";
+}
+.fa-heart-o:before {
+  content: "\f08a";
+}
+.fa-sign-out:before {
+  content: "\f08b";
+}
+.fa-linkedin-square:before {
+  content: "\f08c";
+}
+.fa-thumb-tack:before {
+  content: "\f08d";
+}
+.fa-external-link:before {
+  content: "\f08e";
+}
+.fa-sign-in:before {
+  content: "\f090";
+}
+.fa-trophy:before {
+  content: "\f091";
+}
+.fa-github-square:before {
+  content: "\f092";
+}
+.fa-upload:before {
+  content: "\f093";
+}
+.fa-lemon-o:before {
+  content: "\f094";
+}
+.fa-phone:before {
+  content: "\f095";
+}
+.fa-square-o:before {
+  content: "\f096";
+}
+.fa-bookmark-o:before {
+  content: "\f097";
+}
+.fa-phone-square:before {
+  content: "\f098";
+}
+.fa-twitter:before {
+  content: "\f099";
+}
+.fa-facebook:before {
+  content: "\f09a";
+}
+.fa-github:before {
+  content: "\f09b";
+}
+.fa-unlock:before {
+  content: "\f09c";
+}
+.fa-credit-card:before {
+  content: "\f09d";
+}
+.fa-rss:before {
+  content: "\f09e";
+}
+.fa-hdd-o:before {
+  content: "\f0a0";
+}
+.fa-bullhorn:before {
+  content: "\f0a1";
+}
+.fa-bell:before {
+  content: "\f0f3";
+}
+.fa-certificate:before {
+  content: "\f0a3";
+}
+.fa-hand-o-right:before {
+  content: "\f0a4";
+}
+.fa-hand-o-left:before {
+  content: "\f0a5";
+}
+.fa-hand-o-up:before {
+  content: "\f0a6";
+}
+.fa-hand-o-down:before {
+  content: "\f0a7";
+}
+.fa-arrow-circle-left:before {
+  content: "\f0a8";
+}
+.fa-arrow-circle-right:before {
+  content: "\f0a9";
+}
+.fa-arrow-circle-up:before {
+  content: "\f0aa";
+}
+.fa-arrow-circle-down:before {
+  content: "\f0ab";
+}
+.fa-globe:before {
+  content: "\f0ac";
+}
+.fa-wrench:before {
+  content: "\f0ad";
+}
+.fa-tasks:before {
+  content: "\f0ae";
+}
+.fa-filter:before {
+  content: "\f0b0";
+}
+.fa-briefcase:before {
+  content: "\f0b1";
+}
+.fa-arrows-alt:before {
+  content: "\f0b2";
+}
+.fa-group:before,
+.fa-users:before {
+  content: "\f0c0";
+}
+.fa-chain:before,
+.fa-link:before {
+  content: "\f0c1";
+}
+.fa-cloud:before {
+  content: "\f0c2";
+}
+.fa-flask:before {
+  content: "\f0c3";
+}
+.fa-cut:before,
+.fa-scissors:before {
+  content: "\f0c4";
+}
+.fa-copy:before,
+.fa-files-o:before {
+  content: "\f0c5";
+}
+.fa-paperclip:before {
+  content: "\f0c6";
+}
+.fa-save:before,
+.fa-floppy-o:before {
+  content: "\f0c7";
+}
+.fa-square:before {
+  content: "\f0c8";
+}
+.fa-navicon:before,
+.fa-reorder:before,
+.fa-bars:before {
+  content: "\f0c9";
+}
+.fa-list-ul:before {
+  content: "\f0ca";
+}
+.fa-list-ol:before {
+  content: "\f0cb";
+}
+.fa-strikethrough:before {
+  content: "\f0cc";
+}
+.fa-underline:before {
+  content: "\f0cd";
+}
+.fa-table:before {
+  content: "\f0ce";
+}
+.fa-magic:before {
+  content: "\f0d0";
+}
+.fa-truck:before {
+  content: "\f0d1";
+}
+.fa-pinterest:before {
+  content: "\f0d2";
+}
+.fa-pinterest-square:before {
+  content: "\f0d3";
+}
+.fa-google-plus-square:before {
+  content: "\f0d4";
+}
+.fa-google-plus:before {
+  content: "\f0d5";
+}
+.fa-money:before {
+  content: "\f0d6";
+}
+.fa-caret-down:before {
+  content: "\f0d7";
+}
+.fa-caret-up:before {
+  content: "\f0d8";
+}
+.fa-caret-left:before {
+  content: "\f0d9";
+}
+.fa-caret-right:before {
+  content: "\f0da";
+}
+.fa-columns:before {
+  content: "\f0db";
+}
+.fa-unsorted:before,
+.fa-sort:before {
+  content: "\f0dc";
+}
+.fa-sort-down:before,
+.fa-sort-desc:before {
+  content: "\f0dd";
+}
+.fa-sort-up:before,
+.fa-sort-asc:before {
+  content: "\f0de";
+}
+.fa-envelope:before {
+  content: "\f0e0";
+}
+.fa-linkedin:before {
+  content: "\f0e1";
+}
+.fa-rotate-left:before,
+.fa-undo:before {
+  content: "\f0e2";
+}
+.fa-legal:before,
+.fa-gavel:before {
+  content: "\f0e3";
+}
+.fa-dashboard:before,
+.fa-tachometer:before {
+  content: "\f0e4";
+}
+.fa-comment-o:before {
+  content: "\f0e5";
+}
+.fa-comments-o:before {
+  content: "\f0e6";
+}
+.fa-flash:before,
+.fa-bolt:before {
+  content: "\f0e7";
+}
+.fa-sitemap:before {
+  content: "\f0e8";
+}
+.fa-umbrella:before {
+  content: "\f0e9";
+}
+.fa-paste:before,
+.fa-clipboard:before {
+  content: "\f0ea";
+}
+.fa-lightbulb-o:before {
+  content: "\f0eb";
+}
+.fa-exchange:before {
+  content: "\f0ec";
+}
+.fa-cloud-download:before {
+  content: "\f0ed";
+}
+.fa-cloud-upload:before {
+  content: "\f0ee";
+}
+.fa-user-md:before {
+  content: "\f0f0";
+}
+.fa-stethoscope:before {
+  content: "\f0f1";
+}
+.fa-suitcase:before {
+  content: "\f0f2";
+}
+.fa-bell-o:before {
+  content: "\f0a2";
+}
+.fa-coffee:before {
+  content: "\f0f4";
+}
+.fa-cutlery:before {
+  content: "\f0f5";
+}
+.fa-file-text-o:before {
+  content: "\f0f6";
+}
+.fa-building-o:before {
+  content: "\f0f7";
+}
+.fa-hospital-o:before {
+  content: "\f0f8";
+}
+.fa-ambulance:before {
+  content: "\f0f9";
+}
+.fa-medkit:before {
+  content: "\f0fa";
+}
+.fa-fighter-jet:before {
+  content: "\f0fb";
+}
+.fa-beer:before {
+  content: "\f0fc";
+}
+.fa-h-square:before {
+  content: "\f0fd";
+}
+.fa-plus-square:before {
+  content: "\f0fe";
+}
+.fa-angle-double-left:before {
+  content: "\f100";
+}
+.fa-angle-double-right:before {
+  content: "\f101";
+}
+.fa-angle-double-up:before {
+  content: "\f102";
+}
+.fa-angle-double-down:before {
+  content: "\f103";
+}
+.fa-angle-left:before {
+  content: "\f104";
+}
+.fa-angle-right:before {
+  content: "\f105";
+}
+.fa-angle-up:before {
+  content: "\f106";
+}
+.fa-angle-down:before {
+  content: "\f107";
+}
+.fa-desktop:before {
+  content: "\f108";
+}
+.fa-laptop:before {
+  content: "\f109";
+}
+.fa-tablet:before {
+  content: "\f10a";
+}
+.fa-mobile-phone:before,
+.fa-mobile:before {
+  content: "\f10b";
+}
+.fa-circle-o:before {
+  content: "\f10c";
+}
+.fa-quote-left:before {
+  content: "\f10d";
+}
+.fa-quote-right:before {
+  content: "\f10e";
+}
+.fa-spinner:before {
+  content: "\f110";
+}
+.fa-circle:before {
+  content: "\f111";
+}
+.fa-mail-reply:before,
+.fa-reply:before {
+  content: "\f112";
+}
+.fa-github-alt:before {
+  content: "\f113";
+}
+.fa-folder-o:before {
+  content: "\f114";
+}
+.fa-folder-open-o:before {
+  content: "\f115";
+}
+.fa-smile-o:before {
+  content: "\f118";
+}
+.fa-frown-o:before {
+  content: "\f119";
+}
+.fa-meh-o:before {
+  content: "\f11a";
+}
+.fa-gamepad:before {
+  content: "\f11b";
+}
+.fa-keyboard-o:before {
+  content: "\f11c";
+}
+.fa-flag-o:before {
+  content: "\f11d";
+}
+.fa-flag-checkered:before {
+  content: "\f11e";
+}
+.fa-terminal:before {
+  content: "\f120";
+}
+.fa-code:before {
+  content: "\f121";
+}
+.fa-mail-reply-all:before,
+.fa-reply-all:before {
+  content: "\f122";
+}
+.fa-star-half-empty:before,
+.fa-star-half-full:before,
+.fa-star-half-o:before {
+  content: "\f123";
+}
+.fa-location-arrow:before {
+  content: "\f124";
+}
+.fa-crop:before {
+  content: "\f125";
+}
+.fa-code-fork:before {
+  content: "\f126";
+}
+.fa-unlink:before,
+.fa-chain-broken:before {
+  content: "\f127";
+}
+.fa-question:before {
+  content: "\f128";
+}
+.fa-info:before {
+  content: "\f129";
+}
+.fa-exclamation:before {
+  content: "\f12a";
+}
+.fa-superscript:before {
+  content: "\f12b";
+}
+.fa-subscript:before {
+  content: "\f12c";
+}
+.fa-eraser:before {
+  content: "\f12d";
+}
+.fa-puzzle-piece:before {
+  content: "\f12e";
+}
+.fa-microphone:before {
+  content: "\f130";
+}
+.fa-microphone-slash:before {
+  content: "\f131";
+}
+.fa-shield:before {
+  content: "\f132";
+}
+.fa-calendar-o:before {
+  content: "\f133";
+}
+.fa-fire-extinguisher:before {
+  content: "\f134";
+}
+.fa-rocket:before {
+  content: "\f135";
+}
+.fa-maxcdn:before {
+  content: "\f136";
+}
+.fa-chevron-circle-left:before {
+  content: "\f137";
+}
+.fa-chevron-circle-right:before {
+  content: "\f138";
+}
+.fa-chevron-circle-up:before {
+  content: "\f139";
+}
+.fa-chevron-circle-down:before {
+  content: "\f13a";
+}
+.fa-html5:before {
+  content: "\f13b";
+}
+.fa-css3:before {
+  content: "\f13c";
+}
+.fa-anchor:before {
+  content: "\f13d";
+}
+.fa-unlock-alt:before {
+  content: "\f13e";
+}
+.fa-bullseye:before {
+  content: "\f140";
+}
+.fa-ellipsis-h:before {
+  content: "\f141";
+}
+.fa-ellipsis-v:before {
+  content: "\f142";
+}
+.fa-rss-square:before {
+  content: "\f143";
+}
+.fa-play-circle:before {
+  content: "\f144";
+}
+.fa-ticket:before {
+  content: "\f145";
+}
+.fa-minus-square:before {
+  content: "\f146";
+}
+.fa-minus-square-o:before {
+  content: "\f147";
+}
+.fa-level-up:before {
+  content: "\f148";
+}
+.fa-level-down:before {
+  content: "\f149";
+}
+.fa-check-square:before {
+  content: "\f14a";
+}
+.fa-pencil-square:before {
+  content: "\f14b";
+}
+.fa-external-link-square:before {
+  content: "\f14c";
+}
+.fa-share-square:before {
+  content: "\f14d";
+}
+.fa-compass:before {
+  content: "\f14e";
+}
+.fa-toggle-down:before,
+.fa-caret-square-o-down:before {
+  content: "\f150";
+}
+.fa-toggle-up:before,
+.fa-caret-square-o-up:before {
+  content: "\f151";
+}
+.fa-toggle-right:before,
+.fa-caret-square-o-right:before {
+  content: "\f152";
+}
+.fa-euro:before,
+.fa-eur:before {
+  content: "\f153";
+}
+.fa-gbp:before {
+  content: "\f154";
+}
+.fa-dollar:before,
+.fa-usd:before {
+  content: "\f155";
+}
+.fa-rupee:before,
+.fa-inr:before {
+  content: "\f156";
+}
+.fa-cny:before,
+.fa-rmb:before,
+.fa-yen:before,
+.fa-jpy:before {
+  content: "\f157";
+}
+.fa-ruble:before,
+.fa-rouble:before,
+.fa-rub:before {
+  content: "\f158";
+}
+.fa-won:before,
+.fa-krw:before {
+  content: "\f159";
+}
+.fa-bitcoin:before,
+.fa-btc:before {
+  content: "\f15a";
+}
+.fa-file:before {
+  content: "\f15b";
+}
+.fa-file-text:before {
+  content: "\f15c";
+}
+.fa-sort-alpha-asc:before {
+  content: "\f15d";
+}
+.fa-sort-alpha-desc:before {
+  content: "\f15e";
+}
+.fa-sort-amount-asc:before {
+  content: "\f160";
+}
+.fa-sort-amount-desc:before {
+  content: "\f161";
+}
+.fa-sort-numeric-asc:before {
+  content: "\f162";
+}
+.fa-sort-numeric-desc:before {
+  content: "\f163";
+}
+.fa-thumbs-up:before {
+  content: "\f164";
+}
+.fa-thumbs-down:before {
+  content: "\f165";
+}
+.fa-youtube-square:before {
+  content: "\f166";
+}
+.fa-youtube:before {
+  content: "\f167";
+}
+.fa-xing:before {
+  content: "\f168";
+}
+.fa-xing-square:before {
+  content: "\f169";
+}
+.fa-youtube-play:before {
+  content: "\f16a";
+}
+.fa-dropbox:before {
+  content: "\f16b";
+}
+.fa-stack-overflow:before {
+  content: "\f16c";
+}
+.fa-instagram:before {
+  content: "\f16d";
+}
+.fa-flickr:before {
+  content: "\f16e";
+}
+.fa-adn:before {
+  content: "\f170";
+}
+.fa-bitbucket:before {
+  content: "\f171";
+}
+.fa-bitbucket-square:before {
+  content: "\f172";
+}
+.fa-tumblr:before {
+  content: "\f173";
+}
+.fa-tumblr-square:before {
+  content: "\f174";
+}
+.fa-long-arrow-down:before {
+  content: "\f175";
+}
+.fa-long-arrow-up:before {
+  content: "\f176";
+}
+.fa-long-arrow-left:before {
+  content: "\f177";
+}
+.fa-long-arrow-right:before {
+  content: "\f178";
+}
+.fa-apple:before {
+  content: "\f179";
+}
+.fa-windows:before {
+  content: "\f17a";
+}
+.fa-android:before {
+  content: "\f17b";
+}
+.fa-linux:before {
+  content: "\f17c";
+}
+.fa-dribbble:before {
+  content: "\f17d";
+}
+.fa-skype:before {
+  content: "\f17e";
+}
+.fa-foursquare:before {
+  content: "\f180";
+}
+.fa-trello:before {
+  content: "\f181";
+}
+.fa-female:before {
+  content: "\f182";
+}
+.fa-male:before {
+  content: "\f183";
+}
+.fa-gittip:before {
+  content: "\f184";
+}
+.fa-sun-o:before {
+  content: "\f185";
+}
+.fa-moon-o:before {
+  content: "\f186";
+}
+.fa-archive:before {
+  content: "\f187";
+}
+.fa-bug:before {
+  content: "\f188";
+}
+.fa-vk:before {
+  content: "\f189";
+}
+.fa-weibo:before {
+  content: "\f18a";
+}
+.fa-renren:before {
+  content: "\f18b";
+}
+.fa-pagelines:before {
+  content: "\f18c";
+}
+.fa-stack-exchange:before {
+  content: "\f18d";
+}
+.fa-arrow-circle-o-right:before {
+  content: "\f18e";
+}
+.fa-arrow-circle-o-left:before {
+  content: "\f190";
+}
+.fa-toggle-left:before,
+.fa-caret-square-o-left:before {
+  content: "\f191";
+}
+.fa-dot-circle-o:before {
+  content: "\f192";
+}
+.fa-wheelchair:before {
+  content: "\f193";
+}
+.fa-vimeo-square:before {
+  content: "\f194";
+}
+.fa-turkish-lira:before,
+.fa-try:before {
+  content: "\f195";
+}
+.fa-plus-square-o:before {
+  content: "\f196";
+}
+.fa-space-shuttle:before {
+  content: "\f197";
+}
+.fa-slack:before {
+  content: "\f198";
+}
+.fa-envelope-square:before {
+  content: "\f199";
+}
+.fa-wordpress:before {
+  content: "\f19a";
+}
+.fa-openid:before {
+  content: "\f19b";
+}
+.fa-institution:before,
+.fa-bank:before,
+.fa-university:before {
+  content: "\f19c";
+}
+.fa-mortar-board:before,
+.fa-graduation-cap:before {
+  content: "\f19d";
+}
+.fa-yahoo:before {
+  content: "\f19e";
+}
+.fa-google:before {
+  content: "\f1a0";
+}
+.fa-reddit:before {
+  content: "\f1a1";
+}
+.fa-reddit-square:before {
+  content: "\f1a2";
+}
+.fa-stumbleupon-circle:before {
+  content: "\f1a3";
+}
+.fa-stumbleupon:before {
+  content: "\f1a4";
+}
+.fa-delicious:before {
+  content: "\f1a5";
+}
+.fa-digg:before {
+  content: "\f1a6";
+}
+.fa-pied-piper:before {
+  content: "\f1a7";
+}
+.fa-pied-piper-alt:before {
+  content: "\f1a8";
+}
+.fa-drupal:before {
+  content: "\f1a9";
+}
+.fa-joomla:before {
+  content: "\f1aa";
+}
+.fa-language:before {
+  content: "\f1ab";
+}
+.fa-fax:before {
+  content: "\f1ac";
+}
+.fa-building:before {
+  content: "\f1ad";
+}
+.fa-child:before {
+  content: "\f1ae";
+}
+.fa-paw:before {
+  content: "\f1b0";
+}
+.fa-spoon:before {
+  content: "\f1b1";
+}
+.fa-cube:before {
+  content: "\f1b2";
+}
+.fa-cubes:before {
+  content: "\f1b3";
+}
+.fa-behance:before {
+  content: "\f1b4";
+}
+.fa-behance-square:before {
+  content: "\f1b5";
+}
+.fa-steam:before {
+  content: "\f1b6";
+}
+.fa-steam-square:before {
+  content: "\f1b7";
+}
+.fa-recycle:before {
+  content: "\f1b8";
+}
+.fa-automobile:before,
+.fa-car:before {
+  content: "\f1b9";
+}
+.fa-cab:before,
+.fa-taxi:before {
+  content: "\f1ba";
+}
+.fa-tree:before {
+  content: "\f1bb";
+}
+.fa-spotify:before {
+  content: "\f1bc";
+}
+.fa-deviantart:before {
+  content: "\f1bd";
+}
+.fa-soundcloud:before {
+  content: "\f1be";
+}
+.fa-database:before {
+  content: "\f1c0";
+}
+.fa-file-pdf-o:before {
+  content: "\f1c1";
+}
+.fa-file-word-o:before {
+  content: "\f1c2";
+}
+.fa-file-excel-o:before {
+  content: "\f1c3";
+}
+.fa-file-powerpoint-o:before {
+  content: "\f1c4";
+}
+.fa-file-photo-o:before,
+.fa-file-picture-o:before,
+.fa-file-image-o:before {
+  content: "\f1c5";
+}
+.fa-file-zip-o:before,
+.fa-file-archive-o:before {
+  content: "\f1c6";
+}
+.fa-file-sound-o:before,
+.fa-file-audio-o:before {
+  content: "\f1c7";
+}
+.fa-file-movie-o:before,
+.fa-file-video-o:before {
+  content: "\f1c8";
+}
+.fa-file-code-o:before {
+  content: "\f1c9";
+}
+.fa-vine:before {
+  content: "\f1ca";
+}
+.fa-codepen:before {
+  content: "\f1cb";
+}
+.fa-jsfiddle:before {
+  content: "\f1cc";
+}
+.fa-life-bouy:before,
+.fa-life-buoy:before,
+.fa-life-saver:before,
+.fa-support:before,
+.fa-life-ring:before {
+  content: "\f1cd";
+}
+.fa-circle-o-notch:before {
+  content: "\f1ce";
+}
+.fa-ra:before,
+.fa-rebel:before {
+  content: "\f1d0";
+}
+.fa-ge:before,
+.fa-empire:before {
+  content: "\f1d1";
+}
+.fa-git-square:before {
+  content: "\f1d2";
+}
+.fa-git:before {
+  content: "\f1d3";
+}
+.fa-hacker-news:before {
+  content: "\f1d4";
+}
+.fa-tencent-weibo:before {
+  content: "\f1d5";
+}
+.fa-qq:before {
+  content: "\f1d6";
+}
+.fa-wechat:before,
+.fa-weixin:before {
+  content: "\f1d7";
+}
+.fa-send:before,
+.fa-paper-plane:before {
+  content: "\f1d8";
+}
+.fa-send-o:before,
+.fa-paper-plane-o:before {
+  content: "\f1d9";
+}
+.fa-history:before {
+  content: "\f1da";
+}
+.fa-circle-thin:before {
+  content: "\f1db";
+}
+.fa-header:before {
+  content: "\f1dc";
+}
+.fa-paragraph:before {
+  content: "\f1dd";
+}
+.fa-sliders:before {
+  content: "\f1de";
+}
+.fa-share-alt:before {
+  content: "\f1e0";
+}
+.fa-share-alt-square:before {
+  content: "\f1e1";
+}
+.fa-bomb:before {
+  content: "\f1e2";
+}
+.fa-soccer-ball-o:before,
+.fa-futbol-o:before {
+  content: "\f1e3";
+}
+.fa-tty:before {
+  content: "\f1e4";
+}
+.fa-binoculars:before {
+  content: "\f1e5";
+}
+.fa-plug:before {
+  content: "\f1e6";
+}
+.fa-slideshare:before {
+  content: "\f1e7";
+}
+.fa-twitch:before {
+  content: "\f1e8";
+}
+.fa-yelp:before {
+  content: "\f1e9";
+}
+.fa-newspaper-o:before {
+  content: "\f1ea";
+}
+.fa-wifi:before {
+  content: "\f1eb";
+}
+.fa-calculator:before {
+  content: "\f1ec";
+}
+.fa-paypal:before {
+  content: "\f1ed";
+}
+.fa-google-wallet:before {
+  content: "\f1ee";
+}
+.fa-cc-visa:before {
+  content: "\f1f0";
+}
+.fa-cc-mastercard:before {
+  content: "\f1f1";
+}
+.fa-cc-discover:before {
+  content: "\f1f2";
+}
+.fa-cc-amex:before {
+  content: "\f1f3";
+}
+.fa-cc-paypal:before {
+  content: "\f1f4";
+}
+.fa-cc-stripe:before {
+  content: "\f1f5";
+}
+.fa-bell-slash:before {
+  content: "\f1f6";
+}
+.fa-bell-slash-o:before {
+  content: "\f1f7";
+}
+.fa-trash:before {
+  content: "\f1f8";
+}
+.fa-copyright:before {
+  content: "\f1f9";
+}
+.fa-at:before {
+  content: "\f1fa";
+}
+.fa-eyedropper:before {
+  content: "\f1fb";
+}
+.fa-paint-brush:before {
+  content: "\f1fc";
+}
+.fa-birthday-cake:before {
+  content: "\f1fd";
+}
+.fa-area-chart:before {
+  content: "\f1fe";
+}
+.fa-pie-chart:before {
+  content: "\f200";
+}
+.fa-line-chart:before {
+  content: "\f201";
+}
+.fa-lastfm:before {
+  content: "\f202";
+}
+.fa-lastfm-square:before {
+  content: "\f203";
+}
+.fa-toggle-off:before {
+  content: "\f204";
+}
+.fa-toggle-on:before {
+  content: "\f205";
+}
+.fa-bicycle:before {
+  content: "\f206";
+}
+.fa-bus:before {
+  content: "\f207";
+}
+.fa-ioxhost:before {
+  content: "\f208";
+}
+.fa-angellist:before {
+  content: "\f209";
+}
+.fa-cc:before {
+  content: "\f20a";
+}
+.fa-shekel:before,
+.fa-sheqel:before,
+.fa-ils:before {
+  content: "\f20b";
+}
+.fa-meanpath:before {
+  content: "\f20c";
+}
diff --git a/reference/rte-fortran-interface/css/font-awesome.min.css b/reference/rte-fortran-interface/css/font-awesome.min.css
new file mode 100644
index 000000000..ec53d4d6d
--- /dev/null
+++ b/reference/rte-fortran-interface/css/font-awesome.min.css
@@ -0,0 +1,4 @@
+/*!
+ *  Font Awesome 4.2.0 by @davegandy - http://fontawesome.io - @fontawesome
+ *  License - http://fontawesome.io/license (Font: SIL OFL 1.1, CSS: MIT License)
+ */@font-face{font-family:'FontAwesome';src:url('../fonts/fontawesome-webfont.eot?v=4.2.0');src:url('../fonts/fontawesome-webfont.eot?#iefix&v=4.2.0') format('embedded-opentype'),url('../fonts/fontawesome-webfont.woff?v=4.2.0') format('woff'),url('../fonts/fontawesome-webfont.ttf?v=4.2.0') format('truetype'),url('../fonts/fontawesome-webfont.svg?v=4.2.0#fontawesomeregular') format('svg');font-weight:normal;font-style:normal}.fa{display:inline-block;font:normal normal normal 14px/1 FontAwesome;font-size:inherit;text-rendering:auto;-webkit-font-smoothing:antialiased;-moz-osx-font-smoothing:grayscale}.fa-lg{font-size:1.33333333em;line-height:.75em;vertical-align:-15%}.fa-2x{font-size:2em}.fa-3x{font-size:3em}.fa-4x{font-size:4em}.fa-5x{font-size:5em}.fa-fw{width:1.28571429em;text-align:center}.fa-ul{padding-left:0;margin-left:2.14285714em;list-style-type:none}.fa-ul>li{position:relative}.fa-li{position:absolute;left:-2.14285714em;width:2.14285714em;top:.14285714em;text-align:center}.fa-li.fa-lg{left:-1.85714286em}.fa-border{padding:.2em .25em .15em;border:solid .08em #eee;border-radius:.1em}.pull-right{float:right}.pull-left{float:left}.fa.pull-left{margin-right:.3em}.fa.pull-right{margin-left:.3em}.fa-spin{-webkit-animation:fa-spin 2s infinite linear;animation:fa-spin 2s infinite linear}@-webkit-keyframes fa-spin{0%{-webkit-transform:rotate(0deg);transform:rotate(0deg)}100%{-webkit-transform:rotate(359deg);transform:rotate(359deg)}}@keyframes fa-spin{0%{-webkit-transform:rotate(0deg);transform:rotate(0deg)}100%{-webkit-transform:rotate(359deg);transform:rotate(359deg)}}.fa-rotate-90{filter:progid:DXImageTransform.Microsoft.BasicImage(rotation=1);-webkit-transform:rotate(90deg);-ms-transform:rotate(90deg);transform:rotate(90deg)}.fa-rotate-180{filter:progid:DXImageTransform.Microsoft.BasicImage(rotation=2);-webkit-transform:rotate(180deg);-ms-transform:rotate(180deg);transform:rotate(180deg)}.fa-rotate-270{filter:progid:DXImageTransform.Microsoft.BasicImage(rotation=3);-webkit-transform:rotate(270deg);-ms-transform:rotate(270deg);transform:rotate(270deg)}.fa-flip-horizontal{filter:progid:DXImageTransform.Microsoft.BasicImage(rotation=0, mirror=1);-webkit-transform:scale(-1, 1);-ms-transform:scale(-1, 1);transform:scale(-1, 1)}.fa-flip-vertical{filter:progid:DXImageTransform.Microsoft.BasicImage(rotation=2, mirror=1);-webkit-transform:scale(1, -1);-ms-transform:scale(1, -1);transform:scale(1, -1)}:root .fa-rotate-90,:root .fa-rotate-180,:root .fa-rotate-270,:root .fa-flip-horizontal,:root .fa-flip-vertical{filter:none}.fa-stack{position:relative;display:inline-block;width:2em;height:2em;line-height:2em;vertical-align:middle}.fa-stack-1x,.fa-stack-2x{position:absolute;left:0;width:100%;text-align:center}.fa-stack-1x{line-height:inherit}.fa-stack-2x{font-size:2em}.fa-inverse{color:#fff}.fa-glass:before{content:"\f000"}.fa-music:before{content:"\f001"}.fa-search:before{content:"\f002"}.fa-envelope-o:before{content:"\f003"}.fa-heart:before{content:"\f004"}.fa-star:before{content:"\f005"}.fa-star-o:before{content:"\f006"}.fa-user:before{content:"\f007"}.fa-film:before{content:"\f008"}.fa-th-large:before{content:"\f009"}.fa-th:before{content:"\f00a"}.fa-th-list:before{content:"\f00b"}.fa-check:before{content:"\f00c"}.fa-remove:before,.fa-close:before,.fa-times:before{content:"\f00d"}.fa-search-plus:before{content:"\f00e"}.fa-search-minus:before{content:"\f010"}.fa-power-off:before{content:"\f011"}.fa-signal:before{content:"\f012"}.fa-gear:before,.fa-cog:before{content:"\f013"}.fa-trash-o:before{content:"\f014"}.fa-home:before{content:"\f015"}.fa-file-o:before{content:"\f016"}.fa-clock-o:before{content:"\f017"}.fa-road:before{content:"\f018"}.fa-download:before{content:"\f019"}.fa-arrow-circle-o-down:before{content:"\f01a"}.fa-arrow-circle-o-up:before{content:"\f01b"}.fa-inbox:before{content:"\f01c"}.fa-play-circle-o:before{content:"\f01d"}.fa-rotate-right:before,.fa-repeat:before{content:"\f01e"}.fa-refresh:before{content:"\f021"}.fa-list-alt:before{content:"\f022"}.fa-lock:before{content:"\f023"}.fa-flag:before{content:"\f024"}.fa-headphones:before{content:"\f025"}.fa-volume-off:before{content:"\f026"}.fa-volume-down:before{content:"\f027"}.fa-volume-up:before{content:"\f028"}.fa-qrcode:before{content:"\f029"}.fa-barcode:before{content:"\f02a"}.fa-tag:before{content:"\f02b"}.fa-tags:before{content:"\f02c"}.fa-book:before{content:"\f02d"}.fa-bookmark:before{content:"\f02e"}.fa-print:before{content:"\f02f"}.fa-camera:before{content:"\f030"}.fa-font:before{content:"\f031"}.fa-bold:before{content:"\f032"}.fa-italic:before{content:"\f033"}.fa-text-height:before{content:"\f034"}.fa-text-width:before{content:"\f035"}.fa-align-left:before{content:"\f036"}.fa-align-center:before{content:"\f037"}.fa-align-right:before{content:"\f038"}.fa-align-justify:before{content:"\f039"}.fa-list:before{content:"\f03a"}.fa-dedent:before,.fa-outdent:before{content:"\f03b"}.fa-indent:before{content:"\f03c"}.fa-video-camera:before{content:"\f03d"}.fa-photo:before,.fa-image:before,.fa-picture-o:before{content:"\f03e"}.fa-pencil:before{content:"\f040"}.fa-map-marker:before{content:"\f041"}.fa-adjust:before{content:"\f042"}.fa-tint:before{content:"\f043"}.fa-edit:before,.fa-pencil-square-o:before{content:"\f044"}.fa-share-square-o:before{content:"\f045"}.fa-check-square-o:before{content:"\f046"}.fa-arrows:before{content:"\f047"}.fa-step-backward:before{content:"\f048"}.fa-fast-backward:before{content:"\f049"}.fa-backward:before{content:"\f04a"}.fa-play:before{content:"\f04b"}.fa-pause:before{content:"\f04c"}.fa-stop:before{content:"\f04d"}.fa-forward:before{content:"\f04e"}.fa-fast-forward:before{content:"\f050"}.fa-step-forward:before{content:"\f051"}.fa-eject:before{content:"\f052"}.fa-chevron-left:before{content:"\f053"}.fa-chevron-right:before{content:"\f054"}.fa-plus-circle:before{content:"\f055"}.fa-minus-circle:before{content:"\f056"}.fa-times-circle:before{content:"\f057"}.fa-check-circle:before{content:"\f058"}.fa-question-circle:before{content:"\f059"}.fa-info-circle:before{content:"\f05a"}.fa-crosshairs:before{content:"\f05b"}.fa-times-circle-o:before{content:"\f05c"}.fa-check-circle-o:before{content:"\f05d"}.fa-ban:before{content:"\f05e"}.fa-arrow-left:before{content:"\f060"}.fa-arrow-right:before{content:"\f061"}.fa-arrow-up:before{content:"\f062"}.fa-arrow-down:before{content:"\f063"}.fa-mail-forward:before,.fa-share:before{content:"\f064"}.fa-expand:before{content:"\f065"}.fa-compress:before{content:"\f066"}.fa-plus:before{content:"\f067"}.fa-minus:before{content:"\f068"}.fa-asterisk:before{content:"\f069"}.fa-exclamation-circle:before{content:"\f06a"}.fa-gift:before{content:"\f06b"}.fa-leaf:before{content:"\f06c"}.fa-fire:before{content:"\f06d"}.fa-eye:before{content:"\f06e"}.fa-eye-slash:before{content:"\f070"}.fa-warning:before,.fa-exclamation-triangle:before{content:"\f071"}.fa-plane:before{content:"\f072"}.fa-calendar:before{content:"\f073"}.fa-random:before{content:"\f074"}.fa-comment:before{content:"\f075"}.fa-magnet:before{content:"\f076"}.fa-chevron-up:before{content:"\f077"}.fa-chevron-down:before{content:"\f078"}.fa-retweet:before{content:"\f079"}.fa-shopping-cart:before{content:"\f07a"}.fa-folder:before{content:"\f07b"}.fa-folder-open:before{content:"\f07c"}.fa-arrows-v:before{content:"\f07d"}.fa-arrows-h:before{content:"\f07e"}.fa-bar-chart-o:before,.fa-bar-chart:before{content:"\f080"}.fa-twitter-square:before{content:"\f081"}.fa-facebook-square:before{content:"\f082"}.fa-camera-retro:before{content:"\f083"}.fa-key:before{content:"\f084"}.fa-gears:before,.fa-cogs:before{content:"\f085"}.fa-comments:before{content:"\f086"}.fa-thumbs-o-up:before{content:"\f087"}.fa-thumbs-o-down:before{content:"\f088"}.fa-star-half:before{content:"\f089"}.fa-heart-o:before{content:"\f08a"}.fa-sign-out:before{content:"\f08b"}.fa-linkedin-square:before{content:"\f08c"}.fa-thumb-tack:before{content:"\f08d"}.fa-external-link:before{content:"\f08e"}.fa-sign-in:before{content:"\f090"}.fa-trophy:before{content:"\f091"}.fa-github-square:before{content:"\f092"}.fa-upload:before{content:"\f093"}.fa-lemon-o:before{content:"\f094"}.fa-phone:before{content:"\f095"}.fa-square-o:before{content:"\f096"}.fa-bookmark-o:before{content:"\f097"}.fa-phone-square:before{content:"\f098"}.fa-twitter:before{content:"\f099"}.fa-facebook:before{content:"\f09a"}.fa-github:before{content:"\f09b"}.fa-unlock:before{content:"\f09c"}.fa-credit-card:before{content:"\f09d"}.fa-rss:before{content:"\f09e"}.fa-hdd-o:before{content:"\f0a0"}.fa-bullhorn:before{content:"\f0a1"}.fa-bell:before{content:"\f0f3"}.fa-certificate:before{content:"\f0a3"}.fa-hand-o-right:before{content:"\f0a4"}.fa-hand-o-left:before{content:"\f0a5"}.fa-hand-o-up:before{content:"\f0a6"}.fa-hand-o-down:before{content:"\f0a7"}.fa-arrow-circle-left:before{content:"\f0a8"}.fa-arrow-circle-right:before{content:"\f0a9"}.fa-arrow-circle-up:before{content:"\f0aa"}.fa-arrow-circle-down:before{content:"\f0ab"}.fa-globe:before{content:"\f0ac"}.fa-wrench:before{content:"\f0ad"}.fa-tasks:before{content:"\f0ae"}.fa-filter:before{content:"\f0b0"}.fa-briefcase:before{content:"\f0b1"}.fa-arrows-alt:before{content:"\f0b2"}.fa-group:before,.fa-users:before{content:"\f0c0"}.fa-chain:before,.fa-link:before{content:"\f0c1"}.fa-cloud:before{content:"\f0c2"}.fa-flask:before{content:"\f0c3"}.fa-cut:before,.fa-scissors:before{content:"\f0c4"}.fa-copy:before,.fa-files-o:before{content:"\f0c5"}.fa-paperclip:before{content:"\f0c6"}.fa-save:before,.fa-floppy-o:before{content:"\f0c7"}.fa-square:before{content:"\f0c8"}.fa-navicon:before,.fa-reorder:before,.fa-bars:before{content:"\f0c9"}.fa-list-ul:before{content:"\f0ca"}.fa-list-ol:before{content:"\f0cb"}.fa-strikethrough:before{content:"\f0cc"}.fa-underline:before{content:"\f0cd"}.fa-table:before{content:"\f0ce"}.fa-magic:before{content:"\f0d0"}.fa-truck:before{content:"\f0d1"}.fa-pinterest:before{content:"\f0d2"}.fa-pinterest-square:before{content:"\f0d3"}.fa-google-plus-square:before{content:"\f0d4"}.fa-google-plus:before{content:"\f0d5"}.fa-money:before{content:"\f0d6"}.fa-caret-down:before{content:"\f0d7"}.fa-caret-up:before{content:"\f0d8"}.fa-caret-left:before{content:"\f0d9"}.fa-caret-right:before{content:"\f0da"}.fa-columns:before{content:"\f0db"}.fa-unsorted:before,.fa-sort:before{content:"\f0dc"}.fa-sort-down:before,.fa-sort-desc:before{content:"\f0dd"}.fa-sort-up:before,.fa-sort-asc:before{content:"\f0de"}.fa-envelope:before{content:"\f0e0"}.fa-linkedin:before{content:"\f0e1"}.fa-rotate-left:before,.fa-undo:before{content:"\f0e2"}.fa-legal:before,.fa-gavel:before{content:"\f0e3"}.fa-dashboard:before,.fa-tachometer:before{content:"\f0e4"}.fa-comment-o:before{content:"\f0e5"}.fa-comments-o:before{content:"\f0e6"}.fa-flash:before,.fa-bolt:before{content:"\f0e7"}.fa-sitemap:before{content:"\f0e8"}.fa-umbrella:before{content:"\f0e9"}.fa-paste:before,.fa-clipboard:before{content:"\f0ea"}.fa-lightbulb-o:before{content:"\f0eb"}.fa-exchange:before{content:"\f0ec"}.fa-cloud-download:before{content:"\f0ed"}.fa-cloud-upload:before{content:"\f0ee"}.fa-user-md:before{content:"\f0f0"}.fa-stethoscope:before{content:"\f0f1"}.fa-suitcase:before{content:"\f0f2"}.fa-bell-o:before{content:"\f0a2"}.fa-coffee:before{content:"\f0f4"}.fa-cutlery:before{content:"\f0f5"}.fa-file-text-o:before{content:"\f0f6"}.fa-building-o:before{content:"\f0f7"}.fa-hospital-o:before{content:"\f0f8"}.fa-ambulance:before{content:"\f0f9"}.fa-medkit:before{content:"\f0fa"}.fa-fighter-jet:before{content:"\f0fb"}.fa-beer:before{content:"\f0fc"}.fa-h-square:before{content:"\f0fd"}.fa-plus-square:before{content:"\f0fe"}.fa-angle-double-left:before{content:"\f100"}.fa-angle-double-right:before{content:"\f101"}.fa-angle-double-up:before{content:"\f102"}.fa-angle-double-down:before{content:"\f103"}.fa-angle-left:before{content:"\f104"}.fa-angle-right:before{content:"\f105"}.fa-angle-up:before{content:"\f106"}.fa-angle-down:before{content:"\f107"}.fa-desktop:before{content:"\f108"}.fa-laptop:before{content:"\f109"}.fa-tablet:before{content:"\f10a"}.fa-mobile-phone:before,.fa-mobile:before{content:"\f10b"}.fa-circle-o:before{content:"\f10c"}.fa-quote-left:before{content:"\f10d"}.fa-quote-right:before{content:"\f10e"}.fa-spinner:before{content:"\f110"}.fa-circle:before{content:"\f111"}.fa-mail-reply:before,.fa-reply:before{content:"\f112"}.fa-github-alt:before{content:"\f113"}.fa-folder-o:before{content:"\f114"}.fa-folder-open-o:before{content:"\f115"}.fa-smile-o:before{content:"\f118"}.fa-frown-o:before{content:"\f119"}.fa-meh-o:before{content:"\f11a"}.fa-gamepad:before{content:"\f11b"}.fa-keyboard-o:before{content:"\f11c"}.fa-flag-o:before{content:"\f11d"}.fa-flag-checkered:before{content:"\f11e"}.fa-terminal:before{content:"\f120"}.fa-code:before{content:"\f121"}.fa-mail-reply-all:before,.fa-reply-all:before{content:"\f122"}.fa-star-half-empty:before,.fa-star-half-full:before,.fa-star-half-o:before{content:"\f123"}.fa-location-arrow:before{content:"\f124"}.fa-crop:before{content:"\f125"}.fa-code-fork:before{content:"\f126"}.fa-unlink:before,.fa-chain-broken:before{content:"\f127"}.fa-question:before{content:"\f128"}.fa-info:before{content:"\f129"}.fa-exclamation:before{content:"\f12a"}.fa-superscript:before{content:"\f12b"}.fa-subscript:before{content:"\f12c"}.fa-eraser:before{content:"\f12d"}.fa-puzzle-piece:before{content:"\f12e"}.fa-microphone:before{content:"\f130"}.fa-microphone-slash:before{content:"\f131"}.fa-shield:before{content:"\f132"}.fa-calendar-o:before{content:"\f133"}.fa-fire-extinguisher:before{content:"\f134"}.fa-rocket:before{content:"\f135"}.fa-maxcdn:before{content:"\f136"}.fa-chevron-circle-left:before{content:"\f137"}.fa-chevron-circle-right:before{content:"\f138"}.fa-chevron-circle-up:before{content:"\f139"}.fa-chevron-circle-down:before{content:"\f13a"}.fa-html5:before{content:"\f13b"}.fa-css3:before{content:"\f13c"}.fa-anchor:before{content:"\f13d"}.fa-unlock-alt:before{content:"\f13e"}.fa-bullseye:before{content:"\f140"}.fa-ellipsis-h:before{content:"\f141"}.fa-ellipsis-v:before{content:"\f142"}.fa-rss-square:before{content:"\f143"}.fa-play-circle:before{content:"\f144"}.fa-ticket:before{content:"\f145"}.fa-minus-square:before{content:"\f146"}.fa-minus-square-o:before{content:"\f147"}.fa-level-up:before{content:"\f148"}.fa-level-down:before{content:"\f149"}.fa-check-square:before{content:"\f14a"}.fa-pencil-square:before{content:"\f14b"}.fa-external-link-square:before{content:"\f14c"}.fa-share-square:before{content:"\f14d"}.fa-compass:before{content:"\f14e"}.fa-toggle-down:before,.fa-caret-square-o-down:before{content:"\f150"}.fa-toggle-up:before,.fa-caret-square-o-up:before{content:"\f151"}.fa-toggle-right:before,.fa-caret-square-o-right:before{content:"\f152"}.fa-euro:before,.fa-eur:before{content:"\f153"}.fa-gbp:before{content:"\f154"}.fa-dollar:before,.fa-usd:before{content:"\f155"}.fa-rupee:before,.fa-inr:before{content:"\f156"}.fa-cny:before,.fa-rmb:before,.fa-yen:before,.fa-jpy:before{content:"\f157"}.fa-ruble:before,.fa-rouble:before,.fa-rub:before{content:"\f158"}.fa-won:before,.fa-krw:before{content:"\f159"}.fa-bitcoin:before,.fa-btc:before{content:"\f15a"}.fa-file:before{content:"\f15b"}.fa-file-text:before{content:"\f15c"}.fa-sort-alpha-asc:before{content:"\f15d"}.fa-sort-alpha-desc:before{content:"\f15e"}.fa-sort-amount-asc:before{content:"\f160"}.fa-sort-amount-desc:before{content:"\f161"}.fa-sort-numeric-asc:before{content:"\f162"}.fa-sort-numeric-desc:before{content:"\f163"}.fa-thumbs-up:before{content:"\f164"}.fa-thumbs-down:before{content:"\f165"}.fa-youtube-square:before{content:"\f166"}.fa-youtube:before{content:"\f167"}.fa-xing:before{content:"\f168"}.fa-xing-square:before{content:"\f169"}.fa-youtube-play:before{content:"\f16a"}.fa-dropbox:before{content:"\f16b"}.fa-stack-overflow:before{content:"\f16c"}.fa-instagram:before{content:"\f16d"}.fa-flickr:before{content:"\f16e"}.fa-adn:before{content:"\f170"}.fa-bitbucket:before{content:"\f171"}.fa-bitbucket-square:before{content:"\f172"}.fa-tumblr:before{content:"\f173"}.fa-tumblr-square:before{content:"\f174"}.fa-long-arrow-down:before{content:"\f175"}.fa-long-arrow-up:before{content:"\f176"}.fa-long-arrow-left:before{content:"\f177"}.fa-long-arrow-right:before{content:"\f178"}.fa-apple:before{content:"\f179"}.fa-windows:before{content:"\f17a"}.fa-android:before{content:"\f17b"}.fa-linux:before{content:"\f17c"}.fa-dribbble:before{content:"\f17d"}.fa-skype:before{content:"\f17e"}.fa-foursquare:before{content:"\f180"}.fa-trello:before{content:"\f181"}.fa-female:before{content:"\f182"}.fa-male:before{content:"\f183"}.fa-gittip:before{content:"\f184"}.fa-sun-o:before{content:"\f185"}.fa-moon-o:before{content:"\f186"}.fa-archive:before{content:"\f187"}.fa-bug:before{content:"\f188"}.fa-vk:before{content:"\f189"}.fa-weibo:before{content:"\f18a"}.fa-renren:before{content:"\f18b"}.fa-pagelines:before{content:"\f18c"}.fa-stack-exchange:before{content:"\f18d"}.fa-arrow-circle-o-right:before{content:"\f18e"}.fa-arrow-circle-o-left:before{content:"\f190"}.fa-toggle-left:before,.fa-caret-square-o-left:before{content:"\f191"}.fa-dot-circle-o:before{content:"\f192"}.fa-wheelchair:before{content:"\f193"}.fa-vimeo-square:before{content:"\f194"}.fa-turkish-lira:before,.fa-try:before{content:"\f195"}.fa-plus-square-o:before{content:"\f196"}.fa-space-shuttle:before{content:"\f197"}.fa-slack:before{content:"\f198"}.fa-envelope-square:before{content:"\f199"}.fa-wordpress:before{content:"\f19a"}.fa-openid:before{content:"\f19b"}.fa-institution:before,.fa-bank:before,.fa-university:before{content:"\f19c"}.fa-mortar-board:before,.fa-graduation-cap:before{content:"\f19d"}.fa-yahoo:before{content:"\f19e"}.fa-google:before{content:"\f1a0"}.fa-reddit:before{content:"\f1a1"}.fa-reddit-square:before{content:"\f1a2"}.fa-stumbleupon-circle:before{content:"\f1a3"}.fa-stumbleupon:before{content:"\f1a4"}.fa-delicious:before{content:"\f1a5"}.fa-digg:before{content:"\f1a6"}.fa-pied-piper:before{content:"\f1a7"}.fa-pied-piper-alt:before{content:"\f1a8"}.fa-drupal:before{content:"\f1a9"}.fa-joomla:before{content:"\f1aa"}.fa-language:before{content:"\f1ab"}.fa-fax:before{content:"\f1ac"}.fa-building:before{content:"\f1ad"}.fa-child:before{content:"\f1ae"}.fa-paw:before{content:"\f1b0"}.fa-spoon:before{content:"\f1b1"}.fa-cube:before{content:"\f1b2"}.fa-cubes:before{content:"\f1b3"}.fa-behance:before{content:"\f1b4"}.fa-behance-square:before{content:"\f1b5"}.fa-steam:before{content:"\f1b6"}.fa-steam-square:before{content:"\f1b7"}.fa-recycle:before{content:"\f1b8"}.fa-automobile:before,.fa-car:before{content:"\f1b9"}.fa-cab:before,.fa-taxi:before{content:"\f1ba"}.fa-tree:before{content:"\f1bb"}.fa-spotify:before{content:"\f1bc"}.fa-deviantart:before{content:"\f1bd"}.fa-soundcloud:before{content:"\f1be"}.fa-database:before{content:"\f1c0"}.fa-file-pdf-o:before{content:"\f1c1"}.fa-file-word-o:before{content:"\f1c2"}.fa-file-excel-o:before{content:"\f1c3"}.fa-file-powerpoint-o:before{content:"\f1c4"}.fa-file-photo-o:before,.fa-file-picture-o:before,.fa-file-image-o:before{content:"\f1c5"}.fa-file-zip-o:before,.fa-file-archive-o:before{content:"\f1c6"}.fa-file-sound-o:before,.fa-file-audio-o:before{content:"\f1c7"}.fa-file-movie-o:before,.fa-file-video-o:before{content:"\f1c8"}.fa-file-code-o:before{content:"\f1c9"}.fa-vine:before{content:"\f1ca"}.fa-codepen:before{content:"\f1cb"}.fa-jsfiddle:before{content:"\f1cc"}.fa-life-bouy:before,.fa-life-buoy:before,.fa-life-saver:before,.fa-support:before,.fa-life-ring:before{content:"\f1cd"}.fa-circle-o-notch:before{content:"\f1ce"}.fa-ra:before,.fa-rebel:before{content:"\f1d0"}.fa-ge:before,.fa-empire:before{content:"\f1d1"}.fa-git-square:before{content:"\f1d2"}.fa-git:before{content:"\f1d3"}.fa-hacker-news:before{content:"\f1d4"}.fa-tencent-weibo:before{content:"\f1d5"}.fa-qq:before{content:"\f1d6"}.fa-wechat:before,.fa-weixin:before{content:"\f1d7"}.fa-send:before,.fa-paper-plane:before{content:"\f1d8"}.fa-send-o:before,.fa-paper-plane-o:before{content:"\f1d9"}.fa-history:before{content:"\f1da"}.fa-circle-thin:before{content:"\f1db"}.fa-header:before{content:"\f1dc"}.fa-paragraph:before{content:"\f1dd"}.fa-sliders:before{content:"\f1de"}.fa-share-alt:before{content:"\f1e0"}.fa-share-alt-square:before{content:"\f1e1"}.fa-bomb:before{content:"\f1e2"}.fa-soccer-ball-o:before,.fa-futbol-o:before{content:"\f1e3"}.fa-tty:before{content:"\f1e4"}.fa-binoculars:before{content:"\f1e5"}.fa-plug:before{content:"\f1e6"}.fa-slideshare:before{content:"\f1e7"}.fa-twitch:before{content:"\f1e8"}.fa-yelp:before{content:"\f1e9"}.fa-newspaper-o:before{content:"\f1ea"}.fa-wifi:before{content:"\f1eb"}.fa-calculator:before{content:"\f1ec"}.fa-paypal:before{content:"\f1ed"}.fa-google-wallet:before{content:"\f1ee"}.fa-cc-visa:before{content:"\f1f0"}.fa-cc-mastercard:before{content:"\f1f1"}.fa-cc-discover:before{content:"\f1f2"}.fa-cc-amex:before{content:"\f1f3"}.fa-cc-paypal:before{content:"\f1f4"}.fa-cc-stripe:before{content:"\f1f5"}.fa-bell-slash:before{content:"\f1f6"}.fa-bell-slash-o:before{content:"\f1f7"}.fa-trash:before{content:"\f1f8"}.fa-copyright:before{content:"\f1f9"}.fa-at:before{content:"\f1fa"}.fa-eyedropper:before{content:"\f1fb"}.fa-paint-brush:before{content:"\f1fc"}.fa-birthday-cake:before{content:"\f1fd"}.fa-area-chart:before{content:"\f1fe"}.fa-pie-chart:before{content:"\f200"}.fa-line-chart:before{content:"\f201"}.fa-lastfm:before{content:"\f202"}.fa-lastfm-square:before{content:"\f203"}.fa-toggle-off:before{content:"\f204"}.fa-toggle-on:before{content:"\f205"}.fa-bicycle:before{content:"\f206"}.fa-bus:before{content:"\f207"}.fa-ioxhost:before{content:"\f208"}.fa-angellist:before{content:"\f209"}.fa-cc:before{content:"\f20a"}.fa-shekel:before,.fa-sheqel:before,.fa-ils:before{content:"\f20b"}.fa-meanpath:before{content:"\f20c"}
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/css/local.css b/reference/rte-fortran-interface/css/local.css
new file mode 100644
index 000000000..11dd941a8
--- /dev/null
+++ b/reference/rte-fortran-interface/css/local.css
@@ -0,0 +1,284 @@
+body {
+      padding-top: 70px;
+    }
+    table.nostretch {
+      width=100%
+    }
+    .nostretch td {
+      class='block'
+    }
+    .nostretch tr td{
+      width:1%;
+      white-space:nowrap;
+    }
+
+    html {
+      scroll-padding-top: 70px;
+    }
+
+    ol.hierarchy {
+      min-height: 40px;
+      background-color: #f5f5f5;
+      border: 1px solid #e3e3e3;
+      border-radius: 3px;
+      -webkit-box-shadow: inset 0 1px 1px rgba(0, 0, 0, 0.05);
+      box-shadow: inset 0 1px 1px rgba(0, 0, 0, 0.05);
+    }
+    
+    .smallcaps {
+     font-variant: small-caps;
+    }
+    .well .sidebar {
+     padding: 8px 0
+    }
+    .sidebar a {
+      padding: 0px,0px,0px,0px
+    }
+    .varlist>tbody>tr>td {
+      padding-left: 3px;
+      padding-right: 3px;
+    }
+    .varlist>tbody>tr>td:first-child, .varlist>thead>tr>td:first-child {
+      padding-left: 8px;
+    }
+    .varlist>tbody>td>td:last-child, .varlist>thead>tr>td:last-child {
+      padding-right: 8px;
+    }
+
+    .highlight pre { 
+      overflow-x: auto; 
+      overflow-wrap: normal; 
+      white-space: pre
+    }
+    
+    /* .hl is for when line numbers are included, .highlight is for all
+       other cases. */
+    .hl pre { 
+      counter-reset: line-numbering;
+      overflow-x: auto; 
+      overflow-wrap: normal; 
+      white-space: pre;
+      padding: 0;
+      padding-right: 9.5px;
+      overflow-y: hidden;
+      padding-bottom: 9.5px;
+    }
+    
+    .hl pre a::before {
+      content: counter(line-numbering);
+      counter-increment: line-numbering;
+      padding-right: 0.7em; /* space after numbers */
+      margin-top: 4.5em;
+      width: 60px;
+      text-align: right;
+      opacity: 0.7;
+      display: inline-block;
+      color: #aaa;
+      background: #eee;
+      margin-right: 10px;
+      border-right: 1px solid #ccc;
+      -webkit-touch-callout: none;
+      -webkit-user-select: none;
+      -khtml-user-select: none;
+      -moz-user-select: none;
+      -ms-user-select: none;
+      user-select: none;
+    }
+    
+    .hl pre a:first-of-type::before {
+      padding-top: 9.5px;
+    }
+    
+    .hl pre a:last-of-type::before {
+      padding-bottom: 9.5px;
+    }
+    
+    .hl pre a:only-of-type::before {
+      padding: 9.5px;
+    }
+
+    .hl pre a {
+	display: inline-block;
+	height: 4.5em;
+	margin: -4.5em 0 0;
+    }
+    .codesum h3 {
+      margin-top: 2px;
+      margin-bottom: 2px;
+    }
+    
+    h1.inline, h2.inline, h3.inline {
+      display: inline;
+    }
+    
+    .depwarn {
+      float: right;
+    }
+    
+    .anchor {
+      position: absolute;
+      margin: -4.5em;
+      visibility:hidden;
+    }
+
+    .alert {
+      margin-left: 5px;
+      margin-right: 5px;
+      margin-top: 5px;
+    }
+    
+    div.toc {
+      font-size: 14.73px;
+      padding-left: 0px;
+      padding-right: 0px;
+    }
+    
+    div.toc a {
+      padding-left: 20px;
+      padding-right: 20px;
+      margin-right: 15px;
+      padding-top: 5px;
+      padding-bottom: 5px;
+    }
+    
+    div.toc li {
+      font-size: 0.95em;
+      padding-left: 15px;
+    }
+    
+    div.toc li.title {
+      font-size: 1em;
+    }
+
+    div.toc hr {
+      margin-top: 12px;
+      margin-bottom: 10px;
+    }
+
+    .in-well {
+      padding: 0px 0px;
+      margin-bottom: 0px;
+      float:right;
+    }
+    
+    table tr.submod>td {
+      border-top: none;
+      font-size: 13.5px;
+    }
+
+    .graph-help {
+      font-size: 10px;
+    }
+    
+    .depgraph {
+      width: 100%;
+      max-width: 1140px;
+    }
+    
+    #sidebar a {
+      white-space: nowrap;
+      overflow: hidden;
+      text-overflow: ellipsis;
+    }
+    
+    .highlighttable {
+      width: auto;
+      table-layout: fixed;
+    }
+
+    ul.checklist {
+      list-style-type: none;
+    }
+
+    ul.checklist input[type="checkbox"] {
+      margin-left: -20.8px;
+      margin-right: 4.55px;
+    }
+
+    .gitter-chat-embed {
+      z-index: 100000;
+    }
+
+table.graph {
+    text-align: center;
+}
+
+
+.graph td.root {
+  border:2px solid black;
+  padding:10px;
+}
+
+.graph td.triangle-right:after {
+    content: "";
+    display: block;
+    border-top: 7px solid  transparent;
+    border-bottom: 7px solid  transparent;
+    border-left: 7px solid black;
+}
+
+.graph td.triangle-left:after {
+    content: "";
+    display: block;
+    border-top: 7px solid  transparent;
+    border-bottom: 7px solid  transparent;
+    border-right: 7px solid black;
+}
+
+.graph td.node {
+  color: white;
+  padding:10px;
+  border-style: solid;
+  border-width: 3px 0px 3px 0px;
+  border-color: white;
+}
+
+.graph td.node a{
+  color: white;
+}
+
+.graph td.dashedText,
+.graph td.solidText {
+    padding: 0px 10px 0px 10px;
+    min-width: 40px;
+    color: black;
+    border-color: black;
+}
+
+.graph td.dashedText {
+    border-bottom-style: dashed;
+}
+
+.graph td.solidText {
+    border-bottom-style: solid;
+}
+
+.graph td.dashedBottom,
+.graph td.dashedTop,
+.graph td.solidTop,
+.graph td.solidBottom {
+    min-width: 40px;
+    color: transparent;
+    border-color: black;
+}
+
+.graph td.dashedBottom {
+    border-bottom-style: dashed;
+}
+
+.graph td.dashedTop {
+    border-top-style: dashed;
+}
+
+.graph td.solidBottom {
+    border-bottom-style: solid;
+}
+
+.graph td.solidTop {
+    border-top-style: solid;
+}
+
+/* Ensure tables in Pages don't collapse horizontally */
+td, th {
+    padding-right: 10px;
+}
diff --git a/reference/rte-fortran-interface/css/pygments.css b/reference/rte-fortran-interface/css/pygments.css
new file mode 100644
index 000000000..4a3a8d857
--- /dev/null
+++ b/reference/rte-fortran-interface/css/pygments.css
@@ -0,0 +1,61 @@
+pre .hll { background-color: #ffffcc }
+pre .c { color: #408080; font-style: italic } /* Comment */
+pre .err { border: 1px solid #FF0000 } /* Error */
+pre .k { color: #008000; font-weight: bold } /* Keyword */
+pre .o { color: #666666 } /* Operator */
+pre .cm { color: #408080; font-style: italic } /* Comment.Multiline */
+pre .cp { color: #BC7A00 } /* Comment.Preproc */
+pre .c1 { color: #408080; font-style: italic } /* Comment.Single */
+pre .cs { color: #408080; font-style: italic } /* Comment.Special */
+pre .gd { color: #A00000 } /* Generic.Deleted */
+pre .ge { font-style: italic } /* Generic.Emph */
+pre .gr { color: #FF0000 } /* Generic.Error */
+pre .gh { color: #000080; font-weight: bold } /* Generic.Heading */
+pre .gi { color: #00A000 } /* Generic.Inserted */
+pre .go { color: #888888 } /* Generic.Output */
+pre .gp { color: #000080; font-weight: bold } /* Generic.Prompt */
+pre .gs { font-weight: bold } /* Generic.Strong */
+pre .gu { color: #800080; font-weight: bold } /* Generic.Subheading */
+pre .gt { color: #0044DD } /* Generic.Traceback */
+pre .kc { color: #008000; font-weight: bold } /* Keyword.Constant */
+pre .kd { color: #008000; font-weight: bold } /* Keyword.Declaration */
+pre .kn { color: #008000; font-weight: bold } /* Keyword.Namespace */
+pre .kp { color: #008000 } /* Keyword.Pseudo */
+pre .kr { color: #008000; font-weight: bold } /* Keyword.Reserved */
+pre .kt { color: #B00040 } /* Keyword.Type */
+pre .m { color: #666666 } /* Literal.Number */
+pre .s { color: #BA2121 } /* Literal.String */
+pre .na { color: #7D9029 } /* Name.Attribute */
+pre .nb { color: #008000 } /* Name.Builtin */
+pre .nc { color: #0000FF; font-weight: bold } /* Name.Class */
+pre .no { color: #880000 } /* Name.Constant */
+pre .nd { color: #AA22FF } /* Name.Decorator */
+pre .ni { color: #999999; font-weight: bold } /* Name.Entity */
+pre .ne { color: #D2413A; font-weight: bold } /* Name.Exception */
+pre .nf { color: #0000FF } /* Name.Function */
+pre .nl { color: #A0A000 } /* Name.Label */
+pre .nn { color: #0000FF; font-weight: bold } /* Name.Namespace */
+pre .nt { color: #008000; font-weight: bold } /* Name.Tag */
+pre .nv { color: #19177C } /* Name.Variable */
+pre .ow { color: #AA22FF; font-weight: bold } /* Operator.Word */
+pre .w { color: #bbbbbb } /* Text.Whitespace */
+pre .mf { color: #666666 } /* Literal.Number.Float */
+pre .mh { color: #666666 } /* Literal.Number.Hex */
+pre .mi { color: #666666 } /* Literal.Number.Integer */
+pre .mo { color: #666666 } /* Literal.Number.Oct */
+pre .sb { color: #BA2121 } /* Literal.String.Backtick */
+pre .sc { color: #BA2121 } /* Literal.String.Char */
+pre .sd { color: #BA2121; font-style: italic } /* Literal.String.Doc */
+pre .s2 { color: #BA2121 } /* Literal.String.Double */
+pre .se { color: #BB6622; font-weight: bold } /* Literal.String.Escape */
+pre .sh { color: #BA2121 } /* Literal.String.Heredoc */
+pre .si { color: #BB6688; font-weight: bold } /* Literal.String.Interpol */
+pre .sx { color: #008000 } /* Literal.String.Other */
+pre .sr { color: #BB6688 } /* Literal.String.Regex */
+pre .s1 { color: #BA2121 } /* Literal.String.Single */
+pre .ss { color: #19177C } /* Literal.String.Symbol */
+pre .bp { color: #008000 } /* Name.Builtin.Pseudo */
+pre .vc { color: #19177C } /* Name.Variable.Class */
+pre .vg { color: #19177C } /* Name.Variable.Global */
+pre .vi { color: #19177C } /* Name.Variable.Instance */
+pre .il { color: #666666 } /* Literal.Number.Integer.Long */
diff --git a/reference/rte-fortran-interface/favicon.png b/reference/rte-fortran-interface/favicon.png
new file mode 100644
index 000000000..4d6ad16ba
Binary files /dev/null and b/reference/rte-fortran-interface/favicon.png differ
diff --git a/reference/rte-fortran-interface/fonts/FontAwesome.otf b/reference/rte-fortran-interface/fonts/FontAwesome.otf
new file mode 100644
index 000000000..81c9ad949
Binary files /dev/null and b/reference/rte-fortran-interface/fonts/FontAwesome.otf differ
diff --git a/reference/rte-fortran-interface/fonts/fontawesome-webfont.eot b/reference/rte-fortran-interface/fonts/fontawesome-webfont.eot
new file mode 100644
index 000000000..84677bc0c
Binary files /dev/null and b/reference/rte-fortran-interface/fonts/fontawesome-webfont.eot differ
diff --git a/reference/rte-fortran-interface/fonts/fontawesome-webfont.svg b/reference/rte-fortran-interface/fonts/fontawesome-webfont.svg
new file mode 100644
index 000000000..d907b25ae
--- /dev/null
+++ b/reference/rte-fortran-interface/fonts/fontawesome-webfont.svg
@@ -0,0 +1,520 @@
+<?xml version="1.0" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd" >
+<svg xmlns="http://www.w3.org/2000/svg">
+<metadata></metadata>
+<defs>
+<font id="fontawesomeregular" horiz-adv-x="1536" >
+<font-face units-per-em="1792" ascent="1536" descent="-256" />
+<missing-glyph horiz-adv-x="448" />
+<glyph unicode=" "  horiz-adv-x="448" />
+<glyph unicode="&#x09;" horiz-adv-x="448" />
+<glyph unicode="&#xa0;" horiz-adv-x="448" />
+<glyph unicode="&#xa8;" horiz-adv-x="1792" />
+<glyph unicode="&#xa9;" horiz-adv-x="1792" />
+<glyph unicode="&#xae;" horiz-adv-x="1792" />
+<glyph unicode="&#xb4;" horiz-adv-x="1792" />
+<glyph unicode="&#xc6;" horiz-adv-x="1792" />
+<glyph unicode="&#xd8;" horiz-adv-x="1792" />
+<glyph unicode="&#x2000;" horiz-adv-x="768" />
+<glyph unicode="&#x2001;" horiz-adv-x="1537" />
+<glyph unicode="&#x2002;" horiz-adv-x="768" />
+<glyph unicode="&#x2003;" horiz-adv-x="1537" />
+<glyph unicode="&#x2004;" horiz-adv-x="512" />
+<glyph unicode="&#x2005;" horiz-adv-x="384" />
+<glyph unicode="&#x2006;" horiz-adv-x="256" />
+<glyph unicode="&#x2007;" horiz-adv-x="256" />
+<glyph unicode="&#x2008;" horiz-adv-x="192" />
+<glyph unicode="&#x2009;" horiz-adv-x="307" />
+<glyph unicode="&#x200a;" horiz-adv-x="85" />
+<glyph unicode="&#x202f;" horiz-adv-x="307" />
+<glyph unicode="&#x205f;" horiz-adv-x="384" />
+<glyph unicode="&#x2122;" horiz-adv-x="1792" />
+<glyph unicode="&#x221e;" horiz-adv-x="1792" />
+<glyph unicode="&#x2260;" horiz-adv-x="1792" />
+<glyph unicode="&#x25fc;" horiz-adv-x="500" d="M0 0z" />
+<glyph unicode="&#xf000;" horiz-adv-x="1792" d="M1699 1350q0 -35 -43 -78l-632 -632v-768h320q26 0 45 -19t19 -45t-19 -45t-45 -19h-896q-26 0 -45 19t-19 45t19 45t45 19h320v768l-632 632q-43 43 -43 78q0 23 18 36.5t38 17.5t43 4h1408q23 0 43 -4t38 -17.5t18 -36.5z" />
+<glyph unicode="&#xf001;" d="M1536 1312v-1120q0 -50 -34 -89t-86 -60.5t-103.5 -32t-96.5 -10.5t-96.5 10.5t-103.5 32t-86 60.5t-34 89t34 89t86 60.5t103.5 32t96.5 10.5q105 0 192 -39v537l-768 -237v-709q0 -50 -34 -89t-86 -60.5t-103.5 -32t-96.5 -10.5t-96.5 10.5t-103.5 32t-86 60.5t-34 89 t34 89t86 60.5t103.5 32t96.5 10.5q105 0 192 -39v967q0 31 19 56.5t49 35.5l832 256q12 4 28 4q40 0 68 -28t28 -68z" />
+<glyph unicode="&#xf002;" horiz-adv-x="1664" d="M1152 704q0 185 -131.5 316.5t-316.5 131.5t-316.5 -131.5t-131.5 -316.5t131.5 -316.5t316.5 -131.5t316.5 131.5t131.5 316.5zM1664 -128q0 -52 -38 -90t-90 -38q-54 0 -90 38l-343 342q-179 -124 -399 -124q-143 0 -273.5 55.5t-225 150t-150 225t-55.5 273.5 t55.5 273.5t150 225t225 150t273.5 55.5t273.5 -55.5t225 -150t150 -225t55.5 -273.5q0 -220 -124 -399l343 -343q37 -37 37 -90z" />
+<glyph unicode="&#xf003;" horiz-adv-x="1792" d="M1664 32v768q-32 -36 -69 -66q-268 -206 -426 -338q-51 -43 -83 -67t-86.5 -48.5t-102.5 -24.5h-1h-1q-48 0 -102.5 24.5t-86.5 48.5t-83 67q-158 132 -426 338q-37 30 -69 66v-768q0 -13 9.5 -22.5t22.5 -9.5h1472q13 0 22.5 9.5t9.5 22.5zM1664 1083v11v13.5t-0.5 13 t-3 12.5t-5.5 9t-9 7.5t-14 2.5h-1472q-13 0 -22.5 -9.5t-9.5 -22.5q0 -168 147 -284q193 -152 401 -317q6 -5 35 -29.5t46 -37.5t44.5 -31.5t50.5 -27.5t43 -9h1h1q20 0 43 9t50.5 27.5t44.5 31.5t46 37.5t35 29.5q208 165 401 317q54 43 100.5 115.5t46.5 131.5z M1792 1120v-1088q0 -66 -47 -113t-113 -47h-1472q-66 0 -113 47t-47 113v1088q0 66 47 113t113 47h1472q66 0 113 -47t47 -113z" />
+<glyph unicode="&#xf004;" horiz-adv-x="1792" d="M896 -128q-26 0 -44 18l-624 602q-10 8 -27.5 26t-55.5 65.5t-68 97.5t-53.5 121t-23.5 138q0 220 127 344t351 124q62 0 126.5 -21.5t120 -58t95.5 -68.5t76 -68q36 36 76 68t95.5 68.5t120 58t126.5 21.5q224 0 351 -124t127 -344q0 -221 -229 -450l-623 -600 q-18 -18 -44 -18z" />
+<glyph unicode="&#xf005;" horiz-adv-x="1664" d="M1664 889q0 -22 -26 -48l-363 -354l86 -500q1 -7 1 -20q0 -21 -10.5 -35.5t-30.5 -14.5q-19 0 -40 12l-449 236l-449 -236q-22 -12 -40 -12q-21 0 -31.5 14.5t-10.5 35.5q0 6 2 20l86 500l-364 354q-25 27 -25 48q0 37 56 46l502 73l225 455q19 41 49 41t49 -41l225 -455 l502 -73q56 -9 56 -46z" />
+<glyph unicode="&#xf006;" horiz-adv-x="1664" d="M1137 532l306 297l-422 62l-189 382l-189 -382l-422 -62l306 -297l-73 -421l378 199l377 -199zM1664 889q0 -22 -26 -48l-363 -354l86 -500q1 -7 1 -20q0 -50 -41 -50q-19 0 -40 12l-449 236l-449 -236q-22 -12 -40 -12q-21 0 -31.5 14.5t-10.5 35.5q0 6 2 20l86 500 l-364 354q-25 27 -25 48q0 37 56 46l502 73l225 455q19 41 49 41t49 -41l225 -455l502 -73q56 -9 56 -46z" />
+<glyph unicode="&#xf007;" horiz-adv-x="1408" d="M1408 131q0 -120 -73 -189.5t-194 -69.5h-874q-121 0 -194 69.5t-73 189.5q0 53 3.5 103.5t14 109t26.5 108.5t43 97.5t62 81t85.5 53.5t111.5 20q9 0 42 -21.5t74.5 -48t108 -48t133.5 -21.5t133.5 21.5t108 48t74.5 48t42 21.5q61 0 111.5 -20t85.5 -53.5t62 -81 t43 -97.5t26.5 -108.5t14 -109t3.5 -103.5zM1088 1024q0 -159 -112.5 -271.5t-271.5 -112.5t-271.5 112.5t-112.5 271.5t112.5 271.5t271.5 112.5t271.5 -112.5t112.5 -271.5z" />
+<glyph unicode="&#xf008;" horiz-adv-x="1920" d="M384 -64v128q0 26 -19 45t-45 19h-128q-26 0 -45 -19t-19 -45v-128q0 -26 19 -45t45 -19h128q26 0 45 19t19 45zM384 320v128q0 26 -19 45t-45 19h-128q-26 0 -45 -19t-19 -45v-128q0 -26 19 -45t45 -19h128q26 0 45 19t19 45zM384 704v128q0 26 -19 45t-45 19h-128 q-26 0 -45 -19t-19 -45v-128q0 -26 19 -45t45 -19h128q26 0 45 19t19 45zM1408 -64v512q0 26 -19 45t-45 19h-768q-26 0 -45 -19t-19 -45v-512q0 -26 19 -45t45 -19h768q26 0 45 19t19 45zM384 1088v128q0 26 -19 45t-45 19h-128q-26 0 -45 -19t-19 -45v-128q0 -26 19 -45 t45 -19h128q26 0 45 19t19 45zM1792 -64v128q0 26 -19 45t-45 19h-128q-26 0 -45 -19t-19 -45v-128q0 -26 19 -45t45 -19h128q26 0 45 19t19 45zM1408 704v512q0 26 -19 45t-45 19h-768q-26 0 -45 -19t-19 -45v-512q0 -26 19 -45t45 -19h768q26 0 45 19t19 45zM1792 320v128 q0 26 -19 45t-45 19h-128q-26 0 -45 -19t-19 -45v-128q0 -26 19 -45t45 -19h128q26 0 45 19t19 45zM1792 704v128q0 26 -19 45t-45 19h-128q-26 0 -45 -19t-19 -45v-128q0 -26 19 -45t45 -19h128q26 0 45 19t19 45zM1792 1088v128q0 26 -19 45t-45 19h-128q-26 0 -45 -19 t-19 -45v-128q0 -26 19 -45t45 -19h128q26 0 45 19t19 45zM1920 1248v-1344q0 -66 -47 -113t-113 -47h-1600q-66 0 -113 47t-47 113v1344q0 66 47 113t113 47h1600q66 0 113 -47t47 -113z" />
+<glyph unicode="&#xf009;" horiz-adv-x="1664" d="M768 512v-384q0 -52 -38 -90t-90 -38h-512q-52 0 -90 38t-38 90v384q0 52 38 90t90 38h512q52 0 90 -38t38 -90zM768 1280v-384q0 -52 -38 -90t-90 -38h-512q-52 0 -90 38t-38 90v384q0 52 38 90t90 38h512q52 0 90 -38t38 -90zM1664 512v-384q0 -52 -38 -90t-90 -38 h-512q-52 0 -90 38t-38 90v384q0 52 38 90t90 38h512q52 0 90 -38t38 -90zM1664 1280v-384q0 -52 -38 -90t-90 -38h-512q-52 0 -90 38t-38 90v384q0 52 38 90t90 38h512q52 0 90 -38t38 -90z" />
+<glyph unicode="&#xf00a;" horiz-adv-x="1792" d="M512 288v-192q0 -40 -28 -68t-68 -28h-320q-40 0 -68 28t-28 68v192q0 40 28 68t68 28h320q40 0 68 -28t28 -68zM512 800v-192q0 -40 -28 -68t-68 -28h-320q-40 0 -68 28t-28 68v192q0 40 28 68t68 28h320q40 0 68 -28t28 -68zM1152 288v-192q0 -40 -28 -68t-68 -28h-320 q-40 0 -68 28t-28 68v192q0 40 28 68t68 28h320q40 0 68 -28t28 -68zM512 1312v-192q0 -40 -28 -68t-68 -28h-320q-40 0 -68 28t-28 68v192q0 40 28 68t68 28h320q40 0 68 -28t28 -68zM1152 800v-192q0 -40 -28 -68t-68 -28h-320q-40 0 -68 28t-28 68v192q0 40 28 68t68 28 h320q40 0 68 -28t28 -68zM1792 288v-192q0 -40 -28 -68t-68 -28h-320q-40 0 -68 28t-28 68v192q0 40 28 68t68 28h320q40 0 68 -28t28 -68zM1152 1312v-192q0 -40 -28 -68t-68 -28h-320q-40 0 -68 28t-28 68v192q0 40 28 68t68 28h320q40 0 68 -28t28 -68zM1792 800v-192 q0 -40 -28 -68t-68 -28h-320q-40 0 -68 28t-28 68v192q0 40 28 68t68 28h320q40 0 68 -28t28 -68zM1792 1312v-192q0 -40 -28 -68t-68 -28h-320q-40 0 -68 28t-28 68v192q0 40 28 68t68 28h320q40 0 68 -28t28 -68z" />
+<glyph unicode="&#xf00b;" horiz-adv-x="1792" d="M512 288v-192q0 -40 -28 -68t-68 -28h-320q-40 0 -68 28t-28 68v192q0 40 28 68t68 28h320q40 0 68 -28t28 -68zM512 800v-192q0 -40 -28 -68t-68 -28h-320q-40 0 -68 28t-28 68v192q0 40 28 68t68 28h320q40 0 68 -28t28 -68zM1792 288v-192q0 -40 -28 -68t-68 -28h-960 q-40 0 -68 28t-28 68v192q0 40 28 68t68 28h960q40 0 68 -28t28 -68zM512 1312v-192q0 -40 -28 -68t-68 -28h-320q-40 0 -68 28t-28 68v192q0 40 28 68t68 28h320q40 0 68 -28t28 -68zM1792 800v-192q0 -40 -28 -68t-68 -28h-960q-40 0 -68 28t-28 68v192q0 40 28 68t68 28 h960q40 0 68 -28t28 -68zM1792 1312v-192q0 -40 -28 -68t-68 -28h-960q-40 0 -68 28t-28 68v192q0 40 28 68t68 28h960q40 0 68 -28t28 -68z" />
+<glyph unicode="&#xf00c;" horiz-adv-x="1792" d="M1671 970q0 -40 -28 -68l-724 -724l-136 -136q-28 -28 -68 -28t-68 28l-136 136l-362 362q-28 28 -28 68t28 68l136 136q28 28 68 28t68 -28l294 -295l656 657q28 28 68 28t68 -28l136 -136q28 -28 28 -68z" />
+<glyph unicode="&#xf00d;" horiz-adv-x="1408" d="M1298 214q0 -40 -28 -68l-136 -136q-28 -28 -68 -28t-68 28l-294 294l-294 -294q-28 -28 -68 -28t-68 28l-136 136q-28 28 -28 68t28 68l294 294l-294 294q-28 28 -28 68t28 68l136 136q28 28 68 28t68 -28l294 -294l294 294q28 28 68 28t68 -28l136 -136q28 -28 28 -68 t-28 -68l-294 -294l294 -294q28 -28 28 -68z" />
+<glyph unicode="&#xf00e;" horiz-adv-x="1664" d="M1024 736v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-224v-224q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v224h-224q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h224v224q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5v-224h224 q13 0 22.5 -9.5t9.5 -22.5zM1152 704q0 185 -131.5 316.5t-316.5 131.5t-316.5 -131.5t-131.5 -316.5t131.5 -316.5t316.5 -131.5t316.5 131.5t131.5 316.5zM1664 -128q0 -53 -37.5 -90.5t-90.5 -37.5q-54 0 -90 38l-343 342q-179 -124 -399 -124q-143 0 -273.5 55.5 t-225 150t-150 225t-55.5 273.5t55.5 273.5t150 225t225 150t273.5 55.5t273.5 -55.5t225 -150t150 -225t55.5 -273.5q0 -220 -124 -399l343 -343q37 -37 37 -90z" />
+<glyph unicode="&#xf010;" horiz-adv-x="1664" d="M1024 736v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-576q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h576q13 0 22.5 -9.5t9.5 -22.5zM1152 704q0 185 -131.5 316.5t-316.5 131.5t-316.5 -131.5t-131.5 -316.5t131.5 -316.5t316.5 -131.5t316.5 131.5t131.5 316.5z M1664 -128q0 -53 -37.5 -90.5t-90.5 -37.5q-54 0 -90 38l-343 342q-179 -124 -399 -124q-143 0 -273.5 55.5t-225 150t-150 225t-55.5 273.5t55.5 273.5t150 225t225 150t273.5 55.5t273.5 -55.5t225 -150t150 -225t55.5 -273.5q0 -220 -124 -399l343 -343q37 -37 37 -90z " />
+<glyph unicode="&#xf011;" d="M1536 640q0 -156 -61 -298t-164 -245t-245 -164t-298 -61t-298 61t-245 164t-164 245t-61 298q0 182 80.5 343t226.5 270q43 32 95.5 25t83.5 -50q32 -42 24.5 -94.5t-49.5 -84.5q-98 -74 -151.5 -181t-53.5 -228q0 -104 40.5 -198.5t109.5 -163.5t163.5 -109.5 t198.5 -40.5t198.5 40.5t163.5 109.5t109.5 163.5t40.5 198.5q0 121 -53.5 228t-151.5 181q-42 32 -49.5 84.5t24.5 94.5q31 43 84 50t95 -25q146 -109 226.5 -270t80.5 -343zM896 1408v-640q0 -52 -38 -90t-90 -38t-90 38t-38 90v640q0 52 38 90t90 38t90 -38t38 -90z" />
+<glyph unicode="&#xf012;" horiz-adv-x="1792" d="M256 96v-192q0 -14 -9 -23t-23 -9h-192q-14 0 -23 9t-9 23v192q0 14 9 23t23 9h192q14 0 23 -9t9 -23zM640 224v-320q0 -14 -9 -23t-23 -9h-192q-14 0 -23 9t-9 23v320q0 14 9 23t23 9h192q14 0 23 -9t9 -23zM1024 480v-576q0 -14 -9 -23t-23 -9h-192q-14 0 -23 9t-9 23 v576q0 14 9 23t23 9h192q14 0 23 -9t9 -23zM1408 864v-960q0 -14 -9 -23t-23 -9h-192q-14 0 -23 9t-9 23v960q0 14 9 23t23 9h192q14 0 23 -9t9 -23zM1792 1376v-1472q0 -14 -9 -23t-23 -9h-192q-14 0 -23 9t-9 23v1472q0 14 9 23t23 9h192q14 0 23 -9t9 -23z" />
+<glyph unicode="&#xf013;" d="M1024 640q0 106 -75 181t-181 75t-181 -75t-75 -181t75 -181t181 -75t181 75t75 181zM1536 749v-222q0 -12 -8 -23t-20 -13l-185 -28q-19 -54 -39 -91q35 -50 107 -138q10 -12 10 -25t-9 -23q-27 -37 -99 -108t-94 -71q-12 0 -26 9l-138 108q-44 -23 -91 -38 q-16 -136 -29 -186q-7 -28 -36 -28h-222q-14 0 -24.5 8.5t-11.5 21.5l-28 184q-49 16 -90 37l-141 -107q-10 -9 -25 -9q-14 0 -25 11q-126 114 -165 168q-7 10 -7 23q0 12 8 23q15 21 51 66.5t54 70.5q-27 50 -41 99l-183 27q-13 2 -21 12.5t-8 23.5v222q0 12 8 23t19 13 l186 28q14 46 39 92q-40 57 -107 138q-10 12 -10 24q0 10 9 23q26 36 98.5 107.5t94.5 71.5q13 0 26 -10l138 -107q44 23 91 38q16 136 29 186q7 28 36 28h222q14 0 24.5 -8.5t11.5 -21.5l28 -184q49 -16 90 -37l142 107q9 9 24 9q13 0 25 -10q129 -119 165 -170q7 -8 7 -22 q0 -12 -8 -23q-15 -21 -51 -66.5t-54 -70.5q26 -50 41 -98l183 -28q13 -2 21 -12.5t8 -23.5z" />
+<glyph unicode="&#xf014;" horiz-adv-x="1408" d="M512 800v-576q0 -14 -9 -23t-23 -9h-64q-14 0 -23 9t-9 23v576q0 14 9 23t23 9h64q14 0 23 -9t9 -23zM768 800v-576q0 -14 -9 -23t-23 -9h-64q-14 0 -23 9t-9 23v576q0 14 9 23t23 9h64q14 0 23 -9t9 -23zM1024 800v-576q0 -14 -9 -23t-23 -9h-64q-14 0 -23 9t-9 23v576 q0 14 9 23t23 9h64q14 0 23 -9t9 -23zM1152 76v948h-896v-948q0 -22 7 -40.5t14.5 -27t10.5 -8.5h832q3 0 10.5 8.5t14.5 27t7 40.5zM480 1152h448l-48 117q-7 9 -17 11h-317q-10 -2 -17 -11zM1408 1120v-64q0 -14 -9 -23t-23 -9h-96v-948q0 -83 -47 -143.5t-113 -60.5h-832 q-66 0 -113 58.5t-47 141.5v952h-96q-14 0 -23 9t-9 23v64q0 14 9 23t23 9h309l70 167q15 37 54 63t79 26h320q40 0 79 -26t54 -63l70 -167h309q14 0 23 -9t9 -23z" />
+<glyph unicode="&#xf015;" horiz-adv-x="1664" d="M1408 544v-480q0 -26 -19 -45t-45 -19h-384v384h-256v-384h-384q-26 0 -45 19t-19 45v480q0 1 0.5 3t0.5 3l575 474l575 -474q1 -2 1 -6zM1631 613l-62 -74q-8 -9 -21 -11h-3q-13 0 -21 7l-692 577l-692 -577q-12 -8 -24 -7q-13 2 -21 11l-62 74q-8 10 -7 23.5t11 21.5 l719 599q32 26 76 26t76 -26l244 -204v195q0 14 9 23t23 9h192q14 0 23 -9t9 -23v-408l219 -182q10 -8 11 -21.5t-7 -23.5z" />
+<glyph unicode="&#xf016;" d="M1468 1156q28 -28 48 -76t20 -88v-1152q0 -40 -28 -68t-68 -28h-1344q-40 0 -68 28t-28 68v1600q0 40 28 68t68 28h896q40 0 88 -20t76 -48zM1024 1400v-376h376q-10 29 -22 41l-313 313q-12 12 -41 22zM1408 -128v1024h-416q-40 0 -68 28t-28 68v416h-768v-1536h1280z " />
+<glyph unicode="&#xf017;" d="M896 992v-448q0 -14 -9 -23t-23 -9h-320q-14 0 -23 9t-9 23v64q0 14 9 23t23 9h224v352q0 14 9 23t23 9h64q14 0 23 -9t9 -23zM1312 640q0 148 -73 273t-198 198t-273 73t-273 -73t-198 -198t-73 -273t73 -273t198 -198t273 -73t273 73t198 198t73 273zM1536 640 q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf018;" horiz-adv-x="1920" d="M1111 540v4l-24 320q-1 13 -11 22.5t-23 9.5h-186q-13 0 -23 -9.5t-11 -22.5l-24 -320v-4q-1 -12 8 -20t21 -8h244q12 0 21 8t8 20zM1870 73q0 -73 -46 -73h-704q13 0 22 9.5t8 22.5l-20 256q-1 13 -11 22.5t-23 9.5h-272q-13 0 -23 -9.5t-11 -22.5l-20 -256 q-1 -13 8 -22.5t22 -9.5h-704q-46 0 -46 73q0 54 26 116l417 1044q8 19 26 33t38 14h339q-13 0 -23 -9.5t-11 -22.5l-15 -192q-1 -14 8 -23t22 -9h166q13 0 22 9t8 23l-15 192q-1 13 -11 22.5t-23 9.5h339q20 0 38 -14t26 -33l417 -1044q26 -62 26 -116z" />
+<glyph unicode="&#xf019;" horiz-adv-x="1664" d="M1280 192q0 26 -19 45t-45 19t-45 -19t-19 -45t19 -45t45 -19t45 19t19 45zM1536 192q0 26 -19 45t-45 19t-45 -19t-19 -45t19 -45t45 -19t45 19t19 45zM1664 416v-320q0 -40 -28 -68t-68 -28h-1472q-40 0 -68 28t-28 68v320q0 40 28 68t68 28h465l135 -136 q58 -56 136 -56t136 56l136 136h464q40 0 68 -28t28 -68zM1339 985q17 -41 -14 -70l-448 -448q-18 -19 -45 -19t-45 19l-448 448q-31 29 -14 70q17 39 59 39h256v448q0 26 19 45t45 19h256q26 0 45 -19t19 -45v-448h256q42 0 59 -39z" />
+<glyph unicode="&#xf01a;" d="M1120 608q0 -12 -10 -24l-319 -319q-11 -9 -23 -9t-23 9l-320 320q-15 16 -7 35q8 20 30 20h192v352q0 14 9 23t23 9h192q14 0 23 -9t9 -23v-352h192q14 0 23 -9t9 -23zM768 1184q-148 0 -273 -73t-198 -198t-73 -273t73 -273t198 -198t273 -73t273 73t198 198t73 273 t-73 273t-198 198t-273 73zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf01b;" d="M1118 660q-8 -20 -30 -20h-192v-352q0 -14 -9 -23t-23 -9h-192q-14 0 -23 9t-9 23v352h-192q-14 0 -23 9t-9 23q0 12 10 24l319 319q11 9 23 9t23 -9l320 -320q15 -16 7 -35zM768 1184q-148 0 -273 -73t-198 -198t-73 -273t73 -273t198 -198t273 -73t273 73t198 198 t73 273t-73 273t-198 198t-273 73zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf01c;" d="M1023 576h316q-1 3 -2.5 8t-2.5 8l-212 496h-708l-212 -496q-1 -2 -2.5 -8t-2.5 -8h316l95 -192h320zM1536 546v-482q0 -26 -19 -45t-45 -19h-1408q-26 0 -45 19t-19 45v482q0 62 25 123l238 552q10 25 36.5 42t52.5 17h832q26 0 52.5 -17t36.5 -42l238 -552 q25 -61 25 -123z" />
+<glyph unicode="&#xf01d;" d="M1184 640q0 -37 -32 -55l-544 -320q-15 -9 -32 -9q-16 0 -32 8q-32 19 -32 56v640q0 37 32 56q33 18 64 -1l544 -320q32 -18 32 -55zM1312 640q0 148 -73 273t-198 198t-273 73t-273 -73t-198 -198t-73 -273t73 -273t198 -198t273 -73t273 73t198 198t73 273zM1536 640 q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf01e;" d="M1536 1280v-448q0 -26 -19 -45t-45 -19h-448q-42 0 -59 40q-17 39 14 69l138 138q-148 137 -349 137q-104 0 -198.5 -40.5t-163.5 -109.5t-109.5 -163.5t-40.5 -198.5t40.5 -198.5t109.5 -163.5t163.5 -109.5t198.5 -40.5q119 0 225 52t179 147q7 10 23 12q14 0 25 -9 l137 -138q9 -8 9.5 -20.5t-7.5 -22.5q-109 -132 -264 -204.5t-327 -72.5q-156 0 -298 61t-245 164t-164 245t-61 298t61 298t164 245t245 164t298 61q147 0 284.5 -55.5t244.5 -156.5l130 129q29 31 70 14q39 -17 39 -59z" />
+<glyph unicode="&#xf021;" d="M1511 480q0 -5 -1 -7q-64 -268 -268 -434.5t-478 -166.5q-146 0 -282.5 55t-243.5 157l-129 -129q-19 -19 -45 -19t-45 19t-19 45v448q0 26 19 45t45 19h448q26 0 45 -19t19 -45t-19 -45l-137 -137q71 -66 161 -102t187 -36q134 0 250 65t186 179q11 17 53 117 q8 23 30 23h192q13 0 22.5 -9.5t9.5 -22.5zM1536 1280v-448q0 -26 -19 -45t-45 -19h-448q-26 0 -45 19t-19 45t19 45l138 138q-148 137 -349 137q-134 0 -250 -65t-186 -179q-11 -17 -53 -117q-8 -23 -30 -23h-199q-13 0 -22.5 9.5t-9.5 22.5v7q65 268 270 434.5t480 166.5 q146 0 284 -55.5t245 -156.5l130 129q19 19 45 19t45 -19t19 -45z" />
+<glyph unicode="&#xf022;" horiz-adv-x="1792" d="M384 352v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5zM384 608v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5z M384 864v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5zM1536 352v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-960q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h960q13 0 22.5 -9.5t9.5 -22.5z M1536 608v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-960q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h960q13 0 22.5 -9.5t9.5 -22.5zM1536 864v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-960q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h960q13 0 22.5 -9.5 t9.5 -22.5zM1664 160v832q0 13 -9.5 22.5t-22.5 9.5h-1472q-13 0 -22.5 -9.5t-9.5 -22.5v-832q0 -13 9.5 -22.5t22.5 -9.5h1472q13 0 22.5 9.5t9.5 22.5zM1792 1248v-1088q0 -66 -47 -113t-113 -47h-1472q-66 0 -113 47t-47 113v1088q0 66 47 113t113 47h1472q66 0 113 -47 t47 -113z" />
+<glyph unicode="&#xf023;" horiz-adv-x="1152" d="M320 768h512v192q0 106 -75 181t-181 75t-181 -75t-75 -181v-192zM1152 672v-576q0 -40 -28 -68t-68 -28h-960q-40 0 -68 28t-28 68v576q0 40 28 68t68 28h32v192q0 184 132 316t316 132t316 -132t132 -316v-192h32q40 0 68 -28t28 -68z" />
+<glyph unicode="&#xf024;" horiz-adv-x="1792" d="M320 1280q0 -72 -64 -110v-1266q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v1266q-64 38 -64 110q0 53 37.5 90.5t90.5 37.5t90.5 -37.5t37.5 -90.5zM1792 1216v-763q0 -25 -12.5 -38.5t-39.5 -27.5q-215 -116 -369 -116q-61 0 -123.5 22t-108.5 48 t-115.5 48t-142.5 22q-192 0 -464 -146q-17 -9 -33 -9q-26 0 -45 19t-19 45v742q0 32 31 55q21 14 79 43q236 120 421 120q107 0 200 -29t219 -88q38 -19 88 -19q54 0 117.5 21t110 47t88 47t54.5 21q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf025;" horiz-adv-x="1664" d="M1664 650q0 -166 -60 -314l-20 -49l-185 -33q-22 -83 -90.5 -136.5t-156.5 -53.5v-32q0 -14 -9 -23t-23 -9h-64q-14 0 -23 9t-9 23v576q0 14 9 23t23 9h64q14 0 23 -9t9 -23v-32q71 0 130 -35.5t93 -95.5l68 12q29 95 29 193q0 148 -88 279t-236.5 209t-315.5 78 t-315.5 -78t-236.5 -209t-88 -279q0 -98 29 -193l68 -12q34 60 93 95.5t130 35.5v32q0 14 9 23t23 9h64q14 0 23 -9t9 -23v-576q0 -14 -9 -23t-23 -9h-64q-14 0 -23 9t-9 23v32q-88 0 -156.5 53.5t-90.5 136.5l-185 33l-20 49q-60 148 -60 314q0 151 67 291t179 242.5 t266 163.5t320 61t320 -61t266 -163.5t179 -242.5t67 -291z" />
+<glyph unicode="&#xf026;" horiz-adv-x="768" d="M768 1184v-1088q0 -26 -19 -45t-45 -19t-45 19l-333 333h-262q-26 0 -45 19t-19 45v384q0 26 19 45t45 19h262l333 333q19 19 45 19t45 -19t19 -45z" />
+<glyph unicode="&#xf027;" horiz-adv-x="1152" d="M768 1184v-1088q0 -26 -19 -45t-45 -19t-45 19l-333 333h-262q-26 0 -45 19t-19 45v384q0 26 19 45t45 19h262l333 333q19 19 45 19t45 -19t19 -45zM1152 640q0 -76 -42.5 -141.5t-112.5 -93.5q-10 -5 -25 -5q-26 0 -45 18.5t-19 45.5q0 21 12 35.5t29 25t34 23t29 35.5 t12 57t-12 57t-29 35.5t-34 23t-29 25t-12 35.5q0 27 19 45.5t45 18.5q15 0 25 -5q70 -27 112.5 -93t42.5 -142z" />
+<glyph unicode="&#xf028;" horiz-adv-x="1664" d="M768 1184v-1088q0 -26 -19 -45t-45 -19t-45 19l-333 333h-262q-26 0 -45 19t-19 45v384q0 26 19 45t45 19h262l333 333q19 19 45 19t45 -19t19 -45zM1152 640q0 -76 -42.5 -141.5t-112.5 -93.5q-10 -5 -25 -5q-26 0 -45 18.5t-19 45.5q0 21 12 35.5t29 25t34 23t29 35.5 t12 57t-12 57t-29 35.5t-34 23t-29 25t-12 35.5q0 27 19 45.5t45 18.5q15 0 25 -5q70 -27 112.5 -93t42.5 -142zM1408 640q0 -153 -85 -282.5t-225 -188.5q-13 -5 -25 -5q-27 0 -46 19t-19 45q0 39 39 59q56 29 76 44q74 54 115.5 135.5t41.5 173.5t-41.5 173.5 t-115.5 135.5q-20 15 -76 44q-39 20 -39 59q0 26 19 45t45 19q13 0 26 -5q140 -59 225 -188.5t85 -282.5zM1664 640q0 -230 -127 -422.5t-338 -283.5q-13 -5 -26 -5q-26 0 -45 19t-19 45q0 36 39 59q7 4 22.5 10.5t22.5 10.5q46 25 82 51q123 91 192 227t69 289t-69 289 t-192 227q-36 26 -82 51q-7 4 -22.5 10.5t-22.5 10.5q-39 23 -39 59q0 26 19 45t45 19q13 0 26 -5q211 -91 338 -283.5t127 -422.5z" />
+<glyph unicode="&#xf029;" horiz-adv-x="1408" d="M384 384v-128h-128v128h128zM384 1152v-128h-128v128h128zM1152 1152v-128h-128v128h128zM128 129h384v383h-384v-383zM128 896h384v384h-384v-384zM896 896h384v384h-384v-384zM640 640v-640h-640v640h640zM1152 128v-128h-128v128h128zM1408 128v-128h-128v128h128z M1408 640v-384h-384v128h-128v-384h-128v640h384v-128h128v128h128zM640 1408v-640h-640v640h640zM1408 1408v-640h-640v640h640z" />
+<glyph unicode="&#xf02a;" horiz-adv-x="1792" d="M63 0h-63v1408h63v-1408zM126 1h-32v1407h32v-1407zM220 1h-31v1407h31v-1407zM377 1h-31v1407h31v-1407zM534 1h-62v1407h62v-1407zM660 1h-31v1407h31v-1407zM723 1h-31v1407h31v-1407zM786 1h-31v1407h31v-1407zM943 1h-63v1407h63v-1407zM1100 1h-63v1407h63v-1407z M1226 1h-63v1407h63v-1407zM1352 1h-63v1407h63v-1407zM1446 1h-63v1407h63v-1407zM1635 1h-94v1407h94v-1407zM1698 1h-32v1407h32v-1407zM1792 0h-63v1408h63v-1408z" />
+<glyph unicode="&#xf02b;" d="M448 1088q0 53 -37.5 90.5t-90.5 37.5t-90.5 -37.5t-37.5 -90.5t37.5 -90.5t90.5 -37.5t90.5 37.5t37.5 90.5zM1515 512q0 -53 -37 -90l-491 -492q-39 -37 -91 -37q-53 0 -90 37l-715 716q-38 37 -64.5 101t-26.5 117v416q0 52 38 90t90 38h416q53 0 117 -26.5t102 -64.5 l715 -714q37 -39 37 -91z" />
+<glyph unicode="&#xf02c;" horiz-adv-x="1920" d="M448 1088q0 53 -37.5 90.5t-90.5 37.5t-90.5 -37.5t-37.5 -90.5t37.5 -90.5t90.5 -37.5t90.5 37.5t37.5 90.5zM1515 512q0 -53 -37 -90l-491 -492q-39 -37 -91 -37q-53 0 -90 37l-715 716q-38 37 -64.5 101t-26.5 117v416q0 52 38 90t90 38h416q53 0 117 -26.5t102 -64.5 l715 -714q37 -39 37 -91zM1899 512q0 -53 -37 -90l-491 -492q-39 -37 -91 -37q-36 0 -59 14t-53 45l470 470q37 37 37 90q0 52 -37 91l-715 714q-38 38 -102 64.5t-117 26.5h224q53 0 117 -26.5t102 -64.5l715 -714q37 -39 37 -91z" />
+<glyph unicode="&#xf02d;" horiz-adv-x="1664" d="M1639 1058q40 -57 18 -129l-275 -906q-19 -64 -76.5 -107.5t-122.5 -43.5h-923q-77 0 -148.5 53.5t-99.5 131.5q-24 67 -2 127q0 4 3 27t4 37q1 8 -3 21.5t-3 19.5q2 11 8 21t16.5 23.5t16.5 23.5q23 38 45 91.5t30 91.5q3 10 0.5 30t-0.5 28q3 11 17 28t17 23 q21 36 42 92t25 90q1 9 -2.5 32t0.5 28q4 13 22 30.5t22 22.5q19 26 42.5 84.5t27.5 96.5q1 8 -3 25.5t-2 26.5q2 8 9 18t18 23t17 21q8 12 16.5 30.5t15 35t16 36t19.5 32t26.5 23.5t36 11.5t47.5 -5.5l-1 -3q38 9 51 9h761q74 0 114 -56t18 -130l-274 -906 q-36 -119 -71.5 -153.5t-128.5 -34.5h-869q-27 0 -38 -15q-11 -16 -1 -43q24 -70 144 -70h923q29 0 56 15.5t35 41.5l300 987q7 22 5 57q38 -15 59 -43zM575 1056q-4 -13 2 -22.5t20 -9.5h608q13 0 25.5 9.5t16.5 22.5l21 64q4 13 -2 22.5t-20 9.5h-608q-13 0 -25.5 -9.5 t-16.5 -22.5zM492 800q-4 -13 2 -22.5t20 -9.5h608q13 0 25.5 9.5t16.5 22.5l21 64q4 13 -2 22.5t-20 9.5h-608q-13 0 -25.5 -9.5t-16.5 -22.5z" />
+<glyph unicode="&#xf02e;" horiz-adv-x="1280" d="M1164 1408q23 0 44 -9q33 -13 52.5 -41t19.5 -62v-1289q0 -34 -19.5 -62t-52.5 -41q-19 -8 -44 -8q-48 0 -83 32l-441 424l-441 -424q-36 -33 -83 -33q-23 0 -44 9q-33 13 -52.5 41t-19.5 62v1289q0 34 19.5 62t52.5 41q21 9 44 9h1048z" />
+<glyph unicode="&#xf02f;" horiz-adv-x="1664" d="M384 0h896v256h-896v-256zM384 640h896v384h-160q-40 0 -68 28t-28 68v160h-640v-640zM1536 576q0 26 -19 45t-45 19t-45 -19t-19 -45t19 -45t45 -19t45 19t19 45zM1664 576v-416q0 -13 -9.5 -22.5t-22.5 -9.5h-224v-160q0 -40 -28 -68t-68 -28h-960q-40 0 -68 28t-28 68 v160h-224q-13 0 -22.5 9.5t-9.5 22.5v416q0 79 56.5 135.5t135.5 56.5h64v544q0 40 28 68t68 28h672q40 0 88 -20t76 -48l152 -152q28 -28 48 -76t20 -88v-256h64q79 0 135.5 -56.5t56.5 -135.5z" />
+<glyph unicode="&#xf030;" horiz-adv-x="1920" d="M960 864q119 0 203.5 -84.5t84.5 -203.5t-84.5 -203.5t-203.5 -84.5t-203.5 84.5t-84.5 203.5t84.5 203.5t203.5 84.5zM1664 1280q106 0 181 -75t75 -181v-896q0 -106 -75 -181t-181 -75h-1408q-106 0 -181 75t-75 181v896q0 106 75 181t181 75h224l51 136 q19 49 69.5 84.5t103.5 35.5h512q53 0 103.5 -35.5t69.5 -84.5l51 -136h224zM960 128q185 0 316.5 131.5t131.5 316.5t-131.5 316.5t-316.5 131.5t-316.5 -131.5t-131.5 -316.5t131.5 -316.5t316.5 -131.5z" />
+<glyph unicode="&#xf031;" horiz-adv-x="1664" d="M725 977l-170 -450q33 0 136.5 -2t160.5 -2q19 0 57 2q-87 253 -184 452zM0 -128l2 79q23 7 56 12.5t57 10.5t49.5 14.5t44.5 29t31 50.5l237 616l280 724h75h53q8 -14 11 -21l205 -480q33 -78 106 -257.5t114 -274.5q15 -34 58 -144.5t72 -168.5q20 -45 35 -57 q19 -15 88 -29.5t84 -20.5q6 -38 6 -57q0 -4 -0.5 -13t-0.5 -13q-63 0 -190 8t-191 8q-76 0 -215 -7t-178 -8q0 43 4 78l131 28q1 0 12.5 2.5t15.5 3.5t14.5 4.5t15 6.5t11 8t9 11t2.5 14q0 16 -31 96.5t-72 177.5t-42 100l-450 2q-26 -58 -76.5 -195.5t-50.5 -162.5 q0 -22 14 -37.5t43.5 -24.5t48.5 -13.5t57 -8.5t41 -4q1 -19 1 -58q0 -9 -2 -27q-58 0 -174.5 10t-174.5 10q-8 0 -26.5 -4t-21.5 -4q-80 -14 -188 -14z" />
+<glyph unicode="&#xf032;" horiz-adv-x="1408" d="M555 15q74 -32 140 -32q376 0 376 335q0 114 -41 180q-27 44 -61.5 74t-67.5 46.5t-80.5 25t-84 10.5t-94.5 2q-73 0 -101 -10q0 -53 -0.5 -159t-0.5 -158q0 -8 -1 -67.5t-0.5 -96.5t4.5 -83.5t12 -66.5zM541 761q42 -7 109 -7q82 0 143 13t110 44.5t74.5 89.5t25.5 142 q0 70 -29 122.5t-79 82t-108 43.5t-124 14q-50 0 -130 -13q0 -50 4 -151t4 -152q0 -27 -0.5 -80t-0.5 -79q0 -46 1 -69zM0 -128l2 94q15 4 85 16t106 27q7 12 12.5 27t8.5 33.5t5.5 32.5t3 37.5t0.5 34v35.5v30q0 982 -22 1025q-4 8 -22 14.5t-44.5 11t-49.5 7t-48.5 4.5 t-30.5 3l-4 83q98 2 340 11.5t373 9.5q23 0 68.5 -0.5t67.5 -0.5q70 0 136.5 -13t128.5 -42t108 -71t74 -104.5t28 -137.5q0 -52 -16.5 -95.5t-39 -72t-64.5 -57.5t-73 -45t-84 -40q154 -35 256.5 -134t102.5 -248q0 -100 -35 -179.5t-93.5 -130.5t-138 -85.5t-163.5 -48.5 t-176 -14q-44 0 -132 3t-132 3q-106 0 -307 -11t-231 -12z" />
+<glyph unicode="&#xf033;" horiz-adv-x="1024" d="M0 -126l17 85q6 2 81.5 21.5t111.5 37.5q28 35 41 101q1 7 62 289t114 543.5t52 296.5v25q-24 13 -54.5 18.5t-69.5 8t-58 5.5l19 103q33 -2 120 -6.5t149.5 -7t120.5 -2.5q48 0 98.5 2.5t121 7t98.5 6.5q-5 -39 -19 -89q-30 -10 -101.5 -28.5t-108.5 -33.5 q-8 -19 -14 -42.5t-9 -40t-7.5 -45.5t-6.5 -42q-27 -148 -87.5 -419.5t-77.5 -355.5q-2 -9 -13 -58t-20 -90t-16 -83.5t-6 -57.5l1 -18q17 -4 185 -31q-3 -44 -16 -99q-11 0 -32.5 -1.5t-32.5 -1.5q-29 0 -87 10t-86 10q-138 2 -206 2q-51 0 -143 -9t-121 -11z" />
+<glyph unicode="&#xf034;" horiz-adv-x="1792" d="M1744 128q33 0 42 -18.5t-11 -44.5l-126 -162q-20 -26 -49 -26t-49 26l-126 162q-20 26 -11 44.5t42 18.5h80v1024h-80q-33 0 -42 18.5t11 44.5l126 162q20 26 49 26t49 -26l126 -162q20 -26 11 -44.5t-42 -18.5h-80v-1024h80zM81 1407l54 -27q12 -5 211 -5q44 0 132 2 t132 2q36 0 107.5 -0.5t107.5 -0.5h293q6 0 21 -0.5t20.5 0t16 3t17.5 9t15 17.5l42 1q4 0 14 -0.5t14 -0.5q2 -112 2 -336q0 -80 -5 -109q-39 -14 -68 -18q-25 44 -54 128q-3 9 -11 48t-14.5 73.5t-7.5 35.5q-6 8 -12 12.5t-15.5 6t-13 2.5t-18 0.5t-16.5 -0.5 q-17 0 -66.5 0.5t-74.5 0.5t-64 -2t-71 -6q-9 -81 -8 -136q0 -94 2 -388t2 -455q0 -16 -2.5 -71.5t0 -91.5t12.5 -69q40 -21 124 -42.5t120 -37.5q5 -40 5 -50q0 -14 -3 -29l-34 -1q-76 -2 -218 8t-207 10q-50 0 -151 -9t-152 -9q-3 51 -3 52v9q17 27 61.5 43t98.5 29t78 27 q19 42 19 383q0 101 -3 303t-3 303v117q0 2 0.5 15.5t0.5 25t-1 25.5t-3 24t-5 14q-11 12 -162 12q-33 0 -93 -12t-80 -26q-19 -13 -34 -72.5t-31.5 -111t-42.5 -53.5q-42 26 -56 44v383z" />
+<glyph unicode="&#xf035;" d="M81 1407l54 -27q12 -5 211 -5q44 0 132 2t132 2q70 0 246.5 1t304.5 0.5t247 -4.5q33 -1 56 31l42 1q4 0 14 -0.5t14 -0.5q2 -112 2 -336q0 -80 -5 -109q-39 -14 -68 -18q-25 44 -54 128q-3 9 -11 47.5t-15 73.5t-7 36q-10 13 -27 19q-5 2 -66 2q-30 0 -93 1t-103 1 t-94 -2t-96 -7q-9 -81 -8 -136l1 -152v52q0 -55 1 -154t1.5 -180t0.5 -153q0 -16 -2.5 -71.5t0 -91.5t12.5 -69q40 -21 124 -42.5t120 -37.5q5 -40 5 -50q0 -14 -3 -29l-34 -1q-76 -2 -218 8t-207 10q-50 0 -151 -9t-152 -9q-3 51 -3 52v9q17 27 61.5 43t98.5 29t78 27 q7 16 11.5 74t6 145.5t1.5 155t-0.5 153.5t-0.5 89q0 7 -2.5 21.5t-2.5 22.5q0 7 0.5 44t1 73t0 76.5t-3 67.5t-6.5 32q-11 12 -162 12q-41 0 -163 -13.5t-138 -24.5q-19 -12 -34 -71.5t-31.5 -111.5t-42.5 -54q-42 26 -56 44v383zM1310 125q12 0 42 -19.5t57.5 -41.5 t59.5 -49t36 -30q26 -21 26 -49t-26 -49q-4 -3 -36 -30t-59.5 -49t-57.5 -41.5t-42 -19.5q-13 0 -20.5 10.5t-10 28.5t-2.5 33.5t1.5 33t1.5 19.5h-1024q0 -2 1.5 -19.5t1.5 -33t-2.5 -33.5t-10 -28.5t-20.5 -10.5q-12 0 -42 19.5t-57.5 41.5t-59.5 49t-36 30q-26 21 -26 49 t26 49q4 3 36 30t59.5 49t57.5 41.5t42 19.5q13 0 20.5 -10.5t10 -28.5t2.5 -33.5t-1.5 -33t-1.5 -19.5h1024q0 2 -1.5 19.5t-1.5 33t2.5 33.5t10 28.5t20.5 10.5z" />
+<glyph unicode="&#xf036;" horiz-adv-x="1792" d="M1792 192v-128q0 -26 -19 -45t-45 -19h-1664q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h1664q26 0 45 -19t19 -45zM1408 576v-128q0 -26 -19 -45t-45 -19h-1280q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h1280q26 0 45 -19t19 -45zM1664 960v-128q0 -26 -19 -45 t-45 -19h-1536q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h1536q26 0 45 -19t19 -45zM1280 1344v-128q0 -26 -19 -45t-45 -19h-1152q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h1152q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf037;" horiz-adv-x="1792" d="M1792 192v-128q0 -26 -19 -45t-45 -19h-1664q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h1664q26 0 45 -19t19 -45zM1408 576v-128q0 -26 -19 -45t-45 -19h-896q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h896q26 0 45 -19t19 -45zM1664 960v-128q0 -26 -19 -45t-45 -19 h-1408q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h1408q26 0 45 -19t19 -45zM1280 1344v-128q0 -26 -19 -45t-45 -19h-640q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h640q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf038;" horiz-adv-x="1792" d="M1792 192v-128q0 -26 -19 -45t-45 -19h-1664q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h1664q26 0 45 -19t19 -45zM1792 576v-128q0 -26 -19 -45t-45 -19h-1280q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h1280q26 0 45 -19t19 -45zM1792 960v-128q0 -26 -19 -45 t-45 -19h-1536q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h1536q26 0 45 -19t19 -45zM1792 1344v-128q0 -26 -19 -45t-45 -19h-1152q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h1152q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf039;" horiz-adv-x="1792" d="M1792 192v-128q0 -26 -19 -45t-45 -19h-1664q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h1664q26 0 45 -19t19 -45zM1792 576v-128q0 -26 -19 -45t-45 -19h-1664q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h1664q26 0 45 -19t19 -45zM1792 960v-128q0 -26 -19 -45 t-45 -19h-1664q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h1664q26 0 45 -19t19 -45zM1792 1344v-128q0 -26 -19 -45t-45 -19h-1664q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h1664q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf03a;" horiz-adv-x="1792" d="M256 224v-192q0 -13 -9.5 -22.5t-22.5 -9.5h-192q-13 0 -22.5 9.5t-9.5 22.5v192q0 13 9.5 22.5t22.5 9.5h192q13 0 22.5 -9.5t9.5 -22.5zM256 608v-192q0 -13 -9.5 -22.5t-22.5 -9.5h-192q-13 0 -22.5 9.5t-9.5 22.5v192q0 13 9.5 22.5t22.5 9.5h192q13 0 22.5 -9.5 t9.5 -22.5zM256 992v-192q0 -13 -9.5 -22.5t-22.5 -9.5h-192q-13 0 -22.5 9.5t-9.5 22.5v192q0 13 9.5 22.5t22.5 9.5h192q13 0 22.5 -9.5t9.5 -22.5zM1792 224v-192q0 -13 -9.5 -22.5t-22.5 -9.5h-1344q-13 0 -22.5 9.5t-9.5 22.5v192q0 13 9.5 22.5t22.5 9.5h1344 q13 0 22.5 -9.5t9.5 -22.5zM256 1376v-192q0 -13 -9.5 -22.5t-22.5 -9.5h-192q-13 0 -22.5 9.5t-9.5 22.5v192q0 13 9.5 22.5t22.5 9.5h192q13 0 22.5 -9.5t9.5 -22.5zM1792 608v-192q0 -13 -9.5 -22.5t-22.5 -9.5h-1344q-13 0 -22.5 9.5t-9.5 22.5v192q0 13 9.5 22.5 t22.5 9.5h1344q13 0 22.5 -9.5t9.5 -22.5zM1792 992v-192q0 -13 -9.5 -22.5t-22.5 -9.5h-1344q-13 0 -22.5 9.5t-9.5 22.5v192q0 13 9.5 22.5t22.5 9.5h1344q13 0 22.5 -9.5t9.5 -22.5zM1792 1376v-192q0 -13 -9.5 -22.5t-22.5 -9.5h-1344q-13 0 -22.5 9.5t-9.5 22.5v192 q0 13 9.5 22.5t22.5 9.5h1344q13 0 22.5 -9.5t9.5 -22.5z" />
+<glyph unicode="&#xf03b;" horiz-adv-x="1792" d="M384 992v-576q0 -13 -9.5 -22.5t-22.5 -9.5q-14 0 -23 9l-288 288q-9 9 -9 23t9 23l288 288q9 9 23 9q13 0 22.5 -9.5t9.5 -22.5zM1792 224v-192q0 -13 -9.5 -22.5t-22.5 -9.5h-1728q-13 0 -22.5 9.5t-9.5 22.5v192q0 13 9.5 22.5t22.5 9.5h1728q13 0 22.5 -9.5 t9.5 -22.5zM1792 608v-192q0 -13 -9.5 -22.5t-22.5 -9.5h-1088q-13 0 -22.5 9.5t-9.5 22.5v192q0 13 9.5 22.5t22.5 9.5h1088q13 0 22.5 -9.5t9.5 -22.5zM1792 992v-192q0 -13 -9.5 -22.5t-22.5 -9.5h-1088q-13 0 -22.5 9.5t-9.5 22.5v192q0 13 9.5 22.5t22.5 9.5h1088 q13 0 22.5 -9.5t9.5 -22.5zM1792 1376v-192q0 -13 -9.5 -22.5t-22.5 -9.5h-1728q-13 0 -22.5 9.5t-9.5 22.5v192q0 13 9.5 22.5t22.5 9.5h1728q13 0 22.5 -9.5t9.5 -22.5z" />
+<glyph unicode="&#xf03c;" horiz-adv-x="1792" d="M352 704q0 -14 -9 -23l-288 -288q-9 -9 -23 -9q-13 0 -22.5 9.5t-9.5 22.5v576q0 13 9.5 22.5t22.5 9.5q14 0 23 -9l288 -288q9 -9 9 -23zM1792 224v-192q0 -13 -9.5 -22.5t-22.5 -9.5h-1728q-13 0 -22.5 9.5t-9.5 22.5v192q0 13 9.5 22.5t22.5 9.5h1728q13 0 22.5 -9.5 t9.5 -22.5zM1792 608v-192q0 -13 -9.5 -22.5t-22.5 -9.5h-1088q-13 0 -22.5 9.5t-9.5 22.5v192q0 13 9.5 22.5t22.5 9.5h1088q13 0 22.5 -9.5t9.5 -22.5zM1792 992v-192q0 -13 -9.5 -22.5t-22.5 -9.5h-1088q-13 0 -22.5 9.5t-9.5 22.5v192q0 13 9.5 22.5t22.5 9.5h1088 q13 0 22.5 -9.5t9.5 -22.5zM1792 1376v-192q0 -13 -9.5 -22.5t-22.5 -9.5h-1728q-13 0 -22.5 9.5t-9.5 22.5v192q0 13 9.5 22.5t22.5 9.5h1728q13 0 22.5 -9.5t9.5 -22.5z" />
+<glyph unicode="&#xf03d;" horiz-adv-x="1792" d="M1792 1184v-1088q0 -42 -39 -59q-13 -5 -25 -5q-27 0 -45 19l-403 403v-166q0 -119 -84.5 -203.5t-203.5 -84.5h-704q-119 0 -203.5 84.5t-84.5 203.5v704q0 119 84.5 203.5t203.5 84.5h704q119 0 203.5 -84.5t84.5 -203.5v-165l403 402q18 19 45 19q12 0 25 -5 q39 -17 39 -59z" />
+<glyph unicode="&#xf03e;" horiz-adv-x="1920" d="M640 960q0 -80 -56 -136t-136 -56t-136 56t-56 136t56 136t136 56t136 -56t56 -136zM1664 576v-448h-1408v192l320 320l160 -160l512 512zM1760 1280h-1600q-13 0 -22.5 -9.5t-9.5 -22.5v-1216q0 -13 9.5 -22.5t22.5 -9.5h1600q13 0 22.5 9.5t9.5 22.5v1216 q0 13 -9.5 22.5t-22.5 9.5zM1920 1248v-1216q0 -66 -47 -113t-113 -47h-1600q-66 0 -113 47t-47 113v1216q0 66 47 113t113 47h1600q66 0 113 -47t47 -113z" />
+<glyph unicode="&#xf040;" d="M363 0l91 91l-235 235l-91 -91v-107h128v-128h107zM886 928q0 22 -22 22q-10 0 -17 -7l-542 -542q-7 -7 -7 -17q0 -22 22 -22q10 0 17 7l542 542q7 7 7 17zM832 1120l416 -416l-832 -832h-416v416zM1515 1024q0 -53 -37 -90l-166 -166l-416 416l166 165q36 38 90 38 q53 0 91 -38l235 -234q37 -39 37 -91z" />
+<glyph unicode="&#xf041;" horiz-adv-x="1024" d="M768 896q0 106 -75 181t-181 75t-181 -75t-75 -181t75 -181t181 -75t181 75t75 181zM1024 896q0 -109 -33 -179l-364 -774q-16 -33 -47.5 -52t-67.5 -19t-67.5 19t-46.5 52l-365 774q-33 70 -33 179q0 212 150 362t362 150t362 -150t150 -362z" />
+<glyph unicode="&#xf042;" d="M768 96v1088q-148 0 -273 -73t-198 -198t-73 -273t73 -273t198 -198t273 -73zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf043;" horiz-adv-x="1024" d="M512 384q0 36 -20 69q-1 1 -15.5 22.5t-25.5 38t-25 44t-21 50.5q-4 16 -21 16t-21 -16q-7 -23 -21 -50.5t-25 -44t-25.5 -38t-15.5 -22.5q-20 -33 -20 -69q0 -53 37.5 -90.5t90.5 -37.5t90.5 37.5t37.5 90.5zM1024 512q0 -212 -150 -362t-362 -150t-362 150t-150 362 q0 145 81 275q6 9 62.5 90.5t101 151t99.5 178t83 201.5q9 30 34 47t51 17t51.5 -17t33.5 -47q28 -93 83 -201.5t99.5 -178t101 -151t62.5 -90.5q81 -127 81 -275z" />
+<glyph unicode="&#xf044;" horiz-adv-x="1792" d="M888 352l116 116l-152 152l-116 -116v-56h96v-96h56zM1328 1072q-16 16 -33 -1l-350 -350q-17 -17 -1 -33t33 1l350 350q17 17 1 33zM1408 478v-190q0 -119 -84.5 -203.5t-203.5 -84.5h-832q-119 0 -203.5 84.5t-84.5 203.5v832q0 119 84.5 203.5t203.5 84.5h832 q63 0 117 -25q15 -7 18 -23q3 -17 -9 -29l-49 -49q-14 -14 -32 -8q-23 6 -45 6h-832q-66 0 -113 -47t-47 -113v-832q0 -66 47 -113t113 -47h832q66 0 113 47t47 113v126q0 13 9 22l64 64q15 15 35 7t20 -29zM1312 1216l288 -288l-672 -672h-288v288zM1756 1084l-92 -92 l-288 288l92 92q28 28 68 28t68 -28l152 -152q28 -28 28 -68t-28 -68z" />
+<glyph unicode="&#xf045;" horiz-adv-x="1664" d="M1408 547v-259q0 -119 -84.5 -203.5t-203.5 -84.5h-832q-119 0 -203.5 84.5t-84.5 203.5v832q0 119 84.5 203.5t203.5 84.5h255v0q13 0 22.5 -9.5t9.5 -22.5q0 -27 -26 -32q-77 -26 -133 -60q-10 -4 -16 -4h-112q-66 0 -113 -47t-47 -113v-832q0 -66 47 -113t113 -47h832 q66 0 113 47t47 113v214q0 19 18 29q28 13 54 37q16 16 35 8q21 -9 21 -29zM1645 1043l-384 -384q-18 -19 -45 -19q-12 0 -25 5q-39 17 -39 59v192h-160q-323 0 -438 -131q-119 -137 -74 -473q3 -23 -20 -34q-8 -2 -12 -2q-16 0 -26 13q-10 14 -21 31t-39.5 68.5t-49.5 99.5 t-38.5 114t-17.5 122q0 49 3.5 91t14 90t28 88t47 81.5t68.5 74t94.5 61.5t124.5 48.5t159.5 30.5t196.5 11h160v192q0 42 39 59q13 5 25 5q26 0 45 -19l384 -384q19 -19 19 -45t-19 -45z" />
+<glyph unicode="&#xf046;" horiz-adv-x="1664" d="M1408 606v-318q0 -119 -84.5 -203.5t-203.5 -84.5h-832q-119 0 -203.5 84.5t-84.5 203.5v832q0 119 84.5 203.5t203.5 84.5h832q63 0 117 -25q15 -7 18 -23q3 -17 -9 -29l-49 -49q-10 -10 -23 -10q-3 0 -9 2q-23 6 -45 6h-832q-66 0 -113 -47t-47 -113v-832 q0 -66 47 -113t113 -47h832q66 0 113 47t47 113v254q0 13 9 22l64 64q10 10 23 10q6 0 12 -3q20 -8 20 -29zM1639 1095l-814 -814q-24 -24 -57 -24t-57 24l-430 430q-24 24 -24 57t24 57l110 110q24 24 57 24t57 -24l263 -263l647 647q24 24 57 24t57 -24l110 -110 q24 -24 24 -57t-24 -57z" />
+<glyph unicode="&#xf047;" horiz-adv-x="1792" d="M1792 640q0 -26 -19 -45l-256 -256q-19 -19 -45 -19t-45 19t-19 45v128h-384v-384h128q26 0 45 -19t19 -45t-19 -45l-256 -256q-19 -19 -45 -19t-45 19l-256 256q-19 19 -19 45t19 45t45 19h128v384h-384v-128q0 -26 -19 -45t-45 -19t-45 19l-256 256q-19 19 -19 45 t19 45l256 256q19 19 45 19t45 -19t19 -45v-128h384v384h-128q-26 0 -45 19t-19 45t19 45l256 256q19 19 45 19t45 -19l256 -256q19 -19 19 -45t-19 -45t-45 -19h-128v-384h384v128q0 26 19 45t45 19t45 -19l256 -256q19 -19 19 -45z" />
+<glyph unicode="&#xf048;" horiz-adv-x="1024" d="M979 1395q19 19 32 13t13 -32v-1472q0 -26 -13 -32t-32 13l-710 710q-9 9 -13 19v-678q0 -26 -19 -45t-45 -19h-128q-26 0 -45 19t-19 45v1408q0 26 19 45t45 19h128q26 0 45 -19t19 -45v-678q4 11 13 19z" />
+<glyph unicode="&#xf049;" horiz-adv-x="1792" d="M1747 1395q19 19 32 13t13 -32v-1472q0 -26 -13 -32t-32 13l-710 710q-9 9 -13 19v-710q0 -26 -13 -32t-32 13l-710 710q-9 9 -13 19v-678q0 -26 -19 -45t-45 -19h-128q-26 0 -45 19t-19 45v1408q0 26 19 45t45 19h128q26 0 45 -19t19 -45v-678q4 11 13 19l710 710 q19 19 32 13t13 -32v-710q4 11 13 19z" />
+<glyph unicode="&#xf04a;" horiz-adv-x="1664" d="M1619 1395q19 19 32 13t13 -32v-1472q0 -26 -13 -32t-32 13l-710 710q-8 9 -13 19v-710q0 -26 -13 -32t-32 13l-710 710q-19 19 -19 45t19 45l710 710q19 19 32 13t13 -32v-710q5 11 13 19z" />
+<glyph unicode="&#xf04b;" horiz-adv-x="1408" d="M1384 609l-1328 -738q-23 -13 -39.5 -3t-16.5 36v1472q0 26 16.5 36t39.5 -3l1328 -738q23 -13 23 -31t-23 -31z" />
+<glyph unicode="&#xf04c;" d="M1536 1344v-1408q0 -26 -19 -45t-45 -19h-512q-26 0 -45 19t-19 45v1408q0 26 19 45t45 19h512q26 0 45 -19t19 -45zM640 1344v-1408q0 -26 -19 -45t-45 -19h-512q-26 0 -45 19t-19 45v1408q0 26 19 45t45 19h512q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf04d;" d="M1536 1344v-1408q0 -26 -19 -45t-45 -19h-1408q-26 0 -45 19t-19 45v1408q0 26 19 45t45 19h1408q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf04e;" horiz-adv-x="1664" d="M45 -115q-19 -19 -32 -13t-13 32v1472q0 26 13 32t32 -13l710 -710q8 -8 13 -19v710q0 26 13 32t32 -13l710 -710q19 -19 19 -45t-19 -45l-710 -710q-19 -19 -32 -13t-13 32v710q-5 -10 -13 -19z" />
+<glyph unicode="&#xf050;" horiz-adv-x="1792" d="M45 -115q-19 -19 -32 -13t-13 32v1472q0 26 13 32t32 -13l710 -710q8 -8 13 -19v710q0 26 13 32t32 -13l710 -710q8 -8 13 -19v678q0 26 19 45t45 19h128q26 0 45 -19t19 -45v-1408q0 -26 -19 -45t-45 -19h-128q-26 0 -45 19t-19 45v678q-5 -10 -13 -19l-710 -710 q-19 -19 -32 -13t-13 32v710q-5 -10 -13 -19z" />
+<glyph unicode="&#xf051;" horiz-adv-x="1024" d="M45 -115q-19 -19 -32 -13t-13 32v1472q0 26 13 32t32 -13l710 -710q8 -8 13 -19v678q0 26 19 45t45 19h128q26 0 45 -19t19 -45v-1408q0 -26 -19 -45t-45 -19h-128q-26 0 -45 19t-19 45v678q-5 -10 -13 -19z" />
+<glyph unicode="&#xf052;" horiz-adv-x="1538" d="M14 557l710 710q19 19 45 19t45 -19l710 -710q19 -19 13 -32t-32 -13h-1472q-26 0 -32 13t13 32zM1473 0h-1408q-26 0 -45 19t-19 45v256q0 26 19 45t45 19h1408q26 0 45 -19t19 -45v-256q0 -26 -19 -45t-45 -19z" />
+<glyph unicode="&#xf053;" horiz-adv-x="1280" d="M1171 1235l-531 -531l531 -531q19 -19 19 -45t-19 -45l-166 -166q-19 -19 -45 -19t-45 19l-742 742q-19 19 -19 45t19 45l742 742q19 19 45 19t45 -19l166 -166q19 -19 19 -45t-19 -45z" />
+<glyph unicode="&#xf054;" horiz-adv-x="1280" d="M1107 659l-742 -742q-19 -19 -45 -19t-45 19l-166 166q-19 19 -19 45t19 45l531 531l-531 531q-19 19 -19 45t19 45l166 166q19 19 45 19t45 -19l742 -742q19 -19 19 -45t-19 -45z" />
+<glyph unicode="&#xf055;" d="M1216 576v128q0 26 -19 45t-45 19h-256v256q0 26 -19 45t-45 19h-128q-26 0 -45 -19t-19 -45v-256h-256q-26 0 -45 -19t-19 -45v-128q0 -26 19 -45t45 -19h256v-256q0 -26 19 -45t45 -19h128q26 0 45 19t19 45v256h256q26 0 45 19t19 45zM1536 640q0 -209 -103 -385.5 t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf056;" d="M1216 576v128q0 26 -19 45t-45 19h-768q-26 0 -45 -19t-19 -45v-128q0 -26 19 -45t45 -19h768q26 0 45 19t19 45zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5 t103 -385.5z" />
+<glyph unicode="&#xf057;" d="M1149 414q0 26 -19 45l-181 181l181 181q19 19 19 45q0 27 -19 46l-90 90q-19 19 -46 19q-26 0 -45 -19l-181 -181l-181 181q-19 19 -45 19q-27 0 -46 -19l-90 -90q-19 -19 -19 -46q0 -26 19 -45l181 -181l-181 -181q-19 -19 -19 -45q0 -27 19 -46l90 -90q19 -19 46 -19 q26 0 45 19l181 181l181 -181q19 -19 45 -19q27 0 46 19l90 90q19 19 19 46zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf058;" d="M1284 802q0 28 -18 46l-91 90q-19 19 -45 19t-45 -19l-408 -407l-226 226q-19 19 -45 19t-45 -19l-91 -90q-18 -18 -18 -46q0 -27 18 -45l362 -362q19 -19 45 -19q27 0 46 19l543 543q18 18 18 45zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103 t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf059;" d="M896 160v192q0 14 -9 23t-23 9h-192q-14 0 -23 -9t-9 -23v-192q0 -14 9 -23t23 -9h192q14 0 23 9t9 23zM1152 832q0 88 -55.5 163t-138.5 116t-170 41q-243 0 -371 -213q-15 -24 8 -42l132 -100q7 -6 19 -6q16 0 25 12q53 68 86 92q34 24 86 24q48 0 85.5 -26t37.5 -59 q0 -38 -20 -61t-68 -45q-63 -28 -115.5 -86.5t-52.5 -125.5v-36q0 -14 9 -23t23 -9h192q14 0 23 9t9 23q0 19 21.5 49.5t54.5 49.5q32 18 49 28.5t46 35t44.5 48t28 60.5t12.5 81zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5 t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf05a;" d="M1024 160v160q0 14 -9 23t-23 9h-96v512q0 14 -9 23t-23 9h-320q-14 0 -23 -9t-9 -23v-160q0 -14 9 -23t23 -9h96v-320h-96q-14 0 -23 -9t-9 -23v-160q0 -14 9 -23t23 -9h448q14 0 23 9t9 23zM896 1056v160q0 14 -9 23t-23 9h-192q-14 0 -23 -9t-9 -23v-160q0 -14 9 -23 t23 -9h192q14 0 23 9t9 23zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf05b;" d="M1197 512h-109q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h109q-32 108 -112.5 188.5t-188.5 112.5v-109q0 -26 -19 -45t-45 -19h-128q-26 0 -45 19t-19 45v109q-108 -32 -188.5 -112.5t-112.5 -188.5h109q26 0 45 -19t19 -45v-128q0 -26 -19 -45t-45 -19h-109 q32 -108 112.5 -188.5t188.5 -112.5v109q0 26 19 45t45 19h128q26 0 45 -19t19 -45v-109q108 32 188.5 112.5t112.5 188.5zM1536 704v-128q0 -26 -19 -45t-45 -19h-143q-37 -161 -154.5 -278.5t-278.5 -154.5v-143q0 -26 -19 -45t-45 -19h-128q-26 0 -45 19t-19 45v143 q-161 37 -278.5 154.5t-154.5 278.5h-143q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h143q37 161 154.5 278.5t278.5 154.5v143q0 26 19 45t45 19h128q26 0 45 -19t19 -45v-143q161 -37 278.5 -154.5t154.5 -278.5h143q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf05c;" d="M1097 457l-146 -146q-10 -10 -23 -10t-23 10l-137 137l-137 -137q-10 -10 -23 -10t-23 10l-146 146q-10 10 -10 23t10 23l137 137l-137 137q-10 10 -10 23t10 23l146 146q10 10 23 10t23 -10l137 -137l137 137q10 10 23 10t23 -10l146 -146q10 -10 10 -23t-10 -23 l-137 -137l137 -137q10 -10 10 -23t-10 -23zM1312 640q0 148 -73 273t-198 198t-273 73t-273 -73t-198 -198t-73 -273t73 -273t198 -198t273 -73t273 73t198 198t73 273zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5 t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf05d;" d="M1171 723l-422 -422q-19 -19 -45 -19t-45 19l-294 294q-19 19 -19 45t19 45l102 102q19 19 45 19t45 -19l147 -147l275 275q19 19 45 19t45 -19l102 -102q19 -19 19 -45t-19 -45zM1312 640q0 148 -73 273t-198 198t-273 73t-273 -73t-198 -198t-73 -273t73 -273t198 -198 t273 -73t273 73t198 198t73 273zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf05e;" d="M1312 643q0 161 -87 295l-754 -753q137 -89 297 -89q111 0 211.5 43.5t173.5 116.5t116 174.5t43 212.5zM313 344l755 754q-135 91 -300 91q-148 0 -273 -73t-198 -199t-73 -274q0 -162 89 -299zM1536 643q0 -157 -61 -300t-163.5 -246t-245 -164t-298.5 -61t-298.5 61 t-245 164t-163.5 246t-61 300t61 299.5t163.5 245.5t245 164t298.5 61t298.5 -61t245 -164t163.5 -245.5t61 -299.5z" />
+<glyph unicode="&#xf060;" d="M1536 640v-128q0 -53 -32.5 -90.5t-84.5 -37.5h-704l293 -294q38 -36 38 -90t-38 -90l-75 -76q-37 -37 -90 -37q-52 0 -91 37l-651 652q-37 37 -37 90q0 52 37 91l651 650q38 38 91 38q52 0 90 -38l75 -74q38 -38 38 -91t-38 -91l-293 -293h704q52 0 84.5 -37.5 t32.5 -90.5z" />
+<glyph unicode="&#xf061;" d="M1472 576q0 -54 -37 -91l-651 -651q-39 -37 -91 -37q-51 0 -90 37l-75 75q-38 38 -38 91t38 91l293 293h-704q-52 0 -84.5 37.5t-32.5 90.5v128q0 53 32.5 90.5t84.5 37.5h704l-293 294q-38 36 -38 90t38 90l75 75q38 38 90 38q53 0 91 -38l651 -651q37 -35 37 -90z" />
+<glyph unicode="&#xf062;" horiz-adv-x="1664" d="M1611 565q0 -51 -37 -90l-75 -75q-38 -38 -91 -38q-54 0 -90 38l-294 293v-704q0 -52 -37.5 -84.5t-90.5 -32.5h-128q-53 0 -90.5 32.5t-37.5 84.5v704l-294 -293q-36 -38 -90 -38t-90 38l-75 75q-38 38 -38 90q0 53 38 91l651 651q35 37 90 37q54 0 91 -37l651 -651 q37 -39 37 -91z" />
+<glyph unicode="&#xf063;" horiz-adv-x="1664" d="M1611 704q0 -53 -37 -90l-651 -652q-39 -37 -91 -37q-53 0 -90 37l-651 652q-38 36 -38 90q0 53 38 91l74 75q39 37 91 37q53 0 90 -37l294 -294v704q0 52 38 90t90 38h128q52 0 90 -38t38 -90v-704l294 294q37 37 90 37q52 0 91 -37l75 -75q37 -39 37 -91z" />
+<glyph unicode="&#xf064;" horiz-adv-x="1792" d="M1792 896q0 -26 -19 -45l-512 -512q-19 -19 -45 -19t-45 19t-19 45v256h-224q-98 0 -175.5 -6t-154 -21.5t-133 -42.5t-105.5 -69.5t-80 -101t-48.5 -138.5t-17.5 -181q0 -55 5 -123q0 -6 2.5 -23.5t2.5 -26.5q0 -15 -8.5 -25t-23.5 -10q-16 0 -28 17q-7 9 -13 22 t-13.5 30t-10.5 24q-127 285 -127 451q0 199 53 333q162 403 875 403h224v256q0 26 19 45t45 19t45 -19l512 -512q19 -19 19 -45z" />
+<glyph unicode="&#xf065;" d="M755 480q0 -13 -10 -23l-332 -332l144 -144q19 -19 19 -45t-19 -45t-45 -19h-448q-26 0 -45 19t-19 45v448q0 26 19 45t45 19t45 -19l144 -144l332 332q10 10 23 10t23 -10l114 -114q10 -10 10 -23zM1536 1344v-448q0 -26 -19 -45t-45 -19t-45 19l-144 144l-332 -332 q-10 -10 -23 -10t-23 10l-114 114q-10 10 -10 23t10 23l332 332l-144 144q-19 19 -19 45t19 45t45 19h448q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf066;" d="M768 576v-448q0 -26 -19 -45t-45 -19t-45 19l-144 144l-332 -332q-10 -10 -23 -10t-23 10l-114 114q-10 10 -10 23t10 23l332 332l-144 144q-19 19 -19 45t19 45t45 19h448q26 0 45 -19t19 -45zM1523 1248q0 -13 -10 -23l-332 -332l144 -144q19 -19 19 -45t-19 -45 t-45 -19h-448q-26 0 -45 19t-19 45v448q0 26 19 45t45 19t45 -19l144 -144l332 332q10 10 23 10t23 -10l114 -114q10 -10 10 -23z" />
+<glyph unicode="&#xf067;" horiz-adv-x="1408" d="M1408 800v-192q0 -40 -28 -68t-68 -28h-416v-416q0 -40 -28 -68t-68 -28h-192q-40 0 -68 28t-28 68v416h-416q-40 0 -68 28t-28 68v192q0 40 28 68t68 28h416v416q0 40 28 68t68 28h192q40 0 68 -28t28 -68v-416h416q40 0 68 -28t28 -68z" />
+<glyph unicode="&#xf068;" horiz-adv-x="1408" d="M1408 800v-192q0 -40 -28 -68t-68 -28h-1216q-40 0 -68 28t-28 68v192q0 40 28 68t68 28h1216q40 0 68 -28t28 -68z" />
+<glyph unicode="&#xf069;" horiz-adv-x="1664" d="M1482 486q46 -26 59.5 -77.5t-12.5 -97.5l-64 -110q-26 -46 -77.5 -59.5t-97.5 12.5l-266 153v-307q0 -52 -38 -90t-90 -38h-128q-52 0 -90 38t-38 90v307l-266 -153q-46 -26 -97.5 -12.5t-77.5 59.5l-64 110q-26 46 -12.5 97.5t59.5 77.5l266 154l-266 154 q-46 26 -59.5 77.5t12.5 97.5l64 110q26 46 77.5 59.5t97.5 -12.5l266 -153v307q0 52 38 90t90 38h128q52 0 90 -38t38 -90v-307l266 153q46 26 97.5 12.5t77.5 -59.5l64 -110q26 -46 12.5 -97.5t-59.5 -77.5l-266 -154z" />
+<glyph unicode="&#xf06a;" d="M768 1408q209 0 385.5 -103t279.5 -279.5t103 -385.5t-103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103zM896 161v190q0 14 -9 23.5t-22 9.5h-192q-13 0 -23 -10t-10 -23v-190q0 -13 10 -23t23 -10h192 q13 0 22 9.5t9 23.5zM894 505l18 621q0 12 -10 18q-10 8 -24 8h-220q-14 0 -24 -8q-10 -6 -10 -18l17 -621q0 -10 10 -17.5t24 -7.5h185q14 0 23.5 7.5t10.5 17.5z" />
+<glyph unicode="&#xf06b;" d="M928 180v56v468v192h-320v-192v-468v-56q0 -25 18 -38.5t46 -13.5h192q28 0 46 13.5t18 38.5zM472 1024h195l-126 161q-26 31 -69 31q-40 0 -68 -28t-28 -68t28 -68t68 -28zM1160 1120q0 40 -28 68t-68 28q-43 0 -69 -31l-125 -161h194q40 0 68 28t28 68zM1536 864v-320 q0 -14 -9 -23t-23 -9h-96v-416q0 -40 -28 -68t-68 -28h-1088q-40 0 -68 28t-28 68v416h-96q-14 0 -23 9t-9 23v320q0 14 9 23t23 9h440q-93 0 -158.5 65.5t-65.5 158.5t65.5 158.5t158.5 65.5q107 0 168 -77l128 -165l128 165q61 77 168 77q93 0 158.5 -65.5t65.5 -158.5 t-65.5 -158.5t-158.5 -65.5h440q14 0 23 -9t9 -23z" />
+<glyph unicode="&#xf06c;" horiz-adv-x="1792" d="M1280 832q0 26 -19 45t-45 19q-172 0 -318 -49.5t-259.5 -134t-235.5 -219.5q-19 -21 -19 -45q0 -26 19 -45t45 -19q24 0 45 19q27 24 74 71t67 66q137 124 268.5 176t313.5 52q26 0 45 19t19 45zM1792 1030q0 -95 -20 -193q-46 -224 -184.5 -383t-357.5 -268 q-214 -108 -438 -108q-148 0 -286 47q-15 5 -88 42t-96 37q-16 0 -39.5 -32t-45 -70t-52.5 -70t-60 -32q-30 0 -51 11t-31 24t-27 42q-2 4 -6 11t-5.5 10t-3 9.5t-1.5 13.5q0 35 31 73.5t68 65.5t68 56t31 48q0 4 -14 38t-16 44q-9 51 -9 104q0 115 43.5 220t119 184.5 t170.5 139t204 95.5q55 18 145 25.5t179.5 9t178.5 6t163.5 24t113.5 56.5l29.5 29.5t29.5 28t27 20t36.5 16t43.5 4.5q39 0 70.5 -46t47.5 -112t24 -124t8 -96z" />
+<glyph unicode="&#xf06d;" horiz-adv-x="1408" d="M1408 -160v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-1344q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h1344q13 0 22.5 -9.5t9.5 -22.5zM1152 896q0 -78 -24.5 -144t-64 -112.5t-87.5 -88t-96 -77.5t-87.5 -72t-64 -81.5t-24.5 -96.5q0 -96 67 -224l-4 1l1 -1 q-90 41 -160 83t-138.5 100t-113.5 122.5t-72.5 150.5t-27.5 184q0 78 24.5 144t64 112.5t87.5 88t96 77.5t87.5 72t64 81.5t24.5 96.5q0 94 -66 224l3 -1l-1 1q90 -41 160 -83t138.5 -100t113.5 -122.5t72.5 -150.5t27.5 -184z" />
+<glyph unicode="&#xf06e;" horiz-adv-x="1792" d="M1664 576q-152 236 -381 353q61 -104 61 -225q0 -185 -131.5 -316.5t-316.5 -131.5t-316.5 131.5t-131.5 316.5q0 121 61 225q-229 -117 -381 -353q133 -205 333.5 -326.5t434.5 -121.5t434.5 121.5t333.5 326.5zM944 960q0 20 -14 34t-34 14q-125 0 -214.5 -89.5 t-89.5 -214.5q0 -20 14 -34t34 -14t34 14t14 34q0 86 61 147t147 61q20 0 34 14t14 34zM1792 576q0 -34 -20 -69q-140 -230 -376.5 -368.5t-499.5 -138.5t-499.5 139t-376.5 368q-20 35 -20 69t20 69q140 229 376.5 368t499.5 139t499.5 -139t376.5 -368q20 -35 20 -69z" />
+<glyph unicode="&#xf070;" horiz-adv-x="1792" d="M555 201l78 141q-87 63 -136 159t-49 203q0 121 61 225q-229 -117 -381 -353q167 -258 427 -375zM944 960q0 20 -14 34t-34 14q-125 0 -214.5 -89.5t-89.5 -214.5q0 -20 14 -34t34 -14t34 14t14 34q0 86 61 147t147 61q20 0 34 14t14 34zM1307 1151q0 -7 -1 -9 q-105 -188 -315 -566t-316 -567l-49 -89q-10 -16 -28 -16q-12 0 -134 70q-16 10 -16 28q0 12 44 87q-143 65 -263.5 173t-208.5 245q-20 31 -20 69t20 69q153 235 380 371t496 136q89 0 180 -17l54 97q10 16 28 16q5 0 18 -6t31 -15.5t33 -18.5t31.5 -18.5t19.5 -11.5 q16 -10 16 -27zM1344 704q0 -139 -79 -253.5t-209 -164.5l280 502q8 -45 8 -84zM1792 576q0 -35 -20 -69q-39 -64 -109 -145q-150 -172 -347.5 -267t-419.5 -95l74 132q212 18 392.5 137t301.5 307q-115 179 -282 294l63 112q95 -64 182.5 -153t144.5 -184q20 -34 20 -69z " />
+<glyph unicode="&#xf071;" horiz-adv-x="1792" d="M1024 161v190q0 14 -9.5 23.5t-22.5 9.5h-192q-13 0 -22.5 -9.5t-9.5 -23.5v-190q0 -14 9.5 -23.5t22.5 -9.5h192q13 0 22.5 9.5t9.5 23.5zM1022 535l18 459q0 12 -10 19q-13 11 -24 11h-220q-11 0 -24 -11q-10 -7 -10 -21l17 -457q0 -10 10 -16.5t24 -6.5h185 q14 0 23.5 6.5t10.5 16.5zM1008 1469l768 -1408q35 -63 -2 -126q-17 -29 -46.5 -46t-63.5 -17h-1536q-34 0 -63.5 17t-46.5 46q-37 63 -2 126l768 1408q17 31 47 49t65 18t65 -18t47 -49z" />
+<glyph unicode="&#xf072;" horiz-adv-x="1408" d="M1376 1376q44 -52 12 -148t-108 -172l-161 -161l160 -696q5 -19 -12 -33l-128 -96q-7 -6 -19 -6q-4 0 -7 1q-15 3 -21 16l-279 508l-259 -259l53 -194q5 -17 -8 -31l-96 -96q-9 -9 -23 -9h-2q-15 2 -24 13l-189 252l-252 189q-11 7 -13 23q-1 13 9 25l96 97q9 9 23 9 q6 0 8 -1l194 -53l259 259l-508 279q-14 8 -17 24q-2 16 9 27l128 128q14 13 30 8l665 -159l160 160q76 76 172 108t148 -12z" />
+<glyph unicode="&#xf073;" horiz-adv-x="1664" d="M128 -128h288v288h-288v-288zM480 -128h320v288h-320v-288zM128 224h288v320h-288v-320zM480 224h320v320h-320v-320zM128 608h288v288h-288v-288zM864 -128h320v288h-320v-288zM480 608h320v288h-320v-288zM1248 -128h288v288h-288v-288zM864 224h320v320h-320v-320z M512 1088v288q0 13 -9.5 22.5t-22.5 9.5h-64q-13 0 -22.5 -9.5t-9.5 -22.5v-288q0 -13 9.5 -22.5t22.5 -9.5h64q13 0 22.5 9.5t9.5 22.5zM1248 224h288v320h-288v-320zM864 608h320v288h-320v-288zM1248 608h288v288h-288v-288zM1280 1088v288q0 13 -9.5 22.5t-22.5 9.5h-64 q-13 0 -22.5 -9.5t-9.5 -22.5v-288q0 -13 9.5 -22.5t22.5 -9.5h64q13 0 22.5 9.5t9.5 22.5zM1664 1152v-1280q0 -52 -38 -90t-90 -38h-1408q-52 0 -90 38t-38 90v1280q0 52 38 90t90 38h128v96q0 66 47 113t113 47h64q66 0 113 -47t47 -113v-96h384v96q0 66 47 113t113 47 h64q66 0 113 -47t47 -113v-96h128q52 0 90 -38t38 -90z" />
+<glyph unicode="&#xf074;" horiz-adv-x="1792" d="M666 1055q-60 -92 -137 -273q-22 45 -37 72.5t-40.5 63.5t-51 56.5t-63 35t-81.5 14.5h-224q-14 0 -23 9t-9 23v192q0 14 9 23t23 9h224q250 0 410 -225zM1792 256q0 -14 -9 -23l-320 -320q-9 -9 -23 -9q-13 0 -22.5 9.5t-9.5 22.5v192q-32 0 -85 -0.5t-81 -1t-73 1 t-71 5t-64 10.5t-63 18.5t-58 28.5t-59 40t-55 53.5t-56 69.5q59 93 136 273q22 -45 37 -72.5t40.5 -63.5t51 -56.5t63 -35t81.5 -14.5h256v192q0 14 9 23t23 9q12 0 24 -10l319 -319q9 -9 9 -23zM1792 1152q0 -14 -9 -23l-320 -320q-9 -9 -23 -9q-13 0 -22.5 9.5t-9.5 22.5 v192h-256q-48 0 -87 -15t-69 -45t-51 -61.5t-45 -77.5q-32 -62 -78 -171q-29 -66 -49.5 -111t-54 -105t-64 -100t-74 -83t-90 -68.5t-106.5 -42t-128 -16.5h-224q-14 0 -23 9t-9 23v192q0 14 9 23t23 9h224q48 0 87 15t69 45t51 61.5t45 77.5q32 62 78 171q29 66 49.5 111 t54 105t64 100t74 83t90 68.5t106.5 42t128 16.5h256v192q0 14 9 23t23 9q12 0 24 -10l319 -319q9 -9 9 -23z" />
+<glyph unicode="&#xf075;" horiz-adv-x="1792" d="M1792 640q0 -174 -120 -321.5t-326 -233t-450 -85.5q-70 0 -145 8q-198 -175 -460 -242q-49 -14 -114 -22q-17 -2 -30.5 9t-17.5 29v1q-3 4 -0.5 12t2 10t4.5 9.5l6 9t7 8.5t8 9q7 8 31 34.5t34.5 38t31 39.5t32.5 51t27 59t26 76q-157 89 -247.5 220t-90.5 281 q0 130 71 248.5t191 204.5t286 136.5t348 50.5q244 0 450 -85.5t326 -233t120 -321.5z" />
+<glyph unicode="&#xf076;" d="M1536 704v-128q0 -201 -98.5 -362t-274 -251.5t-395.5 -90.5t-395.5 90.5t-274 251.5t-98.5 362v128q0 26 19 45t45 19h384q26 0 45 -19t19 -45v-128q0 -52 23.5 -90t53.5 -57t71 -30t64 -13t44 -2t44 2t64 13t71 30t53.5 57t23.5 90v128q0 26 19 45t45 19h384 q26 0 45 -19t19 -45zM512 1344v-384q0 -26 -19 -45t-45 -19h-384q-26 0 -45 19t-19 45v384q0 26 19 45t45 19h384q26 0 45 -19t19 -45zM1536 1344v-384q0 -26 -19 -45t-45 -19h-384q-26 0 -45 19t-19 45v384q0 26 19 45t45 19h384q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf077;" horiz-adv-x="1792" d="M1683 205l-166 -165q-19 -19 -45 -19t-45 19l-531 531l-531 -531q-19 -19 -45 -19t-45 19l-166 165q-19 19 -19 45.5t19 45.5l742 741q19 19 45 19t45 -19l742 -741q19 -19 19 -45.5t-19 -45.5z" />
+<glyph unicode="&#xf078;" horiz-adv-x="1792" d="M1683 728l-742 -741q-19 -19 -45 -19t-45 19l-742 741q-19 19 -19 45.5t19 45.5l166 165q19 19 45 19t45 -19l531 -531l531 531q19 19 45 19t45 -19l166 -165q19 -19 19 -45.5t-19 -45.5z" />
+<glyph unicode="&#xf079;" horiz-adv-x="1920" d="M1280 32q0 -13 -9.5 -22.5t-22.5 -9.5h-960q-8 0 -13.5 2t-9 7t-5.5 8t-3 11.5t-1 11.5v13v11v160v416h-192q-26 0 -45 19t-19 45q0 24 15 41l320 384q19 22 49 22t49 -22l320 -384q15 -17 15 -41q0 -26 -19 -45t-45 -19h-192v-384h576q16 0 25 -11l160 -192q7 -11 7 -21 zM1920 448q0 -24 -15 -41l-320 -384q-20 -23 -49 -23t-49 23l-320 384q-15 17 -15 41q0 26 19 45t45 19h192v384h-576q-16 0 -25 12l-160 192q-7 9 -7 20q0 13 9.5 22.5t22.5 9.5h960q8 0 13.5 -2t9 -7t5.5 -8t3 -11.5t1 -11.5v-13v-11v-160v-416h192q26 0 45 -19t19 -45z " />
+<glyph unicode="&#xf07a;" horiz-adv-x="1664" d="M640 0q0 -53 -37.5 -90.5t-90.5 -37.5t-90.5 37.5t-37.5 90.5t37.5 90.5t90.5 37.5t90.5 -37.5t37.5 -90.5zM1536 0q0 -53 -37.5 -90.5t-90.5 -37.5t-90.5 37.5t-37.5 90.5t37.5 90.5t90.5 37.5t90.5 -37.5t37.5 -90.5zM1664 1088v-512q0 -24 -16 -42.5t-41 -21.5 l-1044 -122q1 -7 4.5 -21.5t6 -26.5t2.5 -22q0 -16 -24 -64h920q26 0 45 -19t19 -45t-19 -45t-45 -19h-1024q-26 0 -45 19t-19 45q0 14 11 39.5t29.5 59.5t20.5 38l-177 823h-204q-26 0 -45 19t-19 45t19 45t45 19h256q16 0 28.5 -6.5t20 -15.5t13 -24.5t7.5 -26.5 t5.5 -29.5t4.5 -25.5h1201q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf07b;" horiz-adv-x="1664" d="M1664 928v-704q0 -92 -66 -158t-158 -66h-1216q-92 0 -158 66t-66 158v960q0 92 66 158t158 66h320q92 0 158 -66t66 -158v-32h672q92 0 158 -66t66 -158z" />
+<glyph unicode="&#xf07c;" horiz-adv-x="1920" d="M1879 584q0 -31 -31 -66l-336 -396q-43 -51 -120.5 -86.5t-143.5 -35.5h-1088q-34 0 -60.5 13t-26.5 43q0 31 31 66l336 396q43 51 120.5 86.5t143.5 35.5h1088q34 0 60.5 -13t26.5 -43zM1536 928v-160h-832q-94 0 -197 -47.5t-164 -119.5l-337 -396l-5 -6q0 4 -0.5 12.5 t-0.5 12.5v960q0 92 66 158t158 66h320q92 0 158 -66t66 -158v-32h544q92 0 158 -66t66 -158z" />
+<glyph unicode="&#xf07d;" horiz-adv-x="768" d="M704 1216q0 -26 -19 -45t-45 -19h-128v-1024h128q26 0 45 -19t19 -45t-19 -45l-256 -256q-19 -19 -45 -19t-45 19l-256 256q-19 19 -19 45t19 45t45 19h128v1024h-128q-26 0 -45 19t-19 45t19 45l256 256q19 19 45 19t45 -19l256 -256q19 -19 19 -45z" />
+<glyph unicode="&#xf07e;" horiz-adv-x="1792" d="M1792 640q0 -26 -19 -45l-256 -256q-19 -19 -45 -19t-45 19t-19 45v128h-1024v-128q0 -26 -19 -45t-45 -19t-45 19l-256 256q-19 19 -19 45t19 45l256 256q19 19 45 19t45 -19t19 -45v-128h1024v128q0 26 19 45t45 19t45 -19l256 -256q19 -19 19 -45z" />
+<glyph unicode="&#xf080;" horiz-adv-x="2048" d="M640 640v-512h-256v512h256zM1024 1152v-1024h-256v1024h256zM2048 0v-128h-2048v1536h128v-1408h1920zM1408 896v-768h-256v768h256zM1792 1280v-1152h-256v1152h256z" />
+<glyph unicode="&#xf081;" d="M1280 926q-56 -25 -121 -34q68 40 93 117q-65 -38 -134 -51q-61 66 -153 66q-87 0 -148.5 -61.5t-61.5 -148.5q0 -29 5 -48q-129 7 -242 65t-192 155q-29 -50 -29 -106q0 -114 91 -175q-47 1 -100 26v-2q0 -75 50 -133.5t123 -72.5q-29 -8 -51 -8q-13 0 -39 4 q21 -63 74.5 -104t121.5 -42q-116 -90 -261 -90q-26 0 -50 3q148 -94 322 -94q112 0 210 35.5t168 95t120.5 137t75 162t24.5 168.5q0 18 -1 27q63 45 105 109zM1536 1120v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5 t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf082;" d="M1536 160q0 -119 -84.5 -203.5t-203.5 -84.5h-192v608h203l30 224h-233v143q0 54 28 83t96 29l132 1v207q-96 9 -180 9q-136 0 -218 -80.5t-82 -225.5v-166h-224v-224h224v-608h-544q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960 q119 0 203.5 -84.5t84.5 -203.5v-960z" />
+<glyph unicode="&#xf083;" horiz-adv-x="1792" d="M928 704q0 14 -9 23t-23 9q-66 0 -113 -47t-47 -113q0 -14 9 -23t23 -9t23 9t9 23q0 40 28 68t68 28q14 0 23 9t9 23zM1152 574q0 -106 -75 -181t-181 -75t-181 75t-75 181t75 181t181 75t181 -75t75 -181zM128 0h1536v128h-1536v-128zM1280 574q0 159 -112.5 271.5 t-271.5 112.5t-271.5 -112.5t-112.5 -271.5t112.5 -271.5t271.5 -112.5t271.5 112.5t112.5 271.5zM256 1216h384v128h-384v-128zM128 1024h1536v118v138h-828l-64 -128h-644v-128zM1792 1280v-1280q0 -53 -37.5 -90.5t-90.5 -37.5h-1536q-53 0 -90.5 37.5t-37.5 90.5v1280 q0 53 37.5 90.5t90.5 37.5h1536q53 0 90.5 -37.5t37.5 -90.5z" />
+<glyph unicode="&#xf084;" horiz-adv-x="1792" d="M832 1024q0 80 -56 136t-136 56t-136 -56t-56 -136q0 -42 19 -83q-41 19 -83 19q-80 0 -136 -56t-56 -136t56 -136t136 -56t136 56t56 136q0 42 -19 83q41 -19 83 -19q80 0 136 56t56 136zM1683 320q0 -17 -49 -66t-66 -49q-9 0 -28.5 16t-36.5 33t-38.5 40t-24.5 26 l-96 -96l220 -220q28 -28 28 -68q0 -42 -39 -81t-81 -39q-40 0 -68 28l-671 671q-176 -131 -365 -131q-163 0 -265.5 102.5t-102.5 265.5q0 160 95 313t248 248t313 95q163 0 265.5 -102.5t102.5 -265.5q0 -189 -131 -365l355 -355l96 96q-3 3 -26 24.5t-40 38.5t-33 36.5 t-16 28.5q0 17 49 66t66 49q13 0 23 -10q6 -6 46 -44.5t82 -79.5t86.5 -86t73 -78t28.5 -41z" />
+<glyph unicode="&#xf085;" horiz-adv-x="1920" d="M896 640q0 106 -75 181t-181 75t-181 -75t-75 -181t75 -181t181 -75t181 75t75 181zM1664 128q0 52 -38 90t-90 38t-90 -38t-38 -90q0 -53 37.5 -90.5t90.5 -37.5t90.5 37.5t37.5 90.5zM1664 1152q0 52 -38 90t-90 38t-90 -38t-38 -90q0 -53 37.5 -90.5t90.5 -37.5 t90.5 37.5t37.5 90.5zM1280 731v-185q0 -10 -7 -19.5t-16 -10.5l-155 -24q-11 -35 -32 -76q34 -48 90 -115q7 -10 7 -20q0 -12 -7 -19q-23 -30 -82.5 -89.5t-78.5 -59.5q-11 0 -21 7l-115 90q-37 -19 -77 -31q-11 -108 -23 -155q-7 -24 -30 -24h-186q-11 0 -20 7.5t-10 17.5 l-23 153q-34 10 -75 31l-118 -89q-7 -7 -20 -7q-11 0 -21 8q-144 133 -144 160q0 9 7 19q10 14 41 53t47 61q-23 44 -35 82l-152 24q-10 1 -17 9.5t-7 19.5v185q0 10 7 19.5t16 10.5l155 24q11 35 32 76q-34 48 -90 115q-7 11 -7 20q0 12 7 20q22 30 82 89t79 59q11 0 21 -7 l115 -90q34 18 77 32q11 108 23 154q7 24 30 24h186q11 0 20 -7.5t10 -17.5l23 -153q34 -10 75 -31l118 89q8 7 20 7q11 0 21 -8q144 -133 144 -160q0 -9 -7 -19q-12 -16 -42 -54t-45 -60q23 -48 34 -82l152 -23q10 -2 17 -10.5t7 -19.5zM1920 198v-140q0 -16 -149 -31 q-12 -27 -30 -52q51 -113 51 -138q0 -4 -4 -7q-122 -71 -124 -71q-8 0 -46 47t-52 68q-20 -2 -30 -2t-30 2q-14 -21 -52 -68t-46 -47q-2 0 -124 71q-4 3 -4 7q0 25 51 138q-18 25 -30 52q-149 15 -149 31v140q0 16 149 31q13 29 30 52q-51 113 -51 138q0 4 4 7q4 2 35 20 t59 34t30 16q8 0 46 -46.5t52 -67.5q20 2 30 2t30 -2q51 71 92 112l6 2q4 0 124 -70q4 -3 4 -7q0 -25 -51 -138q17 -23 30 -52q149 -15 149 -31zM1920 1222v-140q0 -16 -149 -31q-12 -27 -30 -52q51 -113 51 -138q0 -4 -4 -7q-122 -71 -124 -71q-8 0 -46 47t-52 68 q-20 -2 -30 -2t-30 2q-14 -21 -52 -68t-46 -47q-2 0 -124 71q-4 3 -4 7q0 25 51 138q-18 25 -30 52q-149 15 -149 31v140q0 16 149 31q13 29 30 52q-51 113 -51 138q0 4 4 7q4 2 35 20t59 34t30 16q8 0 46 -46.5t52 -67.5q20 2 30 2t30 -2q51 71 92 112l6 2q4 0 124 -70 q4 -3 4 -7q0 -25 -51 -138q17 -23 30 -52q149 -15 149 -31z" />
+<glyph unicode="&#xf086;" horiz-adv-x="1792" d="M1408 768q0 -139 -94 -257t-256.5 -186.5t-353.5 -68.5q-86 0 -176 16q-124 -88 -278 -128q-36 -9 -86 -16h-3q-11 0 -20.5 8t-11.5 21q-1 3 -1 6.5t0.5 6.5t2 6l2.5 5t3.5 5.5t4 5t4.5 5t4 4.5q5 6 23 25t26 29.5t22.5 29t25 38.5t20.5 44q-124 72 -195 177t-71 224 q0 139 94 257t256.5 186.5t353.5 68.5t353.5 -68.5t256.5 -186.5t94 -257zM1792 512q0 -120 -71 -224.5t-195 -176.5q10 -24 20.5 -44t25 -38.5t22.5 -29t26 -29.5t23 -25q1 -1 4 -4.5t4.5 -5t4 -5t3.5 -5.5l2.5 -5t2 -6t0.5 -6.5t-1 -6.5q-3 -14 -13 -22t-22 -7 q-50 7 -86 16q-154 40 -278 128q-90 -16 -176 -16q-271 0 -472 132q58 -4 88 -4q161 0 309 45t264 129q125 92 192 212t67 254q0 77 -23 152q129 -71 204 -178t75 -230z" />
+<glyph unicode="&#xf087;" d="M256 192q0 26 -19 45t-45 19t-45 -19t-19 -45t19 -45t45 -19t45 19t19 45zM1408 768q0 51 -39 89.5t-89 38.5h-352q0 58 48 159.5t48 160.5q0 98 -32 145t-128 47q-26 -26 -38 -85t-30.5 -125.5t-59.5 -109.5q-22 -23 -77 -91q-4 -5 -23 -30t-31.5 -41t-34.5 -42.5 t-40 -44t-38.5 -35.5t-40 -27t-35.5 -9h-32v-640h32q13 0 31.5 -3t33 -6.5t38 -11t35 -11.5t35.5 -12.5t29 -10.5q211 -73 342 -73h121q192 0 192 167q0 26 -5 56q30 16 47.5 52.5t17.5 73.5t-18 69q53 50 53 119q0 25 -10 55.5t-25 47.5q32 1 53.5 47t21.5 81zM1536 769 q0 -89 -49 -163q9 -33 9 -69q0 -77 -38 -144q3 -21 3 -43q0 -101 -60 -178q1 -139 -85 -219.5t-227 -80.5h-36h-93q-96 0 -189.5 22.5t-216.5 65.5q-116 40 -138 40h-288q-53 0 -90.5 37.5t-37.5 90.5v640q0 53 37.5 90.5t90.5 37.5h274q36 24 137 155q58 75 107 128 q24 25 35.5 85.5t30.5 126.5t62 108q39 37 90 37q84 0 151 -32.5t102 -101.5t35 -186q0 -93 -48 -192h176q104 0 180 -76t76 -179z" />
+<glyph unicode="&#xf088;" d="M256 1088q0 26 -19 45t-45 19t-45 -19t-19 -45t19 -45t45 -19t45 19t19 45zM1408 512q0 35 -21.5 81t-53.5 47q15 17 25 47.5t10 55.5q0 69 -53 119q18 32 18 69t-17.5 73.5t-47.5 52.5q5 30 5 56q0 85 -49 126t-136 41h-128q-131 0 -342 -73q-5 -2 -29 -10.5 t-35.5 -12.5t-35 -11.5t-38 -11t-33 -6.5t-31.5 -3h-32v-640h32q16 0 35.5 -9t40 -27t38.5 -35.5t40 -44t34.5 -42.5t31.5 -41t23 -30q55 -68 77 -91q41 -43 59.5 -109.5t30.5 -125.5t38 -85q96 0 128 47t32 145q0 59 -48 160.5t-48 159.5h352q50 0 89 38.5t39 89.5z M1536 511q0 -103 -76 -179t-180 -76h-176q48 -99 48 -192q0 -118 -35 -186q-35 -69 -102 -101.5t-151 -32.5q-51 0 -90 37q-34 33 -54 82t-25.5 90.5t-17.5 84.5t-31 64q-48 50 -107 127q-101 131 -137 155h-274q-53 0 -90.5 37.5t-37.5 90.5v640q0 53 37.5 90.5t90.5 37.5 h288q22 0 138 40q128 44 223 66t200 22h112q140 0 226.5 -79t85.5 -216v-5q60 -77 60 -178q0 -22 -3 -43q38 -67 38 -144q0 -36 -9 -69q49 -74 49 -163z" />
+<glyph unicode="&#xf089;" horiz-adv-x="896" d="M832 1504v-1339l-449 -236q-22 -12 -40 -12q-21 0 -31.5 14.5t-10.5 35.5q0 6 2 20l86 500l-364 354q-25 27 -25 48q0 37 56 46l502 73l225 455q19 41 49 41z" />
+<glyph unicode="&#xf08a;" horiz-adv-x="1792" d="M1664 940q0 81 -21.5 143t-55 98.5t-81.5 59.5t-94 31t-98 8t-112 -25.5t-110.5 -64t-86.5 -72t-60 -61.5q-18 -22 -49 -22t-49 22q-24 28 -60 61.5t-86.5 72t-110.5 64t-112 25.5t-98 -8t-94 -31t-81.5 -59.5t-55 -98.5t-21.5 -143q0 -168 187 -355l581 -560l580 559 q188 188 188 356zM1792 940q0 -221 -229 -450l-623 -600q-18 -18 -44 -18t-44 18l-624 602q-10 8 -27.5 26t-55.5 65.5t-68 97.5t-53.5 121t-23.5 138q0 220 127 344t351 124q62 0 126.5 -21.5t120 -58t95.5 -68.5t76 -68q36 36 76 68t95.5 68.5t120 58t126.5 21.5 q224 0 351 -124t127 -344z" />
+<glyph unicode="&#xf08b;" horiz-adv-x="1664" d="M640 96q0 -4 1 -20t0.5 -26.5t-3 -23.5t-10 -19.5t-20.5 -6.5h-320q-119 0 -203.5 84.5t-84.5 203.5v704q0 119 84.5 203.5t203.5 84.5h320q13 0 22.5 -9.5t9.5 -22.5q0 -4 1 -20t0.5 -26.5t-3 -23.5t-10 -19.5t-20.5 -6.5h-320q-66 0 -113 -47t-47 -113v-704 q0 -66 47 -113t113 -47h288h11h13t11.5 -1t11.5 -3t8 -5.5t7 -9t2 -13.5zM1568 640q0 -26 -19 -45l-544 -544q-19 -19 -45 -19t-45 19t-19 45v288h-448q-26 0 -45 19t-19 45v384q0 26 19 45t45 19h448v288q0 26 19 45t45 19t45 -19l544 -544q19 -19 19 -45z" />
+<glyph unicode="&#xf08c;" d="M237 122h231v694h-231v-694zM483 1030q-1 52 -36 86t-93 34t-94.5 -34t-36.5 -86q0 -51 35.5 -85.5t92.5 -34.5h1q59 0 95 34.5t36 85.5zM1068 122h231v398q0 154 -73 233t-193 79q-136 0 -209 -117h2v101h-231q3 -66 0 -694h231v388q0 38 7 56q15 35 45 59.5t74 24.5 q116 0 116 -157v-371zM1536 1120v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf08d;" horiz-adv-x="1152" d="M480 672v448q0 14 -9 23t-23 9t-23 -9t-9 -23v-448q0 -14 9 -23t23 -9t23 9t9 23zM1152 320q0 -26 -19 -45t-45 -19h-429l-51 -483q-2 -12 -10.5 -20.5t-20.5 -8.5h-1q-27 0 -32 27l-76 485h-404q-26 0 -45 19t-19 45q0 123 78.5 221.5t177.5 98.5v512q-52 0 -90 38 t-38 90t38 90t90 38h640q52 0 90 -38t38 -90t-38 -90t-90 -38v-512q99 0 177.5 -98.5t78.5 -221.5z" />
+<glyph unicode="&#xf08e;" horiz-adv-x="1792" d="M1408 608v-320q0 -119 -84.5 -203.5t-203.5 -84.5h-832q-119 0 -203.5 84.5t-84.5 203.5v832q0 119 84.5 203.5t203.5 84.5h704q14 0 23 -9t9 -23v-64q0 -14 -9 -23t-23 -9h-704q-66 0 -113 -47t-47 -113v-832q0 -66 47 -113t113 -47h832q66 0 113 47t47 113v320 q0 14 9 23t23 9h64q14 0 23 -9t9 -23zM1792 1472v-512q0 -26 -19 -45t-45 -19t-45 19l-176 176l-652 -652q-10 -10 -23 -10t-23 10l-114 114q-10 10 -10 23t10 23l652 652l-176 176q-19 19 -19 45t19 45t45 19h512q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf090;" d="M1184 640q0 -26 -19 -45l-544 -544q-19 -19 -45 -19t-45 19t-19 45v288h-448q-26 0 -45 19t-19 45v384q0 26 19 45t45 19h448v288q0 26 19 45t45 19t45 -19l544 -544q19 -19 19 -45zM1536 992v-704q0 -119 -84.5 -203.5t-203.5 -84.5h-320q-13 0 -22.5 9.5t-9.5 22.5 q0 4 -1 20t-0.5 26.5t3 23.5t10 19.5t20.5 6.5h320q66 0 113 47t47 113v704q0 66 -47 113t-113 47h-288h-11h-13t-11.5 1t-11.5 3t-8 5.5t-7 9t-2 13.5q0 4 -1 20t-0.5 26.5t3 23.5t10 19.5t20.5 6.5h320q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf091;" horiz-adv-x="1664" d="M458 653q-74 162 -74 371h-256v-96q0 -78 94.5 -162t235.5 -113zM1536 928v96h-256q0 -209 -74 -371q141 29 235.5 113t94.5 162zM1664 1056v-128q0 -71 -41.5 -143t-112 -130t-173 -97.5t-215.5 -44.5q-42 -54 -95 -95q-38 -34 -52.5 -72.5t-14.5 -89.5q0 -54 30.5 -91 t97.5 -37q75 0 133.5 -45.5t58.5 -114.5v-64q0 -14 -9 -23t-23 -9h-832q-14 0 -23 9t-9 23v64q0 69 58.5 114.5t133.5 45.5q67 0 97.5 37t30.5 91q0 51 -14.5 89.5t-52.5 72.5q-53 41 -95 95q-113 5 -215.5 44.5t-173 97.5t-112 130t-41.5 143v128q0 40 28 68t68 28h288v96 q0 66 47 113t113 47h576q66 0 113 -47t47 -113v-96h288q40 0 68 -28t28 -68z" />
+<glyph unicode="&#xf092;" d="M394 184q-8 -9 -20 3q-13 11 -4 19q8 9 20 -3q12 -11 4 -19zM352 245q9 -12 0 -19q-8 -6 -17 7t0 18q9 7 17 -6zM291 305q-5 -7 -13 -2q-10 5 -7 12q3 5 13 2q10 -5 7 -12zM322 271q-6 -7 -16 3q-9 11 -2 16q6 6 16 -3q9 -11 2 -16zM451 159q-4 -12 -19 -6q-17 4 -13 15 t19 7q16 -5 13 -16zM514 154q0 -11 -16 -11q-17 -2 -17 11q0 11 16 11q17 2 17 -11zM572 164q2 -10 -14 -14t-18 8t14 15q16 2 18 -9zM1536 1120v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-224q-16 0 -24.5 1t-19.5 5t-16 14.5t-5 27.5v239q0 97 -52 142q57 6 102.5 18t94 39 t81 66.5t53 105t20.5 150.5q0 121 -79 206q37 91 -8 204q-28 9 -81 -11t-92 -44l-38 -24q-93 26 -192 26t-192 -26q-16 11 -42.5 27t-83.5 38.5t-86 13.5q-44 -113 -7 -204q-79 -85 -79 -206q0 -85 20.5 -150t52.5 -105t80.5 -67t94 -39t102.5 -18q-40 -36 -49 -103 q-21 -10 -45 -15t-57 -5t-65.5 21.5t-55.5 62.5q-19 32 -48.5 52t-49.5 24l-20 3q-21 0 -29 -4.5t-5 -11.5t9 -14t13 -12l7 -5q22 -10 43.5 -38t31.5 -51l10 -23q13 -38 44 -61.5t67 -30t69.5 -7t55.5 3.5l23 4q0 -38 0.5 -103t0.5 -68q0 -22 -11 -33.5t-22 -13t-33 -1.5 h-224q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf093;" horiz-adv-x="1664" d="M1280 64q0 26 -19 45t-45 19t-45 -19t-19 -45t19 -45t45 -19t45 19t19 45zM1536 64q0 26 -19 45t-45 19t-45 -19t-19 -45t19 -45t45 -19t45 19t19 45zM1664 288v-320q0 -40 -28 -68t-68 -28h-1472q-40 0 -68 28t-28 68v320q0 40 28 68t68 28h427q21 -56 70.5 -92 t110.5 -36h256q61 0 110.5 36t70.5 92h427q40 0 68 -28t28 -68zM1339 936q-17 -40 -59 -40h-256v-448q0 -26 -19 -45t-45 -19h-256q-26 0 -45 19t-19 45v448h-256q-42 0 -59 40q-17 39 14 69l448 448q18 19 45 19t45 -19l448 -448q31 -30 14 -69z" />
+<glyph unicode="&#xf094;" d="M1407 710q0 44 -7 113.5t-18 96.5q-12 30 -17 44t-9 36.5t-4 48.5q0 23 5 68.5t5 67.5q0 37 -10 55q-4 1 -13 1q-19 0 -58 -4.5t-59 -4.5q-60 0 -176 24t-175 24q-43 0 -94.5 -11.5t-85 -23.5t-89.5 -34q-137 -54 -202 -103q-96 -73 -159.5 -189.5t-88 -236t-24.5 -248.5 q0 -40 12.5 -120t12.5 -121q0 -23 -11 -66.5t-11 -65.5t12 -36.5t34 -14.5q24 0 72.5 11t73.5 11q57 0 169.5 -15.5t169.5 -15.5q181 0 284 36q129 45 235.5 152.5t166 245.5t59.5 275zM1535 712q0 -165 -70 -327.5t-196 -288t-281 -180.5q-124 -44 -326 -44 q-57 0 -170 14.5t-169 14.5q-24 0 -72.5 -14.5t-73.5 -14.5q-73 0 -123.5 55.5t-50.5 128.5q0 24 11 68t11 67q0 40 -12.5 120.5t-12.5 121.5q0 111 18 217.5t54.5 209.5t100.5 194t150 156q78 59 232 120q194 78 316 78q60 0 175.5 -24t173.5 -24q19 0 57 5t58 5 q81 0 118 -50.5t37 -134.5q0 -23 -5 -68t-5 -68q0 -10 1 -18.5t3 -17t4 -13.5t6.5 -16t6.5 -17q16 -40 25 -118.5t9 -136.5z" />
+<glyph unicode="&#xf095;" horiz-adv-x="1408" d="M1408 296q0 -27 -10 -70.5t-21 -68.5q-21 -50 -122 -106q-94 -51 -186 -51q-27 0 -52.5 3.5t-57.5 12.5t-47.5 14.5t-55.5 20.5t-49 18q-98 35 -175 83q-128 79 -264.5 215.5t-215.5 264.5q-48 77 -83 175q-3 9 -18 49t-20.5 55.5t-14.5 47.5t-12.5 57.5t-3.5 52.5 q0 92 51 186q56 101 106 122q25 11 68.5 21t70.5 10q14 0 21 -3q18 -6 53 -76q11 -19 30 -54t35 -63.5t31 -53.5q3 -4 17.5 -25t21.5 -35.5t7 -28.5q0 -20 -28.5 -50t-62 -55t-62 -53t-28.5 -46q0 -9 5 -22.5t8.5 -20.5t14 -24t11.5 -19q76 -137 174 -235t235 -174 q2 -1 19 -11.5t24 -14t20.5 -8.5t22.5 -5q18 0 46 28.5t53 62t55 62t50 28.5q14 0 28.5 -7t35.5 -21.5t25 -17.5q25 -15 53.5 -31t63.5 -35t54 -30q70 -35 76 -53q3 -7 3 -21z" />
+<glyph unicode="&#xf096;" horiz-adv-x="1408" d="M1120 1280h-832q-66 0 -113 -47t-47 -113v-832q0 -66 47 -113t113 -47h832q66 0 113 47t47 113v832q0 66 -47 113t-113 47zM1408 1120v-832q0 -119 -84.5 -203.5t-203.5 -84.5h-832q-119 0 -203.5 84.5t-84.5 203.5v832q0 119 84.5 203.5t203.5 84.5h832 q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf097;" horiz-adv-x="1280" d="M1152 1280h-1024v-1242l423 406l89 85l89 -85l423 -406v1242zM1164 1408q23 0 44 -9q33 -13 52.5 -41t19.5 -62v-1289q0 -34 -19.5 -62t-52.5 -41q-19 -8 -44 -8q-48 0 -83 32l-441 424l-441 -424q-36 -33 -83 -33q-23 0 -44 9q-33 13 -52.5 41t-19.5 62v1289 q0 34 19.5 62t52.5 41q21 9 44 9h1048z" />
+<glyph unicode="&#xf098;" d="M1280 343q0 11 -2 16q-3 8 -38.5 29.5t-88.5 49.5l-53 29q-5 3 -19 13t-25 15t-21 5q-18 0 -47 -32.5t-57 -65.5t-44 -33q-7 0 -16.5 3.5t-15.5 6.5t-17 9.5t-14 8.5q-99 55 -170.5 126.5t-126.5 170.5q-2 3 -8.5 14t-9.5 17t-6.5 15.5t-3.5 16.5q0 13 20.5 33.5t45 38.5 t45 39.5t20.5 36.5q0 10 -5 21t-15 25t-13 19q-3 6 -15 28.5t-25 45.5t-26.5 47.5t-25 40.5t-16.5 18t-16 2q-48 0 -101 -22q-46 -21 -80 -94.5t-34 -130.5q0 -16 2.5 -34t5 -30.5t9 -33t10 -29.5t12.5 -33t11 -30q60 -164 216.5 -320.5t320.5 -216.5q6 -2 30 -11t33 -12.5 t29.5 -10t33 -9t30.5 -5t34 -2.5q57 0 130.5 34t94.5 80q22 53 22 101zM1536 1120v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf099;" horiz-adv-x="1664" d="M1620 1128q-67 -98 -162 -167q1 -14 1 -42q0 -130 -38 -259.5t-115.5 -248.5t-184.5 -210.5t-258 -146t-323 -54.5q-271 0 -496 145q35 -4 78 -4q225 0 401 138q-105 2 -188 64.5t-114 159.5q33 -5 61 -5q43 0 85 11q-112 23 -185.5 111.5t-73.5 205.5v4q68 -38 146 -41 q-66 44 -105 115t-39 154q0 88 44 163q121 -149 294.5 -238.5t371.5 -99.5q-8 38 -8 74q0 134 94.5 228.5t228.5 94.5q140 0 236 -102q109 21 205 78q-37 -115 -142 -178q93 10 186 50z" />
+<glyph unicode="&#xf09a;" horiz-adv-x="1024" d="M959 1524v-264h-157q-86 0 -116 -36t-30 -108v-189h293l-39 -296h-254v-759h-306v759h-255v296h255v218q0 186 104 288.5t277 102.5q147 0 228 -12z" />
+<glyph unicode="&#xf09b;" d="M1536 640q0 -251 -146.5 -451.5t-378.5 -277.5q-27 -5 -39.5 7t-12.5 30v211q0 97 -52 142q57 6 102.5 18t94 39t81 66.5t53 105t20.5 150.5q0 121 -79 206q37 91 -8 204q-28 9 -81 -11t-92 -44l-38 -24q-93 26 -192 26t-192 -26q-16 11 -42.5 27t-83.5 38.5t-86 13.5 q-44 -113 -7 -204q-79 -85 -79 -206q0 -85 20.5 -150t52.5 -105t80.5 -67t94 -39t102.5 -18q-40 -36 -49 -103q-21 -10 -45 -15t-57 -5t-65.5 21.5t-55.5 62.5q-19 32 -48.5 52t-49.5 24l-20 3q-21 0 -29 -4.5t-5 -11.5t9 -14t13 -12l7 -5q22 -10 43.5 -38t31.5 -51l10 -23 q13 -38 44 -61.5t67 -30t69.5 -7t55.5 3.5l23 4q0 -38 0.5 -89t0.5 -54q0 -18 -13 -30t-40 -7q-232 77 -378.5 277.5t-146.5 451.5q0 209 103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf09c;" horiz-adv-x="1664" d="M1664 960v-256q0 -26 -19 -45t-45 -19h-64q-26 0 -45 19t-19 45v256q0 106 -75 181t-181 75t-181 -75t-75 -181v-192h96q40 0 68 -28t28 -68v-576q0 -40 -28 -68t-68 -28h-960q-40 0 -68 28t-28 68v576q0 40 28 68t68 28h672v192q0 185 131.5 316.5t316.5 131.5 t316.5 -131.5t131.5 -316.5z" />
+<glyph unicode="&#xf09d;" horiz-adv-x="1920" d="M1760 1408q66 0 113 -47t47 -113v-1216q0 -66 -47 -113t-113 -47h-1600q-66 0 -113 47t-47 113v1216q0 66 47 113t113 47h1600zM160 1280q-13 0 -22.5 -9.5t-9.5 -22.5v-224h1664v224q0 13 -9.5 22.5t-22.5 9.5h-1600zM1760 0q13 0 22.5 9.5t9.5 22.5v608h-1664v-608 q0 -13 9.5 -22.5t22.5 -9.5h1600zM256 128v128h256v-128h-256zM640 128v128h384v-128h-384z" />
+<glyph unicode="&#xf09e;" horiz-adv-x="1408" d="M384 192q0 -80 -56 -136t-136 -56t-136 56t-56 136t56 136t136 56t136 -56t56 -136zM896 69q2 -28 -17 -48q-18 -21 -47 -21h-135q-25 0 -43 16.5t-20 41.5q-22 229 -184.5 391.5t-391.5 184.5q-25 2 -41.5 20t-16.5 43v135q0 29 21 47q17 17 43 17h5q160 -13 306 -80.5 t259 -181.5q114 -113 181.5 -259t80.5 -306zM1408 67q2 -27 -18 -47q-18 -20 -46 -20h-143q-26 0 -44.5 17.5t-19.5 42.5q-12 215 -101 408.5t-231.5 336t-336 231.5t-408.5 102q-25 1 -42.5 19.5t-17.5 43.5v143q0 28 20 46q18 18 44 18h3q262 -13 501.5 -120t425.5 -294 q187 -186 294 -425.5t120 -501.5z" />
+<glyph unicode="&#xf0a0;" d="M1040 320q0 -33 -23.5 -56.5t-56.5 -23.5t-56.5 23.5t-23.5 56.5t23.5 56.5t56.5 23.5t56.5 -23.5t23.5 -56.5zM1296 320q0 -33 -23.5 -56.5t-56.5 -23.5t-56.5 23.5t-23.5 56.5t23.5 56.5t56.5 23.5t56.5 -23.5t23.5 -56.5zM1408 160v320q0 13 -9.5 22.5t-22.5 9.5 h-1216q-13 0 -22.5 -9.5t-9.5 -22.5v-320q0 -13 9.5 -22.5t22.5 -9.5h1216q13 0 22.5 9.5t9.5 22.5zM178 640h1180l-157 482q-4 13 -16 21.5t-26 8.5h-782q-14 0 -26 -8.5t-16 -21.5zM1536 480v-320q0 -66 -47 -113t-113 -47h-1216q-66 0 -113 47t-47 113v320q0 25 16 75 l197 606q17 53 63 86t101 33h782q55 0 101 -33t63 -86l197 -606q16 -50 16 -75z" />
+<glyph unicode="&#xf0a1;" horiz-adv-x="1792" d="M1664 896q53 0 90.5 -37.5t37.5 -90.5t-37.5 -90.5t-90.5 -37.5v-384q0 -52 -38 -90t-90 -38q-417 347 -812 380q-58 -19 -91 -66t-31 -100.5t40 -92.5q-20 -33 -23 -65.5t6 -58t33.5 -55t48 -50t61.5 -50.5q-29 -58 -111.5 -83t-168.5 -11.5t-132 55.5q-7 23 -29.5 87.5 t-32 94.5t-23 89t-15 101t3.5 98.5t22 110.5h-122q-66 0 -113 47t-47 113v192q0 66 47 113t113 47h480q435 0 896 384q52 0 90 -38t38 -90v-384zM1536 292v954q-394 -302 -768 -343v-270q377 -42 768 -341z" />
+<glyph unicode="&#xf0a2;" horiz-adv-x="1792" d="M912 -160q0 16 -16 16q-59 0 -101.5 42.5t-42.5 101.5q0 16 -16 16t-16 -16q0 -73 51.5 -124.5t124.5 -51.5q16 0 16 16zM246 128h1300q-266 300 -266 832q0 51 -24 105t-69 103t-121.5 80.5t-169.5 31.5t-169.5 -31.5t-121.5 -80.5t-69 -103t-24 -105q0 -532 -266 -832z M1728 128q0 -52 -38 -90t-90 -38h-448q0 -106 -75 -181t-181 -75t-181 75t-75 181h-448q-52 0 -90 38t-38 90q50 42 91 88t85 119.5t74.5 158.5t50 206t19.5 260q0 152 117 282.5t307 158.5q-8 19 -8 39q0 40 28 68t68 28t68 -28t28 -68q0 -20 -8 -39q190 -28 307 -158.5 t117 -282.5q0 -139 19.5 -260t50 -206t74.5 -158.5t85 -119.5t91 -88z" />
+<glyph unicode="&#xf0a3;" d="M1376 640l138 -135q30 -28 20 -70q-12 -41 -52 -51l-188 -48l53 -186q12 -41 -19 -70q-29 -31 -70 -19l-186 53l-48 -188q-10 -40 -51 -52q-12 -2 -19 -2q-31 0 -51 22l-135 138l-135 -138q-28 -30 -70 -20q-41 11 -51 52l-48 188l-186 -53q-41 -12 -70 19q-31 29 -19 70 l53 186l-188 48q-40 10 -52 51q-10 42 20 70l138 135l-138 135q-30 28 -20 70q12 41 52 51l188 48l-53 186q-12 41 19 70q29 31 70 19l186 -53l48 188q10 41 51 51q41 12 70 -19l135 -139l135 139q29 30 70 19q41 -10 51 -51l48 -188l186 53q41 12 70 -19q31 -29 19 -70 l-53 -186l188 -48q40 -10 52 -51q10 -42 -20 -70z" />
+<glyph unicode="&#xf0a4;" horiz-adv-x="1792" d="M256 192q0 26 -19 45t-45 19t-45 -19t-19 -45t19 -45t45 -19t45 19t19 45zM1664 768q0 51 -39 89.5t-89 38.5h-576q0 20 15 48.5t33 55t33 68t15 84.5q0 67 -44.5 97.5t-115.5 30.5q-24 0 -90 -139q-24 -44 -37 -65q-40 -64 -112 -145q-71 -81 -101 -106 q-69 -57 -140 -57h-32v-640h32q72 0 167 -32t193.5 -64t179.5 -32q189 0 189 167q0 26 -5 56q30 16 47.5 52.5t17.5 73.5t-18 69q53 50 53 119q0 25 -10 55.5t-25 47.5h331q52 0 90 38t38 90zM1792 769q0 -105 -75.5 -181t-180.5 -76h-169q-4 -62 -37 -119q3 -21 3 -43 q0 -101 -60 -178q1 -139 -85 -219.5t-227 -80.5q-133 0 -322 69q-164 59 -223 59h-288q-53 0 -90.5 37.5t-37.5 90.5v640q0 53 37.5 90.5t90.5 37.5h288q10 0 21.5 4.5t23.5 14t22.5 18t24 22.5t20.5 21.5t19 21.5t14 17q65 74 100 129q13 21 33 62t37 72t40.5 63t55 49.5 t69.5 17.5q125 0 206.5 -67t81.5 -189q0 -68 -22 -128h374q104 0 180 -76t76 -179z" />
+<glyph unicode="&#xf0a5;" horiz-adv-x="1792" d="M1376 128h32v640h-32q-35 0 -67.5 12t-62.5 37t-50 46t-49 54q-2 3 -3.5 4.5t-4 4.5t-4.5 5q-72 81 -112 145q-14 22 -38 68q-1 3 -10.5 22.5t-18.5 36t-20 35.5t-21.5 30.5t-18.5 11.5q-71 0 -115.5 -30.5t-44.5 -97.5q0 -43 15 -84.5t33 -68t33 -55t15 -48.5h-576 q-50 0 -89 -38.5t-39 -89.5q0 -52 38 -90t90 -38h331q-15 -17 -25 -47.5t-10 -55.5q0 -69 53 -119q-18 -32 -18 -69t17.5 -73.5t47.5 -52.5q-4 -24 -4 -56q0 -85 48.5 -126t135.5 -41q84 0 183 32t194 64t167 32zM1664 192q0 26 -19 45t-45 19t-45 -19t-19 -45t19 -45 t45 -19t45 19t19 45zM1792 768v-640q0 -53 -37.5 -90.5t-90.5 -37.5h-288q-59 0 -223 -59q-190 -69 -317 -69q-142 0 -230 77.5t-87 217.5l1 5q-61 76 -61 178q0 22 3 43q-33 57 -37 119h-169q-105 0 -180.5 76t-75.5 181q0 103 76 179t180 76h374q-22 60 -22 128 q0 122 81.5 189t206.5 67q38 0 69.5 -17.5t55 -49.5t40.5 -63t37 -72t33 -62q35 -55 100 -129q2 -3 14 -17t19 -21.5t20.5 -21.5t24 -22.5t22.5 -18t23.5 -14t21.5 -4.5h288q53 0 90.5 -37.5t37.5 -90.5z" />
+<glyph unicode="&#xf0a6;" d="M1280 -64q0 26 -19 45t-45 19t-45 -19t-19 -45t19 -45t45 -19t45 19t19 45zM1408 700q0 189 -167 189q-26 0 -56 -5q-16 30 -52.5 47.5t-73.5 17.5t-69 -18q-50 53 -119 53q-25 0 -55.5 -10t-47.5 -25v331q0 52 -38 90t-90 38q-51 0 -89.5 -39t-38.5 -89v-576 q-20 0 -48.5 15t-55 33t-68 33t-84.5 15q-67 0 -97.5 -44.5t-30.5 -115.5q0 -24 139 -90q44 -24 65 -37q64 -40 145 -112q81 -71 106 -101q57 -69 57 -140v-32h640v32q0 72 32 167t64 193.5t32 179.5zM1536 705q0 -133 -69 -322q-59 -164 -59 -223v-288q0 -53 -37.5 -90.5 t-90.5 -37.5h-640q-53 0 -90.5 37.5t-37.5 90.5v288q0 10 -4.5 21.5t-14 23.5t-18 22.5t-22.5 24t-21.5 20.5t-21.5 19t-17 14q-74 65 -129 100q-21 13 -62 33t-72 37t-63 40.5t-49.5 55t-17.5 69.5q0 125 67 206.5t189 81.5q68 0 128 -22v374q0 104 76 180t179 76 q105 0 181 -75.5t76 -180.5v-169q62 -4 119 -37q21 3 43 3q101 0 178 -60q139 1 219.5 -85t80.5 -227z" />
+<glyph unicode="&#xf0a7;" d="M1408 576q0 84 -32 183t-64 194t-32 167v32h-640v-32q0 -35 -12 -67.5t-37 -62.5t-46 -50t-54 -49q-9 -8 -14 -12q-81 -72 -145 -112q-22 -14 -68 -38q-3 -1 -22.5 -10.5t-36 -18.5t-35.5 -20t-30.5 -21.5t-11.5 -18.5q0 -71 30.5 -115.5t97.5 -44.5q43 0 84.5 15t68 33 t55 33t48.5 15v-576q0 -50 38.5 -89t89.5 -39q52 0 90 38t38 90v331q46 -35 103 -35q69 0 119 53q32 -18 69 -18t73.5 17.5t52.5 47.5q24 -4 56 -4q85 0 126 48.5t41 135.5zM1280 1344q0 26 -19 45t-45 19t-45 -19t-19 -45t19 -45t45 -19t45 19t19 45zM1536 580 q0 -142 -77.5 -230t-217.5 -87l-5 1q-76 -61 -178 -61q-22 0 -43 3q-54 -30 -119 -37v-169q0 -105 -76 -180.5t-181 -75.5q-103 0 -179 76t-76 180v374q-54 -22 -128 -22q-121 0 -188.5 81.5t-67.5 206.5q0 38 17.5 69.5t49.5 55t63 40.5t72 37t62 33q55 35 129 100 q3 2 17 14t21.5 19t21.5 20.5t22.5 24t18 22.5t14 23.5t4.5 21.5v288q0 53 37.5 90.5t90.5 37.5h640q53 0 90.5 -37.5t37.5 -90.5v-288q0 -59 59 -223q69 -190 69 -317z" />
+<glyph unicode="&#xf0a8;" d="M1280 576v128q0 26 -19 45t-45 19h-502l189 189q19 19 19 45t-19 45l-91 91q-18 18 -45 18t-45 -18l-362 -362l-91 -91q-18 -18 -18 -45t18 -45l91 -91l362 -362q18 -18 45 -18t45 18l91 91q18 18 18 45t-18 45l-189 189h502q26 0 45 19t19 45zM1536 640 q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf0a9;" d="M1285 640q0 27 -18 45l-91 91l-362 362q-18 18 -45 18t-45 -18l-91 -91q-18 -18 -18 -45t18 -45l189 -189h-502q-26 0 -45 -19t-19 -45v-128q0 -26 19 -45t45 -19h502l-189 -189q-19 -19 -19 -45t19 -45l91 -91q18 -18 45 -18t45 18l362 362l91 91q18 18 18 45zM1536 640 q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf0aa;" d="M1284 641q0 27 -18 45l-362 362l-91 91q-18 18 -45 18t-45 -18l-91 -91l-362 -362q-18 -18 -18 -45t18 -45l91 -91q18 -18 45 -18t45 18l189 189v-502q0 -26 19 -45t45 -19h128q26 0 45 19t19 45v502l189 -189q19 -19 45 -19t45 19l91 91q18 18 18 45zM1536 640 q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf0ab;" d="M1284 639q0 27 -18 45l-91 91q-18 18 -45 18t-45 -18l-189 -189v502q0 26 -19 45t-45 19h-128q-26 0 -45 -19t-19 -45v-502l-189 189q-19 19 -45 19t-45 -19l-91 -91q-18 -18 -18 -45t18 -45l362 -362l91 -91q18 -18 45 -18t45 18l91 91l362 362q18 18 18 45zM1536 640 q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf0ac;" d="M768 1408q209 0 385.5 -103t279.5 -279.5t103 -385.5t-103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103zM1042 887q-2 -1 -9.5 -9.5t-13.5 -9.5q2 0 4.5 5t5 11t3.5 7q6 7 22 15q14 6 52 12q34 8 51 -11 q-2 2 9.5 13t14.5 12q3 2 15 4.5t15 7.5l2 22q-12 -1 -17.5 7t-6.5 21q0 -2 -6 -8q0 7 -4.5 8t-11.5 -1t-9 -1q-10 3 -15 7.5t-8 16.5t-4 15q-2 5 -9.5 10.5t-9.5 10.5q-1 2 -2.5 5.5t-3 6.5t-4 5.5t-5.5 2.5t-7 -5t-7.5 -10t-4.5 -5q-3 2 -6 1.5t-4.5 -1t-4.5 -3t-5 -3.5 q-3 -2 -8.5 -3t-8.5 -2q15 5 -1 11q-10 4 -16 3q9 4 7.5 12t-8.5 14h5q-1 4 -8.5 8.5t-17.5 8.5t-13 6q-8 5 -34 9.5t-33 0.5q-5 -6 -4.5 -10.5t4 -14t3.5 -12.5q1 -6 -5.5 -13t-6.5 -12q0 -7 14 -15.5t10 -21.5q-3 -8 -16 -16t-16 -12q-5 -8 -1.5 -18.5t10.5 -16.5 q2 -2 1.5 -4t-3.5 -4.5t-5.5 -4t-6.5 -3.5l-3 -2q-11 -5 -20.5 6t-13.5 26q-7 25 -16 30q-23 8 -29 -1q-5 13 -41 26q-25 9 -58 4q6 1 0 15q-7 15 -19 12q3 6 4 17.5t1 13.5q3 13 12 23q1 1 7 8.5t9.5 13.5t0.5 6q35 -4 50 11q5 5 11.5 17t10.5 17q9 6 14 5.5t14.5 -5.5 t14.5 -5q14 -1 15.5 11t-7.5 20q12 -1 3 17q-5 7 -8 9q-12 4 -27 -5q-8 -4 2 -8q-1 1 -9.5 -10.5t-16.5 -17.5t-16 5q-1 1 -5.5 13.5t-9.5 13.5q-8 0 -16 -15q3 8 -11 15t-24 8q19 12 -8 27q-7 4 -20.5 5t-19.5 -4q-5 -7 -5.5 -11.5t5 -8t10.5 -5.5t11.5 -4t8.5 -3 q14 -10 8 -14q-2 -1 -8.5 -3.5t-11.5 -4.5t-6 -4q-3 -4 0 -14t-2 -14q-5 5 -9 17.5t-7 16.5q7 -9 -25 -6l-10 1q-4 0 -16 -2t-20.5 -1t-13.5 8q-4 8 0 20q1 4 4 2q-4 3 -11 9.5t-10 8.5q-46 -15 -94 -41q6 -1 12 1q5 2 13 6.5t10 5.5q34 14 42 7l5 5q14 -16 20 -25 q-7 4 -30 1q-20 -6 -22 -12q7 -12 5 -18q-4 3 -11.5 10t-14.5 11t-15 5q-16 0 -22 -1q-146 -80 -235 -222q7 -7 12 -8q4 -1 5 -9t2.5 -11t11.5 3q9 -8 3 -19q1 1 44 -27q19 -17 21 -21q3 -11 -10 -18q-1 2 -9 9t-9 4q-3 -5 0.5 -18.5t10.5 -12.5q-7 0 -9.5 -16t-2.5 -35.5 t-1 -23.5l2 -1q-3 -12 5.5 -34.5t21.5 -19.5q-13 -3 20 -43q6 -8 8 -9q3 -2 12 -7.5t15 -10t10 -10.5q4 -5 10 -22.5t14 -23.5q-2 -6 9.5 -20t10.5 -23q-1 0 -2.5 -1t-2.5 -1q3 -7 15.5 -14t15.5 -13q1 -3 2 -10t3 -11t8 -2q2 20 -24 62q-15 25 -17 29q-3 5 -5.5 15.5 t-4.5 14.5q2 0 6 -1.5t8.5 -3.5t7.5 -4t2 -3q-3 -7 2 -17.5t12 -18.5t17 -19t12 -13q6 -6 14 -19.5t0 -13.5q9 0 20 -10t17 -20q5 -8 8 -26t5 -24q2 -7 8.5 -13.5t12.5 -9.5l16 -8t13 -7q5 -2 18.5 -10.5t21.5 -11.5q10 -4 16 -4t14.5 2.5t13.5 3.5q15 2 29 -15t21 -21 q36 -19 55 -11q-2 -1 0.5 -7.5t8 -15.5t9 -14.5t5.5 -8.5q5 -6 18 -15t18 -15q6 4 7 9q-3 -8 7 -20t18 -10q14 3 14 32q-31 -15 -49 18q0 1 -2.5 5.5t-4 8.5t-2.5 8.5t0 7.5t5 3q9 0 10 3.5t-2 12.5t-4 13q-1 8 -11 20t-12 15q-5 -9 -16 -8t-16 9q0 -1 -1.5 -5.5t-1.5 -6.5 q-13 0 -15 1q1 3 2.5 17.5t3.5 22.5q1 4 5.5 12t7.5 14.5t4 12.5t-4.5 9.5t-17.5 2.5q-19 -1 -26 -20q-1 -3 -3 -10.5t-5 -11.5t-9 -7q-7 -3 -24 -2t-24 5q-13 8 -22.5 29t-9.5 37q0 10 2.5 26.5t3 25t-5.5 24.5q3 2 9 9.5t10 10.5q2 1 4.5 1.5t4.5 0t4 1.5t3 6q-1 1 -4 3 q-3 3 -4 3q7 -3 28.5 1.5t27.5 -1.5q15 -11 22 2q0 1 -2.5 9.5t-0.5 13.5q5 -27 29 -9q3 -3 15.5 -5t17.5 -5q3 -2 7 -5.5t5.5 -4.5t5 0.5t8.5 6.5q10 -14 12 -24q11 -40 19 -44q7 -3 11 -2t4.5 9.5t0 14t-1.5 12.5l-1 8v18l-1 8q-15 3 -18.5 12t1.5 18.5t15 18.5q1 1 8 3.5 t15.5 6.5t12.5 8q21 19 15 35q7 0 11 9q-1 0 -5 3t-7.5 5t-4.5 2q9 5 2 16q5 3 7.5 11t7.5 10q9 -12 21 -2q7 8 1 16q5 7 20.5 10.5t18.5 9.5q7 -2 8 2t1 12t3 12q4 5 15 9t13 5l17 11q3 4 0 4q18 -2 31 11q10 11 -6 20q3 6 -3 9.5t-15 5.5q3 1 11.5 0.5t10.5 1.5 q15 10 -7 16q-17 5 -43 -12zM879 10q206 36 351 189q-3 3 -12.5 4.5t-12.5 3.5q-18 7 -24 8q1 7 -2.5 13t-8 9t-12.5 8t-11 7q-2 2 -7 6t-7 5.5t-7.5 4.5t-8.5 2t-10 -1l-3 -1q-3 -1 -5.5 -2.5t-5.5 -3t-4 -3t0 -2.5q-21 17 -36 22q-5 1 -11 5.5t-10.5 7t-10 1.5t-11.5 -7 q-5 -5 -6 -15t-2 -13q-7 5 0 17.5t2 18.5q-3 6 -10.5 4.5t-12 -4.5t-11.5 -8.5t-9 -6.5t-8.5 -5.5t-8.5 -7.5q-3 -4 -6 -12t-5 -11q-2 4 -11.5 6.5t-9.5 5.5q2 -10 4 -35t5 -38q7 -31 -12 -48q-27 -25 -29 -40q-4 -22 12 -26q0 -7 -8 -20.5t-7 -21.5q0 -6 2 -16z" />
+<glyph unicode="&#xf0ad;" horiz-adv-x="1664" d="M384 64q0 26 -19 45t-45 19t-45 -19t-19 -45t19 -45t45 -19t45 19t19 45zM1028 484l-682 -682q-37 -37 -90 -37q-52 0 -91 37l-106 108q-38 36 -38 90q0 53 38 91l681 681q39 -98 114.5 -173.5t173.5 -114.5zM1662 919q0 -39 -23 -106q-47 -134 -164.5 -217.5 t-258.5 -83.5q-185 0 -316.5 131.5t-131.5 316.5t131.5 316.5t316.5 131.5q58 0 121.5 -16.5t107.5 -46.5q16 -11 16 -28t-16 -28l-293 -169v-224l193 -107q5 3 79 48.5t135.5 81t70.5 35.5q15 0 23.5 -10t8.5 -25z" />
+<glyph unicode="&#xf0ae;" horiz-adv-x="1792" d="M1024 128h640v128h-640v-128zM640 640h1024v128h-1024v-128zM1280 1152h384v128h-384v-128zM1792 320v-256q0 -26 -19 -45t-45 -19h-1664q-26 0 -45 19t-19 45v256q0 26 19 45t45 19h1664q26 0 45 -19t19 -45zM1792 832v-256q0 -26 -19 -45t-45 -19h-1664q-26 0 -45 19 t-19 45v256q0 26 19 45t45 19h1664q26 0 45 -19t19 -45zM1792 1344v-256q0 -26 -19 -45t-45 -19h-1664q-26 0 -45 19t-19 45v256q0 26 19 45t45 19h1664q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf0b0;" horiz-adv-x="1408" d="M1403 1241q17 -41 -14 -70l-493 -493v-742q0 -42 -39 -59q-13 -5 -25 -5q-27 0 -45 19l-256 256q-19 19 -19 45v486l-493 493q-31 29 -14 70q17 39 59 39h1280q42 0 59 -39z" />
+<glyph unicode="&#xf0b1;" horiz-adv-x="1792" d="M640 1280h512v128h-512v-128zM1792 640v-480q0 -66 -47 -113t-113 -47h-1472q-66 0 -113 47t-47 113v480h672v-160q0 -26 19 -45t45 -19h320q26 0 45 19t19 45v160h672zM1024 640v-128h-256v128h256zM1792 1120v-384h-1792v384q0 66 47 113t113 47h352v160q0 40 28 68 t68 28h576q40 0 68 -28t28 -68v-160h352q66 0 113 -47t47 -113z" />
+<glyph unicode="&#xf0b2;" d="M1283 995l-355 -355l355 -355l144 144q29 31 70 14q39 -17 39 -59v-448q0 -26 -19 -45t-45 -19h-448q-42 0 -59 40q-17 39 14 69l144 144l-355 355l-355 -355l144 -144q31 -30 14 -69q-17 -40 -59 -40h-448q-26 0 -45 19t-19 45v448q0 42 40 59q39 17 69 -14l144 -144 l355 355l-355 355l-144 -144q-19 -19 -45 -19q-12 0 -24 5q-40 17 -40 59v448q0 26 19 45t45 19h448q42 0 59 -40q17 -39 -14 -69l-144 -144l355 -355l355 355l-144 144q-31 30 -14 69q17 40 59 40h448q26 0 45 -19t19 -45v-448q0 -42 -39 -59q-13 -5 -25 -5q-26 0 -45 19z " />
+<glyph unicode="&#xf0c0;" horiz-adv-x="1920" d="M593 640q-162 -5 -265 -128h-134q-82 0 -138 40.5t-56 118.5q0 353 124 353q6 0 43.5 -21t97.5 -42.5t119 -21.5q67 0 133 23q-5 -37 -5 -66q0 -139 81 -256zM1664 3q0 -120 -73 -189.5t-194 -69.5h-874q-121 0 -194 69.5t-73 189.5q0 53 3.5 103.5t14 109t26.5 108.5 t43 97.5t62 81t85.5 53.5t111.5 20q10 0 43 -21.5t73 -48t107 -48t135 -21.5t135 21.5t107 48t73 48t43 21.5q61 0 111.5 -20t85.5 -53.5t62 -81t43 -97.5t26.5 -108.5t14 -109t3.5 -103.5zM640 1280q0 -106 -75 -181t-181 -75t-181 75t-75 181t75 181t181 75t181 -75 t75 -181zM1344 896q0 -159 -112.5 -271.5t-271.5 -112.5t-271.5 112.5t-112.5 271.5t112.5 271.5t271.5 112.5t271.5 -112.5t112.5 -271.5zM1920 671q0 -78 -56 -118.5t-138 -40.5h-134q-103 123 -265 128q81 117 81 256q0 29 -5 66q66 -23 133 -23q59 0 119 21.5t97.5 42.5 t43.5 21q124 0 124 -353zM1792 1280q0 -106 -75 -181t-181 -75t-181 75t-75 181t75 181t181 75t181 -75t75 -181z" />
+<glyph unicode="&#xf0c1;" horiz-adv-x="1664" d="M1456 320q0 40 -28 68l-208 208q-28 28 -68 28q-42 0 -72 -32q3 -3 19 -18.5t21.5 -21.5t15 -19t13 -25.5t3.5 -27.5q0 -40 -28 -68t-68 -28q-15 0 -27.5 3.5t-25.5 13t-19 15t-21.5 21.5t-18.5 19q-33 -31 -33 -73q0 -40 28 -68l206 -207q27 -27 68 -27q40 0 68 26 l147 146q28 28 28 67zM753 1025q0 40 -28 68l-206 207q-28 28 -68 28q-39 0 -68 -27l-147 -146q-28 -28 -28 -67q0 -40 28 -68l208 -208q27 -27 68 -27q42 0 72 31q-3 3 -19 18.5t-21.5 21.5t-15 19t-13 25.5t-3.5 27.5q0 40 28 68t68 28q15 0 27.5 -3.5t25.5 -13t19 -15 t21.5 -21.5t18.5 -19q33 31 33 73zM1648 320q0 -120 -85 -203l-147 -146q-83 -83 -203 -83q-121 0 -204 85l-206 207q-83 83 -83 203q0 123 88 209l-88 88q-86 -88 -208 -88q-120 0 -204 84l-208 208q-84 84 -84 204t85 203l147 146q83 83 203 83q121 0 204 -85l206 -207 q83 -83 83 -203q0 -123 -88 -209l88 -88q86 88 208 88q120 0 204 -84l208 -208q84 -84 84 -204z" />
+<glyph unicode="&#xf0c2;" horiz-adv-x="1920" d="M1920 384q0 -159 -112.5 -271.5t-271.5 -112.5h-1088q-185 0 -316.5 131.5t-131.5 316.5q0 132 71 241.5t187 163.5q-2 28 -2 43q0 212 150 362t362 150q158 0 286.5 -88t187.5 -230q70 62 166 62q106 0 181 -75t75 -181q0 -75 -41 -138q129 -30 213 -134.5t84 -239.5z " />
+<glyph unicode="&#xf0c3;" horiz-adv-x="1664" d="M1527 88q56 -89 21.5 -152.5t-140.5 -63.5h-1152q-106 0 -140.5 63.5t21.5 152.5l503 793v399h-64q-26 0 -45 19t-19 45t19 45t45 19h512q26 0 45 -19t19 -45t-19 -45t-45 -19h-64v-399zM748 813l-272 -429h712l-272 429l-20 31v37v399h-128v-399v-37z" />
+<glyph unicode="&#xf0c4;" horiz-adv-x="1792" d="M960 640q26 0 45 -19t19 -45t-19 -45t-45 -19t-45 19t-19 45t19 45t45 19zM1260 576l507 -398q28 -20 25 -56q-5 -35 -35 -51l-128 -64q-13 -7 -29 -7q-17 0 -31 8l-690 387l-110 -66q-8 -4 -12 -5q14 -49 10 -97q-7 -77 -56 -147.5t-132 -123.5q-132 -84 -277 -84 q-136 0 -222 78q-90 84 -79 207q7 76 56 147t131 124q132 84 278 84q83 0 151 -31q9 13 22 22l122 73l-122 73q-13 9 -22 22q-68 -31 -151 -31q-146 0 -278 84q-82 53 -131 124t-56 147q-5 59 15.5 113t63.5 93q85 79 222 79q145 0 277 -84q83 -52 132 -123t56 -148 q4 -48 -10 -97q4 -1 12 -5l110 -66l690 387q14 8 31 8q16 0 29 -7l128 -64q30 -16 35 -51q3 -36 -25 -56zM579 836q46 42 21 108t-106 117q-92 59 -192 59q-74 0 -113 -36q-46 -42 -21 -108t106 -117q92 -59 192 -59q74 0 113 36zM494 91q81 51 106 117t-21 108 q-39 36 -113 36q-100 0 -192 -59q-81 -51 -106 -117t21 -108q39 -36 113 -36q100 0 192 59zM672 704l96 -58v11q0 36 33 56l14 8l-79 47l-26 -26q-3 -3 -10 -11t-12 -12q-2 -2 -4 -3.5t-3 -2.5zM896 480l96 -32l736 576l-128 64l-768 -431v-113l-160 -96l9 -8q2 -2 7 -6 q4 -4 11 -12t11 -12l26 -26zM1600 64l128 64l-520 408l-177 -138q-2 -3 -13 -7z" />
+<glyph unicode="&#xf0c5;" horiz-adv-x="1792" d="M1696 1152q40 0 68 -28t28 -68v-1216q0 -40 -28 -68t-68 -28h-960q-40 0 -68 28t-28 68v288h-544q-40 0 -68 28t-28 68v672q0 40 20 88t48 76l408 408q28 28 76 48t88 20h416q40 0 68 -28t28 -68v-328q68 40 128 40h416zM1152 939l-299 -299h299v299zM512 1323l-299 -299 h299v299zM708 676l316 316v416h-384v-416q0 -40 -28 -68t-68 -28h-416v-640h512v256q0 40 20 88t48 76zM1664 -128v1152h-384v-416q0 -40 -28 -68t-68 -28h-416v-640h896z" />
+<glyph unicode="&#xf0c6;" horiz-adv-x="1408" d="M1404 151q0 -117 -79 -196t-196 -79q-135 0 -235 100l-777 776q-113 115 -113 271q0 159 110 270t269 111q158 0 273 -113l605 -606q10 -10 10 -22q0 -16 -30.5 -46.5t-46.5 -30.5q-13 0 -23 10l-606 607q-79 77 -181 77q-106 0 -179 -75t-73 -181q0 -105 76 -181 l776 -777q63 -63 145 -63q64 0 106 42t42 106q0 82 -63 145l-581 581q-26 24 -60 24q-29 0 -48 -19t-19 -48q0 -32 25 -59l410 -410q10 -10 10 -22q0 -16 -31 -47t-47 -31q-12 0 -22 10l-410 410q-63 61 -63 149q0 82 57 139t139 57q88 0 149 -63l581 -581q100 -98 100 -235 z" />
+<glyph unicode="&#xf0c7;" d="M384 0h768v384h-768v-384zM1280 0h128v896q0 14 -10 38.5t-20 34.5l-281 281q-10 10 -34 20t-39 10v-416q0 -40 -28 -68t-68 -28h-576q-40 0 -68 28t-28 68v416h-128v-1280h128v416q0 40 28 68t68 28h832q40 0 68 -28t28 -68v-416zM896 928v320q0 13 -9.5 22.5t-22.5 9.5 h-192q-13 0 -22.5 -9.5t-9.5 -22.5v-320q0 -13 9.5 -22.5t22.5 -9.5h192q13 0 22.5 9.5t9.5 22.5zM1536 896v-928q0 -40 -28 -68t-68 -28h-1344q-40 0 -68 28t-28 68v1344q0 40 28 68t68 28h928q40 0 88 -20t76 -48l280 -280q28 -28 48 -76t20 -88z" />
+<glyph unicode="&#xf0c8;" d="M1536 1120v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf0c9;" d="M1536 192v-128q0 -26 -19 -45t-45 -19h-1408q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h1408q26 0 45 -19t19 -45zM1536 704v-128q0 -26 -19 -45t-45 -19h-1408q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h1408q26 0 45 -19t19 -45zM1536 1216v-128q0 -26 -19 -45 t-45 -19h-1408q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h1408q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf0ca;" horiz-adv-x="1792" d="M384 128q0 -80 -56 -136t-136 -56t-136 56t-56 136t56 136t136 56t136 -56t56 -136zM384 640q0 -80 -56 -136t-136 -56t-136 56t-56 136t56 136t136 56t136 -56t56 -136zM1792 224v-192q0 -13 -9.5 -22.5t-22.5 -9.5h-1216q-13 0 -22.5 9.5t-9.5 22.5v192q0 13 9.5 22.5 t22.5 9.5h1216q13 0 22.5 -9.5t9.5 -22.5zM384 1152q0 -80 -56 -136t-136 -56t-136 56t-56 136t56 136t136 56t136 -56t56 -136zM1792 736v-192q0 -13 -9.5 -22.5t-22.5 -9.5h-1216q-13 0 -22.5 9.5t-9.5 22.5v192q0 13 9.5 22.5t22.5 9.5h1216q13 0 22.5 -9.5t9.5 -22.5z M1792 1248v-192q0 -13 -9.5 -22.5t-22.5 -9.5h-1216q-13 0 -22.5 9.5t-9.5 22.5v192q0 13 9.5 22.5t22.5 9.5h1216q13 0 22.5 -9.5t9.5 -22.5z" />
+<glyph unicode="&#xf0cb;" horiz-adv-x="1792" d="M381 -84q0 -80 -54.5 -126t-135.5 -46q-106 0 -172 66l57 88q49 -45 106 -45q29 0 50.5 14.5t21.5 42.5q0 64 -105 56l-26 56q8 10 32.5 43.5t42.5 54t37 38.5v1q-16 0 -48.5 -1t-48.5 -1v-53h-106v152h333v-88l-95 -115q51 -12 81 -49t30 -88zM383 543v-159h-362 q-6 36 -6 54q0 51 23.5 93t56.5 68t66 47.5t56.5 43.5t23.5 45q0 25 -14.5 38.5t-39.5 13.5q-46 0 -81 -58l-85 59q24 51 71.5 79.5t105.5 28.5q73 0 123 -41.5t50 -112.5q0 -50 -34 -91.5t-75 -64.5t-75.5 -50.5t-35.5 -52.5h127v60h105zM1792 224v-192q0 -13 -9.5 -22.5 t-22.5 -9.5h-1216q-13 0 -22.5 9.5t-9.5 22.5v192q0 14 9 23t23 9h1216q13 0 22.5 -9.5t9.5 -22.5zM384 1123v-99h-335v99h107q0 41 0.5 122t0.5 121v12h-2q-8 -17 -50 -54l-71 76l136 127h106v-404h108zM1792 736v-192q0 -13 -9.5 -22.5t-22.5 -9.5h-1216q-13 0 -22.5 9.5 t-9.5 22.5v192q0 14 9 23t23 9h1216q13 0 22.5 -9.5t9.5 -22.5zM1792 1248v-192q0 -13 -9.5 -22.5t-22.5 -9.5h-1216q-13 0 -22.5 9.5t-9.5 22.5v192q0 13 9.5 22.5t22.5 9.5h1216q13 0 22.5 -9.5t9.5 -22.5z" />
+<glyph unicode="&#xf0cc;" horiz-adv-x="1792" d="M1760 640q14 0 23 -9t9 -23v-64q0 -14 -9 -23t-23 -9h-1728q-14 0 -23 9t-9 23v64q0 14 9 23t23 9h1728zM483 704q-28 35 -51 80q-48 97 -48 188q0 181 134 309q133 127 393 127q50 0 167 -19q66 -12 177 -48q10 -38 21 -118q14 -123 14 -183q0 -18 -5 -45l-12 -3l-84 6 l-14 2q-50 149 -103 205q-88 91 -210 91q-114 0 -182 -59q-67 -58 -67 -146q0 -73 66 -140t279 -129q69 -20 173 -66q58 -28 95 -52h-743zM990 448h411q7 -39 7 -92q0 -111 -41 -212q-23 -55 -71 -104q-37 -35 -109 -81q-80 -48 -153 -66q-80 -21 -203 -21q-114 0 -195 23 l-140 40q-57 16 -72 28q-8 8 -8 22v13q0 108 -2 156q-1 30 0 68l2 37v44l102 2q15 -34 30 -71t22.5 -56t12.5 -27q35 -57 80 -94q43 -36 105 -57q59 -22 132 -22q64 0 139 27q77 26 122 86q47 61 47 129q0 84 -81 157q-34 29 -137 71z" />
+<glyph unicode="&#xf0cd;" d="M48 1313q-37 2 -45 4l-3 88q13 1 40 1q60 0 112 -4q132 -7 166 -7q86 0 168 3q116 4 146 5q56 0 86 2l-1 -14l2 -64v-9q-60 -9 -124 -9q-60 0 -79 -25q-13 -14 -13 -132q0 -13 0.5 -32.5t0.5 -25.5l1 -229l14 -280q6 -124 51 -202q35 -59 96 -92q88 -47 177 -47 q104 0 191 28q56 18 99 51q48 36 65 64q36 56 53 114q21 73 21 229q0 79 -3.5 128t-11 122.5t-13.5 159.5l-4 59q-5 67 -24 88q-34 35 -77 34l-100 -2l-14 3l2 86h84l205 -10q76 -3 196 10l18 -2q6 -38 6 -51q0 -7 -4 -31q-45 -12 -84 -13q-73 -11 -79 -17q-15 -15 -15 -41 q0 -7 1.5 -27t1.5 -31q8 -19 22 -396q6 -195 -15 -304q-15 -76 -41 -122q-38 -65 -112 -123q-75 -57 -182 -89q-109 -33 -255 -33q-167 0 -284 46q-119 47 -179 122q-61 76 -83 195q-16 80 -16 237v333q0 188 -17 213q-25 36 -147 39zM1536 -96v64q0 14 -9 23t-23 9h-1472 q-14 0 -23 -9t-9 -23v-64q0 -14 9 -23t23 -9h1472q14 0 23 9t9 23z" />
+<glyph unicode="&#xf0ce;" horiz-adv-x="1664" d="M512 160v192q0 14 -9 23t-23 9h-320q-14 0 -23 -9t-9 -23v-192q0 -14 9 -23t23 -9h320q14 0 23 9t9 23zM512 544v192q0 14 -9 23t-23 9h-320q-14 0 -23 -9t-9 -23v-192q0 -14 9 -23t23 -9h320q14 0 23 9t9 23zM1024 160v192q0 14 -9 23t-23 9h-320q-14 0 -23 -9t-9 -23 v-192q0 -14 9 -23t23 -9h320q14 0 23 9t9 23zM512 928v192q0 14 -9 23t-23 9h-320q-14 0 -23 -9t-9 -23v-192q0 -14 9 -23t23 -9h320q14 0 23 9t9 23zM1024 544v192q0 14 -9 23t-23 9h-320q-14 0 -23 -9t-9 -23v-192q0 -14 9 -23t23 -9h320q14 0 23 9t9 23zM1536 160v192 q0 14 -9 23t-23 9h-320q-14 0 -23 -9t-9 -23v-192q0 -14 9 -23t23 -9h320q14 0 23 9t9 23zM1024 928v192q0 14 -9 23t-23 9h-320q-14 0 -23 -9t-9 -23v-192q0 -14 9 -23t23 -9h320q14 0 23 9t9 23zM1536 544v192q0 14 -9 23t-23 9h-320q-14 0 -23 -9t-9 -23v-192 q0 -14 9 -23t23 -9h320q14 0 23 9t9 23zM1536 928v192q0 14 -9 23t-23 9h-320q-14 0 -23 -9t-9 -23v-192q0 -14 9 -23t23 -9h320q14 0 23 9t9 23zM1664 1248v-1088q0 -66 -47 -113t-113 -47h-1344q-66 0 -113 47t-47 113v1088q0 66 47 113t113 47h1344q66 0 113 -47t47 -113 z" />
+<glyph unicode="&#xf0d0;" horiz-adv-x="1664" d="M1190 955l293 293l-107 107l-293 -293zM1637 1248q0 -27 -18 -45l-1286 -1286q-18 -18 -45 -18t-45 18l-198 198q-18 18 -18 45t18 45l1286 1286q18 18 45 18t45 -18l198 -198q18 -18 18 -45zM286 1438l98 -30l-98 -30l-30 -98l-30 98l-98 30l98 30l30 98zM636 1276 l196 -60l-196 -60l-60 -196l-60 196l-196 60l196 60l60 196zM1566 798l98 -30l-98 -30l-30 -98l-30 98l-98 30l98 30l30 98zM926 1438l98 -30l-98 -30l-30 -98l-30 98l-98 30l98 30l30 98z" />
+<glyph unicode="&#xf0d1;" horiz-adv-x="1792" d="M640 128q0 52 -38 90t-90 38t-90 -38t-38 -90t38 -90t90 -38t90 38t38 90zM256 640h384v256h-158q-13 0 -22 -9l-195 -195q-9 -9 -9 -22v-30zM1536 128q0 52 -38 90t-90 38t-90 -38t-38 -90t38 -90t90 -38t90 38t38 90zM1792 1216v-1024q0 -15 -4 -26.5t-13.5 -18.5 t-16.5 -11.5t-23.5 -6t-22.5 -2t-25.5 0t-22.5 0.5q0 -106 -75 -181t-181 -75t-181 75t-75 181h-384q0 -106 -75 -181t-181 -75t-181 75t-75 181h-64q-3 0 -22.5 -0.5t-25.5 0t-22.5 2t-23.5 6t-16.5 11.5t-13.5 18.5t-4 26.5q0 26 19 45t45 19v320q0 8 -0.5 35t0 38 t2.5 34.5t6.5 37t14 30.5t22.5 30l198 198q19 19 50.5 32t58.5 13h160v192q0 26 19 45t45 19h1024q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf0d2;" d="M1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103q-111 0 -218 32q59 93 78 164q9 34 54 211q20 -39 73 -67.5t114 -28.5q121 0 216 68.5t147 188.5t52 270q0 114 -59.5 214t-172.5 163t-255 63q-105 0 -196 -29t-154.5 -77t-109 -110.5t-67 -129.5t-21.5 -134 q0 -104 40 -183t117 -111q30 -12 38 20q2 7 8 31t8 30q6 23 -11 43q-51 61 -51 151q0 151 104.5 259.5t273.5 108.5q151 0 235.5 -82t84.5 -213q0 -170 -68.5 -289t-175.5 -119q-61 0 -98 43.5t-23 104.5q8 35 26.5 93.5t30 103t11.5 75.5q0 50 -27 83t-77 33 q-62 0 -105 -57t-43 -142q0 -73 25 -122l-99 -418q-17 -70 -13 -177q-206 91 -333 281t-127 423q0 209 103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf0d3;" d="M1248 1408q119 0 203.5 -84.5t84.5 -203.5v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-725q85 122 108 210q9 34 53 209q21 -39 73.5 -67t112.5 -28q181 0 295.5 147.5t114.5 373.5q0 84 -35 162.5t-96.5 139t-152.5 97t-197 36.5q-104 0 -194.5 -28.5t-153 -76.5 t-107.5 -109.5t-66.5 -128t-21.5 -132.5q0 -102 39.5 -180t116.5 -110q13 -5 23.5 0t14.5 19q10 44 15 61q6 23 -11 42q-50 62 -50 150q0 150 103.5 256.5t270.5 106.5q149 0 232.5 -81t83.5 -210q0 -168 -67.5 -286t-173.5 -118q-60 0 -97 43.5t-23 103.5q8 34 26.5 92.5 t29.5 102t11 74.5q0 49 -26.5 81.5t-75.5 32.5q-61 0 -103.5 -56.5t-42.5 -139.5q0 -72 24 -121l-98 -414q-24 -100 -7 -254h-183q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960z" />
+<glyph unicode="&#xf0d4;" d="M829 318q0 -76 -58.5 -112.5t-139.5 -36.5q-41 0 -80.5 9.5t-75.5 28.5t-58 53t-22 78q0 46 25 80t65.5 51.5t82 25t84.5 7.5q20 0 31 -2q2 -1 23 -16.5t26 -19t23 -18t24.5 -22t19 -22.5t17 -26t9 -26.5t4.5 -31.5zM755 863q0 -60 -33 -99.5t-92 -39.5q-53 0 -93 42.5 t-57.5 96.5t-17.5 106q0 61 32 104t92 43q53 0 93.5 -45t58 -101t17.5 -107zM861 1120l88 64h-265q-85 0 -161 -32t-127.5 -98t-51.5 -153q0 -93 64.5 -154.5t158.5 -61.5q22 0 43 3q-13 -29 -13 -54q0 -44 40 -94q-175 -12 -257 -63q-47 -29 -75.5 -73t-28.5 -95 q0 -43 18.5 -77.5t48.5 -56.5t69 -37t77.5 -21t76.5 -6q60 0 120.5 15.5t113.5 46t86 82.5t33 117q0 49 -20 89.5t-49 66.5t-58 47.5t-49 44t-20 44.5t15.5 42.5t37.5 39.5t44 42t37.5 59.5t15.5 82.5q0 60 -22.5 99.5t-72.5 90.5h83zM1152 672h128v64h-128v128h-64v-128 h-128v-64h128v-160h64v160zM1536 1120v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf0d5;" horiz-adv-x="1664" d="M735 740q0 -36 32 -70.5t77.5 -68t90.5 -73.5t77 -104t32 -142q0 -90 -48 -173q-72 -122 -211 -179.5t-298 -57.5q-132 0 -246.5 41.5t-171.5 137.5q-37 60 -37 131q0 81 44.5 150t118.5 115q131 82 404 100q-32 42 -47.5 74t-15.5 73q0 36 21 85q-46 -4 -68 -4 q-148 0 -249.5 96.5t-101.5 244.5q0 82 36 159t99 131q77 66 182.5 98t217.5 32h418l-138 -88h-131q74 -63 112 -133t38 -160q0 -72 -24.5 -129.5t-59 -93t-69.5 -65t-59.5 -61.5t-24.5 -66zM589 836q38 0 78 16.5t66 43.5q53 57 53 159q0 58 -17 125t-48.5 129.5 t-84.5 103.5t-117 41q-42 0 -82.5 -19.5t-65.5 -52.5q-47 -59 -47 -160q0 -46 10 -97.5t31.5 -103t52 -92.5t75 -67t96.5 -26zM591 -37q58 0 111.5 13t99 39t73 73t27.5 109q0 25 -7 49t-14.5 42t-27 41.5t-29.5 35t-38.5 34.5t-36.5 29t-41.5 30t-36.5 26q-16 2 -48 2 q-53 0 -105 -7t-107.5 -25t-97 -46t-68.5 -74.5t-27 -105.5q0 -70 35 -123.5t91.5 -83t119 -44t127.5 -14.5zM1401 839h213v-108h-213v-219h-105v219h-212v108h212v217h105v-217z" />
+<glyph unicode="&#xf0d6;" horiz-adv-x="1920" d="M768 384h384v96h-128v448h-114l-148 -137l77 -80q42 37 55 57h2v-288h-128v-96zM1280 640q0 -70 -21 -142t-59.5 -134t-101.5 -101t-138 -39t-138 39t-101.5 101t-59.5 134t-21 142t21 142t59.5 134t101.5 101t138 39t138 -39t101.5 -101t59.5 -134t21 -142zM1792 384 v512q-106 0 -181 75t-75 181h-1152q0 -106 -75 -181t-181 -75v-512q106 0 181 -75t75 -181h1152q0 106 75 181t181 75zM1920 1216v-1152q0 -26 -19 -45t-45 -19h-1792q-26 0 -45 19t-19 45v1152q0 26 19 45t45 19h1792q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf0d7;" horiz-adv-x="1024" d="M1024 832q0 -26 -19 -45l-448 -448q-19 -19 -45 -19t-45 19l-448 448q-19 19 -19 45t19 45t45 19h896q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf0d8;" horiz-adv-x="1024" d="M1024 320q0 -26 -19 -45t-45 -19h-896q-26 0 -45 19t-19 45t19 45l448 448q19 19 45 19t45 -19l448 -448q19 -19 19 -45z" />
+<glyph unicode="&#xf0d9;" horiz-adv-x="640" d="M640 1088v-896q0 -26 -19 -45t-45 -19t-45 19l-448 448q-19 19 -19 45t19 45l448 448q19 19 45 19t45 -19t19 -45z" />
+<glyph unicode="&#xf0da;" horiz-adv-x="640" d="M576 640q0 -26 -19 -45l-448 -448q-19 -19 -45 -19t-45 19t-19 45v896q0 26 19 45t45 19t45 -19l448 -448q19 -19 19 -45z" />
+<glyph unicode="&#xf0db;" horiz-adv-x="1664" d="M160 0h608v1152h-640v-1120q0 -13 9.5 -22.5t22.5 -9.5zM1536 32v1120h-640v-1152h608q13 0 22.5 9.5t9.5 22.5zM1664 1248v-1216q0 -66 -47 -113t-113 -47h-1344q-66 0 -113 47t-47 113v1216q0 66 47 113t113 47h1344q66 0 113 -47t47 -113z" />
+<glyph unicode="&#xf0dc;" horiz-adv-x="1024" d="M1024 448q0 -26 -19 -45l-448 -448q-19 -19 -45 -19t-45 19l-448 448q-19 19 -19 45t19 45t45 19h896q26 0 45 -19t19 -45zM1024 832q0 -26 -19 -45t-45 -19h-896q-26 0 -45 19t-19 45t19 45l448 448q19 19 45 19t45 -19l448 -448q19 -19 19 -45z" />
+<glyph unicode="&#xf0dd;" horiz-adv-x="1024" d="M1024 448q0 -26 -19 -45l-448 -448q-19 -19 -45 -19t-45 19l-448 448q-19 19 -19 45t19 45t45 19h896q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf0de;" horiz-adv-x="1024" d="M1024 832q0 -26 -19 -45t-45 -19h-896q-26 0 -45 19t-19 45t19 45l448 448q19 19 45 19t45 -19l448 -448q19 -19 19 -45z" />
+<glyph unicode="&#xf0e0;" horiz-adv-x="1792" d="M1792 826v-794q0 -66 -47 -113t-113 -47h-1472q-66 0 -113 47t-47 113v794q44 -49 101 -87q362 -246 497 -345q57 -42 92.5 -65.5t94.5 -48t110 -24.5h1h1q51 0 110 24.5t94.5 48t92.5 65.5q170 123 498 345q57 39 100 87zM1792 1120q0 -79 -49 -151t-122 -123 q-376 -261 -468 -325q-10 -7 -42.5 -30.5t-54 -38t-52 -32.5t-57.5 -27t-50 -9h-1h-1q-23 0 -50 9t-57.5 27t-52 32.5t-54 38t-42.5 30.5q-91 64 -262 182.5t-205 142.5q-62 42 -117 115.5t-55 136.5q0 78 41.5 130t118.5 52h1472q65 0 112.5 -47t47.5 -113z" />
+<glyph unicode="&#xf0e1;" d="M349 911v-991h-330v991h330zM370 1217q1 -73 -50.5 -122t-135.5 -49h-2q-82 0 -132 49t-50 122q0 74 51.5 122.5t134.5 48.5t133 -48.5t51 -122.5zM1536 488v-568h-329v530q0 105 -40.5 164.5t-126.5 59.5q-63 0 -105.5 -34.5t-63.5 -85.5q-11 -30 -11 -81v-553h-329 q2 399 2 647t-1 296l-1 48h329v-144h-2q20 32 41 56t56.5 52t87 43.5t114.5 15.5q171 0 275 -113.5t104 -332.5z" />
+<glyph unicode="&#xf0e2;" d="M1536 640q0 -156 -61 -298t-164 -245t-245 -164t-298 -61q-172 0 -327 72.5t-264 204.5q-7 10 -6.5 22.5t8.5 20.5l137 138q10 9 25 9q16 -2 23 -12q73 -95 179 -147t225 -52q104 0 198.5 40.5t163.5 109.5t109.5 163.5t40.5 198.5t-40.5 198.5t-109.5 163.5 t-163.5 109.5t-198.5 40.5q-98 0 -188 -35.5t-160 -101.5l137 -138q31 -30 14 -69q-17 -40 -59 -40h-448q-26 0 -45 19t-19 45v448q0 42 40 59q39 17 69 -14l130 -129q107 101 244.5 156.5t284.5 55.5q156 0 298 -61t245 -164t164 -245t61 -298z" />
+<glyph unicode="&#xf0e3;" horiz-adv-x="1792" d="M1771 0q0 -53 -37 -90l-107 -108q-39 -37 -91 -37q-53 0 -90 37l-363 364q-38 36 -38 90q0 53 43 96l-256 256l-126 -126q-14 -14 -34 -14t-34 14q2 -2 12.5 -12t12.5 -13t10 -11.5t10 -13.5t6 -13.5t5.5 -16.5t1.5 -18q0 -38 -28 -68q-3 -3 -16.5 -18t-19 -20.5 t-18.5 -16.5t-22 -15.5t-22 -9t-26 -4.5q-40 0 -68 28l-408 408q-28 28 -28 68q0 13 4.5 26t9 22t15.5 22t16.5 18.5t20.5 19t18 16.5q30 28 68 28q10 0 18 -1.5t16.5 -5.5t13.5 -6t13.5 -10t11.5 -10t13 -12.5t12 -12.5q-14 14 -14 34t14 34l348 348q14 14 34 14t34 -14 q-2 2 -12.5 12t-12.5 13t-10 11.5t-10 13.5t-6 13.5t-5.5 16.5t-1.5 18q0 38 28 68q3 3 16.5 18t19 20.5t18.5 16.5t22 15.5t22 9t26 4.5q40 0 68 -28l408 -408q28 -28 28 -68q0 -13 -4.5 -26t-9 -22t-15.5 -22t-16.5 -18.5t-20.5 -19t-18 -16.5q-30 -28 -68 -28 q-10 0 -18 1.5t-16.5 5.5t-13.5 6t-13.5 10t-11.5 10t-13 12.5t-12 12.5q14 -14 14 -34t-14 -34l-126 -126l256 -256q43 43 96 43q52 0 91 -37l363 -363q37 -39 37 -91z" />
+<glyph unicode="&#xf0e4;" horiz-adv-x="1792" d="M384 384q0 53 -37.5 90.5t-90.5 37.5t-90.5 -37.5t-37.5 -90.5t37.5 -90.5t90.5 -37.5t90.5 37.5t37.5 90.5zM576 832q0 53 -37.5 90.5t-90.5 37.5t-90.5 -37.5t-37.5 -90.5t37.5 -90.5t90.5 -37.5t90.5 37.5t37.5 90.5zM1004 351l101 382q6 26 -7.5 48.5t-38.5 29.5 t-48 -6.5t-30 -39.5l-101 -382q-60 -5 -107 -43.5t-63 -98.5q-20 -77 20 -146t117 -89t146 20t89 117q16 60 -6 117t-72 91zM1664 384q0 53 -37.5 90.5t-90.5 37.5t-90.5 -37.5t-37.5 -90.5t37.5 -90.5t90.5 -37.5t90.5 37.5t37.5 90.5zM1024 1024q0 53 -37.5 90.5 t-90.5 37.5t-90.5 -37.5t-37.5 -90.5t37.5 -90.5t90.5 -37.5t90.5 37.5t37.5 90.5zM1472 832q0 53 -37.5 90.5t-90.5 37.5t-90.5 -37.5t-37.5 -90.5t37.5 -90.5t90.5 -37.5t90.5 37.5t37.5 90.5zM1792 384q0 -261 -141 -483q-19 -29 -54 -29h-1402q-35 0 -54 29 q-141 221 -141 483q0 182 71 348t191 286t286 191t348 71t348 -71t286 -191t191 -286t71 -348z" />
+<glyph unicode="&#xf0e5;" horiz-adv-x="1792" d="M896 1152q-204 0 -381.5 -69.5t-282 -187.5t-104.5 -255q0 -112 71.5 -213.5t201.5 -175.5l87 -50l-27 -96q-24 -91 -70 -172q152 63 275 171l43 38l57 -6q69 -8 130 -8q204 0 381.5 69.5t282 187.5t104.5 255t-104.5 255t-282 187.5t-381.5 69.5zM1792 640 q0 -174 -120 -321.5t-326 -233t-450 -85.5q-70 0 -145 8q-198 -175 -460 -242q-49 -14 -114 -22h-5q-15 0 -27 10.5t-16 27.5v1q-3 4 -0.5 12t2 10t4.5 9.5l6 9t7 8.5t8 9q7 8 31 34.5t34.5 38t31 39.5t32.5 51t27 59t26 76q-157 89 -247.5 220t-90.5 281q0 174 120 321.5 t326 233t450 85.5t450 -85.5t326 -233t120 -321.5z" />
+<glyph unicode="&#xf0e6;" horiz-adv-x="1792" d="M704 1152q-153 0 -286 -52t-211.5 -141t-78.5 -191q0 -82 53 -158t149 -132l97 -56l-35 -84q34 20 62 39l44 31l53 -10q78 -14 153 -14q153 0 286 52t211.5 141t78.5 191t-78.5 191t-211.5 141t-286 52zM704 1280q191 0 353.5 -68.5t256.5 -186.5t94 -257t-94 -257 t-256.5 -186.5t-353.5 -68.5q-86 0 -176 16q-124 -88 -278 -128q-36 -9 -86 -16h-3q-11 0 -20.5 8t-11.5 21q-1 3 -1 6.5t0.5 6.5t2 6l2.5 5t3.5 5.5t4 5t4.5 5t4 4.5q5 6 23 25t26 29.5t22.5 29t25 38.5t20.5 44q-124 72 -195 177t-71 224q0 139 94 257t256.5 186.5 t353.5 68.5zM1526 111q10 -24 20.5 -44t25 -38.5t22.5 -29t26 -29.5t23 -25q1 -1 4 -4.5t4.5 -5t4 -5t3.5 -5.5l2.5 -5t2 -6t0.5 -6.5t-1 -6.5q-3 -14 -13 -22t-22 -7q-50 7 -86 16q-154 40 -278 128q-90 -16 -176 -16q-271 0 -472 132q58 -4 88 -4q161 0 309 45t264 129 q125 92 192 212t67 254q0 77 -23 152q129 -71 204 -178t75 -230q0 -120 -71 -224.5t-195 -176.5z" />
+<glyph unicode="&#xf0e7;" horiz-adv-x="896" d="M885 970q18 -20 7 -44l-540 -1157q-13 -25 -42 -25q-4 0 -14 2q-17 5 -25.5 19t-4.5 30l197 808l-406 -101q-4 -1 -12 -1q-18 0 -31 11q-18 15 -13 39l201 825q4 14 16 23t28 9h328q19 0 32 -12.5t13 -29.5q0 -8 -5 -18l-171 -463l396 98q8 2 12 2q19 0 34 -15z" />
+<glyph unicode="&#xf0e8;" horiz-adv-x="1792" d="M1792 288v-320q0 -40 -28 -68t-68 -28h-320q-40 0 -68 28t-28 68v320q0 40 28 68t68 28h96v192h-512v-192h96q40 0 68 -28t28 -68v-320q0 -40 -28 -68t-68 -28h-320q-40 0 -68 28t-28 68v320q0 40 28 68t68 28h96v192h-512v-192h96q40 0 68 -28t28 -68v-320 q0 -40 -28 -68t-68 -28h-320q-40 0 -68 28t-28 68v320q0 40 28 68t68 28h96v192q0 52 38 90t90 38h512v192h-96q-40 0 -68 28t-28 68v320q0 40 28 68t68 28h320q40 0 68 -28t28 -68v-320q0 -40 -28 -68t-68 -28h-96v-192h512q52 0 90 -38t38 -90v-192h96q40 0 68 -28t28 -68 z" />
+<glyph unicode="&#xf0e9;" horiz-adv-x="1664" d="M896 708v-580q0 -104 -76 -180t-180 -76t-180 76t-76 180q0 26 19 45t45 19t45 -19t19 -45q0 -50 39 -89t89 -39t89 39t39 89v580q33 11 64 11t64 -11zM1664 681q0 -13 -9.5 -22.5t-22.5 -9.5q-11 0 -23 10q-49 46 -93 69t-102 23q-68 0 -128 -37t-103 -97 q-7 -10 -17.5 -28t-14.5 -24q-11 -17 -28 -17q-18 0 -29 17q-4 6 -14.5 24t-17.5 28q-43 60 -102.5 97t-127.5 37t-127.5 -37t-102.5 -97q-7 -10 -17.5 -28t-14.5 -24q-11 -17 -29 -17q-17 0 -28 17q-4 6 -14.5 24t-17.5 28q-43 60 -103 97t-128 37q-58 0 -102 -23t-93 -69 q-12 -10 -23 -10q-13 0 -22.5 9.5t-9.5 22.5q0 5 1 7q45 183 172.5 319.5t298 204.5t360.5 68q140 0 274.5 -40t246.5 -113.5t194.5 -187t115.5 -251.5q1 -2 1 -7zM896 1408v-98q-42 2 -64 2t-64 -2v98q0 26 19 45t45 19t45 -19t19 -45z" />
+<glyph unicode="&#xf0ea;" horiz-adv-x="1792" d="M768 -128h896v640h-416q-40 0 -68 28t-28 68v416h-384v-1152zM1024 1312v64q0 13 -9.5 22.5t-22.5 9.5h-704q-13 0 -22.5 -9.5t-9.5 -22.5v-64q0 -13 9.5 -22.5t22.5 -9.5h704q13 0 22.5 9.5t9.5 22.5zM1280 640h299l-299 299v-299zM1792 512v-672q0 -40 -28 -68t-68 -28 h-960q-40 0 -68 28t-28 68v160h-544q-40 0 -68 28t-28 68v1344q0 40 28 68t68 28h1088q40 0 68 -28t28 -68v-328q21 -13 36 -28l408 -408q28 -28 48 -76t20 -88z" />
+<glyph unicode="&#xf0eb;" horiz-adv-x="1024" d="M736 960q0 -13 -9.5 -22.5t-22.5 -9.5t-22.5 9.5t-9.5 22.5q0 46 -54 71t-106 25q-13 0 -22.5 9.5t-9.5 22.5t9.5 22.5t22.5 9.5q50 0 99.5 -16t87 -54t37.5 -90zM896 960q0 72 -34.5 134t-90 101.5t-123 62t-136.5 22.5t-136.5 -22.5t-123 -62t-90 -101.5t-34.5 -134 q0 -101 68 -180q10 -11 30.5 -33t30.5 -33q128 -153 141 -298h228q13 145 141 298q10 11 30.5 33t30.5 33q68 79 68 180zM1024 960q0 -155 -103 -268q-45 -49 -74.5 -87t-59.5 -95.5t-34 -107.5q47 -28 47 -82q0 -37 -25 -64q25 -27 25 -64q0 -52 -45 -81q13 -23 13 -47 q0 -46 -31.5 -71t-77.5 -25q-20 -44 -60 -70t-87 -26t-87 26t-60 70q-46 0 -77.5 25t-31.5 71q0 24 13 47q-45 29 -45 81q0 37 25 64q-25 27 -25 64q0 54 47 82q-4 50 -34 107.5t-59.5 95.5t-74.5 87q-103 113 -103 268q0 99 44.5 184.5t117 142t164 89t186.5 32.5 t186.5 -32.5t164 -89t117 -142t44.5 -184.5z" />
+<glyph unicode="&#xf0ec;" horiz-adv-x="1792" d="M1792 352v-192q0 -13 -9.5 -22.5t-22.5 -9.5h-1376v-192q0 -13 -9.5 -22.5t-22.5 -9.5q-12 0 -24 10l-319 320q-9 9 -9 22q0 14 9 23l320 320q9 9 23 9q13 0 22.5 -9.5t9.5 -22.5v-192h1376q13 0 22.5 -9.5t9.5 -22.5zM1792 896q0 -14 -9 -23l-320 -320q-9 -9 -23 -9 q-13 0 -22.5 9.5t-9.5 22.5v192h-1376q-13 0 -22.5 9.5t-9.5 22.5v192q0 13 9.5 22.5t22.5 9.5h1376v192q0 14 9 23t23 9q12 0 24 -10l319 -319q9 -9 9 -23z" />
+<glyph unicode="&#xf0ed;" horiz-adv-x="1920" d="M1280 608q0 14 -9 23t-23 9h-224v352q0 13 -9.5 22.5t-22.5 9.5h-192q-13 0 -22.5 -9.5t-9.5 -22.5v-352h-224q-13 0 -22.5 -9.5t-9.5 -22.5q0 -14 9 -23l352 -352q9 -9 23 -9t23 9l351 351q10 12 10 24zM1920 384q0 -159 -112.5 -271.5t-271.5 -112.5h-1088 q-185 0 -316.5 131.5t-131.5 316.5q0 130 70 240t188 165q-2 30 -2 43q0 212 150 362t362 150q156 0 285.5 -87t188.5 -231q71 62 166 62q106 0 181 -75t75 -181q0 -76 -41 -138q130 -31 213.5 -135.5t83.5 -238.5z" />
+<glyph unicode="&#xf0ee;" horiz-adv-x="1920" d="M1280 672q0 14 -9 23l-352 352q-9 9 -23 9t-23 -9l-351 -351q-10 -12 -10 -24q0 -14 9 -23t23 -9h224v-352q0 -13 9.5 -22.5t22.5 -9.5h192q13 0 22.5 9.5t9.5 22.5v352h224q13 0 22.5 9.5t9.5 22.5zM1920 384q0 -159 -112.5 -271.5t-271.5 -112.5h-1088 q-185 0 -316.5 131.5t-131.5 316.5q0 130 70 240t188 165q-2 30 -2 43q0 212 150 362t362 150q156 0 285.5 -87t188.5 -231q71 62 166 62q106 0 181 -75t75 -181q0 -76 -41 -138q130 -31 213.5 -135.5t83.5 -238.5z" />
+<glyph unicode="&#xf0f0;" horiz-adv-x="1408" d="M384 192q0 -26 -19 -45t-45 -19t-45 19t-19 45t19 45t45 19t45 -19t19 -45zM1408 131q0 -121 -73 -190t-194 -69h-874q-121 0 -194 69t-73 190q0 68 5.5 131t24 138t47.5 132.5t81 103t120 60.5q-22 -52 -22 -120v-203q-58 -20 -93 -70t-35 -111q0 -80 56 -136t136 -56 t136 56t56 136q0 61 -35.5 111t-92.5 70v203q0 62 25 93q132 -104 295 -104t295 104q25 -31 25 -93v-64q-106 0 -181 -75t-75 -181v-89q-32 -29 -32 -71q0 -40 28 -68t68 -28t68 28t28 68q0 42 -32 71v89q0 52 38 90t90 38t90 -38t38 -90v-89q-32 -29 -32 -71q0 -40 28 -68 t68 -28t68 28t28 68q0 42 -32 71v89q0 68 -34.5 127.5t-93.5 93.5q0 10 0.5 42.5t0 48t-2.5 41.5t-7 47t-13 40q68 -15 120 -60.5t81 -103t47.5 -132.5t24 -138t5.5 -131zM1088 1024q0 -159 -112.5 -271.5t-271.5 -112.5t-271.5 112.5t-112.5 271.5t112.5 271.5t271.5 112.5 t271.5 -112.5t112.5 -271.5z" />
+<glyph unicode="&#xf0f1;" horiz-adv-x="1408" d="M1280 832q0 26 -19 45t-45 19t-45 -19t-19 -45t19 -45t45 -19t45 19t19 45zM1408 832q0 -62 -35.5 -111t-92.5 -70v-395q0 -159 -131.5 -271.5t-316.5 -112.5t-316.5 112.5t-131.5 271.5v132q-164 20 -274 128t-110 252v512q0 26 19 45t45 19q6 0 16 -2q17 30 47 48 t65 18q53 0 90.5 -37.5t37.5 -90.5t-37.5 -90.5t-90.5 -37.5q-33 0 -64 18v-402q0 -106 94 -181t226 -75t226 75t94 181v402q-31 -18 -64 -18q-53 0 -90.5 37.5t-37.5 90.5t37.5 90.5t90.5 37.5q35 0 65 -18t47 -48q10 2 16 2q26 0 45 -19t19 -45v-512q0 -144 -110 -252 t-274 -128v-132q0 -106 94 -181t226 -75t226 75t94 181v395q-57 21 -92.5 70t-35.5 111q0 80 56 136t136 56t136 -56t56 -136z" />
+<glyph unicode="&#xf0f2;" horiz-adv-x="1792" d="M640 1152h512v128h-512v-128zM288 1152v-1280h-64q-92 0 -158 66t-66 158v832q0 92 66 158t158 66h64zM1408 1152v-1280h-1024v1280h128v160q0 40 28 68t68 28h576q40 0 68 -28t28 -68v-160h128zM1792 928v-832q0 -92 -66 -158t-158 -66h-64v1280h64q92 0 158 -66 t66 -158z" />
+<glyph unicode="&#xf0f3;" horiz-adv-x="1792" d="M912 -160q0 16 -16 16q-59 0 -101.5 42.5t-42.5 101.5q0 16 -16 16t-16 -16q0 -73 51.5 -124.5t124.5 -51.5q16 0 16 16zM1728 128q0 -52 -38 -90t-90 -38h-448q0 -106 -75 -181t-181 -75t-181 75t-75 181h-448q-52 0 -90 38t-38 90q50 42 91 88t85 119.5t74.5 158.5 t50 206t19.5 260q0 152 117 282.5t307 158.5q-8 19 -8 39q0 40 28 68t68 28t68 -28t28 -68q0 -20 -8 -39q190 -28 307 -158.5t117 -282.5q0 -139 19.5 -260t50 -206t74.5 -158.5t85 -119.5t91 -88z" />
+<glyph unicode="&#xf0f4;" horiz-adv-x="1920" d="M1664 896q0 80 -56 136t-136 56h-64v-384h64q80 0 136 56t56 136zM0 128h1792q0 -106 -75 -181t-181 -75h-1280q-106 0 -181 75t-75 181zM1856 896q0 -159 -112.5 -271.5t-271.5 -112.5h-64v-32q0 -92 -66 -158t-158 -66h-704q-92 0 -158 66t-66 158v736q0 26 19 45 t45 19h1152q159 0 271.5 -112.5t112.5 -271.5z" />
+<glyph unicode="&#xf0f5;" horiz-adv-x="1408" d="M640 1472v-640q0 -61 -35.5 -111t-92.5 -70v-779q0 -52 -38 -90t-90 -38h-128q-52 0 -90 38t-38 90v779q-57 20 -92.5 70t-35.5 111v640q0 26 19 45t45 19t45 -19t19 -45v-416q0 -26 19 -45t45 -19t45 19t19 45v416q0 26 19 45t45 19t45 -19t19 -45v-416q0 -26 19 -45 t45 -19t45 19t19 45v416q0 26 19 45t45 19t45 -19t19 -45zM1408 1472v-1600q0 -52 -38 -90t-90 -38h-128q-52 0 -90 38t-38 90v512h-224q-13 0 -22.5 9.5t-9.5 22.5v800q0 132 94 226t226 94h256q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf0f6;" d="M1468 1156q28 -28 48 -76t20 -88v-1152q0 -40 -28 -68t-68 -28h-1344q-40 0 -68 28t-28 68v1600q0 40 28 68t68 28h896q40 0 88 -20t76 -48zM1024 1400v-376h376q-10 29 -22 41l-313 313q-12 12 -41 22zM1408 -128v1024h-416q-40 0 -68 28t-28 68v416h-768v-1536h1280z M384 736q0 14 9 23t23 9h704q14 0 23 -9t9 -23v-64q0 -14 -9 -23t-23 -9h-704q-14 0 -23 9t-9 23v64zM1120 512q14 0 23 -9t9 -23v-64q0 -14 -9 -23t-23 -9h-704q-14 0 -23 9t-9 23v64q0 14 9 23t23 9h704zM1120 256q14 0 23 -9t9 -23v-64q0 -14 -9 -23t-23 -9h-704 q-14 0 -23 9t-9 23v64q0 14 9 23t23 9h704z" />
+<glyph unicode="&#xf0f7;" horiz-adv-x="1408" d="M384 224v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5zM384 480v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5z M640 480v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5zM384 736v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5z M1152 224v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5zM896 480v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5z M640 736v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5zM384 992v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5z M1152 480v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5zM896 736v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5z M640 992v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5zM384 1248v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5z M1152 736v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5zM896 992v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5z M640 1248v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5zM1152 992v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5z M896 1248v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5zM1152 1248v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5z M896 -128h384v1536h-1152v-1536h384v224q0 13 9.5 22.5t22.5 9.5h320q13 0 22.5 -9.5t9.5 -22.5v-224zM1408 1472v-1664q0 -26 -19 -45t-45 -19h-1280q-26 0 -45 19t-19 45v1664q0 26 19 45t45 19h1280q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf0f8;" horiz-adv-x="1408" d="M384 224v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5zM384 480v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5z M640 480v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5zM384 736v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5z M1152 224v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5zM896 480v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5z M640 736v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5zM1152 480v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5z M896 736v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5zM1152 736v-64q0 -13 -9.5 -22.5t-22.5 -9.5h-64q-13 0 -22.5 9.5t-9.5 22.5v64q0 13 9.5 22.5t22.5 9.5h64q13 0 22.5 -9.5t9.5 -22.5z M896 -128h384v1152h-256v-32q0 -40 -28 -68t-68 -28h-448q-40 0 -68 28t-28 68v32h-256v-1152h384v224q0 13 9.5 22.5t22.5 9.5h320q13 0 22.5 -9.5t9.5 -22.5v-224zM896 1056v320q0 13 -9.5 22.5t-22.5 9.5h-64q-13 0 -22.5 -9.5t-9.5 -22.5v-96h-128v96q0 13 -9.5 22.5 t-22.5 9.5h-64q-13 0 -22.5 -9.5t-9.5 -22.5v-320q0 -13 9.5 -22.5t22.5 -9.5h64q13 0 22.5 9.5t9.5 22.5v96h128v-96q0 -13 9.5 -22.5t22.5 -9.5h64q13 0 22.5 9.5t9.5 22.5zM1408 1088v-1280q0 -26 -19 -45t-45 -19h-1280q-26 0 -45 19t-19 45v1280q0 26 19 45t45 19h320 v288q0 40 28 68t68 28h448q40 0 68 -28t28 -68v-288h320q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf0f9;" horiz-adv-x="1920" d="M640 128q0 53 -37.5 90.5t-90.5 37.5t-90.5 -37.5t-37.5 -90.5t37.5 -90.5t90.5 -37.5t90.5 37.5t37.5 90.5zM256 640h384v256h-158q-14 -2 -22 -9l-195 -195q-7 -12 -9 -22v-30zM1536 128q0 53 -37.5 90.5t-90.5 37.5t-90.5 -37.5t-37.5 -90.5t37.5 -90.5t90.5 -37.5 t90.5 37.5t37.5 90.5zM1664 800v192q0 14 -9 23t-23 9h-224v224q0 14 -9 23t-23 9h-192q-14 0 -23 -9t-9 -23v-224h-224q-14 0 -23 -9t-9 -23v-192q0 -14 9 -23t23 -9h224v-224q0 -14 9 -23t23 -9h192q14 0 23 9t9 23v224h224q14 0 23 9t9 23zM1920 1344v-1152 q0 -26 -19 -45t-45 -19h-192q0 -106 -75 -181t-181 -75t-181 75t-75 181h-384q0 -106 -75 -181t-181 -75t-181 75t-75 181h-128q-26 0 -45 19t-19 45t19 45t45 19v416q0 26 13 58t32 51l198 198q19 19 51 32t58 13h160v320q0 26 19 45t45 19h1152q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf0fa;" horiz-adv-x="1792" d="M1280 416v192q0 14 -9 23t-23 9h-224v224q0 14 -9 23t-23 9h-192q-14 0 -23 -9t-9 -23v-224h-224q-14 0 -23 -9t-9 -23v-192q0 -14 9 -23t23 -9h224v-224q0 -14 9 -23t23 -9h192q14 0 23 9t9 23v224h224q14 0 23 9t9 23zM640 1152h512v128h-512v-128zM256 1152v-1280h-32 q-92 0 -158 66t-66 158v832q0 92 66 158t158 66h32zM1440 1152v-1280h-1088v1280h160v160q0 40 28 68t68 28h576q40 0 68 -28t28 -68v-160h160zM1792 928v-832q0 -92 -66 -158t-158 -66h-32v1280h32q92 0 158 -66t66 -158z" />
+<glyph unicode="&#xf0fb;" horiz-adv-x="1920" d="M1920 576q-1 -32 -288 -96l-352 -32l-224 -64h-64l-293 -352h69q26 0 45 -4.5t19 -11.5t-19 -11.5t-45 -4.5h-96h-160h-64v32h64v416h-160l-192 -224h-96l-32 32v192h32v32h128v8l-192 24v128l192 24v8h-128v32h-32v192l32 32h96l192 -224h160v416h-64v32h64h160h96 q26 0 45 -4.5t19 -11.5t-19 -11.5t-45 -4.5h-69l293 -352h64l224 -64l352 -32q261 -58 287 -93z" />
+<glyph unicode="&#xf0fc;" horiz-adv-x="1664" d="M640 640v384h-256v-256q0 -53 37.5 -90.5t90.5 -37.5h128zM1664 192v-192h-1152v192l128 192h-128q-159 0 -271.5 112.5t-112.5 271.5v320l-64 64l32 128h480l32 128h960l32 -192l-64 -32v-800z" />
+<glyph unicode="&#xf0fd;" d="M1280 192v896q0 26 -19 45t-45 19h-128q-26 0 -45 -19t-19 -45v-320h-512v320q0 26 -19 45t-45 19h-128q-26 0 -45 -19t-19 -45v-896q0 -26 19 -45t45 -19h128q26 0 45 19t19 45v320h512v-320q0 -26 19 -45t45 -19h128q26 0 45 19t19 45zM1536 1120v-960 q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf0fe;" d="M1280 576v128q0 26 -19 45t-45 19h-320v320q0 26 -19 45t-45 19h-128q-26 0 -45 -19t-19 -45v-320h-320q-26 0 -45 -19t-19 -45v-128q0 -26 19 -45t45 -19h320v-320q0 -26 19 -45t45 -19h128q26 0 45 19t19 45v320h320q26 0 45 19t19 45zM1536 1120v-960 q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf100;" horiz-adv-x="1024" d="M627 160q0 -13 -10 -23l-50 -50q-10 -10 -23 -10t-23 10l-466 466q-10 10 -10 23t10 23l466 466q10 10 23 10t23 -10l50 -50q10 -10 10 -23t-10 -23l-393 -393l393 -393q10 -10 10 -23zM1011 160q0 -13 -10 -23l-50 -50q-10 -10 -23 -10t-23 10l-466 466q-10 10 -10 23 t10 23l466 466q10 10 23 10t23 -10l50 -50q10 -10 10 -23t-10 -23l-393 -393l393 -393q10 -10 10 -23z" />
+<glyph unicode="&#xf101;" horiz-adv-x="1024" d="M595 576q0 -13 -10 -23l-466 -466q-10 -10 -23 -10t-23 10l-50 50q-10 10 -10 23t10 23l393 393l-393 393q-10 10 -10 23t10 23l50 50q10 10 23 10t23 -10l466 -466q10 -10 10 -23zM979 576q0 -13 -10 -23l-466 -466q-10 -10 -23 -10t-23 10l-50 50q-10 10 -10 23t10 23 l393 393l-393 393q-10 10 -10 23t10 23l50 50q10 10 23 10t23 -10l466 -466q10 -10 10 -23z" />
+<glyph unicode="&#xf102;" horiz-adv-x="1152" d="M1075 224q0 -13 -10 -23l-50 -50q-10 -10 -23 -10t-23 10l-393 393l-393 -393q-10 -10 -23 -10t-23 10l-50 50q-10 10 -10 23t10 23l466 466q10 10 23 10t23 -10l466 -466q10 -10 10 -23zM1075 608q0 -13 -10 -23l-50 -50q-10 -10 -23 -10t-23 10l-393 393l-393 -393 q-10 -10 -23 -10t-23 10l-50 50q-10 10 -10 23t10 23l466 466q10 10 23 10t23 -10l466 -466q10 -10 10 -23z" />
+<glyph unicode="&#xf103;" horiz-adv-x="1152" d="M1075 672q0 -13 -10 -23l-466 -466q-10 -10 -23 -10t-23 10l-466 466q-10 10 -10 23t10 23l50 50q10 10 23 10t23 -10l393 -393l393 393q10 10 23 10t23 -10l50 -50q10 -10 10 -23zM1075 1056q0 -13 -10 -23l-466 -466q-10 -10 -23 -10t-23 10l-466 466q-10 10 -10 23 t10 23l50 50q10 10 23 10t23 -10l393 -393l393 393q10 10 23 10t23 -10l50 -50q10 -10 10 -23z" />
+<glyph unicode="&#xf104;" horiz-adv-x="640" d="M627 992q0 -13 -10 -23l-393 -393l393 -393q10 -10 10 -23t-10 -23l-50 -50q-10 -10 -23 -10t-23 10l-466 466q-10 10 -10 23t10 23l466 466q10 10 23 10t23 -10l50 -50q10 -10 10 -23z" />
+<glyph unicode="&#xf105;" horiz-adv-x="640" d="M595 576q0 -13 -10 -23l-466 -466q-10 -10 -23 -10t-23 10l-50 50q-10 10 -10 23t10 23l393 393l-393 393q-10 10 -10 23t10 23l50 50q10 10 23 10t23 -10l466 -466q10 -10 10 -23z" />
+<glyph unicode="&#xf106;" horiz-adv-x="1152" d="M1075 352q0 -13 -10 -23l-50 -50q-10 -10 -23 -10t-23 10l-393 393l-393 -393q-10 -10 -23 -10t-23 10l-50 50q-10 10 -10 23t10 23l466 466q10 10 23 10t23 -10l466 -466q10 -10 10 -23z" />
+<glyph unicode="&#xf107;" horiz-adv-x="1152" d="M1075 800q0 -13 -10 -23l-466 -466q-10 -10 -23 -10t-23 10l-466 466q-10 10 -10 23t10 23l50 50q10 10 23 10t23 -10l393 -393l393 393q10 10 23 10t23 -10l50 -50q10 -10 10 -23z" />
+<glyph unicode="&#xf108;" horiz-adv-x="1920" d="M1792 544v832q0 13 -9.5 22.5t-22.5 9.5h-1600q-13 0 -22.5 -9.5t-9.5 -22.5v-832q0 -13 9.5 -22.5t22.5 -9.5h1600q13 0 22.5 9.5t9.5 22.5zM1920 1376v-1088q0 -66 -47 -113t-113 -47h-544q0 -37 16 -77.5t32 -71t16 -43.5q0 -26 -19 -45t-45 -19h-512q-26 0 -45 19 t-19 45q0 14 16 44t32 70t16 78h-544q-66 0 -113 47t-47 113v1088q0 66 47 113t113 47h1600q66 0 113 -47t47 -113z" />
+<glyph unicode="&#xf109;" horiz-adv-x="1920" d="M416 256q-66 0 -113 47t-47 113v704q0 66 47 113t113 47h1088q66 0 113 -47t47 -113v-704q0 -66 -47 -113t-113 -47h-1088zM384 1120v-704q0 -13 9.5 -22.5t22.5 -9.5h1088q13 0 22.5 9.5t9.5 22.5v704q0 13 -9.5 22.5t-22.5 9.5h-1088q-13 0 -22.5 -9.5t-9.5 -22.5z M1760 192h160v-96q0 -40 -47 -68t-113 -28h-1600q-66 0 -113 28t-47 68v96h160h1600zM1040 96q16 0 16 16t-16 16h-160q-16 0 -16 -16t16 -16h160z" />
+<glyph unicode="&#xf10a;" horiz-adv-x="1152" d="M640 128q0 26 -19 45t-45 19t-45 -19t-19 -45t19 -45t45 -19t45 19t19 45zM1024 288v960q0 13 -9.5 22.5t-22.5 9.5h-832q-13 0 -22.5 -9.5t-9.5 -22.5v-960q0 -13 9.5 -22.5t22.5 -9.5h832q13 0 22.5 9.5t9.5 22.5zM1152 1248v-1088q0 -66 -47 -113t-113 -47h-832 q-66 0 -113 47t-47 113v1088q0 66 47 113t113 47h832q66 0 113 -47t47 -113z" />
+<glyph unicode="&#xf10b;" horiz-adv-x="768" d="M464 128q0 33 -23.5 56.5t-56.5 23.5t-56.5 -23.5t-23.5 -56.5t23.5 -56.5t56.5 -23.5t56.5 23.5t23.5 56.5zM672 288v704q0 13 -9.5 22.5t-22.5 9.5h-512q-13 0 -22.5 -9.5t-9.5 -22.5v-704q0 -13 9.5 -22.5t22.5 -9.5h512q13 0 22.5 9.5t9.5 22.5zM480 1136 q0 16 -16 16h-160q-16 0 -16 -16t16 -16h160q16 0 16 16zM768 1152v-1024q0 -52 -38 -90t-90 -38h-512q-52 0 -90 38t-38 90v1024q0 52 38 90t90 38h512q52 0 90 -38t38 -90z" />
+<glyph unicode="&#xf10c;" d="M768 1184q-148 0 -273 -73t-198 -198t-73 -273t73 -273t198 -198t273 -73t273 73t198 198t73 273t-73 273t-198 198t-273 73zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103 t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf10d;" horiz-adv-x="1664" d="M768 576v-384q0 -80 -56 -136t-136 -56h-384q-80 0 -136 56t-56 136v704q0 104 40.5 198.5t109.5 163.5t163.5 109.5t198.5 40.5h64q26 0 45 -19t19 -45v-128q0 -26 -19 -45t-45 -19h-64q-106 0 -181 -75t-75 -181v-32q0 -40 28 -68t68 -28h224q80 0 136 -56t56 -136z M1664 576v-384q0 -80 -56 -136t-136 -56h-384q-80 0 -136 56t-56 136v704q0 104 40.5 198.5t109.5 163.5t163.5 109.5t198.5 40.5h64q26 0 45 -19t19 -45v-128q0 -26 -19 -45t-45 -19h-64q-106 0 -181 -75t-75 -181v-32q0 -40 28 -68t68 -28h224q80 0 136 -56t56 -136z" />
+<glyph unicode="&#xf10e;" horiz-adv-x="1664" d="M768 1216v-704q0 -104 -40.5 -198.5t-109.5 -163.5t-163.5 -109.5t-198.5 -40.5h-64q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h64q106 0 181 75t75 181v32q0 40 -28 68t-68 28h-224q-80 0 -136 56t-56 136v384q0 80 56 136t136 56h384q80 0 136 -56t56 -136zM1664 1216 v-704q0 -104 -40.5 -198.5t-109.5 -163.5t-163.5 -109.5t-198.5 -40.5h-64q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h64q106 0 181 75t75 181v32q0 40 -28 68t-68 28h-224q-80 0 -136 56t-56 136v384q0 80 56 136t136 56h384q80 0 136 -56t56 -136z" />
+<glyph unicode="&#xf110;" horiz-adv-x="1568" d="M496 192q0 -60 -42.5 -102t-101.5 -42q-60 0 -102 42t-42 102t42 102t102 42q59 0 101.5 -42t42.5 -102zM928 0q0 -53 -37.5 -90.5t-90.5 -37.5t-90.5 37.5t-37.5 90.5t37.5 90.5t90.5 37.5t90.5 -37.5t37.5 -90.5zM320 640q0 -66 -47 -113t-113 -47t-113 47t-47 113 t47 113t113 47t113 -47t47 -113zM1360 192q0 -46 -33 -79t-79 -33t-79 33t-33 79t33 79t79 33t79 -33t33 -79zM528 1088q0 -73 -51.5 -124.5t-124.5 -51.5t-124.5 51.5t-51.5 124.5t51.5 124.5t124.5 51.5t124.5 -51.5t51.5 -124.5zM992 1280q0 -80 -56 -136t-136 -56 t-136 56t-56 136t56 136t136 56t136 -56t56 -136zM1536 640q0 -40 -28 -68t-68 -28t-68 28t-28 68t28 68t68 28t68 -28t28 -68zM1328 1088q0 -33 -23.5 -56.5t-56.5 -23.5t-56.5 23.5t-23.5 56.5t23.5 56.5t56.5 23.5t56.5 -23.5t23.5 -56.5z" />
+<glyph unicode="&#xf111;" d="M1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf112;" horiz-adv-x="1792" d="M1792 416q0 -166 -127 -451q-3 -7 -10.5 -24t-13.5 -30t-13 -22q-12 -17 -28 -17q-15 0 -23.5 10t-8.5 25q0 9 2.5 26.5t2.5 23.5q5 68 5 123q0 101 -17.5 181t-48.5 138.5t-80 101t-105.5 69.5t-133 42.5t-154 21.5t-175.5 6h-224v-256q0 -26 -19 -45t-45 -19t-45 19 l-512 512q-19 19 -19 45t19 45l512 512q19 19 45 19t45 -19t19 -45v-256h224q713 0 875 -403q53 -134 53 -333z" />
+<glyph unicode="&#xf113;" horiz-adv-x="1664" d="M640 320q0 -40 -12.5 -82t-43 -76t-72.5 -34t-72.5 34t-43 76t-12.5 82t12.5 82t43 76t72.5 34t72.5 -34t43 -76t12.5 -82zM1280 320q0 -40 -12.5 -82t-43 -76t-72.5 -34t-72.5 34t-43 76t-12.5 82t12.5 82t43 76t72.5 34t72.5 -34t43 -76t12.5 -82zM1440 320 q0 120 -69 204t-187 84q-41 0 -195 -21q-71 -11 -157 -11t-157 11q-152 21 -195 21q-118 0 -187 -84t-69 -204q0 -88 32 -153.5t81 -103t122 -60t140 -29.5t149 -7h168q82 0 149 7t140 29.5t122 60t81 103t32 153.5zM1664 496q0 -207 -61 -331q-38 -77 -105.5 -133t-141 -86 t-170 -47.5t-171.5 -22t-167 -4.5q-78 0 -142 3t-147.5 12.5t-152.5 30t-137 51.5t-121 81t-86 115q-62 123 -62 331q0 237 136 396q-27 82 -27 170q0 116 51 218q108 0 190 -39.5t189 -123.5q147 35 309 35q148 0 280 -32q105 82 187 121t189 39q51 -102 51 -218 q0 -87 -27 -168q136 -160 136 -398z" />
+<glyph unicode="&#xf114;" horiz-adv-x="1664" d="M1536 224v704q0 40 -28 68t-68 28h-704q-40 0 -68 28t-28 68v64q0 40 -28 68t-68 28h-320q-40 0 -68 -28t-28 -68v-960q0 -40 28 -68t68 -28h1216q40 0 68 28t28 68zM1664 928v-704q0 -92 -66 -158t-158 -66h-1216q-92 0 -158 66t-66 158v960q0 92 66 158t158 66h320 q92 0 158 -66t66 -158v-32h672q92 0 158 -66t66 -158z" />
+<glyph unicode="&#xf115;" horiz-adv-x="1920" d="M1781 605q0 35 -53 35h-1088q-40 0 -85.5 -21.5t-71.5 -52.5l-294 -363q-18 -24 -18 -40q0 -35 53 -35h1088q40 0 86 22t71 53l294 363q18 22 18 39zM640 768h768v160q0 40 -28 68t-68 28h-576q-40 0 -68 28t-28 68v64q0 40 -28 68t-68 28h-320q-40 0 -68 -28t-28 -68 v-853l256 315q44 53 116 87.5t140 34.5zM1909 605q0 -62 -46 -120l-295 -363q-43 -53 -116 -87.5t-140 -34.5h-1088q-92 0 -158 66t-66 158v960q0 92 66 158t158 66h320q92 0 158 -66t66 -158v-32h544q92 0 158 -66t66 -158v-160h192q54 0 99 -24.5t67 -70.5q15 -32 15 -68z " />
+<glyph unicode="&#xf116;" horiz-adv-x="1792" />
+<glyph unicode="&#xf117;" horiz-adv-x="1792" />
+<glyph unicode="&#xf118;" d="M1134 461q-37 -121 -138 -195t-228 -74t-228 74t-138 195q-8 25 4 48.5t38 31.5q25 8 48.5 -4t31.5 -38q25 -80 92.5 -129.5t151.5 -49.5t151.5 49.5t92.5 129.5q8 26 32 38t49 4t37 -31.5t4 -48.5zM640 896q0 -53 -37.5 -90.5t-90.5 -37.5t-90.5 37.5t-37.5 90.5 t37.5 90.5t90.5 37.5t90.5 -37.5t37.5 -90.5zM1152 896q0 -53 -37.5 -90.5t-90.5 -37.5t-90.5 37.5t-37.5 90.5t37.5 90.5t90.5 37.5t90.5 -37.5t37.5 -90.5zM1408 640q0 130 -51 248.5t-136.5 204t-204 136.5t-248.5 51t-248.5 -51t-204 -136.5t-136.5 -204t-51 -248.5 t51 -248.5t136.5 -204t204 -136.5t248.5 -51t248.5 51t204 136.5t136.5 204t51 248.5zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf119;" d="M1134 307q8 -25 -4 -48.5t-37 -31.5t-49 4t-32 38q-25 80 -92.5 129.5t-151.5 49.5t-151.5 -49.5t-92.5 -129.5q-8 -26 -31.5 -38t-48.5 -4q-26 8 -38 31.5t-4 48.5q37 121 138 195t228 74t228 -74t138 -195zM640 896q0 -53 -37.5 -90.5t-90.5 -37.5t-90.5 37.5 t-37.5 90.5t37.5 90.5t90.5 37.5t90.5 -37.5t37.5 -90.5zM1152 896q0 -53 -37.5 -90.5t-90.5 -37.5t-90.5 37.5t-37.5 90.5t37.5 90.5t90.5 37.5t90.5 -37.5t37.5 -90.5zM1408 640q0 130 -51 248.5t-136.5 204t-204 136.5t-248.5 51t-248.5 -51t-204 -136.5t-136.5 -204 t-51 -248.5t51 -248.5t136.5 -204t204 -136.5t248.5 -51t248.5 51t204 136.5t136.5 204t51 248.5zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf11a;" d="M1152 448q0 -26 -19 -45t-45 -19h-640q-26 0 -45 19t-19 45t19 45t45 19h640q26 0 45 -19t19 -45zM640 896q0 -53 -37.5 -90.5t-90.5 -37.5t-90.5 37.5t-37.5 90.5t37.5 90.5t90.5 37.5t90.5 -37.5t37.5 -90.5zM1152 896q0 -53 -37.5 -90.5t-90.5 -37.5t-90.5 37.5 t-37.5 90.5t37.5 90.5t90.5 37.5t90.5 -37.5t37.5 -90.5zM1408 640q0 130 -51 248.5t-136.5 204t-204 136.5t-248.5 51t-248.5 -51t-204 -136.5t-136.5 -204t-51 -248.5t51 -248.5t136.5 -204t204 -136.5t248.5 -51t248.5 51t204 136.5t136.5 204t51 248.5zM1536 640 q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf11b;" horiz-adv-x="1920" d="M832 448v128q0 14 -9 23t-23 9h-192v192q0 14 -9 23t-23 9h-128q-14 0 -23 -9t-9 -23v-192h-192q-14 0 -23 -9t-9 -23v-128q0 -14 9 -23t23 -9h192v-192q0 -14 9 -23t23 -9h128q14 0 23 9t9 23v192h192q14 0 23 9t9 23zM1408 384q0 53 -37.5 90.5t-90.5 37.5t-90.5 -37.5 t-37.5 -90.5t37.5 -90.5t90.5 -37.5t90.5 37.5t37.5 90.5zM1664 640q0 53 -37.5 90.5t-90.5 37.5t-90.5 -37.5t-37.5 -90.5t37.5 -90.5t90.5 -37.5t90.5 37.5t37.5 90.5zM1920 512q0 -212 -150 -362t-362 -150q-192 0 -338 128h-220q-146 -128 -338 -128q-212 0 -362 150 t-150 362t150 362t362 150h896q212 0 362 -150t150 -362z" />
+<glyph unicode="&#xf11c;" horiz-adv-x="1920" d="M384 368v-96q0 -16 -16 -16h-96q-16 0 -16 16v96q0 16 16 16h96q16 0 16 -16zM512 624v-96q0 -16 -16 -16h-224q-16 0 -16 16v96q0 16 16 16h224q16 0 16 -16zM384 880v-96q0 -16 -16 -16h-96q-16 0 -16 16v96q0 16 16 16h96q16 0 16 -16zM1408 368v-96q0 -16 -16 -16 h-864q-16 0 -16 16v96q0 16 16 16h864q16 0 16 -16zM768 624v-96q0 -16 -16 -16h-96q-16 0 -16 16v96q0 16 16 16h96q16 0 16 -16zM640 880v-96q0 -16 -16 -16h-96q-16 0 -16 16v96q0 16 16 16h96q16 0 16 -16zM1024 624v-96q0 -16 -16 -16h-96q-16 0 -16 16v96q0 16 16 16 h96q16 0 16 -16zM896 880v-96q0 -16 -16 -16h-96q-16 0 -16 16v96q0 16 16 16h96q16 0 16 -16zM1280 624v-96q0 -16 -16 -16h-96q-16 0 -16 16v96q0 16 16 16h96q16 0 16 -16zM1664 368v-96q0 -16 -16 -16h-96q-16 0 -16 16v96q0 16 16 16h96q16 0 16 -16zM1152 880v-96 q0 -16 -16 -16h-96q-16 0 -16 16v96q0 16 16 16h96q16 0 16 -16zM1408 880v-96q0 -16 -16 -16h-96q-16 0 -16 16v96q0 16 16 16h96q16 0 16 -16zM1664 880v-352q0 -16 -16 -16h-224q-16 0 -16 16v96q0 16 16 16h112v240q0 16 16 16h96q16 0 16 -16zM1792 128v896h-1664v-896 h1664zM1920 1024v-896q0 -53 -37.5 -90.5t-90.5 -37.5h-1664q-53 0 -90.5 37.5t-37.5 90.5v896q0 53 37.5 90.5t90.5 37.5h1664q53 0 90.5 -37.5t37.5 -90.5z" />
+<glyph unicode="&#xf11d;" horiz-adv-x="1792" d="M1664 491v616q-169 -91 -306 -91q-82 0 -145 32q-100 49 -184 76.5t-178 27.5q-173 0 -403 -127v-599q245 113 433 113q55 0 103.5 -7.5t98 -26t77 -31t82.5 -39.5l28 -14q44 -22 101 -22q120 0 293 92zM320 1280q0 -35 -17.5 -64t-46.5 -46v-1266q0 -14 -9 -23t-23 -9 h-64q-14 0 -23 9t-9 23v1266q-29 17 -46.5 46t-17.5 64q0 53 37.5 90.5t90.5 37.5t90.5 -37.5t37.5 -90.5zM1792 1216v-763q0 -39 -35 -57q-10 -5 -17 -9q-218 -116 -369 -116q-88 0 -158 35l-28 14q-64 33 -99 48t-91 29t-114 14q-102 0 -235.5 -44t-228.5 -102 q-15 -9 -33 -9q-16 0 -32 8q-32 19 -32 56v742q0 35 31 55q35 21 78.5 42.5t114 52t152.5 49.5t155 19q112 0 209 -31t209 -86q38 -19 89 -19q122 0 310 112q22 12 31 17q31 16 62 -2q31 -20 31 -55z" />
+<glyph unicode="&#xf11e;" horiz-adv-x="1792" d="M832 536v192q-181 -16 -384 -117v-185q205 96 384 110zM832 954v197q-172 -8 -384 -126v-189q215 111 384 118zM1664 491v184q-235 -116 -384 -71v224q-20 6 -39 15q-5 3 -33 17t-34.5 17t-31.5 15t-34.5 15.5t-32.5 13t-36 12.5t-35 8.5t-39.5 7.5t-39.5 4t-44 2 q-23 0 -49 -3v-222h19q102 0 192.5 -29t197.5 -82q19 -9 39 -15v-188q42 -17 91 -17q120 0 293 92zM1664 918v189q-169 -91 -306 -91q-45 0 -78 8v-196q148 -42 384 90zM320 1280q0 -35 -17.5 -64t-46.5 -46v-1266q0 -14 -9 -23t-23 -9h-64q-14 0 -23 9t-9 23v1266 q-29 17 -46.5 46t-17.5 64q0 53 37.5 90.5t90.5 37.5t90.5 -37.5t37.5 -90.5zM1792 1216v-763q0 -39 -35 -57q-10 -5 -17 -9q-218 -116 -369 -116q-88 0 -158 35l-28 14q-64 33 -99 48t-91 29t-114 14q-102 0 -235.5 -44t-228.5 -102q-15 -9 -33 -9q-16 0 -32 8 q-32 19 -32 56v742q0 35 31 55q35 21 78.5 42.5t114 52t152.5 49.5t155 19q112 0 209 -31t209 -86q38 -19 89 -19q122 0 310 112q22 12 31 17q31 16 62 -2q31 -20 31 -55z" />
+<glyph unicode="&#xf120;" horiz-adv-x="1664" d="M585 553l-466 -466q-10 -10 -23 -10t-23 10l-50 50q-10 10 -10 23t10 23l393 393l-393 393q-10 10 -10 23t10 23l50 50q10 10 23 10t23 -10l466 -466q10 -10 10 -23t-10 -23zM1664 96v-64q0 -14 -9 -23t-23 -9h-960q-14 0 -23 9t-9 23v64q0 14 9 23t23 9h960q14 0 23 -9 t9 -23z" />
+<glyph unicode="&#xf121;" horiz-adv-x="1920" d="M617 137l-50 -50q-10 -10 -23 -10t-23 10l-466 466q-10 10 -10 23t10 23l466 466q10 10 23 10t23 -10l50 -50q10 -10 10 -23t-10 -23l-393 -393l393 -393q10 -10 10 -23t-10 -23zM1208 1204l-373 -1291q-4 -13 -15.5 -19.5t-23.5 -2.5l-62 17q-13 4 -19.5 15.5t-2.5 24.5 l373 1291q4 13 15.5 19.5t23.5 2.5l62 -17q13 -4 19.5 -15.5t2.5 -24.5zM1865 553l-466 -466q-10 -10 -23 -10t-23 10l-50 50q-10 10 -10 23t10 23l393 393l-393 393q-10 10 -10 23t10 23l50 50q10 10 23 10t23 -10l466 -466q10 -10 10 -23t-10 -23z" />
+<glyph unicode="&#xf122;" horiz-adv-x="1792" d="M640 454v-70q0 -42 -39 -59q-13 -5 -25 -5q-27 0 -45 19l-512 512q-19 19 -19 45t19 45l512 512q29 31 70 14q39 -17 39 -59v-69l-397 -398q-19 -19 -19 -45t19 -45zM1792 416q0 -58 -17 -133.5t-38.5 -138t-48 -125t-40.5 -90.5l-20 -40q-8 -17 -28 -17q-6 0 -9 1 q-25 8 -23 34q43 400 -106 565q-64 71 -170.5 110.5t-267.5 52.5v-251q0 -42 -39 -59q-13 -5 -25 -5q-27 0 -45 19l-512 512q-19 19 -19 45t19 45l512 512q29 31 70 14q39 -17 39 -59v-262q411 -28 599 -221q169 -173 169 -509z" />
+<glyph unicode="&#xf123;" horiz-adv-x="1664" d="M1186 579l257 250l-356 52l-66 10l-30 60l-159 322v-963l59 -31l318 -168l-60 355l-12 66zM1638 841l-363 -354l86 -500q5 -33 -6 -51.5t-34 -18.5q-17 0 -40 12l-449 236l-449 -236q-23 -12 -40 -12q-23 0 -34 18.5t-6 51.5l86 500l-364 354q-32 32 -23 59.5t54 34.5 l502 73l225 455q20 41 49 41q28 0 49 -41l225 -455l502 -73q45 -7 54 -34.5t-24 -59.5z" />
+<glyph unicode="&#xf124;" horiz-adv-x="1408" d="M1401 1187l-640 -1280q-17 -35 -57 -35q-5 0 -15 2q-22 5 -35.5 22.5t-13.5 39.5v576h-576q-22 0 -39.5 13.5t-22.5 35.5t4 42t29 30l1280 640q13 7 29 7q27 0 45 -19q15 -14 18.5 -34.5t-6.5 -39.5z" />
+<glyph unicode="&#xf125;" horiz-adv-x="1664" d="M557 256h595v595zM512 301l595 595h-595v-595zM1664 224v-192q0 -14 -9 -23t-23 -9h-224v-224q0 -14 -9 -23t-23 -9h-192q-14 0 -23 9t-9 23v224h-864q-14 0 -23 9t-9 23v864h-224q-14 0 -23 9t-9 23v192q0 14 9 23t23 9h224v224q0 14 9 23t23 9h192q14 0 23 -9t9 -23 v-224h851l246 247q10 9 23 9t23 -9q9 -10 9 -23t-9 -23l-247 -246v-851h224q14 0 23 -9t9 -23z" />
+<glyph unicode="&#xf126;" horiz-adv-x="1024" d="M288 64q0 40 -28 68t-68 28t-68 -28t-28 -68t28 -68t68 -28t68 28t28 68zM288 1216q0 40 -28 68t-68 28t-68 -28t-28 -68t28 -68t68 -28t68 28t28 68zM928 1088q0 40 -28 68t-68 28t-68 -28t-28 -68t28 -68t68 -28t68 28t28 68zM1024 1088q0 -52 -26 -96.5t-70 -69.5 q-2 -287 -226 -414q-68 -38 -203 -81q-128 -40 -169.5 -71t-41.5 -100v-26q44 -25 70 -69.5t26 -96.5q0 -80 -56 -136t-136 -56t-136 56t-56 136q0 52 26 96.5t70 69.5v820q-44 25 -70 69.5t-26 96.5q0 80 56 136t136 56t136 -56t56 -136q0 -52 -26 -96.5t-70 -69.5v-497 q54 26 154 57q55 17 87.5 29.5t70.5 31t59 39.5t40.5 51t28 69.5t8.5 91.5q-44 25 -70 69.5t-26 96.5q0 80 56 136t136 56t136 -56t56 -136z" />
+<glyph unicode="&#xf127;" horiz-adv-x="1664" d="M439 265l-256 -256q-10 -9 -23 -9q-12 0 -23 9q-9 10 -9 23t9 23l256 256q10 9 23 9t23 -9q9 -10 9 -23t-9 -23zM608 224v-320q0 -14 -9 -23t-23 -9t-23 9t-9 23v320q0 14 9 23t23 9t23 -9t9 -23zM384 448q0 -14 -9 -23t-23 -9h-320q-14 0 -23 9t-9 23t9 23t23 9h320 q14 0 23 -9t9 -23zM1648 320q0 -120 -85 -203l-147 -146q-83 -83 -203 -83q-121 0 -204 85l-334 335q-21 21 -42 56l239 18l273 -274q27 -27 68 -27.5t68 26.5l147 146q28 28 28 67q0 40 -28 68l-274 275l18 239q35 -21 56 -42l336 -336q84 -86 84 -204zM1031 1044l-239 -18 l-273 274q-28 28 -68 28q-39 0 -68 -27l-147 -146q-28 -28 -28 -67q0 -40 28 -68l274 -274l-18 -240q-35 21 -56 42l-336 336q-84 86 -84 204q0 120 85 203l147 146q83 83 203 83q121 0 204 -85l334 -335q21 -21 42 -56zM1664 960q0 -14 -9 -23t-23 -9h-320q-14 0 -23 9 t-9 23t9 23t23 9h320q14 0 23 -9t9 -23zM1120 1504v-320q0 -14 -9 -23t-23 -9t-23 9t-9 23v320q0 14 9 23t23 9t23 -9t9 -23zM1527 1353l-256 -256q-11 -9 -23 -9t-23 9q-9 10 -9 23t9 23l256 256q10 9 23 9t23 -9q9 -10 9 -23t-9 -23z" />
+<glyph unicode="&#xf128;" horiz-adv-x="1024" d="M704 280v-240q0 -16 -12 -28t-28 -12h-240q-16 0 -28 12t-12 28v240q0 16 12 28t28 12h240q16 0 28 -12t12 -28zM1020 880q0 -54 -15.5 -101t-35 -76.5t-55 -59.5t-57.5 -43.5t-61 -35.5q-41 -23 -68.5 -65t-27.5 -67q0 -17 -12 -32.5t-28 -15.5h-240q-15 0 -25.5 18.5 t-10.5 37.5v45q0 83 65 156.5t143 108.5q59 27 84 56t25 76q0 42 -46.5 74t-107.5 32q-65 0 -108 -29q-35 -25 -107 -115q-13 -16 -31 -16q-12 0 -25 8l-164 125q-13 10 -15.5 25t5.5 28q160 266 464 266q80 0 161 -31t146 -83t106 -127.5t41 -158.5z" />
+<glyph unicode="&#xf129;" horiz-adv-x="640" d="M640 192v-128q0 -26 -19 -45t-45 -19h-512q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h64v384h-64q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h384q26 0 45 -19t19 -45v-576h64q26 0 45 -19t19 -45zM512 1344v-192q0 -26 -19 -45t-45 -19h-256q-26 0 -45 19t-19 45v192 q0 26 19 45t45 19h256q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf12a;" horiz-adv-x="640" d="M512 288v-224q0 -26 -19 -45t-45 -19h-256q-26 0 -45 19t-19 45v224q0 26 19 45t45 19h256q26 0 45 -19t19 -45zM542 1344l-28 -768q-1 -26 -20.5 -45t-45.5 -19h-256q-26 0 -45.5 19t-20.5 45l-28 768q-1 26 17.5 45t44.5 19h320q26 0 44.5 -19t17.5 -45z" />
+<glyph unicode="&#xf12b;" d="M897 167v-167h-248l-159 252l-24 42q-8 9 -11 21h-3l-9 -21q-10 -20 -25 -44l-155 -250h-258v167h128l197 291l-185 272h-137v168h276l139 -228q2 -4 23 -42q8 -9 11 -21h3q3 9 11 21l25 42l140 228h257v-168h-125l-184 -267l204 -296h109zM1534 846v-206h-514l-3 27 q-4 28 -4 46q0 64 26 117t65 86.5t84 65t84 54.5t65 54t26 64q0 38 -29.5 62.5t-70.5 24.5q-51 0 -97 -39q-14 -11 -36 -38l-105 92q26 37 63 66q83 65 188 65q110 0 178 -59.5t68 -158.5q0 -56 -24.5 -103t-62 -76.5t-81.5 -58.5t-82 -50.5t-65.5 -51.5t-30.5 -63h232v80 h126z" />
+<glyph unicode="&#xf12c;" d="M897 167v-167h-248l-159 252l-24 42q-8 9 -11 21h-3l-9 -21q-10 -20 -25 -44l-155 -250h-258v167h128l197 291l-185 272h-137v168h276l139 -228q2 -4 23 -42q8 -9 11 -21h3q3 9 11 21l25 42l140 228h257v-168h-125l-184 -267l204 -296h109zM1536 -50v-206h-514l-4 27 q-3 45 -3 46q0 64 26 117t65 86.5t84 65t84 54.5t65 54t26 64q0 38 -29.5 62.5t-70.5 24.5q-51 0 -97 -39q-14 -11 -36 -38l-105 92q26 37 63 66q80 65 188 65q110 0 178 -59.5t68 -158.5q0 -66 -34.5 -118.5t-84 -86t-99.5 -62.5t-87 -63t-41 -73h232v80h126z" />
+<glyph unicode="&#xf12d;" horiz-adv-x="1920" d="M896 128l336 384h-768l-336 -384h768zM1909 1205q15 -34 9.5 -71.5t-30.5 -65.5l-896 -1024q-38 -44 -96 -44h-768q-38 0 -69.5 20.5t-47.5 54.5q-15 34 -9.5 71.5t30.5 65.5l896 1024q38 44 96 44h768q38 0 69.5 -20.5t47.5 -54.5z" />
+<glyph unicode="&#xf12e;" horiz-adv-x="1664" d="M1664 438q0 -81 -44.5 -135t-123.5 -54q-41 0 -77.5 17.5t-59 38t-56.5 38t-71 17.5q-110 0 -110 -124q0 -39 16 -115t15 -115v-5q-22 0 -33 -1q-34 -3 -97.5 -11.5t-115.5 -13.5t-98 -5q-61 0 -103 26.5t-42 83.5q0 37 17.5 71t38 56.5t38 59t17.5 77.5q0 79 -54 123.5 t-135 44.5q-84 0 -143 -45.5t-59 -127.5q0 -43 15 -83t33.5 -64.5t33.5 -53t15 -50.5q0 -45 -46 -89q-37 -35 -117 -35q-95 0 -245 24q-9 2 -27.5 4t-27.5 4l-13 2q-1 0 -3 1q-2 0 -2 1v1024q2 -1 17.5 -3.5t34 -5t21.5 -3.5q150 -24 245 -24q80 0 117 35q46 44 46 89 q0 22 -15 50.5t-33.5 53t-33.5 64.5t-15 83q0 82 59 127.5t144 45.5q80 0 134 -44.5t54 -123.5q0 -41 -17.5 -77.5t-38 -59t-38 -56.5t-17.5 -71q0 -57 42 -83.5t103 -26.5q64 0 180 15t163 17v-2q-1 -2 -3.5 -17.5t-5 -34t-3.5 -21.5q-24 -150 -24 -245q0 -80 35 -117 q44 -46 89 -46q22 0 50.5 15t53 33.5t64.5 33.5t83 15q82 0 127.5 -59t45.5 -143z" />
+<glyph unicode="&#xf130;" horiz-adv-x="1152" d="M1152 832v-128q0 -221 -147.5 -384.5t-364.5 -187.5v-132h256q26 0 45 -19t19 -45t-19 -45t-45 -19h-640q-26 0 -45 19t-19 45t19 45t45 19h256v132q-217 24 -364.5 187.5t-147.5 384.5v128q0 26 19 45t45 19t45 -19t19 -45v-128q0 -185 131.5 -316.5t316.5 -131.5 t316.5 131.5t131.5 316.5v128q0 26 19 45t45 19t45 -19t19 -45zM896 1216v-512q0 -132 -94 -226t-226 -94t-226 94t-94 226v512q0 132 94 226t226 94t226 -94t94 -226z" />
+<glyph unicode="&#xf131;" horiz-adv-x="1408" d="M271 591l-101 -101q-42 103 -42 214v128q0 26 19 45t45 19t45 -19t19 -45v-128q0 -53 15 -113zM1385 1193l-361 -361v-128q0 -132 -94 -226t-226 -94q-55 0 -109 19l-96 -96q97 -51 205 -51q185 0 316.5 131.5t131.5 316.5v128q0 26 19 45t45 19t45 -19t19 -45v-128 q0 -221 -147.5 -384.5t-364.5 -187.5v-132h256q26 0 45 -19t19 -45t-19 -45t-45 -19h-640q-26 0 -45 19t-19 45t19 45t45 19h256v132q-125 13 -235 81l-254 -254q-10 -10 -23 -10t-23 10l-82 82q-10 10 -10 23t10 23l1234 1234q10 10 23 10t23 -10l82 -82q10 -10 10 -23 t-10 -23zM1005 1325l-621 -621v512q0 132 94 226t226 94q102 0 184.5 -59t116.5 -152z" />
+<glyph unicode="&#xf132;" horiz-adv-x="1280" d="M1088 576v640h-448v-1137q119 63 213 137q235 184 235 360zM1280 1344v-768q0 -86 -33.5 -170.5t-83 -150t-118 -127.5t-126.5 -103t-121 -77.5t-89.5 -49.5t-42.5 -20q-12 -6 -26 -6t-26 6q-16 7 -42.5 20t-89.5 49.5t-121 77.5t-126.5 103t-118 127.5t-83 150 t-33.5 170.5v768q0 26 19 45t45 19h1152q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf133;" horiz-adv-x="1664" d="M128 -128h1408v1024h-1408v-1024zM512 1088v288q0 14 -9 23t-23 9h-64q-14 0 -23 -9t-9 -23v-288q0 -14 9 -23t23 -9h64q14 0 23 9t9 23zM1280 1088v288q0 14 -9 23t-23 9h-64q-14 0 -23 -9t-9 -23v-288q0 -14 9 -23t23 -9h64q14 0 23 9t9 23zM1664 1152v-1280 q0 -52 -38 -90t-90 -38h-1408q-52 0 -90 38t-38 90v1280q0 52 38 90t90 38h128v96q0 66 47 113t113 47h64q66 0 113 -47t47 -113v-96h384v96q0 66 47 113t113 47h64q66 0 113 -47t47 -113v-96h128q52 0 90 -38t38 -90z" />
+<glyph unicode="&#xf134;" horiz-adv-x="1408" d="M512 1344q0 26 -19 45t-45 19t-45 -19t-19 -45t19 -45t45 -19t45 19t19 45zM1408 1376v-320q0 -16 -12 -25q-8 -7 -20 -7q-4 0 -7 1l-448 96q-11 2 -18 11t-7 20h-256v-102q111 -23 183.5 -111t72.5 -203v-800q0 -26 -19 -45t-45 -19h-512q-26 0 -45 19t-19 45v800 q0 106 62.5 190.5t161.5 114.5v111h-32q-59 0 -115 -23.5t-91.5 -53t-66 -66.5t-40.5 -53.5t-14 -24.5q-17 -35 -57 -35q-16 0 -29 7q-23 12 -31.5 37t3.5 49q5 10 14.5 26t37.5 53.5t60.5 70t85 67t108.5 52.5q-25 42 -25 86q0 66 47 113t113 47t113 -47t47 -113 q0 -33 -14 -64h302q0 11 7 20t18 11l448 96q3 1 7 1q12 0 20 -7q12 -9 12 -25z" />
+<glyph unicode="&#xf135;" horiz-adv-x="1664" d="M1440 1088q0 40 -28 68t-68 28t-68 -28t-28 -68t28 -68t68 -28t68 28t28 68zM1664 1376q0 -249 -75.5 -430.5t-253.5 -360.5q-81 -80 -195 -176l-20 -379q-2 -16 -16 -26l-384 -224q-7 -4 -16 -4q-12 0 -23 9l-64 64q-13 14 -8 32l85 276l-281 281l-276 -85q-3 -1 -9 -1 q-14 0 -23 9l-64 64q-17 19 -5 39l224 384q10 14 26 16l379 20q96 114 176 195q188 187 358 258t431 71q14 0 24 -9.5t10 -22.5z" />
+<glyph unicode="&#xf136;" horiz-adv-x="1792" d="M1745 763l-164 -763h-334l178 832q13 56 -15 88q-27 33 -83 33h-169l-204 -953h-334l204 953h-286l-204 -953h-334l204 953l-153 327h1276q101 0 189.5 -40.5t147.5 -113.5q60 -73 81 -168.5t0 -194.5z" />
+<glyph unicode="&#xf137;" d="M909 141l102 102q19 19 19 45t-19 45l-307 307l307 307q19 19 19 45t-19 45l-102 102q-19 19 -45 19t-45 -19l-454 -454q-19 -19 -19 -45t19 -45l454 -454q19 -19 45 -19t45 19zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5 t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf138;" d="M717 141l454 454q19 19 19 45t-19 45l-454 454q-19 19 -45 19t-45 -19l-102 -102q-19 -19 -19 -45t19 -45l307 -307l-307 -307q-19 -19 -19 -45t19 -45l102 -102q19 -19 45 -19t45 19zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5 t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf139;" d="M1165 397l102 102q19 19 19 45t-19 45l-454 454q-19 19 -45 19t-45 -19l-454 -454q-19 -19 -19 -45t19 -45l102 -102q19 -19 45 -19t45 19l307 307l307 -307q19 -19 45 -19t45 19zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5 t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf13a;" d="M813 237l454 454q19 19 19 45t-19 45l-102 102q-19 19 -45 19t-45 -19l-307 -307l-307 307q-19 19 -45 19t-45 -19l-102 -102q-19 -19 -19 -45t19 -45l454 -454q19 -19 45 -19t45 19zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5 t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf13b;" horiz-adv-x="1408" d="M1130 939l16 175h-884l47 -534h612l-22 -228l-197 -53l-196 53l-13 140h-175l22 -278l362 -100h4v1l359 99l50 544h-644l-15 181h674zM0 1408h1408l-128 -1438l-578 -162l-574 162z" />
+<glyph unicode="&#xf13c;" horiz-adv-x="1792" d="M275 1408h1505l-266 -1333l-804 -267l-698 267l71 356h297l-29 -147l422 -161l486 161l68 339h-1208l58 297h1209l38 191h-1208z" />
+<glyph unicode="&#xf13d;" horiz-adv-x="1792" d="M960 1280q0 26 -19 45t-45 19t-45 -19t-19 -45t19 -45t45 -19t45 19t19 45zM1792 352v-352q0 -22 -20 -30q-8 -2 -12 -2q-13 0 -23 9l-93 93q-119 -143 -318.5 -226.5t-429.5 -83.5t-429.5 83.5t-318.5 226.5l-93 -93q-9 -9 -23 -9q-4 0 -12 2q-20 8 -20 30v352 q0 14 9 23t23 9h352q22 0 30 -20q8 -19 -7 -35l-100 -100q67 -91 189.5 -153.5t271.5 -82.5v647h-192q-26 0 -45 19t-19 45v128q0 26 19 45t45 19h192v163q-58 34 -93 92.5t-35 128.5q0 106 75 181t181 75t181 -75t75 -181q0 -70 -35 -128.5t-93 -92.5v-163h192q26 0 45 -19 t19 -45v-128q0 -26 -19 -45t-45 -19h-192v-647q149 20 271.5 82.5t189.5 153.5l-100 100q-15 16 -7 35q8 20 30 20h352q14 0 23 -9t9 -23z" />
+<glyph unicode="&#xf13e;" horiz-adv-x="1152" d="M1056 768q40 0 68 -28t28 -68v-576q0 -40 -28 -68t-68 -28h-960q-40 0 -68 28t-28 68v576q0 40 28 68t68 28h32v320q0 185 131.5 316.5t316.5 131.5t316.5 -131.5t131.5 -316.5q0 -26 -19 -45t-45 -19h-64q-26 0 -45 19t-19 45q0 106 -75 181t-181 75t-181 -75t-75 -181 v-320h736z" />
+<glyph unicode="&#xf140;" d="M1024 640q0 -106 -75 -181t-181 -75t-181 75t-75 181t75 181t181 75t181 -75t75 -181zM1152 640q0 159 -112.5 271.5t-271.5 112.5t-271.5 -112.5t-112.5 -271.5t112.5 -271.5t271.5 -112.5t271.5 112.5t112.5 271.5zM1280 640q0 -212 -150 -362t-362 -150t-362 150 t-150 362t150 362t362 150t362 -150t150 -362zM1408 640q0 130 -51 248.5t-136.5 204t-204 136.5t-248.5 51t-248.5 -51t-204 -136.5t-136.5 -204t-51 -248.5t51 -248.5t136.5 -204t204 -136.5t248.5 -51t248.5 51t204 136.5t136.5 204t51 248.5zM1536 640 q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf141;" horiz-adv-x="1408" d="M384 800v-192q0 -40 -28 -68t-68 -28h-192q-40 0 -68 28t-28 68v192q0 40 28 68t68 28h192q40 0 68 -28t28 -68zM896 800v-192q0 -40 -28 -68t-68 -28h-192q-40 0 -68 28t-28 68v192q0 40 28 68t68 28h192q40 0 68 -28t28 -68zM1408 800v-192q0 -40 -28 -68t-68 -28h-192 q-40 0 -68 28t-28 68v192q0 40 28 68t68 28h192q40 0 68 -28t28 -68z" />
+<glyph unicode="&#xf142;" horiz-adv-x="384" d="M384 288v-192q0 -40 -28 -68t-68 -28h-192q-40 0 -68 28t-28 68v192q0 40 28 68t68 28h192q40 0 68 -28t28 -68zM384 800v-192q0 -40 -28 -68t-68 -28h-192q-40 0 -68 28t-28 68v192q0 40 28 68t68 28h192q40 0 68 -28t28 -68zM384 1312v-192q0 -40 -28 -68t-68 -28h-192 q-40 0 -68 28t-28 68v192q0 40 28 68t68 28h192q40 0 68 -28t28 -68z" />
+<glyph unicode="&#xf143;" d="M512 256q0 53 -37.5 90.5t-90.5 37.5t-90.5 -37.5t-37.5 -90.5t37.5 -90.5t90.5 -37.5t90.5 37.5t37.5 90.5zM863 162q-13 232 -177 396t-396 177q-14 1 -24 -9t-10 -23v-128q0 -13 8.5 -22t21.5 -10q154 -11 264 -121t121 -264q1 -13 10 -21.5t22 -8.5h128q13 0 23 10 t9 24zM1247 161q-5 154 -56 297.5t-139.5 260t-205 205t-260 139.5t-297.5 56q-14 1 -23 -9q-10 -10 -10 -23v-128q0 -13 9 -22t22 -10q204 -7 378 -111.5t278.5 -278.5t111.5 -378q1 -13 10 -22t22 -9h128q13 0 23 10q11 9 9 23zM1536 1120v-960q0 -119 -84.5 -203.5 t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf144;" d="M768 1408q209 0 385.5 -103t279.5 -279.5t103 -385.5t-103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103zM1152 585q32 18 32 55t-32 55l-544 320q-31 19 -64 1q-32 -19 -32 -56v-640q0 -37 32 -56 q16 -8 32 -8q17 0 32 9z" />
+<glyph unicode="&#xf145;" horiz-adv-x="1792" d="M1024 1084l316 -316l-572 -572l-316 316zM813 105l618 618q19 19 19 45t-19 45l-362 362q-18 18 -45 18t-45 -18l-618 -618q-19 -19 -19 -45t19 -45l362 -362q18 -18 45 -18t45 18zM1702 742l-907 -908q-37 -37 -90.5 -37t-90.5 37l-126 126q56 56 56 136t-56 136 t-136 56t-136 -56l-125 126q-37 37 -37 90.5t37 90.5l907 906q37 37 90.5 37t90.5 -37l125 -125q-56 -56 -56 -136t56 -136t136 -56t136 56l126 -125q37 -37 37 -90.5t-37 -90.5z" />
+<glyph unicode="&#xf146;" d="M1280 576v128q0 26 -19 45t-45 19h-896q-26 0 -45 -19t-19 -45v-128q0 -26 19 -45t45 -19h896q26 0 45 19t19 45zM1536 1120v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5 t84.5 -203.5z" />
+<glyph unicode="&#xf147;" horiz-adv-x="1408" d="M1152 736v-64q0 -14 -9 -23t-23 -9h-832q-14 0 -23 9t-9 23v64q0 14 9 23t23 9h832q14 0 23 -9t9 -23zM1280 288v832q0 66 -47 113t-113 47h-832q-66 0 -113 -47t-47 -113v-832q0 -66 47 -113t113 -47h832q66 0 113 47t47 113zM1408 1120v-832q0 -119 -84.5 -203.5 t-203.5 -84.5h-832q-119 0 -203.5 84.5t-84.5 203.5v832q0 119 84.5 203.5t203.5 84.5h832q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf148;" horiz-adv-x="1024" d="M1018 933q-18 -37 -58 -37h-192v-864q0 -14 -9 -23t-23 -9h-704q-21 0 -29 18q-8 20 4 35l160 192q9 11 25 11h320v640h-192q-40 0 -58 37q-17 37 9 68l320 384q18 22 49 22t49 -22l320 -384q27 -32 9 -68z" />
+<glyph unicode="&#xf149;" horiz-adv-x="1024" d="M32 1280h704q13 0 22.5 -9.5t9.5 -23.5v-863h192q40 0 58 -37t-9 -69l-320 -384q-18 -22 -49 -22t-49 22l-320 384q-26 31 -9 69q18 37 58 37h192v640h-320q-14 0 -25 11l-160 192q-13 14 -4 34q9 19 29 19z" />
+<glyph unicode="&#xf14a;" d="M685 237l614 614q19 19 19 45t-19 45l-102 102q-19 19 -45 19t-45 -19l-467 -467l-211 211q-19 19 -45 19t-45 -19l-102 -102q-19 -19 -19 -45t19 -45l358 -358q19 -19 45 -19t45 19zM1536 1120v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5 t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf14b;" d="M404 428l152 -152l-52 -52h-56v96h-96v56zM818 818q14 -13 -3 -30l-291 -291q-17 -17 -30 -3q-14 13 3 30l291 291q17 17 30 3zM544 128l544 544l-288 288l-544 -544v-288h288zM1152 736l92 92q28 28 28 68t-28 68l-152 152q-28 28 -68 28t-68 -28l-92 -92zM1536 1120 v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf14c;" d="M1280 608v480q0 26 -19 45t-45 19h-480q-42 0 -59 -39q-17 -41 14 -70l144 -144l-534 -534q-19 -19 -19 -45t19 -45l102 -102q19 -19 45 -19t45 19l534 534l144 -144q18 -19 45 -19q12 0 25 5q39 17 39 59zM1536 1120v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960 q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf14d;" d="M1005 435l352 352q19 19 19 45t-19 45l-352 352q-30 31 -69 14q-40 -17 -40 -59v-160q-119 0 -216 -19.5t-162.5 -51t-114 -79t-76.5 -95.5t-44.5 -109t-21.5 -111.5t-5 -110.5q0 -181 167 -404q10 -12 25 -12q7 0 13 3q22 9 19 33q-44 354 62 473q46 52 130 75.5 t224 23.5v-160q0 -42 40 -59q12 -5 24 -5q26 0 45 19zM1536 1120v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf14e;" d="M640 448l256 128l-256 128v-256zM1024 1039v-542l-512 -256v542zM1312 640q0 148 -73 273t-198 198t-273 73t-273 -73t-198 -198t-73 -273t73 -273t198 -198t273 -73t273 73t198 198t73 273zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103 t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf150;" d="M1145 861q18 -35 -5 -66l-320 -448q-19 -27 -52 -27t-52 27l-320 448q-23 31 -5 66q17 35 57 35h640q40 0 57 -35zM1280 160v960q0 13 -9.5 22.5t-22.5 9.5h-960q-13 0 -22.5 -9.5t-9.5 -22.5v-960q0 -13 9.5 -22.5t22.5 -9.5h960q13 0 22.5 9.5t9.5 22.5zM1536 1120 v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf151;" d="M1145 419q-17 -35 -57 -35h-640q-40 0 -57 35q-18 35 5 66l320 448q19 27 52 27t52 -27l320 -448q23 -31 5 -66zM1280 160v960q0 13 -9.5 22.5t-22.5 9.5h-960q-13 0 -22.5 -9.5t-9.5 -22.5v-960q0 -13 9.5 -22.5t22.5 -9.5h960q13 0 22.5 9.5t9.5 22.5zM1536 1120v-960 q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf152;" d="M1088 640q0 -33 -27 -52l-448 -320q-31 -23 -66 -5q-35 17 -35 57v640q0 40 35 57q35 18 66 -5l448 -320q27 -19 27 -52zM1280 160v960q0 14 -9 23t-23 9h-960q-14 0 -23 -9t-9 -23v-960q0 -14 9 -23t23 -9h960q14 0 23 9t9 23zM1536 1120v-960q0 -119 -84.5 -203.5 t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf153;" horiz-adv-x="1024" d="M976 229l35 -159q3 -12 -3 -22.5t-17 -14.5l-5 -1q-4 -2 -10.5 -3.5t-16 -4.5t-21.5 -5.5t-25.5 -5t-30 -5t-33.5 -4.5t-36.5 -3t-38.5 -1q-234 0 -409 130.5t-238 351.5h-95q-13 0 -22.5 9.5t-9.5 22.5v113q0 13 9.5 22.5t22.5 9.5h66q-2 57 1 105h-67q-14 0 -23 9 t-9 23v114q0 14 9 23t23 9h98q67 210 243.5 338t400.5 128q102 0 194 -23q11 -3 20 -15q6 -11 3 -24l-43 -159q-3 -13 -14 -19.5t-24 -2.5l-4 1q-4 1 -11.5 2.5l-17.5 3.5t-22.5 3.5t-26 3t-29 2.5t-29.5 1q-126 0 -226 -64t-150 -176h468q16 0 25 -12q10 -12 7 -26 l-24 -114q-5 -26 -32 -26h-488q-3 -37 0 -105h459q15 0 25 -12q9 -12 6 -27l-24 -112q-2 -11 -11 -18.5t-20 -7.5h-387q48 -117 149.5 -185.5t228.5 -68.5q18 0 36 1.5t33.5 3.5t29.5 4.5t24.5 5t18.5 4.5l12 3l5 2q13 5 26 -2q12 -7 15 -21z" />
+<glyph unicode="&#xf154;" horiz-adv-x="1024" d="M1020 399v-367q0 -14 -9 -23t-23 -9h-956q-14 0 -23 9t-9 23v150q0 13 9.5 22.5t22.5 9.5h97v383h-95q-14 0 -23 9.5t-9 22.5v131q0 14 9 23t23 9h95v223q0 171 123.5 282t314.5 111q185 0 335 -125q9 -8 10 -20.5t-7 -22.5l-103 -127q-9 -11 -22 -12q-13 -2 -23 7 q-5 5 -26 19t-69 32t-93 18q-85 0 -137 -47t-52 -123v-215h305q13 0 22.5 -9t9.5 -23v-131q0 -13 -9.5 -22.5t-22.5 -9.5h-305v-379h414v181q0 13 9 22.5t23 9.5h162q14 0 23 -9.5t9 -22.5z" />
+<glyph unicode="&#xf155;" horiz-adv-x="1024" d="M978 351q0 -153 -99.5 -263.5t-258.5 -136.5v-175q0 -14 -9 -23t-23 -9h-135q-13 0 -22.5 9.5t-9.5 22.5v175q-66 9 -127.5 31t-101.5 44.5t-74 48t-46.5 37.5t-17.5 18q-17 21 -2 41l103 135q7 10 23 12q15 2 24 -9l2 -2q113 -99 243 -125q37 -8 74 -8q81 0 142.5 43 t61.5 122q0 28 -15 53t-33.5 42t-58.5 37.5t-66 32t-80 32.5q-39 16 -61.5 25t-61.5 26.5t-62.5 31t-56.5 35.5t-53.5 42.5t-43.5 49t-35.5 58t-21 66.5t-8.5 78q0 138 98 242t255 134v180q0 13 9.5 22.5t22.5 9.5h135q14 0 23 -9t9 -23v-176q57 -6 110.5 -23t87 -33.5 t63.5 -37.5t39 -29t15 -14q17 -18 5 -38l-81 -146q-8 -15 -23 -16q-14 -3 -27 7q-3 3 -14.5 12t-39 26.5t-58.5 32t-74.5 26t-85.5 11.5q-95 0 -155 -43t-60 -111q0 -26 8.5 -48t29.5 -41.5t39.5 -33t56 -31t60.5 -27t70 -27.5q53 -20 81 -31.5t76 -35t75.5 -42.5t62 -50 t53 -63.5t31.5 -76.5t13 -94z" />
+<glyph unicode="&#xf156;" horiz-adv-x="898" d="M898 1066v-102q0 -14 -9 -23t-23 -9h-168q-23 -144 -129 -234t-276 -110q167 -178 459 -536q14 -16 4 -34q-8 -18 -29 -18h-195q-16 0 -25 12q-306 367 -498 571q-9 9 -9 22v127q0 13 9.5 22.5t22.5 9.5h112q132 0 212.5 43t102.5 125h-427q-14 0 -23 9t-9 23v102 q0 14 9 23t23 9h413q-57 113 -268 113h-145q-13 0 -22.5 9.5t-9.5 22.5v133q0 14 9 23t23 9h832q14 0 23 -9t9 -23v-102q0 -14 -9 -23t-23 -9h-233q47 -61 64 -144h171q14 0 23 -9t9 -23z" />
+<glyph unicode="&#xf157;" horiz-adv-x="1027" d="M603 0h-172q-13 0 -22.5 9t-9.5 23v330h-288q-13 0 -22.5 9t-9.5 23v103q0 13 9.5 22.5t22.5 9.5h288v85h-288q-13 0 -22.5 9t-9.5 23v104q0 13 9.5 22.5t22.5 9.5h214l-321 578q-8 16 0 32q10 16 28 16h194q19 0 29 -18l215 -425q19 -38 56 -125q10 24 30.5 68t27.5 61 l191 420q8 19 29 19h191q17 0 27 -16q9 -14 1 -31l-313 -579h215q13 0 22.5 -9.5t9.5 -22.5v-104q0 -14 -9.5 -23t-22.5 -9h-290v-85h290q13 0 22.5 -9.5t9.5 -22.5v-103q0 -14 -9.5 -23t-22.5 -9h-290v-330q0 -13 -9.5 -22.5t-22.5 -9.5z" />
+<glyph unicode="&#xf158;" horiz-adv-x="1280" d="M1043 971q0 100 -65 162t-171 62h-320v-448h320q106 0 171 62t65 162zM1280 971q0 -193 -126.5 -315t-326.5 -122h-340v-118h505q14 0 23 -9t9 -23v-128q0 -14 -9 -23t-23 -9h-505v-192q0 -14 -9.5 -23t-22.5 -9h-167q-14 0 -23 9t-9 23v192h-224q-14 0 -23 9t-9 23v128 q0 14 9 23t23 9h224v118h-224q-14 0 -23 9t-9 23v149q0 13 9 22.5t23 9.5h224v629q0 14 9 23t23 9h539q200 0 326.5 -122t126.5 -315z" />
+<glyph unicode="&#xf159;" horiz-adv-x="1792" d="M514 341l81 299h-159l75 -300q1 -1 1 -3t1 -3q0 1 0.5 3.5t0.5 3.5zM630 768l35 128h-292l32 -128h225zM822 768h139l-35 128h-70zM1271 340l78 300h-162l81 -299q0 -1 0.5 -3.5t1.5 -3.5q0 1 0.5 3t0.5 3zM1382 768l33 128h-297l34 -128h230zM1792 736v-64q0 -14 -9 -23 t-23 -9h-213l-164 -616q-7 -24 -31 -24h-159q-24 0 -31 24l-166 616h-209l-167 -616q-7 -24 -31 -24h-159q-11 0 -19.5 7t-10.5 17l-160 616h-208q-14 0 -23 9t-9 23v64q0 14 9 23t23 9h175l-33 128h-142q-14 0 -23 9t-9 23v64q0 14 9 23t23 9h109l-89 344q-5 15 5 28 q10 12 26 12h137q26 0 31 -24l90 -360h359l97 360q7 24 31 24h126q24 0 31 -24l98 -360h365l93 360q5 24 31 24h137q16 0 26 -12q10 -13 5 -28l-91 -344h111q14 0 23 -9t9 -23v-64q0 -14 -9 -23t-23 -9h-145l-34 -128h179q14 0 23 -9t9 -23z" />
+<glyph unicode="&#xf15a;" horiz-adv-x="1280" d="M1167 896q18 -182 -131 -258q117 -28 175 -103t45 -214q-7 -71 -32.5 -125t-64.5 -89t-97 -58.5t-121.5 -34.5t-145.5 -15v-255h-154v251q-80 0 -122 1v-252h-154v255q-18 0 -54 0.5t-55 0.5h-200l31 183h111q50 0 58 51v402h16q-6 1 -16 1v287q-13 68 -89 68h-111v164 l212 -1q64 0 97 1v252h154v-247q82 2 122 2v245h154v-252q79 -7 140 -22.5t113 -45t82.5 -78t36.5 -114.5zM952 351q0 36 -15 64t-37 46t-57.5 30.5t-65.5 18.5t-74 9t-69 3t-64.5 -1t-47.5 -1v-338q8 0 37 -0.5t48 -0.5t53 1.5t58.5 4t57 8.5t55.5 14t47.5 21t39.5 30 t24.5 40t9.5 51zM881 827q0 33 -12.5 58.5t-30.5 42t-48 28t-55 16.5t-61.5 8t-58 2.5t-54 -1t-39.5 -0.5v-307q5 0 34.5 -0.5t46.5 0t50 2t55 5.5t51.5 11t48.5 18.5t37 27t27 38.5t9 51z" />
+<glyph unicode="&#xf15b;" d="M1024 1024v472q22 -14 36 -28l408 -408q14 -14 28 -36h-472zM896 992q0 -40 28 -68t68 -28h544v-1056q0 -40 -28 -68t-68 -28h-1344q-40 0 -68 28t-28 68v1600q0 40 28 68t68 28h800v-544z" />
+<glyph unicode="&#xf15c;" d="M1468 1060q14 -14 28 -36h-472v472q22 -14 36 -28zM992 896h544v-1056q0 -40 -28 -68t-68 -28h-1344q-40 0 -68 28t-28 68v1600q0 40 28 68t68 28h800v-544q0 -40 28 -68t68 -28zM1152 160v64q0 14 -9 23t-23 9h-704q-14 0 -23 -9t-9 -23v-64q0 -14 9 -23t23 -9h704 q14 0 23 9t9 23zM1152 416v64q0 14 -9 23t-23 9h-704q-14 0 -23 -9t-9 -23v-64q0 -14 9 -23t23 -9h704q14 0 23 9t9 23zM1152 672v64q0 14 -9 23t-23 9h-704q-14 0 -23 -9t-9 -23v-64q0 -14 9 -23t23 -9h704q14 0 23 9t9 23z" />
+<glyph unicode="&#xf15d;" horiz-adv-x="1664" d="M1191 1128h177l-72 218l-12 47q-2 16 -2 20h-4l-3 -20q0 -1 -3.5 -18t-7.5 -29zM736 96q0 -12 -10 -24l-319 -319q-10 -9 -23 -9q-12 0 -23 9l-320 320q-15 16 -7 35q8 20 30 20h192v1376q0 14 9 23t23 9h192q14 0 23 -9t9 -23v-1376h192q14 0 23 -9t9 -23zM1572 -23 v-233h-584v90l369 529q12 18 21 27l11 9v3q-2 0 -6.5 -0.5t-7.5 -0.5q-12 -3 -30 -3h-232v-115h-120v229h567v-89l-369 -530q-6 -8 -21 -26l-11 -11v-2l14 2q9 2 30 2h248v119h121zM1661 874v-106h-288v106h75l-47 144h-243l-47 -144h75v-106h-287v106h70l230 662h162 l230 -662h70z" />
+<glyph unicode="&#xf15e;" horiz-adv-x="1664" d="M1191 104h177l-72 218l-12 47q-2 16 -2 20h-4l-3 -20q0 -1 -3.5 -18t-7.5 -29zM736 96q0 -12 -10 -24l-319 -319q-10 -9 -23 -9q-12 0 -23 9l-320 320q-15 16 -7 35q8 20 30 20h192v1376q0 14 9 23t23 9h192q14 0 23 -9t9 -23v-1376h192q14 0 23 -9t9 -23zM1661 -150 v-106h-288v106h75l-47 144h-243l-47 -144h75v-106h-287v106h70l230 662h162l230 -662h70zM1572 1001v-233h-584v90l369 529q12 18 21 27l11 9v3q-2 0 -6.5 -0.5t-7.5 -0.5q-12 -3 -30 -3h-232v-115h-120v229h567v-89l-369 -530q-6 -8 -21 -26l-11 -10v-3l14 3q9 1 30 1h248 v119h121z" />
+<glyph unicode="&#xf160;" horiz-adv-x="1792" d="M736 96q0 -12 -10 -24l-319 -319q-10 -9 -23 -9q-12 0 -23 9l-320 320q-15 16 -7 35q8 20 30 20h192v1376q0 14 9 23t23 9h192q14 0 23 -9t9 -23v-1376h192q14 0 23 -9t9 -23zM1792 -32v-192q0 -14 -9 -23t-23 -9h-832q-14 0 -23 9t-9 23v192q0 14 9 23t23 9h832 q14 0 23 -9t9 -23zM1600 480v-192q0 -14 -9 -23t-23 -9h-640q-14 0 -23 9t-9 23v192q0 14 9 23t23 9h640q14 0 23 -9t9 -23zM1408 992v-192q0 -14 -9 -23t-23 -9h-448q-14 0 -23 9t-9 23v192q0 14 9 23t23 9h448q14 0 23 -9t9 -23zM1216 1504v-192q0 -14 -9 -23t-23 -9h-256 q-14 0 -23 9t-9 23v192q0 14 9 23t23 9h256q14 0 23 -9t9 -23z" />
+<glyph unicode="&#xf161;" horiz-adv-x="1792" d="M1216 -32v-192q0 -14 -9 -23t-23 -9h-256q-14 0 -23 9t-9 23v192q0 14 9 23t23 9h256q14 0 23 -9t9 -23zM736 96q0 -12 -10 -24l-319 -319q-10 -9 -23 -9q-12 0 -23 9l-320 320q-15 16 -7 35q8 20 30 20h192v1376q0 14 9 23t23 9h192q14 0 23 -9t9 -23v-1376h192 q14 0 23 -9t9 -23zM1408 480v-192q0 -14 -9 -23t-23 -9h-448q-14 0 -23 9t-9 23v192q0 14 9 23t23 9h448q14 0 23 -9t9 -23zM1600 992v-192q0 -14 -9 -23t-23 -9h-640q-14 0 -23 9t-9 23v192q0 14 9 23t23 9h640q14 0 23 -9t9 -23zM1792 1504v-192q0 -14 -9 -23t-23 -9h-832 q-14 0 -23 9t-9 23v192q0 14 9 23t23 9h832q14 0 23 -9t9 -23z" />
+<glyph unicode="&#xf162;" d="M1346 223q0 63 -44 116t-103 53q-52 0 -83 -37t-31 -94t36.5 -95t104.5 -38q50 0 85 27t35 68zM736 96q0 -12 -10 -24l-319 -319q-10 -9 -23 -9q-12 0 -23 9l-320 320q-15 16 -7 35q8 20 30 20h192v1376q0 14 9 23t23 9h192q14 0 23 -9t9 -23v-1376h192q14 0 23 -9t9 -23 zM1486 165q0 -62 -13 -121.5t-41 -114t-68 -95.5t-98.5 -65.5t-127.5 -24.5q-62 0 -108 16q-24 8 -42 15l39 113q15 -7 31 -11q37 -13 75 -13q84 0 134.5 58.5t66.5 145.5h-2q-21 -23 -61.5 -37t-84.5 -14q-106 0 -173 71.5t-67 172.5q0 105 72 178t181 73q123 0 205 -94.5 t82 -252.5zM1456 882v-114h-469v114h167v432q0 7 0.5 19t0.5 17v16h-2l-7 -12q-8 -13 -26 -31l-62 -58l-82 86l192 185h123v-654h165z" />
+<glyph unicode="&#xf163;" d="M1346 1247q0 63 -44 116t-103 53q-52 0 -83 -37t-31 -94t36.5 -95t104.5 -38q50 0 85 27t35 68zM736 96q0 -12 -10 -24l-319 -319q-10 -9 -23 -9q-12 0 -23 9l-320 320q-15 16 -7 35q8 20 30 20h192v1376q0 14 9 23t23 9h192q14 0 23 -9t9 -23v-1376h192q14 0 23 -9 t9 -23zM1456 -142v-114h-469v114h167v432q0 7 0.5 19t0.5 17v16h-2l-7 -12q-8 -13 -26 -31l-62 -58l-82 86l192 185h123v-654h165zM1486 1189q0 -62 -13 -121.5t-41 -114t-68 -95.5t-98.5 -65.5t-127.5 -24.5q-62 0 -108 16q-24 8 -42 15l39 113q15 -7 31 -11q37 -13 75 -13 q84 0 134.5 58.5t66.5 145.5h-2q-21 -23 -61.5 -37t-84.5 -14q-106 0 -173 71.5t-67 172.5q0 105 72 178t181 73q123 0 205 -94.5t82 -252.5z" />
+<glyph unicode="&#xf164;" horiz-adv-x="1664" d="M256 192q0 26 -19 45t-45 19q-27 0 -45.5 -19t-18.5 -45q0 -27 18.5 -45.5t45.5 -18.5q26 0 45 18.5t19 45.5zM416 704v-640q0 -26 -19 -45t-45 -19h-288q-26 0 -45 19t-19 45v640q0 26 19 45t45 19h288q26 0 45 -19t19 -45zM1600 704q0 -86 -55 -149q15 -44 15 -76 q3 -76 -43 -137q17 -56 0 -117q-15 -57 -54 -94q9 -112 -49 -181q-64 -76 -197 -78h-36h-76h-17q-66 0 -144 15.5t-121.5 29t-120.5 39.5q-123 43 -158 44q-26 1 -45 19.5t-19 44.5v641q0 25 18 43.5t43 20.5q24 2 76 59t101 121q68 87 101 120q18 18 31 48t17.5 48.5 t13.5 60.5q7 39 12.5 61t19.5 52t34 50q19 19 45 19q46 0 82.5 -10.5t60 -26t40 -40.5t24 -45t12 -50t5 -45t0.5 -39q0 -38 -9.5 -76t-19 -60t-27.5 -56q-3 -6 -10 -18t-11 -22t-8 -24h277q78 0 135 -57t57 -135z" />
+<glyph unicode="&#xf165;" horiz-adv-x="1664" d="M256 960q0 -26 -19 -45t-45 -19q-27 0 -45.5 19t-18.5 45q0 27 18.5 45.5t45.5 18.5q26 0 45 -18.5t19 -45.5zM416 448v640q0 26 -19 45t-45 19h-288q-26 0 -45 -19t-19 -45v-640q0 -26 19 -45t45 -19h288q26 0 45 19t19 45zM1545 597q55 -61 55 -149q-1 -78 -57.5 -135 t-134.5 -57h-277q4 -14 8 -24t11 -22t10 -18q18 -37 27 -57t19 -58.5t10 -76.5q0 -24 -0.5 -39t-5 -45t-12 -50t-24 -45t-40 -40.5t-60 -26t-82.5 -10.5q-26 0 -45 19q-20 20 -34 50t-19.5 52t-12.5 61q-9 42 -13.5 60.5t-17.5 48.5t-31 48q-33 33 -101 120q-49 64 -101 121 t-76 59q-25 2 -43 20.5t-18 43.5v641q0 26 19 44.5t45 19.5q35 1 158 44q77 26 120.5 39.5t121.5 29t144 15.5h17h76h36q133 -2 197 -78q58 -69 49 -181q39 -37 54 -94q17 -61 0 -117q46 -61 43 -137q0 -32 -15 -76z" />
+<glyph unicode="&#xf166;" d="M919 233v157q0 50 -29 50q-17 0 -33 -16v-224q16 -16 33 -16q29 0 29 49zM1103 355h66v34q0 51 -33 51t-33 -51v-34zM532 621v-70h-80v-423h-74v423h-78v70h232zM733 495v-367h-67v40q-39 -45 -76 -45q-33 0 -42 28q-6 16 -6 54v290h66v-270q0 -24 1 -26q1 -15 15 -15 q20 0 42 31v280h67zM985 384v-146q0 -52 -7 -73q-12 -42 -53 -42q-35 0 -68 41v-36h-67v493h67v-161q32 40 68 40q41 0 53 -42q7 -21 7 -74zM1236 255v-9q0 -29 -2 -43q-3 -22 -15 -40q-27 -40 -80 -40q-52 0 -81 38q-21 27 -21 86v129q0 59 20 86q29 38 80 38t78 -38 q21 -28 21 -86v-76h-133v-65q0 -51 34 -51q24 0 30 26q0 1 0.5 7t0.5 16.5v21.5h68zM785 1079v-156q0 -51 -32 -51t-32 51v156q0 52 32 52t32 -52zM1318 366q0 177 -19 260q-10 44 -43 73.5t-76 34.5q-136 15 -412 15q-275 0 -411 -15q-44 -5 -76.5 -34.5t-42.5 -73.5 q-20 -87 -20 -260q0 -176 20 -260q10 -43 42.5 -73t75.5 -35q137 -15 412 -15t412 15q43 5 75.5 35t42.5 73q20 84 20 260zM563 1017l90 296h-75l-51 -195l-53 195h-78l24 -69t23 -69q35 -103 46 -158v-201h74v201zM852 936v130q0 58 -21 87q-29 38 -78 38q-51 0 -78 -38 q-21 -29 -21 -87v-130q0 -58 21 -87q27 -38 78 -38q49 0 78 38q21 27 21 87zM1033 816h67v370h-67v-283q-22 -31 -42 -31q-15 0 -16 16q-1 2 -1 26v272h-67v-293q0 -37 6 -55q11 -27 43 -27q36 0 77 45v-40zM1536 1120v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960 q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf167;" d="M971 292v-211q0 -67 -39 -67q-23 0 -45 22v301q22 22 45 22q39 0 39 -67zM1309 291v-46h-90v46q0 68 45 68t45 -68zM343 509h107v94h-312v-94h105v-569h100v569zM631 -60h89v494h-89v-378q-30 -42 -57 -42q-18 0 -21 21q-1 3 -1 35v364h-89v-391q0 -49 8 -73 q12 -37 58 -37q48 0 102 61v-54zM1060 88v197q0 73 -9 99q-17 56 -71 56q-50 0 -93 -54v217h-89v-663h89v48q45 -55 93 -55q54 0 71 55q9 27 9 100zM1398 98v13h-91q0 -51 -2 -61q-7 -36 -40 -36q-46 0 -46 69v87h179v103q0 79 -27 116q-39 51 -106 51q-68 0 -107 -51 q-28 -37 -28 -116v-173q0 -79 29 -116q39 -51 108 -51q72 0 108 53q18 27 21 54q2 9 2 58zM790 1011v210q0 69 -43 69t-43 -69v-210q0 -70 43 -70t43 70zM1509 260q0 -234 -26 -350q-14 -59 -58 -99t-102 -46q-184 -21 -555 -21t-555 21q-58 6 -102.5 46t-57.5 99 q-26 112 -26 350q0 234 26 350q14 59 58 99t103 47q183 20 554 20t555 -20q58 -7 102.5 -47t57.5 -99q26 -112 26 -350zM511 1536h102l-121 -399v-271h-100v271q-14 74 -61 212q-37 103 -65 187h106l71 -263zM881 1203v-175q0 -81 -28 -118q-37 -51 -106 -51q-67 0 -105 51 q-28 38 -28 118v175q0 80 28 117q38 51 105 51q69 0 106 -51q28 -37 28 -117zM1216 1365v-499h-91v55q-53 -62 -103 -62q-46 0 -59 37q-8 24 -8 75v394h91v-367q0 -33 1 -35q3 -22 21 -22q27 0 57 43v381h91z" />
+<glyph unicode="&#xf168;" horiz-adv-x="1408" d="M597 869q-10 -18 -257 -456q-27 -46 -65 -46h-239q-21 0 -31 17t0 36l253 448q1 0 0 1l-161 279q-12 22 -1 37q9 15 32 15h239q40 0 66 -45zM1403 1511q11 -16 0 -37l-528 -934v-1l336 -615q11 -20 1 -37q-10 -15 -32 -15h-239q-42 0 -66 45l-339 622q18 32 531 942 q25 45 64 45h241q22 0 31 -15z" />
+<glyph unicode="&#xf169;" d="M685 771q0 1 -126 222q-21 34 -52 34h-184q-18 0 -26 -11q-7 -12 1 -29l125 -216v-1l-196 -346q-9 -14 0 -28q8 -13 24 -13h185q31 0 50 36zM1309 1268q-7 12 -24 12h-187q-30 0 -49 -35l-411 -729q1 -2 262 -481q20 -35 52 -35h184q18 0 25 12q8 13 -1 28l-260 476v1 l409 723q8 16 0 28zM1536 1120v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf16a;" horiz-adv-x="1792" d="M1280 640q0 37 -30 54l-512 320q-31 20 -65 2q-33 -18 -33 -56v-640q0 -38 33 -56q16 -8 31 -8q20 0 34 10l512 320q30 17 30 54zM1792 640q0 -96 -1 -150t-8.5 -136.5t-22.5 -147.5q-16 -73 -69 -123t-124 -58q-222 -25 -671 -25t-671 25q-71 8 -124.5 58t-69.5 123 q-14 65 -21.5 147.5t-8.5 136.5t-1 150t1 150t8.5 136.5t22.5 147.5q16 73 69 123t124 58q222 25 671 25t671 -25q71 -8 124.5 -58t69.5 -123q14 -65 21.5 -147.5t8.5 -136.5t1 -150z" />
+<glyph unicode="&#xf16b;" horiz-adv-x="1792" d="M402 829l494 -305l-342 -285l-490 319zM1388 274v-108l-490 -293v-1l-1 1l-1 -1v1l-489 293v108l147 -96l342 284v2l1 -1l1 1v-2l343 -284zM554 1418l342 -285l-494 -304l-338 270zM1390 829l338 -271l-489 -319l-343 285zM1239 1418l489 -319l-338 -270l-494 304z" />
+<glyph unicode="&#xf16c;" horiz-adv-x="1408" d="M928 135v-151l-707 -1v151zM1169 481v-701l-1 -35v-1h-1132l-35 1h-1v736h121v-618h928v618h120zM241 393l704 -65l-13 -150l-705 65zM309 709l683 -183l-39 -146l-683 183zM472 1058l609 -360l-77 -130l-609 360zM832 1389l398 -585l-124 -85l-399 584zM1285 1536 l121 -697l-149 -26l-121 697z" />
+<glyph unicode="&#xf16d;" d="M1362 110v648h-135q20 -63 20 -131q0 -126 -64 -232.5t-174 -168.5t-240 -62q-197 0 -337 135.5t-140 327.5q0 68 20 131h-141v-648q0 -26 17.5 -43.5t43.5 -17.5h1069q25 0 43 17.5t18 43.5zM1078 643q0 124 -90.5 211.5t-218.5 87.5q-127 0 -217.5 -87.5t-90.5 -211.5 t90.5 -211.5t217.5 -87.5q128 0 218.5 87.5t90.5 211.5zM1362 1003v165q0 28 -20 48.5t-49 20.5h-174q-29 0 -49 -20.5t-20 -48.5v-165q0 -29 20 -49t49 -20h174q29 0 49 20t20 49zM1536 1211v-1142q0 -81 -58 -139t-139 -58h-1142q-81 0 -139 58t-58 139v1142q0 81 58 139 t139 58h1142q81 0 139 -58t58 -139z" />
+<glyph unicode="&#xf16e;" d="M1248 1408q119 0 203.5 -84.5t84.5 -203.5v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960zM698 640q0 88 -62 150t-150 62t-150 -62t-62 -150t62 -150t150 -62t150 62t62 150zM1262 640q0 88 -62 150 t-150 62t-150 -62t-62 -150t62 -150t150 -62t150 62t62 150z" />
+<glyph unicode="&#xf170;" d="M768 914l201 -306h-402zM1133 384h94l-459 691l-459 -691h94l104 160h522zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf171;" horiz-adv-x="1408" d="M815 677q8 -63 -50.5 -101t-111.5 -6q-39 17 -53.5 58t-0.5 82t52 58q36 18 72.5 12t64 -35.5t27.5 -67.5zM926 698q-14 107 -113 164t-197 13q-63 -28 -100.5 -88.5t-34.5 -129.5q4 -91 77.5 -155t165.5 -56q91 8 152 84t50 168zM1165 1240q-20 27 -56 44.5t-58 22 t-71 12.5q-291 47 -566 -2q-43 -7 -66 -12t-55 -22t-50 -43q30 -28 76 -45.5t73.5 -22t87.5 -11.5q228 -29 448 -1q63 8 89.5 12t72.5 21.5t75 46.5zM1222 205q-8 -26 -15.5 -76.5t-14 -84t-28.5 -70t-58 -56.5q-86 -48 -189.5 -71.5t-202 -22t-201.5 18.5q-46 8 -81.5 18 t-76.5 27t-73 43.5t-52 61.5q-25 96 -57 292l6 16l18 9q223 -148 506.5 -148t507.5 148q21 -6 24 -23t-5 -45t-8 -37zM1403 1166q-26 -167 -111 -655q-5 -30 -27 -56t-43.5 -40t-54.5 -31q-252 -126 -610 -88q-248 27 -394 139q-15 12 -25.5 26.5t-17 35t-9 34t-6 39.5 t-5.5 35q-9 50 -26.5 150t-28 161.5t-23.5 147.5t-22 158q3 26 17.5 48.5t31.5 37.5t45 30t46 22.5t48 18.5q125 46 313 64q379 37 676 -50q155 -46 215 -122q16 -20 16.5 -51t-5.5 -54z" />
+<glyph unicode="&#xf172;" d="M848 666q0 43 -41 66t-77 1q-43 -20 -42.5 -72.5t43.5 -70.5q39 -23 81 4t36 72zM928 682q8 -66 -36 -121t-110 -61t-119 40t-56 113q-2 49 25.5 93t72.5 64q70 31 141.5 -10t81.5 -118zM1100 1073q-20 -21 -53.5 -34t-53 -16t-63.5 -8q-155 -20 -324 0q-44 6 -63 9.5 t-52.5 16t-54.5 32.5q13 19 36 31t40 15.5t47 8.5q198 35 408 1q33 -5 51 -8.5t43 -16t39 -31.5zM1142 327q0 7 5.5 26.5t3 32t-17.5 16.5q-161 -106 -365 -106t-366 106l-12 -6l-5 -12q26 -154 41 -210q47 -81 204 -108q249 -46 428 53q34 19 49 51.5t22.5 85.5t12.5 71z M1272 1020q9 53 -8 75q-43 55 -155 88q-216 63 -487 36q-132 -12 -226 -46q-38 -15 -59.5 -25t-47 -34t-29.5 -54q8 -68 19 -138t29 -171t24 -137q1 -5 5 -31t7 -36t12 -27t22 -28q105 -80 284 -100q259 -28 440 63q24 13 39.5 23t31 29t19.5 40q48 267 80 473zM1536 1120 v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf173;" horiz-adv-x="1024" d="M944 207l80 -237q-23 -35 -111 -66t-177 -32q-104 -2 -190.5 26t-142.5 74t-95 106t-55.5 120t-16.5 118v544h-168v215q72 26 129 69.5t91 90t58 102t34 99t15 88.5q1 5 4.5 8.5t7.5 3.5h244v-424h333v-252h-334v-518q0 -30 6.5 -56t22.5 -52.5t49.5 -41.5t81.5 -14 q78 2 134 29z" />
+<glyph unicode="&#xf174;" d="M1136 75l-62 183q-44 -22 -103 -22q-36 -1 -62 10.5t-38.5 31.5t-17.5 40.5t-5 43.5v398h257v194h-256v326h-188q-8 0 -9 -10q-5 -44 -17.5 -87t-39 -95t-77 -95t-118.5 -68v-165h130v-418q0 -57 21.5 -115t65 -111t121 -85.5t176.5 -30.5q69 1 136.5 25t85.5 50z M1536 1120v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf175;" horiz-adv-x="768" d="M765 237q8 -19 -5 -35l-350 -384q-10 -10 -23 -10q-14 0 -24 10l-355 384q-13 16 -5 35q9 19 29 19h224v1248q0 14 9 23t23 9h192q14 0 23 -9t9 -23v-1248h224q21 0 29 -19z" />
+<glyph unicode="&#xf176;" horiz-adv-x="768" d="M765 1043q-9 -19 -29 -19h-224v-1248q0 -14 -9 -23t-23 -9h-192q-14 0 -23 9t-9 23v1248h-224q-21 0 -29 19t5 35l350 384q10 10 23 10q14 0 24 -10l355 -384q13 -16 5 -35z" />
+<glyph unicode="&#xf177;" horiz-adv-x="1792" d="M1792 736v-192q0 -14 -9 -23t-23 -9h-1248v-224q0 -21 -19 -29t-35 5l-384 350q-10 10 -10 23q0 14 10 24l384 354q16 14 35 6q19 -9 19 -29v-224h1248q14 0 23 -9t9 -23z" />
+<glyph unicode="&#xf178;" horiz-adv-x="1792" d="M1728 643q0 -14 -10 -24l-384 -354q-16 -14 -35 -6q-19 9 -19 29v224h-1248q-14 0 -23 9t-9 23v192q0 14 9 23t23 9h1248v224q0 21 19 29t35 -5l384 -350q10 -10 10 -23z" />
+<glyph unicode="&#xf179;" horiz-adv-x="1408" d="M1393 321q-39 -125 -123 -250q-129 -196 -257 -196q-49 0 -140 32q-86 32 -151 32q-61 0 -142 -33q-81 -34 -132 -34q-152 0 -301 259q-147 261 -147 503q0 228 113 374q112 144 284 144q72 0 177 -30q104 -30 138 -30q45 0 143 34q102 34 173 34q119 0 213 -65 q52 -36 104 -100q-79 -67 -114 -118q-65 -94 -65 -207q0 -124 69 -223t158 -126zM1017 1494q0 -61 -29 -136q-30 -75 -93 -138q-54 -54 -108 -72q-37 -11 -104 -17q3 149 78 257q74 107 250 148q1 -3 2.5 -11t2.5 -11q0 -4 0.5 -10t0.5 -10z" />
+<glyph unicode="&#xf17a;" horiz-adv-x="1664" d="M682 530v-651l-682 94v557h682zM682 1273v-659h-682v565zM1664 530v-786l-907 125v661h907zM1664 1408v-794h-907v669z" />
+<glyph unicode="&#xf17b;" horiz-adv-x="1408" d="M493 1053q16 0 27.5 11.5t11.5 27.5t-11.5 27.5t-27.5 11.5t-27 -11.5t-11 -27.5t11 -27.5t27 -11.5zM915 1053q16 0 27 11.5t11 27.5t-11 27.5t-27 11.5t-27.5 -11.5t-11.5 -27.5t11.5 -27.5t27.5 -11.5zM103 869q42 0 72 -30t30 -72v-430q0 -43 -29.5 -73t-72.5 -30 t-73 30t-30 73v430q0 42 30 72t73 30zM1163 850v-666q0 -46 -32 -78t-77 -32h-75v-227q0 -43 -30 -73t-73 -30t-73 30t-30 73v227h-138v-227q0 -43 -30 -73t-73 -30q-42 0 -72 30t-30 73l-1 227h-74q-46 0 -78 32t-32 78v666h918zM931 1255q107 -55 171 -153.5t64 -215.5 h-925q0 117 64 215.5t172 153.5l-71 131q-7 13 5 20q13 6 20 -6l72 -132q95 42 201 42t201 -42l72 132q7 12 20 6q12 -7 5 -20zM1408 767v-430q0 -43 -30 -73t-73 -30q-42 0 -72 30t-30 73v430q0 43 30 72.5t72 29.5q43 0 73 -29.5t30 -72.5z" />
+<glyph unicode="&#xf17c;" d="M663 1125q-11 -1 -15.5 -10.5t-8.5 -9.5q-5 -1 -5 5q0 12 19 15h10zM750 1111q-4 -1 -11.5 6.5t-17.5 4.5q24 11 32 -2q3 -6 -3 -9zM399 684q-4 1 -6 -3t-4.5 -12.5t-5.5 -13.5t-10 -13q-7 -10 -1 -12q4 -1 12.5 7t12.5 18q1 3 2 7t2 6t1.5 4.5t0.5 4v3t-1 2.5t-3 2z M1254 325q0 18 -55 42q4 15 7.5 27.5t5 26t3 21.5t0.5 22.5t-1 19.5t-3.5 22t-4 20.5t-5 25t-5.5 26.5q-10 48 -47 103t-72 75q24 -20 57 -83q87 -162 54 -278q-11 -40 -50 -42q-31 -4 -38.5 18.5t-8 83.5t-11.5 107q-9 39 -19.5 69t-19.5 45.5t-15.5 24.5t-13 15t-7.5 7 q-14 62 -31 103t-29.5 56t-23.5 33t-15 40q-4 21 6 53.5t4.5 49.5t-44.5 25q-15 3 -44.5 18t-35.5 16q-8 1 -11 26t8 51t36 27q37 3 51 -30t4 -58q-11 -19 -2 -26.5t30 -0.5q13 4 13 36v37q-5 30 -13.5 50t-21 30.5t-23.5 15t-27 7.5q-107 -8 -89 -134q0 -15 -1 -15 q-9 9 -29.5 10.5t-33 -0.5t-15.5 5q1 57 -16 90t-45 34q-27 1 -41.5 -27.5t-16.5 -59.5q-1 -15 3.5 -37t13 -37.5t15.5 -13.5q10 3 16 14q4 9 -7 8q-7 0 -15.5 14.5t-9.5 33.5q-1 22 9 37t34 14q17 0 27 -21t9.5 -39t-1.5 -22q-22 -15 -31 -29q-8 -12 -27.5 -23.5 t-20.5 -12.5q-13 -14 -15.5 -27t7.5 -18q14 -8 25 -19.5t16 -19t18.5 -13t35.5 -6.5q47 -2 102 15q2 1 23 7t34.5 10.5t29.5 13t21 17.5q9 14 20 8q5 -3 6.5 -8.5t-3 -12t-16.5 -9.5q-20 -6 -56.5 -21.5t-45.5 -19.5q-44 -19 -70 -23q-25 -5 -79 2q-10 2 -9 -2t17 -19 q25 -23 67 -22q17 1 36 7t36 14t33.5 17.5t30 17t24.5 12t17.5 2.5t8.5 -11q0 -2 -1 -4.5t-4 -5t-6 -4.5t-8.5 -5t-9 -4.5t-10 -5t-9.5 -4.5q-28 -14 -67.5 -44t-66.5 -43t-49 -1q-21 11 -63 73q-22 31 -25 22q-1 -3 -1 -10q0 -25 -15 -56.5t-29.5 -55.5t-21 -58t11.5 -63 q-23 -6 -62.5 -90t-47.5 -141q-2 -18 -1.5 -69t-5.5 -59q-8 -24 -29 -3q-32 31 -36 94q-2 28 4 56q4 19 -1 18l-4 -5q-36 -65 10 -166q5 -12 25 -28t24 -20q20 -23 104 -90.5t93 -76.5q16 -15 17.5 -38t-14 -43t-45.5 -23q8 -15 29 -44.5t28 -54t7 -70.5q46 24 7 92 q-4 8 -10.5 16t-9.5 12t-2 6q3 5 13 9.5t20 -2.5q46 -52 166 -36q133 15 177 87q23 38 34 30q12 -6 10 -52q-1 -25 -23 -92q-9 -23 -6 -37.5t24 -15.5q3 19 14.5 77t13.5 90q2 21 -6.5 73.5t-7.5 97t23 70.5q15 18 51 18q1 37 34.5 53t72.5 10.5t60 -22.5zM626 1152 q3 17 -2.5 30t-11.5 15q-9 2 -9 -7q2 -5 5 -6q10 0 7 -15q-3 -20 8 -20q3 0 3 3zM1045 955q-2 8 -6.5 11.5t-13 5t-14.5 5.5q-5 3 -9.5 8t-7 8t-5.5 6.5t-4 4t-4 -1.5q-14 -16 7 -43.5t39 -31.5q9 -1 14.5 8t3.5 20zM867 1168q0 11 -5 19.5t-11 12.5t-9 3q-14 -1 -7 -7l4 -2 q14 -4 18 -31q0 -3 8 2zM921 1401q0 2 -2.5 5t-9 7t-9.5 6q-15 15 -24 15q-9 -1 -11.5 -7.5t-1 -13t-0.5 -12.5q-1 -4 -6 -10.5t-6 -9t3 -8.5q4 -3 8 0t11 9t15 9q1 1 9 1t15 2t9 7zM1486 60q20 -12 31 -24.5t12 -24t-2.5 -22.5t-15.5 -22t-23.5 -19.5t-30 -18.5 t-31.5 -16.5t-32 -15.5t-27 -13q-38 -19 -85.5 -56t-75.5 -64q-17 -16 -68 -19.5t-89 14.5q-18 9 -29.5 23.5t-16.5 25.5t-22 19.5t-47 9.5q-44 1 -130 1q-19 0 -57 -1.5t-58 -2.5q-44 -1 -79.5 -15t-53.5 -30t-43.5 -28.5t-53.5 -11.5q-29 1 -111 31t-146 43q-19 4 -51 9.5 t-50 9t-39.5 9.5t-33.5 14.5t-17 19.5q-10 23 7 66.5t18 54.5q1 16 -4 40t-10 42.5t-4.5 36.5t10.5 27q14 12 57 14t60 12q30 18 42 35t12 51q21 -73 -32 -106q-32 -20 -83 -15q-34 3 -43 -10q-13 -15 5 -57q2 -6 8 -18t8.5 -18t4.5 -17t1 -22q0 -15 -17 -49t-14 -48 q3 -17 37 -26q20 -6 84.5 -18.5t99.5 -20.5q24 -6 74 -22t82.5 -23t55.5 -4q43 6 64.5 28t23 48t-7.5 58.5t-19 52t-20 36.5q-121 190 -169 242q-68 74 -113 40q-11 -9 -15 15q-3 16 -2 38q1 29 10 52t24 47t22 42q8 21 26.5 72t29.5 78t30 61t39 54q110 143 124 195 q-12 112 -16 310q-2 90 24 151.5t106 104.5q39 21 104 21q53 1 106 -13.5t89 -41.5q57 -42 91.5 -121.5t29.5 -147.5q-5 -95 30 -214q34 -113 133 -218q55 -59 99.5 -163t59.5 -191q8 -49 5 -84.5t-12 -55.5t-20 -22q-10 -2 -23.5 -19t-27 -35.5t-40.5 -33.5t-61 -14 q-18 1 -31.5 5t-22.5 13.5t-13.5 15.5t-11.5 20.5t-9 19.5q-22 37 -41 30t-28 -49t7 -97q20 -70 1 -195q-10 -65 18 -100.5t73 -33t85 35.5q59 49 89.5 66.5t103.5 42.5q53 18 77 36.5t18.5 34.5t-25 28.5t-51.5 23.5q-33 11 -49.5 48t-15 72.5t15.5 47.5q1 -31 8 -56.5 t14.5 -40.5t20.5 -28.5t21 -19t21.5 -13t16.5 -9.5z" />
+<glyph unicode="&#xf17d;" d="M1024 36q-42 241 -140 498h-2l-2 -1q-16 -6 -43 -16.5t-101 -49t-137 -82t-131 -114.5t-103 -148l-15 11q184 -150 418 -150q132 0 256 52zM839 643q-21 49 -53 111q-311 -93 -673 -93q-1 -7 -1 -21q0 -124 44 -236.5t124 -201.5q50 89 123.5 166.5t142.5 124.5t130.5 81 t99.5 48l37 13q4 1 13 3.5t13 4.5zM732 855q-120 213 -244 378q-138 -65 -234 -186t-128 -272q302 0 606 80zM1416 536q-210 60 -409 29q87 -239 128 -469q111 75 185 189.5t96 250.5zM611 1277q-1 0 -2 -1q1 1 2 1zM1201 1132q-185 164 -433 164q-76 0 -155 -19 q131 -170 246 -382q69 26 130 60.5t96.5 61.5t65.5 57t37.5 40.5zM1424 647q-3 232 -149 410l-1 -1q-9 -12 -19 -24.5t-43.5 -44.5t-71 -60.5t-100 -65t-131.5 -64.5q25 -53 44 -95q2 -6 6.5 -17.5t7.5 -16.5q36 5 74.5 7t73.5 2t69 -1.5t64 -4t56.5 -5.5t48 -6.5t36.5 -6 t25 -4.5zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf17e;" d="M1173 473q0 50 -19.5 91.5t-48.5 68.5t-73 49t-82.5 34t-87.5 23l-104 24q-30 7 -44 10.5t-35 11.5t-30 16t-16.5 21t-7.5 30q0 77 144 77q43 0 77 -12t54 -28.5t38 -33.5t40 -29t48 -12q47 0 75.5 32t28.5 77q0 55 -56 99.5t-142 67.5t-182 23q-68 0 -132 -15.5 t-119.5 -47t-89 -87t-33.5 -128.5q0 -61 19 -106.5t56 -75.5t80 -48.5t103 -32.5l146 -36q90 -22 112 -36q32 -20 32 -60q0 -39 -40 -64.5t-105 -25.5q-51 0 -91.5 16t-65 38.5t-45.5 45t-46 38.5t-54 16q-50 0 -75.5 -30t-25.5 -75q0 -92 122 -157.5t291 -65.5 q73 0 140 18.5t122.5 53.5t88.5 93.5t33 131.5zM1536 256q0 -159 -112.5 -271.5t-271.5 -112.5q-130 0 -234 80q-77 -16 -150 -16q-143 0 -273.5 55.5t-225 150t-150 225t-55.5 273.5q0 73 16 150q-80 104 -80 234q0 159 112.5 271.5t271.5 112.5q130 0 234 -80 q77 16 150 16q143 0 273.5 -55.5t225 -150t150 -225t55.5 -273.5q0 -73 -16 -150q80 -104 80 -234z" />
+<glyph unicode="&#xf180;" horiz-adv-x="1280" d="M1000 1102l37 194q5 23 -9 40t-35 17h-712q-23 0 -38.5 -17t-15.5 -37v-1101q0 -7 6 -1l291 352q23 26 38 33.5t48 7.5h239q22 0 37 14.5t18 29.5q24 130 37 191q4 21 -11.5 40t-36.5 19h-294q-29 0 -48 19t-19 48v42q0 29 19 47.5t48 18.5h346q18 0 35 13.5t20 29.5z M1227 1324q-15 -73 -53.5 -266.5t-69.5 -350t-35 -173.5q-6 -22 -9 -32.5t-14 -32.5t-24.5 -33t-38.5 -21t-58 -10h-271q-13 0 -22 -10q-8 -9 -426 -494q-22 -25 -58.5 -28.5t-48.5 5.5q-55 22 -55 98v1410q0 55 38 102.5t120 47.5h888q95 0 127 -53t10 -159zM1227 1324 l-158 -790q4 17 35 173.5t69.5 350t53.5 266.5z" />
+<glyph unicode="&#xf181;" d="M704 192v1024q0 14 -9 23t-23 9h-480q-14 0 -23 -9t-9 -23v-1024q0 -14 9 -23t23 -9h480q14 0 23 9t9 23zM1376 576v640q0 14 -9 23t-23 9h-480q-14 0 -23 -9t-9 -23v-640q0 -14 9 -23t23 -9h480q14 0 23 9t9 23zM1536 1344v-1408q0 -26 -19 -45t-45 -19h-1408 q-26 0 -45 19t-19 45v1408q0 26 19 45t45 19h1408q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf182;" horiz-adv-x="1280" d="M1280 480q0 -40 -28 -68t-68 -28q-51 0 -80 43l-227 341h-45v-132l247 -411q9 -15 9 -33q0 -26 -19 -45t-45 -19h-192v-272q0 -46 -33 -79t-79 -33h-160q-46 0 -79 33t-33 79v272h-192q-26 0 -45 19t-19 45q0 18 9 33l247 411v132h-45l-227 -341q-29 -43 -80 -43 q-40 0 -68 28t-28 68q0 29 16 53l256 384q73 107 176 107h384q103 0 176 -107l256 -384q16 -24 16 -53zM864 1280q0 -93 -65.5 -158.5t-158.5 -65.5t-158.5 65.5t-65.5 158.5t65.5 158.5t158.5 65.5t158.5 -65.5t65.5 -158.5z" />
+<glyph unicode="&#xf183;" horiz-adv-x="1024" d="M1024 832v-416q0 -40 -28 -68t-68 -28t-68 28t-28 68v352h-64v-912q0 -46 -33 -79t-79 -33t-79 33t-33 79v464h-64v-464q0 -46 -33 -79t-79 -33t-79 33t-33 79v912h-64v-352q0 -40 -28 -68t-68 -28t-68 28t-28 68v416q0 80 56 136t136 56h640q80 0 136 -56t56 -136z M736 1280q0 -93 -65.5 -158.5t-158.5 -65.5t-158.5 65.5t-65.5 158.5t65.5 158.5t158.5 65.5t158.5 -65.5t65.5 -158.5z" />
+<glyph unicode="&#xf184;" d="M773 234l350 473q16 22 24.5 59t-6 85t-61.5 79q-40 26 -83 25.5t-73.5 -17.5t-54.5 -45q-36 -40 -96 -40q-59 0 -95 40q-24 28 -54.5 45t-73.5 17.5t-84 -25.5q-46 -31 -60.5 -79t-6 -85t24.5 -59zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103 t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf185;" horiz-adv-x="1792" d="M1472 640q0 117 -45.5 223.5t-123 184t-184 123t-223.5 45.5t-223.5 -45.5t-184 -123t-123 -184t-45.5 -223.5t45.5 -223.5t123 -184t184 -123t223.5 -45.5t223.5 45.5t184 123t123 184t45.5 223.5zM1748 363q-4 -15 -20 -20l-292 -96v-306q0 -16 -13 -26q-15 -10 -29 -4 l-292 94l-180 -248q-10 -13 -26 -13t-26 13l-180 248l-292 -94q-14 -6 -29 4q-13 10 -13 26v306l-292 96q-16 5 -20 20q-5 17 4 29l180 248l-180 248q-9 13 -4 29q4 15 20 20l292 96v306q0 16 13 26q15 10 29 4l292 -94l180 248q9 12 26 12t26 -12l180 -248l292 94 q14 6 29 -4q13 -10 13 -26v-306l292 -96q16 -5 20 -20q5 -16 -4 -29l-180 -248l180 -248q9 -12 4 -29z" />
+<glyph unicode="&#xf186;" d="M1262 233q-54 -9 -110 -9q-182 0 -337 90t-245 245t-90 337q0 192 104 357q-201 -60 -328.5 -229t-127.5 -384q0 -130 51 -248.5t136.5 -204t204 -136.5t248.5 -51q144 0 273.5 61.5t220.5 171.5zM1465 318q-94 -203 -283.5 -324.5t-413.5 -121.5q-156 0 -298 61 t-245 164t-164 245t-61 298q0 153 57.5 292.5t156 241.5t235.5 164.5t290 68.5q44 2 61 -39q18 -41 -15 -72q-86 -78 -131.5 -181.5t-45.5 -218.5q0 -148 73 -273t198 -198t273 -73q118 0 228 51q41 18 72 -13q14 -14 17.5 -34t-4.5 -38z" />
+<glyph unicode="&#xf187;" horiz-adv-x="1792" d="M1088 704q0 26 -19 45t-45 19h-256q-26 0 -45 -19t-19 -45t19 -45t45 -19h256q26 0 45 19t19 45zM1664 896v-960q0 -26 -19 -45t-45 -19h-1408q-26 0 -45 19t-19 45v960q0 26 19 45t45 19h1408q26 0 45 -19t19 -45zM1728 1344v-256q0 -26 -19 -45t-45 -19h-1536 q-26 0 -45 19t-19 45v256q0 26 19 45t45 19h1536q26 0 45 -19t19 -45z" />
+<glyph unicode="&#xf188;" horiz-adv-x="1664" d="M1632 576q0 -26 -19 -45t-45 -19h-224q0 -171 -67 -290l208 -209q19 -19 19 -45t-19 -45q-18 -19 -45 -19t-45 19l-198 197q-5 -5 -15 -13t-42 -28.5t-65 -36.5t-82 -29t-97 -13v896h-128v-896q-51 0 -101.5 13.5t-87 33t-66 39t-43.5 32.5l-15 14l-183 -207 q-20 -21 -48 -21q-24 0 -43 16q-19 18 -20.5 44.5t15.5 46.5l202 227q-58 114 -58 274h-224q-26 0 -45 19t-19 45t19 45t45 19h224v294l-173 173q-19 19 -19 45t19 45t45 19t45 -19l173 -173h844l173 173q19 19 45 19t45 -19t19 -45t-19 -45l-173 -173v-294h224q26 0 45 -19 t19 -45zM1152 1152h-640q0 133 93.5 226.5t226.5 93.5t226.5 -93.5t93.5 -226.5z" />
+<glyph unicode="&#xf189;" horiz-adv-x="1920" d="M1917 1016q23 -64 -150 -294q-24 -32 -65 -85q-78 -100 -90 -131q-17 -41 14 -81q17 -21 81 -82h1l1 -1l1 -1l2 -2q141 -131 191 -221q3 -5 6.5 -12.5t7 -26.5t-0.5 -34t-25 -27.5t-59 -12.5l-256 -4q-24 -5 -56 5t-52 22l-20 12q-30 21 -70 64t-68.5 77.5t-61 58 t-56.5 15.5q-3 -1 -8 -3.5t-17 -14.5t-21.5 -29.5t-17 -52t-6.5 -77.5q0 -15 -3.5 -27.5t-7.5 -18.5l-4 -5q-18 -19 -53 -22h-115q-71 -4 -146 16.5t-131.5 53t-103 66t-70.5 57.5l-25 24q-10 10 -27.5 30t-71.5 91t-106 151t-122.5 211t-130.5 272q-6 16 -6 27t3 16l4 6 q15 19 57 19l274 2q12 -2 23 -6.5t16 -8.5l5 -3q16 -11 24 -32q20 -50 46 -103.5t41 -81.5l16 -29q29 -60 56 -104t48.5 -68.5t41.5 -38.5t34 -14t27 5q2 1 5 5t12 22t13.5 47t9.5 81t0 125q-2 40 -9 73t-14 46l-6 12q-25 34 -85 43q-13 2 5 24q17 19 38 30q53 26 239 24 q82 -1 135 -13q20 -5 33.5 -13.5t20.5 -24t10.5 -32t3.5 -45.5t-1 -55t-2.5 -70.5t-1.5 -82.5q0 -11 -1 -42t-0.5 -48t3.5 -40.5t11.5 -39t22.5 -24.5q8 -2 17 -4t26 11t38 34.5t52 67t68 107.5q60 104 107 225q4 10 10 17.5t11 10.5l4 3l5 2.5t13 3t20 0.5l288 2 q39 5 64 -2.5t31 -16.5z" />
+<glyph unicode="&#xf18a;" horiz-adv-x="1792" d="M675 252q21 34 11 69t-45 50q-34 14 -73 1t-60 -46q-22 -34 -13 -68.5t43 -50.5t74.5 -2.5t62.5 47.5zM769 373q8 13 3.5 26.5t-17.5 18.5q-14 5 -28.5 -0.5t-21.5 -18.5q-17 -31 13 -45q14 -5 29 0.5t22 18.5zM943 266q-45 -102 -158 -150t-224 -12 q-107 34 -147.5 126.5t6.5 187.5q47 93 151.5 139t210.5 19q111 -29 158.5 -119.5t2.5 -190.5zM1255 426q-9 96 -89 170t-208.5 109t-274.5 21q-223 -23 -369.5 -141.5t-132.5 -264.5q9 -96 89 -170t208.5 -109t274.5 -21q223 23 369.5 141.5t132.5 264.5zM1563 422 q0 -68 -37 -139.5t-109 -137t-168.5 -117.5t-226 -83t-270.5 -31t-275 33.5t-240.5 93t-171.5 151t-65 199.5q0 115 69.5 245t197.5 258q169 169 341.5 236t246.5 -7q65 -64 20 -209q-4 -14 -1 -20t10 -7t14.5 0.5t13.5 3.5l6 2q139 59 246 59t153 -61q45 -63 0 -178 q-2 -13 -4.5 -20t4.5 -12.5t12 -7.5t17 -6q57 -18 103 -47t80 -81.5t34 -116.5zM1489 1046q42 -47 54.5 -108.5t-6.5 -117.5q-8 -23 -29.5 -34t-44.5 -4q-23 8 -34 29.5t-4 44.5q20 63 -24 111t-107 35q-24 -5 -45 8t-25 37q-5 24 8 44.5t37 25.5q60 13 119 -5.5t101 -65.5z M1670 1209q87 -96 112.5 -222.5t-13.5 -241.5q-9 -27 -34 -40t-52 -4t-40 34t-5 52q28 82 10 172t-80 158q-62 69 -148 95.5t-173 8.5q-28 -6 -52 9.5t-30 43.5t9.5 51.5t43.5 29.5q123 26 244 -11.5t208 -134.5z" />
+<glyph unicode="&#xf18b;" d="M1133 -34q-171 -94 -368 -94q-196 0 -367 94q138 87 235.5 211t131.5 268q35 -144 132.5 -268t235.5 -211zM638 1394v-485q0 -252 -126.5 -459.5t-330.5 -306.5q-181 215 -181 495q0 187 83.5 349.5t229.5 269.5t325 137zM1536 638q0 -280 -181 -495 q-204 99 -330.5 306.5t-126.5 459.5v485q179 -30 325 -137t229.5 -269.5t83.5 -349.5z" />
+<glyph unicode="&#xf18c;" horiz-adv-x="1408" d="M1402 433q-32 -80 -76 -138t-91 -88.5t-99 -46.5t-101.5 -14.5t-96.5 8.5t-86.5 22t-69.5 27.5t-46 22.5l-17 10q-113 -228 -289.5 -359.5t-384.5 -132.5q-19 0 -32 13t-13 32t13 31.5t32 12.5q173 1 322.5 107.5t251.5 294.5q-36 -14 -72 -23t-83 -13t-91 2.5t-93 28.5 t-92 59t-84.5 100t-74.5 146q114 47 214 57t167.5 -7.5t124.5 -56.5t88.5 -77t56.5 -82q53 131 79 291q-7 -1 -18 -2.5t-46.5 -2.5t-69.5 0.5t-81.5 10t-88.5 23t-84 42.5t-75 65t-54.5 94.5t-28.5 127.5q70 28 133.5 36.5t112.5 -1t92 -30t73.5 -50t56 -61t42 -63t27.5 -56 t16 -39.5l4 -16q12 122 12 195q-8 6 -21.5 16t-49 44.5t-63.5 71.5t-54 93t-33 112.5t12 127t70 138.5q73 -25 127.5 -61.5t84.5 -76.5t48 -85t20.5 -89t-0.5 -85.5t-13 -76.5t-19 -62t-17 -42l-7 -15q1 -5 1 -50.5t-1 -71.5q3 7 10 18.5t30.5 43t50.5 58t71 55.5t91.5 44.5 t112 14.5t132.5 -24q-2 -78 -21.5 -141.5t-50 -104.5t-69.5 -71.5t-81.5 -45.5t-84.5 -24t-80 -9.5t-67.5 1t-46.5 4.5l-17 3q-23 -147 -73 -283q6 7 18 18.5t49.5 41t77.5 52.5t99.5 42t117.5 20t129 -23.5t137 -77.5z" />
+<glyph unicode="&#xf18d;" horiz-adv-x="1280" d="M1259 283v-66q0 -85 -57.5 -144.5t-138.5 -59.5h-57l-260 -269v269h-529q-81 0 -138.5 59.5t-57.5 144.5v66h1238zM1259 609v-255h-1238v255h1238zM1259 937v-255h-1238v255h1238zM1259 1077v-67h-1238v67q0 84 57.5 143.5t138.5 59.5h846q81 0 138.5 -59.5t57.5 -143.5z " />
+<glyph unicode="&#xf18e;" d="M1152 640q0 -14 -9 -23l-320 -320q-9 -9 -23 -9q-13 0 -22.5 9.5t-9.5 22.5v192h-352q-13 0 -22.5 9.5t-9.5 22.5v192q0 13 9.5 22.5t22.5 9.5h352v192q0 14 9 23t23 9q12 0 24 -10l319 -319q9 -9 9 -23zM1312 640q0 148 -73 273t-198 198t-273 73t-273 -73t-198 -198 t-73 -273t73 -273t198 -198t273 -73t273 73t198 198t73 273zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf190;" d="M1152 736v-192q0 -13 -9.5 -22.5t-22.5 -9.5h-352v-192q0 -14 -9 -23t-23 -9q-12 0 -24 10l-319 319q-9 9 -9 23t9 23l320 320q9 9 23 9q13 0 22.5 -9.5t9.5 -22.5v-192h352q13 0 22.5 -9.5t9.5 -22.5zM1312 640q0 148 -73 273t-198 198t-273 73t-273 -73t-198 -198 t-73 -273t73 -273t198 -198t273 -73t273 73t198 198t73 273zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf191;" d="M1024 960v-640q0 -26 -19 -45t-45 -19q-20 0 -37 12l-448 320q-27 19 -27 52t27 52l448 320q17 12 37 12q26 0 45 -19t19 -45zM1280 160v960q0 13 -9.5 22.5t-22.5 9.5h-960q-13 0 -22.5 -9.5t-9.5 -22.5v-960q0 -13 9.5 -22.5t22.5 -9.5h960q13 0 22.5 9.5t9.5 22.5z M1536 1120v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf192;" d="M1024 640q0 -106 -75 -181t-181 -75t-181 75t-75 181t75 181t181 75t181 -75t75 -181zM768 1184q-148 0 -273 -73t-198 -198t-73 -273t73 -273t198 -198t273 -73t273 73t198 198t73 273t-73 273t-198 198t-273 73zM1536 640q0 -209 -103 -385.5t-279.5 -279.5 t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf193;" horiz-adv-x="1664" d="M1023 349l102 -204q-58 -179 -210 -290t-339 -111q-156 0 -288.5 77.5t-210 210t-77.5 288.5q0 181 104.5 330t274.5 211l17 -131q-122 -54 -195 -165.5t-73 -244.5q0 -185 131.5 -316.5t316.5 -131.5q126 0 232.5 65t165 175.5t49.5 236.5zM1571 249l58 -114l-256 -128 q-13 -7 -29 -7q-40 0 -57 35l-239 477h-472q-24 0 -42.5 16.5t-21.5 40.5l-96 779q-2 16 6 42q14 51 57 82.5t97 31.5q66 0 113 -47t47 -113q0 -69 -52 -117.5t-120 -41.5l37 -289h423v-128h-407l16 -128h455q40 0 57 -35l228 -455z" />
+<glyph unicode="&#xf194;" d="M1254 899q16 85 -21 132q-52 65 -187 45q-17 -3 -41 -12.5t-57.5 -30.5t-64.5 -48.5t-59.5 -70t-44.5 -91.5q80 7 113.5 -16t26.5 -99q-5 -52 -52 -143q-43 -78 -71 -99q-44 -32 -87 14q-23 24 -37.5 64.5t-19 73t-10 84t-8.5 71.5q-23 129 -34 164q-12 37 -35.5 69 t-50.5 40q-57 16 -127 -25q-54 -32 -136.5 -106t-122.5 -102v-7q16 -8 25.5 -26t21.5 -20q21 -3 54.5 8.5t58 10.5t41.5 -30q11 -18 18.5 -38.5t15 -48t12.5 -40.5q17 -46 53 -187q36 -146 57 -197q42 -99 103 -125q43 -12 85 -1.5t76 31.5q131 77 250 237 q104 139 172.5 292.5t82.5 226.5zM1536 1120v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf195;" horiz-adv-x="1152" d="M1152 704q0 -191 -94.5 -353t-256.5 -256.5t-353 -94.5h-160q-14 0 -23 9t-9 23v611l-215 -66q-3 -1 -9 -1q-10 0 -19 6q-13 10 -13 26v128q0 23 23 31l233 71v93l-215 -66q-3 -1 -9 -1q-10 0 -19 6q-13 10 -13 26v128q0 23 23 31l233 71v250q0 14 9 23t23 9h160 q14 0 23 -9t9 -23v-181l375 116q15 5 28 -5t13 -26v-128q0 -23 -23 -31l-393 -121v-93l375 116q15 5 28 -5t13 -26v-128q0 -23 -23 -31l-393 -121v-487q188 13 318 151t130 328q0 14 9 23t23 9h160q14 0 23 -9t9 -23z" />
+<glyph unicode="&#xf196;" horiz-adv-x="1408" d="M1152 736v-64q0 -14 -9 -23t-23 -9h-352v-352q0 -14 -9 -23t-23 -9h-64q-14 0 -23 9t-9 23v352h-352q-14 0 -23 9t-9 23v64q0 14 9 23t23 9h352v352q0 14 9 23t23 9h64q14 0 23 -9t9 -23v-352h352q14 0 23 -9t9 -23zM1280 288v832q0 66 -47 113t-113 47h-832 q-66 0 -113 -47t-47 -113v-832q0 -66 47 -113t113 -47h832q66 0 113 47t47 113zM1408 1120v-832q0 -119 -84.5 -203.5t-203.5 -84.5h-832q-119 0 -203.5 84.5t-84.5 203.5v832q0 119 84.5 203.5t203.5 84.5h832q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf197;" horiz-adv-x="2176" d="M620 416q-110 -64 -268 -64h-128v64h-64q-13 0 -22.5 23.5t-9.5 56.5q0 24 7 49q-58 2 -96.5 10.5t-38.5 20.5t38.5 20.5t96.5 10.5q-7 25 -7 49q0 33 9.5 56.5t22.5 23.5h64v64h128q158 0 268 -64h1113q42 -7 106.5 -18t80.5 -14q89 -15 150 -40.5t83.5 -47.5t22.5 -40 t-22.5 -40t-83.5 -47.5t-150 -40.5q-16 -3 -80.5 -14t-106.5 -18h-1113zM1739 668q53 -36 53 -92t-53 -92l81 -30q68 48 68 122t-68 122zM625 400h1015q-217 -38 -456 -80q-57 0 -113 -24t-83 -48l-28 -24l-288 -288q-26 -26 -70.5 -45t-89.5 -19h-96l-93 464h29 q157 0 273 64zM352 816h-29l93 464h96q46 0 90 -19t70 -45l288 -288q4 -4 11 -10.5t30.5 -23t48.5 -29t61.5 -23t72.5 -10.5l456 -80h-1015q-116 64 -273 64z" />
+<glyph unicode="&#xf198;" horiz-adv-x="1664" d="M1519 760q62 0 103.5 -40.5t41.5 -101.5q0 -97 -93 -130l-172 -59l56 -167q7 -21 7 -47q0 -59 -42 -102t-101 -43q-47 0 -85.5 27t-53.5 72l-55 165l-310 -106l55 -164q8 -24 8 -47q0 -59 -42 -102t-102 -43q-47 0 -85 27t-53 72l-55 163l-153 -53q-29 -9 -50 -9 q-61 0 -101.5 40t-40.5 101q0 47 27.5 85t71.5 53l156 53l-105 313l-156 -54q-26 -8 -48 -8q-60 0 -101 40.5t-41 100.5q0 47 27.5 85t71.5 53l157 53l-53 159q-8 24 -8 47q0 60 42 102.5t102 42.5q47 0 85 -27t53 -72l54 -160l310 105l-54 160q-8 24 -8 47q0 59 42.5 102 t101.5 43q47 0 85.5 -27.5t53.5 -71.5l53 -161l162 55q21 6 43 6q60 0 102.5 -39.5t42.5 -98.5q0 -45 -30 -81.5t-74 -51.5l-157 -54l105 -316l164 56q24 8 46 8zM725 498l310 105l-105 315l-310 -107z" />
+<glyph unicode="&#xf199;" d="M1248 1408q119 0 203.5 -84.5t84.5 -203.5v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960zM1280 352v436q-31 -35 -64 -55q-34 -22 -132.5 -85t-151.5 -99q-98 -69 -164 -69v0v0q-66 0 -164 69 q-46 32 -141.5 92.5t-142.5 92.5q-12 8 -33 27t-31 27v-436q0 -40 28 -68t68 -28h832q40 0 68 28t28 68zM1280 925q0 41 -27.5 70t-68.5 29h-832q-40 0 -68 -28t-28 -68q0 -37 30.5 -76.5t67.5 -64.5q47 -32 137.5 -89t129.5 -83q3 -2 17 -11.5t21 -14t21 -13t23.5 -13 t21.5 -9.5t22.5 -7.5t20.5 -2.5t20.5 2.5t22.5 7.5t21.5 9.5t23.5 13t21 13t21 14t17 11.5l267 174q35 23 66.5 62.5t31.5 73.5z" />
+<glyph unicode="&#xf19a;" horiz-adv-x="1792" d="M127 640q0 163 67 313l367 -1005q-196 95 -315 281t-119 411zM1415 679q0 -19 -2.5 -38.5t-10 -49.5t-11.5 -44t-17.5 -59t-17.5 -58l-76 -256l-278 826q46 3 88 8q19 2 26 18.5t-2.5 31t-28.5 13.5l-205 -10q-75 1 -202 10q-12 1 -20.5 -5t-11.5 -15t-1.5 -18.5t9 -16.5 t19.5 -8l80 -8l120 -328l-168 -504l-280 832q46 3 88 8q19 2 26 18.5t-2.5 31t-28.5 13.5l-205 -10q-7 0 -23 0.5t-26 0.5q105 160 274.5 253.5t367.5 93.5q147 0 280.5 -53t238.5 -149h-10q-55 0 -92 -40.5t-37 -95.5q0 -12 2 -24t4 -21.5t8 -23t9 -21t12 -22.5t12.5 -21 t14.5 -24t14 -23q63 -107 63 -212zM909 573l237 -647q1 -6 5 -11q-126 -44 -255 -44q-112 0 -217 32zM1570 1009q95 -174 95 -369q0 -209 -104 -385.5t-279 -278.5l235 678q59 169 59 276q0 42 -6 79zM896 1536q182 0 348 -71t286 -191t191 -286t71 -348t-71 -348t-191 -286 t-286 -191t-348 -71t-348 71t-286 191t-191 286t-71 348t71 348t191 286t286 191t348 71zM896 -215q173 0 331.5 68t273 182.5t182.5 273t68 331.5t-68 331.5t-182.5 273t-273 182.5t-331.5 68t-331.5 -68t-273 -182.5t-182.5 -273t-68 -331.5t68 -331.5t182.5 -273 t273 -182.5t331.5 -68z" />
+<glyph unicode="&#xf19b;" horiz-adv-x="1792" d="M1086 1536v-1536l-272 -128q-228 20 -414 102t-293 208.5t-107 272.5q0 140 100.5 263.5t275 205.5t391.5 108v-172q-217 -38 -356.5 -150t-139.5 -255q0 -152 154.5 -267t388.5 -145v1360zM1755 954l37 -390l-525 114l147 83q-119 70 -280 99v172q277 -33 481 -157z" />
+<glyph unicode="&#xf19c;" horiz-adv-x="2048" d="M960 1536l960 -384v-128h-128q0 -26 -20.5 -45t-48.5 -19h-1526q-28 0 -48.5 19t-20.5 45h-128v128zM256 896h256v-768h128v768h256v-768h128v768h256v-768h128v768h256v-768h59q28 0 48.5 -19t20.5 -45v-64h-1664v64q0 26 20.5 45t48.5 19h59v768zM1851 -64 q28 0 48.5 -19t20.5 -45v-128h-1920v128q0 26 20.5 45t48.5 19h1782z" />
+<glyph unicode="&#xf19d;" horiz-adv-x="2304" d="M1774 700l18 -316q4 -69 -82 -128t-235 -93.5t-323 -34.5t-323 34.5t-235 93.5t-82 128l18 316l574 -181q22 -7 48 -7t48 7zM2304 1024q0 -23 -22 -31l-1120 -352q-4 -1 -10 -1t-10 1l-652 206q-43 -34 -71 -111.5t-34 -178.5q63 -36 63 -109q0 -69 -58 -107l58 -433 q2 -14 -8 -25q-9 -11 -24 -11h-192q-15 0 -24 11q-10 11 -8 25l58 433q-58 38 -58 107q0 73 65 111q11 207 98 330l-333 104q-22 8 -22 31t22 31l1120 352q4 1 10 1t10 -1l1120 -352q22 -8 22 -31z" />
+<glyph unicode="&#xf19e;" d="M859 579l13 -707q-62 11 -105 11q-41 0 -105 -11l13 707q-40 69 -168.5 295.5t-216.5 374.5t-181 287q58 -15 108 -15q43 0 111 15q63 -111 133.5 -229.5t167 -276.5t138.5 -227q37 61 109.5 177.5t117.5 190t105 176t107 189.5q54 -14 107 -14q56 0 114 14v0 q-28 -39 -60 -88.5t-49.5 -78.5t-56.5 -96t-49 -84q-146 -248 -353 -610z" />
+<glyph unicode="&#xf1a0;" horiz-adv-x="1280" d="M981 197q0 25 -7 49t-14.5 42t-27 41.5t-29.5 35t-38.5 34.5t-36.5 29t-41.5 30t-36.5 26q-16 2 -49 2q-53 0 -104.5 -7t-107 -25t-97 -46t-68.5 -74.5t-27 -105.5q0 -56 23.5 -102t61 -75.5t87 -50t100 -29t101.5 -8.5q58 0 111.5 13t99 39t73 73t27.5 109zM864 1055 q0 59 -17 125.5t-48 129t-84 103.5t-117 41q-42 0 -82.5 -19.5t-66.5 -52.5q-46 -59 -46 -160q0 -46 10 -97.5t31.5 -103t52 -92.5t75 -67t96.5 -26q37 0 77.5 16.5t65.5 43.5q53 56 53 159zM752 1536h417l-137 -88h-132q75 -63 113 -133t38 -160q0 -72 -24.5 -129.5 t-59.5 -93t-69.5 -65t-59 -61.5t-24.5 -66q0 -36 32 -70.5t77 -68t90.5 -73.5t77.5 -104t32 -142q0 -91 -49 -173q-71 -122 -209.5 -179.5t-298.5 -57.5q-132 0 -246.5 41.5t-172.5 137.5q-36 59 -36 131q0 81 44.5 150t118.5 115q131 82 404 100q-32 41 -47.5 73.5 t-15.5 73.5q0 40 21 85q-46 -4 -68 -4q-148 0 -249.5 96.5t-101.5 244.5q0 82 36 159t99 131q76 66 182 98t218 32z" />
+<glyph unicode="&#xf1a1;" horiz-adv-x="1984" d="M831 572q0 -56 -40.5 -96t-96.5 -40q-57 0 -98 40t-41 96q0 57 41.5 98t97.5 41t96.5 -41t40.5 -98zM1292 711q56 0 96.5 -41t40.5 -98q0 -56 -40.5 -96t-96.5 -40q-57 0 -98 40t-41 96q0 57 41.5 98t97.5 41zM1984 722q0 -62 -31 -114t-83 -82q5 -33 5 -61 q0 -121 -68.5 -230.5t-197.5 -193.5q-125 -82 -285.5 -125.5t-335.5 -43.5q-176 0 -336.5 43.5t-284.5 125.5q-129 84 -197.5 193t-68.5 231q0 29 5 66q-48 31 -77 81.5t-29 109.5q0 94 66 160t160 66q83 0 148 -55q248 158 592 164l134 423q4 14 17.5 21.5t28.5 4.5 l347 -82q22 50 68.5 81t102.5 31q77 0 131.5 -54.5t54.5 -131.5t-54.5 -132t-131.5 -55q-76 0 -130.5 54t-55.5 131l-315 74l-116 -366q327 -14 560 -166q64 58 151 58q94 0 160 -66t66 -160zM1664 1459q-45 0 -77 -32t-32 -77t32 -77t77 -32t77 32t32 77t-32 77t-77 32z M77 722q0 -67 51 -111q49 131 180 235q-36 25 -82 25q-62 0 -105.5 -43.5t-43.5 -105.5zM1567 105q112 73 171.5 166t59.5 194t-59.5 193.5t-171.5 165.5q-116 75 -265.5 115.5t-313.5 40.5t-313.5 -40.5t-265.5 -115.5q-112 -73 -171.5 -165.5t-59.5 -193.5t59.5 -194 t171.5 -166q116 -75 265.5 -115.5t313.5 -40.5t313.5 40.5t265.5 115.5zM1850 605q57 46 57 117q0 62 -43.5 105.5t-105.5 43.5q-49 0 -86 -28q131 -105 178 -238zM1258 237q11 11 27 11t27 -11t11 -27.5t-11 -27.5q-99 -99 -319 -99h-2q-220 0 -319 99q-11 11 -11 27.5 t11 27.5t27 11t27 -11q77 -77 265 -77h2q188 0 265 77z" />
+<glyph unicode="&#xf1a2;" d="M950 393q7 7 17.5 7t17.5 -7t7 -18t-7 -18q-65 -64 -208 -64h-1h-1q-143 0 -207 64q-8 7 -8 18t8 18q7 7 17.5 7t17.5 -7q49 -51 172 -51h1h1q122 0 173 51zM671 613q0 -37 -26 -64t-63 -27t-63 27t-26 64t26 63t63 26t63 -26t26 -63zM1214 1049q-29 0 -50 21t-21 50 q0 30 21 51t50 21q30 0 51 -21t21 -51q0 -29 -21 -50t-51 -21zM1216 1408q132 0 226 -94t94 -227v-894q0 -133 -94 -227t-226 -94h-896q-132 0 -226 94t-94 227v894q0 133 94 227t226 94h896zM1321 596q35 14 57 45.5t22 70.5q0 51 -36 87.5t-87 36.5q-60 0 -98 -48 q-151 107 -375 115l83 265l206 -49q1 -50 36.5 -85t84.5 -35q50 0 86 35.5t36 85.5t-36 86t-86 36q-36 0 -66 -20.5t-45 -53.5l-227 54q-9 2 -17.5 -2.5t-11.5 -14.5l-95 -302q-224 -4 -381 -113q-36 43 -93 43q-51 0 -87 -36.5t-36 -87.5q0 -37 19.5 -67.5t52.5 -45.5 q-7 -25 -7 -54q0 -98 74 -181.5t201.5 -132t278.5 -48.5q150 0 277.5 48.5t201.5 132t74 181.5q0 27 -6 54zM971 702q37 0 63 -26t26 -63t-26 -64t-63 -27t-63 27t-26 64t26 63t63 26z" />
+<glyph unicode="&#xf1a3;" d="M866 697l90 27v62q0 79 -58 135t-138 56t-138 -55.5t-58 -134.5v-283q0 -20 -14 -33.5t-33 -13.5t-32.5 13.5t-13.5 33.5v120h-151v-122q0 -82 57.5 -139t139.5 -57q81 0 138.5 56.5t57.5 136.5v280q0 19 13.5 33t33.5 14q19 0 32.5 -14t13.5 -33v-54zM1199 502v122h-150 v-126q0 -20 -13.5 -33.5t-33.5 -13.5q-19 0 -32.5 14t-13.5 33v123l-90 -26l-60 28v-123q0 -80 58 -137t139 -57t138.5 57t57.5 139zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103 t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf1a4;" horiz-adv-x="1920" d="M1062 824v118q0 42 -30 72t-72 30t-72 -30t-30 -72v-612q0 -175 -126 -299t-303 -124q-178 0 -303.5 125.5t-125.5 303.5v266h328v-262q0 -43 30 -72.5t72 -29.5t72 29.5t30 72.5v620q0 171 126.5 292t301.5 121q176 0 302 -122t126 -294v-136l-195 -58zM1592 602h328 v-266q0 -178 -125.5 -303.5t-303.5 -125.5q-177 0 -303 124.5t-126 300.5v268l131 -61l195 58v-270q0 -42 30 -71.5t72 -29.5t72 29.5t30 71.5v275z" />
+<glyph unicode="&#xf1a5;" d="M1472 160v480h-704v704h-480q-93 0 -158.5 -65.5t-65.5 -158.5v-480h704v-704h480q93 0 158.5 65.5t65.5 158.5zM1536 1120v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5 t84.5 -203.5z" />
+<glyph unicode="&#xf1a6;" horiz-adv-x="2048" d="M328 1254h204v-983h-532v697h328v286zM328 435v369h-123v-369h123zM614 968v-697h205v697h-205zM614 1254v-204h205v204h-205zM901 968h533v-942h-533v163h328v82h-328v697zM1229 435v369h-123v-369h123zM1516 968h532v-942h-532v163h327v82h-327v697zM1843 435v369h-123 v-369h123z" />
+<glyph unicode="&#xf1a7;" d="M1046 516q0 -64 -38 -109t-91 -45q-43 0 -70 15v277q28 17 70 17q53 0 91 -45.5t38 -109.5zM703 944q0 -64 -38 -109.5t-91 -45.5q-43 0 -70 15v277q28 17 70 17q53 0 91 -45t38 -109zM1265 513q0 134 -88 229t-213 95q-20 0 -39 -3q-23 -78 -78 -136q-87 -95 -211 -101 v-636l211 41v206q51 -19 117 -19q125 0 213 95t88 229zM922 940q0 134 -88.5 229t-213.5 95q-74 0 -141 -36h-186v-840l211 41v206q55 -19 116 -19q125 0 213.5 95t88.5 229zM1536 1120v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960 q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf1a8;" horiz-adv-x="2038" d="M1222 607q75 3 143.5 -20.5t118 -58.5t101 -94.5t84 -108t75.5 -120.5q33 -56 78.5 -109t75.5 -80.5t99 -88.5q-48 -30 -108.5 -57.5t-138.5 -59t-114 -47.5q-44 37 -74 115t-43.5 164.5t-33 180.5t-42.5 168.5t-72.5 123t-122.5 48.5l-10 -2l-6 -4q4 -5 13 -14 q6 -5 28 -23.5t25.5 -22t19 -18t18 -20.5t11.5 -21t10.5 -27.5t4.5 -31t4 -40.5l1 -33q1 -26 -2.5 -57.5t-7.5 -52t-12.5 -58.5t-11.5 -53q-35 1 -101 -9.5t-98 -10.5q-39 0 -72 10q-2 16 -2 47q0 74 3 96q2 13 31.5 41.5t57 59t26.5 51.5q-24 2 -43 -24 q-36 -53 -111.5 -99.5t-136.5 -46.5q-25 0 -75.5 63t-106.5 139.5t-84 96.5q-6 4 -27 30q-482 -112 -513 -112q-16 0 -28 11t-12 27q0 15 8.5 26.5t22.5 14.5l486 106q-8 14 -8 25t5.5 17.5t16 11.5t20 7t23 4.5t18.5 4.5q4 1 15.5 7.5t17.5 6.5q15 0 28 -16t20 -33 q163 37 172 37q17 0 29.5 -11t12.5 -28q0 -15 -8.5 -26t-23.5 -14l-182 -40l-1 -16q-1 -26 81.5 -117.5t104.5 -91.5q47 0 119 80t72 129q0 36 -23.5 53t-51 18.5t-51 11.5t-23.5 34q0 16 10 34l-68 19q43 44 43 117q0 26 -5 58q82 16 144 16q44 0 71.5 -1.5t48.5 -8.5 t31 -13.5t20.5 -24.5t15.5 -33.5t17 -47.5t24 -60l50 25q-3 -40 -23 -60t-42.5 -21t-40 -6.5t-16.5 -20.5zM1282 842q-5 5 -13.5 15.5t-12 14.5t-10.5 11.5t-10 10.5l-8 8t-8.5 7.5t-8 5t-8.5 4.5q-7 3 -14.5 5t-20.5 2.5t-22 0.5h-32.5h-37.5q-126 0 -217 -43 q16 30 36 46.5t54 29.5t65.5 36t46 36.5t50 55t43.5 50.5q12 -9 28 -31.5t32 -36.5t38 -13l12 1v-76l22 -1q247 95 371 190q28 21 50 39t42.5 37.5t33 31t29.5 34t24 31t24.5 37t23 38t27 47.5t29.5 53l7 9q-2 -53 -43 -139q-79 -165 -205 -264t-306 -142q-14 -3 -42 -7.5 t-50 -9.5t-39 -14q3 -19 24.5 -46t21.5 -34q0 -11 -26 -30zM1061 -79q39 26 131.5 47.5t146.5 21.5q9 0 22.5 -15.5t28 -42.5t26 -50t24 -51t14.5 -33q-121 -45 -244 -45q-61 0 -125 11zM822 568l48 12l109 -177l-73 -48zM1323 51q3 -15 3 -16q0 -7 -17.5 -14.5t-46 -13 t-54 -9.5t-53.5 -7.5t-32 -4.5l-7 43q21 2 60.5 8.5t72 10t60.5 3.5h14zM866 679l-96 -20l-6 17q10 1 32.5 7t34.5 6q19 0 35 -10zM1061 45h31l10 -83l-41 -12v95zM1950 1535v1v-1zM1950 1535l-1 -5l-2 -2l1 3zM1950 1535l1 1z" />
+<glyph unicode="&#xf1a9;" d="M1167 -50q-5 19 -24 5q-30 -22 -87 -39t-131 -17q-129 0 -193 49q-5 4 -13 4q-11 0 -26 -12q-7 -6 -7.5 -16t7.5 -20q34 -32 87.5 -46t102.5 -12.5t99 4.5q41 4 84.5 20.5t65 30t28.5 20.5q12 12 7 29zM1128 65q-19 47 -39 61q-23 15 -76 15q-47 0 -71 -10 q-29 -12 -78 -56q-26 -24 -12 -44q9 -8 17.5 -4.5t31.5 23.5q3 2 10.5 8.5t10.5 8.5t10 7t11.5 7t12.5 5t15 4.5t16.5 2.5t20.5 1q27 0 44.5 -7.5t23 -14.5t13.5 -22q10 -17 12.5 -20t12.5 1q23 12 14 34zM1483 346q0 22 -5 44.5t-16.5 45t-34 36.5t-52.5 14 q-33 0 -97 -41.5t-129 -83.5t-101 -42q-27 -1 -63.5 19t-76 49t-83.5 58t-100 49t-111 19q-115 -1 -197 -78.5t-84 -178.5q-2 -112 74 -164q29 -20 62.5 -28.5t103.5 -8.5q57 0 132 32.5t134 71t120 70.5t93 31q26 -1 65 -31.5t71.5 -67t68 -67.5t55.5 -32q35 -3 58.5 14 t55.5 63q28 41 42.5 101t14.5 106zM1536 506q0 -164 -62 -304.5t-166 -236t-242.5 -149.5t-290.5 -54t-293 57.5t-247.5 157t-170.5 241.5t-64 302q0 89 19.5 172.5t49 145.5t70.5 118.5t78.5 94t78.5 69.5t64.5 46.5t42.5 24.5q14 8 51 26.5t54.5 28.5t48 30t60.5 44 q36 28 58 72.5t30 125.5q129 -155 186 -193q44 -29 130 -68t129 -66q21 -13 39 -25t60.5 -46.5t76 -70.5t75 -95t69 -122t47 -148.5t19.5 -177.5z" />
+<glyph unicode="&#xf1aa;" d="M1070 463l-160 -160l-151 -152l-30 -30q-65 -64 -151.5 -87t-171.5 -2q-16 -70 -72 -115t-129 -45q-85 0 -145 60.5t-60 145.5q0 72 44.5 128t113.5 72q-22 86 1 173t88 152l12 12l151 -152l-11 -11q-37 -37 -37 -89t37 -90q37 -37 89 -37t89 37l30 30l151 152l161 160z M729 1145l12 -12l-152 -152l-12 12q-37 37 -89 37t-89 -37t-37 -89.5t37 -89.5l29 -29l152 -152l160 -160l-151 -152l-161 160l-151 152l-30 30q-68 67 -90 159.5t5 179.5q-70 15 -115 71t-45 129q0 85 60 145.5t145 60.5q76 0 133.5 -49t69.5 -123q84 20 169.5 -3.5 t149.5 -87.5zM1536 78q0 -85 -60 -145.5t-145 -60.5q-74 0 -131 47t-71 118q-86 -28 -179.5 -6t-161.5 90l-11 12l151 152l12 -12q37 -37 89 -37t89 37t37 89t-37 89l-30 30l-152 152l-160 160l152 152l160 -160l152 -152l29 -30q64 -64 87.5 -150.5t2.5 -171.5 q76 -11 126.5 -68.5t50.5 -134.5zM1534 1202q0 -77 -51 -135t-127 -69q26 -85 3 -176.5t-90 -158.5l-12 -12l-151 152l12 12q37 37 37 89t-37 89t-89 37t-89 -37l-30 -30l-152 -152l-160 -160l-152 152l161 160l152 152l29 30q67 67 159 89.5t178 -3.5q11 75 68.5 126 t135.5 51q85 0 145 -60.5t60 -145.5z" />
+<glyph unicode="&#xf1ab;" d="M654 458q-1 -3 -12.5 0.5t-31.5 11.5l-20 9q-44 20 -87 49q-7 5 -41 31.5t-38 28.5q-67 -103 -134 -181q-81 -95 -105 -110q-4 -2 -19.5 -4t-18.5 0q6 4 82 92q21 24 85.5 115t78.5 118q17 30 51 98.5t36 77.5q-8 1 -110 -33q-8 -2 -27.5 -7.5t-34.5 -9.5t-17 -5 q-2 -2 -2 -10.5t-1 -9.5q-5 -10 -31 -15q-23 -7 -47 0q-18 4 -28 21q-4 6 -5 23q6 2 24.5 5t29.5 6q58 16 105 32q100 35 102 35q10 2 43 19.5t44 21.5q9 3 21.5 8t14.5 5.5t6 -0.5q2 -12 -1 -33q0 -2 -12.5 -27t-26.5 -53.5t-17 -33.5q-25 -50 -77 -131l64 -28 q12 -6 74.5 -32t67.5 -28q4 -1 10.5 -25.5t4.5 -30.5zM449 944q3 -15 -4 -28q-12 -23 -50 -38q-30 -12 -60 -12q-26 3 -49 26q-14 15 -18 41l1 3q3 -3 19.5 -5t26.5 0t58 16q36 12 55 14q17 0 21 -17zM1147 815l63 -227l-139 42zM39 15l694 232v1032l-694 -233v-1031z M1280 332l102 -31l-181 657l-100 31l-216 -536l102 -31l45 110l211 -65zM777 1294l573 -184v380zM1088 -29l158 -13l-54 -160l-40 66q-130 -83 -276 -108q-58 -12 -91 -12h-84q-79 0 -199.5 39t-183.5 85q-8 7 -8 16q0 8 5 13.5t13 5.5q4 0 18 -7.5t30.5 -16.5t20.5 -11 q73 -37 159.5 -61.5t157.5 -24.5q95 0 167 14.5t157 50.5q15 7 30.5 15.5t34 19t28.5 16.5zM1536 1050v-1079l-774 246q-14 -6 -375 -127.5t-368 -121.5q-13 0 -18 13q0 1 -1 3v1078q3 9 4 10q5 6 20 11q106 35 149 50v384l558 -198q2 0 160.5 55t316 108.5t161.5 53.5 q20 0 20 -21v-418z" />
+<glyph unicode="&#xf1ac;" horiz-adv-x="1792" d="M288 1152q66 0 113 -47t47 -113v-1088q0 -66 -47 -113t-113 -47h-128q-66 0 -113 47t-47 113v1088q0 66 47 113t113 47h128zM1664 989q58 -34 93 -93t35 -128v-768q0 -106 -75 -181t-181 -75h-864q-66 0 -113 47t-47 113v1536q0 40 28 68t68 28h672q40 0 88 -20t76 -48 l152 -152q28 -28 48 -76t20 -88v-163zM928 0v128q0 14 -9 23t-23 9h-128q-14 0 -23 -9t-9 -23v-128q0 -14 9 -23t23 -9h128q14 0 23 9t9 23zM928 256v128q0 14 -9 23t-23 9h-128q-14 0 -23 -9t-9 -23v-128q0 -14 9 -23t23 -9h128q14 0 23 9t9 23zM928 512v128q0 14 -9 23 t-23 9h-128q-14 0 -23 -9t-9 -23v-128q0 -14 9 -23t23 -9h128q14 0 23 9t9 23zM1184 0v128q0 14 -9 23t-23 9h-128q-14 0 -23 -9t-9 -23v-128q0 -14 9 -23t23 -9h128q14 0 23 9t9 23zM1184 256v128q0 14 -9 23t-23 9h-128q-14 0 -23 -9t-9 -23v-128q0 -14 9 -23t23 -9h128 q14 0 23 9t9 23zM1184 512v128q0 14 -9 23t-23 9h-128q-14 0 -23 -9t-9 -23v-128q0 -14 9 -23t23 -9h128q14 0 23 9t9 23zM1440 0v128q0 14 -9 23t-23 9h-128q-14 0 -23 -9t-9 -23v-128q0 -14 9 -23t23 -9h128q14 0 23 9t9 23zM1440 256v128q0 14 -9 23t-23 9h-128 q-14 0 -23 -9t-9 -23v-128q0 -14 9 -23t23 -9h128q14 0 23 9t9 23zM1440 512v128q0 14 -9 23t-23 9h-128q-14 0 -23 -9t-9 -23v-128q0 -14 9 -23t23 -9h128q14 0 23 9t9 23zM1536 896v256h-160q-40 0 -68 28t-28 68v160h-640v-512h896z" />
+<glyph unicode="&#xf1ad;" d="M1344 1536q26 0 45 -19t19 -45v-1664q0 -26 -19 -45t-45 -19h-1280q-26 0 -45 19t-19 45v1664q0 26 19 45t45 19h1280zM512 1248v-64q0 -14 9 -23t23 -9h64q14 0 23 9t9 23v64q0 14 -9 23t-23 9h-64q-14 0 -23 -9t-9 -23zM512 992v-64q0 -14 9 -23t23 -9h64q14 0 23 9 t9 23v64q0 14 -9 23t-23 9h-64q-14 0 -23 -9t-9 -23zM512 736v-64q0 -14 9 -23t23 -9h64q14 0 23 9t9 23v64q0 14 -9 23t-23 9h-64q-14 0 -23 -9t-9 -23zM512 480v-64q0 -14 9 -23t23 -9h64q14 0 23 9t9 23v64q0 14 -9 23t-23 9h-64q-14 0 -23 -9t-9 -23zM384 160v64 q0 14 -9 23t-23 9h-64q-14 0 -23 -9t-9 -23v-64q0 -14 9 -23t23 -9h64q14 0 23 9t9 23zM384 416v64q0 14 -9 23t-23 9h-64q-14 0 -23 -9t-9 -23v-64q0 -14 9 -23t23 -9h64q14 0 23 9t9 23zM384 672v64q0 14 -9 23t-23 9h-64q-14 0 -23 -9t-9 -23v-64q0 -14 9 -23t23 -9h64 q14 0 23 9t9 23zM384 928v64q0 14 -9 23t-23 9h-64q-14 0 -23 -9t-9 -23v-64q0 -14 9 -23t23 -9h64q14 0 23 9t9 23zM384 1184v64q0 14 -9 23t-23 9h-64q-14 0 -23 -9t-9 -23v-64q0 -14 9 -23t23 -9h64q14 0 23 9t9 23zM896 -96v192q0 14 -9 23t-23 9h-320q-14 0 -23 -9 t-9 -23v-192q0 -14 9 -23t23 -9h320q14 0 23 9t9 23zM896 416v64q0 14 -9 23t-23 9h-64q-14 0 -23 -9t-9 -23v-64q0 -14 9 -23t23 -9h64q14 0 23 9t9 23zM896 672v64q0 14 -9 23t-23 9h-64q-14 0 -23 -9t-9 -23v-64q0 -14 9 -23t23 -9h64q14 0 23 9t9 23zM896 928v64 q0 14 -9 23t-23 9h-64q-14 0 -23 -9t-9 -23v-64q0 -14 9 -23t23 -9h64q14 0 23 9t9 23zM896 1184v64q0 14 -9 23t-23 9h-64q-14 0 -23 -9t-9 -23v-64q0 -14 9 -23t23 -9h64q14 0 23 9t9 23zM1152 160v64q0 14 -9 23t-23 9h-64q-14 0 -23 -9t-9 -23v-64q0 -14 9 -23t23 -9h64 q14 0 23 9t9 23zM1152 416v64q0 14 -9 23t-23 9h-64q-14 0 -23 -9t-9 -23v-64q0 -14 9 -23t23 -9h64q14 0 23 9t9 23zM1152 672v64q0 14 -9 23t-23 9h-64q-14 0 -23 -9t-9 -23v-64q0 -14 9 -23t23 -9h64q14 0 23 9t9 23zM1152 928v64q0 14 -9 23t-23 9h-64q-14 0 -23 -9 t-9 -23v-64q0 -14 9 -23t23 -9h64q14 0 23 9t9 23zM1152 1184v64q0 14 -9 23t-23 9h-64q-14 0 -23 -9t-9 -23v-64q0 -14 9 -23t23 -9h64q14 0 23 9t9 23z" />
+<glyph unicode="&#xf1ae;" horiz-adv-x="1280" d="M1188 988l-292 -292v-824q0 -46 -33 -79t-79 -33t-79 33t-33 79v384h-64v-384q0 -46 -33 -79t-79 -33t-79 33t-33 79v824l-292 292q-28 28 -28 68t28 68t68 28t68 -28l228 -228h368l228 228q28 28 68 28t68 -28t28 -68t-28 -68zM864 1152q0 -93 -65.5 -158.5 t-158.5 -65.5t-158.5 65.5t-65.5 158.5t65.5 158.5t158.5 65.5t158.5 -65.5t65.5 -158.5z" />
+<glyph unicode="&#xf1b0;" horiz-adv-x="1664" d="M780 1064q0 -60 -19 -113.5t-63 -92.5t-105 -39q-76 0 -138 57.5t-92 135.5t-30 151q0 60 19 113.5t63 92.5t105 39q77 0 138.5 -57.5t91.5 -135t30 -151.5zM438 581q0 -80 -42 -139t-119 -59q-76 0 -141.5 55.5t-100.5 133.5t-35 152q0 80 42 139.5t119 59.5 q76 0 141.5 -55.5t100.5 -134t35 -152.5zM832 608q118 0 255 -97.5t229 -237t92 -254.5q0 -46 -17 -76.5t-48.5 -45t-64.5 -20t-76 -5.5q-68 0 -187.5 45t-182.5 45q-66 0 -192.5 -44.5t-200.5 -44.5q-183 0 -183 146q0 86 56 191.5t139.5 192.5t187.5 146t193 59zM1071 819 q-61 0 -105 39t-63 92.5t-19 113.5q0 74 30 151.5t91.5 135t138.5 57.5q61 0 105 -39t63 -92.5t19 -113.5q0 -73 -30 -151t-92 -135.5t-138 -57.5zM1503 923q77 0 119 -59.5t42 -139.5q0 -74 -35 -152t-100.5 -133.5t-141.5 -55.5q-77 0 -119 59t-42 139q0 74 35 152.5 t100.5 134t141.5 55.5z" />
+<glyph unicode="&#xf1b1;" horiz-adv-x="768" d="M704 1008q0 -145 -57 -243.5t-152 -135.5l45 -821q2 -26 -16 -45t-44 -19h-192q-26 0 -44 19t-16 45l45 821q-95 37 -152 135.5t-57 243.5q0 128 42.5 249.5t117.5 200t160 78.5t160 -78.5t117.5 -200t42.5 -249.5z" />
+<glyph unicode="&#xf1b2;" horiz-adv-x="1792" d="M896 -93l640 349v636l-640 -233v-752zM832 772l698 254l-698 254l-698 -254zM1664 1024v-768q0 -35 -18 -65t-49 -47l-704 -384q-28 -16 -61 -16t-61 16l-704 384q-31 17 -49 47t-18 65v768q0 40 23 73t61 47l704 256q22 8 44 8t44 -8l704 -256q38 -14 61 -47t23 -73z " />
+<glyph unicode="&#xf1b3;" horiz-adv-x="2304" d="M640 -96l384 192v314l-384 -164v-342zM576 358l404 173l-404 173l-404 -173zM1664 -96l384 192v314l-384 -164v-342zM1600 358l404 173l-404 173l-404 -173zM1152 651l384 165v266l-384 -164v-267zM1088 1030l441 189l-441 189l-441 -189zM2176 512v-416q0 -36 -19 -67 t-52 -47l-448 -224q-25 -14 -57 -14t-57 14l-448 224q-5 2 -7 4q-2 -2 -7 -4l-448 -224q-25 -14 -57 -14t-57 14l-448 224q-33 16 -52 47t-19 67v416q0 38 21.5 70t56.5 48l434 186v400q0 38 21.5 70t56.5 48l448 192q23 10 50 10t50 -10l448 -192q35 -16 56.5 -48t21.5 -70 v-400l434 -186q36 -16 57 -48t21 -70z" />
+<glyph unicode="&#xf1b4;" horiz-adv-x="2048" d="M1848 1197h-511v-124h511v124zM1596 771q-90 0 -146 -52.5t-62 -142.5h408q-18 195 -200 195zM1612 186q63 0 122 32t76 87h221q-100 -307 -427 -307q-214 0 -340.5 132t-126.5 347q0 208 130.5 345.5t336.5 137.5q138 0 240.5 -68t153 -179t50.5 -248q0 -17 -2 -47h-658 q0 -111 57.5 -171.5t166.5 -60.5zM277 236h296q205 0 205 167q0 180 -199 180h-302v-347zM277 773h281q78 0 123.5 36.5t45.5 113.5q0 144 -190 144h-260v-294zM0 1282h594q87 0 155 -14t126.5 -47.5t90 -96.5t31.5 -154q0 -181 -172 -263q114 -32 172 -115t58 -204 q0 -75 -24.5 -136.5t-66 -103.5t-98.5 -71t-121 -42t-134 -13h-611v1260z" />
+<glyph unicode="&#xf1b5;" d="M1248 1408q119 0 203.5 -84.5t84.5 -203.5v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960zM499 1041h-371v-787h382q117 0 197 57.5t80 170.5q0 158 -143 200q107 52 107 164q0 57 -19.5 96.5 t-56.5 60.5t-79 29.5t-97 8.5zM477 723h-176v184h163q119 0 119 -90q0 -94 -106 -94zM486 388h-185v217h189q124 0 124 -113q0 -104 -128 -104zM1136 356q-68 0 -104 38t-36 107h411q1 10 1 30q0 132 -74.5 220.5t-203.5 88.5q-128 0 -210 -86t-82 -216q0 -135 79 -217 t213 -82q205 0 267 191h-138q-11 -34 -47.5 -54t-75.5 -20zM1126 722q113 0 124 -122h-254q4 56 39 89t91 33zM964 988h319v-77h-319v77z" />
+<glyph unicode="&#xf1b6;" horiz-adv-x="1792" d="M1582 954q0 -101 -71.5 -172.5t-172.5 -71.5t-172.5 71.5t-71.5 172.5t71.5 172.5t172.5 71.5t172.5 -71.5t71.5 -172.5zM812 212q0 104 -73 177t-177 73q-27 0 -54 -6l104 -42q77 -31 109.5 -106.5t1.5 -151.5q-31 -77 -107 -109t-152 -1q-21 8 -62 24.5t-61 24.5 q32 -60 91 -96.5t130 -36.5q104 0 177 73t73 177zM1642 953q0 126 -89.5 215.5t-215.5 89.5q-127 0 -216.5 -89.5t-89.5 -215.5q0 -127 89.5 -216t216.5 -89q126 0 215.5 89t89.5 216zM1792 953q0 -189 -133.5 -322t-321.5 -133l-437 -319q-12 -129 -109 -218t-229 -89 q-121 0 -214 76t-118 192l-230 92v429l389 -157q79 48 173 48q13 0 35 -2l284 407q2 187 135.5 319t320.5 132q188 0 321.5 -133.5t133.5 -321.5z" />
+<glyph unicode="&#xf1b7;" d="M1242 889q0 80 -57 136.5t-137 56.5t-136.5 -57t-56.5 -136q0 -80 56.5 -136.5t136.5 -56.5t137 56.5t57 136.5zM632 301q0 -83 -58 -140.5t-140 -57.5q-56 0 -103 29t-72 77q52 -20 98 -40q60 -24 120 1.5t85 86.5q24 60 -1.5 120t-86.5 84l-82 33q22 5 42 5 q82 0 140 -57.5t58 -140.5zM1536 1120v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v153l172 -69q20 -92 93.5 -152t168.5 -60q104 0 181 70t87 173l345 252q150 0 255.5 105.5t105.5 254.5q0 150 -105.5 255.5t-255.5 105.5 q-148 0 -253 -104.5t-107 -252.5l-225 -322q-9 1 -28 1q-75 0 -137 -37l-297 119v468q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5zM1289 887q0 -100 -71 -170.5t-171 -70.5t-170.5 70.5t-70.5 170.5t70.5 171t170.5 71q101 0 171.5 -70.5t70.5 -171.5z " />
+<glyph unicode="&#xf1b8;" horiz-adv-x="1792" d="M836 367l-15 -368l-2 -22l-420 29q-36 3 -67 31.5t-47 65.5q-11 27 -14.5 55t4 65t12 55t21.5 64t19 53q78 -12 509 -28zM449 953l180 -379l-147 92q-63 -72 -111.5 -144.5t-72.5 -125t-39.5 -94.5t-18.5 -63l-4 -21l-190 357q-17 26 -18 56t6 47l8 18q35 63 114 188 l-140 86zM1680 436l-188 -359q-12 -29 -36.5 -46.5t-43.5 -20.5l-18 -4q-71 -7 -219 -12l8 -164l-230 367l211 362l7 -173q170 -16 283 -5t170 33zM895 1360q-47 -63 -265 -435l-317 187l-19 12l225 356q20 31 60 45t80 10q24 -2 48.5 -12t42 -21t41.5 -33t36 -34.5 t36 -39.5t32 -35zM1550 1053l212 -363q18 -37 12.5 -76t-27.5 -74q-13 -20 -33 -37t-38 -28t-48.5 -22t-47 -16t-51.5 -14t-46 -12q-34 72 -265 436l313 195zM1407 1279l142 83l-220 -373l-419 20l151 86q-34 89 -75 166t-75.5 123.5t-64.5 80t-47 46.5l-17 13l405 -1 q31 3 58 -10.5t39 -28.5l11 -15q39 -61 112 -190z" />
+<glyph unicode="&#xf1b9;" horiz-adv-x="2048" d="M480 448q0 66 -47 113t-113 47t-113 -47t-47 -113t47 -113t113 -47t113 47t47 113zM516 768h1016l-89 357q-2 8 -14 17.5t-21 9.5h-768q-9 0 -21 -9.5t-14 -17.5zM1888 448q0 66 -47 113t-113 47t-113 -47t-47 -113t47 -113t113 -47t113 47t47 113zM2048 544v-384 q0 -14 -9 -23t-23 -9h-96v-128q0 -80 -56 -136t-136 -56t-136 56t-56 136v128h-1024v-128q0 -80 -56 -136t-136 -56t-136 56t-56 136v128h-96q-14 0 -23 9t-9 23v384q0 93 65.5 158.5t158.5 65.5h28l105 419q23 94 104 157.5t179 63.5h768q98 0 179 -63.5t104 -157.5 l105 -419h28q93 0 158.5 -65.5t65.5 -158.5z" />
+<glyph unicode="&#xf1ba;" horiz-adv-x="2048" d="M1824 640q93 0 158.5 -65.5t65.5 -158.5v-384q0 -14 -9 -23t-23 -9h-96v-64q0 -80 -56 -136t-136 -56t-136 56t-56 136v64h-1024v-64q0 -80 -56 -136t-136 -56t-136 56t-56 136v64h-96q-14 0 -23 9t-9 23v384q0 93 65.5 158.5t158.5 65.5h28l105 419q23 94 104 157.5 t179 63.5h128v224q0 14 9 23t23 9h448q14 0 23 -9t9 -23v-224h128q98 0 179 -63.5t104 -157.5l105 -419h28zM320 160q66 0 113 47t47 113t-47 113t-113 47t-113 -47t-47 -113t47 -113t113 -47zM516 640h1016l-89 357q-2 8 -14 17.5t-21 9.5h-768q-9 0 -21 -9.5t-14 -17.5z M1728 160q66 0 113 47t47 113t-47 113t-113 47t-113 -47t-47 -113t47 -113t113 -47z" />
+<glyph unicode="&#xf1bb;" d="M1504 64q0 -26 -19 -45t-45 -19h-462q1 -17 6 -87.5t5 -108.5q0 -25 -18 -42.5t-43 -17.5h-320q-25 0 -43 17.5t-18 42.5q0 38 5 108.5t6 87.5h-462q-26 0 -45 19t-19 45t19 45l402 403h-229q-26 0 -45 19t-19 45t19 45l402 403h-197q-26 0 -45 19t-19 45t19 45l384 384 q19 19 45 19t45 -19l384 -384q19 -19 19 -45t-19 -45t-45 -19h-197l402 -403q19 -19 19 -45t-19 -45t-45 -19h-229l402 -403q19 -19 19 -45z" />
+<glyph unicode="&#xf1bc;" d="M1127 326q0 32 -30 51q-193 115 -447 115q-133 0 -287 -34q-42 -9 -42 -52q0 -20 13.5 -34.5t35.5 -14.5q5 0 37 8q132 27 243 27q226 0 397 -103q19 -11 33 -11q19 0 33 13.5t14 34.5zM1223 541q0 40 -35 61q-237 141 -548 141q-153 0 -303 -42q-48 -13 -48 -64 q0 -25 17.5 -42.5t42.5 -17.5q7 0 37 8q122 33 251 33q279 0 488 -124q24 -13 38 -13q25 0 42.5 17.5t17.5 42.5zM1331 789q0 47 -40 70q-126 73 -293 110.5t-343 37.5q-204 0 -364 -47q-23 -7 -38.5 -25.5t-15.5 -48.5q0 -31 20.5 -52t51.5 -21q11 0 40 8q133 37 307 37 q159 0 309.5 -34t253.5 -95q21 -12 40 -12q29 0 50.5 20.5t21.5 51.5zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf1bd;" d="M1397 1408q58 0 98.5 -40.5t40.5 -98.5v-1258q0 -58 -40.5 -98.5t-98.5 -40.5h-1258q-58 0 -98.5 40.5t-40.5 98.5v1258q0 58 40.5 98.5t98.5 40.5h1258zM1465 11v1258q0 28 -20 48t-48 20h-1258q-28 0 -48 -20t-20 -48v-1258q0 -28 20 -48t48 -20h1258q28 0 48 20t20 48 zM694 749l188 -387l533 145v-496q0 -7 -5.5 -12.5t-12.5 -5.5h-1258q-7 0 -12.5 5.5t-5.5 12.5v141l711 195l-212 439q4 1 12 2.5t12 1.5q170 32 303.5 21.5t221 -46t143.5 -94.5q27 -28 -25 -42q-64 -16 -256 -62l-97 198q-111 7 -240 -16zM1397 1287q7 0 12.5 -5.5 t5.5 -12.5v-428q-85 30 -188 52q-294 64 -645 12l-18 -3l-65 134h-233l85 -190q-132 -51 -230 -137v560q0 7 5.5 12.5t12.5 5.5h1258zM286 387q-14 -3 -26 4.5t-14 21.5q-24 203 166 305l129 -270z" />
+<glyph unicode="&#xf1be;" horiz-adv-x="2304" d="M784 164l16 241l-16 523q-1 10 -7.5 17t-16.5 7q-9 0 -16 -7t-7 -17l-14 -523l14 -241q1 -10 7.5 -16.5t15.5 -6.5q22 0 24 23zM1080 193l11 211l-12 586q0 16 -13 24q-8 5 -16 5t-16 -5q-13 -8 -13 -24l-1 -6l-10 -579q0 -1 11 -236v-1q0 -10 6 -17q9 -11 23 -11 q11 0 20 9q9 7 9 20zM35 533l20 -128l-20 -126q-2 -9 -9 -9t-9 9l-17 126l17 128q2 9 9 9t9 -9zM121 612l26 -207l-26 -203q-2 -9 -10 -9q-9 0 -9 10l-23 202l23 207q0 9 9 9q8 0 10 -9zM401 159zM213 650l25 -245l-25 -237q0 -11 -11 -11q-10 0 -12 11l-21 237l21 245 q2 12 12 12q11 0 11 -12zM307 657l23 -252l-23 -244q-2 -13 -14 -13q-13 0 -13 13l-21 244l21 252q0 13 13 13q12 0 14 -13zM401 639l21 -234l-21 -246q-2 -16 -16 -16q-6 0 -10.5 4.5t-4.5 11.5l-20 246l20 234q0 6 4.5 10.5t10.5 4.5q14 0 16 -15zM784 164zM495 785 l21 -380l-21 -246q0 -7 -5 -12.5t-12 -5.5q-16 0 -18 18l-18 246l18 380q2 18 18 18q7 0 12 -5.5t5 -12.5zM589 871l19 -468l-19 -244q0 -8 -5.5 -13.5t-13.5 -5.5q-18 0 -20 19l-16 244l16 468q2 19 20 19q8 0 13.5 -5.5t5.5 -13.5zM687 911l18 -506l-18 -242 q-2 -21 -22 -21q-19 0 -21 21l-16 242l16 506q0 9 6.5 15.5t14.5 6.5q9 0 15 -6.5t7 -15.5zM1079 169v0v0zM881 915l15 -510l-15 -239q0 -10 -7.5 -17.5t-17.5 -7.5t-17 7t-8 18l-14 239l14 510q0 11 7.5 18t17.5 7t17.5 -7t7.5 -18zM980 896l14 -492l-14 -236q0 -11 -8 -19 t-19 -8t-19 8t-9 19l-12 236l12 492q1 12 9 20t19 8t18.5 -8t8.5 -20zM1192 404l-14 -231v0q0 -13 -9 -22t-22 -9t-22 9t-10 22l-6 114l-6 117l12 636v3q2 15 12 24q9 7 20 7q8 0 15 -5q14 -8 16 -26zM2304 423q0 -117 -83 -199.5t-200 -82.5h-786q-13 2 -22 11t-9 22v899 q0 23 28 33q85 34 181 34q195 0 338 -131.5t160 -323.5q53 22 110 22q117 0 200 -83t83 -201z" />
+<glyph unicode="&#xf1c0;" d="M768 768q237 0 443 43t325 127v-170q0 -69 -103 -128t-280 -93.5t-385 -34.5t-385 34.5t-280 93.5t-103 128v170q119 -84 325 -127t443 -43zM768 0q237 0 443 43t325 127v-170q0 -69 -103 -128t-280 -93.5t-385 -34.5t-385 34.5t-280 93.5t-103 128v170q119 -84 325 -127 t443 -43zM768 384q237 0 443 43t325 127v-170q0 -69 -103 -128t-280 -93.5t-385 -34.5t-385 34.5t-280 93.5t-103 128v170q119 -84 325 -127t443 -43zM768 1536q208 0 385 -34.5t280 -93.5t103 -128v-128q0 -69 -103 -128t-280 -93.5t-385 -34.5t-385 34.5t-280 93.5 t-103 128v128q0 69 103 128t280 93.5t385 34.5z" />
+<glyph unicode="&#xf1c1;" d="M1468 1156q28 -28 48 -76t20 -88v-1152q0 -40 -28 -68t-68 -28h-1344q-40 0 -68 28t-28 68v1600q0 40 28 68t68 28h896q40 0 88 -20t76 -48zM1024 1400v-376h376q-10 29 -22 41l-313 313q-12 12 -41 22zM1408 -128v1024h-416q-40 0 -68 28t-28 68v416h-768v-1536h1280z M894 465q33 -26 84 -56q59 7 117 7q147 0 177 -49q16 -22 2 -52q0 -1 -1 -2l-2 -2v-1q-6 -38 -71 -38q-48 0 -115 20t-130 53q-221 -24 -392 -83q-153 -262 -242 -262q-15 0 -28 7l-24 12q-1 1 -6 5q-10 10 -6 36q9 40 56 91.5t132 96.5q14 9 23 -6q2 -2 2 -4q52 85 107 197 q68 136 104 262q-24 82 -30.5 159.5t6.5 127.5q11 40 42 40h21h1q23 0 35 -15q18 -21 9 -68q-2 -6 -4 -8q1 -3 1 -8v-30q-2 -123 -14 -192q55 -164 146 -238zM318 54q52 24 137 158q-51 -40 -87.5 -84t-49.5 -74zM716 974q-15 -42 -2 -132q1 7 7 44q0 3 7 43q1 4 4 8 q-1 1 -1 2t-0.5 1.5t-0.5 1.5q-1 22 -13 36q0 -1 -1 -2v-2zM592 313q135 54 284 81q-2 1 -13 9.5t-16 13.5q-76 67 -127 176q-27 -86 -83 -197q-30 -56 -45 -83zM1238 329q-24 24 -140 24q76 -28 124 -28q14 0 18 1q0 1 -2 3z" />
+<glyph unicode="&#xf1c2;" d="M1468 1156q28 -28 48 -76t20 -88v-1152q0 -40 -28 -68t-68 -28h-1344q-40 0 -68 28t-28 68v1600q0 40 28 68t68 28h896q40 0 88 -20t76 -48zM1024 1400v-376h376q-10 29 -22 41l-313 313q-12 12 -41 22zM1408 -128v1024h-416q-40 0 -68 28t-28 68v416h-768v-1536h1280z M233 768v-107h70l164 -661h159l128 485q7 20 10 46q2 16 2 24h4l3 -24q1 -3 3.5 -20t5.5 -26l128 -485h159l164 661h70v107h-300v-107h90l-99 -438q-5 -20 -7 -46l-2 -21h-4l-3 21q-1 5 -4 21t-5 25l-144 545h-114l-144 -545q-2 -9 -4.5 -24.5t-3.5 -21.5l-4 -21h-4l-2 21 q-2 26 -7 46l-99 438h90v107h-300z" />
+<glyph unicode="&#xf1c3;" d="M1468 1156q28 -28 48 -76t20 -88v-1152q0 -40 -28 -68t-68 -28h-1344q-40 0 -68 28t-28 68v1600q0 40 28 68t68 28h896q40 0 88 -20t76 -48zM1024 1400v-376h376q-10 29 -22 41l-313 313q-12 12 -41 22zM1408 -128v1024h-416q-40 0 -68 28t-28 68v416h-768v-1536h1280z M429 106v-106h281v106h-75l103 161q5 7 10 16.5t7.5 13.5t3.5 4h2q1 -4 5 -10q2 -4 4.5 -7.5t6 -8t6.5 -8.5l107 -161h-76v-106h291v106h-68l-192 273l195 282h67v107h-279v-107h74l-103 -159q-4 -7 -10 -16.5t-9 -13.5l-2 -3h-2q-1 4 -5 10q-6 11 -17 23l-106 159h76v107 h-290v-107h68l189 -272l-194 -283h-68z" />
+<glyph unicode="&#xf1c4;" d="M1468 1156q28 -28 48 -76t20 -88v-1152q0 -40 -28 -68t-68 -28h-1344q-40 0 -68 28t-28 68v1600q0 40 28 68t68 28h896q40 0 88 -20t76 -48zM1024 1400v-376h376q-10 29 -22 41l-313 313q-12 12 -41 22zM1408 -128v1024h-416q-40 0 -68 28t-28 68v416h-768v-1536h1280z M416 106v-106h327v106h-93v167h137q76 0 118 15q67 23 106.5 87t39.5 146q0 81 -37 141t-100 87q-48 19 -130 19h-368v-107h92v-555h-92zM769 386h-119v268h120q52 0 83 -18q56 -33 56 -115q0 -89 -62 -120q-31 -15 -78 -15z" />
+<glyph unicode="&#xf1c5;" d="M1468 1156q28 -28 48 -76t20 -88v-1152q0 -40 -28 -68t-68 -28h-1344q-40 0 -68 28t-28 68v1600q0 40 28 68t68 28h896q40 0 88 -20t76 -48zM1024 1400v-376h376q-10 29 -22 41l-313 313q-12 12 -41 22zM1408 -128v1024h-416q-40 0 -68 28t-28 68v416h-768v-1536h1280z M1280 320v-320h-1024v192l192 192l128 -128l384 384zM448 512q-80 0 -136 56t-56 136t56 136t136 56t136 -56t56 -136t-56 -136t-136 -56z" />
+<glyph unicode="&#xf1c6;" d="M640 1152v128h-128v-128h128zM768 1024v128h-128v-128h128zM640 896v128h-128v-128h128zM768 768v128h-128v-128h128zM1468 1156q28 -28 48 -76t20 -88v-1152q0 -40 -28 -68t-68 -28h-1344q-40 0 -68 28t-28 68v1600q0 40 28 68t68 28h896q40 0 88 -20t76 -48zM1024 1400 v-376h376q-10 29 -22 41l-313 313q-12 12 -41 22zM1408 -128v1024h-416q-40 0 -68 28t-28 68v416h-128v-128h-128v128h-512v-1536h1280zM781 593l107 -349q8 -27 8 -52q0 -83 -72.5 -137.5t-183.5 -54.5t-183.5 54.5t-72.5 137.5q0 25 8 52q21 63 120 396v128h128v-128h79 q22 0 39 -13t23 -34zM640 128q53 0 90.5 19t37.5 45t-37.5 45t-90.5 19t-90.5 -19t-37.5 -45t37.5 -45t90.5 -19z" />
+<glyph unicode="&#xf1c7;" d="M1468 1156q28 -28 48 -76t20 -88v-1152q0 -40 -28 -68t-68 -28h-1344q-40 0 -68 28t-28 68v1600q0 40 28 68t68 28h896q40 0 88 -20t76 -48zM1024 1400v-376h376q-10 29 -22 41l-313 313q-12 12 -41 22zM1408 -128v1024h-416q-40 0 -68 28t-28 68v416h-768v-1536h1280z M620 686q20 -8 20 -30v-544q0 -22 -20 -30q-8 -2 -12 -2q-12 0 -23 9l-166 167h-131q-14 0 -23 9t-9 23v192q0 14 9 23t23 9h131l166 167q16 15 35 7zM1037 -3q31 0 50 24q129 159 129 363t-129 363q-16 21 -43 24t-47 -14q-21 -17 -23.5 -43.5t14.5 -47.5 q100 -123 100 -282t-100 -282q-17 -21 -14.5 -47.5t23.5 -42.5q18 -15 40 -15zM826 145q27 0 47 20q87 93 87 219t-87 219q-18 19 -45 20t-46 -17t-20 -44.5t18 -46.5q52 -57 52 -131t-52 -131q-19 -20 -18 -46.5t20 -44.5q20 -17 44 -17z" />
+<glyph unicode="&#xf1c8;" d="M1468 1156q28 -28 48 -76t20 -88v-1152q0 -40 -28 -68t-68 -28h-1344q-40 0 -68 28t-28 68v1600q0 40 28 68t68 28h896q40 0 88 -20t76 -48zM1024 1400v-376h376q-10 29 -22 41l-313 313q-12 12 -41 22zM1408 -128v1024h-416q-40 0 -68 28t-28 68v416h-768v-1536h1280z M768 768q52 0 90 -38t38 -90v-384q0 -52 -38 -90t-90 -38h-384q-52 0 -90 38t-38 90v384q0 52 38 90t90 38h384zM1260 766q20 -8 20 -30v-576q0 -22 -20 -30q-8 -2 -12 -2q-14 0 -23 9l-265 266v90l265 266q9 9 23 9q4 0 12 -2z" />
+<glyph unicode="&#xf1c9;" d="M1468 1156q28 -28 48 -76t20 -88v-1152q0 -40 -28 -68t-68 -28h-1344q-40 0 -68 28t-28 68v1600q0 40 28 68t68 28h896q40 0 88 -20t76 -48zM1024 1400v-376h376q-10 29 -22 41l-313 313q-12 12 -41 22zM1408 -128v1024h-416q-40 0 -68 28t-28 68v416h-768v-1536h1280z M480 768q8 11 21 12.5t24 -6.5l51 -38q11 -8 12.5 -21t-6.5 -24l-182 -243l182 -243q8 -11 6.5 -24t-12.5 -21l-51 -38q-11 -8 -24 -6.5t-21 12.5l-226 301q-14 19 0 38zM1282 467q14 -19 0 -38l-226 -301q-8 -11 -21 -12.5t-24 6.5l-51 38q-11 8 -12.5 21t6.5 24l182 243 l-182 243q-8 11 -6.5 24t12.5 21l51 38q11 8 24 6.5t21 -12.5zM662 6q-13 2 -20.5 13t-5.5 24l138 831q2 13 13 20.5t24 5.5l63 -10q13 -2 20.5 -13t5.5 -24l-138 -831q-2 -13 -13 -20.5t-24 -5.5z" />
+<glyph unicode="&#xf1ca;" d="M1497 709v-198q-101 -23 -198 -23q-65 -136 -165.5 -271t-181.5 -215.5t-128 -106.5q-80 -45 -162 3q-28 17 -60.5 43.5t-85 83.5t-102.5 128.5t-107.5 184t-105.5 244t-91.5 314.5t-70.5 390h283q26 -218 70 -398.5t104.5 -317t121.5 -235.5t140 -195q169 169 287 406 q-142 72 -223 220t-81 333q0 192 104 314.5t284 122.5q178 0 273 -105.5t95 -297.5q0 -159 -58 -286q-7 -1 -19.5 -3t-46 -2t-63 6t-62 25.5t-50.5 51.5q31 103 31 184q0 87 -29 132t-79 45q-53 0 -85 -49.5t-32 -140.5q0 -186 105 -293.5t267 -107.5q62 0 121 14z" />
+<glyph unicode="&#xf1cb;" horiz-adv-x="1792" d="M216 367l603 -402v359l-334 223zM154 511l193 129l-193 129v-258zM973 -35l603 402l-269 180l-334 -223v-359zM896 458l272 182l-272 182l-272 -182zM485 733l334 223v359l-603 -402zM1445 640l193 -129v258zM1307 733l269 180l-603 402v-359zM1792 913v-546 q0 -41 -34 -64l-819 -546q-21 -13 -43 -13t-43 13l-819 546q-34 23 -34 64v546q0 41 34 64l819 546q21 13 43 13t43 -13l819 -546q34 -23 34 -64z" />
+<glyph unicode="&#xf1cc;" horiz-adv-x="2048" d="M1800 764q111 -46 179.5 -145.5t68.5 -221.5q0 -164 -118 -280.5t-285 -116.5q-4 0 -11.5 0.5t-10.5 0.5h-1209h-1h-2h-5q-170 10 -288 125.5t-118 280.5q0 110 55 203t147 147q-12 39 -12 82q0 115 82 196t199 81q95 0 172 -58q75 154 222.5 248t326.5 94 q166 0 306 -80.5t221.5 -218.5t81.5 -301q0 -6 -0.5 -18t-0.5 -18zM468 498q0 -122 84 -193t208 -71q137 0 240 99q-16 20 -47.5 56.5t-43.5 50.5q-67 -65 -144 -65q-55 0 -93.5 33.5t-38.5 87.5q0 53 38.5 87t91.5 34q44 0 84.5 -21t73 -55t65 -75t69 -82t77 -75t97 -55 t121.5 -21q121 0 204.5 71.5t83.5 190.5q0 121 -84 192t-207 71q-143 0 -241 -97q14 -16 29.5 -34t34.5 -40t29 -34q66 64 142 64q52 0 92 -33t40 -84q0 -57 -37 -91.5t-94 -34.5q-43 0 -82.5 21t-72 55t-65.5 75t-69.5 82t-77.5 75t-96.5 55t-118.5 21q-122 0 -207 -70.5 t-85 -189.5z" />
+<glyph unicode="&#xf1cd;" horiz-adv-x="1792" d="M896 1536q182 0 348 -71t286 -191t191 -286t71 -348t-71 -348t-191 -286t-286 -191t-348 -71t-348 71t-286 191t-191 286t-71 348t71 348t191 286t286 191t348 71zM896 1408q-190 0 -361 -90l194 -194q82 28 167 28t167 -28l194 194q-171 90 -361 90zM218 279l194 194 q-28 82 -28 167t28 167l-194 194q-90 -171 -90 -361t90 -361zM896 -128q190 0 361 90l-194 194q-82 -28 -167 -28t-167 28l-194 -194q171 -90 361 -90zM896 256q159 0 271.5 112.5t112.5 271.5t-112.5 271.5t-271.5 112.5t-271.5 -112.5t-112.5 -271.5t112.5 -271.5 t271.5 -112.5zM1380 473l194 -194q90 171 90 361t-90 361l-194 -194q28 -82 28 -167t-28 -167z" />
+<glyph unicode="&#xf1ce;" horiz-adv-x="1792" d="M1792 640q0 -182 -71 -348t-191 -286t-286 -191t-348 -71t-348 71t-286 191t-191 286t-71 348q0 222 101 414.5t276.5 317t390.5 155.5v-260q-221 -45 -366.5 -221t-145.5 -406q0 -130 51 -248.5t136.5 -204t204 -136.5t248.5 -51t248.5 51t204 136.5t136.5 204t51 248.5 q0 230 -145.5 406t-366.5 221v260q215 -31 390.5 -155.5t276.5 -317t101 -414.5z" />
+<glyph unicode="&#xf1d0;" horiz-adv-x="1792" d="M19 662q8 217 116 406t305 318h5q0 -1 -1 -3q-8 -8 -28 -33.5t-52 -76.5t-60 -110.5t-44.5 -135.5t-14 -150.5t39 -157.5t108.5 -154q50 -50 102 -69.5t90.5 -11.5t69.5 23.5t47 32.5l16 16q39 51 53 116.5t6.5 122.5t-21 107t-26.5 80l-14 29q-10 25 -30.5 49.5t-43 41 t-43.5 29.5t-35 19l-13 6l104 115q39 -17 78 -52t59 -61l19 -27q1 48 -18.5 103.5t-40.5 87.5l-20 31l161 183l160 -181q-33 -46 -52.5 -102.5t-22.5 -90.5l-4 -33q22 37 61.5 72.5t67.5 52.5l28 17l103 -115q-44 -14 -85 -50t-60 -65l-19 -29q-31 -56 -48 -133.5t-7 -170 t57 -156.5q33 -45 77.5 -60.5t85 -5.5t76 26.5t57.5 33.5l21 16q60 53 96.5 115t48.5 121.5t10 121.5t-18 118t-37 107.5t-45.5 93t-45 72t-34.5 47.5l-13 17q-14 13 -7 13l10 -3q40 -29 62.5 -46t62 -50t64 -58t58.5 -65t55.5 -77t45.5 -88t38 -103t23.5 -117t10.5 -136 q3 -259 -108 -465t-312 -321t-456 -115q-185 0 -351 74t-283.5 198t-184 293t-60.5 353z" />
+<glyph unicode="&#xf1d1;" horiz-adv-x="1792" d="M874 -102v-66q-208 6 -385 109.5t-283 275.5l58 34q29 -49 73 -99l65 57q148 -168 368 -212l-17 -86q65 -12 121 -13zM276 428l-83 -28q22 -60 49 -112l-57 -33q-98 180 -98 385t98 385l57 -33q-30 -56 -49 -112l82 -28q-35 -100 -35 -212q0 -109 36 -212zM1528 251 l58 -34q-106 -172 -283 -275.5t-385 -109.5v66q56 1 121 13l-17 86q220 44 368 212l65 -57q44 50 73 99zM1377 805l-233 -80q14 -42 14 -85t-14 -85l232 -80q-31 -92 -98 -169l-185 162q-57 -67 -147 -85l48 -241q-52 -10 -98 -10t-98 10l48 241q-90 18 -147 85l-185 -162 q-67 77 -98 169l232 80q-14 42 -14 85t14 85l-233 80q33 93 99 169l185 -162q59 68 147 86l-48 240q44 10 98 10t98 -10l-48 -240q88 -18 147 -86l185 162q66 -76 99 -169zM874 1448v-66q-65 -2 -121 -13l17 -86q-220 -42 -368 -211l-65 56q-38 -42 -73 -98l-57 33 q106 172 282 275.5t385 109.5zM1705 640q0 -205 -98 -385l-57 33q27 52 49 112l-83 28q36 103 36 212q0 112 -35 212l82 28q-19 56 -49 112l57 33q98 -180 98 -385zM1585 1063l-57 -33q-35 56 -73 98l-65 -56q-148 169 -368 211l17 86q-56 11 -121 13v66q209 -6 385 -109.5 t282 -275.5zM1748 640q0 173 -67.5 331t-181.5 272t-272 181.5t-331 67.5t-331 -67.5t-272 -181.5t-181.5 -272t-67.5 -331t67.5 -331t181.5 -272t272 -181.5t331 -67.5t331 67.5t272 181.5t181.5 272t67.5 331zM1792 640q0 -182 -71 -348t-191 -286t-286 -191t-348 -71 t-348 71t-286 191t-191 286t-71 348t71 348t191 286t286 191t348 71t348 -71t286 -191t191 -286t71 -348z" />
+<glyph unicode="&#xf1d2;" d="M582 228q0 -66 -93 -66q-107 0 -107 63q0 64 98 64q102 0 102 -61zM546 694q0 -85 -74 -85q-77 0 -77 84q0 90 77 90q36 0 55 -25.5t19 -63.5zM712 769v125q-78 -29 -135 -29q-50 29 -110 29q-86 0 -145 -57t-59 -143q0 -50 29.5 -102t73.5 -67v-3q-38 -17 -38 -85 q0 -53 41 -77v-3q-113 -37 -113 -139q0 -45 20 -78.5t54 -51t72 -25.5t81 -8q224 0 224 188q0 67 -48 99t-126 46q-27 5 -51.5 20.5t-24.5 39.5q0 44 49 52q77 15 122 70t45 134q0 24 -10 52q37 9 49 13zM771 350h137q-2 27 -2 82v387q0 46 2 69h-137q3 -23 3 -71v-392 q0 -50 -3 -75zM1280 366v121q-30 -21 -68 -21q-53 0 -53 82v225h52q9 0 26.5 -1t26.5 -1v117h-105q0 82 3 102h-140q4 -24 4 -55v-47h-60v-117q36 3 37 3q3 0 11 -0.5t12 -0.5v-2h-2v-217q0 -37 2.5 -64t11.5 -56.5t24.5 -48.5t43.5 -31t66 -12q64 0 108 24zM924 1072 q0 36 -24 63.5t-60 27.5t-60.5 -27t-24.5 -64q0 -36 25 -62.5t60 -26.5t59.5 27t24.5 62zM1536 1120v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf1d3;" horiz-adv-x="1792" d="M595 22q0 100 -165 100q-158 0 -158 -104q0 -101 172 -101q151 0 151 105zM536 777q0 61 -30 102t-89 41q-124 0 -124 -145q0 -135 124 -135q119 0 119 137zM805 1101v-202q-36 -12 -79 -22q16 -43 16 -84q0 -127 -73 -216.5t-197 -112.5q-40 -8 -59.5 -27t-19.5 -58 q0 -31 22.5 -51.5t58 -32t78.5 -22t86 -25.5t78.5 -37.5t58 -64t22.5 -98.5q0 -304 -363 -304q-69 0 -130 12.5t-116 41t-87.5 82t-32.5 127.5q0 165 182 225v4q-67 41 -67 126q0 109 63 137v4q-72 24 -119.5 108.5t-47.5 165.5q0 139 95 231.5t235 92.5q96 0 178 -47 q98 0 218 47zM1123 220h-222q4 45 4 134v609q0 94 -4 128h222q-4 -33 -4 -124v-613q0 -89 4 -134zM1724 442v-196q-71 -39 -174 -39q-62 0 -107 20t-70 50t-39.5 78t-18.5 92t-4 103v351h2v4q-7 0 -19 1t-18 1q-21 0 -59 -6v190h96v76q0 54 -6 89h227q-6 -41 -6 -165h171 v-190q-15 0 -43.5 2t-42.5 2h-85v-365q0 -131 87 -131q61 0 109 33zM1148 1389q0 -58 -39 -101.5t-96 -43.5q-58 0 -98 43.5t-40 101.5q0 59 39.5 103t98.5 44q58 0 96.5 -44.5t38.5 -102.5z" />
+<glyph unicode="&#xf1d4;" d="M825 547l343 588h-150q-21 -39 -63.5 -118.5t-68 -128.5t-59.5 -118.5t-60 -128.5h-3q-21 48 -44.5 97t-52 105.5t-46.5 92t-54 104.5t-49 95h-150l323 -589v-435h134v436zM1536 1120v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960 q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf1d5;" horiz-adv-x="1280" d="M842 964q0 -80 -57 -136.5t-136 -56.5q-60 0 -111 35q-62 -67 -115 -146q-247 -371 -202 -859q1 -22 -12.5 -38.5t-34.5 -18.5h-5q-20 0 -35 13.5t-17 33.5q-14 126 -3.5 247.5t29.5 217t54 186t69 155.5t74 125q61 90 132 165q-16 35 -16 77q0 80 56.5 136.5t136.5 56.5 t136.5 -56.5t56.5 -136.5zM1223 953q0 -158 -78 -292t-212.5 -212t-292.5 -78q-64 0 -131 14q-21 5 -32.5 23.5t-6.5 39.5q5 20 23 31.5t39 7.5q51 -13 108 -13q97 0 186 38t153 102t102 153t38 186t-38 186t-102 153t-153 102t-186 38t-186 -38t-153 -102t-102 -153 t-38 -186q0 -114 52 -218q10 -20 3.5 -40t-25.5 -30t-39.5 -3t-30.5 26q-64 123 -64 265q0 119 46.5 227t124.5 186t186 124t226 46q158 0 292.5 -78t212.5 -212.5t78 -292.5z" />
+<glyph unicode="&#xf1d6;" horiz-adv-x="1792" d="M270 730q-8 19 -8 52q0 20 11 49t24 45q-1 22 7.5 53t22.5 43q0 139 92.5 288.5t217.5 209.5q139 66 324 66q133 0 266 -55q49 -21 90 -48t71 -56t55 -68t42 -74t32.5 -84.5t25.5 -89.5t22 -98l1 -5q55 -83 55 -150q0 -14 -9 -40t-9 -38q0 -1 1.5 -3.5t3.5 -5t2 -3.5 q77 -114 120.5 -214.5t43.5 -208.5q0 -43 -19.5 -100t-55.5 -57q-9 0 -19.5 7.5t-19 17.5t-19 26t-16 26.5t-13.5 26t-9 17.5q-1 1 -3 1l-5 -4q-59 -154 -132 -223q20 -20 61.5 -38.5t69 -41.5t35.5 -65q-2 -4 -4 -16t-7 -18q-64 -97 -302 -97q-53 0 -110.5 9t-98 20 t-104.5 30q-15 5 -23 7q-14 4 -46 4.5t-40 1.5q-41 -45 -127.5 -65t-168.5 -20q-35 0 -69 1.5t-93 9t-101 20.5t-74.5 40t-32.5 64q0 40 10 59.5t41 48.5q11 2 40.5 13t49.5 12q4 0 14 2q2 2 2 4l-2 3q-48 11 -108 105.5t-73 156.5l-5 3q-4 0 -12 -20q-18 -41 -54.5 -74.5 t-77.5 -37.5h-1q-4 0 -6 4.5t-5 5.5q-23 54 -23 100q0 275 252 466z" />
+<glyph unicode="&#xf1d7;" horiz-adv-x="2048" d="M580 1075q0 41 -25 66t-66 25q-43 0 -76 -25.5t-33 -65.5q0 -39 33 -64.5t76 -25.5q41 0 66 24.5t25 65.5zM1323 568q0 28 -25.5 50t-65.5 22q-27 0 -49.5 -22.5t-22.5 -49.5q0 -28 22.5 -50.5t49.5 -22.5q40 0 65.5 22t25.5 51zM1087 1075q0 41 -24.5 66t-65.5 25 q-43 0 -76 -25.5t-33 -65.5q0 -39 33 -64.5t76 -25.5q41 0 65.5 24.5t24.5 65.5zM1722 568q0 28 -26 50t-65 22q-27 0 -49.5 -22.5t-22.5 -49.5q0 -28 22.5 -50.5t49.5 -22.5q39 0 65 22t26 51zM1456 965q-31 4 -70 4q-169 0 -311 -77t-223.5 -208.5t-81.5 -287.5 q0 -78 23 -152q-35 -3 -68 -3q-26 0 -50 1.5t-55 6.5t-44.5 7t-54.5 10.5t-50 10.5l-253 -127l72 218q-290 203 -290 490q0 169 97.5 311t264 223.5t363.5 81.5q176 0 332.5 -66t262 -182.5t136.5 -260.5zM2048 404q0 -117 -68.5 -223.5t-185.5 -193.5l55 -181l-199 109 q-150 -37 -218 -37q-169 0 -311 70.5t-223.5 191.5t-81.5 264t81.5 264t223.5 191.5t311 70.5q161 0 303 -70.5t227.5 -192t85.5 -263.5z" />
+<glyph unicode="&#xf1d8;" horiz-adv-x="1792" d="M1764 1525q33 -24 27 -64l-256 -1536q-5 -29 -32 -45q-14 -8 -31 -8q-11 0 -24 5l-453 185l-242 -295q-18 -23 -49 -23q-13 0 -22 4q-19 7 -30.5 23.5t-11.5 36.5v349l864 1059l-1069 -925l-395 162q-37 14 -40 55q-2 40 32 59l1664 960q15 9 32 9q20 0 36 -11z" />
+<glyph unicode="&#xf1d9;" horiz-adv-x="1792" d="M1764 1525q33 -24 27 -64l-256 -1536q-5 -29 -32 -45q-14 -8 -31 -8q-11 0 -24 5l-527 215l-298 -327q-18 -21 -47 -21q-14 0 -23 4q-19 7 -30 23.5t-11 36.5v452l-472 193q-37 14 -40 55q-3 39 32 59l1664 960q35 21 68 -2zM1422 26l221 1323l-1434 -827l336 -137 l863 639l-478 -797z" />
+<glyph unicode="&#xf1da;" d="M1536 640q0 -156 -61 -298t-164 -245t-245 -164t-298 -61q-172 0 -327 72.5t-264 204.5q-7 10 -6.5 22.5t8.5 20.5l137 138q10 9 25 9q16 -2 23 -12q73 -95 179 -147t225 -52q104 0 198.5 40.5t163.5 109.5t109.5 163.5t40.5 198.5t-40.5 198.5t-109.5 163.5 t-163.5 109.5t-198.5 40.5q-98 0 -188 -35.5t-160 -101.5l137 -138q31 -30 14 -69q-17 -40 -59 -40h-448q-26 0 -45 19t-19 45v448q0 42 40 59q39 17 69 -14l130 -129q107 101 244.5 156.5t284.5 55.5q156 0 298 -61t245 -164t164 -245t61 -298zM896 928v-448q0 -14 -9 -23 t-23 -9h-320q-14 0 -23 9t-9 23v64q0 14 9 23t23 9h224v352q0 14 9 23t23 9h64q14 0 23 -9t9 -23z" />
+<glyph unicode="&#xf1db;" d="M768 1280q-130 0 -248.5 -51t-204 -136.5t-136.5 -204t-51 -248.5t51 -248.5t136.5 -204t204 -136.5t248.5 -51t248.5 51t204 136.5t136.5 204t51 248.5t-51 248.5t-136.5 204t-204 136.5t-248.5 51zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103 t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf1dc;" horiz-adv-x="1792" d="M1682 -128q-44 0 -132.5 3.5t-133.5 3.5q-44 0 -132 -3.5t-132 -3.5q-24 0 -37 20.5t-13 45.5q0 31 17 46t39 17t51 7t45 15q33 21 33 140l-1 391q0 21 -1 31q-13 4 -50 4h-675q-38 0 -51 -4q-1 -10 -1 -31l-1 -371q0 -142 37 -164q16 -10 48 -13t57 -3.5t45 -15 t20 -45.5q0 -26 -12.5 -48t-36.5 -22q-47 0 -139.5 3.5t-138.5 3.5q-43 0 -128 -3.5t-127 -3.5q-23 0 -35.5 21t-12.5 45q0 30 15.5 45t36 17.5t47.5 7.5t42 15q33 23 33 143l-1 57v813q0 3 0.5 26t0 36.5t-1.5 38.5t-3.5 42t-6.5 36.5t-11 31.5t-16 18q-15 10 -45 12t-53 2 t-41 14t-18 45q0 26 12 48t36 22q46 0 138.5 -3.5t138.5 -3.5q42 0 126.5 3.5t126.5 3.5q25 0 37.5 -22t12.5 -48q0 -30 -17 -43.5t-38.5 -14.5t-49.5 -4t-43 -13q-35 -21 -35 -160l1 -320q0 -21 1 -32q13 -3 39 -3h699q25 0 38 3q1 11 1 32l1 320q0 139 -35 160 q-18 11 -58.5 12.5t-66 13t-25.5 49.5q0 26 12.5 48t37.5 22q44 0 132 -3.5t132 -3.5q43 0 129 3.5t129 3.5q25 0 37.5 -22t12.5 -48q0 -30 -17.5 -44t-40 -14.5t-51.5 -3t-44 -12.5q-35 -23 -35 -161l1 -943q0 -119 34 -140q16 -10 46 -13.5t53.5 -4.5t41.5 -15.5t18 -44.5 q0 -26 -12 -48t-36 -22z" />
+<glyph unicode="&#xf1dd;" horiz-adv-x="1280" d="M1278 1347v-73q0 -29 -18.5 -61t-42.5 -32q-50 0 -54 -1q-26 -6 -32 -31q-3 -11 -3 -64v-1152q0 -25 -18 -43t-43 -18h-108q-25 0 -43 18t-18 43v1218h-143v-1218q0 -25 -17.5 -43t-43.5 -18h-108q-26 0 -43.5 18t-17.5 43v496q-147 12 -245 59q-126 58 -192 179 q-64 117 -64 259q0 166 88 286q88 118 209 159q111 37 417 37h479q25 0 43 -18t18 -43z" />
+<glyph unicode="&#xf1de;" d="M352 128v-128h-352v128h352zM704 256q26 0 45 -19t19 -45v-256q0 -26 -19 -45t-45 -19h-256q-26 0 -45 19t-19 45v256q0 26 19 45t45 19h256zM864 640v-128h-864v128h864zM224 1152v-128h-224v128h224zM1536 128v-128h-736v128h736zM576 1280q26 0 45 -19t19 -45v-256 q0 -26 -19 -45t-45 -19h-256q-26 0 -45 19t-19 45v256q0 26 19 45t45 19h256zM1216 768q26 0 45 -19t19 -45v-256q0 -26 -19 -45t-45 -19h-256q-26 0 -45 19t-19 45v256q0 26 19 45t45 19h256zM1536 640v-128h-224v128h224zM1536 1152v-128h-864v128h864z" />
+<glyph unicode="&#xf1e0;" d="M1216 512q133 0 226.5 -93.5t93.5 -226.5t-93.5 -226.5t-226.5 -93.5t-226.5 93.5t-93.5 226.5q0 12 2 34l-360 180q-92 -86 -218 -86q-133 0 -226.5 93.5t-93.5 226.5t93.5 226.5t226.5 93.5q126 0 218 -86l360 180q-2 22 -2 34q0 133 93.5 226.5t226.5 93.5 t226.5 -93.5t93.5 -226.5t-93.5 -226.5t-226.5 -93.5q-126 0 -218 86l-360 -180q2 -22 2 -34t-2 -34l360 -180q92 86 218 86z" />
+<glyph unicode="&#xf1e1;" d="M1280 341q0 88 -62.5 151t-150.5 63q-84 0 -145 -58l-241 120q2 16 2 23t-2 23l241 120q61 -58 145 -58q88 0 150.5 63t62.5 151t-62.5 150.5t-150.5 62.5t-151 -62.5t-63 -150.5q0 -7 2 -23l-241 -120q-62 57 -145 57q-88 0 -150.5 -62.5t-62.5 -150.5t62.5 -150.5 t150.5 -62.5q83 0 145 57l241 -120q-2 -16 -2 -23q0 -88 63 -150.5t151 -62.5t150.5 62.5t62.5 150.5zM1536 1120v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf1e2;" horiz-adv-x="1792" d="M571 947q-10 25 -34 35t-49 0q-108 -44 -191 -127t-127 -191q-10 -25 0 -49t35 -34q13 -5 24 -5q42 0 60 40q34 84 98.5 148.5t148.5 98.5q25 11 35 35t0 49zM1513 1303l46 -46l-244 -243l68 -68q19 -19 19 -45.5t-19 -45.5l-64 -64q89 -161 89 -343q0 -143 -55.5 -273.5 t-150 -225t-225 -150t-273.5 -55.5t-273.5 55.5t-225 150t-150 225t-55.5 273.5t55.5 273.5t150 225t225 150t273.5 55.5q182 0 343 -89l64 64q19 19 45.5 19t45.5 -19l68 -68zM1521 1359q-10 -10 -22 -10q-13 0 -23 10l-91 90q-9 10 -9 23t9 23q10 9 23 9t23 -9l90 -91 q10 -9 10 -22.5t-10 -22.5zM1751 1129q-11 -9 -23 -9t-23 9l-90 91q-10 9 -10 22.5t10 22.5q9 10 22.5 10t22.5 -10l91 -90q9 -10 9 -23t-9 -23zM1792 1312q0 -14 -9 -23t-23 -9h-96q-14 0 -23 9t-9 23t9 23t23 9h96q14 0 23 -9t9 -23zM1600 1504v-96q0 -14 -9 -23t-23 -9 t-23 9t-9 23v96q0 14 9 23t23 9t23 -9t9 -23zM1751 1449l-91 -90q-10 -10 -22 -10q-13 0 -23 10q-10 9 -10 22.5t10 22.5l90 91q10 9 23 9t23 -9q9 -10 9 -23t-9 -23z" />
+<glyph unicode="&#xf1e3;" horiz-adv-x="1792" d="M609 720l287 208l287 -208l-109 -336h-355zM896 1536q182 0 348 -71t286 -191t191 -286t71 -348t-71 -348t-191 -286t-286 -191t-348 -71t-348 71t-286 191t-191 286t-71 348t71 348t191 286t286 191t348 71zM1515 186q149 203 149 454v3l-102 -89l-240 224l63 323 l134 -12q-150 206 -389 282l53 -124l-287 -159l-287 159l53 124q-239 -76 -389 -282l135 12l62 -323l-240 -224l-102 89v-3q0 -251 149 -454l30 132l326 -40l139 -298l-116 -69q117 -39 240 -39t240 39l-116 69l139 298l326 40z" />
+<glyph unicode="&#xf1e4;" horiz-adv-x="1792" d="M448 224v-192q0 -14 -9 -23t-23 -9h-192q-14 0 -23 9t-9 23v192q0 14 9 23t23 9h192q14 0 23 -9t9 -23zM256 608v-192q0 -14 -9 -23t-23 -9h-192q-14 0 -23 9t-9 23v192q0 14 9 23t23 9h192q14 0 23 -9t9 -23zM832 224v-192q0 -14 -9 -23t-23 -9h-192q-14 0 -23 9t-9 23 v192q0 14 9 23t23 9h192q14 0 23 -9t9 -23zM640 608v-192q0 -14 -9 -23t-23 -9h-192q-14 0 -23 9t-9 23v192q0 14 9 23t23 9h192q14 0 23 -9t9 -23zM66 768q-28 0 -47 19t-19 46v129h514v-129q0 -27 -19 -46t-46 -19h-383zM1216 224v-192q0 -14 -9 -23t-23 -9h-192 q-14 0 -23 9t-9 23v192q0 14 9 23t23 9h192q14 0 23 -9t9 -23zM1024 608v-192q0 -14 -9 -23t-23 -9h-192q-14 0 -23 9t-9 23v192q0 14 9 23t23 9h192q14 0 23 -9t9 -23zM1600 224v-192q0 -14 -9 -23t-23 -9h-192q-14 0 -23 9t-9 23v192q0 14 9 23t23 9h192q14 0 23 -9t9 -23 zM1408 608v-192q0 -14 -9 -23t-23 -9h-192q-14 0 -23 9t-9 23v192q0 14 9 23t23 9h192q14 0 23 -9t9 -23zM1792 1016v-13h-514v10q0 104 -382 102q-382 -1 -382 -102v-10h-514v13q0 17 8.5 43t34 64t65.5 75.5t110.5 76t160 67.5t224 47.5t293.5 18.5t293 -18.5t224 -47.5 t160.5 -67.5t110.5 -76t65.5 -75.5t34 -64t8.5 -43zM1792 608v-192q0 -14 -9 -23t-23 -9h-192q-14 0 -23 9t-9 23v192q0 14 9 23t23 9h192q14 0 23 -9t9 -23zM1792 962v-129q0 -27 -19 -46t-46 -19h-384q-27 0 -46 19t-19 46v129h514z" />
+<glyph unicode="&#xf1e5;" horiz-adv-x="1792" d="M704 1216v-768q0 -26 -19 -45t-45 -19v-576q0 -26 -19 -45t-45 -19h-512q-26 0 -45 19t-19 45v512l249 873q7 23 31 23h424zM1024 1216v-704h-256v704h256zM1792 320v-512q0 -26 -19 -45t-45 -19h-512q-26 0 -45 19t-19 45v576q-26 0 -45 19t-19 45v768h424q24 0 31 -23z M736 1504v-224h-352v224q0 14 9 23t23 9h288q14 0 23 -9t9 -23zM1408 1504v-224h-352v224q0 14 9 23t23 9h288q14 0 23 -9t9 -23z" />
+<glyph unicode="&#xf1e6;" horiz-adv-x="1792" d="M1755 1083q37 -37 37 -90t-37 -91l-401 -400l150 -150l-160 -160q-163 -163 -389.5 -186.5t-411.5 100.5l-362 -362h-181v181l362 362q-124 185 -100.5 411.5t186.5 389.5l160 160l150 -150l400 401q38 37 91 37t90 -37t37 -90.5t-37 -90.5l-400 -401l234 -234l401 400 q38 37 91 37t90 -37z" />
+<glyph unicode="&#xf1e7;" horiz-adv-x="1792" d="M873 796q0 -83 -63.5 -142.5t-152.5 -59.5t-152.5 59.5t-63.5 142.5q0 84 63.5 143t152.5 59t152.5 -59t63.5 -143zM1375 796q0 -83 -63 -142.5t-153 -59.5q-89 0 -152.5 59.5t-63.5 142.5q0 84 63.5 143t152.5 59q90 0 153 -59t63 -143zM1600 616v667q0 87 -32 123.5 t-111 36.5h-1112q-83 0 -112.5 -34t-29.5 -126v-673q43 -23 88.5 -40t81 -28t81 -18.5t71 -11t70 -4t58.5 -0.5t56.5 2t44.5 2q68 1 95 -27q6 -6 10 -9q26 -25 61 -51q7 91 118 87q5 0 36.5 -1.5t43 -2t45.5 -1t53 1t54.5 4.5t61 8.5t62 13.5t67 19.5t67.5 27t72 34.5z M1763 621q-121 -149 -372 -252q84 -285 -23 -465q-66 -113 -183 -148q-104 -32 -182 15q-86 51 -82 164l-1 326v1q-8 2 -24.5 6t-23.5 5l-1 -338q4 -114 -83 -164q-79 -47 -183 -15q-117 36 -182 150q-105 180 -22 463q-251 103 -372 252q-25 37 -4 63t60 -1q3 -2 11 -7 t11 -8v694q0 72 47 123t114 51h1257q67 0 114 -51t47 -123v-694l21 15q39 27 60 1t-4 -63z" />
+<glyph unicode="&#xf1e8;" horiz-adv-x="1792" d="M896 1102v-434h-145v434h145zM1294 1102v-434h-145v434h145zM1294 342l253 254v795h-1194v-1049h326v-217l217 217h398zM1692 1536v-1013l-434 -434h-326l-217 -217h-217v217h-398v1158l109 289h1483z" />
+<glyph unicode="&#xf1e9;" d="M773 217v-127q-1 -292 -6 -305q-12 -32 -51 -40q-54 -9 -181.5 38t-162.5 89q-13 15 -17 36q-1 12 4 26q4 10 34 47t181 216q1 0 60 70q15 19 39.5 24.5t49.5 -3.5q24 -10 37.5 -29t12.5 -42zM624 468q-3 -55 -52 -70l-120 -39q-275 -88 -292 -88q-35 2 -54 36 q-12 25 -17 75q-8 76 1 166.5t30 124.5t56 32q13 0 202 -77q70 -29 115 -47l84 -34q23 -9 35.5 -30.5t11.5 -48.5zM1450 171q-7 -54 -91.5 -161t-135.5 -127q-37 -14 -63 7q-14 10 -184 287l-47 77q-14 21 -11.5 46t19.5 46q35 43 83 26q1 -1 119 -40q203 -66 242 -79.5 t47 -20.5q28 -22 22 -61zM778 803q5 -102 -54 -122q-58 -17 -114 71l-378 598q-8 35 19 62q41 43 207.5 89.5t224.5 31.5q40 -10 49 -45q3 -18 22 -305.5t24 -379.5zM1440 695q3 -39 -26 -59q-15 -10 -329 -86q-67 -15 -91 -23l1 2q-23 -6 -46 4t-37 32q-30 47 0 87 q1 1 75 102q125 171 150 204t34 39q28 19 65 2q48 -23 123 -133.5t81 -167.5v-3z" />
+<glyph unicode="&#xf1ea;" horiz-adv-x="2048" d="M1024 1024h-384v-384h384v384zM1152 384v-128h-640v128h640zM1152 1152v-640h-640v640h640zM1792 384v-128h-512v128h512zM1792 640v-128h-512v128h512zM1792 896v-128h-512v128h512zM1792 1152v-128h-512v128h512zM256 192v960h-128v-960q0 -26 19 -45t45 -19t45 19 t19 45zM1920 192v1088h-1536v-1088q0 -33 -11 -64h1483q26 0 45 19t19 45zM2048 1408v-1216q0 -80 -56 -136t-136 -56h-1664q-80 0 -136 56t-56 136v1088h256v128h1792z" />
+<glyph unicode="&#xf1eb;" horiz-adv-x="2048" d="M1024 13q-20 0 -93 73.5t-73 93.5q0 32 62.5 54t103.5 22t103.5 -22t62.5 -54q0 -20 -73 -93.5t-93 -73.5zM1294 284q-2 0 -40 25t-101.5 50t-128.5 25t-128.5 -25t-101 -50t-40.5 -25q-18 0 -93.5 75t-75.5 93q0 13 10 23q78 77 196 121t233 44t233 -44t196 -121 q10 -10 10 -23q0 -18 -75.5 -93t-93.5 -75zM1567 556q-11 0 -23 8q-136 105 -252 154.5t-268 49.5q-85 0 -170.5 -22t-149 -53t-113.5 -62t-79 -53t-31 -22q-17 0 -92 75t-75 93q0 12 10 22q132 132 320 205t380 73t380 -73t320 -205q10 -10 10 -22q0 -18 -75 -93t-92 -75z M1838 827q-11 0 -22 9q-179 157 -371.5 236.5t-420.5 79.5t-420.5 -79.5t-371.5 -236.5q-11 -9 -22 -9q-17 0 -92.5 75t-75.5 93q0 13 10 23q187 186 445 288t527 102t527 -102t445 -288q10 -10 10 -23q0 -18 -75.5 -93t-92.5 -75z" />
+<glyph unicode="&#xf1ec;" horiz-adv-x="1792" d="M384 0q0 53 -37.5 90.5t-90.5 37.5t-90.5 -37.5t-37.5 -90.5t37.5 -90.5t90.5 -37.5t90.5 37.5t37.5 90.5zM768 0q0 53 -37.5 90.5t-90.5 37.5t-90.5 -37.5t-37.5 -90.5t37.5 -90.5t90.5 -37.5t90.5 37.5t37.5 90.5zM384 384q0 53 -37.5 90.5t-90.5 37.5t-90.5 -37.5 t-37.5 -90.5t37.5 -90.5t90.5 -37.5t90.5 37.5t37.5 90.5zM1152 0q0 53 -37.5 90.5t-90.5 37.5t-90.5 -37.5t-37.5 -90.5t37.5 -90.5t90.5 -37.5t90.5 37.5t37.5 90.5zM768 384q0 53 -37.5 90.5t-90.5 37.5t-90.5 -37.5t-37.5 -90.5t37.5 -90.5t90.5 -37.5t90.5 37.5 t37.5 90.5zM384 768q0 53 -37.5 90.5t-90.5 37.5t-90.5 -37.5t-37.5 -90.5t37.5 -90.5t90.5 -37.5t90.5 37.5t37.5 90.5zM1152 384q0 53 -37.5 90.5t-90.5 37.5t-90.5 -37.5t-37.5 -90.5t37.5 -90.5t90.5 -37.5t90.5 37.5t37.5 90.5zM768 768q0 53 -37.5 90.5t-90.5 37.5 t-90.5 -37.5t-37.5 -90.5t37.5 -90.5t90.5 -37.5t90.5 37.5t37.5 90.5zM1536 0v384q0 52 -38 90t-90 38t-90 -38t-38 -90v-384q0 -52 38 -90t90 -38t90 38t38 90zM1152 768q0 53 -37.5 90.5t-90.5 37.5t-90.5 -37.5t-37.5 -90.5t37.5 -90.5t90.5 -37.5t90.5 37.5t37.5 90.5z M1536 1088v256q0 26 -19 45t-45 19h-1280q-26 0 -45 -19t-19 -45v-256q0 -26 19 -45t45 -19h1280q26 0 45 19t19 45zM1536 768q0 53 -37.5 90.5t-90.5 37.5t-90.5 -37.5t-37.5 -90.5t37.5 -90.5t90.5 -37.5t90.5 37.5t37.5 90.5zM1664 1408v-1536q0 -52 -38 -90t-90 -38 h-1408q-52 0 -90 38t-38 90v1536q0 52 38 90t90 38h1408q52 0 90 -38t38 -90z" />
+<glyph unicode="&#xf1ed;" horiz-adv-x="1792" d="M1112 1090q0 159 -237 159h-70q-32 0 -59.5 -21.5t-34.5 -52.5l-63 -276q-2 -5 -2 -16q0 -24 17 -39.5t41 -15.5h53q69 0 128.5 13t112.5 41t83.5 81.5t30.5 126.5zM1716 938q0 -265 -220 -428q-219 -161 -612 -161h-61q-32 0 -59 -21.5t-34 -52.5l-73 -316 q-8 -36 -40.5 -61.5t-69.5 -25.5h-213q-31 0 -53 20t-22 51q0 10 13 65h151q34 0 64 23.5t38 56.5l73 316q8 33 37.5 57t63.5 24h61q390 0 607 160t217 421q0 129 -51 207q183 -92 183 -335zM1533 1123q0 -264 -221 -428q-218 -161 -612 -161h-60q-32 0 -59.5 -22t-34.5 -53 l-73 -315q-8 -36 -40 -61.5t-69 -25.5h-214q-31 0 -52.5 19.5t-21.5 51.5q0 8 2 20l300 1301q8 36 40.5 61.5t69.5 25.5h444q68 0 125 -4t120.5 -15t113.5 -30t96.5 -50.5t77.5 -74t49.5 -103.5t18.5 -136z" />
+<glyph unicode="&#xf1ee;" horiz-adv-x="1792" d="M602 949q19 -61 31 -123.5t17 -141.5t-14 -159t-62 -145q-21 81 -67 157t-95.5 127t-99 90.5t-78.5 57.5t-33 19q-62 34 -81.5 100t14.5 128t101 81.5t129 -14.5q138 -83 238 -177zM927 1236q11 -25 20.5 -46t36.5 -100.5t42.5 -150.5t25.5 -179.5t0 -205.5t-47.5 -209.5 t-105.5 -208.5q-51 -72 -138 -72q-54 0 -98 31q-57 40 -69 109t28 127q60 85 81 195t13 199.5t-32 180.5t-39 128t-22 52q-31 63 -8.5 129.5t85.5 97.5q34 17 75 17q47 0 88.5 -25t63.5 -69zM1248 567q-17 -160 -72 -311q-17 131 -63 246q25 174 -5 361q-27 178 -94 342 q114 -90 212 -211q9 -37 15 -80q26 -179 7 -347zM1520 1440q9 -17 23.5 -49.5t43.5 -117.5t50.5 -178t34 -227.5t5 -269t-47 -300t-112.5 -323.5q-22 -48 -66 -75.5t-95 -27.5q-39 0 -74 16q-67 31 -92.5 100t4.5 136q58 126 90 257.5t37.5 239.5t-3.5 213.5t-26.5 180.5 t-38.5 138.5t-32.5 90t-15.5 32.5q-34 65 -11.5 135.5t87.5 104.5q37 20 81 20q49 0 91.5 -25.5t66.5 -70.5z" />
+<glyph unicode="&#xf1f0;" horiz-adv-x="2304" d="M1975 546h-138q14 37 66 179l3 9q4 10 10 26t9 26l12 -55zM531 611l-58 295q-11 54 -75 54h-268l-2 -13q311 -79 403 -336zM710 960l-162 -438l-17 89q-26 70 -85 129.5t-131 88.5l135 -510h175l261 641h-176zM849 318h166l104 642h-166zM1617 944q-69 27 -149 27 q-123 0 -201 -59t-79 -153q-1 -102 145 -174q48 -23 67 -41t19 -39q0 -30 -30 -46t-69 -16q-86 0 -156 33l-22 11l-23 -144q74 -34 185 -34q130 -1 208.5 59t80.5 160q0 106 -140 174q-49 25 -71 42t-22 38q0 22 24.5 38.5t70.5 16.5q70 1 124 -24l15 -8zM2042 960h-128 q-65 0 -87 -54l-246 -588h174l35 96h212q5 -22 20 -96h154zM2304 1280v-1280q0 -52 -38 -90t-90 -38h-2048q-52 0 -90 38t-38 90v1280q0 52 38 90t90 38h2048q52 0 90 -38t38 -90z" />
+<glyph unicode="&#xf1f1;" horiz-adv-x="2304" d="M671 603h-13q-47 0 -47 -32q0 -22 20 -22q17 0 28 15t12 39zM1066 639h62v3q1 4 0.5 6.5t-1 7t-2 8t-4.5 6.5t-7.5 5t-11.5 2q-28 0 -36 -38zM1606 603h-12q-48 0 -48 -32q0 -22 20 -22q17 0 28 15t12 39zM1925 629q0 41 -30 41q-19 0 -31 -20t-12 -51q0 -42 28 -42 q20 0 32.5 20t12.5 52zM480 770h87l-44 -262h-56l32 201l-71 -201h-39l-4 200l-34 -200h-53l44 262h81l2 -163zM733 663q0 -6 -4 -42q-16 -101 -17 -113h-47l1 22q-20 -26 -58 -26q-23 0 -37.5 16t-14.5 42q0 39 26 60.5t73 21.5q14 0 23 -1q0 3 0.5 5.5t1 4.5t0.5 3 q0 20 -36 20q-29 0 -59 -10q0 4 7 48q38 11 67 11q74 0 74 -62zM889 721l-8 -49q-22 3 -41 3q-27 0 -27 -17q0 -8 4.5 -12t21.5 -11q40 -19 40 -60q0 -72 -87 -71q-34 0 -58 6q0 2 7 49q29 -8 51 -8q32 0 32 19q0 7 -4.5 11.5t-21.5 12.5q-43 20 -43 59q0 72 84 72 q30 0 50 -4zM977 721h28l-7 -52h-29q-2 -17 -6.5 -40.5t-7 -38.5t-2.5 -18q0 -16 19 -16q8 0 16 2l-8 -47q-21 -7 -40 -7q-43 0 -45 47q0 12 8 56q3 20 25 146h55zM1180 648q0 -23 -7 -52h-111q-3 -22 10 -33t38 -11q30 0 58 14l-9 -54q-30 -8 -57 -8q-95 0 -95 95 q0 55 27.5 90.5t69.5 35.5q35 0 55.5 -21t20.5 -56zM1319 722q-13 -23 -22 -62q-22 2 -31 -24t-25 -128h-56l3 14q22 130 29 199h51l-3 -33q14 21 25.5 29.5t28.5 4.5zM1506 763l-9 -57q-28 14 -50 14q-31 0 -51 -27.5t-20 -70.5q0 -30 13.5 -47t38.5 -17q21 0 48 13 l-10 -59q-28 -8 -50 -8q-45 0 -71.5 30.5t-26.5 82.5q0 70 35.5 114.5t91.5 44.5q26 0 61 -13zM1668 663q0 -18 -4 -42q-13 -79 -17 -113h-46l1 22q-20 -26 -59 -26q-23 0 -37 16t-14 42q0 39 25.5 60.5t72.5 21.5q15 0 23 -1q2 7 2 13q0 20 -36 20q-29 0 -59 -10q0 4 8 48 q38 11 67 11q73 0 73 -62zM1809 722q-14 -24 -21 -62q-23 2 -31.5 -23t-25.5 -129h-56l3 14q19 104 29 199h52q0 -11 -4 -33q15 21 26.5 29.5t27.5 4.5zM1950 770h56l-43 -262h-53l3 19q-23 -23 -52 -23q-31 0 -49.5 24t-18.5 64q0 53 27.5 92t64.5 39q31 0 53 -29z M2061 640q0 148 -72.5 273t-198 198t-273.5 73q-181 0 -328 -110q127 -116 171 -284h-50q-44 150 -158 253q-114 -103 -158 -253h-50q44 168 171 284q-147 110 -328 110q-148 0 -273.5 -73t-198 -198t-72.5 -273t72.5 -273t198 -198t273.5 -73q181 0 328 110 q-120 111 -165 264h50q46 -138 152 -233q106 95 152 233h50q-45 -153 -165 -264q147 -110 328 -110q148 0 273.5 73t198 198t72.5 273zM2304 1280v-1280q0 -52 -38 -90t-90 -38h-2048q-52 0 -90 38t-38 90v1280q0 52 38 90t90 38h2048q52 0 90 -38t38 -90z" />
+<glyph unicode="&#xf1f2;" horiz-adv-x="2304" d="M313 759q0 -51 -36 -84q-29 -26 -89 -26h-17v220h17q61 0 89 -27q36 -31 36 -83zM2089 824q0 -52 -64 -52h-19v101h20q63 0 63 -49zM380 759q0 74 -50 120.5t-129 46.5h-95v-333h95q74 0 119 38q60 51 60 128zM410 593h65v333h-65v-333zM730 694q0 40 -20.5 62t-75.5 42 q-29 10 -39.5 19t-10.5 23q0 16 13.5 26.5t34.5 10.5q29 0 53 -27l34 44q-41 37 -98 37q-44 0 -74 -27.5t-30 -67.5q0 -35 18 -55.5t64 -36.5q37 -13 45 -19q19 -12 19 -34q0 -20 -14 -33.5t-36 -13.5q-48 0 -71 44l-42 -40q44 -64 115 -64q51 0 83 30.5t32 79.5zM1008 604 v77q-37 -37 -78 -37q-49 0 -80.5 32.5t-31.5 82.5q0 48 31.5 81.5t77.5 33.5q43 0 81 -38v77q-40 20 -80 20q-74 0 -125.5 -50.5t-51.5 -123.5t51 -123.5t125 -50.5q42 0 81 19zM2240 0v527q-65 -40 -144.5 -84t-237.5 -117t-329.5 -137.5t-417.5 -134.5t-504 -118h1569 q26 0 45 19t19 45zM1389 757q0 75 -53 128t-128 53t-128 -53t-53 -128t53 -128t128 -53t128 53t53 128zM1541 584l144 342h-71l-90 -224l-89 224h-71l142 -342h35zM1714 593h184v56h-119v90h115v56h-115v74h119v57h-184v-333zM2105 593h80l-105 140q76 16 76 94q0 47 -31 73 t-87 26h-97v-333h65v133h9zM2304 1274v-1268q0 -56 -38.5 -95t-93.5 -39h-2040q-55 0 -93.5 39t-38.5 95v1268q0 56 38.5 95t93.5 39h2040q55 0 93.5 -39t38.5 -95z" />
+<glyph unicode="&#xf1f3;" horiz-adv-x="2304" d="M119 854h89l-45 108zM740 328l74 79l-70 79h-163v-49h142v-55h-142v-54h159zM898 406l99 -110v217zM1186 453q0 33 -40 33h-84v-69h83q41 0 41 36zM1475 457q0 29 -42 29h-82v-61h81q43 0 43 32zM1197 923q0 29 -42 29h-82v-60h81q43 0 43 31zM1656 854h89l-44 108z M699 1009v-271h-66v212l-94 -212h-57l-94 212v-212h-132l-25 60h-135l-25 -60h-70l116 271h96l110 -257v257h106l85 -184l77 184h108zM1255 453q0 -20 -5.5 -35t-14 -25t-22.5 -16.5t-26 -10t-31.5 -4.5t-31.5 -1t-32.5 0.5t-29.5 0.5v-91h-126l-80 90l-83 -90h-256v271h260 l80 -89l82 89h207q109 0 109 -89zM964 794v-56h-217v271h217v-57h-152v-49h148v-55h-148v-54h152zM2304 235v-229q0 -55 -38.5 -94.5t-93.5 -39.5h-2040q-55 0 -93.5 39.5t-38.5 94.5v678h111l25 61h55l25 -61h218v46l19 -46h113l20 47v-47h541v99l10 1q10 0 10 -14v-86h279 v23q23 -12 55 -18t52.5 -6.5t63 0.5t51.5 1l25 61h56l25 -61h227v58l34 -58h182v378h-180v-44l-25 44h-185v-44l-23 44h-249q-69 0 -109 -22v22h-172v-22q-24 22 -73 22h-628l-43 -97l-43 97h-198v-44l-22 44h-169l-78 -179v391q0 55 38.5 94.5t93.5 39.5h2040 q55 0 93.5 -39.5t38.5 -94.5v-678h-120q-51 0 -81 -22v22h-177q-55 0 -78 -22v22h-316v-22q-31 22 -87 22h-209v-22q-23 22 -91 22h-234l-54 -58l-50 58h-349v-378h343l55 59l52 -59h211v89h21q59 0 90 13v-102h174v99h8q8 0 10 -2t2 -10v-87h529q57 0 88 24v-24h168 q60 0 95 17zM1546 469q0 -23 -12 -43t-34 -29q25 -9 34 -26t9 -46v-54h-65v45q0 33 -12 43.5t-46 10.5h-69v-99h-65v271h154q48 0 77 -15t29 -58zM1269 936q0 -24 -12.5 -44t-33.5 -29q26 -9 34.5 -25.5t8.5 -46.5v-53h-65q0 9 0.5 26.5t0 25t-3 18.5t-8.5 16t-17.5 8.5 t-29.5 3.5h-70v-98h-64v271l153 -1q49 0 78 -14.5t29 -57.5zM1798 327v-56h-216v271h216v-56h-151v-49h148v-55h-148v-54zM1372 1009v-271h-66v271h66zM2065 357q0 -86 -102 -86h-126v58h126q34 0 34 25q0 16 -17 21t-41.5 5t-49.5 3.5t-42 22.5t-17 55q0 39 26 60t66 21 h130v-57h-119q-36 0 -36 -25q0 -16 17.5 -20.5t42 -4t49 -2.5t42 -21.5t17.5 -54.5zM2304 407v-101q-24 -35 -88 -35h-125v58h125q33 0 33 25q0 13 -12.5 19t-31 5.5t-40 2t-40 8t-31 24t-12.5 48.5q0 39 26.5 60t66.5 21h129v-57h-118q-36 0 -36 -25q0 -20 29 -22t68.5 -5 t56.5 -26zM2139 1008v-270h-92l-122 203v-203h-132l-26 60h-134l-25 -60h-75q-129 0 -129 133q0 138 133 138h63v-59q-7 0 -28 1t-28.5 0.5t-23 -2t-21.5 -6.5t-14.5 -13.5t-11.5 -23t-3 -33.5q0 -38 13.5 -58t49.5 -20h29l92 213h97l109 -256v256h99l114 -188v188h66z" />
+<glyph unicode="&#xf1f4;" horiz-adv-x="2304" d="M322 689h-15q-19 0 -19 18q0 28 19 85q5 15 15 19.5t28 4.5q77 0 77 -49q0 -41 -30.5 -59.5t-74.5 -18.5zM664 528q-47 0 -47 29q0 62 123 62l3 -3q-5 -88 -79 -88zM1438 687h-15q-19 0 -19 19q0 28 19 85q5 15 14.5 19t28.5 4q77 0 77 -49q0 -41 -30.5 -59.5 t-74.5 -18.5zM1780 527q-47 0 -47 30q0 62 123 62l3 -3q-5 -89 -79 -89zM373 894h-128q-8 0 -14.5 -4t-8.5 -7.5t-7 -12.5q-3 -7 -45 -190t-42 -192q0 -7 5.5 -12.5t13.5 -5.5h62q25 0 32.5 34.5l15 69t32.5 34.5q47 0 87.5 7.5t80.5 24.5t63.5 52.5t23.5 84.5 q0 36 -14.5 61t-41 36.5t-53.5 15.5t-62 4zM719 798q-38 0 -74 -6q-2 0 -8.5 -1t-9 -1.5l-7.5 -1.5t-7.5 -2t-6.5 -3t-6.5 -4t-5 -5t-4.5 -7t-4 -9q-9 -29 -9 -39t9 -10q5 0 21.5 5t19.5 6q30 8 58 8q74 0 74 -36q0 -11 -10 -14q-8 -2 -18 -3t-21.5 -1.5t-17.5 -1.5 q-38 -4 -64.5 -10t-56.5 -19.5t-45.5 -39t-15.5 -62.5q0 -38 26 -59.5t64 -21.5q24 0 45.5 6.5t33 13t38.5 23.5q-3 -7 -3 -15t5.5 -13.5t12.5 -5.5h56q1 1 7 3.5t7.5 3.5t5 3.5t5 5.5t2.5 8l45 194q4 13 4 30q0 81 -145 81zM1247 793h-74q-22 0 -39 -23q-5 -7 -29.5 -51 t-46.5 -81.5t-26 -38.5l-5 4q0 77 -27 166q-1 5 -3.5 8.5t-6 6.5t-6.5 5t-8.5 3t-8.5 1.5t-9.5 1t-9 0.5h-10h-8.5q-38 0 -38 -21l1 -5q5 -53 25 -151t25 -143q2 -16 2 -24q0 -19 -30.5 -61.5t-30.5 -58.5q0 -13 40 -13q61 0 76 25l245 415q10 20 10 26q0 9 -8 9zM1489 892 h-129q-18 0 -29 -23q-6 -13 -46.5 -191.5t-40.5 -190.5q0 -20 43 -20h7.5h9h9t9.5 1t8.5 2t8.5 3t6.5 4.5t5.5 6t3 8.5l21 91q2 10 10.5 17t19.5 7q47 0 87.5 7t80.5 24.5t63.5 52.5t23.5 84q0 36 -14.5 61t-41 36.5t-53.5 15.5t-62 4zM1835 798q-26 0 -74 -6 q-38 -6 -48 -16q-7 -8 -11 -19q-8 -24 -8 -39q0 -10 8 -10q1 0 41 12q30 8 58 8q74 0 74 -36q0 -12 -10 -14q-4 -1 -57 -7q-38 -4 -64.5 -10t-56.5 -19.5t-45.5 -39t-15.5 -62.5t26 -58.5t64 -21.5q24 0 45 6t34 13t38 24q-3 -15 -3 -16q0 -5 2 -8.5t6.5 -5.5t8 -3.5 t10.5 -2t9.5 -0.5h9.5h8q42 0 48 25l45 194q3 15 3 31q0 81 -145 81zM2157 889h-55q-25 0 -33 -40q-10 -44 -36.5 -167t-42.5 -190v-5q0 -16 16 -18h1h57q10 0 18.5 6.5t10.5 16.5l83 374h-1l1 5q0 7 -5.5 12.5t-13.5 5.5zM2304 1280v-1280q0 -52 -38 -90t-90 -38h-2048 q-52 0 -90 38t-38 90v1280q0 52 38 90t90 38h2048q52 0 90 -38t38 -90z" />
+<glyph unicode="&#xf1f5;" horiz-adv-x="2304" d="M1597 633q0 -69 -21 -106q-19 -35 -52 -35q-23 0 -41 9v224q29 30 57 30q57 0 57 -122zM2035 669h-110q6 98 56 98q51 0 54 -98zM476 534q0 59 -33 91.5t-101 57.5q-36 13 -52 24t-16 25q0 26 38 26q58 0 124 -33l18 112q-67 32 -149 32q-77 0 -123 -38q-48 -39 -48 -109 q0 -58 32.5 -90.5t99.5 -56.5q39 -14 54.5 -25.5t15.5 -27.5q0 -31 -48 -31q-29 0 -70 12.5t-72 30.5l-18 -113q72 -41 168 -41q81 0 129 37q51 41 51 117zM771 749l19 111h-96v135l-129 -21l-18 -114l-46 -8l-17 -103h62v-219q0 -84 44 -120q38 -30 111 -30q32 0 79 11v118 q-32 -7 -44 -7q-42 0 -42 50v197h77zM1087 724v139q-15 3 -28 3q-32 0 -55.5 -16t-33.5 -46l-10 56h-131v-471h150v306q26 31 82 31q16 0 26 -2zM1124 389h150v471h-150v-471zM1746 638q0 122 -45 179q-40 52 -111 52q-64 0 -117 -56l-8 47h-132v-645l150 25v151 q36 -11 68 -11q83 0 134 56q61 65 61 202zM1278 986q0 33 -23 56t-56 23t-56 -23t-23 -56t23 -56.5t56 -23.5t56 23.5t23 56.5zM2176 629q0 113 -48 176q-50 64 -144 64q-96 0 -151.5 -66t-55.5 -180q0 -128 63 -188q55 -55 161 -55q101 0 160 40l-16 103q-57 -31 -128 -31 q-43 0 -63 19q-23 19 -28 66h248q2 14 2 52zM2304 1280v-1280q0 -52 -38 -90t-90 -38h-2048q-52 0 -90 38t-38 90v1280q0 52 38 90t90 38h2048q52 0 90 -38t38 -90z" />
+<glyph unicode="&#xf1f6;" horiz-adv-x="2048" d="M1558 684q61 -356 298 -556q0 -52 -38 -90t-90 -38h-448q0 -106 -75 -181t-181 -75t-180.5 74.5t-75.5 180.5zM1024 -176q16 0 16 16t-16 16q-59 0 -101.5 42.5t-42.5 101.5q0 16 -16 16t-16 -16q0 -73 51.5 -124.5t124.5 -51.5zM2026 1424q8 -10 7.5 -23.5t-10.5 -22.5 l-1872 -1622q-10 -8 -23.5 -7t-21.5 11l-84 96q-8 10 -7.5 23.5t10.5 21.5l186 161q-19 32 -19 66q50 42 91 88t85 119.5t74.5 158.5t50 206t19.5 260q0 152 117 282.5t307 158.5q-8 19 -8 39q0 40 28 68t68 28t68 -28t28 -68q0 -20 -8 -39q124 -18 219 -82.5t148 -157.5 l418 363q10 8 23.5 7t21.5 -11z" />
+<glyph unicode="&#xf1f7;" horiz-adv-x="2048" d="M1040 -160q0 16 -16 16q-59 0 -101.5 42.5t-42.5 101.5q0 16 -16 16t-16 -16q0 -73 51.5 -124.5t124.5 -51.5q16 0 16 16zM503 315l877 760q-42 88 -132.5 146.5t-223.5 58.5q-93 0 -169.5 -31.5t-121.5 -80.5t-69 -103t-24 -105q0 -384 -137 -645zM1856 128 q0 -52 -38 -90t-90 -38h-448q0 -106 -75 -181t-181 -75t-180.5 74.5t-75.5 180.5l149 129h757q-166 187 -227 459l111 97q61 -356 298 -556zM1942 1520l84 -96q8 -10 7.5 -23.5t-10.5 -22.5l-1872 -1622q-10 -8 -23.5 -7t-21.5 11l-84 96q-8 10 -7.5 23.5t10.5 21.5l186 161 q-19 32 -19 66q50 42 91 88t85 119.5t74.5 158.5t50 206t19.5 260q0 152 117 282.5t307 158.5q-8 19 -8 39q0 40 28 68t68 28t68 -28t28 -68q0 -20 -8 -39q124 -18 219 -82.5t148 -157.5l418 363q10 8 23.5 7t21.5 -11z" />
+<glyph unicode="&#xf1f8;" horiz-adv-x="1408" d="M512 160v704q0 14 -9 23t-23 9h-64q-14 0 -23 -9t-9 -23v-704q0 -14 9 -23t23 -9h64q14 0 23 9t9 23zM768 160v704q0 14 -9 23t-23 9h-64q-14 0 -23 -9t-9 -23v-704q0 -14 9 -23t23 -9h64q14 0 23 9t9 23zM1024 160v704q0 14 -9 23t-23 9h-64q-14 0 -23 -9t-9 -23v-704 q0 -14 9 -23t23 -9h64q14 0 23 9t9 23zM480 1152h448l-48 117q-7 9 -17 11h-317q-10 -2 -17 -11zM1408 1120v-64q0 -14 -9 -23t-23 -9h-96v-948q0 -83 -47 -143.5t-113 -60.5h-832q-66 0 -113 58.5t-47 141.5v952h-96q-14 0 -23 9t-9 23v64q0 14 9 23t23 9h309l70 167 q15 37 54 63t79 26h320q40 0 79 -26t54 -63l70 -167h309q14 0 23 -9t9 -23z" />
+<glyph unicode="&#xf1f9;" d="M1150 462v-109q0 -50 -36.5 -89t-94 -60.5t-118 -32.5t-117.5 -11q-205 0 -342.5 139t-137.5 346q0 203 136 339t339 136q34 0 75.5 -4.5t93 -18t92.5 -34t69 -56.5t28 -81v-109q0 -16 -16 -16h-118q-16 0 -16 16v70q0 43 -65.5 67.5t-137.5 24.5q-140 0 -228.5 -91.5 t-88.5 -237.5q0 -151 91.5 -249.5t233.5 -98.5q68 0 138 24t70 66v70q0 7 4.5 11.5t10.5 4.5h119q6 0 11 -4.5t5 -11.5zM768 1280q-130 0 -248.5 -51t-204 -136.5t-136.5 -204t-51 -248.5t51 -248.5t136.5 -204t204 -136.5t248.5 -51t248.5 51t204 136.5t136.5 204t51 248.5 t-51 248.5t-136.5 204t-204 136.5t-248.5 51zM1536 640q0 -209 -103 -385.5t-279.5 -279.5t-385.5 -103t-385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103t385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf1fa;" d="M972 761q0 108 -53.5 169t-147.5 61q-63 0 -124 -30.5t-110 -84.5t-79.5 -137t-30.5 -180q0 -112 53.5 -173t150.5 -61q96 0 176 66.5t122.5 166t42.5 203.5zM1536 640q0 -111 -37 -197t-98.5 -135t-131.5 -74.5t-145 -27.5q-6 0 -15.5 -0.5t-16.5 -0.5q-95 0 -142 53 q-28 33 -33 83q-52 -66 -131.5 -110t-173.5 -44q-161 0 -249.5 95.5t-88.5 269.5q0 157 66 290t179 210.5t246 77.5q87 0 155 -35.5t106 -99.5l2 19l11 56q1 6 5.5 12t9.5 6h118q5 0 13 -11q5 -5 3 -16l-120 -614q-5 -24 -5 -48q0 -39 12.5 -52t44.5 -13q28 1 57 5.5t73 24 t77 50t57 89.5t24 137q0 292 -174 466t-466 174q-130 0 -248.5 -51t-204 -136.5t-136.5 -204t-51 -248.5t51 -248.5t136.5 -204t204 -136.5t248.5 -51q228 0 405 144q11 9 24 8t21 -12l41 -49q8 -12 7 -24q-2 -13 -12 -22q-102 -83 -227.5 -128t-258.5 -45q-156 0 -298 61 t-245 164t-164 245t-61 298t61 298t164 245t245 164t298 61q344 0 556 -212t212 -556z" />
+<glyph unicode="&#xf1fb;" horiz-adv-x="1792" d="M1698 1442q94 -94 94 -226.5t-94 -225.5l-225 -223l104 -104q10 -10 10 -23t-10 -23l-210 -210q-10 -10 -23 -10t-23 10l-105 105l-603 -603q-37 -37 -90 -37h-203l-256 -128l-64 64l128 256v203q0 53 37 90l603 603l-105 105q-10 10 -10 23t10 23l210 210q10 10 23 10 t23 -10l104 -104l223 225q93 94 225.5 94t226.5 -94zM512 64l576 576l-192 192l-576 -576v-192h192z" />
+<glyph unicode="&#xf1fc;" horiz-adv-x="1792" d="M1615 1536q70 0 122.5 -46.5t52.5 -116.5q0 -63 -45 -151q-332 -629 -465 -752q-97 -91 -218 -91q-126 0 -216.5 92.5t-90.5 219.5q0 128 92 212l638 579q59 54 130 54zM706 502q39 -76 106.5 -130t150.5 -76l1 -71q4 -213 -129.5 -347t-348.5 -134q-123 0 -218 46.5 t-152.5 127.5t-86.5 183t-29 220q7 -5 41 -30t62 -44.5t59 -36.5t46 -17q41 0 55 37q25 66 57.5 112.5t69.5 76t88 47.5t103 25.5t125 10.5z" />
+<glyph unicode="&#xf1fd;" horiz-adv-x="1792" d="M1792 128v-384h-1792v384q45 0 85 14t59 27.5t47 37.5q30 27 51.5 38t56.5 11t55.5 -11t52.5 -38q29 -25 47 -38t58 -27t86 -14q45 0 85 14.5t58 27t48 37.5q21 19 32.5 27t31 15t43.5 7q35 0 56.5 -11t51.5 -38q28 -24 47 -37.5t59 -27.5t85 -14t85 14t59 27.5t47 37.5 q30 27 51.5 38t56.5 11q34 0 55.5 -11t51.5 -38q28 -24 47 -37.5t59 -27.5t85 -14zM1792 448v-192q-35 0 -55.5 11t-52.5 38q-29 25 -47 38t-58 27t-85 14q-46 0 -86 -14t-58 -27t-47 -38q-22 -19 -33 -27t-31 -15t-44 -7q-35 0 -56.5 11t-51.5 38q-29 25 -47 38t-58 27 t-86 14q-45 0 -85 -14.5t-58 -27t-48 -37.5q-21 -19 -32.5 -27t-31 -15t-43.5 -7q-35 0 -56.5 11t-51.5 38q-28 24 -47 37.5t-59 27.5t-85 14q-46 0 -86 -14t-58 -27t-47 -38q-30 -27 -51.5 -38t-56.5 -11v192q0 80 56 136t136 56h64v448h256v-448h256v448h256v-448h256v448 h256v-448h64q80 0 136 -56t56 -136zM512 1312q0 -77 -36 -118.5t-92 -41.5q-53 0 -90.5 37.5t-37.5 90.5q0 29 9.5 51t23.5 34t31 28t31 31.5t23.5 44.5t9.5 67q38 0 83 -74t45 -150zM1024 1312q0 -77 -36 -118.5t-92 -41.5q-53 0 -90.5 37.5t-37.5 90.5q0 29 9.5 51 t23.5 34t31 28t31 31.5t23.5 44.5t9.5 67q38 0 83 -74t45 -150zM1536 1312q0 -77 -36 -118.5t-92 -41.5q-53 0 -90.5 37.5t-37.5 90.5q0 29 9.5 51t23.5 34t31 28t31 31.5t23.5 44.5t9.5 67q38 0 83 -74t45 -150z" />
+<glyph unicode="&#xf1fe;" horiz-adv-x="2048" d="M2048 0v-128h-2048v1536h128v-1408h1920zM1664 1024l256 -896h-1664v576l448 576l576 -576z" />
+<glyph unicode="&#xf200;" horiz-adv-x="1792" d="M768 646l546 -546q-106 -108 -247.5 -168t-298.5 -60q-209 0 -385.5 103t-279.5 279.5t-103 385.5t103 385.5t279.5 279.5t385.5 103v-762zM955 640h773q0 -157 -60 -298.5t-168 -247.5zM1664 768h-768v768q209 0 385.5 -103t279.5 -279.5t103 -385.5z" />
+<glyph unicode="&#xf201;" horiz-adv-x="2048" d="M2048 0v-128h-2048v1536h128v-1408h1920zM1920 1248v-435q0 -21 -19.5 -29.5t-35.5 7.5l-121 121l-633 -633q-10 -10 -23 -10t-23 10l-233 233l-416 -416l-192 192l585 585q10 10 23 10t23 -10l233 -233l464 464l-121 121q-16 16 -7.5 35.5t29.5 19.5h435q14 0 23 -9 t9 -23z" />
+<glyph unicode="&#xf202;" horiz-adv-x="1792" d="M1292 832q0 -6 10 -41q10 -29 25 -49.5t41 -34t44 -20t55 -16.5q325 -91 325 -332q0 -146 -105.5 -242.5t-254.5 -96.5q-59 0 -111.5 18.5t-91.5 45.5t-77 74.5t-63 87.5t-53.5 103.5t-43.5 103t-39.5 106.5t-35.5 95q-32 81 -61.5 133.5t-73.5 96.5t-104 64t-142 20 q-96 0 -183 -55.5t-138 -144.5t-51 -185q0 -160 106.5 -279.5t263.5 -119.5q177 0 258 95q56 63 83 116l84 -152q-15 -34 -44 -70l1 -1q-131 -152 -388 -152q-147 0 -269.5 79t-190.5 207.5t-68 274.5q0 105 43.5 206t116 176.5t172 121.5t204.5 46q87 0 159 -19t123.5 -50 t95 -80t72.5 -99t58.5 -117t50.5 -124.5t50 -130.5t55 -127q96 -200 233 -200q81 0 138.5 48.5t57.5 128.5q0 42 -19 72t-50.5 46t-72.5 31.5t-84.5 27t-87.5 34t-81 52t-65 82t-39 122.5q-3 16 -3 33q0 110 87.5 192t198.5 78q78 -3 120.5 -14.5t90.5 -53.5h-1 q12 -11 23 -24.5t26 -36t19 -27.5l-129 -99q-26 49 -54 70v1q-23 21 -97 21q-49 0 -84 -33t-35 -83z" />
+<glyph unicode="&#xf203;" d="M1432 484q0 173 -234 239q-35 10 -53 16.5t-38 25t-29 46.5q0 2 -2 8.5t-3 12t-1 7.5q0 36 24.5 59.5t60.5 23.5q54 0 71 -15h-1q20 -15 39 -51l93 71q-39 54 -49 64q-33 29 -67.5 39t-85.5 10q-80 0 -142 -57.5t-62 -137.5q0 -7 2 -23q16 -96 64.5 -140t148.5 -73 q29 -8 49 -15.5t45 -21.5t38.5 -34.5t13.5 -46.5v-5q1 -58 -40.5 -93t-100.5 -35q-97 0 -167 144q-23 47 -51.5 121.5t-48 125.5t-54 110.5t-74 95.5t-103.5 60.5t-147 24.5q-101 0 -192 -56t-144 -148t-50 -192v-1q4 -108 50.5 -199t133.5 -147.5t196 -56.5q186 0 279 110 q20 27 31 51l-60 109q-42 -80 -99 -116t-146 -36q-115 0 -191 87t-76 204q0 105 82 189t186 84q112 0 170 -53.5t104 -172.5q8 -21 25.5 -68.5t28.5 -76.5t31.5 -74.5t38.5 -74t45.5 -62.5t55.5 -53.5t66 -33t80 -13.5q107 0 183 69.5t76 174.5zM1536 1120v-960 q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z" />
+<glyph unicode="&#xf204;" horiz-adv-x="2048" d="M1152 640q0 104 -40.5 198.5t-109.5 163.5t-163.5 109.5t-198.5 40.5t-198.5 -40.5t-163.5 -109.5t-109.5 -163.5t-40.5 -198.5t40.5 -198.5t109.5 -163.5t163.5 -109.5t198.5 -40.5t198.5 40.5t163.5 109.5t109.5 163.5t40.5 198.5zM1920 640q0 104 -40.5 198.5 t-109.5 163.5t-163.5 109.5t-198.5 40.5h-386q119 -90 188.5 -224t69.5 -288t-69.5 -288t-188.5 -224h386q104 0 198.5 40.5t163.5 109.5t109.5 163.5t40.5 198.5zM2048 640q0 -130 -51 -248.5t-136.5 -204t-204 -136.5t-248.5 -51h-768q-130 0 -248.5 51t-204 136.5 t-136.5 204t-51 248.5t51 248.5t136.5 204t204 136.5t248.5 51h768q130 0 248.5 -51t204 -136.5t136.5 -204t51 -248.5z" />
+<glyph unicode="&#xf205;" horiz-adv-x="2048" d="M0 640q0 130 51 248.5t136.5 204t204 136.5t248.5 51h768q130 0 248.5 -51t204 -136.5t136.5 -204t51 -248.5t-51 -248.5t-136.5 -204t-204 -136.5t-248.5 -51h-768q-130 0 -248.5 51t-204 136.5t-136.5 204t-51 248.5zM1408 128q104 0 198.5 40.5t163.5 109.5 t109.5 163.5t40.5 198.5t-40.5 198.5t-109.5 163.5t-163.5 109.5t-198.5 40.5t-198.5 -40.5t-163.5 -109.5t-109.5 -163.5t-40.5 -198.5t40.5 -198.5t109.5 -163.5t163.5 -109.5t198.5 -40.5z" />
+<glyph unicode="&#xf206;" horiz-adv-x="2304" d="M762 384h-314q-40 0 -57.5 35t6.5 67l188 251q-65 31 -137 31q-132 0 -226 -94t-94 -226t94 -226t226 -94q115 0 203 72.5t111 183.5zM576 512h186q-18 85 -75 148zM1056 512l288 384h-480l-99 -132q105 -103 126 -252h165zM2176 448q0 132 -94 226t-226 94 q-60 0 -121 -24l174 -260q15 -23 10 -49t-27 -40q-15 -11 -36 -11q-35 0 -53 29l-174 260q-93 -95 -93 -225q0 -132 94 -226t226 -94t226 94t94 226zM2304 448q0 -185 -131.5 -316.5t-316.5 -131.5t-316.5 131.5t-131.5 316.5q0 97 39.5 183.5t109.5 149.5l-65 98l-353 -469 q-18 -26 -51 -26h-197q-23 -164 -149 -274t-294 -110q-185 0 -316.5 131.5t-131.5 316.5t131.5 316.5t316.5 131.5q114 0 215 -55l137 183h-224q-26 0 -45 19t-19 45t19 45t45 19h384v-128h435l-85 128h-222q-26 0 -45 19t-19 45t19 45t45 19h256q33 0 53 -28l267 -400 q91 44 192 44q185 0 316.5 -131.5t131.5 -316.5z" />
+<glyph unicode="&#xf207;" d="M384 320q0 53 -37.5 90.5t-90.5 37.5t-90.5 -37.5t-37.5 -90.5t37.5 -90.5t90.5 -37.5t90.5 37.5t37.5 90.5zM1408 320q0 53 -37.5 90.5t-90.5 37.5t-90.5 -37.5t-37.5 -90.5t37.5 -90.5t90.5 -37.5t90.5 37.5t37.5 90.5zM1362 716l-72 384q-5 23 -22.5 37.5t-40.5 14.5 h-918q-23 0 -40.5 -14.5t-22.5 -37.5l-72 -384q-5 -30 14 -53t49 -23h1062q30 0 49 23t14 53zM1136 1328q0 20 -14 34t-34 14h-640q-20 0 -34 -14t-14 -34t14 -34t34 -14h640q20 0 34 14t14 34zM1536 603v-603h-128v-128q0 -53 -37.5 -90.5t-90.5 -37.5t-90.5 37.5 t-37.5 90.5v128h-768v-128q0 -53 -37.5 -90.5t-90.5 -37.5t-90.5 37.5t-37.5 90.5v128h-128v603q0 112 25 223l103 454q9 78 97.5 137t230 89t312.5 30t312.5 -30t230 -89t97.5 -137l105 -454q23 -102 23 -223z" />
+<glyph unicode="&#xf208;" horiz-adv-x="2048" d="M1463 704q0 -35 -25 -60.5t-61 -25.5h-702q-36 0 -61 25.5t-25 60.5t25 60.5t61 25.5h702q36 0 61 -25.5t25 -60.5zM1677 704q0 86 -23 170h-982q-36 0 -61 25t-25 60q0 36 25 61t61 25h908q-88 143 -235 227t-320 84q-177 0 -327.5 -87.5t-238 -237.5t-87.5 -327 q0 -86 23 -170h982q36 0 61 -25t25 -60q0 -36 -25 -61t-61 -25h-908q88 -143 235.5 -227t320.5 -84q132 0 253 51.5t208 139t139 208t52 253.5zM2048 959q0 -35 -25 -60t-61 -25h-131q17 -85 17 -170q0 -167 -65.5 -319.5t-175.5 -263t-262.5 -176t-319.5 -65.5 q-246 0 -448.5 133t-301.5 350h-189q-36 0 -61 25t-25 61q0 35 25 60t61 25h132q-17 85 -17 170q0 167 65.5 319.5t175.5 263t262.5 176t320.5 65.5q245 0 447.5 -133t301.5 -350h188q36 0 61 -25t25 -61z" />
+<glyph unicode="&#xf209;" horiz-adv-x="1280" d="M953 1158l-114 -328l117 -21q165 451 165 518q0 56 -38 56q-57 0 -130 -225zM654 471l33 -88q37 42 71 67l-33 5.5t-38.5 7t-32.5 8.5zM362 1367q0 -98 159 -521q18 10 49 10q15 0 75 -5l-121 351q-75 220 -123 220q-19 0 -29 -17.5t-10 -37.5zM283 608q0 -36 51.5 -119 t117.5 -153t100 -70q14 0 25.5 13t11.5 27q0 24 -32 102q-13 32 -32 72t-47.5 89t-61.5 81t-62 32q-20 0 -45.5 -27t-25.5 -47zM125 273q0 -41 25 -104q59 -145 183.5 -227t281.5 -82q227 0 382 170q152 169 152 427q0 43 -1 67t-11.5 62t-30.5 56q-56 49 -211.5 75.5 t-270.5 26.5q-37 0 -49 -11q-12 -5 -12 -35q0 -34 21.5 -60t55.5 -40t77.5 -23.5t87.5 -11.5t85 -4t70 0h23q24 0 40 -19q15 -19 19 -55q-28 -28 -96 -54q-61 -22 -93 -46q-64 -46 -108.5 -114t-44.5 -137q0 -31 18.5 -88.5t18.5 -87.5l-3 -12q-4 -12 -4 -14 q-137 10 -146 216q-8 -2 -41 -2q2 -7 2 -21q0 -53 -40.5 -89.5t-94.5 -36.5q-82 0 -166.5 78t-84.5 159q0 34 33 67q52 -64 60 -76q77 -104 133 -104q12 0 26.5 8.5t14.5 20.5q0 34 -87.5 145t-116.5 111q-43 0 -70 -44.5t-27 -90.5zM11 264q0 101 42.5 163t136.5 88 q-28 74 -28 104q0 62 61 123t122 61q29 0 70 -15q-163 462 -163 567q0 80 41 130.5t119 50.5q131 0 325 -581q6 -17 8 -23q6 16 29 79.5t43.5 118.5t54 127.5t64.5 123t70.5 86.5t76.5 36q71 0 112 -49t41 -122q0 -108 -159 -550q61 -15 100.5 -46t58.5 -78t26 -93.5 t7 -110.5q0 -150 -47 -280t-132 -225t-211 -150t-278 -55q-111 0 -223 42q-149 57 -258 191.5t-109 286.5z" />
+<glyph unicode="&#xf20a;" horiz-adv-x="2048" d="M785 528h207q-14 -158 -98.5 -248.5t-214.5 -90.5q-162 0 -254.5 116t-92.5 316q0 194 93 311.5t233 117.5q148 0 232 -87t97 -247h-203q-5 64 -35.5 99t-81.5 35q-57 0 -88.5 -60.5t-31.5 -177.5q0 -48 5 -84t18 -69.5t40 -51.5t66 -18q95 0 109 139zM1497 528h206 q-14 -158 -98 -248.5t-214 -90.5q-162 0 -254.5 116t-92.5 316q0 194 93 311.5t233 117.5q148 0 232 -87t97 -247h-204q-4 64 -35 99t-81 35q-57 0 -88.5 -60.5t-31.5 -177.5q0 -48 5 -84t18 -69.5t39.5 -51.5t65.5 -18q49 0 76.5 38t33.5 101zM1856 647q0 207 -15.5 307 t-60.5 161q-6 8 -13.5 14t-21.5 15t-16 11q-86 63 -697 63q-625 0 -710 -63q-5 -4 -17.5 -11.5t-21 -14t-14.5 -14.5q-45 -60 -60 -159.5t-15 -308.5q0 -208 15 -307.5t60 -160.5q6 -8 15 -15t20.5 -14t17.5 -12q44 -33 239.5 -49t470.5 -16q610 0 697 65q5 4 17 11t20.5 14 t13.5 16q46 60 61 159t15 309zM2048 1408v-1536h-2048v1536h2048z" />
+<glyph unicode="&#xf20b;" d="M992 912v-496q0 -14 -9 -23t-23 -9h-160q-14 0 -23 9t-9 23v496q0 112 -80 192t-192 80h-272v-1152q0 -14 -9 -23t-23 -9h-160q-14 0 -23 9t-9 23v1344q0 14 9 23t23 9h464q135 0 249 -66.5t180.5 -180.5t66.5 -249zM1376 1376v-880q0 -135 -66.5 -249t-180.5 -180.5 t-249 -66.5h-464q-14 0 -23 9t-9 23v960q0 14 9 23t23 9h160q14 0 23 -9t9 -23v-768h272q112 0 192 80t80 192v880q0 14 9 23t23 9h160q14 0 23 -9t9 -23z" />
+<glyph unicode="&#xf20c;" d="M1311 694v-114q0 -24 -13.5 -38t-37.5 -14h-202q-24 0 -38 14t-14 38v114q0 24 14 38t38 14h202q24 0 37.5 -14t13.5 -38zM821 464v250q0 53 -32.5 85.5t-85.5 32.5h-133q-68 0 -96 -52q-28 52 -96 52h-130q-53 0 -85.5 -32.5t-32.5 -85.5v-250q0 -22 21 -22h55 q22 0 22 22v230q0 24 13.5 38t38.5 14h94q24 0 38 -14t14 -38v-230q0 -22 21 -22h54q22 0 22 22v230q0 24 14 38t38 14h97q24 0 37.5 -14t13.5 -38v-230q0 -22 22 -22h55q21 0 21 22zM1410 560v154q0 53 -33 85.5t-86 32.5h-264q-53 0 -86 -32.5t-33 -85.5v-410 q0 -21 22 -21h55q21 0 21 21v180q31 -42 94 -42h191q53 0 86 32.5t33 85.5zM1536 1176v-1072q0 -96 -68 -164t-164 -68h-1072q-96 0 -164 68t-68 164v1072q0 96 68 164t164 68h1072q96 0 164 -68t68 -164z" />
+<glyph unicode="&#xf20d;" horiz-adv-x="1792" />
+<glyph unicode="&#xf20e;" horiz-adv-x="1792" />
+<glyph unicode="&#xf500;" horiz-adv-x="1792" />
+</font>
+</defs></svg> 
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/fonts/fontawesome-webfont.ttf b/reference/rte-fortran-interface/fonts/fontawesome-webfont.ttf
new file mode 100644
index 000000000..96a3639cd
Binary files /dev/null and b/reference/rte-fortran-interface/fonts/fontawesome-webfont.ttf differ
diff --git a/reference/rte-fortran-interface/fonts/fontawesome-webfont.woff b/reference/rte-fortran-interface/fonts/fontawesome-webfont.woff
new file mode 100644
index 000000000..628b6a52a
Binary files /dev/null and b/reference/rte-fortran-interface/fonts/fontawesome-webfont.woff differ
diff --git a/reference/rte-fortran-interface/fonts/glyphicons-halflings-regular.eot b/reference/rte-fortran-interface/fonts/glyphicons-halflings-regular.eot
new file mode 100644
index 000000000..4a4ca865d
Binary files /dev/null and b/reference/rte-fortran-interface/fonts/glyphicons-halflings-regular.eot differ
diff --git a/reference/rte-fortran-interface/fonts/glyphicons-halflings-regular.svg b/reference/rte-fortran-interface/fonts/glyphicons-halflings-regular.svg
new file mode 100644
index 000000000..25691af8f
--- /dev/null
+++ b/reference/rte-fortran-interface/fonts/glyphicons-halflings-regular.svg
@@ -0,0 +1,229 @@
+<?xml version="1.0" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd" >
+<svg xmlns="http://www.w3.org/2000/svg">
+<metadata></metadata>
+<defs>
+<font id="glyphicons_halflingsregular" horiz-adv-x="1200" >
+<font-face units-per-em="1200" ascent="960" descent="-240" />
+<missing-glyph horiz-adv-x="500" />
+<glyph />
+<glyph />
+<glyph unicode="&#xd;" />
+<glyph unicode=" " />
+<glyph unicode="*" d="M100 500v200h259l-183 183l141 141l183 -183v259h200v-259l183 183l141 -141l-183 -183h259v-200h-259l183 -183l-141 -141l-183 183v-259h-200v259l-183 -183l-141 141l183 183h-259z" />
+<glyph unicode="+" d="M0 400v300h400v400h300v-400h400v-300h-400v-400h-300v400h-400z" />
+<glyph unicode="&#xa0;" />
+<glyph unicode="&#x2000;" horiz-adv-x="652" />
+<glyph unicode="&#x2001;" horiz-adv-x="1304" />
+<glyph unicode="&#x2002;" horiz-adv-x="652" />
+<glyph unicode="&#x2003;" horiz-adv-x="1304" />
+<glyph unicode="&#x2004;" horiz-adv-x="434" />
+<glyph unicode="&#x2005;" horiz-adv-x="326" />
+<glyph unicode="&#x2006;" horiz-adv-x="217" />
+<glyph unicode="&#x2007;" horiz-adv-x="217" />
+<glyph unicode="&#x2008;" horiz-adv-x="163" />
+<glyph unicode="&#x2009;" horiz-adv-x="260" />
+<glyph unicode="&#x200a;" horiz-adv-x="72" />
+<glyph unicode="&#x202f;" horiz-adv-x="260" />
+<glyph unicode="&#x205f;" horiz-adv-x="326" />
+<glyph unicode="&#x20ac;" d="M100 500l100 100h113q0 47 5 100h-218l100 100h135q37 167 112 257q117 141 297 141q242 0 354 -189q60 -103 66 -209h-181q0 55 -25.5 99t-63.5 68t-75 36.5t-67 12.5q-24 0 -52.5 -10t-62.5 -32t-65.5 -67t-50.5 -107h379l-100 -100h-300q-6 -46 -6 -100h406l-100 -100 h-300q9 -74 33 -132t52.5 -91t62 -54.5t59 -29t46.5 -7.5q29 0 66 13t75 37t63.5 67.5t25.5 96.5h174q-31 -172 -128 -278q-107 -117 -274 -117q-205 0 -324 158q-36 46 -69 131.5t-45 205.5h-217z" />
+<glyph unicode="&#x2212;" d="M200 400h900v300h-900v-300z" />
+<glyph unicode="&#x25fc;" horiz-adv-x="500" d="M0 0z" />
+<glyph unicode="&#x2601;" d="M-14 494q0 -80 56.5 -137t135.5 -57h750q120 0 205 86.5t85 207.5t-85 207t-205 86q-46 0 -90 -14q-44 97 -134.5 156.5t-200.5 59.5q-152 0 -260 -107.5t-108 -260.5q0 -25 2 -37q-66 -14 -108.5 -67.5t-42.5 -122.5z" />
+<glyph unicode="&#x2709;" d="M0 100l400 400l200 -200l200 200l400 -400h-1200zM0 300v600l300 -300zM0 1100l600 -603l600 603h-1200zM900 600l300 300v-600z" />
+<glyph unicode="&#x270f;" d="M-13 -13l333 112l-223 223zM187 403l214 -214l614 614l-214 214zM887 1103l214 -214l99 92q13 13 13 32.5t-13 33.5l-153 153q-15 13 -33 13t-33 -13z" />
+<glyph unicode="&#xe001;" d="M0 1200h1200l-500 -550v-550h300v-100h-800v100h300v550z" />
+<glyph unicode="&#xe002;" d="M14 84q18 -55 86 -75.5t147 5.5q65 21 109 69t44 90v606l600 155v-521q-64 16 -138 -7q-79 -26 -122.5 -83t-25.5 -111q18 -55 86 -75.5t147 4.5q70 23 111.5 63.5t41.5 95.5v881q0 10 -7 15.5t-17 2.5l-752 -193q-10 -3 -17 -12.5t-7 -19.5v-689q-64 17 -138 -7 q-79 -25 -122.5 -82t-25.5 -112z" />
+<glyph unicode="&#xe003;" d="M23 693q0 200 142 342t342 142t342 -142t142 -342q0 -142 -78 -261l300 -300q7 -8 7 -18t-7 -18l-109 -109q-8 -7 -18 -7t-18 7l-300 300q-119 -78 -261 -78q-200 0 -342 142t-142 342zM176 693q0 -136 97 -233t234 -97t233.5 96.5t96.5 233.5t-96.5 233.5t-233.5 96.5 t-234 -97t-97 -233z" />
+<glyph unicode="&#xe005;" d="M100 784q0 64 28 123t73 100.5t104.5 64t119 20.5t120 -38.5t104.5 -104.5q48 69 109.5 105t121.5 38t118.5 -20.5t102.5 -64t71 -100.5t27 -123q0 -57 -33.5 -117.5t-94 -124.5t-126.5 -127.5t-150 -152.5t-146 -174q-62 85 -145.5 174t-149.5 152.5t-126.5 127.5 t-94 124.5t-33.5 117.5z" />
+<glyph unicode="&#xe006;" d="M-72 800h479l146 400h2l146 -400h472l-382 -278l145 -449l-384 275l-382 -275l146 447zM168 71l2 1z" />
+<glyph unicode="&#xe007;" d="M-72 800h479l146 400h2l146 -400h472l-382 -278l145 -449l-384 275l-382 -275l146 447zM168 71l2 1zM237 700l196 -142l-73 -226l192 140l195 -141l-74 229l193 140h-235l-77 211l-78 -211h-239z" />
+<glyph unicode="&#xe008;" d="M0 0v143l400 257v100q-37 0 -68.5 74.5t-31.5 125.5v200q0 124 88 212t212 88t212 -88t88 -212v-200q0 -51 -31.5 -125.5t-68.5 -74.5v-100l400 -257v-143h-1200z" />
+<glyph unicode="&#xe009;" d="M0 0v1100h1200v-1100h-1200zM100 100h100v100h-100v-100zM100 300h100v100h-100v-100zM100 500h100v100h-100v-100zM100 700h100v100h-100v-100zM100 900h100v100h-100v-100zM300 100h600v400h-600v-400zM300 600h600v400h-600v-400zM1000 100h100v100h-100v-100z M1000 300h100v100h-100v-100zM1000 500h100v100h-100v-100zM1000 700h100v100h-100v-100zM1000 900h100v100h-100v-100z" />
+<glyph unicode="&#xe010;" d="M0 50v400q0 21 14.5 35.5t35.5 14.5h400q21 0 35.5 -14.5t14.5 -35.5v-400q0 -21 -14.5 -35.5t-35.5 -14.5h-400q-21 0 -35.5 14.5t-14.5 35.5zM0 650v400q0 21 14.5 35.5t35.5 14.5h400q21 0 35.5 -14.5t14.5 -35.5v-400q0 -21 -14.5 -35.5t-35.5 -14.5h-400 q-21 0 -35.5 14.5t-14.5 35.5zM600 50v400q0 21 14.5 35.5t35.5 14.5h400q21 0 35.5 -14.5t14.5 -35.5v-400q0 -21 -14.5 -35.5t-35.5 -14.5h-400q-21 0 -35.5 14.5t-14.5 35.5zM600 650v400q0 21 14.5 35.5t35.5 14.5h400q21 0 35.5 -14.5t14.5 -35.5v-400 q0 -21 -14.5 -35.5t-35.5 -14.5h-400q-21 0 -35.5 14.5t-14.5 35.5z" />
+<glyph unicode="&#xe011;" d="M0 50v200q0 21 14.5 35.5t35.5 14.5h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5zM0 450v200q0 21 14.5 35.5t35.5 14.5h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200 q-21 0 -35.5 14.5t-14.5 35.5zM0 850v200q0 21 14.5 35.5t35.5 14.5h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5zM400 50v200q0 21 14.5 35.5t35.5 14.5h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5 t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5zM400 450v200q0 21 14.5 35.5t35.5 14.5h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5zM400 850v200q0 21 14.5 35.5t35.5 14.5h200q21 0 35.5 -14.5t14.5 -35.5 v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5zM800 50v200q0 21 14.5 35.5t35.5 14.5h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5zM800 450v200q0 21 14.5 35.5t35.5 14.5h200 q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5zM800 850v200q0 21 14.5 35.5t35.5 14.5h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5z" />
+<glyph unicode="&#xe012;" d="M0 50v200q0 21 14.5 35.5t35.5 14.5h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5zM0 450q0 -21 14.5 -35.5t35.5 -14.5h200q21 0 35.5 14.5t14.5 35.5v200q0 21 -14.5 35.5t-35.5 14.5h-200q-21 0 -35.5 -14.5 t-14.5 -35.5v-200zM0 850v200q0 21 14.5 35.5t35.5 14.5h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5zM400 50v200q0 21 14.5 35.5t35.5 14.5h700q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5 t-35.5 -14.5h-700q-21 0 -35.5 14.5t-14.5 35.5zM400 450v200q0 21 14.5 35.5t35.5 14.5h700q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-700q-21 0 -35.5 14.5t-14.5 35.5zM400 850v200q0 21 14.5 35.5t35.5 14.5h700q21 0 35.5 -14.5t14.5 -35.5 v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-700q-21 0 -35.5 14.5t-14.5 35.5z" />
+<glyph unicode="&#xe013;" d="M29 454l419 -420l818 820l-212 212l-607 -607l-206 207z" />
+<glyph unicode="&#xe014;" d="M106 318l282 282l-282 282l212 212l282 -282l282 282l212 -212l-282 -282l282 -282l-212 -212l-282 282l-282 -282z" />
+<glyph unicode="&#xe015;" d="M23 693q0 200 142 342t342 142t342 -142t142 -342q0 -142 -78 -261l300 -300q7 -8 7 -18t-7 -18l-109 -109q-8 -7 -18 -7t-18 7l-300 300q-119 -78 -261 -78q-200 0 -342 142t-142 342zM176 693q0 -136 97 -233t234 -97t233.5 96.5t96.5 233.5t-96.5 233.5t-233.5 96.5 t-234 -97t-97 -233zM300 600v200h100v100h200v-100h100v-200h-100v-100h-200v100h-100z" />
+<glyph unicode="&#xe016;" d="M23 694q0 200 142 342t342 142t342 -142t142 -342q0 -141 -78 -262l300 -299q7 -7 7 -18t-7 -18l-109 -109q-8 -8 -18 -8t-18 8l-300 300q-119 -78 -261 -78q-200 0 -342 142t-142 342zM176 694q0 -136 97 -233t234 -97t233.5 97t96.5 233t-96.5 233t-233.5 97t-234 -97 t-97 -233zM300 601h400v200h-400v-200z" />
+<glyph unicode="&#xe017;" d="M23 600q0 183 105 331t272 210v-166q-103 -55 -165 -155t-62 -220q0 -177 125 -302t302 -125t302 125t125 302q0 120 -62 220t-165 155v166q167 -62 272 -210t105 -331q0 -118 -45.5 -224.5t-123 -184t-184 -123t-224.5 -45.5t-224.5 45.5t-184 123t-123 184t-45.5 224.5 zM500 750q0 -21 14.5 -35.5t35.5 -14.5h100q21 0 35.5 14.5t14.5 35.5v400q0 21 -14.5 35.5t-35.5 14.5h-100q-21 0 -35.5 -14.5t-14.5 -35.5v-400z" />
+<glyph unicode="&#xe018;" d="M100 1h200v300h-200v-300zM400 1v500h200v-500h-200zM700 1v800h200v-800h-200zM1000 1v1200h200v-1200h-200z" />
+<glyph unicode="&#xe019;" d="M26 601q0 -33 6 -74l151 -38l2 -6q14 -49 38 -93l3 -5l-80 -134q45 -59 105 -105l133 81l5 -3q45 -26 94 -39l5 -2l38 -151q40 -5 74 -5q27 0 74 5l38 151l6 2q46 13 93 39l5 3l134 -81q56 44 104 105l-80 134l3 5q24 44 39 93l1 6l152 38q5 40 5 74q0 28 -5 73l-152 38 l-1 6q-16 51 -39 93l-3 5l80 134q-44 58 -104 105l-134 -81l-5 3q-45 25 -93 39l-6 1l-38 152q-40 5 -74 5q-27 0 -74 -5l-38 -152l-5 -1q-50 -14 -94 -39l-5 -3l-133 81q-59 -47 -105 -105l80 -134l-3 -5q-25 -47 -38 -93l-2 -6l-151 -38q-6 -48 -6 -73zM385 601 q0 88 63 151t152 63t152 -63t63 -151q0 -89 -63 -152t-152 -63t-152 63t-63 152z" />
+<glyph unicode="&#xe020;" d="M100 1025v50q0 10 7.5 17.5t17.5 7.5h275v100q0 41 29.5 70.5t70.5 29.5h300q41 0 70.5 -29.5t29.5 -70.5v-100h275q10 0 17.5 -7.5t7.5 -17.5v-50q0 -11 -7 -18t-18 -7h-1050q-11 0 -18 7t-7 18zM200 100v800h900v-800q0 -41 -29.5 -71t-70.5 -30h-700q-41 0 -70.5 30 t-29.5 71zM300 100h100v700h-100v-700zM500 100h100v700h-100v-700zM500 1100h300v100h-300v-100zM700 100h100v700h-100v-700zM900 100h100v700h-100v-700z" />
+<glyph unicode="&#xe021;" d="M1 601l656 644l644 -644h-200v-600h-300v400h-300v-400h-300v600h-200z" />
+<glyph unicode="&#xe022;" d="M100 25v1150q0 11 7 18t18 7h475v-500h400v-675q0 -11 -7 -18t-18 -7h-850q-11 0 -18 7t-7 18zM700 800v300l300 -300h-300z" />
+<glyph unicode="&#xe023;" d="M4 600q0 162 80 299t217 217t299 80t299 -80t217 -217t80 -299t-80 -299t-217 -217t-299 -80t-299 80t-217 217t-80 299zM186 600q0 -171 121.5 -292.5t292.5 -121.5t292.5 121.5t121.5 292.5t-121.5 292.5t-292.5 121.5t-292.5 -121.5t-121.5 -292.5zM500 500v400h100 v-300h200v-100h-300z" />
+<glyph unicode="&#xe024;" d="M-100 0l431 1200h209l-21 -300h162l-20 300h208l431 -1200h-538l-41 400h-242l-40 -400h-539zM488 500h224l-27 300h-170z" />
+<glyph unicode="&#xe025;" d="M0 0v400h490l-290 300h200v500h300v-500h200l-290 -300h490v-400h-1100zM813 200h175v100h-175v-100z" />
+<glyph unicode="&#xe026;" d="M1 600q0 122 47.5 233t127.5 191t191 127.5t233 47.5t233 -47.5t191 -127.5t127.5 -191t47.5 -233t-47.5 -233t-127.5 -191t-191 -127.5t-233 -47.5t-233 47.5t-191 127.5t-127.5 191t-47.5 233zM188 600q0 -170 121 -291t291 -121t291 121t121 291t-121 291t-291 121 t-291 -121t-121 -291zM350 600h150v300h200v-300h150l-250 -300z" />
+<glyph unicode="&#xe027;" d="M4 600q0 162 80 299t217 217t299 80t299 -80t217 -217t80 -299t-80 -299t-217 -217t-299 -80t-299 80t-217 217t-80 299zM186 600q0 -171 121.5 -292.5t292.5 -121.5t292.5 121.5t121.5 292.5t-121.5 292.5t-292.5 121.5t-292.5 -121.5t-121.5 -292.5zM350 600l250 300 l250 -300h-150v-300h-200v300h-150z" />
+<glyph unicode="&#xe028;" d="M0 25v475l200 700h800l199 -700l1 -475q0 -11 -7 -18t-18 -7h-1150q-11 0 -18 7t-7 18zM200 500h200l50 -200h300l50 200h200l-97 500h-606z" />
+<glyph unicode="&#xe029;" d="M4 600q0 162 80 299t217 217t299 80t299 -80t217 -217t80 -299t-80 -299t-217 -217t-299 -80t-299 80t-217 217t-80 299zM186 600q0 -172 121.5 -293t292.5 -121t292.5 121t121.5 293q0 171 -121.5 292.5t-292.5 121.5t-292.5 -121.5t-121.5 -292.5zM500 397v401 l297 -200z" />
+<glyph unicode="&#xe030;" d="M23 600q0 -118 45.5 -224.5t123 -184t184 -123t224.5 -45.5t224.5 45.5t184 123t123 184t45.5 224.5h-150q0 -177 -125 -302t-302 -125t-302 125t-125 302t125 302t302 125q136 0 246 -81l-146 -146h400v400l-145 -145q-157 122 -355 122q-118 0 -224.5 -45.5t-184 -123 t-123 -184t-45.5 -224.5z" />
+<glyph unicode="&#xe031;" d="M23 600q0 118 45.5 224.5t123 184t184 123t224.5 45.5q198 0 355 -122l145 145v-400h-400l147 147q-112 80 -247 80q-177 0 -302 -125t-125 -302h-150zM100 0v400h400l-147 -147q112 -80 247 -80q177 0 302 125t125 302h150q0 -118 -45.5 -224.5t-123 -184t-184 -123 t-224.5 -45.5q-198 0 -355 122z" />
+<glyph unicode="&#xe032;" d="M100 0h1100v1200h-1100v-1200zM200 100v900h900v-900h-900zM300 200v100h100v-100h-100zM300 400v100h100v-100h-100zM300 600v100h100v-100h-100zM300 800v100h100v-100h-100zM500 200h500v100h-500v-100zM500 400v100h500v-100h-500zM500 600v100h500v-100h-500z M500 800v100h500v-100h-500z" />
+<glyph unicode="&#xe033;" d="M0 100v600q0 41 29.5 70.5t70.5 29.5h100v200q0 82 59 141t141 59h300q82 0 141 -59t59 -141v-200h100q41 0 70.5 -29.5t29.5 -70.5v-600q0 -41 -29.5 -70.5t-70.5 -29.5h-900q-41 0 -70.5 29.5t-29.5 70.5zM400 800h300v150q0 21 -14.5 35.5t-35.5 14.5h-200 q-21 0 -35.5 -14.5t-14.5 -35.5v-150z" />
+<glyph unicode="&#xe034;" d="M100 0v1100h100v-1100h-100zM300 400q60 60 127.5 84t127.5 17.5t122 -23t119 -30t110 -11t103 42t91 120.5v500q-40 -81 -101.5 -115.5t-127.5 -29.5t-138 25t-139.5 40t-125.5 25t-103 -29.5t-65 -115.5v-500z" />
+<glyph unicode="&#xe035;" d="M0 275q0 -11 7 -18t18 -7h50q11 0 18 7t7 18v300q0 127 70.5 231.5t184.5 161.5t245 57t245 -57t184.5 -161.5t70.5 -231.5v-300q0 -11 7 -18t18 -7h50q11 0 18 7t7 18v300q0 116 -49.5 227t-131 192.5t-192.5 131t-227 49.5t-227 -49.5t-192.5 -131t-131 -192.5 t-49.5 -227v-300zM200 20v460q0 8 6 14t14 6h160q8 0 14 -6t6 -14v-460q0 -8 -6 -14t-14 -6h-160q-8 0 -14 6t-6 14zM800 20v460q0 8 6 14t14 6h160q8 0 14 -6t6 -14v-460q0 -8 -6 -14t-14 -6h-160q-8 0 -14 6t-6 14z" />
+<glyph unicode="&#xe036;" d="M0 400h300l300 -200v800l-300 -200h-300v-400zM688 459l141 141l-141 141l71 71l141 -141l141 141l71 -71l-141 -141l141 -141l-71 -71l-141 141l-141 -141z" />
+<glyph unicode="&#xe037;" d="M0 400h300l300 -200v800l-300 -200h-300v-400zM700 857l69 53q111 -135 111 -310q0 -169 -106 -302l-67 54q86 110 86 248q0 146 -93 257z" />
+<glyph unicode="&#xe038;" d="M0 401v400h300l300 200v-800l-300 200h-300zM702 858l69 53q111 -135 111 -310q0 -170 -106 -303l-67 55q86 110 86 248q0 145 -93 257zM889 951l7 -8q123 -151 123 -344q0 -189 -119 -339l-7 -8l81 -66l6 8q142 178 142 405q0 230 -144 408l-6 8z" />
+<glyph unicode="&#xe039;" d="M0 0h500v500h-200v100h-100v-100h-200v-500zM0 600h100v100h400v100h100v100h-100v300h-500v-600zM100 100v300h300v-300h-300zM100 800v300h300v-300h-300zM200 200v100h100v-100h-100zM200 900h100v100h-100v-100zM500 500v100h300v-300h200v-100h-100v-100h-200v100 h-100v100h100v200h-200zM600 0v100h100v-100h-100zM600 1000h100v-300h200v-300h300v200h-200v100h200v500h-600v-200zM800 800v300h300v-300h-300zM900 0v100h300v-100h-300zM900 900v100h100v-100h-100zM1100 200v100h100v-100h-100z" />
+<glyph unicode="&#xe040;" d="M0 200h100v1000h-100v-1000zM100 0v100h300v-100h-300zM200 200v1000h100v-1000h-100zM500 0v91h100v-91h-100zM500 200v1000h200v-1000h-200zM700 0v91h100v-91h-100zM800 200v1000h100v-1000h-100zM900 0v91h200v-91h-200zM1000 200v1000h200v-1000h-200z" />
+<glyph unicode="&#xe041;" d="M0 700l1 475q0 10 7.5 17.5t17.5 7.5h474l700 -700l-500 -500zM148 953q0 -42 29 -71q30 -30 71.5 -30t71.5 30q29 29 29 71t-29 71q-30 30 -71.5 30t-71.5 -30q-29 -29 -29 -71z" />
+<glyph unicode="&#xe042;" d="M1 700l1 475q0 11 7 18t18 7h474l700 -700l-500 -500zM148 953q0 -42 30 -71q29 -30 71 -30t71 30q30 29 30 71t-30 71q-29 30 -71 30t-71 -30q-30 -29 -30 -71zM701 1200h100l700 -700l-500 -500l-50 50l450 450z" />
+<glyph unicode="&#xe043;" d="M100 0v1025l175 175h925v-1000l-100 -100v1000h-750l-100 -100h750v-1000h-900z" />
+<glyph unicode="&#xe044;" d="M200 0l450 444l450 -443v1150q0 20 -14.5 35t-35.5 15h-800q-21 0 -35.5 -15t-14.5 -35v-1151z" />
+<glyph unicode="&#xe045;" d="M0 100v700h200l100 -200h600l100 200h200v-700h-200v200h-800v-200h-200zM253 829l40 -124h592l62 124l-94 346q-2 11 -10 18t-18 7h-450q-10 0 -18 -7t-10 -18zM281 24l38 152q2 10 11.5 17t19.5 7h500q10 0 19.5 -7t11.5 -17l38 -152q2 -10 -3.5 -17t-15.5 -7h-600 q-10 0 -15.5 7t-3.5 17z" />
+<glyph unicode="&#xe046;" d="M0 200q0 -41 29.5 -70.5t70.5 -29.5h1000q41 0 70.5 29.5t29.5 70.5v600q0 41 -29.5 70.5t-70.5 29.5h-150q-4 8 -11.5 21.5t-33 48t-53 61t-69 48t-83.5 21.5h-200q-41 0 -82 -20.5t-70 -50t-52 -59t-34 -50.5l-12 -20h-150q-41 0 -70.5 -29.5t-29.5 -70.5v-600z M356 500q0 100 72 172t172 72t172 -72t72 -172t-72 -172t-172 -72t-172 72t-72 172zM494 500q0 -44 31 -75t75 -31t75 31t31 75t-31 75t-75 31t-75 -31t-31 -75zM900 700v100h100v-100h-100z" />
+<glyph unicode="&#xe047;" d="M53 0h365v66q-41 0 -72 11t-49 38t1 71l92 234h391l82 -222q16 -45 -5.5 -88.5t-74.5 -43.5v-66h417v66q-34 1 -74 43q-18 19 -33 42t-21 37l-6 13l-385 998h-93l-399 -1006q-24 -48 -52 -75q-12 -12 -33 -25t-36 -20l-15 -7v-66zM416 521l178 457l46 -140l116 -317h-340 z" />
+<glyph unicode="&#xe048;" d="M100 0v89q41 7 70.5 32.5t29.5 65.5v827q0 28 -1 39.5t-5.5 26t-15.5 21t-29 14t-49 14.5v71l471 -1q120 0 213 -88t93 -228q0 -55 -11.5 -101.5t-28 -74t-33.5 -47.5t-28 -28l-12 -7q8 -3 21.5 -9t48 -31.5t60.5 -58t47.5 -91.5t21.5 -129q0 -84 -59 -156.5t-142 -111 t-162 -38.5h-500zM400 200h161q89 0 153 48.5t64 132.5q0 90 -62.5 154.5t-156.5 64.5h-159v-400zM400 700h139q76 0 130 61.5t54 138.5q0 82 -84 130.5t-239 48.5v-379z" />
+<glyph unicode="&#xe049;" d="M200 0v57q77 7 134.5 40.5t65.5 80.5l173 849q10 56 -10 74t-91 37q-6 1 -10.5 2.5t-9.5 2.5v57h425l2 -57q-33 -8 -62 -25.5t-46 -37t-29.5 -38t-17.5 -30.5l-5 -12l-128 -825q-10 -52 14 -82t95 -36v-57h-500z" />
+<glyph unicode="&#xe050;" d="M-75 200h75v800h-75l125 167l125 -167h-75v-800h75l-125 -167zM300 900v300h150h700h150v-300h-50q0 29 -8 48.5t-18.5 30t-33.5 15t-39.5 5.5t-50.5 1h-200v-850l100 -50v-100h-400v100l100 50v850h-200q-34 0 -50.5 -1t-40 -5.5t-33.5 -15t-18.5 -30t-8.5 -48.5h-49z " />
+<glyph unicode="&#xe051;" d="M33 51l167 125v-75h800v75l167 -125l-167 -125v75h-800v-75zM100 901v300h150h700h150v-300h-50q0 29 -8 48.5t-18 30t-33.5 15t-40 5.5t-50.5 1h-200v-650l100 -50v-100h-400v100l100 50v650h-200q-34 0 -50.5 -1t-39.5 -5.5t-33.5 -15t-18.5 -30t-8 -48.5h-50z" />
+<glyph unicode="&#xe052;" d="M0 50q0 -20 14.5 -35t35.5 -15h1100q21 0 35.5 15t14.5 35v100q0 21 -14.5 35.5t-35.5 14.5h-1100q-21 0 -35.5 -14.5t-14.5 -35.5v-100zM0 350q0 -20 14.5 -35t35.5 -15h800q21 0 35.5 15t14.5 35v100q0 21 -14.5 35.5t-35.5 14.5h-800q-21 0 -35.5 -14.5t-14.5 -35.5 v-100zM0 650q0 -20 14.5 -35t35.5 -15h1000q21 0 35.5 15t14.5 35v100q0 21 -14.5 35.5t-35.5 14.5h-1000q-21 0 -35.5 -14.5t-14.5 -35.5v-100zM0 950q0 -20 14.5 -35t35.5 -15h600q21 0 35.5 15t14.5 35v100q0 21 -14.5 35.5t-35.5 14.5h-600q-21 0 -35.5 -14.5 t-14.5 -35.5v-100z" />
+<glyph unicode="&#xe053;" d="M0 50q0 -20 14.5 -35t35.5 -15h1100q21 0 35.5 15t14.5 35v100q0 21 -14.5 35.5t-35.5 14.5h-1100q-21 0 -35.5 -14.5t-14.5 -35.5v-100zM0 650q0 -20 14.5 -35t35.5 -15h1100q21 0 35.5 15t14.5 35v100q0 21 -14.5 35.5t-35.5 14.5h-1100q-21 0 -35.5 -14.5t-14.5 -35.5 v-100zM200 350q0 -20 14.5 -35t35.5 -15h700q21 0 35.5 15t14.5 35v100q0 21 -14.5 35.5t-35.5 14.5h-700q-21 0 -35.5 -14.5t-14.5 -35.5v-100zM200 950q0 -20 14.5 -35t35.5 -15h700q21 0 35.5 15t14.5 35v100q0 21 -14.5 35.5t-35.5 14.5h-700q-21 0 -35.5 -14.5 t-14.5 -35.5v-100z" />
+<glyph unicode="&#xe054;" d="M0 50v100q0 21 14.5 35.5t35.5 14.5h1100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-1100q-21 0 -35.5 15t-14.5 35zM100 650v100q0 21 14.5 35.5t35.5 14.5h1000q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-1000q-21 0 -35.5 15 t-14.5 35zM300 350v100q0 21 14.5 35.5t35.5 14.5h800q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-800q-21 0 -35.5 15t-14.5 35zM500 950v100q0 21 14.5 35.5t35.5 14.5h600q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-600 q-21 0 -35.5 15t-14.5 35z" />
+<glyph unicode="&#xe055;" d="M0 50v100q0 21 14.5 35.5t35.5 14.5h1100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-1100q-21 0 -35.5 15t-14.5 35zM0 350v100q0 21 14.5 35.5t35.5 14.5h1100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-1100q-21 0 -35.5 15 t-14.5 35zM0 650v100q0 21 14.5 35.5t35.5 14.5h1100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-1100q-21 0 -35.5 15t-14.5 35zM0 950v100q0 21 14.5 35.5t35.5 14.5h1100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-1100 q-21 0 -35.5 15t-14.5 35z" />
+<glyph unicode="&#xe056;" d="M0 50v100q0 21 14.5 35.5t35.5 14.5h100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-100q-21 0 -35.5 15t-14.5 35zM0 350v100q0 21 14.5 35.5t35.5 14.5h100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-100q-21 0 -35.5 15 t-14.5 35zM0 650v100q0 21 14.5 35.5t35.5 14.5h100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-100q-21 0 -35.5 15t-14.5 35zM0 950v100q0 21 14.5 35.5t35.5 14.5h100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-100q-21 0 -35.5 15 t-14.5 35zM300 50v100q0 21 14.5 35.5t35.5 14.5h800q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-800q-21 0 -35.5 15t-14.5 35zM300 350v100q0 21 14.5 35.5t35.5 14.5h800q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-800 q-21 0 -35.5 15t-14.5 35zM300 650v100q0 21 14.5 35.5t35.5 14.5h800q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-800q-21 0 -35.5 15t-14.5 35zM300 950v100q0 21 14.5 35.5t35.5 14.5h800q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15 h-800q-21 0 -35.5 15t-14.5 35z" />
+<glyph unicode="&#xe057;" d="M-101 500v100h201v75l166 -125l-166 -125v75h-201zM300 0h100v1100h-100v-1100zM500 50q0 -20 14.5 -35t35.5 -15h600q20 0 35 15t15 35v100q0 21 -15 35.5t-35 14.5h-600q-21 0 -35.5 -14.5t-14.5 -35.5v-100zM500 350q0 -20 14.5 -35t35.5 -15h300q20 0 35 15t15 35 v100q0 21 -15 35.5t-35 14.5h-300q-21 0 -35.5 -14.5t-14.5 -35.5v-100zM500 650q0 -20 14.5 -35t35.5 -15h500q20 0 35 15t15 35v100q0 21 -15 35.5t-35 14.5h-500q-21 0 -35.5 -14.5t-14.5 -35.5v-100zM500 950q0 -20 14.5 -35t35.5 -15h100q20 0 35 15t15 35v100 q0 21 -15 35.5t-35 14.5h-100q-21 0 -35.5 -14.5t-14.5 -35.5v-100z" />
+<glyph unicode="&#xe058;" d="M1 50q0 -20 14.5 -35t35.5 -15h600q20 0 35 15t15 35v100q0 21 -15 35.5t-35 14.5h-600q-21 0 -35.5 -14.5t-14.5 -35.5v-100zM1 350q0 -20 14.5 -35t35.5 -15h300q20 0 35 15t15 35v100q0 21 -15 35.5t-35 14.5h-300q-21 0 -35.5 -14.5t-14.5 -35.5v-100zM1 650 q0 -20 14.5 -35t35.5 -15h500q20 0 35 15t15 35v100q0 21 -15 35.5t-35 14.5h-500q-21 0 -35.5 -14.5t-14.5 -35.5v-100zM1 950q0 -20 14.5 -35t35.5 -15h100q20 0 35 15t15 35v100q0 21 -15 35.5t-35 14.5h-100q-21 0 -35.5 -14.5t-14.5 -35.5v-100zM801 0v1100h100v-1100 h-100zM934 550l167 -125v75h200v100h-200v75z" />
+<glyph unicode="&#xe059;" d="M0 275v650q0 31 22 53t53 22h750q31 0 53 -22t22 -53v-650q0 -31 -22 -53t-53 -22h-750q-31 0 -53 22t-22 53zM900 600l300 300v-600z" />
+<glyph unicode="&#xe060;" d="M0 44v1012q0 18 13 31t31 13h1112q19 0 31.5 -13t12.5 -31v-1012q0 -18 -12.5 -31t-31.5 -13h-1112q-18 0 -31 13t-13 31zM100 263l247 182l298 -131l-74 156l293 318l236 -288v500h-1000v-737zM208 750q0 56 39 95t95 39t95 -39t39 -95t-39 -95t-95 -39t-95 39t-39 95z " />
+<glyph unicode="&#xe062;" d="M148 745q0 124 60.5 231.5t165 172t226.5 64.5q123 0 227 -63t164.5 -169.5t60.5 -229.5t-73 -272q-73 -114 -166.5 -237t-150.5 -189l-57 -66q-10 9 -27 26t-66.5 70.5t-96 109t-104 135.5t-100.5 155q-63 139 -63 262zM342 772q0 -107 75.5 -182.5t181.5 -75.5 q107 0 182.5 75.5t75.5 182.5t-75.5 182t-182.5 75t-182 -75.5t-75 -181.5z" />
+<glyph unicode="&#xe063;" d="M1 600q0 122 47.5 233t127.5 191t191 127.5t233 47.5t233 -47.5t191 -127.5t127.5 -191t47.5 -233t-47.5 -233t-127.5 -191t-191 -127.5t-233 -47.5t-233 47.5t-191 127.5t-127.5 191t-47.5 233zM173 600q0 -177 125.5 -302t301.5 -125v854q-176 0 -301.5 -125 t-125.5 -302z" />
+<glyph unicode="&#xe064;" d="M117 406q0 94 34 186t88.5 172.5t112 159t115 177t87.5 194.5q21 -71 57.5 -142.5t76 -130.5t83 -118.5t82 -117t70 -116t50 -125.5t18.5 -136q0 -89 -39 -165.5t-102 -126.5t-140 -79.5t-156 -33.5q-114 6 -211.5 53t-161.5 139t-64 210zM243 414q14 -82 59.5 -136 t136.5 -80l16 98q-7 6 -18 17t-34 48t-33 77q-15 73 -14 143.5t10 122.5l9 51q-92 -110 -119.5 -185t-12.5 -156z" />
+<glyph unicode="&#xe065;" d="M0 400v300q0 165 117.5 282.5t282.5 117.5q366 -6 397 -14l-186 -186h-311q-41 0 -70.5 -29.5t-29.5 -70.5v-500q0 -41 29.5 -70.5t70.5 -29.5h500q41 0 70.5 29.5t29.5 70.5v125l200 200v-225q0 -165 -117.5 -282.5t-282.5 -117.5h-300q-165 0 -282.5 117.5 t-117.5 282.5zM436 341l161 50l412 412l-114 113l-405 -405zM995 1015l113 -113l113 113l-21 85l-92 28z" />
+<glyph unicode="&#xe066;" d="M0 400v300q0 165 117.5 282.5t282.5 117.5h261l2 -80q-133 -32 -218 -120h-145q-41 0 -70.5 -29.5t-29.5 -70.5v-500q0 -41 29.5 -70.5t70.5 -29.5h500q41 0 70.5 29.5t29.5 70.5l200 153v-53q0 -165 -117.5 -282.5t-282.5 -117.5h-300q-165 0 -282.5 117.5t-117.5 282.5 zM423 524q30 38 81.5 64t103 35.5t99 14t77.5 3.5l29 -1v-209l360 324l-359 318v-216q-7 0 -19 -1t-48 -8t-69.5 -18.5t-76.5 -37t-76.5 -59t-62 -88t-39.5 -121.5z" />
+<glyph unicode="&#xe067;" d="M0 400v300q0 165 117.5 282.5t282.5 117.5h300q61 0 127 -23l-178 -177h-349q-41 0 -70.5 -29.5t-29.5 -70.5v-500q0 -41 29.5 -70.5t70.5 -29.5h500q41 0 70.5 29.5t29.5 70.5v69l200 200v-169q0 -165 -117.5 -282.5t-282.5 -117.5h-300q-165 0 -282.5 117.5 t-117.5 282.5zM342 632l283 -284l567 567l-137 137l-430 -431l-146 147z" />
+<glyph unicode="&#xe068;" d="M0 603l300 296v-198h200v200h-200l300 300l295 -300h-195v-200h200v198l300 -296l-300 -300v198h-200v-200h195l-295 -300l-300 300h200v200h-200v-198z" />
+<glyph unicode="&#xe069;" d="M200 50v1000q0 21 14.5 35.5t35.5 14.5h100q21 0 35.5 -14.5t14.5 -35.5v-437l500 487v-1100l-500 488v-438q0 -21 -14.5 -35.5t-35.5 -14.5h-100q-21 0 -35.5 14.5t-14.5 35.5z" />
+<glyph unicode="&#xe070;" d="M0 50v1000q0 21 14.5 35.5t35.5 14.5h100q21 0 35.5 -14.5t14.5 -35.5v-437l500 487v-487l500 487v-1100l-500 488v-488l-500 488v-438q0 -21 -14.5 -35.5t-35.5 -14.5h-100q-21 0 -35.5 14.5t-14.5 35.5z" />
+<glyph unicode="&#xe071;" d="M136 550l564 550v-487l500 487v-1100l-500 488v-488z" />
+<glyph unicode="&#xe072;" d="M200 0l900 550l-900 550v-1100z" />
+<glyph unicode="&#xe073;" d="M200 150q0 -21 14.5 -35.5t35.5 -14.5h200q21 0 35.5 14.5t14.5 35.5v800q0 21 -14.5 35.5t-35.5 14.5h-200q-21 0 -35.5 -14.5t-14.5 -35.5v-800zM600 150q0 -21 14.5 -35.5t35.5 -14.5h200q21 0 35.5 14.5t14.5 35.5v800q0 21 -14.5 35.5t-35.5 14.5h-200 q-21 0 -35.5 -14.5t-14.5 -35.5v-800z" />
+<glyph unicode="&#xe074;" d="M200 150q0 -20 14.5 -35t35.5 -15h800q21 0 35.5 15t14.5 35v800q0 21 -14.5 35.5t-35.5 14.5h-800q-21 0 -35.5 -14.5t-14.5 -35.5v-800z" />
+<glyph unicode="&#xe075;" d="M0 0v1100l500 -487v487l564 -550l-564 -550v488z" />
+<glyph unicode="&#xe076;" d="M0 0v1100l500 -487v487l500 -487v437q0 21 14.5 35.5t35.5 14.5h100q21 0 35.5 -14.5t14.5 -35.5v-1000q0 -21 -14.5 -35.5t-35.5 -14.5h-100q-21 0 -35.5 14.5t-14.5 35.5v438l-500 -488v488z" />
+<glyph unicode="&#xe077;" d="M300 0v1100l500 -487v437q0 21 14.5 35.5t35.5 14.5h100q21 0 35.5 -14.5t14.5 -35.5v-1000q0 -21 -14.5 -35.5t-35.5 -14.5h-100q-21 0 -35.5 14.5t-14.5 35.5v438z" />
+<glyph unicode="&#xe078;" d="M100 250v100q0 21 14.5 35.5t35.5 14.5h1000q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-1000q-21 0 -35.5 14.5t-14.5 35.5zM100 500h1100l-550 564z" />
+<glyph unicode="&#xe079;" d="M185 599l592 -592l240 240l-353 353l353 353l-240 240z" />
+<glyph unicode="&#xe080;" d="M272 194l353 353l-353 353l241 240l572 -571l21 -22l-1 -1v-1l-592 -591z" />
+<glyph unicode="&#xe081;" d="M3 600q0 162 80 299.5t217.5 217.5t299.5 80t299.5 -80t217.5 -217.5t80 -299.5t-80 -299.5t-217.5 -217.5t-299.5 -80t-299.5 80t-217.5 217.5t-80 299.5zM300 500h200v-200h200v200h200v200h-200v200h-200v-200h-200v-200z" />
+<glyph unicode="&#xe082;" d="M3 600q0 162 80 299.5t217.5 217.5t299.5 80t299.5 -80t217.5 -217.5t80 -299.5t-80 -299.5t-217.5 -217.5t-299.5 -80t-299.5 80t-217.5 217.5t-80 299.5zM300 500h600v200h-600v-200z" />
+<glyph unicode="&#xe083;" d="M3 600q0 162 80 299.5t217.5 217.5t299.5 80t299.5 -80t217.5 -217.5t80 -299.5t-80 -299.5t-217.5 -217.5t-299.5 -80t-299.5 80t-217.5 217.5t-80 299.5zM246 459l213 -213l141 142l141 -142l213 213l-142 141l142 141l-213 212l-141 -141l-141 142l-212 -213l141 -141 z" />
+<glyph unicode="&#xe084;" d="M3 600q0 162 80 299.5t217.5 217.5t299.5 80t299.5 -80t217.5 -217.5t80 -299.5t-80 -299.5t-217.5 -217.5t-299.5 -80t-299.5 80t-217.5 217.5t-80 299.5zM270 551l276 -277l411 411l-175 174l-236 -236l-102 102z" />
+<glyph unicode="&#xe085;" d="M3 600q0 162 80 299.5t217.5 217.5t299.5 80t299.5 -80t217.5 -217.5t80 -299.5t-80 -299.5t-217.5 -217.5t-299.5 -80t-299.5 80t-217.5 217.5t-80 299.5zM364 700h143q4 0 11.5 -1t11 -1t6.5 3t3 9t1 11t3.5 8.5t3.5 6t5.5 4t6.5 2.5t9 1.5t9 0.5h11.5h12.5 q19 0 30 -10t11 -26q0 -22 -4 -28t-27 -22q-5 -1 -12.5 -3t-27 -13.5t-34 -27t-26.5 -46t-11 -68.5h200q5 3 14 8t31.5 25.5t39.5 45.5t31 69t14 94q0 51 -17.5 89t-42 58t-58.5 32t-58.5 15t-51.5 3q-50 0 -90.5 -12t-75 -38.5t-53.5 -74.5t-19 -114zM500 300h200v100h-200 v-100z" />
+<glyph unicode="&#xe086;" d="M3 600q0 162 80 299.5t217.5 217.5t299.5 80t299.5 -80t217.5 -217.5t80 -299.5t-80 -299.5t-217.5 -217.5t-299.5 -80t-299.5 80t-217.5 217.5t-80 299.5zM400 300h400v100h-100v300h-300v-100h100v-200h-100v-100zM500 800h200v100h-200v-100z" />
+<glyph unicode="&#xe087;" d="M0 500v200h195q31 125 98.5 199.5t206.5 100.5v200h200v-200q54 -20 113 -60t112.5 -105.5t71.5 -134.5h203v-200h-203q-25 -102 -116.5 -186t-180.5 -117v-197h-200v197q-140 27 -208 102.5t-98 200.5h-194zM290 500q24 -73 79.5 -127.5t130.5 -78.5v206h200v-206 q149 48 201 206h-201v200h200q-25 74 -75.5 127t-124.5 77v-204h-200v203q-75 -23 -130 -77t-79 -126h209v-200h-210z" />
+<glyph unicode="&#xe088;" d="M4 600q0 162 80 299t217 217t299 80t299 -80t217 -217t80 -299t-80 -299t-217 -217t-299 -80t-299 80t-217 217t-80 299zM186 600q0 -171 121.5 -292.5t292.5 -121.5t292.5 121.5t121.5 292.5t-121.5 292.5t-292.5 121.5t-292.5 -121.5t-121.5 -292.5zM356 465l135 135 l-135 135l109 109l135 -135l135 135l109 -109l-135 -135l135 -135l-109 -109l-135 135l-135 -135z" />
+<glyph unicode="&#xe089;" d="M4 600q0 162 80 299t217 217t299 80t299 -80t217 -217t80 -299t-80 -299t-217 -217t-299 -80t-299 80t-217 217t-80 299zM186 600q0 -171 121.5 -292.5t292.5 -121.5t292.5 121.5t121.5 292.5t-121.5 292.5t-292.5 121.5t-292.5 -121.5t-121.5 -292.5zM322 537l141 141 l87 -87l204 205l142 -142l-346 -345z" />
+<glyph unicode="&#xe090;" d="M4 600q0 162 80 299t217 217t299 80t299 -80t217 -217t80 -299t-80 -299t-217 -217t-299 -80t-299 80t-217 217t-80 299zM186 600q0 -115 62 -215l568 567q-100 62 -216 62q-171 0 -292.5 -121.5t-121.5 -292.5zM391 245q97 -59 209 -59q171 0 292.5 121.5t121.5 292.5 q0 112 -59 209z" />
+<glyph unicode="&#xe091;" d="M0 547l600 453v-300h600v-300h-600v-301z" />
+<glyph unicode="&#xe092;" d="M0 400v300h600v300l600 -453l-600 -448v301h-600z" />
+<glyph unicode="&#xe093;" d="M204 600l450 600l444 -600h-298v-600h-300v600h-296z" />
+<glyph unicode="&#xe094;" d="M104 600h296v600h300v-600h298l-449 -600z" />
+<glyph unicode="&#xe095;" d="M0 200q6 132 41 238.5t103.5 193t184 138t271.5 59.5v271l600 -453l-600 -448v301q-95 -2 -183 -20t-170 -52t-147 -92.5t-100 -135.5z" />
+<glyph unicode="&#xe096;" d="M0 0v400l129 -129l294 294l142 -142l-294 -294l129 -129h-400zM635 777l142 -142l294 294l129 -129v400h-400l129 -129z" />
+<glyph unicode="&#xe097;" d="M34 176l295 295l-129 129h400v-400l-129 130l-295 -295zM600 600v400l129 -129l295 295l142 -141l-295 -295l129 -130h-400z" />
+<glyph unicode="&#xe101;" d="M23 600q0 118 45.5 224.5t123 184t184 123t224.5 45.5t224.5 -45.5t184 -123t123 -184t45.5 -224.5t-45.5 -224.5t-123 -184t-184 -123t-224.5 -45.5t-224.5 45.5t-184 123t-123 184t-45.5 224.5zM456 851l58 -302q4 -20 21.5 -34.5t37.5 -14.5h54q20 0 37.5 14.5 t21.5 34.5l58 302q4 20 -8 34.5t-32 14.5h-207q-21 0 -33 -14.5t-8 -34.5zM500 300h200v100h-200v-100z" />
+<glyph unicode="&#xe102;" d="M0 800h100v-200h400v300h200v-300h400v200h100v100h-111q1 1 1 6.5t-1.5 15t-3.5 17.5l-34 172q-11 39 -41.5 63t-69.5 24q-32 0 -61 -17l-239 -144q-22 -13 -40 -35q-19 24 -40 36l-238 144q-33 18 -62 18q-39 0 -69.5 -23t-40.5 -61l-35 -177q-2 -8 -3 -18t-1 -15v-6 h-111v-100zM100 0h400v400h-400v-400zM200 900q-3 0 14 48t36 96l18 47l213 -191h-281zM700 0v400h400v-400h-400zM731 900l202 197q5 -12 12 -32.5t23 -64t25 -72t7 -28.5h-269z" />
+<glyph unicode="&#xe103;" d="M0 -22v143l216 193q-9 53 -13 83t-5.5 94t9 113t38.5 114t74 124q47 60 99.5 102.5t103 68t127.5 48t145.5 37.5t184.5 43.5t220 58.5q0 -189 -22 -343t-59 -258t-89 -181.5t-108.5 -120t-122 -68t-125.5 -30t-121.5 -1.5t-107.5 12.5t-87.5 17t-56.5 7.5l-99 -55z M238.5 300.5q19.5 -6.5 86.5 76.5q55 66 367 234q70 38 118.5 69.5t102 79t99 111.5t86.5 148q22 50 24 60t-6 19q-7 5 -17 5t-26.5 -14.5t-33.5 -39.5q-35 -51 -113.5 -108.5t-139.5 -89.5l-61 -32q-369 -197 -458 -401q-48 -111 -28.5 -117.5z" />
+<glyph unicode="&#xe104;" d="M111 408q0 -33 5 -63q9 -56 44 -119.5t105 -108.5q31 -21 64 -16t62 23.5t57 49.5t48 61.5t35 60.5q32 66 39 184.5t-13 157.5q79 -80 122 -164t26 -184q-5 -33 -20.5 -69.5t-37.5 -80.5q-10 -19 -14.5 -29t-12 -26t-9 -23.5t-3 -19t2.5 -15.5t11 -9.5t19.5 -5t30.5 2.5 t42 8q57 20 91 34t87.5 44.5t87 64t65.5 88.5t47 122q38 172 -44.5 341.5t-246.5 278.5q22 -44 43 -129q39 -159 -32 -154q-15 2 -33 9q-79 33 -120.5 100t-44 175.5t48.5 257.5q-13 -8 -34 -23.5t-72.5 -66.5t-88.5 -105.5t-60 -138t-8 -166.5q2 -12 8 -41.5t8 -43t6 -39.5 t3.5 -39.5t-1 -33.5t-6 -31.5t-13.5 -24t-21 -20.5t-31 -12q-38 -10 -67 13t-40.5 61.5t-15 81.5t10.5 75q-52 -46 -83.5 -101t-39 -107t-7.5 -85z" />
+<glyph unicode="&#xe105;" d="M-61 600l26 40q6 10 20 30t49 63.5t74.5 85.5t97 90t116.5 83.5t132.5 59t145.5 23.5t145.5 -23.5t132.5 -59t116.5 -83.5t97 -90t74.5 -85.5t49 -63.5t20 -30l26 -40l-26 -40q-6 -10 -20 -30t-49 -63.5t-74.5 -85.5t-97 -90t-116.5 -83.5t-132.5 -59t-145.5 -23.5 t-145.5 23.5t-132.5 59t-116.5 83.5t-97 90t-74.5 85.5t-49 63.5t-20 30zM120 600q7 -10 40.5 -58t56 -78.5t68 -77.5t87.5 -75t103 -49.5t125 -21.5t123.5 20t100.5 45.5t85.5 71.5t66.5 75.5t58 81.5t47 66q-1 1 -28.5 37.5t-42 55t-43.5 53t-57.5 63.5t-58.5 54 q49 -74 49 -163q0 -124 -88 -212t-212 -88t-212 88t-88 212q0 85 46 158q-102 -87 -226 -258zM377 656q49 -124 154 -191l105 105q-37 24 -75 72t-57 84l-20 36z" />
+<glyph unicode="&#xe106;" d="M-61 600l26 40q6 10 20 30t49 63.5t74.5 85.5t97 90t116.5 83.5t132.5 59t145.5 23.5q61 0 121 -17l37 142h148l-314 -1200h-148l37 143q-82 21 -165 71.5t-140 102t-109.5 112t-72 88.5t-29.5 43zM120 600q210 -282 393 -336l37 141q-107 18 -178.5 101.5t-71.5 193.5 q0 85 46 158q-102 -87 -226 -258zM377 656q49 -124 154 -191l47 47l23 87q-30 28 -59 69t-44 68l-14 26zM780 161l38 145q22 15 44.5 34t46 44t40.5 44t41 50.5t33.5 43.5t33 44t24.5 34q-97 127 -140 175l39 146q67 -54 131.5 -125.5t87.5 -103.5t36 -52l26 -40l-26 -40 q-7 -12 -25.5 -38t-63.5 -79.5t-95.5 -102.5t-124 -100t-146.5 -79z" />
+<glyph unicode="&#xe107;" d="M-97.5 34q13.5 -34 50.5 -34h1294q37 0 50.5 35.5t-7.5 67.5l-642 1056q-20 34 -48 36.5t-48 -29.5l-642 -1066q-21 -32 -7.5 -66zM155 200l445 723l445 -723h-345v100h-200v-100h-345zM500 600l100 -300l100 300v100h-200v-100z" />
+<glyph unicode="&#xe108;" d="M100 262v41q0 20 11 44.5t26 38.5l363 325v339q0 62 44 106t106 44t106 -44t44 -106v-339l363 -325q15 -14 26 -38.5t11 -44.5v-41q0 -20 -12 -26.5t-29 5.5l-359 249v-263q100 -91 100 -113v-64q0 -20 -13 -28.5t-32 0.5l-94 78h-222l-94 -78q-19 -9 -32 -0.5t-13 28.5 v64q0 22 100 113v263l-359 -249q-17 -12 -29 -5.5t-12 26.5z" />
+<glyph unicode="&#xe109;" d="M0 50q0 -20 14.5 -35t35.5 -15h1000q21 0 35.5 15t14.5 35v750h-1100v-750zM0 900h1100v150q0 21 -14.5 35.5t-35.5 14.5h-150v100h-100v-100h-500v100h-100v-100h-150q-21 0 -35.5 -14.5t-14.5 -35.5v-150zM100 100v100h100v-100h-100zM100 300v100h100v-100h-100z M100 500v100h100v-100h-100zM300 100v100h100v-100h-100zM300 300v100h100v-100h-100zM300 500v100h100v-100h-100zM500 100v100h100v-100h-100zM500 300v100h100v-100h-100zM500 500v100h100v-100h-100zM700 100v100h100v-100h-100zM700 300v100h100v-100h-100zM700 500 v100h100v-100h-100zM900 100v100h100v-100h-100zM900 300v100h100v-100h-100zM900 500v100h100v-100h-100z" />
+<glyph unicode="&#xe110;" d="M0 200v200h259l600 600h241v198l300 -295l-300 -300v197h-159l-600 -600h-341zM0 800h259l122 -122l141 142l-181 180h-341v-200zM678 381l141 142l122 -123h159v198l300 -295l-300 -300v197h-241z" />
+<glyph unicode="&#xe111;" d="M0 400v600q0 41 29.5 70.5t70.5 29.5h1000q41 0 70.5 -29.5t29.5 -70.5v-600q0 -41 -29.5 -70.5t-70.5 -29.5h-596l-304 -300v300h-100q-41 0 -70.5 29.5t-29.5 70.5z" />
+<glyph unicode="&#xe112;" d="M100 600v200h300v-250q0 -113 6 -145q17 -92 102 -117q39 -11 92 -11q37 0 66.5 5.5t50 15.5t36 24t24 31.5t14 37.5t7 42t2.5 45t0 47v25v250h300v-200q0 -42 -3 -83t-15 -104t-31.5 -116t-58 -109.5t-89 -96.5t-129 -65.5t-174.5 -25.5t-174.5 25.5t-129 65.5t-89 96.5 t-58 109.5t-31.5 116t-15 104t-3 83zM100 900v300h300v-300h-300zM800 900v300h300v-300h-300z" />
+<glyph unicode="&#xe113;" d="M-30 411l227 -227l352 353l353 -353l226 227l-578 579z" />
+<glyph unicode="&#xe114;" d="M70 797l580 -579l578 579l-226 227l-353 -353l-352 353z" />
+<glyph unicode="&#xe115;" d="M-198 700l299 283l300 -283h-203v-400h385l215 -200h-800v600h-196zM402 1000l215 -200h381v-400h-198l299 -283l299 283h-200v600h-796z" />
+<glyph unicode="&#xe116;" d="M18 939q-5 24 10 42q14 19 39 19h896l38 162q5 17 18.5 27.5t30.5 10.5h94q20 0 35 -14.5t15 -35.5t-15 -35.5t-35 -14.5h-54l-201 -961q-2 -4 -6 -10.5t-19 -17.5t-33 -11h-31v-50q0 -20 -14.5 -35t-35.5 -15t-35.5 15t-14.5 35v50h-300v-50q0 -20 -14.5 -35t-35.5 -15 t-35.5 15t-14.5 35v50h-50q-21 0 -35.5 15t-14.5 35q0 21 14.5 35.5t35.5 14.5h535l48 200h-633q-32 0 -54.5 21t-27.5 43z" />
+<glyph unicode="&#xe117;" d="M0 0v800h1200v-800h-1200zM0 900v100h200q0 41 29.5 70.5t70.5 29.5h300q41 0 70.5 -29.5t29.5 -70.5h500v-100h-1200z" />
+<glyph unicode="&#xe118;" d="M1 0l300 700h1200l-300 -700h-1200zM1 400v600h200q0 41 29.5 70.5t70.5 29.5h300q41 0 70.5 -29.5t29.5 -70.5h500v-200h-1000z" />
+<glyph unicode="&#xe119;" d="M302 300h198v600h-198l298 300l298 -300h-198v-600h198l-298 -300z" />
+<glyph unicode="&#xe120;" d="M0 600l300 298v-198h600v198l300 -298l-300 -297v197h-600v-197z" />
+<glyph unicode="&#xe121;" d="M0 100v100q0 41 29.5 70.5t70.5 29.5h1000q41 0 70.5 -29.5t29.5 -70.5v-100q0 -41 -29.5 -70.5t-70.5 -29.5h-1000q-41 0 -70.5 29.5t-29.5 70.5zM31 400l172 739q5 22 23 41.5t38 19.5h672q19 0 37.5 -22.5t23.5 -45.5l172 -732h-1138zM800 100h100v100h-100v-100z M1000 100h100v100h-100v-100z" />
+<glyph unicode="&#xe122;" d="M-101 600v50q0 24 25 49t50 38l25 13v-250l-11 5.5t-24 14t-30 21.5t-24 27.5t-11 31.5zM100 500v250v8v8v7t0.5 7t1.5 5.5t2 5t3 4t4.5 3.5t6 1.5t7.5 0.5h200l675 250v-850l-675 200h-38l47 -276q2 -12 -3 -17.5t-11 -6t-21 -0.5h-8h-83q-20 0 -34.5 14t-18.5 35 q-55 337 -55 351zM1100 200v850q0 21 14.5 35.5t35.5 14.5q20 0 35 -14.5t15 -35.5v-850q0 -20 -15 -35t-35 -15q-21 0 -35.5 15t-14.5 35z" />
+<glyph unicode="&#xe123;" d="M74 350q0 21 13.5 35.5t33.5 14.5h18l117 173l63 327q15 77 76 140t144 83l-18 32q-6 19 3 32t29 13h94q20 0 29 -10.5t3 -29.5q-18 -36 -18 -37q83 -19 144 -82.5t76 -140.5l63 -327l118 -173h17q20 0 33.5 -14.5t13.5 -35.5q0 -20 -13 -40t-31 -27q-8 -3 -23 -8.5 t-65 -20t-103 -25t-132.5 -19.5t-158.5 -9q-125 0 -245.5 20.5t-178.5 40.5l-58 20q-18 7 -31 27.5t-13 40.5zM497 110q12 -49 40 -79.5t63 -30.5t63 30.5t39 79.5q-48 -6 -102 -6t-103 6z" />
+<glyph unicode="&#xe124;" d="M21 445l233 -45l-78 -224l224 78l45 -233l155 179l155 -179l45 233l224 -78l-78 224l234 45l-180 155l180 156l-234 44l78 225l-224 -78l-45 233l-155 -180l-155 180l-45 -233l-224 78l78 -225l-233 -44l179 -156z" />
+<glyph unicode="&#xe125;" d="M0 200h200v600h-200v-600zM300 275q0 -75 100 -75h61q124 -100 139 -100h250q46 0 83 57l238 344q29 31 29 74v100q0 44 -30.5 84.5t-69.5 40.5h-328q28 118 28 125v150q0 44 -30.5 84.5t-69.5 40.5h-50q-27 0 -51 -20t-38 -48l-96 -198l-145 -196q-20 -26 -20 -63v-400z M400 300v375l150 213l100 212h50v-175l-50 -225h450v-125l-250 -375h-214l-136 100h-100z" />
+<glyph unicode="&#xe126;" d="M0 400v600h200v-600h-200zM300 525v400q0 75 100 75h61q124 100 139 100h250q46 0 83 -57l238 -344q29 -31 29 -74v-100q0 -44 -30.5 -84.5t-69.5 -40.5h-328q28 -118 28 -125v-150q0 -44 -30.5 -84.5t-69.5 -40.5h-50q-27 0 -51 20t-38 48l-96 198l-145 196 q-20 26 -20 63zM400 525l150 -212l100 -213h50v175l-50 225h450v125l-250 375h-214l-136 -100h-100v-375z" />
+<glyph unicode="&#xe127;" d="M8 200v600h200v-600h-200zM308 275v525q0 17 14 35.5t28 28.5l14 9l362 230q14 6 25 6q17 0 29 -12l109 -112q14 -14 14 -34q0 -18 -11 -32l-85 -121h302q85 0 138.5 -38t53.5 -110t-54.5 -111t-138.5 -39h-107l-130 -339q-7 -22 -20.5 -41.5t-28.5 -19.5h-341 q-7 0 -90 81t-83 94zM408 289l100 -89h293l131 339q6 21 19.5 41t28.5 20h203q16 0 25 15t9 36q0 20 -9 34.5t-25 14.5h-457h-6.5h-7.5t-6.5 0.5t-6 1t-5 1.5t-5.5 2.5t-4 4t-4 5.5q-5 12 -5 20q0 14 10 27l147 183l-86 83l-339 -236v-503z" />
+<glyph unicode="&#xe128;" d="M-101 651q0 72 54 110t139 38l302 -1l-85 121q-11 16 -11 32q0 21 14 34l109 113q13 12 29 12q11 0 25 -6l365 -230q7 -4 17 -10.5t26.5 -26t16.5 -36.5v-526q0 -13 -86 -93.5t-94 -80.5h-341q-16 0 -29.5 20t-19.5 41l-130 339h-107q-84 0 -139 39t-55 111zM-1 601h222 q15 0 28.5 -20.5t19.5 -40.5l131 -339h293l107 89v502l-343 237l-87 -83l145 -184q10 -11 10 -26q0 -11 -5 -20q-1 -3 -3.5 -5.5l-4 -4t-5 -2.5t-5.5 -1.5t-6.5 -1t-6.5 -0.5h-7.5h-6.5h-476v-100zM1000 201v600h200v-600h-200z" />
+<glyph unicode="&#xe129;" d="M97 719l230 -363q4 -6 10.5 -15.5t26 -25t36.5 -15.5h525q13 0 94 83t81 90v342q0 15 -20 28.5t-41 19.5l-339 131v106q0 84 -39 139t-111 55t-110 -53.5t-38 -138.5v-302l-121 84q-15 12 -33.5 11.5t-32.5 -13.5l-112 -110q-22 -22 -6 -53zM172 739l83 86l183 -146 q22 -18 47 -5q3 1 5.5 3.5l4 4t2.5 5t1.5 5.5t1 6.5t0.5 6.5v7.5v6.5v456q0 22 25 31t50 -0.5t25 -30.5v-202q0 -16 20 -29.5t41 -19.5l339 -130v-294l-89 -100h-503zM400 0v200h600v-200h-600z" />
+<glyph unicode="&#xe130;" d="M2 585q-16 -31 6 -53l112 -110q13 -13 32 -13.5t34 10.5l121 85q0 -51 -0.5 -153.5t-0.5 -148.5q0 -84 38.5 -138t110.5 -54t111 55t39 139v106l339 131q20 6 40.5 19.5t20.5 28.5v342q0 7 -81 90t-94 83h-525q-17 0 -35.5 -14t-28.5 -28l-10 -15zM77 565l236 339h503 l89 -100v-294l-340 -130q-20 -6 -40 -20t-20 -29v-202q0 -22 -25 -31t-50 0t-25 31v456v14.5t-1.5 11.5t-5 12t-9.5 7q-24 13 -46 -5l-184 -146zM305 1104v200h600v-200h-600z" />
+<glyph unicode="&#xe131;" d="M5 597q0 122 47.5 232.5t127.5 190.5t190.5 127.5t232.5 47.5q162 0 299.5 -80t217.5 -218t80 -300t-80 -299.5t-217.5 -217.5t-299.5 -80t-300 80t-218 217.5t-80 299.5zM298 701l2 -201h300l-2 -194l402 294l-402 298v-197h-300z" />
+<glyph unicode="&#xe132;" d="M0 597q0 122 47.5 232.5t127.5 190.5t190.5 127.5t231.5 47.5q122 0 232.5 -47.5t190.5 -127.5t127.5 -190.5t47.5 -232.5q0 -162 -80 -299.5t-218 -217.5t-300 -80t-299.5 80t-217.5 217.5t-80 299.5zM200 600l402 -294l-2 194h300l2 201h-300v197z" />
+<glyph unicode="&#xe133;" d="M5 597q0 122 47.5 232.5t127.5 190.5t190.5 127.5t232.5 47.5q162 0 299.5 -80t217.5 -218t80 -300t-80 -299.5t-217.5 -217.5t-299.5 -80t-300 80t-218 217.5t-80 299.5zM300 600h200v-300h200v300h200l-300 400z" />
+<glyph unicode="&#xe134;" d="M5 597q0 122 47.5 232.5t127.5 190.5t190.5 127.5t232.5 47.5q162 0 299.5 -80t217.5 -218t80 -300t-80 -299.5t-217.5 -217.5t-299.5 -80t-300 80t-218 217.5t-80 299.5zM300 600l300 -400l300 400h-200v300h-200v-300h-200z" />
+<glyph unicode="&#xe135;" d="M5 597q0 122 47.5 232.5t127.5 190.5t190.5 127.5t232.5 47.5q121 0 231.5 -47.5t190.5 -127.5t127.5 -190.5t47.5 -232.5q0 -162 -80 -299.5t-217.5 -217.5t-299.5 -80t-300 80t-218 217.5t-80 299.5zM254 780q-8 -33 5.5 -92.5t7.5 -87.5q0 -9 17 -44t16 -60 q12 0 23 -5.5t23 -15t20 -13.5q24 -12 108 -42q22 -8 53 -31.5t59.5 -38.5t57.5 -11q8 -18 -15 -55t-20 -57q42 -71 87 -80q0 -6 -3 -15.5t-3.5 -14.5t4.5 -17q104 -3 221 112q30 29 47 47t34.5 49t20.5 62q-14 9 -37 9.5t-36 7.5q-14 7 -49 15t-52 19q-9 0 -39.5 -0.5 t-46.5 -1.5t-39 -6.5t-39 -16.5q-50 -35 -66 -12q-4 2 -3.5 25.5t0.5 25.5q-6 13 -26.5 17t-24.5 7q2 22 -2 41t-16.5 28t-38.5 -20q-23 -25 -42 4q-19 28 -8 58q6 16 22 22q6 -1 26 -1.5t33.5 -4t19.5 -13.5q12 -19 32 -37.5t34 -27.5l14 -8q0 3 9.5 39.5t5.5 57.5 q-4 23 14.5 44.5t22.5 31.5q5 14 10 35t8.5 31t15.5 22.5t34 21.5q-6 18 10 37q8 0 23.5 -1.5t24.5 -1.5t20.5 4.5t20.5 15.5q-10 23 -30.5 42.5t-38 30t-49 26.5t-43.5 23q11 39 2 44q31 -13 58 -14.5t39 3.5l11 4q7 36 -16.5 53.5t-64.5 28.5t-56 23q-19 -3 -37 0 q-15 -12 -36.5 -21t-34.5 -12t-44 -8t-39 -6q-15 -3 -45.5 0.5t-45.5 -2.5q-21 -7 -52 -26.5t-34 -34.5q-3 -11 6.5 -22.5t8.5 -18.5q-3 -34 -27.5 -90.5t-29.5 -79.5zM518 916q3 12 16 30t16 25q10 -10 18.5 -10t14 6t14.5 14.5t16 12.5q0 -24 17 -66.5t17 -43.5 q-9 2 -31 5t-36 5t-32 8t-30 14zM692 1003h1h-1z" />
+<glyph unicode="&#xe136;" d="M0 164.5q0 21.5 15 37.5l600 599q-33 101 6 201.5t135 154.5q164 92 306 -9l-259 -138l145 -232l251 126q13 -175 -151 -267q-123 -70 -253 -23l-596 -596q-15 -16 -36.5 -16t-36.5 16l-111 110q-15 15 -15 36.5z" />
+<glyph unicode="&#xe137;" horiz-adv-x="1220" d="M0 196v100q0 41 29.5 70.5t70.5 29.5h1000q41 0 70.5 -29.5t29.5 -70.5v-100q0 -41 -29.5 -70.5t-70.5 -29.5h-1000q-41 0 -70.5 29.5t-29.5 70.5zM0 596v100q0 41 29.5 70.5t70.5 29.5h1000q41 0 70.5 -29.5t29.5 -70.5v-100q0 -41 -29.5 -70.5t-70.5 -29.5h-1000 q-41 0 -70.5 29.5t-29.5 70.5zM0 996v100q0 41 29.5 70.5t70.5 29.5h1000q41 0 70.5 -29.5t29.5 -70.5v-100q0 -41 -29.5 -70.5t-70.5 -29.5h-1000q-41 0 -70.5 29.5t-29.5 70.5zM600 596h500v100h-500v-100zM800 196h300v100h-300v-100zM900 996h200v100h-200v-100z" />
+<glyph unicode="&#xe138;" d="M100 1100v100h1000v-100h-1000zM150 1000h900l-350 -500v-300l-200 -200v500z" />
+<glyph unicode="&#xe139;" d="M0 200v200h1200v-200q0 -41 -29.5 -70.5t-70.5 -29.5h-1000q-41 0 -70.5 29.5t-29.5 70.5zM0 500v400q0 41 29.5 70.5t70.5 29.5h300v100q0 41 29.5 70.5t70.5 29.5h200q41 0 70.5 -29.5t29.5 -70.5v-100h300q41 0 70.5 -29.5t29.5 -70.5v-400h-500v100h-200v-100h-500z M500 1000h200v100h-200v-100z" />
+<glyph unicode="&#xe140;" d="M0 0v400l129 -129l200 200l142 -142l-200 -200l129 -129h-400zM0 800l129 129l200 -200l142 142l-200 200l129 129h-400v-400zM729 329l142 142l200 -200l129 129v-400h-400l129 129zM729 871l200 200l-129 129h400v-400l-129 129l-200 -200z" />
+<glyph unicode="&#xe141;" d="M0 596q0 162 80 299t217 217t299 80t299 -80t217 -217t80 -299t-80 -299t-217 -217t-299 -80t-299 80t-217 217t-80 299zM182 596q0 -172 121.5 -293t292.5 -121t292.5 121t121.5 293q0 171 -121.5 292.5t-292.5 121.5t-292.5 -121.5t-121.5 -292.5zM291 655 q0 23 15.5 38.5t38.5 15.5t39 -16t16 -38q0 -23 -16 -39t-39 -16q-22 0 -38 16t-16 39zM400 850q0 22 16 38.5t39 16.5q22 0 38 -16t16 -39t-16 -39t-38 -16q-23 0 -39 16.5t-16 38.5zM514 609q0 32 20.5 56.5t51.5 29.5l122 126l1 1q-9 14 -9 28q0 22 16 38.5t39 16.5 q22 0 38 -16t16 -39t-16 -39t-38 -16q-14 0 -29 10l-55 -145q17 -22 17 -51q0 -36 -25.5 -61.5t-61.5 -25.5t-61.5 25.5t-25.5 61.5zM800 655q0 22 16 38t39 16t38.5 -15.5t15.5 -38.5t-16 -39t-38 -16q-23 0 -39 16t-16 39z" />
+<glyph unicode="&#xe142;" d="M-40 375q-13 -95 35 -173q35 -57 94 -89t129 -32q63 0 119 28q33 16 65 40.5t52.5 45.5t59.5 64q40 44 57 61l394 394q35 35 47 84t-3 96q-27 87 -117 104q-20 2 -29 2q-46 0 -78.5 -16.5t-67.5 -51.5l-389 -396l-7 -7l69 -67l377 373q20 22 39 38q23 23 50 23 q38 0 53 -36q16 -39 -20 -75l-547 -547q-52 -52 -125 -52q-55 0 -100 33t-54 96q-5 35 2.5 66t31.5 63t42 50t56 54q24 21 44 41l348 348q52 52 82.5 79.5t84 54t107.5 26.5q25 0 48 -4q95 -17 154 -94.5t51 -175.5q-7 -101 -98 -192l-252 -249l-253 -256l7 -7l69 -60 l517 511q67 67 95 157t11 183q-16 87 -67 154t-130 103q-69 33 -152 33q-107 0 -197 -55q-40 -24 -111 -95l-512 -512q-68 -68 -81 -163z" />
+<glyph unicode="&#xe143;" d="M80 784q0 131 98.5 229.5t230.5 98.5q143 0 241 -129q103 129 246 129q129 0 226 -98.5t97 -229.5q0 -46 -17.5 -91t-61 -99t-77 -89.5t-104.5 -105.5q-197 -191 -293 -322l-17 -23l-16 23q-43 58 -100 122.5t-92 99.5t-101 100q-71 70 -104.5 105.5t-77 89.5t-61 99 t-17.5 91zM250 784q0 -27 30.5 -70t61.5 -75.5t95 -94.5l22 -22q93 -90 190 -201q82 92 195 203l12 12q64 62 97.5 97t64.5 79t31 72q0 71 -48 119.5t-105 48.5q-74 0 -132 -83l-118 -171l-114 174q-51 80 -123 80q-60 0 -109.5 -49.5t-49.5 -118.5z" />
+<glyph unicode="&#xe144;" d="M57 353q0 -95 66 -159l141 -142q68 -66 159 -66q93 0 159 66l283 283q66 66 66 159t-66 159l-141 141q-8 9 -19 17l-105 -105l212 -212l-389 -389l-247 248l95 95l-18 18q-46 45 -75 101l-55 -55q-66 -66 -66 -159zM269 706q0 -93 66 -159l141 -141q7 -7 19 -17l105 105 l-212 212l389 389l247 -247l-95 -96l18 -17q47 -49 77 -100l29 29q35 35 62.5 88t27.5 96q0 93 -66 159l-141 141q-66 66 -159 66q-95 0 -159 -66l-283 -283q-66 -64 -66 -159z" />
+<glyph unicode="&#xe145;" d="M200 100v953q0 21 30 46t81 48t129 38t163 15t162 -15t127 -38t79 -48t29 -46v-953q0 -41 -29.5 -70.5t-70.5 -29.5h-600q-41 0 -70.5 29.5t-29.5 70.5zM300 300h600v700h-600v-700zM496 150q0 -43 30.5 -73.5t73.5 -30.5t73.5 30.5t30.5 73.5t-30.5 73.5t-73.5 30.5 t-73.5 -30.5t-30.5 -73.5z" />
+<glyph unicode="&#xe146;" d="M0 0l303 380l207 208l-210 212h300l267 279l-35 36q-15 14 -15 35t15 35q14 15 35 15t35 -15l283 -282q15 -15 15 -36t-15 -35q-14 -15 -35 -15t-35 15l-36 35l-279 -267v-300l-212 210l-208 -207z" />
+<glyph unicode="&#xe148;" d="M295 433h139q5 -77 48.5 -126.5t117.5 -64.5v335q-6 1 -15.5 4t-11.5 3q-46 14 -79 26.5t-72 36t-62.5 52t-40 72.5t-16.5 99q0 92 44 159.5t109 101t144 40.5v78h100v-79q38 -4 72.5 -13.5t75.5 -31.5t71 -53.5t51.5 -84t24.5 -118.5h-159q-8 72 -35 109.5t-101 50.5 v-307l64 -14q34 -7 64 -16.5t70 -31.5t67.5 -52t47.5 -80.5t20 -112.5q0 -139 -89 -224t-244 -96v-77h-100v78q-152 17 -237 104q-40 40 -52.5 93.5t-15.5 139.5zM466 889q0 -29 8 -51t16.5 -34t29.5 -22.5t31 -13.5t38 -10q7 -2 11 -3v274q-61 -8 -97.5 -37.5t-36.5 -102.5 zM700 237q170 18 170 151q0 64 -44 99.5t-126 60.5v-311z" />
+<glyph unicode="&#xe149;" d="M100 600v100h166q-24 49 -44 104q-10 26 -14.5 55.5t-3 72.5t25 90t68.5 87q97 88 263 88q129 0 230 -89t101 -208h-153q0 52 -34 89.5t-74 51.5t-76 14q-37 0 -79 -14.5t-62 -35.5q-41 -44 -41 -101q0 -28 16.5 -69.5t28 -62.5t41.5 -72h241v-100h-197q8 -50 -2.5 -115 t-31.5 -94q-41 -59 -99 -113q35 11 84 18t70 7q33 1 103 -16t103 -17q76 0 136 30l50 -147q-41 -25 -80.5 -36.5t-59 -13t-61.5 -1.5q-23 0 -128 33t-155 29q-39 -4 -82 -17t-66 -25l-24 -11l-55 145l16.5 11t15.5 10t13.5 9.5t14.5 12t14.5 14t17.5 18.5q48 55 54 126.5 t-30 142.5h-221z" />
+<glyph unicode="&#xe150;" d="M2 300l298 -300l298 300h-198v900h-200v-900h-198zM602 900l298 300l298 -300h-198v-900h-200v900h-198z" />
+<glyph unicode="&#xe151;" d="M2 300h198v900h200v-900h198l-298 -300zM700 0v200h100v-100h200v-100h-300zM700 400v100h300v-200h-99v-100h-100v100h99v100h-200zM700 700v500h300v-500h-100v100h-100v-100h-100zM801 900h100v200h-100v-200z" />
+<glyph unicode="&#xe152;" d="M2 300h198v900h200v-900h198l-298 -300zM700 0v500h300v-500h-100v100h-100v-100h-100zM700 700v200h100v-100h200v-100h-300zM700 1100v100h300v-200h-99v-100h-100v100h99v100h-200zM801 200h100v200h-100v-200z" />
+<glyph unicode="&#xe153;" d="M2 300l298 -300l298 300h-198v900h-200v-900h-198zM800 100v400h300v-500h-100v100h-200zM800 1100v100h200v-500h-100v400h-100zM901 200h100v200h-100v-200z" />
+<glyph unicode="&#xe154;" d="M2 300l298 -300l298 300h-198v900h-200v-900h-198zM800 400v100h200v-500h-100v400h-100zM800 800v400h300v-500h-100v100h-200zM901 900h100v200h-100v-200z" />
+<glyph unicode="&#xe155;" d="M2 300l298 -300l298 300h-198v900h-200v-900h-198zM700 100v200h500v-200h-500zM700 400v200h400v-200h-400zM700 700v200h300v-200h-300zM700 1000v200h200v-200h-200z" />
+<glyph unicode="&#xe156;" d="M2 300l298 -300l298 300h-198v900h-200v-900h-198zM700 100v200h200v-200h-200zM700 400v200h300v-200h-300zM700 700v200h400v-200h-400zM700 1000v200h500v-200h-500z" />
+<glyph unicode="&#xe157;" d="M0 400v300q0 165 117.5 282.5t282.5 117.5h300q162 0 281 -118.5t119 -281.5v-300q0 -165 -118.5 -282.5t-281.5 -117.5h-300q-165 0 -282.5 117.5t-117.5 282.5zM200 300q0 -41 29.5 -70.5t70.5 -29.5h500q41 0 70.5 29.5t29.5 70.5v500q0 41 -29.5 70.5t-70.5 29.5 h-500q-41 0 -70.5 -29.5t-29.5 -70.5v-500z" />
+<glyph unicode="&#xe158;" d="M0 400v300q0 163 119 281.5t281 118.5h300q165 0 282.5 -117.5t117.5 -282.5v-300q0 -165 -117.5 -282.5t-282.5 -117.5h-300q-163 0 -281.5 117.5t-118.5 282.5zM200 300q0 -41 29.5 -70.5t70.5 -29.5h500q41 0 70.5 29.5t29.5 70.5v500q0 41 -29.5 70.5t-70.5 29.5 h-500q-41 0 -70.5 -29.5t-29.5 -70.5v-500zM400 300l333 250l-333 250v-500z" />
+<glyph unicode="&#xe159;" d="M0 400v300q0 163 117.5 281.5t282.5 118.5h300q163 0 281.5 -119t118.5 -281v-300q0 -165 -117.5 -282.5t-282.5 -117.5h-300q-165 0 -282.5 117.5t-117.5 282.5zM200 300q0 -41 29.5 -70.5t70.5 -29.5h500q41 0 70.5 29.5t29.5 70.5v500q0 41 -29.5 70.5t-70.5 29.5 h-500q-41 0 -70.5 -29.5t-29.5 -70.5v-500zM300 700l250 -333l250 333h-500z" />
+<glyph unicode="&#xe160;" d="M0 400v300q0 165 117.5 282.5t282.5 117.5h300q165 0 282.5 -117.5t117.5 -282.5v-300q0 -162 -118.5 -281t-281.5 -119h-300q-165 0 -282.5 118.5t-117.5 281.5zM200 300q0 -41 29.5 -70.5t70.5 -29.5h500q41 0 70.5 29.5t29.5 70.5v500q0 41 -29.5 70.5t-70.5 29.5 h-500q-41 0 -70.5 -29.5t-29.5 -70.5v-500zM300 400h500l-250 333z" />
+<glyph unicode="&#xe161;" d="M0 400v300h300v200l400 -350l-400 -350v200h-300zM500 0v200h500q41 0 70.5 29.5t29.5 70.5v500q0 41 -29.5 70.5t-70.5 29.5h-500v200h400q165 0 282.5 -117.5t117.5 -282.5v-300q0 -165 -117.5 -282.5t-282.5 -117.5h-400z" />
+<glyph unicode="&#xe162;" d="M217 519q8 -19 31 -19h302q-155 -438 -160 -458q-5 -21 4 -32l9 -8h9q14 0 26 15q11 13 274.5 321.5t264.5 308.5q14 19 5 36q-8 17 -31 17l-301 -1q1 4 78 219.5t79 227.5q2 15 -5 27l-9 9h-9q-15 0 -25 -16q-4 -6 -98 -111.5t-228.5 -257t-209.5 -237.5q-16 -19 -6 -41 z" />
+<glyph unicode="&#xe163;" d="M0 400q0 -165 117.5 -282.5t282.5 -117.5h300q47 0 100 15v185h-500q-41 0 -70.5 29.5t-29.5 70.5v500q0 41 29.5 70.5t70.5 29.5h500v185q-14 4 -114 7.5t-193 5.5l-93 2q-165 0 -282.5 -117.5t-117.5 -282.5v-300zM600 400v300h300v200l400 -350l-400 -350v200h-300z " />
+<glyph unicode="&#xe164;" d="M0 400q0 -165 117.5 -282.5t282.5 -117.5h300q163 0 281.5 117.5t118.5 282.5v98l-78 73l-122 -123v-148q0 -41 -29.5 -70.5t-70.5 -29.5h-500q-41 0 -70.5 29.5t-29.5 70.5v500q0 41 29.5 70.5t70.5 29.5h156l118 122l-74 78h-100q-165 0 -282.5 -117.5t-117.5 -282.5 v-300zM496 709l353 342l-149 149h500v-500l-149 149l-342 -353z" />
+<glyph unicode="&#xe165;" d="M4 600q0 162 80 299t217 217t299 80t299 -80t217 -217t80 -299t-80 -299t-217 -217t-299 -80t-299 80t-217 217t-80 299zM186 600q0 -171 121.5 -292.5t292.5 -121.5t292.5 121.5t121.5 292.5t-121.5 292.5t-292.5 121.5t-292.5 -121.5t-121.5 -292.5zM406 600 q0 80 57 137t137 57t137 -57t57 -137t-57 -137t-137 -57t-137 57t-57 137z" />
+<glyph unicode="&#xe166;" d="M0 0v275q0 11 7 18t18 7h1048q11 0 19 -7.5t8 -17.5v-275h-1100zM100 800l445 -500l450 500h-295v400h-300v-400h-300zM900 150h100v50h-100v-50z" />
+<glyph unicode="&#xe167;" d="M0 0v275q0 11 7 18t18 7h1048q11 0 19 -7.5t8 -17.5v-275h-1100zM100 700h300v-300h300v300h295l-445 500zM900 150h100v50h-100v-50z" />
+<glyph unicode="&#xe168;" d="M0 0v275q0 11 7 18t18 7h1048q11 0 19 -7.5t8 -17.5v-275h-1100zM100 705l305 -305l596 596l-154 155l-442 -442l-150 151zM900 150h100v50h-100v-50z" />
+<glyph unicode="&#xe169;" d="M0 0v275q0 11 7 18t18 7h1048q11 0 19 -7.5t8 -17.5v-275h-1100zM100 988l97 -98l212 213l-97 97zM200 400l697 1l3 699l-250 -239l-149 149l-212 -212l149 -149zM900 150h100v50h-100v-50z" />
+<glyph unicode="&#xe170;" d="M0 0v275q0 11 7 18t18 7h1048q11 0 19 -7.5t8 -17.5v-275h-1100zM200 612l212 -212l98 97l-213 212zM300 1200l239 -250l-149 -149l212 -212l149 148l249 -237l-1 697zM900 150h100v50h-100v-50z" />
+<glyph unicode="&#xe171;" d="M23 415l1177 784v-1079l-475 272l-310 -393v416h-392zM494 210l672 938l-672 -712v-226z" />
+<glyph unicode="&#xe172;" d="M0 150v1000q0 20 14.5 35t35.5 15h250v-300h500v300h100l200 -200v-850q0 -21 -15 -35.5t-35 -14.5h-150v400h-700v-400h-150q-21 0 -35.5 14.5t-14.5 35.5zM600 1000h100v200h-100v-200z" />
+<glyph unicode="&#xe173;" d="M0 150v1000q0 20 14.5 35t35.5 15h250v-300h500v300h100l200 -200v-218l-276 -275l-120 120l-126 -127h-378v-400h-150q-21 0 -35.5 14.5t-14.5 35.5zM581 306l123 123l120 -120l353 352l123 -123l-475 -476zM600 1000h100v200h-100v-200z" />
+<glyph unicode="&#xe174;" d="M0 150v1000q0 20 14.5 35t35.5 15h250v-300h500v300h100l200 -200v-269l-103 -103l-170 170l-298 -298h-329v-400h-150q-21 0 -35.5 14.5t-14.5 35.5zM600 1000h100v200h-100v-200zM700 133l170 170l-170 170l127 127l170 -170l170 170l127 -128l-170 -169l170 -170 l-127 -127l-170 170l-170 -170z" />
+<glyph unicode="&#xe175;" d="M0 150v1000q0 20 14.5 35t35.5 15h250v-300h500v300h100l200 -200v-300h-400v-200h-500v-400h-150q-21 0 -35.5 14.5t-14.5 35.5zM600 300l300 -300l300 300h-200v300h-200v-300h-200zM600 1000v200h100v-200h-100z" />
+<glyph unicode="&#xe176;" d="M0 150v1000q0 20 14.5 35t35.5 15h250v-300h500v300h100l200 -200v-402l-200 200l-298 -298h-402v-400h-150q-21 0 -35.5 14.5t-14.5 35.5zM600 300h200v-300h200v300h200l-300 300zM600 1000v200h100v-200h-100z" />
+<glyph unicode="&#xe177;" d="M0 250q0 -21 14.5 -35.5t35.5 -14.5h1100q21 0 35.5 14.5t14.5 35.5v550h-1200v-550zM0 900h1200v150q0 21 -14.5 35.5t-35.5 14.5h-1100q-21 0 -35.5 -14.5t-14.5 -35.5v-150zM100 300v200h400v-200h-400z" />
+<glyph unicode="&#xe178;" d="M0 400l300 298v-198h400v-200h-400v-198zM100 800v200h100v-200h-100zM300 800v200h100v-200h-100zM500 800v200h400v198l300 -298l-300 -298v198h-400zM800 300v200h100v-200h-100zM1000 300h100v200h-100v-200z" />
+<glyph unicode="&#xe179;" d="M100 700v400l50 100l50 -100v-300h100v300l50 100l50 -100v-300h100v300l50 100l50 -100v-400l-100 -203v-447q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5v447zM800 597q0 -29 10.5 -55.5t25 -43t29 -28.5t25.5 -18l10 -5v-397q0 -21 14.5 -35.5 t35.5 -14.5h200q21 0 35.5 14.5t14.5 35.5v1106q0 31 -18 40.5t-44 -7.5l-276 -116q-25 -17 -43.5 -51.5t-18.5 -65.5v-359z" />
+<glyph unicode="&#xe180;" d="M100 0h400v56q-75 0 -87.5 6t-12.5 44v394h500v-394q0 -38 -12.5 -44t-87.5 -6v-56h400v56q-4 0 -11 0.5t-24 3t-30 7t-24 15t-11 24.5v888q0 22 25 34.5t50 13.5l25 2v56h-400v-56q75 0 87.5 -6t12.5 -44v-394h-500v394q0 38 12.5 44t87.5 6v56h-400v-56q4 0 11 -0.5 t24 -3t30 -7t24 -15t11 -24.5v-888q0 -22 -25 -34.5t-50 -13.5l-25 -2v-56z" />
+<glyph unicode="&#xe181;" d="M0 300q0 -41 29.5 -70.5t70.5 -29.5h300q41 0 70.5 29.5t29.5 70.5v500q0 41 -29.5 70.5t-70.5 29.5h-300q-41 0 -70.5 -29.5t-29.5 -70.5v-500zM100 100h400l200 200h105l295 98v-298h-425l-100 -100h-375zM100 300v200h300v-200h-300zM100 600v200h300v-200h-300z M100 1000h400l200 -200v-98l295 98h105v200h-425l-100 100h-375zM700 402v163l400 133v-163z" />
+<glyph unicode="&#xe182;" d="M16.5 974.5q0.5 -21.5 16 -90t46.5 -140t104 -177.5t175 -208q103 -103 207.5 -176t180 -103.5t137 -47t92.5 -16.5l31 1l163 162q17 18 13.5 41t-22.5 37l-192 136q-19 14 -45 12t-42 -19l-118 -118q-142 101 -268 227t-227 268l118 118q17 17 20 41.5t-11 44.5 l-139 194q-14 19 -36.5 22t-40.5 -14l-162 -162q-1 -11 -0.5 -32.5z" />
+<glyph unicode="&#xe183;" d="M0 50v212q0 20 10.5 45.5t24.5 39.5l365 303v50q0 4 1 10.5t12 22.5t30 28.5t60 23t97 10.5t97 -10t60 -23.5t30 -27.5t12 -24l1 -10v-50l365 -303q14 -14 24.5 -39.5t10.5 -45.5v-212q0 -21 -14.5 -35.5t-35.5 -14.5h-1100q-20 0 -35 14.5t-15 35.5zM0 712 q0 -21 14.5 -33.5t34.5 -8.5l202 33q20 4 34.5 21t14.5 38v146q141 24 300 24t300 -24v-146q0 -21 14.5 -38t34.5 -21l202 -33q20 -4 34.5 8.5t14.5 33.5v200q-6 8 -19 20.5t-63 45t-112 57t-171 45t-235 20.5q-92 0 -175 -10.5t-141.5 -27t-108.5 -36.5t-81.5 -40 t-53.5 -36.5t-31 -27.5l-9 -10v-200z" />
+<glyph unicode="&#xe184;" d="M100 0v100h1100v-100h-1100zM175 200h950l-125 150v250l100 100v400h-100v-200h-100v200h-200v-200h-100v200h-200v-200h-100v200h-100v-400l100 -100v-250z" />
+<glyph unicode="&#xe185;" d="M100 0h300v400q0 41 -29.5 70.5t-70.5 29.5h-100q-41 0 -70.5 -29.5t-29.5 -70.5v-400zM500 0v1000q0 41 29.5 70.5t70.5 29.5h100q41 0 70.5 -29.5t29.5 -70.5v-1000h-300zM900 0v700q0 41 29.5 70.5t70.5 29.5h100q41 0 70.5 -29.5t29.5 -70.5v-700h-300z" />
+<glyph unicode="&#xe186;" d="M-100 300v500q0 124 88 212t212 88h700q124 0 212 -88t88 -212v-500q0 -124 -88 -212t-212 -88h-700q-124 0 -212 88t-88 212zM100 200h900v700h-900v-700zM200 300h300v300h-200v100h200v100h-300v-300h200v-100h-200v-100zM600 300h200v100h100v300h-100v100h-200v-500 zM700 400v300h100v-300h-100z" />
+<glyph unicode="&#xe187;" d="M-100 300v500q0 124 88 212t212 88h700q124 0 212 -88t88 -212v-500q0 -124 -88 -212t-212 -88h-700q-124 0 -212 88t-88 212zM100 200h900v700h-900v-700zM200 300h100v200h100v-200h100v500h-100v-200h-100v200h-100v-500zM600 300h200v100h100v300h-100v100h-200v-500 zM700 400v300h100v-300h-100z" />
+<glyph unicode="&#xe188;" d="M-100 300v500q0 124 88 212t212 88h700q124 0 212 -88t88 -212v-500q0 -124 -88 -212t-212 -88h-700q-124 0 -212 88t-88 212zM100 200h900v700h-900v-700zM200 300h300v100h-200v300h200v100h-300v-500zM600 300h300v100h-200v300h200v100h-300v-500z" />
+<glyph unicode="&#xe189;" d="M-100 300v500q0 124 88 212t212 88h700q124 0 212 -88t88 -212v-500q0 -124 -88 -212t-212 -88h-700q-124 0 -212 88t-88 212zM100 200h900v700h-900v-700zM200 550l300 -150v300zM600 400l300 150l-300 150v-300z" />
+<glyph unicode="&#xe190;" d="M-100 300v500q0 124 88 212t212 88h700q124 0 212 -88t88 -212v-500q0 -124 -88 -212t-212 -88h-700q-124 0 -212 88t-88 212zM100 200h900v700h-900v-700zM200 300v500h700v-500h-700zM300 400h130q41 0 68 42t27 107t-28.5 108t-66.5 43h-130v-300zM575 549 q0 -65 27 -107t68 -42h130v300h-130q-38 0 -66.5 -43t-28.5 -108z" />
+<glyph unicode="&#xe191;" d="M-100 300v500q0 124 88 212t212 88h700q124 0 212 -88t88 -212v-500q0 -124 -88 -212t-212 -88h-700q-124 0 -212 88t-88 212zM100 200h900v700h-900v-700zM200 300h300v300h-200v100h200v100h-300v-300h200v-100h-200v-100zM601 300h100v100h-100v-100zM700 700h100 v-400h100v500h-200v-100z" />
+<glyph unicode="&#xe192;" d="M-100 300v500q0 124 88 212t212 88h700q124 0 212 -88t88 -212v-500q0 -124 -88 -212t-212 -88h-700q-124 0 -212 88t-88 212zM100 200h900v700h-900v-700zM200 300h300v400h-200v100h-100v-500zM301 400v200h100v-200h-100zM601 300h100v100h-100v-100zM700 700h100 v-400h100v500h-200v-100z" />
+<glyph unicode="&#xe193;" d="M-100 300v500q0 124 88 212t212 88h700q124 0 212 -88t88 -212v-500q0 -124 -88 -212t-212 -88h-700q-124 0 -212 88t-88 212zM100 200h900v700h-900v-700zM200 700v100h300v-300h-99v-100h-100v100h99v200h-200zM201 300v100h100v-100h-100zM601 300v100h100v-100h-100z M700 700v100h200v-500h-100v400h-100z" />
+<glyph unicode="&#xe194;" d="M4 600q0 162 80 299t217 217t299 80t299 -80t217 -217t80 -299t-80 -299t-217 -217t-299 -80t-299 80t-217 217t-80 299zM186 600q0 -171 121.5 -292.5t292.5 -121.5t292.5 121.5t121.5 292.5t-121.5 292.5t-292.5 121.5t-292.5 -121.5t-121.5 -292.5zM400 500v200 l100 100h300v-100h-300v-200h300v-100h-300z" />
+<glyph unicode="&#xe195;" d="M0 600q0 162 80 299t217 217t299 80t299 -80t217 -217t80 -299t-80 -299t-217 -217t-299 -80t-299 80t-217 217t-80 299zM182 600q0 -171 121.5 -292.5t292.5 -121.5t292.5 121.5t121.5 292.5t-121.5 292.5t-292.5 121.5t-292.5 -121.5t-121.5 -292.5zM400 400v400h300 l100 -100v-100h-100v100h-200v-100h200v-100h-200v-100h-100zM700 400v100h100v-100h-100z" />
+<glyph unicode="&#xe197;" d="M-14 494q0 -80 56.5 -137t135.5 -57h222v300h400v-300h128q120 0 205 86.5t85 207.5t-85 207t-205 86q-46 0 -90 -14q-44 97 -134.5 156.5t-200.5 59.5q-152 0 -260 -107.5t-108 -260.5q0 -25 2 -37q-66 -14 -108.5 -67.5t-42.5 -122.5zM300 200h200v300h200v-300h200 l-300 -300z" />
+<glyph unicode="&#xe198;" d="M-14 494q0 -80 56.5 -137t135.5 -57h8l414 414l403 -403q94 26 154.5 104.5t60.5 178.5q0 120 -85 206.5t-205 86.5q-46 0 -90 -14q-44 97 -134.5 156.5t-200.5 59.5q-152 0 -260 -107.5t-108 -260.5q0 -25 2 -37q-66 -14 -108.5 -67.5t-42.5 -122.5zM300 200l300 300 l300 -300h-200v-300h-200v300h-200z" />
+<glyph unicode="&#xe199;" d="M100 200h400v-155l-75 -45h350l-75 45v155h400l-270 300h170l-270 300h170l-300 333l-300 -333h170l-270 -300h170z" />
+<glyph unicode="&#xe200;" d="M121 700q0 -53 28.5 -97t75.5 -65q-4 -16 -4 -38q0 -74 52.5 -126.5t126.5 -52.5q56 0 100 30v-306l-75 -45h350l-75 45v306q46 -30 100 -30q74 0 126.5 52.5t52.5 126.5q0 24 -9 55q50 32 79.5 83t29.5 112q0 90 -61.5 155.5t-150.5 71.5q-26 89 -99.5 145.5 t-167.5 56.5q-116 0 -197.5 -81.5t-81.5 -197.5q0 -4 1 -11.5t1 -11.5q-14 2 -23 2q-74 0 -126.5 -52.5t-52.5 -126.5z" />
+</font>
+</defs></svg>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/fonts/glyphicons-halflings-regular.ttf b/reference/rte-fortran-interface/fonts/glyphicons-halflings-regular.ttf
new file mode 100644
index 000000000..67fa00bf8
Binary files /dev/null and b/reference/rte-fortran-interface/fonts/glyphicons-halflings-regular.ttf differ
diff --git a/reference/rte-fortran-interface/fonts/glyphicons-halflings-regular.woff b/reference/rte-fortran-interface/fonts/glyphicons-halflings-regular.woff
new file mode 100644
index 000000000..8c54182aa
Binary files /dev/null and b/reference/rte-fortran-interface/fonts/glyphicons-halflings-regular.woff differ
diff --git a/reference/rte-fortran-interface/index.html b/reference/rte-fortran-interface/index.html
new file mode 100644
index 000000000..6f81d6f59
--- /dev/null
+++ b/reference/rte-fortran-interface/index.html
@@ -0,0 +1,230 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="./favicon.png">
+
+    <title> RTE-Fortran </title>
+
+    <link href="./css/bootstrap.min.css" rel="stylesheet">
+    <link href="./css/pygments.css" rel="stylesheet">
+    <link href="./css/font-awesome.min.css" rel="stylesheet">
+    <link href="./css/local.css" rel="stylesheet">
+    <link  href="./tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="./js/jquery-2.1.3.min.js"></script>
+    <script src="./js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="./index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="./lists/files.html">Source Files</a></li>
+            <li><a href="./lists/modules.html">Modules</a></li>
+            <li><a href="./lists/procedures.html">Procedures</a></li>
+                   <li><a href="./lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="./lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="./lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="./lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="./lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="./search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+      <!-- Main component for a primary marketing message or call to action -->
+      <div class="jumbotron">
+        <p>RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.</p>
+        </p>
+      </div>
+
+      <div class="row" id='text'>
+        <div class="col-md-8">
+          <h1>RTE-Fortran</h1>
+          <p>These pages provide a programmer's view of the Fortran user interface to RTE.</p>
+<p>Procedures in the two solvers (<a href="./proc/rte_lw.html">rte_lw</a>, <a href="./proc/rte_sw.html">rte_sw</a>)
+require problems specified as sets of <a href="./module/mo_optical_props.html">optical properties</a>
+along with boundary conditions and/or <a href="./module/mo_source_functions.html">internal sources</a> of radiation.
+The reduction of spectrally- and spatially-detailed calculations that specifies the output
+is defined in a <a href="./module/mo_fluxes.html">flux output type</a></p>
+<p>The optical properties module provides a way to specify the spectrally-dependent
+optical properties of the atmosphere consistent with calculations neglecting scattering,
+using two-stream scattering, or using n-stream scattering.</p>
+<ul>
+<li><code>init()</code> routines to specify e.g. the spectral discretization</li>
+<li><code>load()</code> routines to provide data (e.g. lookup tables) needed to do a calculation</li>
+<li><code>alloc()</code> routines to allocate memory once the problem size is known</li>
+<li><code>finalize()</code> routines to reset variables to an un-initialized state</li>
+<li>Some classes have <code>get_ncol()</code> and <code>get_nlay()</code> methods to report the problem size</li>
+<li>Some classes have <code>get_subset()</code> methods to extract values along the column dimension</li>
+</ul>
+<p>The listings below may not be exhaustive.
+To see the full listings use the links at the top of the page.
+There is a search bar in the top right.</p>
+<p>Return to the <a href="../../index.html">Documentation overview</a> or the <a href="../index.html">reference overview</a>.</p>
+<!---
+## How to Read This Documentation
+
+Start with the [README] and the [Tutorial](./page/Tutorial.html).
+Additionally, there is a page that provides a higher level organizational overview that you can find [here](./page/Organized_Listing.html).
+
+The listings may not be exhaustive. Full listings are available using the links at the top of the page, where
+there's also a search bar.
+
+Take me back to the [User Documentation].
+
+[README]: https://github.com/earth-system-radiation/rte-rrtmgp/blob/main/README.md
+[User Documentation]: ../../index.html
+[mo_rte_kind.F90]: ./module/mo_rte_kind.html
+-->
+        </div>
+        <div class="col-md-4">
+	  <div class="well">
+          <h2>Developer Info</h2>
+          <h4>The RTE+RRTTMGP consortium</h4>
+          
+            <div class="text-center"><div class="btn-group" role="group">
+              <a class="btn btn-lg btn-primary" href="https://github.com/earth-system-radiation/"><i class="fa fa-github fa-lg"></i></a>
+            </div></div>
+       </div>
+       </div>
+      </div>
+      <div class="row">
+        <div class="col-xs-6 col-sm-3">
+              <h3>Source Files</h3>
+              <ul>                    <li><a href='./sourcefile/mo_fluxes.f90.html'>mo_fluxes.F90</a></li>
+                    <li><a href='./sourcefile/mo_optical_props.f90.html'>mo_optical_props.F90</a></li>
+                    <li><a href='./sourcefile/mo_rte_config.f90.html'>mo_rte_config.F90</a></li>
+                    <li><a href='./sourcefile/mo_rte_kind.f90.html'>mo_rte_kind.F90</a></li>
+                    <li><a href='./sourcefile/mo_rte_lw.f90.html'>mo_rte_lw.F90</a></li>
+                    <li><a href='./sourcefile/mo_rte_sw.f90.html'>mo_rte_sw.F90</a></li>
+                    <li><a href='./sourcefile/mo_rte_util_array_validation.f90.html'>mo_rte_util_array_validation.F90</a></li>
+                    <li><a href='./sourcefile/mo_source_functions.f90.html'>mo_source_functions.F90</a></li>
+</ul>
+          </div>
+		  <div class="col-xs-6 col-sm-3">
+              <h3>Modules</h3>
+              <ul>                    <li><a href='./module/mo_fluxes.html'>mo_fluxes</a></li>
+                    <li><a href='./module/mo_optical_props.html'>mo_optical_props</a></li>
+                    <li><a href='./module/mo_rte_config.html'>mo_rte_config</a></li>
+                    <li><a href='./module/mo_rte_kind.html'>mo_rte_kind</a></li>
+                    <li><a href='./module/mo_rte_lw.html'>mo_rte_lw</a></li>
+                    <li><a href='./module/mo_rte_sw.html'>mo_rte_sw</a></li>
+                    <li><a href='./module/mo_rte_util_array_validation.html'>mo_rte_util_array_validation</a></li>
+                    <li><a href='./module/mo_source_functions.html'>mo_source_functions</a></li>
+</ul>
+          </div>
+		  <div class="col-xs-6 col-sm-3">
+              <h3>Procedures</h3>
+              <ul>                    <li><a href='./interface/any_vals_less_than.html'>any_vals_less_than</a></li>
+                    <li><a href='./interface/any_vals_outside.html'>any_vals_outside</a></li>
+                    <li><a href='./interface/extents_are.html'>extents_are</a></li>
+                    <li><a href='./interface/rte_config_checks.html'>rte_config_checks</a></li>
+                    <li><a href='./proc/rte_lw.html'>rte_lw</a></li>
+                    <li><a href='./interface/rte_sw.html'>rte_sw</a></li>
+</ul>
+          </div>
+		  <div class="col-xs-6 col-sm-3">
+              <h3>Derived Types</h3>
+              <ul>                    <li><a href='./type/ty_fluxes.html'>ty_fluxes</a></li>
+                    <li><a href='./type/ty_fluxes_broadband.html'>ty_fluxes_broadband</a></li>
+                    <li><a href='./type/ty_optical_props.html'>ty_optical_props</a></li>
+                    <li><a href='./type/ty_optical_props_1scl.html'>ty_optical_props_1scl</a></li>
+                    <li><a href='./type/ty_optical_props_2str.html'>ty_optical_props_2str</a></li>
+                    <li><a href='./type/ty_optical_props_arry.html'>ty_optical_props_arry</a></li>
+                    <li><a href='./type/ty_optical_props_nstr.html'>ty_optical_props_nstr</a></li>
+                    <li><a href='./type/ty_source_func_lw.html'>ty_source_func_lw</a></li>
+                    <li><a href='./type/ty_source_func_sw.html'>ty_source_func_sw</a></li>
+</ul>
+          </div>
+      </div>
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="./js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="./js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="./tipuesearch/tipuesearch_content.js"></script>
+    <script src="./tipuesearch/tipuesearch_set.js"></script>
+    <script src="./tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/interface/any_vals_less_than.html b/reference/rte-fortran-interface/interface/any_vals_less_than.html
new file mode 100644
index 000000000..cd3b6b536
--- /dev/null
+++ b/reference/rte-fortran-interface/interface/any_vals_less_than.html
@@ -0,0 +1,490 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>any_vals_less_than &ndash; RTE-Fortran</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>any_vals_less_than
+   <small>Interface</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title="<p> 2.1% of total for procedures.</p>Including implementation: 49 statements, 26.1% of total for procedures.">4 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_rte_util_array_validation.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li><a href='../sourcefile/mo_rte_util_array_validation.f90.html'>mo_rte_util_array_validation.F90</a></li>
+     <li><a href='../module/mo_rte_util_array_validation.html'>mo_rte_util_array_validation</a></li>
+     <li class="active">any_vals_less_than</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+      <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#modprocs-0">Module Procedures</a></h3></div>
+  <div id="modprocs-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../interface/any_vals_less_than.html#moduleprocedure-any_vals_less_than_1d">any_vals_less_than_1D</a>
+      <a class="list-group-item" href="../interface/any_vals_less_than.html#moduleprocedure-any_vals_less_than_2d">any_vals_less_than_2D</a>
+      <a class="list-group-item" href="../interface/any_vals_less_than.html#moduleprocedure-any_vals_less_than_3d">any_vals_less_than_3D</a>
+      <a class="list-group-item" href="../interface/any_vals_less_than.html#moduleprocedure-any_vals_less_than_1d_masked">any_vals_less_than_1D_masked</a>
+      <a class="list-group-item" href="../interface/any_vals_less_than.html#moduleprocedure-any_vals_less_than_2d_masked">any_vals_less_than_2D_masked</a>
+      <a class="list-group-item" href="../interface/any_vals_less_than.html#moduleprocedure-any_vals_less_than_3d_masked">any_vals_less_than_3D_masked</a>
+    </div>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+      <h2>public interface any_vals_less_than</h2>
+   <p>Values less than a floor (including masked versions)</p>
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Called by</h3>
+      </div>
+      <div class="panel-body">
+     <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: interface~~any_vals_less_than~~CalledByGraph Pages: 1 -->
+<svg id="interfaceany_vals_less_thanCalledByGraph" width="211pt" height="32pt"
+ viewBox="0.00 0.00 211.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~any_vals_less_than~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~any_vals_less_than~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 207,-28 207,4 -4,4"/>
+<!-- interface~any_vals_less_than -->
+<g id="interface~~any_vals_less_than~~CalledByGraph_node1" class="node">
+<title>interface~any_vals_less_than</title>
+<polygon fill="none" stroke="black" points="203,-24 90,-24 90,0 203,0 203,-24"/>
+<text text-anchor="middle" x="146.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">any_vals_less_than</text>
+</g>
+<!-- proc~rte_lw -->
+<g id="interface~~any_vals_less_than~~CalledByGraph_node2" class="node">
+<title>proc~rte_lw</title>
+<g id="a_interface~~any_vals_less_than~~CalledByGraph_node2"><a xlink:href=".././proc/rte_lw.html" xlink:title="rte_lw">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rte_lw</text>
+</a>
+</g>
+</g>
+<!-- proc~rte_lw&#45;&gt;interface~any_vals_less_than -->
+<g id="interface~~any_vals_less_than~~CalledByGraph_edge1" class="edge">
+<title>proc~rte_lw&#45;&gt;interface~any_vals_less_than</title>
+<path fill="none" stroke="#000000" d="M54.08,-12C61.74,-12 70.49,-12 79.47,-12"/>
+<polygon fill="#000000" stroke="#000000" points="79.66,-15.5 89.66,-12 79.66,-8.5 79.66,-15.5"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="597pt" height="32pt"
+ viewBox="0.00 0.00 596.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 592.5,-28 592.5,4 -4,4"/>
+<!-- Subroutine -->
+<g id="node1" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="70,-24 0,-24 0,0 70,0 70,-24"/>
+<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+</g>
+<!-- Function -->
+<g id="node2" class="node">
+<title>Function</title>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="146,-24 88,-24 88,0 146,0 146,-24"/>
+<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+</g>
+<!-- Interface -->
+<g id="node3" class="node">
+<title>Interface</title>
+<polygon fill="#a7506f" stroke="#a7506f" points="225.5,-24 164.5,-24 164.5,0 225.5,0 225.5,-24"/>
+<text text-anchor="middle" x="195" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+</g>
+<!-- Unknown Procedure Type -->
+<g id="node4" class="node">
+<title>Unknown Procedure Type</title>
+<polygon fill="#777777" stroke="#777777" points="388.5,-24 243.5,-24 243.5,0 388.5,0 388.5,-24"/>
+<text text-anchor="middle" x="316" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="465,-24 407,-24 407,0 465,0 465,-24"/>
+<text text-anchor="middle" x="436" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node6" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="588.5,-24 483.5,-24 483.5,0 588.5,0 588.5,-24"/>
+<text text-anchor="middle" x="536" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a procedure to one which it calls. Dashed 
+    arrows point from an interface to procedures which implement that interface.
+    This could include the module procedures in a generic interface or the
+    implementation in a submodule of an interface in a parent module.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+<br>
+     <section class="visible-xs visible-sm hidden-md">
+       <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#modprocs-1">Module Procedures</a></h3></div>
+  <div id="modprocs-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../interface/any_vals_less_than.html#moduleprocedure-any_vals_less_than_1d">any_vals_less_than_1D</a>
+      <a class="list-group-item" href="../interface/any_vals_less_than.html#moduleprocedure-any_vals_less_than_2d">any_vals_less_than_2D</a>
+      <a class="list-group-item" href="../interface/any_vals_less_than.html#moduleprocedure-any_vals_less_than_3d">any_vals_less_than_3D</a>
+      <a class="list-group-item" href="../interface/any_vals_less_than.html#moduleprocedure-any_vals_less_than_1d_masked">any_vals_less_than_1D_masked</a>
+      <a class="list-group-item" href="../interface/any_vals_less_than.html#moduleprocedure-any_vals_less_than_2d_masked">any_vals_less_than_2D_masked</a>
+      <a class="list-group-item" href="../interface/any_vals_less_than.html#moduleprocedure-any_vals_less_than_3d_masked">any_vals_less_than_3D_masked</a>
+    </div>
+  </div>
+</div>
+
+     </section>
+     <br class="visible-xs visible-sm hidden-md">
+     
+
+
+   <h2>Module Procedures</h2>
+      <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-any_vals_less_than_1d"></span><h3>private function any_vals_less_than_1D(array, check_value)</h3></div>
+  <div class="panel-body">
+           
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>check_value</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+  </div>
+  </div>
+
+      <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-any_vals_less_than_2d"></span><h3>private function any_vals_less_than_2D(array, check_value)</h3></div>
+  <div class="panel-body">
+           
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>check_value</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+  </div>
+  </div>
+
+      <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-any_vals_less_than_3d"></span><h3>private function any_vals_less_than_3D(array, check_value)</h3></div>
+  <div class="panel-body">
+           
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:,:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>check_value</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+  </div>
+  </div>
+
+      <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-any_vals_less_than_1d_masked"></span><h3>private function any_vals_less_than_1D_masked(array, mask, check_value)</h3></div>
+  <div class="panel-body">
+           
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>logical(kind=wl),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:)</td><td>::</td>
+  <td><strong>mask</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>check_value</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+  </div>
+  </div>
+
+      <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-any_vals_less_than_2d_masked"></span><h3>private function any_vals_less_than_2D_masked(array, mask, check_value)</h3></div>
+  <div class="panel-body">
+           
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>logical(kind=wl),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>mask</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>check_value</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+  </div>
+  </div>
+
+      <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-any_vals_less_than_3d_masked"></span><h3>private function any_vals_less_than_3D_masked(array, mask, check_value)</h3></div>
+  <div class="panel-body">
+           
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:,:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>logical(kind=wl),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:,:)</td><td>::</td>
+  <td><strong>mask</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>check_value</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+  </div>
+  </div>
+
+
+ </div>
+</div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/interface/any_vals_outside.html b/reference/rte-fortran-interface/interface/any_vals_outside.html
new file mode 100644
index 000000000..cb667aecc
--- /dev/null
+++ b/reference/rte-fortran-interface/interface/any_vals_outside.html
@@ -0,0 +1,526 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>any_vals_outside &ndash; RTE-Fortran</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>any_vals_outside
+   <small>Interface</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title="<p> 2.1% of total for procedures.</p>Including implementation: 55 statements, 29.3% of total for procedures.">4 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_rte_util_array_validation.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li><a href='../sourcefile/mo_rte_util_array_validation.f90.html'>mo_rte_util_array_validation.F90</a></li>
+     <li><a href='../module/mo_rte_util_array_validation.html'>mo_rte_util_array_validation</a></li>
+     <li class="active">any_vals_outside</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+      <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#modprocs-0">Module Procedures</a></h3></div>
+  <div id="modprocs-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../interface/any_vals_outside.html#moduleprocedure-any_vals_outside_1d">any_vals_outside_1D</a>
+      <a class="list-group-item" href="../interface/any_vals_outside.html#moduleprocedure-any_vals_outside_2d">any_vals_outside_2D</a>
+      <a class="list-group-item" href="../interface/any_vals_outside.html#moduleprocedure-any_vals_outside_3d">any_vals_outside_3D</a>
+      <a class="list-group-item" href="../interface/any_vals_outside.html#moduleprocedure-any_vals_outside_1d_masked">any_vals_outside_1D_masked</a>
+      <a class="list-group-item" href="../interface/any_vals_outside.html#moduleprocedure-any_vals_outside_2d_masked">any_vals_outside_2D_masked</a>
+      <a class="list-group-item" href="../interface/any_vals_outside.html#moduleprocedure-any_vals_outside_3d_masked">any_vals_outside_3D_masked</a>
+    </div>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+      <h2>public interface any_vals_outside</h2>
+   <p>Values outside a range (including masked versions)</p>
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Called by</h3>
+      </div>
+      <div class="panel-body">
+     <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: interface~~any_vals_outside~~CalledByGraph Pages: 1 -->
+<svg id="interfaceany_vals_outsideCalledByGraph" width="201pt" height="32pt"
+ viewBox="0.00 0.00 201.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~any_vals_outside~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~any_vals_outside~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197,-28 197,4 -4,4"/>
+<!-- interface~any_vals_outside -->
+<g id="interface~~any_vals_outside~~CalledByGraph_node1" class="node">
+<title>interface~any_vals_outside</title>
+<polygon fill="none" stroke="black" points="193,-24 90,-24 90,0 193,0 193,-24"/>
+<text text-anchor="middle" x="141.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">any_vals_outside</text>
+</g>
+<!-- proc~rte_lw -->
+<g id="interface~~any_vals_outside~~CalledByGraph_node2" class="node">
+<title>proc~rte_lw</title>
+<g id="a_interface~~any_vals_outside~~CalledByGraph_node2"><a xlink:href=".././proc/rte_lw.html" xlink:title="rte_lw">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rte_lw</text>
+</a>
+</g>
+</g>
+<!-- proc~rte_lw&#45;&gt;interface~any_vals_outside -->
+<g id="interface~~any_vals_outside~~CalledByGraph_edge1" class="edge">
+<title>proc~rte_lw&#45;&gt;interface~any_vals_outside</title>
+<path fill="none" stroke="#000000" d="M54.09,-12C61.83,-12 70.64,-12 79.61,-12"/>
+<polygon fill="#000000" stroke="#000000" points="79.76,-15.5 89.76,-12 79.76,-8.5 79.76,-15.5"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="597pt" height="32pt"
+ viewBox="0.00 0.00 596.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 592.5,-28 592.5,4 -4,4"/>
+<!-- Subroutine -->
+<g id="node1" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="70,-24 0,-24 0,0 70,0 70,-24"/>
+<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+</g>
+<!-- Function -->
+<g id="node2" class="node">
+<title>Function</title>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="146,-24 88,-24 88,0 146,0 146,-24"/>
+<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+</g>
+<!-- Interface -->
+<g id="node3" class="node">
+<title>Interface</title>
+<polygon fill="#a7506f" stroke="#a7506f" points="225.5,-24 164.5,-24 164.5,0 225.5,0 225.5,-24"/>
+<text text-anchor="middle" x="195" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+</g>
+<!-- Unknown Procedure Type -->
+<g id="node4" class="node">
+<title>Unknown Procedure Type</title>
+<polygon fill="#777777" stroke="#777777" points="388.5,-24 243.5,-24 243.5,0 388.5,0 388.5,-24"/>
+<text text-anchor="middle" x="316" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="465,-24 407,-24 407,0 465,0 465,-24"/>
+<text text-anchor="middle" x="436" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node6" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="588.5,-24 483.5,-24 483.5,0 588.5,0 588.5,-24"/>
+<text text-anchor="middle" x="536" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a procedure to one which it calls. Dashed 
+    arrows point from an interface to procedures which implement that interface.
+    This could include the module procedures in a generic interface or the
+    implementation in a submodule of an interface in a parent module.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+<br>
+     <section class="visible-xs visible-sm hidden-md">
+       <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#modprocs-1">Module Procedures</a></h3></div>
+  <div id="modprocs-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../interface/any_vals_outside.html#moduleprocedure-any_vals_outside_1d">any_vals_outside_1D</a>
+      <a class="list-group-item" href="../interface/any_vals_outside.html#moduleprocedure-any_vals_outside_2d">any_vals_outside_2D</a>
+      <a class="list-group-item" href="../interface/any_vals_outside.html#moduleprocedure-any_vals_outside_3d">any_vals_outside_3D</a>
+      <a class="list-group-item" href="../interface/any_vals_outside.html#moduleprocedure-any_vals_outside_1d_masked">any_vals_outside_1D_masked</a>
+      <a class="list-group-item" href="../interface/any_vals_outside.html#moduleprocedure-any_vals_outside_2d_masked">any_vals_outside_2D_masked</a>
+      <a class="list-group-item" href="../interface/any_vals_outside.html#moduleprocedure-any_vals_outside_3d_masked">any_vals_outside_3D_masked</a>
+    </div>
+  </div>
+</div>
+
+     </section>
+     <br class="visible-xs visible-sm hidden-md">
+     
+
+
+   <h2>Module Procedures</h2>
+      <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-any_vals_outside_1d"></span><h3>private function any_vals_outside_1D(array, checkMin, checkMax)</h3></div>
+  <div class="panel-body">
+           
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>checkMin</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>checkMax</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+  </div>
+  </div>
+
+      <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-any_vals_outside_2d"></span><h3>private function any_vals_outside_2D(array, checkMin, checkMax)</h3></div>
+  <div class="panel-body">
+           
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>checkMin</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>checkMax</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+  </div>
+  </div>
+
+      <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-any_vals_outside_3d"></span><h3>private function any_vals_outside_3D(array, checkMin, checkMax)</h3></div>
+  <div class="panel-body">
+           
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:,:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>checkMin</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>checkMax</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+  </div>
+  </div>
+
+      <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-any_vals_outside_1d_masked"></span><h3>private function any_vals_outside_1D_masked(array, mask, checkMin, checkMax)</h3></div>
+  <div class="panel-body">
+           
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>logical(kind=wl),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:)</td><td>::</td>
+  <td><strong>mask</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>checkMin</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>checkMax</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+  </div>
+  </div>
+
+      <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-any_vals_outside_2d_masked"></span><h3>private function any_vals_outside_2D_masked(array, mask, checkMin, checkMax)</h3></div>
+  <div class="panel-body">
+           
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>logical(kind=wl),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>mask</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>checkMin</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>checkMax</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+  </div>
+  </div>
+
+      <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-any_vals_outside_3d_masked"></span><h3>private function any_vals_outside_3D_masked(array, mask, checkMin, checkMax)</h3></div>
+  <div class="panel-body">
+           
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:,:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>logical(kind=wl),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:,:)</td><td>::</td>
+  <td><strong>mask</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>checkMin</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>checkMax</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+  </div>
+  </div>
+
+
+ </div>
+</div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/interface/extents_are.html b/reference/rte-fortran-interface/interface/extents_are.html
new file mode 100644
index 000000000..32bf9719f
--- /dev/null
+++ b/reference/rte-fortran-interface/interface/extents_are.html
@@ -0,0 +1,597 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>extents_are &ndash; RTE-Fortran</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>extents_are
+   <small>Interface</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title="<p> 2.7% of total for procedures.</p>Including implementation: 47 statements, 25.0% of total for procedures.">5 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_rte_util_array_validation.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li><a href='../sourcefile/mo_rte_util_array_validation.f90.html'>mo_rte_util_array_validation.F90</a></li>
+     <li><a href='../module/mo_rte_util_array_validation.html'>mo_rte_util_array_validation</a></li>
+     <li class="active">extents_are</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+      <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#modprocs-0">Module Procedures</a></h3></div>
+  <div id="modprocs-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../interface/extents_are.html#moduleprocedure-extents_are_1d">extents_are_1D</a>
+      <a class="list-group-item" href="../interface/extents_are.html#moduleprocedure-extents_are_2d">extents_are_2D</a>
+      <a class="list-group-item" href="../interface/extents_are.html#moduleprocedure-extents_are_3d">extents_are_3D</a>
+      <a class="list-group-item" href="../interface/extents_are.html#moduleprocedure-extents_are_4d">extents_are_4D</a>
+      <a class="list-group-item" href="../interface/extents_are.html#moduleprocedure-extents_are_5d">extents_are_5D</a>
+      <a class="list-group-item" href="../interface/extents_are.html#moduleprocedure-extents_are_6d">extents_are_6D</a>
+      <a class="list-group-item" href="../interface/extents_are.html#moduleprocedure-extents_are_2d_int">extents_are_2d_int</a>
+    </div>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+      <h2>public interface extents_are</h2>
+   <p>Find the extents of an array</p>
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Called by</h3>
+      </div>
+      <div class="panel-body">
+     <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: interface~~extents_are~~CalledByGraph Pages: 1 -->
+<svg id="interfaceextents_areCalledByGraph" width="171pt" height="32pt"
+ viewBox="0.00 0.00 171.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~extents_are~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~extents_are~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 167,-28 167,4 -4,4"/>
+<!-- interface~extents_are -->
+<g id="interface~~extents_are~~CalledByGraph_node1" class="node">
+<title>interface~extents_are</title>
+<polygon fill="none" stroke="black" points="163,-24 90,-24 90,0 163,0 163,-24"/>
+<text text-anchor="middle" x="126.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">extents_are</text>
+</g>
+<!-- proc~rte_lw -->
+<g id="interface~~extents_are~~CalledByGraph_node2" class="node">
+<title>proc~rte_lw</title>
+<g id="a_interface~~extents_are~~CalledByGraph_node2"><a xlink:href=".././proc/rte_lw.html" xlink:title="rte_lw">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rte_lw</text>
+</a>
+</g>
+</g>
+<!-- proc~rte_lw&#45;&gt;interface~extents_are -->
+<g id="interface~~extents_are~~CalledByGraph_edge1" class="edge">
+<title>proc~rte_lw&#45;&gt;interface~extents_are</title>
+<path fill="none" stroke="#000000" d="M54.13,-12C61.99,-12 70.87,-12 79.62,-12"/>
+<polygon fill="#000000" stroke="#000000" points="79.77,-15.5 89.77,-12 79.77,-8.5 79.77,-15.5"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="597pt" height="32pt"
+ viewBox="0.00 0.00 596.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 592.5,-28 592.5,4 -4,4"/>
+<!-- Subroutine -->
+<g id="node1" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="70,-24 0,-24 0,0 70,0 70,-24"/>
+<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+</g>
+<!-- Function -->
+<g id="node2" class="node">
+<title>Function</title>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="146,-24 88,-24 88,0 146,0 146,-24"/>
+<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+</g>
+<!-- Interface -->
+<g id="node3" class="node">
+<title>Interface</title>
+<polygon fill="#a7506f" stroke="#a7506f" points="225.5,-24 164.5,-24 164.5,0 225.5,0 225.5,-24"/>
+<text text-anchor="middle" x="195" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+</g>
+<!-- Unknown Procedure Type -->
+<g id="node4" class="node">
+<title>Unknown Procedure Type</title>
+<polygon fill="#777777" stroke="#777777" points="388.5,-24 243.5,-24 243.5,0 388.5,0 388.5,-24"/>
+<text text-anchor="middle" x="316" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="465,-24 407,-24 407,0 465,0 465,-24"/>
+<text text-anchor="middle" x="436" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node6" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="588.5,-24 483.5,-24 483.5,0 588.5,0 588.5,-24"/>
+<text text-anchor="middle" x="536" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a procedure to one which it calls. Dashed 
+    arrows point from an interface to procedures which implement that interface.
+    This could include the module procedures in a generic interface or the
+    implementation in a submodule of an interface in a parent module.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+<br>
+     <section class="visible-xs visible-sm hidden-md">
+       <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#modprocs-1">Module Procedures</a></h3></div>
+  <div id="modprocs-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../interface/extents_are.html#moduleprocedure-extents_are_1d">extents_are_1D</a>
+      <a class="list-group-item" href="../interface/extents_are.html#moduleprocedure-extents_are_2d">extents_are_2D</a>
+      <a class="list-group-item" href="../interface/extents_are.html#moduleprocedure-extents_are_3d">extents_are_3D</a>
+      <a class="list-group-item" href="../interface/extents_are.html#moduleprocedure-extents_are_4d">extents_are_4D</a>
+      <a class="list-group-item" href="../interface/extents_are.html#moduleprocedure-extents_are_5d">extents_are_5D</a>
+      <a class="list-group-item" href="../interface/extents_are.html#moduleprocedure-extents_are_6d">extents_are_6D</a>
+      <a class="list-group-item" href="../interface/extents_are.html#moduleprocedure-extents_are_2d_int">extents_are_2d_int</a>
+    </div>
+  </div>
+</div>
+
+     </section>
+     <br class="visible-xs visible-sm hidden-md">
+     
+
+
+   <h2>Module Procedures</h2>
+      <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-extents_are_1d"></span><h3>private function extents_are_1d(array, n1)</h3></div>
+  <div class="panel-body">
+           
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:          )</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n1</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical(kind=wl)</small></h4>  
+
+  </div>
+  </div>
+
+      <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-extents_are_2d"></span><h3>private function extents_are_2d(array, n1, n2)</h3></div>
+  <div class="panel-body">
+           
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:        )</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n1</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n2</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical(kind=wl)</small></h4>  
+
+  </div>
+  </div>
+
+      <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-extents_are_3d"></span><h3>private function extents_are_3d(array, n1, n2, n3)</h3></div>
+  <div class="panel-body">
+           
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:,:      )</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n1</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n2</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n3</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical(kind=wl)</small></h4>  
+
+  </div>
+  </div>
+
+      <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-extents_are_4d"></span><h3>private function extents_are_4d(array, n1, n2, n3, n4)</h3></div>
+  <div class="panel-body">
+           
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:,:,:    )</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n1</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n2</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n3</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n4</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical(kind=wl)</small></h4>  
+
+  </div>
+  </div>
+
+      <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-extents_are_5d"></span><h3>private function extents_are_5d(array, n1, n2, n3, n4, n5)</h3></div>
+  <div class="panel-body">
+           
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:,:,:,:  )</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n1</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n2</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n3</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n4</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n5</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical(kind=wl)</small></h4>  
+
+  </div>
+  </div>
+
+      <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-extents_are_6d"></span><h3>private function extents_are_6d(array, n1, n2, n3, n4, n5, n6)</h3></div>
+  <div class="panel-body">
+           
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:,:,:,:,:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n1</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n2</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n3</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n4</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n5</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n6</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical(kind=wl)</small></h4>  
+
+  </div>
+  </div>
+
+      <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-extents_are_2d_int"></span><h3>private function extents_are_2d_int(array, n1, n2)</h3></div>
+  <div class="panel-body">
+           
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:        )</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n1</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n2</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical(kind=wl)</small></h4>  
+
+  </div>
+  </div>
+
+
+ </div>
+</div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/interface/rte_config_checks.html b/reference/rte-fortran-interface/interface/rte_config_checks.html
new file mode 100644
index 000000000..8fd695479
--- /dev/null
+++ b/reference/rte-fortran-interface/interface/rte_config_checks.html
@@ -0,0 +1,250 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>rte_config_checks &ndash; RTE-Fortran</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>rte_config_checks
+   <small>Interface</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title="<p> 1.6% of total for procedures.</p>Including implementation: 13 statements,  6.9% of total for procedures.">3 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_rte_config.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li><a href='../sourcefile/mo_rte_config.f90.html'>mo_rte_config.F90</a></li>
+     <li><a href='../module/mo_rte_config.html'>mo_rte_config</a></li>
+     <li class="active">rte_config_checks</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+      <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#modprocs-0">Module Procedures</a></h3></div>
+  <div id="modprocs-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../interface/rte_config_checks.html#moduleprocedure-rte_config_checks_each">rte_config_checks_each</a>
+      <a class="list-group-item" href="../interface/rte_config_checks.html#moduleprocedure-rte_config_checks_all">rte_config_checks_all</a>
+    </div>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+      <h2>public interface rte_config_checks</h2>
+   <p>Specify checking of extents and values individually, or all checks together</p>
+<br>
+     <section class="visible-xs visible-sm hidden-md">
+       <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#modprocs-1">Module Procedures</a></h3></div>
+  <div id="modprocs-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../interface/rte_config_checks.html#moduleprocedure-rte_config_checks_each">rte_config_checks_each</a>
+      <a class="list-group-item" href="../interface/rte_config_checks.html#moduleprocedure-rte_config_checks_all">rte_config_checks_all</a>
+    </div>
+  </div>
+</div>
+
+     </section>
+     <br class="visible-xs visible-sm hidden-md">
+     
+
+
+   <h2>Module Procedures</h2>
+      <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-rte_config_checks_each"></span><h3>private subroutine rte_config_checks_each(extents, values)</h3></div>
+  <div class="panel-body">
+       <p>Do extents and/or values checks within RTE+RRTMGP Fortran classes</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>logical(kind=wl),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>extents</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>logical(kind=wl),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>values</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+
+  </div>
+  </div>
+
+      <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-rte_config_checks_all"></span><h3>private subroutine rte_config_checks_all(do_checks)</h3></div>
+  <div class="panel-body">
+       <p>Do all checks within RTE+RRTMGP Fortran classes</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>logical(kind=wl),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>do_checks</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+
+  </div>
+  </div>
+
+
+ </div>
+</div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/interface/rte_sw.html b/reference/rte-fortran-interface/interface/rte_sw.html
new file mode 100644
index 000000000..c01fb08c0
--- /dev/null
+++ b/reference/rte-fortran-interface/interface/rte_sw.html
@@ -0,0 +1,328 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>rte_sw &ndash; RTE-Fortran</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>rte_sw
+   <small>Interface</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title="<p> 1.6% of total for procedures.</p>Including implementation: 150 statements, 79.8% of total for procedures.">3 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_rte_sw.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li><a href='../sourcefile/mo_rte_sw.f90.html'>mo_rte_sw.F90</a></li>
+     <li><a href='../module/mo_rte_sw.html'>mo_rte_sw</a></li>
+     <li class="active">rte_sw</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+      <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#modprocs-0">Module Procedures</a></h3></div>
+  <div id="modprocs-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../interface/rte_sw.html#moduleprocedure-rte_sw_mu0_bycol">rte_sw_mu0_bycol</a>
+      <a class="list-group-item" href="../interface/rte_sw.html#moduleprocedure-rte_sw_mu0_full">rte_sw_mu0_full</a>
+    </div>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+      <h2>public interface rte_sw</h2>
+   
+
+     <section class="visible-xs visible-sm hidden-md">
+       <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#modprocs-1">Module Procedures</a></h3></div>
+  <div id="modprocs-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../interface/rte_sw.html#moduleprocedure-rte_sw_mu0_bycol">rte_sw_mu0_bycol</a>
+      <a class="list-group-item" href="../interface/rte_sw.html#moduleprocedure-rte_sw_mu0_full">rte_sw_mu0_full</a>
+    </div>
+  </div>
+</div>
+
+     </section>
+     <br class="visible-xs visible-sm hidden-md">
+     
+
+
+   <h2>Module Procedures</h2>
+      <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-rte_sw_mu0_bycol"></span><h3>private function rte_sw_mu0_bycol(atmos, top_at_1, mu0, inc_flux, sfc_alb_dir, sfc_alb_dif, fluxes, inc_flux_dif) result(error_msg)</h3></div>
+  <div class="panel-body">
+           
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>atmos</strong></td><td><p>Optical properties provided as arrays</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>logical,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>top_at_1</strong></td><td><p>Is the top of the domain at index 1? (if not, ordering is bottom-to-top)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:)</td><td>::</td>
+  <td><strong>mu0</strong></td><td><p>cosine of solar zenith angle (ncol) - will be assumed constant with height</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>inc_flux</strong></td><td><p>incident flux at top of domain [W/m2] (ncol, ngpt)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>sfc_alb_dir</strong></td><td><p>surface albedo for direct and</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>sfc_alb_dif</strong></td><td><p>diffuse radiation (nband, ncol)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_fluxes.html'>ty_fluxes</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>fluxes</strong></td><td><p>Class describing output calculations</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td>dimension(:,:), target</td><td>::</td>
+  <td><strong>inc_flux_dif</strong></td><td><p>incident diffuse flux at top of domain [W/m2] (ncol, ngpt)</p></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  <p>If empty, calculation was successful</p>
+
+  </div>
+  </div>
+
+      <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-rte_sw_mu0_full"></span><h3>private function rte_sw_mu0_full(atmos, top_at_1, mu0, inc_flux, sfc_alb_dir, sfc_alb_dif, fluxes, inc_flux_dif) result(error_msg)</h3></div>
+  <div class="panel-body">
+           
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>atmos</strong></td><td><p>Optical properties provided as arrays</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>logical,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>top_at_1</strong></td><td><p>Is the top of the domain at index 1? (if not, ordering is bottom-to-top)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>mu0</strong></td><td><p>cosine of solar zenith angle (ncol, nlay)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>inc_flux</strong></td><td><p>incident flux at top of domain [W/m2] (ncol, ngpt)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>sfc_alb_dir</strong></td><td><p>surface albedo for direct and</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>sfc_alb_dif</strong></td><td><p>diffuse radiation (nband, ncol)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_fluxes.html'>ty_fluxes</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>fluxes</strong></td><td><p>Class describing output calculations</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td>dimension(:,:), target</td><td>::</td>
+  <td><strong>inc_flux_dif</strong></td><td><p>incident diffuse flux at top of domain [W/m2] (ncol, ngpt)</p></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  <p>If empty, calculation was successful</p>
+
+  </div>
+  </div>
+
+
+ </div>
+</div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/js/MathJax-config/.gitignore b/reference/rte-fortran-interface/js/MathJax-config/.gitignore
new file mode 100644
index 000000000..e69de29bb
diff --git a/reference/rte-fortran-interface/js/bootstrap.js b/reference/rte-fortran-interface/js/bootstrap.js
new file mode 100644
index 000000000..b6ac8d990
--- /dev/null
+++ b/reference/rte-fortran-interface/js/bootstrap.js
@@ -0,0 +1,2320 @@
+/*!
+ * Bootstrap v3.3.1 (http://getbootstrap.com)
+ * Copyright 2011-2014 Twitter, Inc.
+ * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LICENSE)
+ */
+
+if (typeof jQuery === 'undefined') {
+  throw new Error('Bootstrap\'s JavaScript requires jQuery')
+}
+
++function ($) {
+  var version = $.fn.jquery.split(' ')[0].split('.')
+  if ((version[0] < 2 && version[1] < 9) || (version[0] == 1 && version[1] == 9 && version[2] < 1)) {
+    throw new Error('Bootstrap\'s JavaScript requires jQuery version 1.9.1 or higher')
+  }
+}(jQuery);
+
+/* ========================================================================
+ * Bootstrap: transition.js v3.3.1
+ * http://getbootstrap.com/javascript/#transitions
+ * ========================================================================
+ * Copyright 2011-2014 Twitter, Inc.
+ * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LICENSE)
+ * ======================================================================== */
+
+
++function ($) {
+  'use strict';
+
+  // CSS TRANSITION SUPPORT (Shoutout: http://www.modernizr.com/)
+  // ============================================================
+
+  function transitionEnd() {
+    var el = document.createElement('bootstrap')
+
+    var transEndEventNames = {
+      WebkitTransition : 'webkitTransitionEnd',
+      MozTransition    : 'transitionend',
+      OTransition      : 'oTransitionEnd otransitionend',
+      transition       : 'transitionend'
+    }
+
+    for (var name in transEndEventNames) {
+      if (el.style[name] !== undefined) {
+        return { end: transEndEventNames[name] }
+      }
+    }
+
+    return false // explicit for ie8 (  ._.)
+  }
+
+  // http://blog.alexmaccaw.com/css-transitions
+  $.fn.emulateTransitionEnd = function (duration) {
+    var called = false
+    var $el = this
+    $(this).one('bsTransitionEnd', function () { called = true })
+    var callback = function () { if (!called) $($el).trigger($.support.transition.end) }
+    setTimeout(callback, duration)
+    return this
+  }
+
+  $(function () {
+    $.support.transition = transitionEnd()
+
+    if (!$.support.transition) return
+
+    $.event.special.bsTransitionEnd = {
+      bindType: $.support.transition.end,
+      delegateType: $.support.transition.end,
+      handle: function (e) {
+        if ($(e.target).is(this)) return e.handleObj.handler.apply(this, arguments)
+      }
+    }
+  })
+
+}(jQuery);
+
+/* ========================================================================
+ * Bootstrap: alert.js v3.3.1
+ * http://getbootstrap.com/javascript/#alerts
+ * ========================================================================
+ * Copyright 2011-2014 Twitter, Inc.
+ * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LICENSE)
+ * ======================================================================== */
+
+
++function ($) {
+  'use strict';
+
+  // ALERT CLASS DEFINITION
+  // ======================
+
+  var dismiss = '[data-dismiss="alert"]'
+  var Alert   = function (el) {
+    $(el).on('click', dismiss, this.close)
+  }
+
+  Alert.VERSION = '3.3.1'
+
+  Alert.TRANSITION_DURATION = 150
+
+  Alert.prototype.close = function (e) {
+    var $this    = $(this)
+    var selector = $this.attr('data-target')
+
+    if (!selector) {
+      selector = $this.attr('href')
+      selector = selector && selector.replace(/.*(?=#[^\s]*$)/, '') // strip for ie7
+    }
+
+    var $parent = $(selector)
+
+    if (e) e.preventDefault()
+
+    if (!$parent.length) {
+      $parent = $this.closest('.alert')
+    }
+
+    $parent.trigger(e = $.Event('close.bs.alert'))
+
+    if (e.isDefaultPrevented()) return
+
+    $parent.removeClass('in')
+
+    function removeElement() {
+      // detach from parent, fire event then clean up data
+      $parent.detach().trigger('closed.bs.alert').remove()
+    }
+
+    $.support.transition && $parent.hasClass('fade') ?
+      $parent
+        .one('bsTransitionEnd', removeElement)
+        .emulateTransitionEnd(Alert.TRANSITION_DURATION) :
+      removeElement()
+  }
+
+
+  // ALERT PLUGIN DEFINITION
+  // =======================
+
+  function Plugin(option) {
+    return this.each(function () {
+      var $this = $(this)
+      var data  = $this.data('bs.alert')
+
+      if (!data) $this.data('bs.alert', (data = new Alert(this)))
+      if (typeof option == 'string') data[option].call($this)
+    })
+  }
+
+  var old = $.fn.alert
+
+  $.fn.alert             = Plugin
+  $.fn.alert.Constructor = Alert
+
+
+  // ALERT NO CONFLICT
+  // =================
+
+  $.fn.alert.noConflict = function () {
+    $.fn.alert = old
+    return this
+  }
+
+
+  // ALERT DATA-API
+  // ==============
+
+  $(document).on('click.bs.alert.data-api', dismiss, Alert.prototype.close)
+
+}(jQuery);
+
+/* ========================================================================
+ * Bootstrap: button.js v3.3.1
+ * http://getbootstrap.com/javascript/#buttons
+ * ========================================================================
+ * Copyright 2011-2014 Twitter, Inc.
+ * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LICENSE)
+ * ======================================================================== */
+
+
++function ($) {
+  'use strict';
+
+  // BUTTON PUBLIC CLASS DEFINITION
+  // ==============================
+
+  var Button = function (element, options) {
+    this.$element  = $(element)
+    this.options   = $.extend({}, Button.DEFAULTS, options)
+    this.isLoading = false
+  }
+
+  Button.VERSION  = '3.3.1'
+
+  Button.DEFAULTS = {
+    loadingText: 'loading...'
+  }
+
+  Button.prototype.setState = function (state) {
+    var d    = 'disabled'
+    var $el  = this.$element
+    var val  = $el.is('input') ? 'val' : 'html'
+    var data = $el.data()
+
+    state = state + 'Text'
+
+    if (data.resetText == null) $el.data('resetText', $el[val]())
+
+    // push to event loop to allow forms to submit
+    setTimeout($.proxy(function () {
+      $el[val](data[state] == null ? this.options[state] : data[state])
+
+      if (state == 'loadingText') {
+        this.isLoading = true
+        $el.addClass(d).attr(d, d)
+      } else if (this.isLoading) {
+        this.isLoading = false
+        $el.removeClass(d).removeAttr(d)
+      }
+    }, this), 0)
+  }
+
+  Button.prototype.toggle = function () {
+    var changed = true
+    var $parent = this.$element.closest('[data-toggle="buttons"]')
+
+    if ($parent.length) {
+      var $input = this.$element.find('input')
+      if ($input.prop('type') == 'radio') {
+        if ($input.prop('checked') && this.$element.hasClass('active')) changed = false
+        else $parent.find('.active').removeClass('active')
+      }
+      if (changed) $input.prop('checked', !this.$element.hasClass('active')).trigger('change')
+    } else {
+      this.$element.attr('aria-pressed', !this.$element.hasClass('active'))
+    }
+
+    if (changed) this.$element.toggleClass('active')
+  }
+
+
+  // BUTTON PLUGIN DEFINITION
+  // ========================
+
+  function Plugin(option) {
+    return this.each(function () {
+      var $this   = $(this)
+      var data    = $this.data('bs.button')
+      var options = typeof option == 'object' && option
+
+      if (!data) $this.data('bs.button', (data = new Button(this, options)))
+
+      if (option == 'toggle') data.toggle()
+      else if (option) data.setState(option)
+    })
+  }
+
+  var old = $.fn.button
+
+  $.fn.button             = Plugin
+  $.fn.button.Constructor = Button
+
+
+  // BUTTON NO CONFLICT
+  // ==================
+
+  $.fn.button.noConflict = function () {
+    $.fn.button = old
+    return this
+  }
+
+
+  // BUTTON DATA-API
+  // ===============
+
+  $(document)
+    .on('click.bs.button.data-api', '[data-toggle^="button"]', function (e) {
+      var $btn = $(e.target)
+      if (!$btn.hasClass('btn')) $btn = $btn.closest('.btn')
+      Plugin.call($btn, 'toggle')
+      e.preventDefault()
+    })
+    .on('focus.bs.button.data-api blur.bs.button.data-api', '[data-toggle^="button"]', function (e) {
+      $(e.target).closest('.btn').toggleClass('focus', /^focus(in)?$/.test(e.type))
+    })
+
+}(jQuery);
+
+/* ========================================================================
+ * Bootstrap: carousel.js v3.3.1
+ * http://getbootstrap.com/javascript/#carousel
+ * ========================================================================
+ * Copyright 2011-2014 Twitter, Inc.
+ * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LICENSE)
+ * ======================================================================== */
+
+
++function ($) {
+  'use strict';
+
+  // CAROUSEL CLASS DEFINITION
+  // =========================
+
+  var Carousel = function (element, options) {
+    this.$element    = $(element)
+    this.$indicators = this.$element.find('.carousel-indicators')
+    this.options     = options
+    this.paused      =
+    this.sliding     =
+    this.interval    =
+    this.$active     =
+    this.$items      = null
+
+    this.options.keyboard && this.$element.on('keydown.bs.carousel', $.proxy(this.keydown, this))
+
+    this.options.pause == 'hover' && !('ontouchstart' in document.documentElement) && this.$element
+      .on('mouseenter.bs.carousel', $.proxy(this.pause, this))
+      .on('mouseleave.bs.carousel', $.proxy(this.cycle, this))
+  }
+
+  Carousel.VERSION  = '3.3.1'
+
+  Carousel.TRANSITION_DURATION = 600
+
+  Carousel.DEFAULTS = {
+    interval: 5000,
+    pause: 'hover',
+    wrap: true,
+    keyboard: true
+  }
+
+  Carousel.prototype.keydown = function (e) {
+    if (/input|textarea/i.test(e.target.tagName)) return
+    switch (e.which) {
+      case 37: this.prev(); break
+      case 39: this.next(); break
+      default: return
+    }
+
+    e.preventDefault()
+  }
+
+  Carousel.prototype.cycle = function (e) {
+    e || (this.paused = false)
+
+    this.interval && clearInterval(this.interval)
+
+    this.options.interval
+      && !this.paused
+      && (this.interval = setInterval($.proxy(this.next, this), this.options.interval))
+
+    return this
+  }
+
+  Carousel.prototype.getItemIndex = function (item) {
+    this.$items = item.parent().children('.item')
+    return this.$items.index(item || this.$active)
+  }
+
+  Carousel.prototype.getItemForDirection = function (direction, active) {
+    var delta = direction == 'prev' ? -1 : 1
+    var activeIndex = this.getItemIndex(active)
+    var itemIndex = (activeIndex + delta) % this.$items.length
+    return this.$items.eq(itemIndex)
+  }
+
+  Carousel.prototype.to = function (pos) {
+    var that        = this
+    var activeIndex = this.getItemIndex(this.$active = this.$element.find('.item.active'))
+
+    if (pos > (this.$items.length - 1) || pos < 0) return
+
+    if (this.sliding)       return this.$element.one('slid.bs.carousel', function () { that.to(pos) }) // yes, "slid"
+    if (activeIndex == pos) return this.pause().cycle()
+
+    return this.slide(pos > activeIndex ? 'next' : 'prev', this.$items.eq(pos))
+  }
+
+  Carousel.prototype.pause = function (e) {
+    e || (this.paused = true)
+
+    if (this.$element.find('.next, .prev').length && $.support.transition) {
+      this.$element.trigger($.support.transition.end)
+      this.cycle(true)
+    }
+
+    this.interval = clearInterval(this.interval)
+
+    return this
+  }
+
+  Carousel.prototype.next = function () {
+    if (this.sliding) return
+    return this.slide('next')
+  }
+
+  Carousel.prototype.prev = function () {
+    if (this.sliding) return
+    return this.slide('prev')
+  }
+
+  Carousel.prototype.slide = function (type, next) {
+    var $active   = this.$element.find('.item.active')
+    var $next     = next || this.getItemForDirection(type, $active)
+    var isCycling = this.interval
+    var direction = type == 'next' ? 'left' : 'right'
+    var fallback  = type == 'next' ? 'first' : 'last'
+    var that      = this
+
+    if (!$next.length) {
+      if (!this.options.wrap) return
+      $next = this.$element.find('.item')[fallback]()
+    }
+
+    if ($next.hasClass('active')) return (this.sliding = false)
+
+    var relatedTarget = $next[0]
+    var slideEvent = $.Event('slide.bs.carousel', {
+      relatedTarget: relatedTarget,
+      direction: direction
+    })
+    this.$element.trigger(slideEvent)
+    if (slideEvent.isDefaultPrevented()) return
+
+    this.sliding = true
+
+    isCycling && this.pause()
+
+    if (this.$indicators.length) {
+      this.$indicators.find('.active').removeClass('active')
+      var $nextIndicator = $(this.$indicators.children()[this.getItemIndex($next)])
+      $nextIndicator && $nextIndicator.addClass('active')
+    }
+
+    var slidEvent = $.Event('slid.bs.carousel', { relatedTarget: relatedTarget, direction: direction }) // yes, "slid"
+    if ($.support.transition && this.$element.hasClass('slide')) {
+      $next.addClass(type)
+      $next[0].offsetWidth // force reflow
+      $active.addClass(direction)
+      $next.addClass(direction)
+      $active
+        .one('bsTransitionEnd', function () {
+          $next.removeClass([type, direction].join(' ')).addClass('active')
+          $active.removeClass(['active', direction].join(' '))
+          that.sliding = false
+          setTimeout(function () {
+            that.$element.trigger(slidEvent)
+          }, 0)
+        })
+        .emulateTransitionEnd(Carousel.TRANSITION_DURATION)
+    } else {
+      $active.removeClass('active')
+      $next.addClass('active')
+      this.sliding = false
+      this.$element.trigger(slidEvent)
+    }
+
+    isCycling && this.cycle()
+
+    return this
+  }
+
+
+  // CAROUSEL PLUGIN DEFINITION
+  // ==========================
+
+  function Plugin(option) {
+    return this.each(function () {
+      var $this   = $(this)
+      var data    = $this.data('bs.carousel')
+      var options = $.extend({}, Carousel.DEFAULTS, $this.data(), typeof option == 'object' && option)
+      var action  = typeof option == 'string' ? option : options.slide
+
+      if (!data) $this.data('bs.carousel', (data = new Carousel(this, options)))
+      if (typeof option == 'number') data.to(option)
+      else if (action) data[action]()
+      else if (options.interval) data.pause().cycle()
+    })
+  }
+
+  var old = $.fn.carousel
+
+  $.fn.carousel             = Plugin
+  $.fn.carousel.Constructor = Carousel
+
+
+  // CAROUSEL NO CONFLICT
+  // ====================
+
+  $.fn.carousel.noConflict = function () {
+    $.fn.carousel = old
+    return this
+  }
+
+
+  // CAROUSEL DATA-API
+  // =================
+
+  var clickHandler = function (e) {
+    var href
+    var $this   = $(this)
+    var $target = $($this.attr('data-target') || (href = $this.attr('href')) && href.replace(/.*(?=#[^\s]+$)/, '')) // strip for ie7
+    if (!$target.hasClass('carousel')) return
+    var options = $.extend({}, $target.data(), $this.data())
+    var slideIndex = $this.attr('data-slide-to')
+    if (slideIndex) options.interval = false
+
+    Plugin.call($target, options)
+
+    if (slideIndex) {
+      $target.data('bs.carousel').to(slideIndex)
+    }
+
+    e.preventDefault()
+  }
+
+  $(document)
+    .on('click.bs.carousel.data-api', '[data-slide]', clickHandler)
+    .on('click.bs.carousel.data-api', '[data-slide-to]', clickHandler)
+
+  $(window).on('load', function () {
+    $('[data-ride="carousel"]').each(function () {
+      var $carousel = $(this)
+      Plugin.call($carousel, $carousel.data())
+    })
+  })
+
+}(jQuery);
+
+/* ========================================================================
+ * Bootstrap: collapse.js v3.3.1
+ * http://getbootstrap.com/javascript/#collapse
+ * ========================================================================
+ * Copyright 2011-2014 Twitter, Inc.
+ * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LICENSE)
+ * ======================================================================== */
+
+
++function ($) {
+  'use strict';
+
+  // COLLAPSE PUBLIC CLASS DEFINITION
+  // ================================
+
+  var Collapse = function (element, options) {
+    this.$element      = $(element)
+    this.options       = $.extend({}, Collapse.DEFAULTS, options)
+    this.$trigger      = $(this.options.trigger).filter('[href="#' + element.id + '"], [data-target="#' + element.id + '"]')
+    this.transitioning = null
+
+    if (this.options.parent) {
+      this.$parent = this.getParent()
+    } else {
+      this.addAriaAndCollapsedClass(this.$element, this.$trigger)
+    }
+
+    if (this.options.toggle) this.toggle()
+  }
+
+  Collapse.VERSION  = '3.3.1'
+
+  Collapse.TRANSITION_DURATION = 350
+
+  Collapse.DEFAULTS = {
+    toggle: true,
+    trigger: '[data-toggle="collapse"]'
+  }
+
+  Collapse.prototype.dimension = function () {
+    var hasWidth = this.$element.hasClass('width')
+    return hasWidth ? 'width' : 'height'
+  }
+
+  Collapse.prototype.show = function () {
+    if (this.transitioning || this.$element.hasClass('in')) return
+
+    var activesData
+    var actives = this.$parent && this.$parent.find('> .panel').children('.in, .collapsing')
+
+    if (actives && actives.length) {
+      activesData = actives.data('bs.collapse')
+      if (activesData && activesData.transitioning) return
+    }
+
+    var startEvent = $.Event('show.bs.collapse')
+    this.$element.trigger(startEvent)
+    if (startEvent.isDefaultPrevented()) return
+
+    if (actives && actives.length) {
+      Plugin.call(actives, 'hide')
+      activesData || actives.data('bs.collapse', null)
+    }
+
+    var dimension = this.dimension()
+
+    this.$element
+      .removeClass('collapse')
+      .addClass('collapsing')[dimension](0)
+      .attr('aria-expanded', true)
+
+    this.$trigger
+      .removeClass('collapsed')
+      .attr('aria-expanded', true)
+
+    this.transitioning = 1
+
+    var complete = function () {
+      this.$element
+        .removeClass('collapsing')
+        .addClass('collapse in')[dimension]('')
+      this.transitioning = 0
+      this.$element
+        .trigger('shown.bs.collapse')
+    }
+
+    if (!$.support.transition) return complete.call(this)
+
+    var scrollSize = $.camelCase(['scroll', dimension].join('-'))
+
+    this.$element
+      .one('bsTransitionEnd', $.proxy(complete, this))
+      .emulateTransitionEnd(Collapse.TRANSITION_DURATION)[dimension](this.$element[0][scrollSize])
+  }
+
+  Collapse.prototype.hide = function () {
+    if (this.transitioning || !this.$element.hasClass('in')) return
+
+    var startEvent = $.Event('hide.bs.collapse')
+    this.$element.trigger(startEvent)
+    if (startEvent.isDefaultPrevented()) return
+
+    var dimension = this.dimension()
+
+    this.$element[dimension](this.$element[dimension]())[0].offsetHeight
+
+    this.$element
+      .addClass('collapsing')
+      .removeClass('collapse in')
+      .attr('aria-expanded', false)
+
+    this.$trigger
+      .addClass('collapsed')
+      .attr('aria-expanded', false)
+
+    this.transitioning = 1
+
+    var complete = function () {
+      this.transitioning = 0
+      this.$element
+        .removeClass('collapsing')
+        .addClass('collapse')
+        .trigger('hidden.bs.collapse')
+    }
+
+    if (!$.support.transition) return complete.call(this)
+
+    this.$element
+      [dimension](0)
+      .one('bsTransitionEnd', $.proxy(complete, this))
+      .emulateTransitionEnd(Collapse.TRANSITION_DURATION)
+  }
+
+  Collapse.prototype.toggle = function () {
+    this[this.$element.hasClass('in') ? 'hide' : 'show']()
+  }
+
+  Collapse.prototype.getParent = function () {
+    return $(this.options.parent)
+      .find('[data-toggle="collapse"][data-parent="' + this.options.parent + '"]')
+      .each($.proxy(function (i, element) {
+        var $element = $(element)
+        this.addAriaAndCollapsedClass(getTargetFromTrigger($element), $element)
+      }, this))
+      .end()
+  }
+
+  Collapse.prototype.addAriaAndCollapsedClass = function ($element, $trigger) {
+    var isOpen = $element.hasClass('in')
+
+    $element.attr('aria-expanded', isOpen)
+    $trigger
+      .toggleClass('collapsed', !isOpen)
+      .attr('aria-expanded', isOpen)
+  }
+
+  function getTargetFromTrigger($trigger) {
+    var href
+    var target = $trigger.attr('data-target')
+      || (href = $trigger.attr('href')) && href.replace(/.*(?=#[^\s]+$)/, '') // strip for ie7
+
+    return $(target)
+  }
+
+
+  // COLLAPSE PLUGIN DEFINITION
+  // ==========================
+
+  function Plugin(option) {
+    return this.each(function () {
+      var $this   = $(this)
+      var data    = $this.data('bs.collapse')
+      var options = $.extend({}, Collapse.DEFAULTS, $this.data(), typeof option == 'object' && option)
+
+      if (!data && options.toggle && option == 'show') options.toggle = false
+      if (!data) $this.data('bs.collapse', (data = new Collapse(this, options)))
+      if (typeof option == 'string') data[option]()
+    })
+  }
+
+  var old = $.fn.collapse
+
+  $.fn.collapse             = Plugin
+  $.fn.collapse.Constructor = Collapse
+
+
+  // COLLAPSE NO CONFLICT
+  // ====================
+
+  $.fn.collapse.noConflict = function () {
+    $.fn.collapse = old
+    return this
+  }
+
+
+  // COLLAPSE DATA-API
+  // =================
+
+  $(document).on('click.bs.collapse.data-api', '[data-toggle="collapse"]', function (e) {
+    var $this   = $(this)
+
+    if (!$this.attr('data-target')) e.preventDefault()
+
+    var $target = getTargetFromTrigger($this)
+    var data    = $target.data('bs.collapse')
+    var option  = data ? 'toggle' : $.extend({}, $this.data(), { trigger: this })
+
+    Plugin.call($target, option)
+  })
+
+}(jQuery);
+
+/* ========================================================================
+ * Bootstrap: dropdown.js v3.3.1
+ * http://getbootstrap.com/javascript/#dropdowns
+ * ========================================================================
+ * Copyright 2011-2014 Twitter, Inc.
+ * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LICENSE)
+ * ======================================================================== */
+
+
++function ($) {
+  'use strict';
+
+  // DROPDOWN CLASS DEFINITION
+  // =========================
+
+  var backdrop = '.dropdown-backdrop'
+  var toggle   = '[data-toggle="dropdown"]'
+  var Dropdown = function (element) {
+    $(element).on('click.bs.dropdown', this.toggle)
+  }
+
+  Dropdown.VERSION = '3.3.1'
+
+  Dropdown.prototype.toggle = function (e) {
+    var $this = $(this)
+
+    if ($this.is('.disabled, :disabled')) return
+
+    var $parent  = getParent($this)
+    var isActive = $parent.hasClass('open')
+
+    clearMenus()
+
+    if (!isActive) {
+      if ('ontouchstart' in document.documentElement && !$parent.closest('.navbar-nav').length) {
+        // if mobile we use a backdrop because click events don't delegate
+        $('<div class="dropdown-backdrop"/>').insertAfter($(this)).on('click', clearMenus)
+      }
+
+      var relatedTarget = { relatedTarget: this }
+      $parent.trigger(e = $.Event('show.bs.dropdown', relatedTarget))
+
+      if (e.isDefaultPrevented()) return
+
+      $this
+        .trigger('focus')
+        .attr('aria-expanded', 'true')
+
+      $parent
+        .toggleClass('open')
+        .trigger('shown.bs.dropdown', relatedTarget)
+    }
+
+    return false
+  }
+
+  Dropdown.prototype.keydown = function (e) {
+    if (!/(38|40|27|32)/.test(e.which) || /input|textarea/i.test(e.target.tagName)) return
+
+    var $this = $(this)
+
+    e.preventDefault()
+    e.stopPropagation()
+
+    if ($this.is('.disabled, :disabled')) return
+
+    var $parent  = getParent($this)
+    var isActive = $parent.hasClass('open')
+
+    if ((!isActive && e.which != 27) || (isActive && e.which == 27)) {
+      if (e.which == 27) $parent.find(toggle).trigger('focus')
+      return $this.trigger('click')
+    }
+
+    var desc = ' li:not(.divider):visible a'
+    var $items = $parent.find('[role="menu"]' + desc + ', [role="listbox"]' + desc)
+
+    if (!$items.length) return
+
+    var index = $items.index(e.target)
+
+    if (e.which == 38 && index > 0)                 index--                        // up
+    if (e.which == 40 && index < $items.length - 1) index++                        // down
+    if (!~index)                                      index = 0
+
+    $items.eq(index).trigger('focus')
+  }
+
+  function clearMenus(e) {
+    if (e && e.which === 3) return
+    $(backdrop).remove()
+    $(toggle).each(function () {
+      var $this         = $(this)
+      var $parent       = getParent($this)
+      var relatedTarget = { relatedTarget: this }
+
+      if (!$parent.hasClass('open')) return
+
+      $parent.trigger(e = $.Event('hide.bs.dropdown', relatedTarget))
+
+      if (e.isDefaultPrevented()) return
+
+      $this.attr('aria-expanded', 'false')
+      $parent.removeClass('open').trigger('hidden.bs.dropdown', relatedTarget)
+    })
+  }
+
+  function getParent($this) {
+    var selector = $this.attr('data-target')
+
+    if (!selector) {
+      selector = $this.attr('href')
+      selector = selector && /#[A-Za-z]/.test(selector) && selector.replace(/.*(?=#[^\s]*$)/, '') // strip for ie7
+    }
+
+    var $parent = selector && $(selector)
+
+    return $parent && $parent.length ? $parent : $this.parent()
+  }
+
+
+  // DROPDOWN PLUGIN DEFINITION
+  // ==========================
+
+  function Plugin(option) {
+    return this.each(function () {
+      var $this = $(this)
+      var data  = $this.data('bs.dropdown')
+
+      if (!data) $this.data('bs.dropdown', (data = new Dropdown(this)))
+      if (typeof option == 'string') data[option].call($this)
+    })
+  }
+
+  var old = $.fn.dropdown
+
+  $.fn.dropdown             = Plugin
+  $.fn.dropdown.Constructor = Dropdown
+
+
+  // DROPDOWN NO CONFLICT
+  // ====================
+
+  $.fn.dropdown.noConflict = function () {
+    $.fn.dropdown = old
+    return this
+  }
+
+
+  // APPLY TO STANDARD DROPDOWN ELEMENTS
+  // ===================================
+
+  $(document)
+    .on('click.bs.dropdown.data-api', clearMenus)
+    .on('click.bs.dropdown.data-api', '.dropdown form', function (e) { e.stopPropagation() })
+    .on('click.bs.dropdown.data-api', toggle, Dropdown.prototype.toggle)
+    .on('keydown.bs.dropdown.data-api', toggle, Dropdown.prototype.keydown)
+    .on('keydown.bs.dropdown.data-api', '[role="menu"]', Dropdown.prototype.keydown)
+    .on('keydown.bs.dropdown.data-api', '[role="listbox"]', Dropdown.prototype.keydown)
+
+}(jQuery);
+
+/* ========================================================================
+ * Bootstrap: modal.js v3.3.1
+ * http://getbootstrap.com/javascript/#modals
+ * ========================================================================
+ * Copyright 2011-2014 Twitter, Inc.
+ * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LICENSE)
+ * ======================================================================== */
+
+
++function ($) {
+  'use strict';
+
+  // MODAL CLASS DEFINITION
+  // ======================
+
+  var Modal = function (element, options) {
+    this.options        = options
+    this.$body          = $(document.body)
+    this.$element       = $(element)
+    this.$backdrop      =
+    this.isShown        = null
+    this.scrollbarWidth = 0
+
+    if (this.options.remote) {
+      this.$element
+        .find('.modal-content')
+        .load(this.options.remote, $.proxy(function () {
+          this.$element.trigger('loaded.bs.modal')
+        }, this))
+    }
+  }
+
+  Modal.VERSION  = '3.3.1'
+
+  Modal.TRANSITION_DURATION = 300
+  Modal.BACKDROP_TRANSITION_DURATION = 150
+
+  Modal.DEFAULTS = {
+    backdrop: true,
+    keyboard: true,
+    show: true
+  }
+
+  Modal.prototype.toggle = function (_relatedTarget) {
+    return this.isShown ? this.hide() : this.show(_relatedTarget)
+  }
+
+  Modal.prototype.show = function (_relatedTarget) {
+    var that = this
+    var e    = $.Event('show.bs.modal', { relatedTarget: _relatedTarget })
+
+    this.$element.trigger(e)
+
+    if (this.isShown || e.isDefaultPrevented()) return
+
+    this.isShown = true
+
+    this.checkScrollbar()
+    this.setScrollbar()
+    this.$body.addClass('modal-open')
+
+    this.escape()
+    this.resize()
+
+    this.$element.on('click.dismiss.bs.modal', '[data-dismiss="modal"]', $.proxy(this.hide, this))
+
+    this.backdrop(function () {
+      var transition = $.support.transition && that.$element.hasClass('fade')
+
+      if (!that.$element.parent().length) {
+        that.$element.appendTo(that.$body) // don't move modals dom position
+      }
+
+      that.$element
+        .show()
+        .scrollTop(0)
+
+      if (that.options.backdrop) that.adjustBackdrop()
+      that.adjustDialog()
+
+      if (transition) {
+        that.$element[0].offsetWidth // force reflow
+      }
+
+      that.$element
+        .addClass('in')
+        .attr('aria-hidden', false)
+
+      that.enforceFocus()
+
+      var e = $.Event('shown.bs.modal', { relatedTarget: _relatedTarget })
+
+      transition ?
+        that.$element.find('.modal-dialog') // wait for modal to slide in
+          .one('bsTransitionEnd', function () {
+            that.$element.trigger('focus').trigger(e)
+          })
+          .emulateTransitionEnd(Modal.TRANSITION_DURATION) :
+        that.$element.trigger('focus').trigger(e)
+    })
+  }
+
+  Modal.prototype.hide = function (e) {
+    if (e) e.preventDefault()
+
+    e = $.Event('hide.bs.modal')
+
+    this.$element.trigger(e)
+
+    if (!this.isShown || e.isDefaultPrevented()) return
+
+    this.isShown = false
+
+    this.escape()
+    this.resize()
+
+    $(document).off('focusin.bs.modal')
+
+    this.$element
+      .removeClass('in')
+      .attr('aria-hidden', true)
+      .off('click.dismiss.bs.modal')
+
+    $.support.transition && this.$element.hasClass('fade') ?
+      this.$element
+        .one('bsTransitionEnd', $.proxy(this.hideModal, this))
+        .emulateTransitionEnd(Modal.TRANSITION_DURATION) :
+      this.hideModal()
+  }
+
+  Modal.prototype.enforceFocus = function () {
+    $(document)
+      .off('focusin.bs.modal') // guard against infinite focus loop
+      .on('focusin.bs.modal', $.proxy(function (e) {
+        if (this.$element[0] !== e.target && !this.$element.has(e.target).length) {
+          this.$element.trigger('focus')
+        }
+      }, this))
+  }
+
+  Modal.prototype.escape = function () {
+    if (this.isShown && this.options.keyboard) {
+      this.$element.on('keydown.dismiss.bs.modal', $.proxy(function (e) {
+        e.which == 27 && this.hide()
+      }, this))
+    } else if (!this.isShown) {
+      this.$element.off('keydown.dismiss.bs.modal')
+    }
+  }
+
+  Modal.prototype.resize = function () {
+    if (this.isShown) {
+      $(window).on('resize.bs.modal', $.proxy(this.handleUpdate, this))
+    } else {
+      $(window).off('resize.bs.modal')
+    }
+  }
+
+  Modal.prototype.hideModal = function () {
+    var that = this
+    this.$element.hide()
+    this.backdrop(function () {
+      that.$body.removeClass('modal-open')
+      that.resetAdjustments()
+      that.resetScrollbar()
+      that.$element.trigger('hidden.bs.modal')
+    })
+  }
+
+  Modal.prototype.removeBackdrop = function () {
+    this.$backdrop && this.$backdrop.remove()
+    this.$backdrop = null
+  }
+
+  Modal.prototype.backdrop = function (callback) {
+    var that = this
+    var animate = this.$element.hasClass('fade') ? 'fade' : ''
+
+    if (this.isShown && this.options.backdrop) {
+      var doAnimate = $.support.transition && animate
+
+      this.$backdrop = $('<div class="modal-backdrop ' + animate + '" />')
+        .prependTo(this.$element)
+        .on('click.dismiss.bs.modal', $.proxy(function (e) {
+          if (e.target !== e.currentTarget) return
+          this.options.backdrop == 'static'
+            ? this.$element[0].focus.call(this.$element[0])
+            : this.hide.call(this)
+        }, this))
+
+      if (doAnimate) this.$backdrop[0].offsetWidth // force reflow
+
+      this.$backdrop.addClass('in')
+
+      if (!callback) return
+
+      doAnimate ?
+        this.$backdrop
+          .one('bsTransitionEnd', callback)
+          .emulateTransitionEnd(Modal.BACKDROP_TRANSITION_DURATION) :
+        callback()
+
+    } else if (!this.isShown && this.$backdrop) {
+      this.$backdrop.removeClass('in')
+
+      var callbackRemove = function () {
+        that.removeBackdrop()
+        callback && callback()
+      }
+      $.support.transition && this.$element.hasClass('fade') ?
+        this.$backdrop
+          .one('bsTransitionEnd', callbackRemove)
+          .emulateTransitionEnd(Modal.BACKDROP_TRANSITION_DURATION) :
+        callbackRemove()
+
+    } else if (callback) {
+      callback()
+    }
+  }
+
+  // these following methods are used to handle overflowing modals
+
+  Modal.prototype.handleUpdate = function () {
+    if (this.options.backdrop) this.adjustBackdrop()
+    this.adjustDialog()
+  }
+
+  Modal.prototype.adjustBackdrop = function () {
+    this.$backdrop
+      .css('height', 0)
+      .css('height', this.$element[0].scrollHeight)
+  }
+
+  Modal.prototype.adjustDialog = function () {
+    var modalIsOverflowing = this.$element[0].scrollHeight > document.documentElement.clientHeight
+
+    this.$element.css({
+      paddingLeft:  !this.bodyIsOverflowing && modalIsOverflowing ? this.scrollbarWidth : '',
+      paddingRight: this.bodyIsOverflowing && !modalIsOverflowing ? this.scrollbarWidth : ''
+    })
+  }
+
+  Modal.prototype.resetAdjustments = function () {
+    this.$element.css({
+      paddingLeft: '',
+      paddingRight: ''
+    })
+  }
+
+  Modal.prototype.checkScrollbar = function () {
+    this.bodyIsOverflowing = document.body.scrollHeight > document.documentElement.clientHeight
+    this.scrollbarWidth = this.measureScrollbar()
+  }
+
+  Modal.prototype.setScrollbar = function () {
+    var bodyPad = parseInt((this.$body.css('padding-right') || 0), 10)
+    if (this.bodyIsOverflowing) this.$body.css('padding-right', bodyPad + this.scrollbarWidth)
+  }
+
+  Modal.prototype.resetScrollbar = function () {
+    this.$body.css('padding-right', '')
+  }
+
+  Modal.prototype.measureScrollbar = function () { // thx walsh
+    var scrollDiv = document.createElement('div')
+    scrollDiv.className = 'modal-scrollbar-measure'
+    this.$body.append(scrollDiv)
+    var scrollbarWidth = scrollDiv.offsetWidth - scrollDiv.clientWidth
+    this.$body[0].removeChild(scrollDiv)
+    return scrollbarWidth
+  }
+
+
+  // MODAL PLUGIN DEFINITION
+  // =======================
+
+  function Plugin(option, _relatedTarget) {
+    return this.each(function () {
+      var $this   = $(this)
+      var data    = $this.data('bs.modal')
+      var options = $.extend({}, Modal.DEFAULTS, $this.data(), typeof option == 'object' && option)
+
+      if (!data) $this.data('bs.modal', (data = new Modal(this, options)))
+      if (typeof option == 'string') data[option](_relatedTarget)
+      else if (options.show) data.show(_relatedTarget)
+    })
+  }
+
+  var old = $.fn.modal
+
+  $.fn.modal             = Plugin
+  $.fn.modal.Constructor = Modal
+
+
+  // MODAL NO CONFLICT
+  // =================
+
+  $.fn.modal.noConflict = function () {
+    $.fn.modal = old
+    return this
+  }
+
+
+  // MODAL DATA-API
+  // ==============
+
+  $(document).on('click.bs.modal.data-api', '[data-toggle="modal"]', function (e) {
+    var $this   = $(this)
+    var href    = $this.attr('href')
+    var $target = $($this.attr('data-target') || (href && href.replace(/.*(?=#[^\s]+$)/, ''))) // strip for ie7
+    var option  = $target.data('bs.modal') ? 'toggle' : $.extend({ remote: !/#/.test(href) && href }, $target.data(), $this.data())
+
+    if ($this.is('a')) e.preventDefault()
+
+    $target.one('show.bs.modal', function (showEvent) {
+      if (showEvent.isDefaultPrevented()) return // only register focus restorer if modal will actually get shown
+      $target.one('hidden.bs.modal', function () {
+        $this.is(':visible') && $this.trigger('focus')
+      })
+    })
+    Plugin.call($target, option, this)
+  })
+
+}(jQuery);
+
+/* ========================================================================
+ * Bootstrap: tooltip.js v3.3.1
+ * http://getbootstrap.com/javascript/#tooltip
+ * Inspired by the original jQuery.tipsy by Jason Frame
+ * ========================================================================
+ * Copyright 2011-2014 Twitter, Inc.
+ * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LICENSE)
+ * ======================================================================== */
+
+
++function ($) {
+  'use strict';
+
+  // TOOLTIP PUBLIC CLASS DEFINITION
+  // ===============================
+
+  var Tooltip = function (element, options) {
+    this.type       =
+    this.options    =
+    this.enabled    =
+    this.timeout    =
+    this.hoverState =
+    this.$element   = null
+
+    this.init('tooltip', element, options)
+  }
+
+  Tooltip.VERSION  = '3.3.1'
+
+  Tooltip.TRANSITION_DURATION = 150
+
+  Tooltip.DEFAULTS = {
+    animation: true,
+    placement: 'top',
+    selector: false,
+    template: '<div class="tooltip" role="tooltip"><div class="tooltip-arrow"></div><div class="tooltip-inner"></div></div>',
+    trigger: 'hover focus',
+    title: '',
+    delay: 0,
+    html: false,
+    container: false,
+    viewport: {
+      selector: 'body',
+      padding: 0
+    }
+  }
+
+  Tooltip.prototype.init = function (type, element, options) {
+    this.enabled   = true
+    this.type      = type
+    this.$element  = $(element)
+    this.options   = this.getOptions(options)
+    this.$viewport = this.options.viewport && $(this.options.viewport.selector || this.options.viewport)
+
+    var triggers = this.options.trigger.split(' ')
+
+    for (var i = triggers.length; i--;) {
+      var trigger = triggers[i]
+
+      if (trigger == 'click') {
+        this.$element.on('click.' + this.type, this.options.selector, $.proxy(this.toggle, this))
+      } else if (trigger != 'manual') {
+        var eventIn  = trigger == 'hover' ? 'mouseenter' : 'focusin'
+        var eventOut = trigger == 'hover' ? 'mouseleave' : 'focusout'
+
+        this.$element.on(eventIn  + '.' + this.type, this.options.selector, $.proxy(this.enter, this))
+        this.$element.on(eventOut + '.' + this.type, this.options.selector, $.proxy(this.leave, this))
+      }
+    }
+
+    this.options.selector ?
+      (this._options = $.extend({}, this.options, { trigger: 'manual', selector: '' })) :
+      this.fixTitle()
+  }
+
+  Tooltip.prototype.getDefaults = function () {
+    return Tooltip.DEFAULTS
+  }
+
+  Tooltip.prototype.getOptions = function (options) {
+    options = $.extend({}, this.getDefaults(), this.$element.data(), options)
+
+    if (options.delay && typeof options.delay == 'number') {
+      options.delay = {
+        show: options.delay,
+        hide: options.delay
+      }
+    }
+
+    return options
+  }
+
+  Tooltip.prototype.getDelegateOptions = function () {
+    var options  = {}
+    var defaults = this.getDefaults()
+
+    this._options && $.each(this._options, function (key, value) {
+      if (defaults[key] != value) options[key] = value
+    })
+
+    return options
+  }
+
+  Tooltip.prototype.enter = function (obj) {
+    var self = obj instanceof this.constructor ?
+      obj : $(obj.currentTarget).data('bs.' + this.type)
+
+    if (self && self.$tip && self.$tip.is(':visible')) {
+      self.hoverState = 'in'
+      return
+    }
+
+    if (!self) {
+      self = new this.constructor(obj.currentTarget, this.getDelegateOptions())
+      $(obj.currentTarget).data('bs.' + this.type, self)
+    }
+
+    clearTimeout(self.timeout)
+
+    self.hoverState = 'in'
+
+    if (!self.options.delay || !self.options.delay.show) return self.show()
+
+    self.timeout = setTimeout(function () {
+      if (self.hoverState == 'in') self.show()
+    }, self.options.delay.show)
+  }
+
+  Tooltip.prototype.leave = function (obj) {
+    var self = obj instanceof this.constructor ?
+      obj : $(obj.currentTarget).data('bs.' + this.type)
+
+    if (!self) {
+      self = new this.constructor(obj.currentTarget, this.getDelegateOptions())
+      $(obj.currentTarget).data('bs.' + this.type, self)
+    }
+
+    clearTimeout(self.timeout)
+
+    self.hoverState = 'out'
+
+    if (!self.options.delay || !self.options.delay.hide) return self.hide()
+
+    self.timeout = setTimeout(function () {
+      if (self.hoverState == 'out') self.hide()
+    }, self.options.delay.hide)
+  }
+
+  Tooltip.prototype.show = function () {
+    var e = $.Event('show.bs.' + this.type)
+
+    if (this.hasContent() && this.enabled) {
+      this.$element.trigger(e)
+
+      var inDom = $.contains(this.$element[0].ownerDocument.documentElement, this.$element[0])
+      if (e.isDefaultPrevented() || !inDom) return
+      var that = this
+
+      var $tip = this.tip()
+
+      var tipId = this.getUID(this.type)
+
+      this.setContent()
+      $tip.attr('id', tipId)
+      this.$element.attr('aria-describedby', tipId)
+
+      if (this.options.animation) $tip.addClass('fade')
+
+      var placement = typeof this.options.placement == 'function' ?
+        this.options.placement.call(this, $tip[0], this.$element[0]) :
+        this.options.placement
+
+      var autoToken = /\s?auto?\s?/i
+      var autoPlace = autoToken.test(placement)
+      if (autoPlace) placement = placement.replace(autoToken, '') || 'top'
+
+      $tip
+        .detach()
+        .css({ top: 0, left: 0, display: 'block' })
+        .addClass(placement)
+        .data('bs.' + this.type, this)
+
+      this.options.container ? $tip.appendTo(this.options.container) : $tip.insertAfter(this.$element)
+
+      var pos          = this.getPosition()
+      var actualWidth  = $tip[0].offsetWidth
+      var actualHeight = $tip[0].offsetHeight
+
+      if (autoPlace) {
+        var orgPlacement = placement
+        var $container   = this.options.container ? $(this.options.container) : this.$element.parent()
+        var containerDim = this.getPosition($container)
+
+        placement = placement == 'bottom' && pos.bottom + actualHeight > containerDim.bottom ? 'top'    :
+                    placement == 'top'    && pos.top    - actualHeight < containerDim.top    ? 'bottom' :
+                    placement == 'right'  && pos.right  + actualWidth  > containerDim.width  ? 'left'   :
+                    placement == 'left'   && pos.left   - actualWidth  < containerDim.left   ? 'right'  :
+                    placement
+
+        $tip
+          .removeClass(orgPlacement)
+          .addClass(placement)
+      }
+
+      var calculatedOffset = this.getCalculatedOffset(placement, pos, actualWidth, actualHeight)
+
+      this.applyPlacement(calculatedOffset, placement)
+
+      var complete = function () {
+        var prevHoverState = that.hoverState
+        that.$element.trigger('shown.bs.' + that.type)
+        that.hoverState = null
+
+        if (prevHoverState == 'out') that.leave(that)
+      }
+
+      $.support.transition && this.$tip.hasClass('fade') ?
+        $tip
+          .one('bsTransitionEnd', complete)
+          .emulateTransitionEnd(Tooltip.TRANSITION_DURATION) :
+        complete()
+    }
+  }
+
+  Tooltip.prototype.applyPlacement = function (offset, placement) {
+    var $tip   = this.tip()
+    var width  = $tip[0].offsetWidth
+    var height = $tip[0].offsetHeight
+
+    // manually read margins because getBoundingClientRect includes difference
+    var marginTop = parseInt($tip.css('margin-top'), 10)
+    var marginLeft = parseInt($tip.css('margin-left'), 10)
+
+    // we must check for NaN for ie 8/9
+    if (isNaN(marginTop))  marginTop  = 0
+    if (isNaN(marginLeft)) marginLeft = 0
+
+    offset.top  = offset.top  + marginTop
+    offset.left = offset.left + marginLeft
+
+    // $.fn.offset doesn't round pixel values
+    // so we use setOffset directly with our own function B-0
+    $.offset.setOffset($tip[0], $.extend({
+      using: function (props) {
+        $tip.css({
+          top: Math.round(props.top),
+          left: Math.round(props.left)
+        })
+      }
+    }, offset), 0)
+
+    $tip.addClass('in')
+
+    // check to see if placing tip in new offset caused the tip to resize itself
+    var actualWidth  = $tip[0].offsetWidth
+    var actualHeight = $tip[0].offsetHeight
+
+    if (placement == 'top' && actualHeight != height) {
+      offset.top = offset.top + height - actualHeight
+    }
+
+    var delta = this.getViewportAdjustedDelta(placement, offset, actualWidth, actualHeight)
+
+    if (delta.left) offset.left += delta.left
+    else offset.top += delta.top
+
+    var isVertical          = /top|bottom/.test(placement)
+    var arrowDelta          = isVertical ? delta.left * 2 - width + actualWidth : delta.top * 2 - height + actualHeight
+    var arrowOffsetPosition = isVertical ? 'offsetWidth' : 'offsetHeight'
+
+    $tip.offset(offset)
+    this.replaceArrow(arrowDelta, $tip[0][arrowOffsetPosition], isVertical)
+  }
+
+  Tooltip.prototype.replaceArrow = function (delta, dimension, isHorizontal) {
+    this.arrow()
+      .css(isHorizontal ? 'left' : 'top', 50 * (1 - delta / dimension) + '%')
+      .css(isHorizontal ? 'top' : 'left', '')
+  }
+
+  Tooltip.prototype.setContent = function () {
+    var $tip  = this.tip()
+    var title = this.getTitle()
+
+    $tip.find('.tooltip-inner')[this.options.html ? 'html' : 'text'](title)
+    $tip.removeClass('fade in top bottom left right')
+  }
+
+  Tooltip.prototype.hide = function (callback) {
+    var that = this
+    var $tip = this.tip()
+    var e    = $.Event('hide.bs.' + this.type)
+
+    function complete() {
+      if (that.hoverState != 'in') $tip.detach()
+      that.$element
+        .removeAttr('aria-describedby')
+        .trigger('hidden.bs.' + that.type)
+      callback && callback()
+    }
+
+    this.$element.trigger(e)
+
+    if (e.isDefaultPrevented()) return
+
+    $tip.removeClass('in')
+
+    $.support.transition && this.$tip.hasClass('fade') ?
+      $tip
+        .one('bsTransitionEnd', complete)
+        .emulateTransitionEnd(Tooltip.TRANSITION_DURATION) :
+      complete()
+
+    this.hoverState = null
+
+    return this
+  }
+
+  Tooltip.prototype.fixTitle = function () {
+    var $e = this.$element
+    if ($e.attr('title') || typeof ($e.attr('data-original-title')) != 'string') {
+      $e.attr('data-original-title', $e.attr('title') || '').attr('title', '')
+    }
+  }
+
+  Tooltip.prototype.hasContent = function () {
+    return this.getTitle()
+  }
+
+  Tooltip.prototype.getPosition = function ($element) {
+    $element   = $element || this.$element
+
+    var el     = $element[0]
+    var isBody = el.tagName == 'BODY'
+
+    var elRect    = el.getBoundingClientRect()
+    if (elRect.width == null) {
+      // width and height are missing in IE8, so compute them manually; see https://github.com/twbs/bootstrap/issues/14093
+      elRect = $.extend({}, elRect, { width: elRect.right - elRect.left, height: elRect.bottom - elRect.top })
+    }
+    var elOffset  = isBody ? { top: 0, left: 0 } : $element.offset()
+    var scroll    = { scroll: isBody ? document.documentElement.scrollTop || document.body.scrollTop : $element.scrollTop() }
+    var outerDims = isBody ? { width: $(window).width(), height: $(window).height() } : null
+
+    return $.extend({}, elRect, scroll, outerDims, elOffset)
+  }
+
+  Tooltip.prototype.getCalculatedOffset = function (placement, pos, actualWidth, actualHeight) {
+    return placement == 'bottom' ? { top: pos.top + pos.height,   left: pos.left + pos.width / 2 - actualWidth / 2  } :
+           placement == 'top'    ? { top: pos.top - actualHeight, left: pos.left + pos.width / 2 - actualWidth / 2  } :
+           placement == 'left'   ? { top: pos.top + pos.height / 2 - actualHeight / 2, left: pos.left - actualWidth } :
+        /* placement == 'right' */ { top: pos.top + pos.height / 2 - actualHeight / 2, left: pos.left + pos.width   }
+
+  }
+
+  Tooltip.prototype.getViewportAdjustedDelta = function (placement, pos, actualWidth, actualHeight) {
+    var delta = { top: 0, left: 0 }
+    if (!this.$viewport) return delta
+
+    var viewportPadding = this.options.viewport && this.options.viewport.padding || 0
+    var viewportDimensions = this.getPosition(this.$viewport)
+
+    if (/right|left/.test(placement)) {
+      var topEdgeOffset    = pos.top - viewportPadding - viewportDimensions.scroll
+      var bottomEdgeOffset = pos.top + viewportPadding - viewportDimensions.scroll + actualHeight
+      if (topEdgeOffset < viewportDimensions.top) { // top overflow
+        delta.top = viewportDimensions.top - topEdgeOffset
+      } else if (bottomEdgeOffset > viewportDimensions.top + viewportDimensions.height) { // bottom overflow
+        delta.top = viewportDimensions.top + viewportDimensions.height - bottomEdgeOffset
+      }
+    } else {
+      var leftEdgeOffset  = pos.left - viewportPadding
+      var rightEdgeOffset = pos.left + viewportPadding + actualWidth
+      if (leftEdgeOffset < viewportDimensions.left) { // left overflow
+        delta.left = viewportDimensions.left - leftEdgeOffset
+      } else if (rightEdgeOffset > viewportDimensions.width) { // right overflow
+        delta.left = viewportDimensions.left + viewportDimensions.width - rightEdgeOffset
+      }
+    }
+
+    return delta
+  }
+
+  Tooltip.prototype.getTitle = function () {
+    var title
+    var $e = this.$element
+    var o  = this.options
+
+    title = $e.attr('data-original-title')
+      || (typeof o.title == 'function' ? o.title.call($e[0]) :  o.title)
+
+    return title
+  }
+
+  Tooltip.prototype.getUID = function (prefix) {
+    do prefix += ~~(Math.random() * 1000000)
+    while (document.getElementById(prefix))
+    return prefix
+  }
+
+  Tooltip.prototype.tip = function () {
+    return (this.$tip = this.$tip || $(this.options.template))
+  }
+
+  Tooltip.prototype.arrow = function () {
+    return (this.$arrow = this.$arrow || this.tip().find('.tooltip-arrow'))
+  }
+
+  Tooltip.prototype.enable = function () {
+    this.enabled = true
+  }
+
+  Tooltip.prototype.disable = function () {
+    this.enabled = false
+  }
+
+  Tooltip.prototype.toggleEnabled = function () {
+    this.enabled = !this.enabled
+  }
+
+  Tooltip.prototype.toggle = function (e) {
+    var self = this
+    if (e) {
+      self = $(e.currentTarget).data('bs.' + this.type)
+      if (!self) {
+        self = new this.constructor(e.currentTarget, this.getDelegateOptions())
+        $(e.currentTarget).data('bs.' + this.type, self)
+      }
+    }
+
+    self.tip().hasClass('in') ? self.leave(self) : self.enter(self)
+  }
+
+  Tooltip.prototype.destroy = function () {
+    var that = this
+    clearTimeout(this.timeout)
+    this.hide(function () {
+      that.$element.off('.' + that.type).removeData('bs.' + that.type)
+    })
+  }
+
+
+  // TOOLTIP PLUGIN DEFINITION
+  // =========================
+
+  function Plugin(option) {
+    return this.each(function () {
+      var $this    = $(this)
+      var data     = $this.data('bs.tooltip')
+      var options  = typeof option == 'object' && option
+      var selector = options && options.selector
+
+      if (!data && option == 'destroy') return
+      if (selector) {
+        if (!data) $this.data('bs.tooltip', (data = {}))
+        if (!data[selector]) data[selector] = new Tooltip(this, options)
+      } else {
+        if (!data) $this.data('bs.tooltip', (data = new Tooltip(this, options)))
+      }
+      if (typeof option == 'string') data[option]()
+    })
+  }
+
+  var old = $.fn.tooltip
+
+  $.fn.tooltip             = Plugin
+  $.fn.tooltip.Constructor = Tooltip
+
+
+  // TOOLTIP NO CONFLICT
+  // ===================
+
+  $.fn.tooltip.noConflict = function () {
+    $.fn.tooltip = old
+    return this
+  }
+
+}(jQuery);
+
+/* ========================================================================
+ * Bootstrap: popover.js v3.3.1
+ * http://getbootstrap.com/javascript/#popovers
+ * ========================================================================
+ * Copyright 2011-2014 Twitter, Inc.
+ * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LICENSE)
+ * ======================================================================== */
+
+
++function ($) {
+  'use strict';
+
+  // POPOVER PUBLIC CLASS DEFINITION
+  // ===============================
+
+  var Popover = function (element, options) {
+    this.init('popover', element, options)
+  }
+
+  if (!$.fn.tooltip) throw new Error('Popover requires tooltip.js')
+
+  Popover.VERSION  = '3.3.1'
+
+  Popover.DEFAULTS = $.extend({}, $.fn.tooltip.Constructor.DEFAULTS, {
+    placement: 'right',
+    trigger: 'click',
+    content: '',
+    template: '<div class="popover" role="tooltip"><div class="arrow"></div><h3 class="popover-title"></h3><div class="popover-content"></div></div>'
+  })
+
+
+  // NOTE: POPOVER EXTENDS tooltip.js
+  // ================================
+
+  Popover.prototype = $.extend({}, $.fn.tooltip.Constructor.prototype)
+
+  Popover.prototype.constructor = Popover
+
+  Popover.prototype.getDefaults = function () {
+    return Popover.DEFAULTS
+  }
+
+  Popover.prototype.setContent = function () {
+    var $tip    = this.tip()
+    var title   = this.getTitle()
+    var content = this.getContent()
+
+    $tip.find('.popover-title')[this.options.html ? 'html' : 'text'](title)
+    $tip.find('.popover-content').children().detach().end()[ // we use append for html objects to maintain js events
+      this.options.html ? (typeof content == 'string' ? 'html' : 'append') : 'text'
+    ](content)
+
+    $tip.removeClass('fade top bottom left right in')
+
+    // IE8 doesn't accept hiding via the `:empty` pseudo selector, we have to do
+    // this manually by checking the contents.
+    if (!$tip.find('.popover-title').html()) $tip.find('.popover-title').hide()
+  }
+
+  Popover.prototype.hasContent = function () {
+    return this.getTitle() || this.getContent()
+  }
+
+  Popover.prototype.getContent = function () {
+    var $e = this.$element
+    var o  = this.options
+
+    return $e.attr('data-content')
+      || (typeof o.content == 'function' ?
+            o.content.call($e[0]) :
+            o.content)
+  }
+
+  Popover.prototype.arrow = function () {
+    return (this.$arrow = this.$arrow || this.tip().find('.arrow'))
+  }
+
+  Popover.prototype.tip = function () {
+    if (!this.$tip) this.$tip = $(this.options.template)
+    return this.$tip
+  }
+
+
+  // POPOVER PLUGIN DEFINITION
+  // =========================
+
+  function Plugin(option) {
+    return this.each(function () {
+      var $this    = $(this)
+      var data     = $this.data('bs.popover')
+      var options  = typeof option == 'object' && option
+      var selector = options && options.selector
+
+      if (!data && option == 'destroy') return
+      if (selector) {
+        if (!data) $this.data('bs.popover', (data = {}))
+        if (!data[selector]) data[selector] = new Popover(this, options)
+      } else {
+        if (!data) $this.data('bs.popover', (data = new Popover(this, options)))
+      }
+      if (typeof option == 'string') data[option]()
+    })
+  }
+
+  var old = $.fn.popover
+
+  $.fn.popover             = Plugin
+  $.fn.popover.Constructor = Popover
+
+
+  // POPOVER NO CONFLICT
+  // ===================
+
+  $.fn.popover.noConflict = function () {
+    $.fn.popover = old
+    return this
+  }
+
+}(jQuery);
+
+/* ========================================================================
+ * Bootstrap: scrollspy.js v3.3.1
+ * http://getbootstrap.com/javascript/#scrollspy
+ * ========================================================================
+ * Copyright 2011-2014 Twitter, Inc.
+ * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LICENSE)
+ * ======================================================================== */
+
+
++function ($) {
+  'use strict';
+
+  // SCROLLSPY CLASS DEFINITION
+  // ==========================
+
+  function ScrollSpy(element, options) {
+    var process  = $.proxy(this.process, this)
+
+    this.$body          = $('body')
+    this.$scrollElement = $(element).is('body') ? $(window) : $(element)
+    this.options        = $.extend({}, ScrollSpy.DEFAULTS, options)
+    this.selector       = (this.options.target || '') + ' .nav li > a'
+    this.offsets        = []
+    this.targets        = []
+    this.activeTarget   = null
+    this.scrollHeight   = 0
+
+    this.$scrollElement.on('scroll.bs.scrollspy', process)
+    this.refresh()
+    this.process()
+  }
+
+  ScrollSpy.VERSION  = '3.3.1'
+
+  ScrollSpy.DEFAULTS = {
+    offset: 10
+  }
+
+  ScrollSpy.prototype.getScrollHeight = function () {
+    return this.$scrollElement[0].scrollHeight || Math.max(this.$body[0].scrollHeight, document.documentElement.scrollHeight)
+  }
+
+  ScrollSpy.prototype.refresh = function () {
+    var offsetMethod = 'offset'
+    var offsetBase   = 0
+
+    if (!$.isWindow(this.$scrollElement[0])) {
+      offsetMethod = 'position'
+      offsetBase   = this.$scrollElement.scrollTop()
+    }
+
+    this.offsets = []
+    this.targets = []
+    this.scrollHeight = this.getScrollHeight()
+
+    var self     = this
+
+    this.$body
+      .find(this.selector)
+      .map(function () {
+        var $el   = $(this)
+        var href  = $el.data('target') || $el.attr('href')
+        var $href = /^#./.test(href) && $(href)
+
+        return ($href
+          && $href.length
+          && $href.is(':visible')
+          && [[$href[offsetMethod]().top + offsetBase, href]]) || null
+      })
+      .sort(function (a, b) { return a[0] - b[0] })
+      .each(function () {
+        self.offsets.push(this[0])
+        self.targets.push(this[1])
+      })
+  }
+
+  ScrollSpy.prototype.process = function () {
+    var scrollTop    = this.$scrollElement.scrollTop() + this.options.offset
+    var scrollHeight = this.getScrollHeight()
+    var maxScroll    = this.options.offset + scrollHeight - this.$scrollElement.height()
+    var offsets      = this.offsets
+    var targets      = this.targets
+    var activeTarget = this.activeTarget
+    var i
+
+    if (this.scrollHeight != scrollHeight) {
+      this.refresh()
+    }
+
+    if (scrollTop >= maxScroll) {
+      return activeTarget != (i = targets[targets.length - 1]) && this.activate(i)
+    }
+
+    if (activeTarget && scrollTop < offsets[0]) {
+      this.activeTarget = null
+      return this.clear()
+    }
+
+    for (i = offsets.length; i--;) {
+      activeTarget != targets[i]
+        && scrollTop >= offsets[i]
+        && (!offsets[i + 1] || scrollTop <= offsets[i + 1])
+        && this.activate(targets[i])
+    }
+  }
+
+  ScrollSpy.prototype.activate = function (target) {
+    this.activeTarget = target
+
+    this.clear()
+
+    var selector = this.selector +
+        '[data-target="' + target + '"],' +
+        this.selector + '[href="' + target + '"]'
+
+    var active = $(selector)
+      .parents('li')
+      .addClass('active')
+
+    if (active.parent('.dropdown-menu').length) {
+      active = active
+        .closest('li.dropdown')
+        .addClass('active')
+    }
+
+    active.trigger('activate.bs.scrollspy')
+  }
+
+  ScrollSpy.prototype.clear = function () {
+    $(this.selector)
+      .parentsUntil(this.options.target, '.active')
+      .removeClass('active')
+  }
+
+
+  // SCROLLSPY PLUGIN DEFINITION
+  // ===========================
+
+  function Plugin(option) {
+    return this.each(function () {
+      var $this   = $(this)
+      var data    = $this.data('bs.scrollspy')
+      var options = typeof option == 'object' && option
+
+      if (!data) $this.data('bs.scrollspy', (data = new ScrollSpy(this, options)))
+      if (typeof option == 'string') data[option]()
+    })
+  }
+
+  var old = $.fn.scrollspy
+
+  $.fn.scrollspy             = Plugin
+  $.fn.scrollspy.Constructor = ScrollSpy
+
+
+  // SCROLLSPY NO CONFLICT
+  // =====================
+
+  $.fn.scrollspy.noConflict = function () {
+    $.fn.scrollspy = old
+    return this
+  }
+
+
+  // SCROLLSPY DATA-API
+  // ==================
+
+  $(window).on('load.bs.scrollspy.data-api', function () {
+    $('[data-spy="scroll"]').each(function () {
+      var $spy = $(this)
+      Plugin.call($spy, $spy.data())
+    })
+  })
+
+}(jQuery);
+
+/* ========================================================================
+ * Bootstrap: tab.js v3.3.1
+ * http://getbootstrap.com/javascript/#tabs
+ * ========================================================================
+ * Copyright 2011-2014 Twitter, Inc.
+ * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LICENSE)
+ * ======================================================================== */
+
+
++function ($) {
+  'use strict';
+
+  // TAB CLASS DEFINITION
+  // ====================
+
+  var Tab = function (element) {
+    this.element = $(element)
+  }
+
+  Tab.VERSION = '3.3.1'
+
+  Tab.TRANSITION_DURATION = 150
+
+  Tab.prototype.show = function () {
+    var $this    = this.element
+    var $ul      = $this.closest('ul:not(.dropdown-menu)')
+    var selector = $this.data('target')
+
+    if (!selector) {
+      selector = $this.attr('href')
+      selector = selector && selector.replace(/.*(?=#[^\s]*$)/, '') // strip for ie7
+    }
+
+    if ($this.parent('li').hasClass('active')) return
+
+    var $previous = $ul.find('.active:last a')
+    var hideEvent = $.Event('hide.bs.tab', {
+      relatedTarget: $this[0]
+    })
+    var showEvent = $.Event('show.bs.tab', {
+      relatedTarget: $previous[0]
+    })
+
+    $previous.trigger(hideEvent)
+    $this.trigger(showEvent)
+
+    if (showEvent.isDefaultPrevented() || hideEvent.isDefaultPrevented()) return
+
+    var $target = $(selector)
+
+    this.activate($this.closest('li'), $ul)
+    this.activate($target, $target.parent(), function () {
+      $previous.trigger({
+        type: 'hidden.bs.tab',
+        relatedTarget: $this[0]
+      })
+      $this.trigger({
+        type: 'shown.bs.tab',
+        relatedTarget: $previous[0]
+      })
+    })
+  }
+
+  Tab.prototype.activate = function (element, container, callback) {
+    var $active    = container.find('> .active')
+    var transition = callback
+      && $.support.transition
+      && (($active.length && $active.hasClass('fade')) || !!container.find('> .fade').length)
+
+    function next() {
+      $active
+        .removeClass('active')
+        .find('> .dropdown-menu > .active')
+          .removeClass('active')
+        .end()
+        .find('[data-toggle="tab"]')
+          .attr('aria-expanded', false)
+
+      element
+        .addClass('active')
+        .find('[data-toggle="tab"]')
+          .attr('aria-expanded', true)
+
+      if (transition) {
+        element[0].offsetWidth // reflow for transition
+        element.addClass('in')
+      } else {
+        element.removeClass('fade')
+      }
+
+      if (element.parent('.dropdown-menu')) {
+        element
+          .closest('li.dropdown')
+            .addClass('active')
+          .end()
+          .find('[data-toggle="tab"]')
+            .attr('aria-expanded', true)
+      }
+
+      callback && callback()
+    }
+
+    $active.length && transition ?
+      $active
+        .one('bsTransitionEnd', next)
+        .emulateTransitionEnd(Tab.TRANSITION_DURATION) :
+      next()
+
+    $active.removeClass('in')
+  }
+
+
+  // TAB PLUGIN DEFINITION
+  // =====================
+
+  function Plugin(option) {
+    return this.each(function () {
+      var $this = $(this)
+      var data  = $this.data('bs.tab')
+
+      if (!data) $this.data('bs.tab', (data = new Tab(this)))
+      if (typeof option == 'string') data[option]()
+    })
+  }
+
+  var old = $.fn.tab
+
+  $.fn.tab             = Plugin
+  $.fn.tab.Constructor = Tab
+
+
+  // TAB NO CONFLICT
+  // ===============
+
+  $.fn.tab.noConflict = function () {
+    $.fn.tab = old
+    return this
+  }
+
+
+  // TAB DATA-API
+  // ============
+
+  var clickHandler = function (e) {
+    e.preventDefault()
+    Plugin.call($(this), 'show')
+  }
+
+  $(document)
+    .on('click.bs.tab.data-api', '[data-toggle="tab"]', clickHandler)
+    .on('click.bs.tab.data-api', '[data-toggle="pill"]', clickHandler)
+
+}(jQuery);
+
+/* ========================================================================
+ * Bootstrap: affix.js v3.3.1
+ * http://getbootstrap.com/javascript/#affix
+ * ========================================================================
+ * Copyright 2011-2014 Twitter, Inc.
+ * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LICENSE)
+ * ======================================================================== */
+
+
++function ($) {
+  'use strict';
+
+  // AFFIX CLASS DEFINITION
+  // ======================
+
+  var Affix = function (element, options) {
+    this.options = $.extend({}, Affix.DEFAULTS, options)
+
+    this.$target = $(this.options.target)
+      .on('scroll.bs.affix.data-api', $.proxy(this.checkPosition, this))
+      .on('click.bs.affix.data-api',  $.proxy(this.checkPositionWithEventLoop, this))
+
+    this.$element     = $(element)
+    this.affixed      =
+    this.unpin        =
+    this.pinnedOffset = null
+
+    this.checkPosition()
+  }
+
+  Affix.VERSION  = '3.3.1'
+
+  Affix.RESET    = 'affix affix-top affix-bottom'
+
+  Affix.DEFAULTS = {
+    offset: 0,
+    target: window
+  }
+
+  Affix.prototype.getState = function (scrollHeight, height, offsetTop, offsetBottom) {
+    var scrollTop    = this.$target.scrollTop()
+    var position     = this.$element.offset()
+    var targetHeight = this.$target.height()
+
+    if (offsetTop != null && this.affixed == 'top') return scrollTop < offsetTop ? 'top' : false
+
+    if (this.affixed == 'bottom') {
+      if (offsetTop != null) return (scrollTop + this.unpin <= position.top) ? false : 'bottom'
+      return (scrollTop + targetHeight <= scrollHeight - offsetBottom) ? false : 'bottom'
+    }
+
+    var initializing   = this.affixed == null
+    var colliderTop    = initializing ? scrollTop : position.top
+    var colliderHeight = initializing ? targetHeight : height
+
+    if (offsetTop != null && colliderTop <= offsetTop) return 'top'
+    if (offsetBottom != null && (colliderTop + colliderHeight >= scrollHeight - offsetBottom)) return 'bottom'
+
+    return false
+  }
+
+  Affix.prototype.getPinnedOffset = function () {
+    if (this.pinnedOffset) return this.pinnedOffset
+    this.$element.removeClass(Affix.RESET).addClass('affix')
+    var scrollTop = this.$target.scrollTop()
+    var position  = this.$element.offset()
+    return (this.pinnedOffset = position.top - scrollTop)
+  }
+
+  Affix.prototype.checkPositionWithEventLoop = function () {
+    setTimeout($.proxy(this.checkPosition, this), 1)
+  }
+
+  Affix.prototype.checkPosition = function () {
+    if (!this.$element.is(':visible')) return
+
+    var height       = this.$element.height()
+    var offset       = this.options.offset
+    var offsetTop    = offset.top
+    var offsetBottom = offset.bottom
+    var scrollHeight = $('body').height()
+
+    if (typeof offset != 'object')         offsetBottom = offsetTop = offset
+    if (typeof offsetTop == 'function')    offsetTop    = offset.top(this.$element)
+    if (typeof offsetBottom == 'function') offsetBottom = offset.bottom(this.$element)
+
+    var affix = this.getState(scrollHeight, height, offsetTop, offsetBottom)
+
+    if (this.affixed != affix) {
+      if (this.unpin != null) this.$element.css('top', '')
+
+      var affixType = 'affix' + (affix ? '-' + affix : '')
+      var e         = $.Event(affixType + '.bs.affix')
+
+      this.$element.trigger(e)
+
+      if (e.isDefaultPrevented()) return
+
+      this.affixed = affix
+      this.unpin = affix == 'bottom' ? this.getPinnedOffset() : null
+
+      this.$element
+        .removeClass(Affix.RESET)
+        .addClass(affixType)
+        .trigger(affixType.replace('affix', 'affixed') + '.bs.affix')
+    }
+
+    if (affix == 'bottom') {
+      this.$element.offset({
+        top: scrollHeight - height - offsetBottom
+      })
+    }
+  }
+
+
+  // AFFIX PLUGIN DEFINITION
+  // =======================
+
+  function Plugin(option) {
+    return this.each(function () {
+      var $this   = $(this)
+      var data    = $this.data('bs.affix')
+      var options = typeof option == 'object' && option
+
+      if (!data) $this.data('bs.affix', (data = new Affix(this, options)))
+      if (typeof option == 'string') data[option]()
+    })
+  }
+
+  var old = $.fn.affix
+
+  $.fn.affix             = Plugin
+  $.fn.affix.Constructor = Affix
+
+
+  // AFFIX NO CONFLICT
+  // =================
+
+  $.fn.affix.noConflict = function () {
+    $.fn.affix = old
+    return this
+  }
+
+
+  // AFFIX DATA-API
+  // ==============
+
+  $(window).on('load', function () {
+    $('[data-spy="affix"]').each(function () {
+      var $spy = $(this)
+      var data = $spy.data()
+
+      data.offset = data.offset || {}
+
+      if (data.offsetBottom != null) data.offset.bottom = data.offsetBottom
+      if (data.offsetTop    != null) data.offset.top    = data.offsetTop
+
+      Plugin.call($spy, data)
+    })
+  })
+
+}(jQuery);
diff --git a/reference/rte-fortran-interface/js/bootstrap.min.js b/reference/rte-fortran-interface/js/bootstrap.min.js
new file mode 100644
index 000000000..d83986590
--- /dev/null
+++ b/reference/rte-fortran-interface/js/bootstrap.min.js
@@ -0,0 +1,7 @@
+/*!
+ * Bootstrap v3.3.1 (http://getbootstrap.com)
+ * Copyright 2011-2014 Twitter, Inc.
+ * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LICENSE)
+ */
+if("undefined"==typeof jQuery)throw new Error("Bootstrap's JavaScript requires jQuery");+function(a){var b=a.fn.jquery.split(" ")[0].split(".");if(b[0]<2&&b[1]<9||1==b[0]&&9==b[1]&&b[2]<1)throw new Error("Bootstrap's JavaScript requires jQuery version 1.9.1 or higher")}(jQuery),+function(a){"use strict";function b(){var a=document.createElement("bootstrap"),b={WebkitTransition:"webkitTransitionEnd",MozTransition:"transitionend",OTransition:"oTransitionEnd otransitionend",transition:"transitionend"};for(var c in b)if(void 0!==a.style[c])return{end:b[c]};return!1}a.fn.emulateTransitionEnd=function(b){var c=!1,d=this;a(this).one("bsTransitionEnd",function(){c=!0});var e=function(){c||a(d).trigger(a.support.transition.end)};return setTimeout(e,b),this},a(function(){a.support.transition=b(),a.support.transition&&(a.event.special.bsTransitionEnd={bindType:a.support.transition.end,delegateType:a.support.transition.end,handle:function(b){return a(b.target).is(this)?b.handleObj.handler.apply(this,arguments):void 0}})})}(jQuery),+function(a){"use strict";function b(b){return this.each(function(){var c=a(this),e=c.data("bs.alert");e||c.data("bs.alert",e=new d(this)),"string"==typeof b&&e[b].call(c)})}var c='[data-dismiss="alert"]',d=function(b){a(b).on("click",c,this.close)};d.VERSION="3.3.1",d.TRANSITION_DURATION=150,d.prototype.close=function(b){function c(){g.detach().trigger("closed.bs.alert").remove()}var e=a(this),f=e.attr("data-target");f||(f=e.attr("href"),f=f&&f.replace(/.*(?=#[^\s]*$)/,""));var g=a(f);b&&b.preventDefault(),g.length||(g=e.closest(".alert")),g.trigger(b=a.Event("close.bs.alert")),b.isDefaultPrevented()||(g.removeClass("in"),a.support.transition&&g.hasClass("fade")?g.one("bsTransitionEnd",c).emulateTransitionEnd(d.TRANSITION_DURATION):c())};var e=a.fn.alert;a.fn.alert=b,a.fn.alert.Constructor=d,a.fn.alert.noConflict=function(){return a.fn.alert=e,this},a(document).on("click.bs.alert.data-api",c,d.prototype.close)}(jQuery),+function(a){"use strict";function b(b){return this.each(function(){var d=a(this),e=d.data("bs.button"),f="object"==typeof b&&b;e||d.data("bs.button",e=new c(this,f)),"toggle"==b?e.toggle():b&&e.setState(b)})}var c=function(b,d){this.$element=a(b),this.options=a.extend({},c.DEFAULTS,d),this.isLoading=!1};c.VERSION="3.3.1",c.DEFAULTS={loadingText:"loading..."},c.prototype.setState=function(b){var c="disabled",d=this.$element,e=d.is("input")?"val":"html",f=d.data();b+="Text",null==f.resetText&&d.data("resetText",d[e]()),setTimeout(a.proxy(function(){d[e](null==f[b]?this.options[b]:f[b]),"loadingText"==b?(this.isLoading=!0,d.addClass(c).attr(c,c)):this.isLoading&&(this.isLoading=!1,d.removeClass(c).removeAttr(c))},this),0)},c.prototype.toggle=function(){var a=!0,b=this.$element.closest('[data-toggle="buttons"]');if(b.length){var c=this.$element.find("input");"radio"==c.prop("type")&&(c.prop("checked")&&this.$element.hasClass("active")?a=!1:b.find(".active").removeClass("active")),a&&c.prop("checked",!this.$element.hasClass("active")).trigger("change")}else this.$element.attr("aria-pressed",!this.$element.hasClass("active"));a&&this.$element.toggleClass("active")};var d=a.fn.button;a.fn.button=b,a.fn.button.Constructor=c,a.fn.button.noConflict=function(){return a.fn.button=d,this},a(document).on("click.bs.button.data-api",'[data-toggle^="button"]',function(c){var d=a(c.target);d.hasClass("btn")||(d=d.closest(".btn")),b.call(d,"toggle"),c.preventDefault()}).on("focus.bs.button.data-api blur.bs.button.data-api",'[data-toggle^="button"]',function(b){a(b.target).closest(".btn").toggleClass("focus",/^focus(in)?$/.test(b.type))})}(jQuery),+function(a){"use strict";function b(b){return this.each(function(){var d=a(this),e=d.data("bs.carousel"),f=a.extend({},c.DEFAULTS,d.data(),"object"==typeof b&&b),g="string"==typeof b?b:f.slide;e||d.data("bs.carousel",e=new c(this,f)),"number"==typeof b?e.to(b):g?e[g]():f.interval&&e.pause().cycle()})}var c=function(b,c){this.$element=a(b),this.$indicators=this.$element.find(".carousel-indicators"),this.options=c,this.paused=this.sliding=this.interval=this.$active=this.$items=null,this.options.keyboard&&this.$element.on("keydown.bs.carousel",a.proxy(this.keydown,this)),"hover"==this.options.pause&&!("ontouchstart"in document.documentElement)&&this.$element.on("mouseenter.bs.carousel",a.proxy(this.pause,this)).on("mouseleave.bs.carousel",a.proxy(this.cycle,this))};c.VERSION="3.3.1",c.TRANSITION_DURATION=600,c.DEFAULTS={interval:5e3,pause:"hover",wrap:!0,keyboard:!0},c.prototype.keydown=function(a){if(!/input|textarea/i.test(a.target.tagName)){switch(a.which){case 37:this.prev();break;case 39:this.next();break;default:return}a.preventDefault()}},c.prototype.cycle=function(b){return b||(this.paused=!1),this.interval&&clearInterval(this.interval),this.options.interval&&!this.paused&&(this.interval=setInterval(a.proxy(this.next,this),this.options.interval)),this},c.prototype.getItemIndex=function(a){return this.$items=a.parent().children(".item"),this.$items.index(a||this.$active)},c.prototype.getItemForDirection=function(a,b){var c="prev"==a?-1:1,d=this.getItemIndex(b),e=(d+c)%this.$items.length;return this.$items.eq(e)},c.prototype.to=function(a){var b=this,c=this.getItemIndex(this.$active=this.$element.find(".item.active"));return a>this.$items.length-1||0>a?void 0:this.sliding?this.$element.one("slid.bs.carousel",function(){b.to(a)}):c==a?this.pause().cycle():this.slide(a>c?"next":"prev",this.$items.eq(a))},c.prototype.pause=function(b){return b||(this.paused=!0),this.$element.find(".next, .prev").length&&a.support.transition&&(this.$element.trigger(a.support.transition.end),this.cycle(!0)),this.interval=clearInterval(this.interval),this},c.prototype.next=function(){return this.sliding?void 0:this.slide("next")},c.prototype.prev=function(){return this.sliding?void 0:this.slide("prev")},c.prototype.slide=function(b,d){var e=this.$element.find(".item.active"),f=d||this.getItemForDirection(b,e),g=this.interval,h="next"==b?"left":"right",i="next"==b?"first":"last",j=this;if(!f.length){if(!this.options.wrap)return;f=this.$element.find(".item")[i]()}if(f.hasClass("active"))return this.sliding=!1;var k=f[0],l=a.Event("slide.bs.carousel",{relatedTarget:k,direction:h});if(this.$element.trigger(l),!l.isDefaultPrevented()){if(this.sliding=!0,g&&this.pause(),this.$indicators.length){this.$indicators.find(".active").removeClass("active");var m=a(this.$indicators.children()[this.getItemIndex(f)]);m&&m.addClass("active")}var n=a.Event("slid.bs.carousel",{relatedTarget:k,direction:h});return a.support.transition&&this.$element.hasClass("slide")?(f.addClass(b),f[0].offsetWidth,e.addClass(h),f.addClass(h),e.one("bsTransitionEnd",function(){f.removeClass([b,h].join(" ")).addClass("active"),e.removeClass(["active",h].join(" ")),j.sliding=!1,setTimeout(function(){j.$element.trigger(n)},0)}).emulateTransitionEnd(c.TRANSITION_DURATION)):(e.removeClass("active"),f.addClass("active"),this.sliding=!1,this.$element.trigger(n)),g&&this.cycle(),this}};var d=a.fn.carousel;a.fn.carousel=b,a.fn.carousel.Constructor=c,a.fn.carousel.noConflict=function(){return a.fn.carousel=d,this};var e=function(c){var d,e=a(this),f=a(e.attr("data-target")||(d=e.attr("href"))&&d.replace(/.*(?=#[^\s]+$)/,""));if(f.hasClass("carousel")){var g=a.extend({},f.data(),e.data()),h=e.attr("data-slide-to");h&&(g.interval=!1),b.call(f,g),h&&f.data("bs.carousel").to(h),c.preventDefault()}};a(document).on("click.bs.carousel.data-api","[data-slide]",e).on("click.bs.carousel.data-api","[data-slide-to]",e),a(window).on("load",function(){a('[data-ride="carousel"]').each(function(){var c=a(this);b.call(c,c.data())})})}(jQuery),+function(a){"use strict";function b(b){var c,d=b.attr("data-target")||(c=b.attr("href"))&&c.replace(/.*(?=#[^\s]+$)/,"");return a(d)}function c(b){return this.each(function(){var c=a(this),e=c.data("bs.collapse"),f=a.extend({},d.DEFAULTS,c.data(),"object"==typeof b&&b);!e&&f.toggle&&"show"==b&&(f.toggle=!1),e||c.data("bs.collapse",e=new d(this,f)),"string"==typeof b&&e[b]()})}var d=function(b,c){this.$element=a(b),this.options=a.extend({},d.DEFAULTS,c),this.$trigger=a(this.options.trigger).filter('[href="#'+b.id+'"], [data-target="#'+b.id+'"]'),this.transitioning=null,this.options.parent?this.$parent=this.getParent():this.addAriaAndCollapsedClass(this.$element,this.$trigger),this.options.toggle&&this.toggle()};d.VERSION="3.3.1",d.TRANSITION_DURATION=350,d.DEFAULTS={toggle:!0,trigger:'[data-toggle="collapse"]'},d.prototype.dimension=function(){var a=this.$element.hasClass("width");return a?"width":"height"},d.prototype.show=function(){if(!this.transitioning&&!this.$element.hasClass("in")){var b,e=this.$parent&&this.$parent.find("> .panel").children(".in, .collapsing");if(!(e&&e.length&&(b=e.data("bs.collapse"),b&&b.transitioning))){var f=a.Event("show.bs.collapse");if(this.$element.trigger(f),!f.isDefaultPrevented()){e&&e.length&&(c.call(e,"hide"),b||e.data("bs.collapse",null));var g=this.dimension();this.$element.removeClass("collapse").addClass("collapsing")[g](0).attr("aria-expanded",!0),this.$trigger.removeClass("collapsed").attr("aria-expanded",!0),this.transitioning=1;var h=function(){this.$element.removeClass("collapsing").addClass("collapse in")[g](""),this.transitioning=0,this.$element.trigger("shown.bs.collapse")};if(!a.support.transition)return h.call(this);var i=a.camelCase(["scroll",g].join("-"));this.$element.one("bsTransitionEnd",a.proxy(h,this)).emulateTransitionEnd(d.TRANSITION_DURATION)[g](this.$element[0][i])}}}},d.prototype.hide=function(){if(!this.transitioning&&this.$element.hasClass("in")){var b=a.Event("hide.bs.collapse");if(this.$element.trigger(b),!b.isDefaultPrevented()){var c=this.dimension();this.$element[c](this.$element[c]())[0].offsetHeight,this.$element.addClass("collapsing").removeClass("collapse in").attr("aria-expanded",!1),this.$trigger.addClass("collapsed").attr("aria-expanded",!1),this.transitioning=1;var e=function(){this.transitioning=0,this.$element.removeClass("collapsing").addClass("collapse").trigger("hidden.bs.collapse")};return a.support.transition?void this.$element[c](0).one("bsTransitionEnd",a.proxy(e,this)).emulateTransitionEnd(d.TRANSITION_DURATION):e.call(this)}}},d.prototype.toggle=function(){this[this.$element.hasClass("in")?"hide":"show"]()},d.prototype.getParent=function(){return a(this.options.parent).find('[data-toggle="collapse"][data-parent="'+this.options.parent+'"]').each(a.proxy(function(c,d){var e=a(d);this.addAriaAndCollapsedClass(b(e),e)},this)).end()},d.prototype.addAriaAndCollapsedClass=function(a,b){var c=a.hasClass("in");a.attr("aria-expanded",c),b.toggleClass("collapsed",!c).attr("aria-expanded",c)};var e=a.fn.collapse;a.fn.collapse=c,a.fn.collapse.Constructor=d,a.fn.collapse.noConflict=function(){return a.fn.collapse=e,this},a(document).on("click.bs.collapse.data-api",'[data-toggle="collapse"]',function(d){var e=a(this);e.attr("data-target")||d.preventDefault();var f=b(e),g=f.data("bs.collapse"),h=g?"toggle":a.extend({},e.data(),{trigger:this});c.call(f,h)})}(jQuery),+function(a){"use strict";function b(b){b&&3===b.which||(a(e).remove(),a(f).each(function(){var d=a(this),e=c(d),f={relatedTarget:this};e.hasClass("open")&&(e.trigger(b=a.Event("hide.bs.dropdown",f)),b.isDefaultPrevented()||(d.attr("aria-expanded","false"),e.removeClass("open").trigger("hidden.bs.dropdown",f)))}))}function c(b){var c=b.attr("data-target");c||(c=b.attr("href"),c=c&&/#[A-Za-z]/.test(c)&&c.replace(/.*(?=#[^\s]*$)/,""));var d=c&&a(c);return d&&d.length?d:b.parent()}function d(b){return this.each(function(){var c=a(this),d=c.data("bs.dropdown");d||c.data("bs.dropdown",d=new g(this)),"string"==typeof b&&d[b].call(c)})}var e=".dropdown-backdrop",f='[data-toggle="dropdown"]',g=function(b){a(b).on("click.bs.dropdown",this.toggle)};g.VERSION="3.3.1",g.prototype.toggle=function(d){var e=a(this);if(!e.is(".disabled, :disabled")){var f=c(e),g=f.hasClass("open");if(b(),!g){"ontouchstart"in document.documentElement&&!f.closest(".navbar-nav").length&&a('<div class="dropdown-backdrop"/>').insertAfter(a(this)).on("click",b);var h={relatedTarget:this};if(f.trigger(d=a.Event("show.bs.dropdown",h)),d.isDefaultPrevented())return;e.trigger("focus").attr("aria-expanded","true"),f.toggleClass("open").trigger("shown.bs.dropdown",h)}return!1}},g.prototype.keydown=function(b){if(/(38|40|27|32)/.test(b.which)&&!/input|textarea/i.test(b.target.tagName)){var d=a(this);if(b.preventDefault(),b.stopPropagation(),!d.is(".disabled, :disabled")){var e=c(d),g=e.hasClass("open");if(!g&&27!=b.which||g&&27==b.which)return 27==b.which&&e.find(f).trigger("focus"),d.trigger("click");var h=" li:not(.divider):visible a",i=e.find('[role="menu"]'+h+', [role="listbox"]'+h);if(i.length){var j=i.index(b.target);38==b.which&&j>0&&j--,40==b.which&&j<i.length-1&&j++,~j||(j=0),i.eq(j).trigger("focus")}}}};var h=a.fn.dropdown;a.fn.dropdown=d,a.fn.dropdown.Constructor=g,a.fn.dropdown.noConflict=function(){return a.fn.dropdown=h,this},a(document).on("click.bs.dropdown.data-api",b).on("click.bs.dropdown.data-api",".dropdown form",function(a){a.stopPropagation()}).on("click.bs.dropdown.data-api",f,g.prototype.toggle).on("keydown.bs.dropdown.data-api",f,g.prototype.keydown).on("keydown.bs.dropdown.data-api",'[role="menu"]',g.prototype.keydown).on("keydown.bs.dropdown.data-api",'[role="listbox"]',g.prototype.keydown)}(jQuery),+function(a){"use strict";function b(b,d){return this.each(function(){var e=a(this),f=e.data("bs.modal"),g=a.extend({},c.DEFAULTS,e.data(),"object"==typeof b&&b);f||e.data("bs.modal",f=new c(this,g)),"string"==typeof b?f[b](d):g.show&&f.show(d)})}var c=function(b,c){this.options=c,this.$body=a(document.body),this.$element=a(b),this.$backdrop=this.isShown=null,this.scrollbarWidth=0,this.options.remote&&this.$element.find(".modal-content").load(this.options.remote,a.proxy(function(){this.$element.trigger("loaded.bs.modal")},this))};c.VERSION="3.3.1",c.TRANSITION_DURATION=300,c.BACKDROP_TRANSITION_DURATION=150,c.DEFAULTS={backdrop:!0,keyboard:!0,show:!0},c.prototype.toggle=function(a){return this.isShown?this.hide():this.show(a)},c.prototype.show=function(b){var d=this,e=a.Event("show.bs.modal",{relatedTarget:b});this.$element.trigger(e),this.isShown||e.isDefaultPrevented()||(this.isShown=!0,this.checkScrollbar(),this.setScrollbar(),this.$body.addClass("modal-open"),this.escape(),this.resize(),this.$element.on("click.dismiss.bs.modal",'[data-dismiss="modal"]',a.proxy(this.hide,this)),this.backdrop(function(){var e=a.support.transition&&d.$element.hasClass("fade");d.$element.parent().length||d.$element.appendTo(d.$body),d.$element.show().scrollTop(0),d.options.backdrop&&d.adjustBackdrop(),d.adjustDialog(),e&&d.$element[0].offsetWidth,d.$element.addClass("in").attr("aria-hidden",!1),d.enforceFocus();var f=a.Event("shown.bs.modal",{relatedTarget:b});e?d.$element.find(".modal-dialog").one("bsTransitionEnd",function(){d.$element.trigger("focus").trigger(f)}).emulateTransitionEnd(c.TRANSITION_DURATION):d.$element.trigger("focus").trigger(f)}))},c.prototype.hide=function(b){b&&b.preventDefault(),b=a.Event("hide.bs.modal"),this.$element.trigger(b),this.isShown&&!b.isDefaultPrevented()&&(this.isShown=!1,this.escape(),this.resize(),a(document).off("focusin.bs.modal"),this.$element.removeClass("in").attr("aria-hidden",!0).off("click.dismiss.bs.modal"),a.support.transition&&this.$element.hasClass("fade")?this.$element.one("bsTransitionEnd",a.proxy(this.hideModal,this)).emulateTransitionEnd(c.TRANSITION_DURATION):this.hideModal())},c.prototype.enforceFocus=function(){a(document).off("focusin.bs.modal").on("focusin.bs.modal",a.proxy(function(a){this.$element[0]===a.target||this.$element.has(a.target).length||this.$element.trigger("focus")},this))},c.prototype.escape=function(){this.isShown&&this.options.keyboard?this.$element.on("keydown.dismiss.bs.modal",a.proxy(function(a){27==a.which&&this.hide()},this)):this.isShown||this.$element.off("keydown.dismiss.bs.modal")},c.prototype.resize=function(){this.isShown?a(window).on("resize.bs.modal",a.proxy(this.handleUpdate,this)):a(window).off("resize.bs.modal")},c.prototype.hideModal=function(){var a=this;this.$element.hide(),this.backdrop(function(){a.$body.removeClass("modal-open"),a.resetAdjustments(),a.resetScrollbar(),a.$element.trigger("hidden.bs.modal")})},c.prototype.removeBackdrop=function(){this.$backdrop&&this.$backdrop.remove(),this.$backdrop=null},c.prototype.backdrop=function(b){var d=this,e=this.$element.hasClass("fade")?"fade":"";if(this.isShown&&this.options.backdrop){var f=a.support.transition&&e;if(this.$backdrop=a('<div class="modal-backdrop '+e+'" />').prependTo(this.$element).on("click.dismiss.bs.modal",a.proxy(function(a){a.target===a.currentTarget&&("static"==this.options.backdrop?this.$element[0].focus.call(this.$element[0]):this.hide.call(this))},this)),f&&this.$backdrop[0].offsetWidth,this.$backdrop.addClass("in"),!b)return;f?this.$backdrop.one("bsTransitionEnd",b).emulateTransitionEnd(c.BACKDROP_TRANSITION_DURATION):b()}else if(!this.isShown&&this.$backdrop){this.$backdrop.removeClass("in");var g=function(){d.removeBackdrop(),b&&b()};a.support.transition&&this.$element.hasClass("fade")?this.$backdrop.one("bsTransitionEnd",g).emulateTransitionEnd(c.BACKDROP_TRANSITION_DURATION):g()}else b&&b()},c.prototype.handleUpdate=function(){this.options.backdrop&&this.adjustBackdrop(),this.adjustDialog()},c.prototype.adjustBackdrop=function(){this.$backdrop.css("height",0).css("height",this.$element[0].scrollHeight)},c.prototype.adjustDialog=function(){var a=this.$element[0].scrollHeight>document.documentElement.clientHeight;this.$element.css({paddingLeft:!this.bodyIsOverflowing&&a?this.scrollbarWidth:"",paddingRight:this.bodyIsOverflowing&&!a?this.scrollbarWidth:""})},c.prototype.resetAdjustments=function(){this.$element.css({paddingLeft:"",paddingRight:""})},c.prototype.checkScrollbar=function(){this.bodyIsOverflowing=document.body.scrollHeight>document.documentElement.clientHeight,this.scrollbarWidth=this.measureScrollbar()},c.prototype.setScrollbar=function(){var a=parseInt(this.$body.css("padding-right")||0,10);this.bodyIsOverflowing&&this.$body.css("padding-right",a+this.scrollbarWidth)},c.prototype.resetScrollbar=function(){this.$body.css("padding-right","")},c.prototype.measureScrollbar=function(){var a=document.createElement("div");a.className="modal-scrollbar-measure",this.$body.append(a);var b=a.offsetWidth-a.clientWidth;return this.$body[0].removeChild(a),b};var d=a.fn.modal;a.fn.modal=b,a.fn.modal.Constructor=c,a.fn.modal.noConflict=function(){return a.fn.modal=d,this},a(document).on("click.bs.modal.data-api",'[data-toggle="modal"]',function(c){var d=a(this),e=d.attr("href"),f=a(d.attr("data-target")||e&&e.replace(/.*(?=#[^\s]+$)/,"")),g=f.data("bs.modal")?"toggle":a.extend({remote:!/#/.test(e)&&e},f.data(),d.data());d.is("a")&&c.preventDefault(),f.one("show.bs.modal",function(a){a.isDefaultPrevented()||f.one("hidden.bs.modal",function(){d.is(":visible")&&d.trigger("focus")})}),b.call(f,g,this)})}(jQuery),+function(a){"use strict";function b(b){return this.each(function(){var d=a(this),e=d.data("bs.tooltip"),f="object"==typeof b&&b,g=f&&f.selector;(e||"destroy"!=b)&&(g?(e||d.data("bs.tooltip",e={}),e[g]||(e[g]=new c(this,f))):e||d.data("bs.tooltip",e=new c(this,f)),"string"==typeof b&&e[b]())})}var c=function(a,b){this.type=this.options=this.enabled=this.timeout=this.hoverState=this.$element=null,this.init("tooltip",a,b)};c.VERSION="3.3.1",c.TRANSITION_DURATION=150,c.DEFAULTS={animation:!0,placement:"top",selector:!1,template:'<div class="tooltip" role="tooltip"><div class="tooltip-arrow"></div><div class="tooltip-inner"></div></div>',trigger:"hover focus",title:"",delay:0,html:!1,container:!1,viewport:{selector:"body",padding:0}},c.prototype.init=function(b,c,d){this.enabled=!0,this.type=b,this.$element=a(c),this.options=this.getOptions(d),this.$viewport=this.options.viewport&&a(this.options.viewport.selector||this.options.viewport);for(var e=this.options.trigger.split(" "),f=e.length;f--;){var g=e[f];if("click"==g)this.$element.on("click."+this.type,this.options.selector,a.proxy(this.toggle,this));else if("manual"!=g){var h="hover"==g?"mouseenter":"focusin",i="hover"==g?"mouseleave":"focusout";this.$element.on(h+"."+this.type,this.options.selector,a.proxy(this.enter,this)),this.$element.on(i+"."+this.type,this.options.selector,a.proxy(this.leave,this))}}this.options.selector?this._options=a.extend({},this.options,{trigger:"manual",selector:""}):this.fixTitle()},c.prototype.getDefaults=function(){return c.DEFAULTS},c.prototype.getOptions=function(b){return b=a.extend({},this.getDefaults(),this.$element.data(),b),b.delay&&"number"==typeof b.delay&&(b.delay={show:b.delay,hide:b.delay}),b},c.prototype.getDelegateOptions=function(){var b={},c=this.getDefaults();return this._options&&a.each(this._options,function(a,d){c[a]!=d&&(b[a]=d)}),b},c.prototype.enter=function(b){var c=b instanceof this.constructor?b:a(b.currentTarget).data("bs."+this.type);return c&&c.$tip&&c.$tip.is(":visible")?void(c.hoverState="in"):(c||(c=new this.constructor(b.currentTarget,this.getDelegateOptions()),a(b.currentTarget).data("bs."+this.type,c)),clearTimeout(c.timeout),c.hoverState="in",c.options.delay&&c.options.delay.show?void(c.timeout=setTimeout(function(){"in"==c.hoverState&&c.show()},c.options.delay.show)):c.show())},c.prototype.leave=function(b){var c=b instanceof this.constructor?b:a(b.currentTarget).data("bs."+this.type);return c||(c=new this.constructor(b.currentTarget,this.getDelegateOptions()),a(b.currentTarget).data("bs."+this.type,c)),clearTimeout(c.timeout),c.hoverState="out",c.options.delay&&c.options.delay.hide?void(c.timeout=setTimeout(function(){"out"==c.hoverState&&c.hide()},c.options.delay.hide)):c.hide()},c.prototype.show=function(){var b=a.Event("show.bs."+this.type);if(this.hasContent()&&this.enabled){this.$element.trigger(b);var d=a.contains(this.$element[0].ownerDocument.documentElement,this.$element[0]);if(b.isDefaultPrevented()||!d)return;var e=this,f=this.tip(),g=this.getUID(this.type);this.setContent(),f.attr("id",g),this.$element.attr("aria-describedby",g),this.options.animation&&f.addClass("fade");var h="function"==typeof this.options.placement?this.options.placement.call(this,f[0],this.$element[0]):this.options.placement,i=/\s?auto?\s?/i,j=i.test(h);j&&(h=h.replace(i,"")||"top"),f.detach().css({top:0,left:0,display:"block"}).addClass(h).data("bs."+this.type,this),this.options.container?f.appendTo(this.options.container):f.insertAfter(this.$element);var k=this.getPosition(),l=f[0].offsetWidth,m=f[0].offsetHeight;if(j){var n=h,o=this.options.container?a(this.options.container):this.$element.parent(),p=this.getPosition(o);h="bottom"==h&&k.bottom+m>p.bottom?"top":"top"==h&&k.top-m<p.top?"bottom":"right"==h&&k.right+l>p.width?"left":"left"==h&&k.left-l<p.left?"right":h,f.removeClass(n).addClass(h)}var q=this.getCalculatedOffset(h,k,l,m);this.applyPlacement(q,h);var r=function(){var a=e.hoverState;e.$element.trigger("shown.bs."+e.type),e.hoverState=null,"out"==a&&e.leave(e)};a.support.transition&&this.$tip.hasClass("fade")?f.one("bsTransitionEnd",r).emulateTransitionEnd(c.TRANSITION_DURATION):r()}},c.prototype.applyPlacement=function(b,c){var d=this.tip(),e=d[0].offsetWidth,f=d[0].offsetHeight,g=parseInt(d.css("margin-top"),10),h=parseInt(d.css("margin-left"),10);isNaN(g)&&(g=0),isNaN(h)&&(h=0),b.top=b.top+g,b.left=b.left+h,a.offset.setOffset(d[0],a.extend({using:function(a){d.css({top:Math.round(a.top),left:Math.round(a.left)})}},b),0),d.addClass("in");var i=d[0].offsetWidth,j=d[0].offsetHeight;"top"==c&&j!=f&&(b.top=b.top+f-j);var k=this.getViewportAdjustedDelta(c,b,i,j);k.left?b.left+=k.left:b.top+=k.top;var l=/top|bottom/.test(c),m=l?2*k.left-e+i:2*k.top-f+j,n=l?"offsetWidth":"offsetHeight";d.offset(b),this.replaceArrow(m,d[0][n],l)},c.prototype.replaceArrow=function(a,b,c){this.arrow().css(c?"left":"top",50*(1-a/b)+"%").css(c?"top":"left","")},c.prototype.setContent=function(){var a=this.tip(),b=this.getTitle();a.find(".tooltip-inner")[this.options.html?"html":"text"](b),a.removeClass("fade in top bottom left right")},c.prototype.hide=function(b){function d(){"in"!=e.hoverState&&f.detach(),e.$element.removeAttr("aria-describedby").trigger("hidden.bs."+e.type),b&&b()}var e=this,f=this.tip(),g=a.Event("hide.bs."+this.type);return this.$element.trigger(g),g.isDefaultPrevented()?void 0:(f.removeClass("in"),a.support.transition&&this.$tip.hasClass("fade")?f.one("bsTransitionEnd",d).emulateTransitionEnd(c.TRANSITION_DURATION):d(),this.hoverState=null,this)},c.prototype.fixTitle=function(){var a=this.$element;(a.attr("title")||"string"!=typeof a.attr("data-original-title"))&&a.attr("data-original-title",a.attr("title")||"").attr("title","")},c.prototype.hasContent=function(){return this.getTitle()},c.prototype.getPosition=function(b){b=b||this.$element;var c=b[0],d="BODY"==c.tagName,e=c.getBoundingClientRect();null==e.width&&(e=a.extend({},e,{width:e.right-e.left,height:e.bottom-e.top}));var f=d?{top:0,left:0}:b.offset(),g={scroll:d?document.documentElement.scrollTop||document.body.scrollTop:b.scrollTop()},h=d?{width:a(window).width(),height:a(window).height()}:null;return a.extend({},e,g,h,f)},c.prototype.getCalculatedOffset=function(a,b,c,d){return"bottom"==a?{top:b.top+b.height,left:b.left+b.width/2-c/2}:"top"==a?{top:b.top-d,left:b.left+b.width/2-c/2}:"left"==a?{top:b.top+b.height/2-d/2,left:b.left-c}:{top:b.top+b.height/2-d/2,left:b.left+b.width}},c.prototype.getViewportAdjustedDelta=function(a,b,c,d){var e={top:0,left:0};if(!this.$viewport)return e;var f=this.options.viewport&&this.options.viewport.padding||0,g=this.getPosition(this.$viewport);if(/right|left/.test(a)){var h=b.top-f-g.scroll,i=b.top+f-g.scroll+d;h<g.top?e.top=g.top-h:i>g.top+g.height&&(e.top=g.top+g.height-i)}else{var j=b.left-f,k=b.left+f+c;j<g.left?e.left=g.left-j:k>g.width&&(e.left=g.left+g.width-k)}return e},c.prototype.getTitle=function(){var a,b=this.$element,c=this.options;return a=b.attr("data-original-title")||("function"==typeof c.title?c.title.call(b[0]):c.title)},c.prototype.getUID=function(a){do a+=~~(1e6*Math.random());while(document.getElementById(a));return a},c.prototype.tip=function(){return this.$tip=this.$tip||a(this.options.template)},c.prototype.arrow=function(){return this.$arrow=this.$arrow||this.tip().find(".tooltip-arrow")},c.prototype.enable=function(){this.enabled=!0},c.prototype.disable=function(){this.enabled=!1},c.prototype.toggleEnabled=function(){this.enabled=!this.enabled},c.prototype.toggle=function(b){var c=this;b&&(c=a(b.currentTarget).data("bs."+this.type),c||(c=new this.constructor(b.currentTarget,this.getDelegateOptions()),a(b.currentTarget).data("bs."+this.type,c))),c.tip().hasClass("in")?c.leave(c):c.enter(c)},c.prototype.destroy=function(){var a=this;clearTimeout(this.timeout),this.hide(function(){a.$element.off("."+a.type).removeData("bs."+a.type)})};var d=a.fn.tooltip;a.fn.tooltip=b,a.fn.tooltip.Constructor=c,a.fn.tooltip.noConflict=function(){return a.fn.tooltip=d,this}}(jQuery),+function(a){"use strict";function b(b){return this.each(function(){var d=a(this),e=d.data("bs.popover"),f="object"==typeof b&&b,g=f&&f.selector;(e||"destroy"!=b)&&(g?(e||d.data("bs.popover",e={}),e[g]||(e[g]=new c(this,f))):e||d.data("bs.popover",e=new c(this,f)),"string"==typeof b&&e[b]())})}var c=function(a,b){this.init("popover",a,b)};if(!a.fn.tooltip)throw new Error("Popover requires tooltip.js");c.VERSION="3.3.1",c.DEFAULTS=a.extend({},a.fn.tooltip.Constructor.DEFAULTS,{placement:"right",trigger:"click",content:"",template:'<div class="popover" role="tooltip"><div class="arrow"></div><h3 class="popover-title"></h3><div class="popover-content"></div></div>'}),c.prototype=a.extend({},a.fn.tooltip.Constructor.prototype),c.prototype.constructor=c,c.prototype.getDefaults=function(){return c.DEFAULTS},c.prototype.setContent=function(){var a=this.tip(),b=this.getTitle(),c=this.getContent();a.find(".popover-title")[this.options.html?"html":"text"](b),a.find(".popover-content").children().detach().end()[this.options.html?"string"==typeof c?"html":"append":"text"](c),a.removeClass("fade top bottom left right in"),a.find(".popover-title").html()||a.find(".popover-title").hide()},c.prototype.hasContent=function(){return this.getTitle()||this.getContent()},c.prototype.getContent=function(){var a=this.$element,b=this.options;return a.attr("data-content")||("function"==typeof b.content?b.content.call(a[0]):b.content)},c.prototype.arrow=function(){return this.$arrow=this.$arrow||this.tip().find(".arrow")},c.prototype.tip=function(){return this.$tip||(this.$tip=a(this.options.template)),this.$tip};var d=a.fn.popover;a.fn.popover=b,a.fn.popover.Constructor=c,a.fn.popover.noConflict=function(){return a.fn.popover=d,this}}(jQuery),+function(a){"use strict";function b(c,d){var e=a.proxy(this.process,this);this.$body=a("body"),this.$scrollElement=a(a(c).is("body")?window:c),this.options=a.extend({},b.DEFAULTS,d),this.selector=(this.options.target||"")+" .nav li > a",this.offsets=[],this.targets=[],this.activeTarget=null,this.scrollHeight=0,this.$scrollElement.on("scroll.bs.scrollspy",e),this.refresh(),this.process()}function c(c){return this.each(function(){var d=a(this),e=d.data("bs.scrollspy"),f="object"==typeof c&&c;e||d.data("bs.scrollspy",e=new b(this,f)),"string"==typeof c&&e[c]()})}b.VERSION="3.3.1",b.DEFAULTS={offset:10},b.prototype.getScrollHeight=function(){return this.$scrollElement[0].scrollHeight||Math.max(this.$body[0].scrollHeight,document.documentElement.scrollHeight)},b.prototype.refresh=function(){var b="offset",c=0;a.isWindow(this.$scrollElement[0])||(b="position",c=this.$scrollElement.scrollTop()),this.offsets=[],this.targets=[],this.scrollHeight=this.getScrollHeight();var d=this;this.$body.find(this.selector).map(function(){var d=a(this),e=d.data("target")||d.attr("href"),f=/^#./.test(e)&&a(e);return f&&f.length&&f.is(":visible")&&[[f[b]().top+c,e]]||null}).sort(function(a,b){return a[0]-b[0]}).each(function(){d.offsets.push(this[0]),d.targets.push(this[1])})},b.prototype.process=function(){var a,b=this.$scrollElement.scrollTop()+this.options.offset,c=this.getScrollHeight(),d=this.options.offset+c-this.$scrollElement.height(),e=this.offsets,f=this.targets,g=this.activeTarget;if(this.scrollHeight!=c&&this.refresh(),b>=d)return g!=(a=f[f.length-1])&&this.activate(a);if(g&&b<e[0])return this.activeTarget=null,this.clear();for(a=e.length;a--;)g!=f[a]&&b>=e[a]&&(!e[a+1]||b<=e[a+1])&&this.activate(f[a])},b.prototype.activate=function(b){this.activeTarget=b,this.clear();var c=this.selector+'[data-target="'+b+'"],'+this.selector+'[href="'+b+'"]',d=a(c).parents("li").addClass("active");d.parent(".dropdown-menu").length&&(d=d.closest("li.dropdown").addClass("active")),d.trigger("activate.bs.scrollspy")},b.prototype.clear=function(){a(this.selector).parentsUntil(this.options.target,".active").removeClass("active")};var d=a.fn.scrollspy;a.fn.scrollspy=c,a.fn.scrollspy.Constructor=b,a.fn.scrollspy.noConflict=function(){return a.fn.scrollspy=d,this},a(window).on("load.bs.scrollspy.data-api",function(){a('[data-spy="scroll"]').each(function(){var b=a(this);c.call(b,b.data())})})}(jQuery),+function(a){"use strict";function b(b){return this.each(function(){var d=a(this),e=d.data("bs.tab");e||d.data("bs.tab",e=new c(this)),"string"==typeof b&&e[b]()})}var c=function(b){this.element=a(b)};c.VERSION="3.3.1",c.TRANSITION_DURATION=150,c.prototype.show=function(){var b=this.element,c=b.closest("ul:not(.dropdown-menu)"),d=b.data("target");if(d||(d=b.attr("href"),d=d&&d.replace(/.*(?=#[^\s]*$)/,"")),!b.parent("li").hasClass("active")){var e=c.find(".active:last a"),f=a.Event("hide.bs.tab",{relatedTarget:b[0]}),g=a.Event("show.bs.tab",{relatedTarget:e[0]});if(e.trigger(f),b.trigger(g),!g.isDefaultPrevented()&&!f.isDefaultPrevented()){var h=a(d);this.activate(b.closest("li"),c),this.activate(h,h.parent(),function(){e.trigger({type:"hidden.bs.tab",relatedTarget:b[0]}),b.trigger({type:"shown.bs.tab",relatedTarget:e[0]})
+})}}},c.prototype.activate=function(b,d,e){function f(){g.removeClass("active").find("> .dropdown-menu > .active").removeClass("active").end().find('[data-toggle="tab"]').attr("aria-expanded",!1),b.addClass("active").find('[data-toggle="tab"]').attr("aria-expanded",!0),h?(b[0].offsetWidth,b.addClass("in")):b.removeClass("fade"),b.parent(".dropdown-menu")&&b.closest("li.dropdown").addClass("active").end().find('[data-toggle="tab"]').attr("aria-expanded",!0),e&&e()}var g=d.find("> .active"),h=e&&a.support.transition&&(g.length&&g.hasClass("fade")||!!d.find("> .fade").length);g.length&&h?g.one("bsTransitionEnd",f).emulateTransitionEnd(c.TRANSITION_DURATION):f(),g.removeClass("in")};var d=a.fn.tab;a.fn.tab=b,a.fn.tab.Constructor=c,a.fn.tab.noConflict=function(){return a.fn.tab=d,this};var e=function(c){c.preventDefault(),b.call(a(this),"show")};a(document).on("click.bs.tab.data-api",'[data-toggle="tab"]',e).on("click.bs.tab.data-api",'[data-toggle="pill"]',e)}(jQuery),+function(a){"use strict";function b(b){return this.each(function(){var d=a(this),e=d.data("bs.affix"),f="object"==typeof b&&b;e||d.data("bs.affix",e=new c(this,f)),"string"==typeof b&&e[b]()})}var c=function(b,d){this.options=a.extend({},c.DEFAULTS,d),this.$target=a(this.options.target).on("scroll.bs.affix.data-api",a.proxy(this.checkPosition,this)).on("click.bs.affix.data-api",a.proxy(this.checkPositionWithEventLoop,this)),this.$element=a(b),this.affixed=this.unpin=this.pinnedOffset=null,this.checkPosition()};c.VERSION="3.3.1",c.RESET="affix affix-top affix-bottom",c.DEFAULTS={offset:0,target:window},c.prototype.getState=function(a,b,c,d){var e=this.$target.scrollTop(),f=this.$element.offset(),g=this.$target.height();if(null!=c&&"top"==this.affixed)return c>e?"top":!1;if("bottom"==this.affixed)return null!=c?e+this.unpin<=f.top?!1:"bottom":a-d>=e+g?!1:"bottom";var h=null==this.affixed,i=h?e:f.top,j=h?g:b;return null!=c&&c>=i?"top":null!=d&&i+j>=a-d?"bottom":!1},c.prototype.getPinnedOffset=function(){if(this.pinnedOffset)return this.pinnedOffset;this.$element.removeClass(c.RESET).addClass("affix");var a=this.$target.scrollTop(),b=this.$element.offset();return this.pinnedOffset=b.top-a},c.prototype.checkPositionWithEventLoop=function(){setTimeout(a.proxy(this.checkPosition,this),1)},c.prototype.checkPosition=function(){if(this.$element.is(":visible")){var b=this.$element.height(),d=this.options.offset,e=d.top,f=d.bottom,g=a("body").height();"object"!=typeof d&&(f=e=d),"function"==typeof e&&(e=d.top(this.$element)),"function"==typeof f&&(f=d.bottom(this.$element));var h=this.getState(g,b,e,f);if(this.affixed!=h){null!=this.unpin&&this.$element.css("top","");var i="affix"+(h?"-"+h:""),j=a.Event(i+".bs.affix");if(this.$element.trigger(j),j.isDefaultPrevented())return;this.affixed=h,this.unpin="bottom"==h?this.getPinnedOffset():null,this.$element.removeClass(c.RESET).addClass(i).trigger(i.replace("affix","affixed")+".bs.affix")}"bottom"==h&&this.$element.offset({top:g-b-f})}};var d=a.fn.affix;a.fn.affix=b,a.fn.affix.Constructor=c,a.fn.affix.noConflict=function(){return a.fn.affix=d,this},a(window).on("load",function(){a('[data-spy="affix"]').each(function(){var c=a(this),d=c.data();d.offset=d.offset||{},null!=d.offsetBottom&&(d.offset.bottom=d.offsetBottom),null!=d.offsetTop&&(d.offset.top=d.offsetTop),b.call(c,d)})})}(jQuery);
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/js/ie10-viewport-bug-workaround.js b/reference/rte-fortran-interface/js/ie10-viewport-bug-workaround.js
new file mode 100644
index 000000000..7f53b6145
--- /dev/null
+++ b/reference/rte-fortran-interface/js/ie10-viewport-bug-workaround.js
@@ -0,0 +1,22 @@
+/*!
+ * IE10 viewport hack for Surface/desktop Windows 8 bug
+ * Copyright 2014 Twitter, Inc.
+ * Licensed under the Creative Commons Attribution 3.0 Unported License. For
+ * details, see http://creativecommons.org/licenses/by/3.0/.
+ */
+
+// See the Getting Started docs for more information:
+// http://getbootstrap.com/getting-started/#support-ie10-width
+
+(function () {
+  'use strict';
+  if (navigator.userAgent.match(/IEMobile\/10\.0/)) {
+    var msViewportStyle = document.createElement('style')
+    msViewportStyle.appendChild(
+      document.createTextNode(
+        '@-ms-viewport{width:auto!important}'
+      )
+    )
+    document.querySelector('head').appendChild(msViewportStyle)
+  }
+})();
diff --git a/reference/rte-fortran-interface/js/jquery-2.1.3.min.js b/reference/rte-fortran-interface/js/jquery-2.1.3.min.js
new file mode 100644
index 000000000..25714ed29
--- /dev/null
+++ b/reference/rte-fortran-interface/js/jquery-2.1.3.min.js
@@ -0,0 +1,4 @@
+/*! jQuery v2.1.3 | (c) 2005, 2014 jQuery Foundation, Inc. | jquery.org/license */
+!function(a,b){"object"==typeof module&&"object"==typeof module.exports?module.exports=a.document?b(a,!0):function(a){if(!a.document)throw new Error("jQuery requires a window with a document");return b(a)}:b(a)}("undefined"!=typeof window?window:this,function(a,b){var c=[],d=c.slice,e=c.concat,f=c.push,g=c.indexOf,h={},i=h.toString,j=h.hasOwnProperty,k={},l=a.document,m="2.1.3",n=function(a,b){return new n.fn.init(a,b)},o=/^[\s\uFEFF\xA0]+|[\s\uFEFF\xA0]+$/g,p=/^-ms-/,q=/-([\da-z])/gi,r=function(a,b){return b.toUpperCase()};n.fn=n.prototype={jquery:m,constructor:n,selector:"",length:0,toArray:function(){return d.call(this)},get:function(a){return null!=a?0>a?this[a+this.length]:this[a]:d.call(this)},pushStack:function(a){var b=n.merge(this.constructor(),a);return b.prevObject=this,b.context=this.context,b},each:function(a,b){return n.each(this,a,b)},map:function(a){return this.pushStack(n.map(this,function(b,c){return a.call(b,c,b)}))},slice:function(){return this.pushStack(d.apply(this,arguments))},first:function(){return this.eq(0)},last:function(){return this.eq(-1)},eq:function(a){var b=this.length,c=+a+(0>a?b:0);return this.pushStack(c>=0&&b>c?[this[c]]:[])},end:function(){return this.prevObject||this.constructor(null)},push:f,sort:c.sort,splice:c.splice},n.extend=n.fn.extend=function(){var a,b,c,d,e,f,g=arguments[0]||{},h=1,i=arguments.length,j=!1;for("boolean"==typeof g&&(j=g,g=arguments[h]||{},h++),"object"==typeof g||n.isFunction(g)||(g={}),h===i&&(g=this,h--);i>h;h++)if(null!=(a=arguments[h]))for(b in a)c=g[b],d=a[b],g!==d&&(j&&d&&(n.isPlainObject(d)||(e=n.isArray(d)))?(e?(e=!1,f=c&&n.isArray(c)?c:[]):f=c&&n.isPlainObject(c)?c:{},g[b]=n.extend(j,f,d)):void 0!==d&&(g[b]=d));return g},n.extend({expando:"jQuery"+(m+Math.random()).replace(/\D/g,""),isReady:!0,error:function(a){throw new Error(a)},noop:function(){},isFunction:function(a){return"function"===n.type(a)},isArray:Array.isArray,isWindow:function(a){return null!=a&&a===a.window},isNumeric:function(a){return!n.isArray(a)&&a-parseFloat(a)+1>=0},isPlainObject:function(a){return"object"!==n.type(a)||a.nodeType||n.isWindow(a)?!1:a.constructor&&!j.call(a.constructor.prototype,"isPrototypeOf")?!1:!0},isEmptyObject:function(a){var b;for(b in a)return!1;return!0},type:function(a){return null==a?a+"":"object"==typeof a||"function"==typeof a?h[i.call(a)]||"object":typeof a},globalEval:function(a){var b,c=eval;a=n.trim(a),a&&(1===a.indexOf("use strict")?(b=l.createElement("script"),b.text=a,l.head.appendChild(b).parentNode.removeChild(b)):c(a))},camelCase:function(a){return a.replace(p,"ms-").replace(q,r)},nodeName:function(a,b){return a.nodeName&&a.nodeName.toLowerCase()===b.toLowerCase()},each:function(a,b,c){var d,e=0,f=a.length,g=s(a);if(c){if(g){for(;f>e;e++)if(d=b.apply(a[e],c),d===!1)break}else for(e in a)if(d=b.apply(a[e],c),d===!1)break}else if(g){for(;f>e;e++)if(d=b.call(a[e],e,a[e]),d===!1)break}else for(e in a)if(d=b.call(a[e],e,a[e]),d===!1)break;return a},trim:function(a){return null==a?"":(a+"").replace(o,"")},makeArray:function(a,b){var c=b||[];return null!=a&&(s(Object(a))?n.merge(c,"string"==typeof a?[a]:a):f.call(c,a)),c},inArray:function(a,b,c){return null==b?-1:g.call(b,a,c)},merge:function(a,b){for(var c=+b.length,d=0,e=a.length;c>d;d++)a[e++]=b[d];return a.length=e,a},grep:function(a,b,c){for(var d,e=[],f=0,g=a.length,h=!c;g>f;f++)d=!b(a[f],f),d!==h&&e.push(a[f]);return e},map:function(a,b,c){var d,f=0,g=a.length,h=s(a),i=[];if(h)for(;g>f;f++)d=b(a[f],f,c),null!=d&&i.push(d);else for(f in a)d=b(a[f],f,c),null!=d&&i.push(d);return e.apply([],i)},guid:1,proxy:function(a,b){var c,e,f;return"string"==typeof b&&(c=a[b],b=a,a=c),n.isFunction(a)?(e=d.call(arguments,2),f=function(){return a.apply(b||this,e.concat(d.call(arguments)))},f.guid=a.guid=a.guid||n.guid++,f):void 0},now:Date.now,support:k}),n.each("Boolean Number String Function Array Date RegExp Object Error".split(" "),function(a,b){h["[object "+b+"]"]=b.toLowerCase()});function s(a){var b=a.length,c=n.type(a);return"function"===c||n.isWindow(a)?!1:1===a.nodeType&&b?!0:"array"===c||0===b||"number"==typeof b&&b>0&&b-1 in a}var t=function(a){var b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u="sizzle"+1*new Date,v=a.document,w=0,x=0,y=hb(),z=hb(),A=hb(),B=function(a,b){return a===b&&(l=!0),0},C=1<<31,D={}.hasOwnProperty,E=[],F=E.pop,G=E.push,H=E.push,I=E.slice,J=function(a,b){for(var c=0,d=a.length;d>c;c++)if(a[c]===b)return c;return-1},K="checked|selected|async|autofocus|autoplay|controls|defer|disabled|hidden|ismap|loop|multiple|open|readonly|required|scoped",L="[\\x20\\t\\r\\n\\f]",M="(?:\\\\.|[\\w-]|[^\\x00-\\xa0])+",N=M.replace("w","w#"),O="\\["+L+"*("+M+")(?:"+L+"*([*^$|!~]?=)"+L+"*(?:'((?:\\\\.|[^\\\\'])*)'|\"((?:\\\\.|[^\\\\\"])*)\"|("+N+"))|)"+L+"*\\]",P=":("+M+")(?:\\((('((?:\\\\.|[^\\\\'])*)'|\"((?:\\\\.|[^\\\\\"])*)\")|((?:\\\\.|[^\\\\()[\\]]|"+O+")*)|.*)\\)|)",Q=new RegExp(L+"+","g"),R=new RegExp("^"+L+"+|((?:^|[^\\\\])(?:\\\\.)*)"+L+"+$","g"),S=new RegExp("^"+L+"*,"+L+"*"),T=new RegExp("^"+L+"*([>+~]|"+L+")"+L+"*"),U=new RegExp("="+L+"*([^\\]'\"]*?)"+L+"*\\]","g"),V=new RegExp(P),W=new RegExp("^"+N+"$"),X={ID:new RegExp("^#("+M+")"),CLASS:new RegExp("^\\.("+M+")"),TAG:new RegExp("^("+M.replace("w","w*")+")"),ATTR:new RegExp("^"+O),PSEUDO:new RegExp("^"+P),CHILD:new RegExp("^:(only|first|last|nth|nth-last)-(child|of-type)(?:\\("+L+"*(even|odd|(([+-]|)(\\d*)n|)"+L+"*(?:([+-]|)"+L+"*(\\d+)|))"+L+"*\\)|)","i"),bool:new RegExp("^(?:"+K+")$","i"),needsContext:new RegExp("^"+L+"*[>+~]|:(even|odd|eq|gt|lt|nth|first|last)(?:\\("+L+"*((?:-\\d)?\\d*)"+L+"*\\)|)(?=[^-]|$)","i")},Y=/^(?:input|select|textarea|button)$/i,Z=/^h\d$/i,$=/^[^{]+\{\s*\[native \w/,_=/^(?:#([\w-]+)|(\w+)|\.([\w-]+))$/,ab=/[+~]/,bb=/'|\\/g,cb=new RegExp("\\\\([\\da-f]{1,6}"+L+"?|("+L+")|.)","ig"),db=function(a,b,c){var d="0x"+b-65536;return d!==d||c?b:0>d?String.fromCharCode(d+65536):String.fromCharCode(d>>10|55296,1023&d|56320)},eb=function(){m()};try{H.apply(E=I.call(v.childNodes),v.childNodes),E[v.childNodes.length].nodeType}catch(fb){H={apply:E.length?function(a,b){G.apply(a,I.call(b))}:function(a,b){var c=a.length,d=0;while(a[c++]=b[d++]);a.length=c-1}}}function gb(a,b,d,e){var f,h,j,k,l,o,r,s,w,x;if((b?b.ownerDocument||b:v)!==n&&m(b),b=b||n,d=d||[],k=b.nodeType,"string"!=typeof a||!a||1!==k&&9!==k&&11!==k)return d;if(!e&&p){if(11!==k&&(f=_.exec(a)))if(j=f[1]){if(9===k){if(h=b.getElementById(j),!h||!h.parentNode)return d;if(h.id===j)return d.push(h),d}else if(b.ownerDocument&&(h=b.ownerDocument.getElementById(j))&&t(b,h)&&h.id===j)return d.push(h),d}else{if(f[2])return H.apply(d,b.getElementsByTagName(a)),d;if((j=f[3])&&c.getElementsByClassName)return H.apply(d,b.getElementsByClassName(j)),d}if(c.qsa&&(!q||!q.test(a))){if(s=r=u,w=b,x=1!==k&&a,1===k&&"object"!==b.nodeName.toLowerCase()){o=g(a),(r=b.getAttribute("id"))?s=r.replace(bb,"\\$&"):b.setAttribute("id",s),s="[id='"+s+"'] ",l=o.length;while(l--)o[l]=s+rb(o[l]);w=ab.test(a)&&pb(b.parentNode)||b,x=o.join(",")}if(x)try{return H.apply(d,w.querySelectorAll(x)),d}catch(y){}finally{r||b.removeAttribute("id")}}}return i(a.replace(R,"$1"),b,d,e)}function hb(){var a=[];function b(c,e){return a.push(c+" ")>d.cacheLength&&delete b[a.shift()],b[c+" "]=e}return b}function ib(a){return a[u]=!0,a}function jb(a){var b=n.createElement("div");try{return!!a(b)}catch(c){return!1}finally{b.parentNode&&b.parentNode.removeChild(b),b=null}}function kb(a,b){var c=a.split("|"),e=a.length;while(e--)d.attrHandle[c[e]]=b}function lb(a,b){var c=b&&a,d=c&&1===a.nodeType&&1===b.nodeType&&(~b.sourceIndex||C)-(~a.sourceIndex||C);if(d)return d;if(c)while(c=c.nextSibling)if(c===b)return-1;return a?1:-1}function mb(a){return function(b){var c=b.nodeName.toLowerCase();return"input"===c&&b.type===a}}function nb(a){return function(b){var c=b.nodeName.toLowerCase();return("input"===c||"button"===c)&&b.type===a}}function ob(a){return ib(function(b){return b=+b,ib(function(c,d){var e,f=a([],c.length,b),g=f.length;while(g--)c[e=f[g]]&&(c[e]=!(d[e]=c[e]))})})}function pb(a){return a&&"undefined"!=typeof a.getElementsByTagName&&a}c=gb.support={},f=gb.isXML=function(a){var b=a&&(a.ownerDocument||a).documentElement;return b?"HTML"!==b.nodeName:!1},m=gb.setDocument=function(a){var b,e,g=a?a.ownerDocument||a:v;return g!==n&&9===g.nodeType&&g.documentElement?(n=g,o=g.documentElement,e=g.defaultView,e&&e!==e.top&&(e.addEventListener?e.addEventListener("unload",eb,!1):e.attachEvent&&e.attachEvent("onunload",eb)),p=!f(g),c.attributes=jb(function(a){return a.className="i",!a.getAttribute("className")}),c.getElementsByTagName=jb(function(a){return a.appendChild(g.createComment("")),!a.getElementsByTagName("*").length}),c.getElementsByClassName=$.test(g.getElementsByClassName),c.getById=jb(function(a){return o.appendChild(a).id=u,!g.getElementsByName||!g.getElementsByName(u).length}),c.getById?(d.find.ID=function(a,b){if("undefined"!=typeof b.getElementById&&p){var c=b.getElementById(a);return c&&c.parentNode?[c]:[]}},d.filter.ID=function(a){var b=a.replace(cb,db);return function(a){return a.getAttribute("id")===b}}):(delete d.find.ID,d.filter.ID=function(a){var b=a.replace(cb,db);return function(a){var c="undefined"!=typeof a.getAttributeNode&&a.getAttributeNode("id");return c&&c.value===b}}),d.find.TAG=c.getElementsByTagName?function(a,b){return"undefined"!=typeof b.getElementsByTagName?b.getElementsByTagName(a):c.qsa?b.querySelectorAll(a):void 0}:function(a,b){var c,d=[],e=0,f=b.getElementsByTagName(a);if("*"===a){while(c=f[e++])1===c.nodeType&&d.push(c);return d}return f},d.find.CLASS=c.getElementsByClassName&&function(a,b){return p?b.getElementsByClassName(a):void 0},r=[],q=[],(c.qsa=$.test(g.querySelectorAll))&&(jb(function(a){o.appendChild(a).innerHTML="<a id='"+u+"'></a><select id='"+u+"-\f]' msallowcapture=''><option selected=''></option></select>",a.querySelectorAll("[msallowcapture^='']").length&&q.push("[*^$]="+L+"*(?:''|\"\")"),a.querySelectorAll("[selected]").length||q.push("\\["+L+"*(?:value|"+K+")"),a.querySelectorAll("[id~="+u+"-]").length||q.push("~="),a.querySelectorAll(":checked").length||q.push(":checked"),a.querySelectorAll("a#"+u+"+*").length||q.push(".#.+[+~]")}),jb(function(a){var b=g.createElement("input");b.setAttribute("type","hidden"),a.appendChild(b).setAttribute("name","D"),a.querySelectorAll("[name=d]").length&&q.push("name"+L+"*[*^$|!~]?="),a.querySelectorAll(":enabled").length||q.push(":enabled",":disabled"),a.querySelectorAll("*,:x"),q.push(",.*:")})),(c.matchesSelector=$.test(s=o.matches||o.webkitMatchesSelector||o.mozMatchesSelector||o.oMatchesSelector||o.msMatchesSelector))&&jb(function(a){c.disconnectedMatch=s.call(a,"div"),s.call(a,"[s!='']:x"),r.push("!=",P)}),q=q.length&&new RegExp(q.join("|")),r=r.length&&new RegExp(r.join("|")),b=$.test(o.compareDocumentPosition),t=b||$.test(o.contains)?function(a,b){var c=9===a.nodeType?a.documentElement:a,d=b&&b.parentNode;return a===d||!(!d||1!==d.nodeType||!(c.contains?c.contains(d):a.compareDocumentPosition&&16&a.compareDocumentPosition(d)))}:function(a,b){if(b)while(b=b.parentNode)if(b===a)return!0;return!1},B=b?function(a,b){if(a===b)return l=!0,0;var d=!a.compareDocumentPosition-!b.compareDocumentPosition;return d?d:(d=(a.ownerDocument||a)===(b.ownerDocument||b)?a.compareDocumentPosition(b):1,1&d||!c.sortDetached&&b.compareDocumentPosition(a)===d?a===g||a.ownerDocument===v&&t(v,a)?-1:b===g||b.ownerDocument===v&&t(v,b)?1:k?J(k,a)-J(k,b):0:4&d?-1:1)}:function(a,b){if(a===b)return l=!0,0;var c,d=0,e=a.parentNode,f=b.parentNode,h=[a],i=[b];if(!e||!f)return a===g?-1:b===g?1:e?-1:f?1:k?J(k,a)-J(k,b):0;if(e===f)return lb(a,b);c=a;while(c=c.parentNode)h.unshift(c);c=b;while(c=c.parentNode)i.unshift(c);while(h[d]===i[d])d++;return d?lb(h[d],i[d]):h[d]===v?-1:i[d]===v?1:0},g):n},gb.matches=function(a,b){return gb(a,null,null,b)},gb.matchesSelector=function(a,b){if((a.ownerDocument||a)!==n&&m(a),b=b.replace(U,"='$1']"),!(!c.matchesSelector||!p||r&&r.test(b)||q&&q.test(b)))try{var d=s.call(a,b);if(d||c.disconnectedMatch||a.document&&11!==a.document.nodeType)return d}catch(e){}return gb(b,n,null,[a]).length>0},gb.contains=function(a,b){return(a.ownerDocument||a)!==n&&m(a),t(a,b)},gb.attr=function(a,b){(a.ownerDocument||a)!==n&&m(a);var e=d.attrHandle[b.toLowerCase()],f=e&&D.call(d.attrHandle,b.toLowerCase())?e(a,b,!p):void 0;return void 0!==f?f:c.attributes||!p?a.getAttribute(b):(f=a.getAttributeNode(b))&&f.specified?f.value:null},gb.error=function(a){throw new Error("Syntax error, unrecognized expression: "+a)},gb.uniqueSort=function(a){var b,d=[],e=0,f=0;if(l=!c.detectDuplicates,k=!c.sortStable&&a.slice(0),a.sort(B),l){while(b=a[f++])b===a[f]&&(e=d.push(f));while(e--)a.splice(d[e],1)}return k=null,a},e=gb.getText=function(a){var b,c="",d=0,f=a.nodeType;if(f){if(1===f||9===f||11===f){if("string"==typeof a.textContent)return a.textContent;for(a=a.firstChild;a;a=a.nextSibling)c+=e(a)}else if(3===f||4===f)return a.nodeValue}else while(b=a[d++])c+=e(b);return c},d=gb.selectors={cacheLength:50,createPseudo:ib,match:X,attrHandle:{},find:{},relative:{">":{dir:"parentNode",first:!0}," ":{dir:"parentNode"},"+":{dir:"previousSibling",first:!0},"~":{dir:"previousSibling"}},preFilter:{ATTR:function(a){return a[1]=a[1].replace(cb,db),a[3]=(a[3]||a[4]||a[5]||"").replace(cb,db),"~="===a[2]&&(a[3]=" "+a[3]+" "),a.slice(0,4)},CHILD:function(a){return a[1]=a[1].toLowerCase(),"nth"===a[1].slice(0,3)?(a[3]||gb.error(a[0]),a[4]=+(a[4]?a[5]+(a[6]||1):2*("even"===a[3]||"odd"===a[3])),a[5]=+(a[7]+a[8]||"odd"===a[3])):a[3]&&gb.error(a[0]),a},PSEUDO:function(a){var b,c=!a[6]&&a[2];return X.CHILD.test(a[0])?null:(a[3]?a[2]=a[4]||a[5]||"":c&&V.test(c)&&(b=g(c,!0))&&(b=c.indexOf(")",c.length-b)-c.length)&&(a[0]=a[0].slice(0,b),a[2]=c.slice(0,b)),a.slice(0,3))}},filter:{TAG:function(a){var b=a.replace(cb,db).toLowerCase();return"*"===a?function(){return!0}:function(a){return a.nodeName&&a.nodeName.toLowerCase()===b}},CLASS:function(a){var b=y[a+" "];return b||(b=new RegExp("(^|"+L+")"+a+"("+L+"|$)"))&&y(a,function(a){return b.test("string"==typeof a.className&&a.className||"undefined"!=typeof a.getAttribute&&a.getAttribute("class")||"")})},ATTR:function(a,b,c){return function(d){var e=gb.attr(d,a);return null==e?"!="===b:b?(e+="","="===b?e===c:"!="===b?e!==c:"^="===b?c&&0===e.indexOf(c):"*="===b?c&&e.indexOf(c)>-1:"$="===b?c&&e.slice(-c.length)===c:"~="===b?(" "+e.replace(Q," ")+" ").indexOf(c)>-1:"|="===b?e===c||e.slice(0,c.length+1)===c+"-":!1):!0}},CHILD:function(a,b,c,d,e){var f="nth"!==a.slice(0,3),g="last"!==a.slice(-4),h="of-type"===b;return 1===d&&0===e?function(a){return!!a.parentNode}:function(b,c,i){var j,k,l,m,n,o,p=f!==g?"nextSibling":"previousSibling",q=b.parentNode,r=h&&b.nodeName.toLowerCase(),s=!i&&!h;if(q){if(f){while(p){l=b;while(l=l[p])if(h?l.nodeName.toLowerCase()===r:1===l.nodeType)return!1;o=p="only"===a&&!o&&"nextSibling"}return!0}if(o=[g?q.firstChild:q.lastChild],g&&s){k=q[u]||(q[u]={}),j=k[a]||[],n=j[0]===w&&j[1],m=j[0]===w&&j[2],l=n&&q.childNodes[n];while(l=++n&&l&&l[p]||(m=n=0)||o.pop())if(1===l.nodeType&&++m&&l===b){k[a]=[w,n,m];break}}else if(s&&(j=(b[u]||(b[u]={}))[a])&&j[0]===w)m=j[1];else while(l=++n&&l&&l[p]||(m=n=0)||o.pop())if((h?l.nodeName.toLowerCase()===r:1===l.nodeType)&&++m&&(s&&((l[u]||(l[u]={}))[a]=[w,m]),l===b))break;return m-=e,m===d||m%d===0&&m/d>=0}}},PSEUDO:function(a,b){var c,e=d.pseudos[a]||d.setFilters[a.toLowerCase()]||gb.error("unsupported pseudo: "+a);return e[u]?e(b):e.length>1?(c=[a,a,"",b],d.setFilters.hasOwnProperty(a.toLowerCase())?ib(function(a,c){var d,f=e(a,b),g=f.length;while(g--)d=J(a,f[g]),a[d]=!(c[d]=f[g])}):function(a){return e(a,0,c)}):e}},pseudos:{not:ib(function(a){var b=[],c=[],d=h(a.replace(R,"$1"));return d[u]?ib(function(a,b,c,e){var f,g=d(a,null,e,[]),h=a.length;while(h--)(f=g[h])&&(a[h]=!(b[h]=f))}):function(a,e,f){return b[0]=a,d(b,null,f,c),b[0]=null,!c.pop()}}),has:ib(function(a){return function(b){return gb(a,b).length>0}}),contains:ib(function(a){return a=a.replace(cb,db),function(b){return(b.textContent||b.innerText||e(b)).indexOf(a)>-1}}),lang:ib(function(a){return W.test(a||"")||gb.error("unsupported lang: "+a),a=a.replace(cb,db).toLowerCase(),function(b){var c;do if(c=p?b.lang:b.getAttribute("xml:lang")||b.getAttribute("lang"))return c=c.toLowerCase(),c===a||0===c.indexOf(a+"-");while((b=b.parentNode)&&1===b.nodeType);return!1}}),target:function(b){var c=a.location&&a.location.hash;return c&&c.slice(1)===b.id},root:function(a){return a===o},focus:function(a){return a===n.activeElement&&(!n.hasFocus||n.hasFocus())&&!!(a.type||a.href||~a.tabIndex)},enabled:function(a){return a.disabled===!1},disabled:function(a){return a.disabled===!0},checked:function(a){var b=a.nodeName.toLowerCase();return"input"===b&&!!a.checked||"option"===b&&!!a.selected},selected:function(a){return a.parentNode&&a.parentNode.selectedIndex,a.selected===!0},empty:function(a){for(a=a.firstChild;a;a=a.nextSibling)if(a.nodeType<6)return!1;return!0},parent:function(a){return!d.pseudos.empty(a)},header:function(a){return Z.test(a.nodeName)},input:function(a){return Y.test(a.nodeName)},button:function(a){var b=a.nodeName.toLowerCase();return"input"===b&&"button"===a.type||"button"===b},text:function(a){var b;return"input"===a.nodeName.toLowerCase()&&"text"===a.type&&(null==(b=a.getAttribute("type"))||"text"===b.toLowerCase())},first:ob(function(){return[0]}),last:ob(function(a,b){return[b-1]}),eq:ob(function(a,b,c){return[0>c?c+b:c]}),even:ob(function(a,b){for(var c=0;b>c;c+=2)a.push(c);return a}),odd:ob(function(a,b){for(var c=1;b>c;c+=2)a.push(c);return a}),lt:ob(function(a,b,c){for(var d=0>c?c+b:c;--d>=0;)a.push(d);return a}),gt:ob(function(a,b,c){for(var d=0>c?c+b:c;++d<b;)a.push(d);return a})}},d.pseudos.nth=d.pseudos.eq;for(b in{radio:!0,checkbox:!0,file:!0,password:!0,image:!0})d.pseudos[b]=mb(b);for(b in{submit:!0,reset:!0})d.pseudos[b]=nb(b);function qb(){}qb.prototype=d.filters=d.pseudos,d.setFilters=new qb,g=gb.tokenize=function(a,b){var c,e,f,g,h,i,j,k=z[a+" "];if(k)return b?0:k.slice(0);h=a,i=[],j=d.preFilter;while(h){(!c||(e=S.exec(h)))&&(e&&(h=h.slice(e[0].length)||h),i.push(f=[])),c=!1,(e=T.exec(h))&&(c=e.shift(),f.push({value:c,type:e[0].replace(R," ")}),h=h.slice(c.length));for(g in d.filter)!(e=X[g].exec(h))||j[g]&&!(e=j[g](e))||(c=e.shift(),f.push({value:c,type:g,matches:e}),h=h.slice(c.length));if(!c)break}return b?h.length:h?gb.error(a):z(a,i).slice(0)};function rb(a){for(var b=0,c=a.length,d="";c>b;b++)d+=a[b].value;return d}function sb(a,b,c){var d=b.dir,e=c&&"parentNode"===d,f=x++;return b.first?function(b,c,f){while(b=b[d])if(1===b.nodeType||e)return a(b,c,f)}:function(b,c,g){var h,i,j=[w,f];if(g){while(b=b[d])if((1===b.nodeType||e)&&a(b,c,g))return!0}else while(b=b[d])if(1===b.nodeType||e){if(i=b[u]||(b[u]={}),(h=i[d])&&h[0]===w&&h[1]===f)return j[2]=h[2];if(i[d]=j,j[2]=a(b,c,g))return!0}}}function tb(a){return a.length>1?function(b,c,d){var e=a.length;while(e--)if(!a[e](b,c,d))return!1;return!0}:a[0]}function ub(a,b,c){for(var d=0,e=b.length;e>d;d++)gb(a,b[d],c);return c}function vb(a,b,c,d,e){for(var f,g=[],h=0,i=a.length,j=null!=b;i>h;h++)(f=a[h])&&(!c||c(f,d,e))&&(g.push(f),j&&b.push(h));return g}function wb(a,b,c,d,e,f){return d&&!d[u]&&(d=wb(d)),e&&!e[u]&&(e=wb(e,f)),ib(function(f,g,h,i){var j,k,l,m=[],n=[],o=g.length,p=f||ub(b||"*",h.nodeType?[h]:h,[]),q=!a||!f&&b?p:vb(p,m,a,h,i),r=c?e||(f?a:o||d)?[]:g:q;if(c&&c(q,r,h,i),d){j=vb(r,n),d(j,[],h,i),k=j.length;while(k--)(l=j[k])&&(r[n[k]]=!(q[n[k]]=l))}if(f){if(e||a){if(e){j=[],k=r.length;while(k--)(l=r[k])&&j.push(q[k]=l);e(null,r=[],j,i)}k=r.length;while(k--)(l=r[k])&&(j=e?J(f,l):m[k])>-1&&(f[j]=!(g[j]=l))}}else r=vb(r===g?r.splice(o,r.length):r),e?e(null,g,r,i):H.apply(g,r)})}function xb(a){for(var b,c,e,f=a.length,g=d.relative[a[0].type],h=g||d.relative[" "],i=g?1:0,k=sb(function(a){return a===b},h,!0),l=sb(function(a){return J(b,a)>-1},h,!0),m=[function(a,c,d){var e=!g&&(d||c!==j)||((b=c).nodeType?k(a,c,d):l(a,c,d));return b=null,e}];f>i;i++)if(c=d.relative[a[i].type])m=[sb(tb(m),c)];else{if(c=d.filter[a[i].type].apply(null,a[i].matches),c[u]){for(e=++i;f>e;e++)if(d.relative[a[e].type])break;return wb(i>1&&tb(m),i>1&&rb(a.slice(0,i-1).concat({value:" "===a[i-2].type?"*":""})).replace(R,"$1"),c,e>i&&xb(a.slice(i,e)),f>e&&xb(a=a.slice(e)),f>e&&rb(a))}m.push(c)}return tb(m)}function yb(a,b){var c=b.length>0,e=a.length>0,f=function(f,g,h,i,k){var l,m,o,p=0,q="0",r=f&&[],s=[],t=j,u=f||e&&d.find.TAG("*",k),v=w+=null==t?1:Math.random()||.1,x=u.length;for(k&&(j=g!==n&&g);q!==x&&null!=(l=u[q]);q++){if(e&&l){m=0;while(o=a[m++])if(o(l,g,h)){i.push(l);break}k&&(w=v)}c&&((l=!o&&l)&&p--,f&&r.push(l))}if(p+=q,c&&q!==p){m=0;while(o=b[m++])o(r,s,g,h);if(f){if(p>0)while(q--)r[q]||s[q]||(s[q]=F.call(i));s=vb(s)}H.apply(i,s),k&&!f&&s.length>0&&p+b.length>1&&gb.uniqueSort(i)}return k&&(w=v,j=t),r};return c?ib(f):f}return h=gb.compile=function(a,b){var c,d=[],e=[],f=A[a+" "];if(!f){b||(b=g(a)),c=b.length;while(c--)f=xb(b[c]),f[u]?d.push(f):e.push(f);f=A(a,yb(e,d)),f.selector=a}return f},i=gb.select=function(a,b,e,f){var i,j,k,l,m,n="function"==typeof a&&a,o=!f&&g(a=n.selector||a);if(e=e||[],1===o.length){if(j=o[0]=o[0].slice(0),j.length>2&&"ID"===(k=j[0]).type&&c.getById&&9===b.nodeType&&p&&d.relative[j[1].type]){if(b=(d.find.ID(k.matches[0].replace(cb,db),b)||[])[0],!b)return e;n&&(b=b.parentNode),a=a.slice(j.shift().value.length)}i=X.needsContext.test(a)?0:j.length;while(i--){if(k=j[i],d.relative[l=k.type])break;if((m=d.find[l])&&(f=m(k.matches[0].replace(cb,db),ab.test(j[0].type)&&pb(b.parentNode)||b))){if(j.splice(i,1),a=f.length&&rb(j),!a)return H.apply(e,f),e;break}}}return(n||h(a,o))(f,b,!p,e,ab.test(a)&&pb(b.parentNode)||b),e},c.sortStable=u.split("").sort(B).join("")===u,c.detectDuplicates=!!l,m(),c.sortDetached=jb(function(a){return 1&a.compareDocumentPosition(n.createElement("div"))}),jb(function(a){return a.innerHTML="<a href='#'></a>","#"===a.firstChild.getAttribute("href")})||kb("type|href|height|width",function(a,b,c){return c?void 0:a.getAttribute(b,"type"===b.toLowerCase()?1:2)}),c.attributes&&jb(function(a){return a.innerHTML="<input/>",a.firstChild.setAttribute("value",""),""===a.firstChild.getAttribute("value")})||kb("value",function(a,b,c){return c||"input"!==a.nodeName.toLowerCase()?void 0:a.defaultValue}),jb(function(a){return null==a.getAttribute("disabled")})||kb(K,function(a,b,c){var d;return c?void 0:a[b]===!0?b.toLowerCase():(d=a.getAttributeNode(b))&&d.specified?d.value:null}),gb}(a);n.find=t,n.expr=t.selectors,n.expr[":"]=n.expr.pseudos,n.unique=t.uniqueSort,n.text=t.getText,n.isXMLDoc=t.isXML,n.contains=t.contains;var u=n.expr.match.needsContext,v=/^<(\w+)\s*\/?>(?:<\/\1>|)$/,w=/^.[^:#\[\.,]*$/;function x(a,b,c){if(n.isFunction(b))return n.grep(a,function(a,d){return!!b.call(a,d,a)!==c});if(b.nodeType)return n.grep(a,function(a){return a===b!==c});if("string"==typeof b){if(w.test(b))return n.filter(b,a,c);b=n.filter(b,a)}return n.grep(a,function(a){return g.call(b,a)>=0!==c})}n.filter=function(a,b,c){var d=b[0];return c&&(a=":not("+a+")"),1===b.length&&1===d.nodeType?n.find.matchesSelector(d,a)?[d]:[]:n.find.matches(a,n.grep(b,function(a){return 1===a.nodeType}))},n.fn.extend({find:function(a){var b,c=this.length,d=[],e=this;if("string"!=typeof a)return this.pushStack(n(a).filter(function(){for(b=0;c>b;b++)if(n.contains(e[b],this))return!0}));for(b=0;c>b;b++)n.find(a,e[b],d);return d=this.pushStack(c>1?n.unique(d):d),d.selector=this.selector?this.selector+" "+a:a,d},filter:function(a){return this.pushStack(x(this,a||[],!1))},not:function(a){return this.pushStack(x(this,a||[],!0))},is:function(a){return!!x(this,"string"==typeof a&&u.test(a)?n(a):a||[],!1).length}});var y,z=/^(?:\s*(<[\w\W]+>)[^>]*|#([\w-]*))$/,A=n.fn.init=function(a,b){var c,d;if(!a)return this;if("string"==typeof a){if(c="<"===a[0]&&">"===a[a.length-1]&&a.length>=3?[null,a,null]:z.exec(a),!c||!c[1]&&b)return!b||b.jquery?(b||y).find(a):this.constructor(b).find(a);if(c[1]){if(b=b instanceof n?b[0]:b,n.merge(this,n.parseHTML(c[1],b&&b.nodeType?b.ownerDocument||b:l,!0)),v.test(c[1])&&n.isPlainObject(b))for(c in b)n.isFunction(this[c])?this[c](b[c]):this.attr(c,b[c]);return this}return d=l.getElementById(c[2]),d&&d.parentNode&&(this.length=1,this[0]=d),this.context=l,this.selector=a,this}return a.nodeType?(this.context=this[0]=a,this.length=1,this):n.isFunction(a)?"undefined"!=typeof y.ready?y.ready(a):a(n):(void 0!==a.selector&&(this.selector=a.selector,this.context=a.context),n.makeArray(a,this))};A.prototype=n.fn,y=n(l);var B=/^(?:parents|prev(?:Until|All))/,C={children:!0,contents:!0,next:!0,prev:!0};n.extend({dir:function(a,b,c){var d=[],e=void 0!==c;while((a=a[b])&&9!==a.nodeType)if(1===a.nodeType){if(e&&n(a).is(c))break;d.push(a)}return d},sibling:function(a,b){for(var c=[];a;a=a.nextSibling)1===a.nodeType&&a!==b&&c.push(a);return c}}),n.fn.extend({has:function(a){var b=n(a,this),c=b.length;return this.filter(function(){for(var a=0;c>a;a++)if(n.contains(this,b[a]))return!0})},closest:function(a,b){for(var c,d=0,e=this.length,f=[],g=u.test(a)||"string"!=typeof a?n(a,b||this.context):0;e>d;d++)for(c=this[d];c&&c!==b;c=c.parentNode)if(c.nodeType<11&&(g?g.index(c)>-1:1===c.nodeType&&n.find.matchesSelector(c,a))){f.push(c);break}return this.pushStack(f.length>1?n.unique(f):f)},index:function(a){return a?"string"==typeof a?g.call(n(a),this[0]):g.call(this,a.jquery?a[0]:a):this[0]&&this[0].parentNode?this.first().prevAll().length:-1},add:function(a,b){return this.pushStack(n.unique(n.merge(this.get(),n(a,b))))},addBack:function(a){return this.add(null==a?this.prevObject:this.prevObject.filter(a))}});function D(a,b){while((a=a[b])&&1!==a.nodeType);return a}n.each({parent:function(a){var b=a.parentNode;return b&&11!==b.nodeType?b:null},parents:function(a){return n.dir(a,"parentNode")},parentsUntil:function(a,b,c){return n.dir(a,"parentNode",c)},next:function(a){return D(a,"nextSibling")},prev:function(a){return D(a,"previousSibling")},nextAll:function(a){return n.dir(a,"nextSibling")},prevAll:function(a){return n.dir(a,"previousSibling")},nextUntil:function(a,b,c){return n.dir(a,"nextSibling",c)},prevUntil:function(a,b,c){return n.dir(a,"previousSibling",c)},siblings:function(a){return n.sibling((a.parentNode||{}).firstChild,a)},children:function(a){return n.sibling(a.firstChild)},contents:function(a){return a.contentDocument||n.merge([],a.childNodes)}},function(a,b){n.fn[a]=function(c,d){var e=n.map(this,b,c);return"Until"!==a.slice(-5)&&(d=c),d&&"string"==typeof d&&(e=n.filter(d,e)),this.length>1&&(C[a]||n.unique(e),B.test(a)&&e.reverse()),this.pushStack(e)}});var E=/\S+/g,F={};function G(a){var b=F[a]={};return n.each(a.match(E)||[],function(a,c){b[c]=!0}),b}n.Callbacks=function(a){a="string"==typeof a?F[a]||G(a):n.extend({},a);var b,c,d,e,f,g,h=[],i=!a.once&&[],j=function(l){for(b=a.memory&&l,c=!0,g=e||0,e=0,f=h.length,d=!0;h&&f>g;g++)if(h[g].apply(l[0],l[1])===!1&&a.stopOnFalse){b=!1;break}d=!1,h&&(i?i.length&&j(i.shift()):b?h=[]:k.disable())},k={add:function(){if(h){var c=h.length;!function g(b){n.each(b,function(b,c){var d=n.type(c);"function"===d?a.unique&&k.has(c)||h.push(c):c&&c.length&&"string"!==d&&g(c)})}(arguments),d?f=h.length:b&&(e=c,j(b))}return this},remove:function(){return h&&n.each(arguments,function(a,b){var c;while((c=n.inArray(b,h,c))>-1)h.splice(c,1),d&&(f>=c&&f--,g>=c&&g--)}),this},has:function(a){return a?n.inArray(a,h)>-1:!(!h||!h.length)},empty:function(){return h=[],f=0,this},disable:function(){return h=i=b=void 0,this},disabled:function(){return!h},lock:function(){return i=void 0,b||k.disable(),this},locked:function(){return!i},fireWith:function(a,b){return!h||c&&!i||(b=b||[],b=[a,b.slice?b.slice():b],d?i.push(b):j(b)),this},fire:function(){return k.fireWith(this,arguments),this},fired:function(){return!!c}};return k},n.extend({Deferred:function(a){var b=[["resolve","done",n.Callbacks("once memory"),"resolved"],["reject","fail",n.Callbacks("once memory"),"rejected"],["notify","progress",n.Callbacks("memory")]],c="pending",d={state:function(){return c},always:function(){return e.done(arguments).fail(arguments),this},then:function(){var a=arguments;return n.Deferred(function(c){n.each(b,function(b,f){var g=n.isFunction(a[b])&&a[b];e[f[1]](function(){var a=g&&g.apply(this,arguments);a&&n.isFunction(a.promise)?a.promise().done(c.resolve).fail(c.reject).progress(c.notify):c[f[0]+"With"](this===d?c.promise():this,g?[a]:arguments)})}),a=null}).promise()},promise:function(a){return null!=a?n.extend(a,d):d}},e={};return d.pipe=d.then,n.each(b,function(a,f){var g=f[2],h=f[3];d[f[1]]=g.add,h&&g.add(function(){c=h},b[1^a][2].disable,b[2][2].lock),e[f[0]]=function(){return e[f[0]+"With"](this===e?d:this,arguments),this},e[f[0]+"With"]=g.fireWith}),d.promise(e),a&&a.call(e,e),e},when:function(a){var b=0,c=d.call(arguments),e=c.length,f=1!==e||a&&n.isFunction(a.promise)?e:0,g=1===f?a:n.Deferred(),h=function(a,b,c){return function(e){b[a]=this,c[a]=arguments.length>1?d.call(arguments):e,c===i?g.notifyWith(b,c):--f||g.resolveWith(b,c)}},i,j,k;if(e>1)for(i=new Array(e),j=new Array(e),k=new Array(e);e>b;b++)c[b]&&n.isFunction(c[b].promise)?c[b].promise().done(h(b,k,c)).fail(g.reject).progress(h(b,j,i)):--f;return f||g.resolveWith(k,c),g.promise()}});var H;n.fn.ready=function(a){return n.ready.promise().done(a),this},n.extend({isReady:!1,readyWait:1,holdReady:function(a){a?n.readyWait++:n.ready(!0)},ready:function(a){(a===!0?--n.readyWait:n.isReady)||(n.isReady=!0,a!==!0&&--n.readyWait>0||(H.resolveWith(l,[n]),n.fn.triggerHandler&&(n(l).triggerHandler("ready"),n(l).off("ready"))))}});function I(){l.removeEventListener("DOMContentLoaded",I,!1),a.removeEventListener("load",I,!1),n.ready()}n.ready.promise=function(b){return H||(H=n.Deferred(),"complete"===l.readyState?setTimeout(n.ready):(l.addEventListener("DOMContentLoaded",I,!1),a.addEventListener("load",I,!1))),H.promise(b)},n.ready.promise();var J=n.access=function(a,b,c,d,e,f,g){var h=0,i=a.length,j=null==c;if("object"===n.type(c)){e=!0;for(h in c)n.access(a,b,h,c[h],!0,f,g)}else if(void 0!==d&&(e=!0,n.isFunction(d)||(g=!0),j&&(g?(b.call(a,d),b=null):(j=b,b=function(a,b,c){return j.call(n(a),c)})),b))for(;i>h;h++)b(a[h],c,g?d:d.call(a[h],h,b(a[h],c)));return e?a:j?b.call(a):i?b(a[0],c):f};n.acceptData=function(a){return 1===a.nodeType||9===a.nodeType||!+a.nodeType};function K(){Object.defineProperty(this.cache={},0,{get:function(){return{}}}),this.expando=n.expando+K.uid++}K.uid=1,K.accepts=n.acceptData,K.prototype={key:function(a){if(!K.accepts(a))return 0;var b={},c=a[this.expando];if(!c){c=K.uid++;try{b[this.expando]={value:c},Object.defineProperties(a,b)}catch(d){b[this.expando]=c,n.extend(a,b)}}return this.cache[c]||(this.cache[c]={}),c},set:function(a,b,c){var d,e=this.key(a),f=this.cache[e];if("string"==typeof b)f[b]=c;else if(n.isEmptyObject(f))n.extend(this.cache[e],b);else for(d in b)f[d]=b[d];return f},get:function(a,b){var c=this.cache[this.key(a)];return void 0===b?c:c[b]},access:function(a,b,c){var d;return void 0===b||b&&"string"==typeof b&&void 0===c?(d=this.get(a,b),void 0!==d?d:this.get(a,n.camelCase(b))):(this.set(a,b,c),void 0!==c?c:b)},remove:function(a,b){var c,d,e,f=this.key(a),g=this.cache[f];if(void 0===b)this.cache[f]={};else{n.isArray(b)?d=b.concat(b.map(n.camelCase)):(e=n.camelCase(b),b in g?d=[b,e]:(d=e,d=d in g?[d]:d.match(E)||[])),c=d.length;while(c--)delete g[d[c]]}},hasData:function(a){return!n.isEmptyObject(this.cache[a[this.expando]]||{})},discard:function(a){a[this.expando]&&delete this.cache[a[this.expando]]}};var L=new K,M=new K,N=/^(?:\{[\w\W]*\}|\[[\w\W]*\])$/,O=/([A-Z])/g;function P(a,b,c){var d;if(void 0===c&&1===a.nodeType)if(d="data-"+b.replace(O,"-$1").toLowerCase(),c=a.getAttribute(d),"string"==typeof c){try{c="true"===c?!0:"false"===c?!1:"null"===c?null:+c+""===c?+c:N.test(c)?n.parseJSON(c):c}catch(e){}M.set(a,b,c)}else c=void 0;return c}n.extend({hasData:function(a){return M.hasData(a)||L.hasData(a)},data:function(a,b,c){return M.access(a,b,c)
+},removeData:function(a,b){M.remove(a,b)},_data:function(a,b,c){return L.access(a,b,c)},_removeData:function(a,b){L.remove(a,b)}}),n.fn.extend({data:function(a,b){var c,d,e,f=this[0],g=f&&f.attributes;if(void 0===a){if(this.length&&(e=M.get(f),1===f.nodeType&&!L.get(f,"hasDataAttrs"))){c=g.length;while(c--)g[c]&&(d=g[c].name,0===d.indexOf("data-")&&(d=n.camelCase(d.slice(5)),P(f,d,e[d])));L.set(f,"hasDataAttrs",!0)}return e}return"object"==typeof a?this.each(function(){M.set(this,a)}):J(this,function(b){var c,d=n.camelCase(a);if(f&&void 0===b){if(c=M.get(f,a),void 0!==c)return c;if(c=M.get(f,d),void 0!==c)return c;if(c=P(f,d,void 0),void 0!==c)return c}else this.each(function(){var c=M.get(this,d);M.set(this,d,b),-1!==a.indexOf("-")&&void 0!==c&&M.set(this,a,b)})},null,b,arguments.length>1,null,!0)},removeData:function(a){return this.each(function(){M.remove(this,a)})}}),n.extend({queue:function(a,b,c){var d;return a?(b=(b||"fx")+"queue",d=L.get(a,b),c&&(!d||n.isArray(c)?d=L.access(a,b,n.makeArray(c)):d.push(c)),d||[]):void 0},dequeue:function(a,b){b=b||"fx";var c=n.queue(a,b),d=c.length,e=c.shift(),f=n._queueHooks(a,b),g=function(){n.dequeue(a,b)};"inprogress"===e&&(e=c.shift(),d--),e&&("fx"===b&&c.unshift("inprogress"),delete f.stop,e.call(a,g,f)),!d&&f&&f.empty.fire()},_queueHooks:function(a,b){var c=b+"queueHooks";return L.get(a,c)||L.access(a,c,{empty:n.Callbacks("once memory").add(function(){L.remove(a,[b+"queue",c])})})}}),n.fn.extend({queue:function(a,b){var c=2;return"string"!=typeof a&&(b=a,a="fx",c--),arguments.length<c?n.queue(this[0],a):void 0===b?this:this.each(function(){var c=n.queue(this,a,b);n._queueHooks(this,a),"fx"===a&&"inprogress"!==c[0]&&n.dequeue(this,a)})},dequeue:function(a){return this.each(function(){n.dequeue(this,a)})},clearQueue:function(a){return this.queue(a||"fx",[])},promise:function(a,b){var c,d=1,e=n.Deferred(),f=this,g=this.length,h=function(){--d||e.resolveWith(f,[f])};"string"!=typeof a&&(b=a,a=void 0),a=a||"fx";while(g--)c=L.get(f[g],a+"queueHooks"),c&&c.empty&&(d++,c.empty.add(h));return h(),e.promise(b)}});var Q=/[+-]?(?:\d*\.|)\d+(?:[eE][+-]?\d+|)/.source,R=["Top","Right","Bottom","Left"],S=function(a,b){return a=b||a,"none"===n.css(a,"display")||!n.contains(a.ownerDocument,a)},T=/^(?:checkbox|radio)$/i;!function(){var a=l.createDocumentFragment(),b=a.appendChild(l.createElement("div")),c=l.createElement("input");c.setAttribute("type","radio"),c.setAttribute("checked","checked"),c.setAttribute("name","t"),b.appendChild(c),k.checkClone=b.cloneNode(!0).cloneNode(!0).lastChild.checked,b.innerHTML="<textarea>x</textarea>",k.noCloneChecked=!!b.cloneNode(!0).lastChild.defaultValue}();var U="undefined";k.focusinBubbles="onfocusin"in a;var V=/^key/,W=/^(?:mouse|pointer|contextmenu)|click/,X=/^(?:focusinfocus|focusoutblur)$/,Y=/^([^.]*)(?:\.(.+)|)$/;function Z(){return!0}function $(){return!1}function _(){try{return l.activeElement}catch(a){}}n.event={global:{},add:function(a,b,c,d,e){var f,g,h,i,j,k,l,m,o,p,q,r=L.get(a);if(r){c.handler&&(f=c,c=f.handler,e=f.selector),c.guid||(c.guid=n.guid++),(i=r.events)||(i=r.events={}),(g=r.handle)||(g=r.handle=function(b){return typeof n!==U&&n.event.triggered!==b.type?n.event.dispatch.apply(a,arguments):void 0}),b=(b||"").match(E)||[""],j=b.length;while(j--)h=Y.exec(b[j])||[],o=q=h[1],p=(h[2]||"").split(".").sort(),o&&(l=n.event.special[o]||{},o=(e?l.delegateType:l.bindType)||o,l=n.event.special[o]||{},k=n.extend({type:o,origType:q,data:d,handler:c,guid:c.guid,selector:e,needsContext:e&&n.expr.match.needsContext.test(e),namespace:p.join(".")},f),(m=i[o])||(m=i[o]=[],m.delegateCount=0,l.setup&&l.setup.call(a,d,p,g)!==!1||a.addEventListener&&a.addEventListener(o,g,!1)),l.add&&(l.add.call(a,k),k.handler.guid||(k.handler.guid=c.guid)),e?m.splice(m.delegateCount++,0,k):m.push(k),n.event.global[o]=!0)}},remove:function(a,b,c,d,e){var f,g,h,i,j,k,l,m,o,p,q,r=L.hasData(a)&&L.get(a);if(r&&(i=r.events)){b=(b||"").match(E)||[""],j=b.length;while(j--)if(h=Y.exec(b[j])||[],o=q=h[1],p=(h[2]||"").split(".").sort(),o){l=n.event.special[o]||{},o=(d?l.delegateType:l.bindType)||o,m=i[o]||[],h=h[2]&&new RegExp("(^|\\.)"+p.join("\\.(?:.*\\.|)")+"(\\.|$)"),g=f=m.length;while(f--)k=m[f],!e&&q!==k.origType||c&&c.guid!==k.guid||h&&!h.test(k.namespace)||d&&d!==k.selector&&("**"!==d||!k.selector)||(m.splice(f,1),k.selector&&m.delegateCount--,l.remove&&l.remove.call(a,k));g&&!m.length&&(l.teardown&&l.teardown.call(a,p,r.handle)!==!1||n.removeEvent(a,o,r.handle),delete i[o])}else for(o in i)n.event.remove(a,o+b[j],c,d,!0);n.isEmptyObject(i)&&(delete r.handle,L.remove(a,"events"))}},trigger:function(b,c,d,e){var f,g,h,i,k,m,o,p=[d||l],q=j.call(b,"type")?b.type:b,r=j.call(b,"namespace")?b.namespace.split("."):[];if(g=h=d=d||l,3!==d.nodeType&&8!==d.nodeType&&!X.test(q+n.event.triggered)&&(q.indexOf(".")>=0&&(r=q.split("."),q=r.shift(),r.sort()),k=q.indexOf(":")<0&&"on"+q,b=b[n.expando]?b:new n.Event(q,"object"==typeof b&&b),b.isTrigger=e?2:3,b.namespace=r.join("."),b.namespace_re=b.namespace?new RegExp("(^|\\.)"+r.join("\\.(?:.*\\.|)")+"(\\.|$)"):null,b.result=void 0,b.target||(b.target=d),c=null==c?[b]:n.makeArray(c,[b]),o=n.event.special[q]||{},e||!o.trigger||o.trigger.apply(d,c)!==!1)){if(!e&&!o.noBubble&&!n.isWindow(d)){for(i=o.delegateType||q,X.test(i+q)||(g=g.parentNode);g;g=g.parentNode)p.push(g),h=g;h===(d.ownerDocument||l)&&p.push(h.defaultView||h.parentWindow||a)}f=0;while((g=p[f++])&&!b.isPropagationStopped())b.type=f>1?i:o.bindType||q,m=(L.get(g,"events")||{})[b.type]&&L.get(g,"handle"),m&&m.apply(g,c),m=k&&g[k],m&&m.apply&&n.acceptData(g)&&(b.result=m.apply(g,c),b.result===!1&&b.preventDefault());return b.type=q,e||b.isDefaultPrevented()||o._default&&o._default.apply(p.pop(),c)!==!1||!n.acceptData(d)||k&&n.isFunction(d[q])&&!n.isWindow(d)&&(h=d[k],h&&(d[k]=null),n.event.triggered=q,d[q](),n.event.triggered=void 0,h&&(d[k]=h)),b.result}},dispatch:function(a){a=n.event.fix(a);var b,c,e,f,g,h=[],i=d.call(arguments),j=(L.get(this,"events")||{})[a.type]||[],k=n.event.special[a.type]||{};if(i[0]=a,a.delegateTarget=this,!k.preDispatch||k.preDispatch.call(this,a)!==!1){h=n.event.handlers.call(this,a,j),b=0;while((f=h[b++])&&!a.isPropagationStopped()){a.currentTarget=f.elem,c=0;while((g=f.handlers[c++])&&!a.isImmediatePropagationStopped())(!a.namespace_re||a.namespace_re.test(g.namespace))&&(a.handleObj=g,a.data=g.data,e=((n.event.special[g.origType]||{}).handle||g.handler).apply(f.elem,i),void 0!==e&&(a.result=e)===!1&&(a.preventDefault(),a.stopPropagation()))}return k.postDispatch&&k.postDispatch.call(this,a),a.result}},handlers:function(a,b){var c,d,e,f,g=[],h=b.delegateCount,i=a.target;if(h&&i.nodeType&&(!a.button||"click"!==a.type))for(;i!==this;i=i.parentNode||this)if(i.disabled!==!0||"click"!==a.type){for(d=[],c=0;h>c;c++)f=b[c],e=f.selector+" ",void 0===d[e]&&(d[e]=f.needsContext?n(e,this).index(i)>=0:n.find(e,this,null,[i]).length),d[e]&&d.push(f);d.length&&g.push({elem:i,handlers:d})}return h<b.length&&g.push({elem:this,handlers:b.slice(h)}),g},props:"altKey bubbles cancelable ctrlKey currentTarget eventPhase metaKey relatedTarget shiftKey target timeStamp view which".split(" "),fixHooks:{},keyHooks:{props:"char charCode key keyCode".split(" "),filter:function(a,b){return null==a.which&&(a.which=null!=b.charCode?b.charCode:b.keyCode),a}},mouseHooks:{props:"button buttons clientX clientY offsetX offsetY pageX pageY screenX screenY toElement".split(" "),filter:function(a,b){var c,d,e,f=b.button;return null==a.pageX&&null!=b.clientX&&(c=a.target.ownerDocument||l,d=c.documentElement,e=c.body,a.pageX=b.clientX+(d&&d.scrollLeft||e&&e.scrollLeft||0)-(d&&d.clientLeft||e&&e.clientLeft||0),a.pageY=b.clientY+(d&&d.scrollTop||e&&e.scrollTop||0)-(d&&d.clientTop||e&&e.clientTop||0)),a.which||void 0===f||(a.which=1&f?1:2&f?3:4&f?2:0),a}},fix:function(a){if(a[n.expando])return a;var b,c,d,e=a.type,f=a,g=this.fixHooks[e];g||(this.fixHooks[e]=g=W.test(e)?this.mouseHooks:V.test(e)?this.keyHooks:{}),d=g.props?this.props.concat(g.props):this.props,a=new n.Event(f),b=d.length;while(b--)c=d[b],a[c]=f[c];return a.target||(a.target=l),3===a.target.nodeType&&(a.target=a.target.parentNode),g.filter?g.filter(a,f):a},special:{load:{noBubble:!0},focus:{trigger:function(){return this!==_()&&this.focus?(this.focus(),!1):void 0},delegateType:"focusin"},blur:{trigger:function(){return this===_()&&this.blur?(this.blur(),!1):void 0},delegateType:"focusout"},click:{trigger:function(){return"checkbox"===this.type&&this.click&&n.nodeName(this,"input")?(this.click(),!1):void 0},_default:function(a){return n.nodeName(a.target,"a")}},beforeunload:{postDispatch:function(a){void 0!==a.result&&a.originalEvent&&(a.originalEvent.returnValue=a.result)}}},simulate:function(a,b,c,d){var e=n.extend(new n.Event,c,{type:a,isSimulated:!0,originalEvent:{}});d?n.event.trigger(e,null,b):n.event.dispatch.call(b,e),e.isDefaultPrevented()&&c.preventDefault()}},n.removeEvent=function(a,b,c){a.removeEventListener&&a.removeEventListener(b,c,!1)},n.Event=function(a,b){return this instanceof n.Event?(a&&a.type?(this.originalEvent=a,this.type=a.type,this.isDefaultPrevented=a.defaultPrevented||void 0===a.defaultPrevented&&a.returnValue===!1?Z:$):this.type=a,b&&n.extend(this,b),this.timeStamp=a&&a.timeStamp||n.now(),void(this[n.expando]=!0)):new n.Event(a,b)},n.Event.prototype={isDefaultPrevented:$,isPropagationStopped:$,isImmediatePropagationStopped:$,preventDefault:function(){var a=this.originalEvent;this.isDefaultPrevented=Z,a&&a.preventDefault&&a.preventDefault()},stopPropagation:function(){var a=this.originalEvent;this.isPropagationStopped=Z,a&&a.stopPropagation&&a.stopPropagation()},stopImmediatePropagation:function(){var a=this.originalEvent;this.isImmediatePropagationStopped=Z,a&&a.stopImmediatePropagation&&a.stopImmediatePropagation(),this.stopPropagation()}},n.each({mouseenter:"mouseover",mouseleave:"mouseout",pointerenter:"pointerover",pointerleave:"pointerout"},function(a,b){n.event.special[a]={delegateType:b,bindType:b,handle:function(a){var c,d=this,e=a.relatedTarget,f=a.handleObj;return(!e||e!==d&&!n.contains(d,e))&&(a.type=f.origType,c=f.handler.apply(this,arguments),a.type=b),c}}}),k.focusinBubbles||n.each({focus:"focusin",blur:"focusout"},function(a,b){var c=function(a){n.event.simulate(b,a.target,n.event.fix(a),!0)};n.event.special[b]={setup:function(){var d=this.ownerDocument||this,e=L.access(d,b);e||d.addEventListener(a,c,!0),L.access(d,b,(e||0)+1)},teardown:function(){var d=this.ownerDocument||this,e=L.access(d,b)-1;e?L.access(d,b,e):(d.removeEventListener(a,c,!0),L.remove(d,b))}}}),n.fn.extend({on:function(a,b,c,d,e){var f,g;if("object"==typeof a){"string"!=typeof b&&(c=c||b,b=void 0);for(g in a)this.on(g,b,c,a[g],e);return this}if(null==c&&null==d?(d=b,c=b=void 0):null==d&&("string"==typeof b?(d=c,c=void 0):(d=c,c=b,b=void 0)),d===!1)d=$;else if(!d)return this;return 1===e&&(f=d,d=function(a){return n().off(a),f.apply(this,arguments)},d.guid=f.guid||(f.guid=n.guid++)),this.each(function(){n.event.add(this,a,d,c,b)})},one:function(a,b,c,d){return this.on(a,b,c,d,1)},off:function(a,b,c){var d,e;if(a&&a.preventDefault&&a.handleObj)return d=a.handleObj,n(a.delegateTarget).off(d.namespace?d.origType+"."+d.namespace:d.origType,d.selector,d.handler),this;if("object"==typeof a){for(e in a)this.off(e,b,a[e]);return this}return(b===!1||"function"==typeof b)&&(c=b,b=void 0),c===!1&&(c=$),this.each(function(){n.event.remove(this,a,c,b)})},trigger:function(a,b){return this.each(function(){n.event.trigger(a,b,this)})},triggerHandler:function(a,b){var c=this[0];return c?n.event.trigger(a,b,c,!0):void 0}});var ab=/<(?!area|br|col|embed|hr|img|input|link|meta|param)(([\w:]+)[^>]*)\/>/gi,bb=/<([\w:]+)/,cb=/<|&#?\w+;/,db=/<(?:script|style|link)/i,eb=/checked\s*(?:[^=]|=\s*.checked.)/i,fb=/^$|\/(?:java|ecma)script/i,gb=/^true\/(.*)/,hb=/^\s*<!(?:\[CDATA\[|--)|(?:\]\]|--)>\s*$/g,ib={option:[1,"<select multiple='multiple'>","</select>"],thead:[1,"<table>","</table>"],col:[2,"<table><colgroup>","</colgroup></table>"],tr:[2,"<table><tbody>","</tbody></table>"],td:[3,"<table><tbody><tr>","</tr></tbody></table>"],_default:[0,"",""]};ib.optgroup=ib.option,ib.tbody=ib.tfoot=ib.colgroup=ib.caption=ib.thead,ib.th=ib.td;function jb(a,b){return n.nodeName(a,"table")&&n.nodeName(11!==b.nodeType?b:b.firstChild,"tr")?a.getElementsByTagName("tbody")[0]||a.appendChild(a.ownerDocument.createElement("tbody")):a}function kb(a){return a.type=(null!==a.getAttribute("type"))+"/"+a.type,a}function lb(a){var b=gb.exec(a.type);return b?a.type=b[1]:a.removeAttribute("type"),a}function mb(a,b){for(var c=0,d=a.length;d>c;c++)L.set(a[c],"globalEval",!b||L.get(b[c],"globalEval"))}function nb(a,b){var c,d,e,f,g,h,i,j;if(1===b.nodeType){if(L.hasData(a)&&(f=L.access(a),g=L.set(b,f),j=f.events)){delete g.handle,g.events={};for(e in j)for(c=0,d=j[e].length;d>c;c++)n.event.add(b,e,j[e][c])}M.hasData(a)&&(h=M.access(a),i=n.extend({},h),M.set(b,i))}}function ob(a,b){var c=a.getElementsByTagName?a.getElementsByTagName(b||"*"):a.querySelectorAll?a.querySelectorAll(b||"*"):[];return void 0===b||b&&n.nodeName(a,b)?n.merge([a],c):c}function pb(a,b){var c=b.nodeName.toLowerCase();"input"===c&&T.test(a.type)?b.checked=a.checked:("input"===c||"textarea"===c)&&(b.defaultValue=a.defaultValue)}n.extend({clone:function(a,b,c){var d,e,f,g,h=a.cloneNode(!0),i=n.contains(a.ownerDocument,a);if(!(k.noCloneChecked||1!==a.nodeType&&11!==a.nodeType||n.isXMLDoc(a)))for(g=ob(h),f=ob(a),d=0,e=f.length;e>d;d++)pb(f[d],g[d]);if(b)if(c)for(f=f||ob(a),g=g||ob(h),d=0,e=f.length;e>d;d++)nb(f[d],g[d]);else nb(a,h);return g=ob(h,"script"),g.length>0&&mb(g,!i&&ob(a,"script")),h},buildFragment:function(a,b,c,d){for(var e,f,g,h,i,j,k=b.createDocumentFragment(),l=[],m=0,o=a.length;o>m;m++)if(e=a[m],e||0===e)if("object"===n.type(e))n.merge(l,e.nodeType?[e]:e);else if(cb.test(e)){f=f||k.appendChild(b.createElement("div")),g=(bb.exec(e)||["",""])[1].toLowerCase(),h=ib[g]||ib._default,f.innerHTML=h[1]+e.replace(ab,"<$1></$2>")+h[2],j=h[0];while(j--)f=f.lastChild;n.merge(l,f.childNodes),f=k.firstChild,f.textContent=""}else l.push(b.createTextNode(e));k.textContent="",m=0;while(e=l[m++])if((!d||-1===n.inArray(e,d))&&(i=n.contains(e.ownerDocument,e),f=ob(k.appendChild(e),"script"),i&&mb(f),c)){j=0;while(e=f[j++])fb.test(e.type||"")&&c.push(e)}return k},cleanData:function(a){for(var b,c,d,e,f=n.event.special,g=0;void 0!==(c=a[g]);g++){if(n.acceptData(c)&&(e=c[L.expando],e&&(b=L.cache[e]))){if(b.events)for(d in b.events)f[d]?n.event.remove(c,d):n.removeEvent(c,d,b.handle);L.cache[e]&&delete L.cache[e]}delete M.cache[c[M.expando]]}}}),n.fn.extend({text:function(a){return J(this,function(a){return void 0===a?n.text(this):this.empty().each(function(){(1===this.nodeType||11===this.nodeType||9===this.nodeType)&&(this.textContent=a)})},null,a,arguments.length)},append:function(){return this.domManip(arguments,function(a){if(1===this.nodeType||11===this.nodeType||9===this.nodeType){var b=jb(this,a);b.appendChild(a)}})},prepend:function(){return this.domManip(arguments,function(a){if(1===this.nodeType||11===this.nodeType||9===this.nodeType){var b=jb(this,a);b.insertBefore(a,b.firstChild)}})},before:function(){return this.domManip(arguments,function(a){this.parentNode&&this.parentNode.insertBefore(a,this)})},after:function(){return this.domManip(arguments,function(a){this.parentNode&&this.parentNode.insertBefore(a,this.nextSibling)})},remove:function(a,b){for(var c,d=a?n.filter(a,this):this,e=0;null!=(c=d[e]);e++)b||1!==c.nodeType||n.cleanData(ob(c)),c.parentNode&&(b&&n.contains(c.ownerDocument,c)&&mb(ob(c,"script")),c.parentNode.removeChild(c));return this},empty:function(){for(var a,b=0;null!=(a=this[b]);b++)1===a.nodeType&&(n.cleanData(ob(a,!1)),a.textContent="");return this},clone:function(a,b){return a=null==a?!1:a,b=null==b?a:b,this.map(function(){return n.clone(this,a,b)})},html:function(a){return J(this,function(a){var b=this[0]||{},c=0,d=this.length;if(void 0===a&&1===b.nodeType)return b.innerHTML;if("string"==typeof a&&!db.test(a)&&!ib[(bb.exec(a)||["",""])[1].toLowerCase()]){a=a.replace(ab,"<$1></$2>");try{for(;d>c;c++)b=this[c]||{},1===b.nodeType&&(n.cleanData(ob(b,!1)),b.innerHTML=a);b=0}catch(e){}}b&&this.empty().append(a)},null,a,arguments.length)},replaceWith:function(){var a=arguments[0];return this.domManip(arguments,function(b){a=this.parentNode,n.cleanData(ob(this)),a&&a.replaceChild(b,this)}),a&&(a.length||a.nodeType)?this:this.remove()},detach:function(a){return this.remove(a,!0)},domManip:function(a,b){a=e.apply([],a);var c,d,f,g,h,i,j=0,l=this.length,m=this,o=l-1,p=a[0],q=n.isFunction(p);if(q||l>1&&"string"==typeof p&&!k.checkClone&&eb.test(p))return this.each(function(c){var d=m.eq(c);q&&(a[0]=p.call(this,c,d.html())),d.domManip(a,b)});if(l&&(c=n.buildFragment(a,this[0].ownerDocument,!1,this),d=c.firstChild,1===c.childNodes.length&&(c=d),d)){for(f=n.map(ob(c,"script"),kb),g=f.length;l>j;j++)h=c,j!==o&&(h=n.clone(h,!0,!0),g&&n.merge(f,ob(h,"script"))),b.call(this[j],h,j);if(g)for(i=f[f.length-1].ownerDocument,n.map(f,lb),j=0;g>j;j++)h=f[j],fb.test(h.type||"")&&!L.access(h,"globalEval")&&n.contains(i,h)&&(h.src?n._evalUrl&&n._evalUrl(h.src):n.globalEval(h.textContent.replace(hb,"")))}return this}}),n.each({appendTo:"append",prependTo:"prepend",insertBefore:"before",insertAfter:"after",replaceAll:"replaceWith"},function(a,b){n.fn[a]=function(a){for(var c,d=[],e=n(a),g=e.length-1,h=0;g>=h;h++)c=h===g?this:this.clone(!0),n(e[h])[b](c),f.apply(d,c.get());return this.pushStack(d)}});var qb,rb={};function sb(b,c){var d,e=n(c.createElement(b)).appendTo(c.body),f=a.getDefaultComputedStyle&&(d=a.getDefaultComputedStyle(e[0]))?d.display:n.css(e[0],"display");return e.detach(),f}function tb(a){var b=l,c=rb[a];return c||(c=sb(a,b),"none"!==c&&c||(qb=(qb||n("<iframe frameborder='0' width='0' height='0'/>")).appendTo(b.documentElement),b=qb[0].contentDocument,b.write(),b.close(),c=sb(a,b),qb.detach()),rb[a]=c),c}var ub=/^margin/,vb=new RegExp("^("+Q+")(?!px)[a-z%]+$","i"),wb=function(b){return b.ownerDocument.defaultView.opener?b.ownerDocument.defaultView.getComputedStyle(b,null):a.getComputedStyle(b,null)};function xb(a,b,c){var d,e,f,g,h=a.style;return c=c||wb(a),c&&(g=c.getPropertyValue(b)||c[b]),c&&(""!==g||n.contains(a.ownerDocument,a)||(g=n.style(a,b)),vb.test(g)&&ub.test(b)&&(d=h.width,e=h.minWidth,f=h.maxWidth,h.minWidth=h.maxWidth=h.width=g,g=c.width,h.width=d,h.minWidth=e,h.maxWidth=f)),void 0!==g?g+"":g}function yb(a,b){return{get:function(){return a()?void delete this.get:(this.get=b).apply(this,arguments)}}}!function(){var b,c,d=l.documentElement,e=l.createElement("div"),f=l.createElement("div");if(f.style){f.style.backgroundClip="content-box",f.cloneNode(!0).style.backgroundClip="",k.clearCloneStyle="content-box"===f.style.backgroundClip,e.style.cssText="border:0;width:0;height:0;top:0;left:-9999px;margin-top:1px;position:absolute",e.appendChild(f);function g(){f.style.cssText="-webkit-box-sizing:border-box;-moz-box-sizing:border-box;box-sizing:border-box;display:block;margin-top:1%;top:1%;border:1px;padding:1px;width:4px;position:absolute",f.innerHTML="",d.appendChild(e);var g=a.getComputedStyle(f,null);b="1%"!==g.top,c="4px"===g.width,d.removeChild(e)}a.getComputedStyle&&n.extend(k,{pixelPosition:function(){return g(),b},boxSizingReliable:function(){return null==c&&g(),c},reliableMarginRight:function(){var b,c=f.appendChild(l.createElement("div"));return c.style.cssText=f.style.cssText="-webkit-box-sizing:content-box;-moz-box-sizing:content-box;box-sizing:content-box;display:block;margin:0;border:0;padding:0",c.style.marginRight=c.style.width="0",f.style.width="1px",d.appendChild(e),b=!parseFloat(a.getComputedStyle(c,null).marginRight),d.removeChild(e),f.removeChild(c),b}})}}(),n.swap=function(a,b,c,d){var e,f,g={};for(f in b)g[f]=a.style[f],a.style[f]=b[f];e=c.apply(a,d||[]);for(f in b)a.style[f]=g[f];return e};var zb=/^(none|table(?!-c[ea]).+)/,Ab=new RegExp("^("+Q+")(.*)$","i"),Bb=new RegExp("^([+-])=("+Q+")","i"),Cb={position:"absolute",visibility:"hidden",display:"block"},Db={letterSpacing:"0",fontWeight:"400"},Eb=["Webkit","O","Moz","ms"];function Fb(a,b){if(b in a)return b;var c=b[0].toUpperCase()+b.slice(1),d=b,e=Eb.length;while(e--)if(b=Eb[e]+c,b in a)return b;return d}function Gb(a,b,c){var d=Ab.exec(b);return d?Math.max(0,d[1]-(c||0))+(d[2]||"px"):b}function Hb(a,b,c,d,e){for(var f=c===(d?"border":"content")?4:"width"===b?1:0,g=0;4>f;f+=2)"margin"===c&&(g+=n.css(a,c+R[f],!0,e)),d?("content"===c&&(g-=n.css(a,"padding"+R[f],!0,e)),"margin"!==c&&(g-=n.css(a,"border"+R[f]+"Width",!0,e))):(g+=n.css(a,"padding"+R[f],!0,e),"padding"!==c&&(g+=n.css(a,"border"+R[f]+"Width",!0,e)));return g}function Ib(a,b,c){var d=!0,e="width"===b?a.offsetWidth:a.offsetHeight,f=wb(a),g="border-box"===n.css(a,"boxSizing",!1,f);if(0>=e||null==e){if(e=xb(a,b,f),(0>e||null==e)&&(e=a.style[b]),vb.test(e))return e;d=g&&(k.boxSizingReliable()||e===a.style[b]),e=parseFloat(e)||0}return e+Hb(a,b,c||(g?"border":"content"),d,f)+"px"}function Jb(a,b){for(var c,d,e,f=[],g=0,h=a.length;h>g;g++)d=a[g],d.style&&(f[g]=L.get(d,"olddisplay"),c=d.style.display,b?(f[g]||"none"!==c||(d.style.display=""),""===d.style.display&&S(d)&&(f[g]=L.access(d,"olddisplay",tb(d.nodeName)))):(e=S(d),"none"===c&&e||L.set(d,"olddisplay",e?c:n.css(d,"display"))));for(g=0;h>g;g++)d=a[g],d.style&&(b&&"none"!==d.style.display&&""!==d.style.display||(d.style.display=b?f[g]||"":"none"));return a}n.extend({cssHooks:{opacity:{get:function(a,b){if(b){var c=xb(a,"opacity");return""===c?"1":c}}}},cssNumber:{columnCount:!0,fillOpacity:!0,flexGrow:!0,flexShrink:!0,fontWeight:!0,lineHeight:!0,opacity:!0,order:!0,orphans:!0,widows:!0,zIndex:!0,zoom:!0},cssProps:{"float":"cssFloat"},style:function(a,b,c,d){if(a&&3!==a.nodeType&&8!==a.nodeType&&a.style){var e,f,g,h=n.camelCase(b),i=a.style;return b=n.cssProps[h]||(n.cssProps[h]=Fb(i,h)),g=n.cssHooks[b]||n.cssHooks[h],void 0===c?g&&"get"in g&&void 0!==(e=g.get(a,!1,d))?e:i[b]:(f=typeof c,"string"===f&&(e=Bb.exec(c))&&(c=(e[1]+1)*e[2]+parseFloat(n.css(a,b)),f="number"),null!=c&&c===c&&("number"!==f||n.cssNumber[h]||(c+="px"),k.clearCloneStyle||""!==c||0!==b.indexOf("background")||(i[b]="inherit"),g&&"set"in g&&void 0===(c=g.set(a,c,d))||(i[b]=c)),void 0)}},css:function(a,b,c,d){var e,f,g,h=n.camelCase(b);return b=n.cssProps[h]||(n.cssProps[h]=Fb(a.style,h)),g=n.cssHooks[b]||n.cssHooks[h],g&&"get"in g&&(e=g.get(a,!0,c)),void 0===e&&(e=xb(a,b,d)),"normal"===e&&b in Db&&(e=Db[b]),""===c||c?(f=parseFloat(e),c===!0||n.isNumeric(f)?f||0:e):e}}),n.each(["height","width"],function(a,b){n.cssHooks[b]={get:function(a,c,d){return c?zb.test(n.css(a,"display"))&&0===a.offsetWidth?n.swap(a,Cb,function(){return Ib(a,b,d)}):Ib(a,b,d):void 0},set:function(a,c,d){var e=d&&wb(a);return Gb(a,c,d?Hb(a,b,d,"border-box"===n.css(a,"boxSizing",!1,e),e):0)}}}),n.cssHooks.marginRight=yb(k.reliableMarginRight,function(a,b){return b?n.swap(a,{display:"inline-block"},xb,[a,"marginRight"]):void 0}),n.each({margin:"",padding:"",border:"Width"},function(a,b){n.cssHooks[a+b]={expand:function(c){for(var d=0,e={},f="string"==typeof c?c.split(" "):[c];4>d;d++)e[a+R[d]+b]=f[d]||f[d-2]||f[0];return e}},ub.test(a)||(n.cssHooks[a+b].set=Gb)}),n.fn.extend({css:function(a,b){return J(this,function(a,b,c){var d,e,f={},g=0;if(n.isArray(b)){for(d=wb(a),e=b.length;e>g;g++)f[b[g]]=n.css(a,b[g],!1,d);return f}return void 0!==c?n.style(a,b,c):n.css(a,b)},a,b,arguments.length>1)},show:function(){return Jb(this,!0)},hide:function(){return Jb(this)},toggle:function(a){return"boolean"==typeof a?a?this.show():this.hide():this.each(function(){S(this)?n(this).show():n(this).hide()})}});function Kb(a,b,c,d,e){return new Kb.prototype.init(a,b,c,d,e)}n.Tween=Kb,Kb.prototype={constructor:Kb,init:function(a,b,c,d,e,f){this.elem=a,this.prop=c,this.easing=e||"swing",this.options=b,this.start=this.now=this.cur(),this.end=d,this.unit=f||(n.cssNumber[c]?"":"px")},cur:function(){var a=Kb.propHooks[this.prop];return a&&a.get?a.get(this):Kb.propHooks._default.get(this)},run:function(a){var b,c=Kb.propHooks[this.prop];return this.pos=b=this.options.duration?n.easing[this.easing](a,this.options.duration*a,0,1,this.options.duration):a,this.now=(this.end-this.start)*b+this.start,this.options.step&&this.options.step.call(this.elem,this.now,this),c&&c.set?c.set(this):Kb.propHooks._default.set(this),this}},Kb.prototype.init.prototype=Kb.prototype,Kb.propHooks={_default:{get:function(a){var b;return null==a.elem[a.prop]||a.elem.style&&null!=a.elem.style[a.prop]?(b=n.css(a.elem,a.prop,""),b&&"auto"!==b?b:0):a.elem[a.prop]},set:function(a){n.fx.step[a.prop]?n.fx.step[a.prop](a):a.elem.style&&(null!=a.elem.style[n.cssProps[a.prop]]||n.cssHooks[a.prop])?n.style(a.elem,a.prop,a.now+a.unit):a.elem[a.prop]=a.now}}},Kb.propHooks.scrollTop=Kb.propHooks.scrollLeft={set:function(a){a.elem.nodeType&&a.elem.parentNode&&(a.elem[a.prop]=a.now)}},n.easing={linear:function(a){return a},swing:function(a){return.5-Math.cos(a*Math.PI)/2}},n.fx=Kb.prototype.init,n.fx.step={};var Lb,Mb,Nb=/^(?:toggle|show|hide)$/,Ob=new RegExp("^(?:([+-])=|)("+Q+")([a-z%]*)$","i"),Pb=/queueHooks$/,Qb=[Vb],Rb={"*":[function(a,b){var c=this.createTween(a,b),d=c.cur(),e=Ob.exec(b),f=e&&e[3]||(n.cssNumber[a]?"":"px"),g=(n.cssNumber[a]||"px"!==f&&+d)&&Ob.exec(n.css(c.elem,a)),h=1,i=20;if(g&&g[3]!==f){f=f||g[3],e=e||[],g=+d||1;do h=h||".5",g/=h,n.style(c.elem,a,g+f);while(h!==(h=c.cur()/d)&&1!==h&&--i)}return e&&(g=c.start=+g||+d||0,c.unit=f,c.end=e[1]?g+(e[1]+1)*e[2]:+e[2]),c}]};function Sb(){return setTimeout(function(){Lb=void 0}),Lb=n.now()}function Tb(a,b){var c,d=0,e={height:a};for(b=b?1:0;4>d;d+=2-b)c=R[d],e["margin"+c]=e["padding"+c]=a;return b&&(e.opacity=e.width=a),e}function Ub(a,b,c){for(var d,e=(Rb[b]||[]).concat(Rb["*"]),f=0,g=e.length;g>f;f++)if(d=e[f].call(c,b,a))return d}function Vb(a,b,c){var d,e,f,g,h,i,j,k,l=this,m={},o=a.style,p=a.nodeType&&S(a),q=L.get(a,"fxshow");c.queue||(h=n._queueHooks(a,"fx"),null==h.unqueued&&(h.unqueued=0,i=h.empty.fire,h.empty.fire=function(){h.unqueued||i()}),h.unqueued++,l.always(function(){l.always(function(){h.unqueued--,n.queue(a,"fx").length||h.empty.fire()})})),1===a.nodeType&&("height"in b||"width"in b)&&(c.overflow=[o.overflow,o.overflowX,o.overflowY],j=n.css(a,"display"),k="none"===j?L.get(a,"olddisplay")||tb(a.nodeName):j,"inline"===k&&"none"===n.css(a,"float")&&(o.display="inline-block")),c.overflow&&(o.overflow="hidden",l.always(function(){o.overflow=c.overflow[0],o.overflowX=c.overflow[1],o.overflowY=c.overflow[2]}));for(d in b)if(e=b[d],Nb.exec(e)){if(delete b[d],f=f||"toggle"===e,e===(p?"hide":"show")){if("show"!==e||!q||void 0===q[d])continue;p=!0}m[d]=q&&q[d]||n.style(a,d)}else j=void 0;if(n.isEmptyObject(m))"inline"===("none"===j?tb(a.nodeName):j)&&(o.display=j);else{q?"hidden"in q&&(p=q.hidden):q=L.access(a,"fxshow",{}),f&&(q.hidden=!p),p?n(a).show():l.done(function(){n(a).hide()}),l.done(function(){var b;L.remove(a,"fxshow");for(b in m)n.style(a,b,m[b])});for(d in m)g=Ub(p?q[d]:0,d,l),d in q||(q[d]=g.start,p&&(g.end=g.start,g.start="width"===d||"height"===d?1:0))}}function Wb(a,b){var c,d,e,f,g;for(c in a)if(d=n.camelCase(c),e=b[d],f=a[c],n.isArray(f)&&(e=f[1],f=a[c]=f[0]),c!==d&&(a[d]=f,delete a[c]),g=n.cssHooks[d],g&&"expand"in g){f=g.expand(f),delete a[d];for(c in f)c in a||(a[c]=f[c],b[c]=e)}else b[d]=e}function Xb(a,b,c){var d,e,f=0,g=Qb.length,h=n.Deferred().always(function(){delete i.elem}),i=function(){if(e)return!1;for(var b=Lb||Sb(),c=Math.max(0,j.startTime+j.duration-b),d=c/j.duration||0,f=1-d,g=0,i=j.tweens.length;i>g;g++)j.tweens[g].run(f);return h.notifyWith(a,[j,f,c]),1>f&&i?c:(h.resolveWith(a,[j]),!1)},j=h.promise({elem:a,props:n.extend({},b),opts:n.extend(!0,{specialEasing:{}},c),originalProperties:b,originalOptions:c,startTime:Lb||Sb(),duration:c.duration,tweens:[],createTween:function(b,c){var d=n.Tween(a,j.opts,b,c,j.opts.specialEasing[b]||j.opts.easing);return j.tweens.push(d),d},stop:function(b){var c=0,d=b?j.tweens.length:0;if(e)return this;for(e=!0;d>c;c++)j.tweens[c].run(1);return b?h.resolveWith(a,[j,b]):h.rejectWith(a,[j,b]),this}}),k=j.props;for(Wb(k,j.opts.specialEasing);g>f;f++)if(d=Qb[f].call(j,a,k,j.opts))return d;return n.map(k,Ub,j),n.isFunction(j.opts.start)&&j.opts.start.call(a,j),n.fx.timer(n.extend(i,{elem:a,anim:j,queue:j.opts.queue})),j.progress(j.opts.progress).done(j.opts.done,j.opts.complete).fail(j.opts.fail).always(j.opts.always)}n.Animation=n.extend(Xb,{tweener:function(a,b){n.isFunction(a)?(b=a,a=["*"]):a=a.split(" ");for(var c,d=0,e=a.length;e>d;d++)c=a[d],Rb[c]=Rb[c]||[],Rb[c].unshift(b)},prefilter:function(a,b){b?Qb.unshift(a):Qb.push(a)}}),n.speed=function(a,b,c){var d=a&&"object"==typeof a?n.extend({},a):{complete:c||!c&&b||n.isFunction(a)&&a,duration:a,easing:c&&b||b&&!n.isFunction(b)&&b};return d.duration=n.fx.off?0:"number"==typeof d.duration?d.duration:d.duration in n.fx.speeds?n.fx.speeds[d.duration]:n.fx.speeds._default,(null==d.queue||d.queue===!0)&&(d.queue="fx"),d.old=d.complete,d.complete=function(){n.isFunction(d.old)&&d.old.call(this),d.queue&&n.dequeue(this,d.queue)},d},n.fn.extend({fadeTo:function(a,b,c,d){return this.filter(S).css("opacity",0).show().end().animate({opacity:b},a,c,d)},animate:function(a,b,c,d){var e=n.isEmptyObject(a),f=n.speed(b,c,d),g=function(){var b=Xb(this,n.extend({},a),f);(e||L.get(this,"finish"))&&b.stop(!0)};return g.finish=g,e||f.queue===!1?this.each(g):this.queue(f.queue,g)},stop:function(a,b,c){var d=function(a){var b=a.stop;delete a.stop,b(c)};return"string"!=typeof a&&(c=b,b=a,a=void 0),b&&a!==!1&&this.queue(a||"fx",[]),this.each(function(){var b=!0,e=null!=a&&a+"queueHooks",f=n.timers,g=L.get(this);if(e)g[e]&&g[e].stop&&d(g[e]);else for(e in g)g[e]&&g[e].stop&&Pb.test(e)&&d(g[e]);for(e=f.length;e--;)f[e].elem!==this||null!=a&&f[e].queue!==a||(f[e].anim.stop(c),b=!1,f.splice(e,1));(b||!c)&&n.dequeue(this,a)})},finish:function(a){return a!==!1&&(a=a||"fx"),this.each(function(){var b,c=L.get(this),d=c[a+"queue"],e=c[a+"queueHooks"],f=n.timers,g=d?d.length:0;for(c.finish=!0,n.queue(this,a,[]),e&&e.stop&&e.stop.call(this,!0),b=f.length;b--;)f[b].elem===this&&f[b].queue===a&&(f[b].anim.stop(!0),f.splice(b,1));for(b=0;g>b;b++)d[b]&&d[b].finish&&d[b].finish.call(this);delete c.finish})}}),n.each(["toggle","show","hide"],function(a,b){var c=n.fn[b];n.fn[b]=function(a,d,e){return null==a||"boolean"==typeof a?c.apply(this,arguments):this.animate(Tb(b,!0),a,d,e)}}),n.each({slideDown:Tb("show"),slideUp:Tb("hide"),slideToggle:Tb("toggle"),fadeIn:{opacity:"show"},fadeOut:{opacity:"hide"},fadeToggle:{opacity:"toggle"}},function(a,b){n.fn[a]=function(a,c,d){return this.animate(b,a,c,d)}}),n.timers=[],n.fx.tick=function(){var a,b=0,c=n.timers;for(Lb=n.now();b<c.length;b++)a=c[b],a()||c[b]!==a||c.splice(b--,1);c.length||n.fx.stop(),Lb=void 0},n.fx.timer=function(a){n.timers.push(a),a()?n.fx.start():n.timers.pop()},n.fx.interval=13,n.fx.start=function(){Mb||(Mb=setInterval(n.fx.tick,n.fx.interval))},n.fx.stop=function(){clearInterval(Mb),Mb=null},n.fx.speeds={slow:600,fast:200,_default:400},n.fn.delay=function(a,b){return a=n.fx?n.fx.speeds[a]||a:a,b=b||"fx",this.queue(b,function(b,c){var d=setTimeout(b,a);c.stop=function(){clearTimeout(d)}})},function(){var a=l.createElement("input"),b=l.createElement("select"),c=b.appendChild(l.createElement("option"));a.type="checkbox",k.checkOn=""!==a.value,k.optSelected=c.selected,b.disabled=!0,k.optDisabled=!c.disabled,a=l.createElement("input"),a.value="t",a.type="radio",k.radioValue="t"===a.value}();var Yb,Zb,$b=n.expr.attrHandle;n.fn.extend({attr:function(a,b){return J(this,n.attr,a,b,arguments.length>1)},removeAttr:function(a){return this.each(function(){n.removeAttr(this,a)})}}),n.extend({attr:function(a,b,c){var d,e,f=a.nodeType;if(a&&3!==f&&8!==f&&2!==f)return typeof a.getAttribute===U?n.prop(a,b,c):(1===f&&n.isXMLDoc(a)||(b=b.toLowerCase(),d=n.attrHooks[b]||(n.expr.match.bool.test(b)?Zb:Yb)),void 0===c?d&&"get"in d&&null!==(e=d.get(a,b))?e:(e=n.find.attr(a,b),null==e?void 0:e):null!==c?d&&"set"in d&&void 0!==(e=d.set(a,c,b))?e:(a.setAttribute(b,c+""),c):void n.removeAttr(a,b))
+},removeAttr:function(a,b){var c,d,e=0,f=b&&b.match(E);if(f&&1===a.nodeType)while(c=f[e++])d=n.propFix[c]||c,n.expr.match.bool.test(c)&&(a[d]=!1),a.removeAttribute(c)},attrHooks:{type:{set:function(a,b){if(!k.radioValue&&"radio"===b&&n.nodeName(a,"input")){var c=a.value;return a.setAttribute("type",b),c&&(a.value=c),b}}}}}),Zb={set:function(a,b,c){return b===!1?n.removeAttr(a,c):a.setAttribute(c,c),c}},n.each(n.expr.match.bool.source.match(/\w+/g),function(a,b){var c=$b[b]||n.find.attr;$b[b]=function(a,b,d){var e,f;return d||(f=$b[b],$b[b]=e,e=null!=c(a,b,d)?b.toLowerCase():null,$b[b]=f),e}});var _b=/^(?:input|select|textarea|button)$/i;n.fn.extend({prop:function(a,b){return J(this,n.prop,a,b,arguments.length>1)},removeProp:function(a){return this.each(function(){delete this[n.propFix[a]||a]})}}),n.extend({propFix:{"for":"htmlFor","class":"className"},prop:function(a,b,c){var d,e,f,g=a.nodeType;if(a&&3!==g&&8!==g&&2!==g)return f=1!==g||!n.isXMLDoc(a),f&&(b=n.propFix[b]||b,e=n.propHooks[b]),void 0!==c?e&&"set"in e&&void 0!==(d=e.set(a,c,b))?d:a[b]=c:e&&"get"in e&&null!==(d=e.get(a,b))?d:a[b]},propHooks:{tabIndex:{get:function(a){return a.hasAttribute("tabindex")||_b.test(a.nodeName)||a.href?a.tabIndex:-1}}}}),k.optSelected||(n.propHooks.selected={get:function(a){var b=a.parentNode;return b&&b.parentNode&&b.parentNode.selectedIndex,null}}),n.each(["tabIndex","readOnly","maxLength","cellSpacing","cellPadding","rowSpan","colSpan","useMap","frameBorder","contentEditable"],function(){n.propFix[this.toLowerCase()]=this});var ac=/[\t\r\n\f]/g;n.fn.extend({addClass:function(a){var b,c,d,e,f,g,h="string"==typeof a&&a,i=0,j=this.length;if(n.isFunction(a))return this.each(function(b){n(this).addClass(a.call(this,b,this.className))});if(h)for(b=(a||"").match(E)||[];j>i;i++)if(c=this[i],d=1===c.nodeType&&(c.className?(" "+c.className+" ").replace(ac," "):" ")){f=0;while(e=b[f++])d.indexOf(" "+e+" ")<0&&(d+=e+" ");g=n.trim(d),c.className!==g&&(c.className=g)}return this},removeClass:function(a){var b,c,d,e,f,g,h=0===arguments.length||"string"==typeof a&&a,i=0,j=this.length;if(n.isFunction(a))return this.each(function(b){n(this).removeClass(a.call(this,b,this.className))});if(h)for(b=(a||"").match(E)||[];j>i;i++)if(c=this[i],d=1===c.nodeType&&(c.className?(" "+c.className+" ").replace(ac," "):"")){f=0;while(e=b[f++])while(d.indexOf(" "+e+" ")>=0)d=d.replace(" "+e+" "," ");g=a?n.trim(d):"",c.className!==g&&(c.className=g)}return this},toggleClass:function(a,b){var c=typeof a;return"boolean"==typeof b&&"string"===c?b?this.addClass(a):this.removeClass(a):this.each(n.isFunction(a)?function(c){n(this).toggleClass(a.call(this,c,this.className,b),b)}:function(){if("string"===c){var b,d=0,e=n(this),f=a.match(E)||[];while(b=f[d++])e.hasClass(b)?e.removeClass(b):e.addClass(b)}else(c===U||"boolean"===c)&&(this.className&&L.set(this,"__className__",this.className),this.className=this.className||a===!1?"":L.get(this,"__className__")||"")})},hasClass:function(a){for(var b=" "+a+" ",c=0,d=this.length;d>c;c++)if(1===this[c].nodeType&&(" "+this[c].className+" ").replace(ac," ").indexOf(b)>=0)return!0;return!1}});var bc=/\r/g;n.fn.extend({val:function(a){var b,c,d,e=this[0];{if(arguments.length)return d=n.isFunction(a),this.each(function(c){var e;1===this.nodeType&&(e=d?a.call(this,c,n(this).val()):a,null==e?e="":"number"==typeof e?e+="":n.isArray(e)&&(e=n.map(e,function(a){return null==a?"":a+""})),b=n.valHooks[this.type]||n.valHooks[this.nodeName.toLowerCase()],b&&"set"in b&&void 0!==b.set(this,e,"value")||(this.value=e))});if(e)return b=n.valHooks[e.type]||n.valHooks[e.nodeName.toLowerCase()],b&&"get"in b&&void 0!==(c=b.get(e,"value"))?c:(c=e.value,"string"==typeof c?c.replace(bc,""):null==c?"":c)}}}),n.extend({valHooks:{option:{get:function(a){var b=n.find.attr(a,"value");return null!=b?b:n.trim(n.text(a))}},select:{get:function(a){for(var b,c,d=a.options,e=a.selectedIndex,f="select-one"===a.type||0>e,g=f?null:[],h=f?e+1:d.length,i=0>e?h:f?e:0;h>i;i++)if(c=d[i],!(!c.selected&&i!==e||(k.optDisabled?c.disabled:null!==c.getAttribute("disabled"))||c.parentNode.disabled&&n.nodeName(c.parentNode,"optgroup"))){if(b=n(c).val(),f)return b;g.push(b)}return g},set:function(a,b){var c,d,e=a.options,f=n.makeArray(b),g=e.length;while(g--)d=e[g],(d.selected=n.inArray(d.value,f)>=0)&&(c=!0);return c||(a.selectedIndex=-1),f}}}}),n.each(["radio","checkbox"],function(){n.valHooks[this]={set:function(a,b){return n.isArray(b)?a.checked=n.inArray(n(a).val(),b)>=0:void 0}},k.checkOn||(n.valHooks[this].get=function(a){return null===a.getAttribute("value")?"on":a.value})}),n.each("blur focus focusin focusout load resize scroll unload click dblclick mousedown mouseup mousemove mouseover mouseout mouseenter mouseleave change select submit keydown keypress keyup error contextmenu".split(" "),function(a,b){n.fn[b]=function(a,c){return arguments.length>0?this.on(b,null,a,c):this.trigger(b)}}),n.fn.extend({hover:function(a,b){return this.mouseenter(a).mouseleave(b||a)},bind:function(a,b,c){return this.on(a,null,b,c)},unbind:function(a,b){return this.off(a,null,b)},delegate:function(a,b,c,d){return this.on(b,a,c,d)},undelegate:function(a,b,c){return 1===arguments.length?this.off(a,"**"):this.off(b,a||"**",c)}});var cc=n.now(),dc=/\?/;n.parseJSON=function(a){return JSON.parse(a+"")},n.parseXML=function(a){var b,c;if(!a||"string"!=typeof a)return null;try{c=new DOMParser,b=c.parseFromString(a,"text/xml")}catch(d){b=void 0}return(!b||b.getElementsByTagName("parsererror").length)&&n.error("Invalid XML: "+a),b};var ec=/#.*$/,fc=/([?&])_=[^&]*/,gc=/^(.*?):[ \t]*([^\r\n]*)$/gm,hc=/^(?:about|app|app-storage|.+-extension|file|res|widget):$/,ic=/^(?:GET|HEAD)$/,jc=/^\/\//,kc=/^([\w.+-]+:)(?:\/\/(?:[^\/?#]*@|)([^\/?#:]*)(?::(\d+)|)|)/,lc={},mc={},nc="*/".concat("*"),oc=a.location.href,pc=kc.exec(oc.toLowerCase())||[];function qc(a){return function(b,c){"string"!=typeof b&&(c=b,b="*");var d,e=0,f=b.toLowerCase().match(E)||[];if(n.isFunction(c))while(d=f[e++])"+"===d[0]?(d=d.slice(1)||"*",(a[d]=a[d]||[]).unshift(c)):(a[d]=a[d]||[]).push(c)}}function rc(a,b,c,d){var e={},f=a===mc;function g(h){var i;return e[h]=!0,n.each(a[h]||[],function(a,h){var j=h(b,c,d);return"string"!=typeof j||f||e[j]?f?!(i=j):void 0:(b.dataTypes.unshift(j),g(j),!1)}),i}return g(b.dataTypes[0])||!e["*"]&&g("*")}function sc(a,b){var c,d,e=n.ajaxSettings.flatOptions||{};for(c in b)void 0!==b[c]&&((e[c]?a:d||(d={}))[c]=b[c]);return d&&n.extend(!0,a,d),a}function tc(a,b,c){var d,e,f,g,h=a.contents,i=a.dataTypes;while("*"===i[0])i.shift(),void 0===d&&(d=a.mimeType||b.getResponseHeader("Content-Type"));if(d)for(e in h)if(h[e]&&h[e].test(d)){i.unshift(e);break}if(i[0]in c)f=i[0];else{for(e in c){if(!i[0]||a.converters[e+" "+i[0]]){f=e;break}g||(g=e)}f=f||g}return f?(f!==i[0]&&i.unshift(f),c[f]):void 0}function uc(a,b,c,d){var e,f,g,h,i,j={},k=a.dataTypes.slice();if(k[1])for(g in a.converters)j[g.toLowerCase()]=a.converters[g];f=k.shift();while(f)if(a.responseFields[f]&&(c[a.responseFields[f]]=b),!i&&d&&a.dataFilter&&(b=a.dataFilter(b,a.dataType)),i=f,f=k.shift())if("*"===f)f=i;else if("*"!==i&&i!==f){if(g=j[i+" "+f]||j["* "+f],!g)for(e in j)if(h=e.split(" "),h[1]===f&&(g=j[i+" "+h[0]]||j["* "+h[0]])){g===!0?g=j[e]:j[e]!==!0&&(f=h[0],k.unshift(h[1]));break}if(g!==!0)if(g&&a["throws"])b=g(b);else try{b=g(b)}catch(l){return{state:"parsererror",error:g?l:"No conversion from "+i+" to "+f}}}return{state:"success",data:b}}n.extend({active:0,lastModified:{},etag:{},ajaxSettings:{url:oc,type:"GET",isLocal:hc.test(pc[1]),global:!0,processData:!0,async:!0,contentType:"application/x-www-form-urlencoded; charset=UTF-8",accepts:{"*":nc,text:"text/plain",html:"text/html",xml:"application/xml, text/xml",json:"application/json, text/javascript"},contents:{xml:/xml/,html:/html/,json:/json/},responseFields:{xml:"responseXML",text:"responseText",json:"responseJSON"},converters:{"* text":String,"text html":!0,"text json":n.parseJSON,"text xml":n.parseXML},flatOptions:{url:!0,context:!0}},ajaxSetup:function(a,b){return b?sc(sc(a,n.ajaxSettings),b):sc(n.ajaxSettings,a)},ajaxPrefilter:qc(lc),ajaxTransport:qc(mc),ajax:function(a,b){"object"==typeof a&&(b=a,a=void 0),b=b||{};var c,d,e,f,g,h,i,j,k=n.ajaxSetup({},b),l=k.context||k,m=k.context&&(l.nodeType||l.jquery)?n(l):n.event,o=n.Deferred(),p=n.Callbacks("once memory"),q=k.statusCode||{},r={},s={},t=0,u="canceled",v={readyState:0,getResponseHeader:function(a){var b;if(2===t){if(!f){f={};while(b=gc.exec(e))f[b[1].toLowerCase()]=b[2]}b=f[a.toLowerCase()]}return null==b?null:b},getAllResponseHeaders:function(){return 2===t?e:null},setRequestHeader:function(a,b){var c=a.toLowerCase();return t||(a=s[c]=s[c]||a,r[a]=b),this},overrideMimeType:function(a){return t||(k.mimeType=a),this},statusCode:function(a){var b;if(a)if(2>t)for(b in a)q[b]=[q[b],a[b]];else v.always(a[v.status]);return this},abort:function(a){var b=a||u;return c&&c.abort(b),x(0,b),this}};if(o.promise(v).complete=p.add,v.success=v.done,v.error=v.fail,k.url=((a||k.url||oc)+"").replace(ec,"").replace(jc,pc[1]+"//"),k.type=b.method||b.type||k.method||k.type,k.dataTypes=n.trim(k.dataType||"*").toLowerCase().match(E)||[""],null==k.crossDomain&&(h=kc.exec(k.url.toLowerCase()),k.crossDomain=!(!h||h[1]===pc[1]&&h[2]===pc[2]&&(h[3]||("http:"===h[1]?"80":"443"))===(pc[3]||("http:"===pc[1]?"80":"443")))),k.data&&k.processData&&"string"!=typeof k.data&&(k.data=n.param(k.data,k.traditional)),rc(lc,k,b,v),2===t)return v;i=n.event&&k.global,i&&0===n.active++&&n.event.trigger("ajaxStart"),k.type=k.type.toUpperCase(),k.hasContent=!ic.test(k.type),d=k.url,k.hasContent||(k.data&&(d=k.url+=(dc.test(d)?"&":"?")+k.data,delete k.data),k.cache===!1&&(k.url=fc.test(d)?d.replace(fc,"$1_="+cc++):d+(dc.test(d)?"&":"?")+"_="+cc++)),k.ifModified&&(n.lastModified[d]&&v.setRequestHeader("If-Modified-Since",n.lastModified[d]),n.etag[d]&&v.setRequestHeader("If-None-Match",n.etag[d])),(k.data&&k.hasContent&&k.contentType!==!1||b.contentType)&&v.setRequestHeader("Content-Type",k.contentType),v.setRequestHeader("Accept",k.dataTypes[0]&&k.accepts[k.dataTypes[0]]?k.accepts[k.dataTypes[0]]+("*"!==k.dataTypes[0]?", "+nc+"; q=0.01":""):k.accepts["*"]);for(j in k.headers)v.setRequestHeader(j,k.headers[j]);if(k.beforeSend&&(k.beforeSend.call(l,v,k)===!1||2===t))return v.abort();u="abort";for(j in{success:1,error:1,complete:1})v[j](k[j]);if(c=rc(mc,k,b,v)){v.readyState=1,i&&m.trigger("ajaxSend",[v,k]),k.async&&k.timeout>0&&(g=setTimeout(function(){v.abort("timeout")},k.timeout));try{t=1,c.send(r,x)}catch(w){if(!(2>t))throw w;x(-1,w)}}else x(-1,"No Transport");function x(a,b,f,h){var j,r,s,u,w,x=b;2!==t&&(t=2,g&&clearTimeout(g),c=void 0,e=h||"",v.readyState=a>0?4:0,j=a>=200&&300>a||304===a,f&&(u=tc(k,v,f)),u=uc(k,u,v,j),j?(k.ifModified&&(w=v.getResponseHeader("Last-Modified"),w&&(n.lastModified[d]=w),w=v.getResponseHeader("etag"),w&&(n.etag[d]=w)),204===a||"HEAD"===k.type?x="nocontent":304===a?x="notmodified":(x=u.state,r=u.data,s=u.error,j=!s)):(s=x,(a||!x)&&(x="error",0>a&&(a=0))),v.status=a,v.statusText=(b||x)+"",j?o.resolveWith(l,[r,x,v]):o.rejectWith(l,[v,x,s]),v.statusCode(q),q=void 0,i&&m.trigger(j?"ajaxSuccess":"ajaxError",[v,k,j?r:s]),p.fireWith(l,[v,x]),i&&(m.trigger("ajaxComplete",[v,k]),--n.active||n.event.trigger("ajaxStop")))}return v},getJSON:function(a,b,c){return n.get(a,b,c,"json")},getScript:function(a,b){return n.get(a,void 0,b,"script")}}),n.each(["get","post"],function(a,b){n[b]=function(a,c,d,e){return n.isFunction(c)&&(e=e||d,d=c,c=void 0),n.ajax({url:a,type:b,dataType:e,data:c,success:d})}}),n._evalUrl=function(a){return n.ajax({url:a,type:"GET",dataType:"script",async:!1,global:!1,"throws":!0})},n.fn.extend({wrapAll:function(a){var b;return n.isFunction(a)?this.each(function(b){n(this).wrapAll(a.call(this,b))}):(this[0]&&(b=n(a,this[0].ownerDocument).eq(0).clone(!0),this[0].parentNode&&b.insertBefore(this[0]),b.map(function(){var a=this;while(a.firstElementChild)a=a.firstElementChild;return a}).append(this)),this)},wrapInner:function(a){return this.each(n.isFunction(a)?function(b){n(this).wrapInner(a.call(this,b))}:function(){var b=n(this),c=b.contents();c.length?c.wrapAll(a):b.append(a)})},wrap:function(a){var b=n.isFunction(a);return this.each(function(c){n(this).wrapAll(b?a.call(this,c):a)})},unwrap:function(){return this.parent().each(function(){n.nodeName(this,"body")||n(this).replaceWith(this.childNodes)}).end()}}),n.expr.filters.hidden=function(a){return a.offsetWidth<=0&&a.offsetHeight<=0},n.expr.filters.visible=function(a){return!n.expr.filters.hidden(a)};var vc=/%20/g,wc=/\[\]$/,xc=/\r?\n/g,yc=/^(?:submit|button|image|reset|file)$/i,zc=/^(?:input|select|textarea|keygen)/i;function Ac(a,b,c,d){var e;if(n.isArray(b))n.each(b,function(b,e){c||wc.test(a)?d(a,e):Ac(a+"["+("object"==typeof e?b:"")+"]",e,c,d)});else if(c||"object"!==n.type(b))d(a,b);else for(e in b)Ac(a+"["+e+"]",b[e],c,d)}n.param=function(a,b){var c,d=[],e=function(a,b){b=n.isFunction(b)?b():null==b?"":b,d[d.length]=encodeURIComponent(a)+"="+encodeURIComponent(b)};if(void 0===b&&(b=n.ajaxSettings&&n.ajaxSettings.traditional),n.isArray(a)||a.jquery&&!n.isPlainObject(a))n.each(a,function(){e(this.name,this.value)});else for(c in a)Ac(c,a[c],b,e);return d.join("&").replace(vc,"+")},n.fn.extend({serialize:function(){return n.param(this.serializeArray())},serializeArray:function(){return this.map(function(){var a=n.prop(this,"elements");return a?n.makeArray(a):this}).filter(function(){var a=this.type;return this.name&&!n(this).is(":disabled")&&zc.test(this.nodeName)&&!yc.test(a)&&(this.checked||!T.test(a))}).map(function(a,b){var c=n(this).val();return null==c?null:n.isArray(c)?n.map(c,function(a){return{name:b.name,value:a.replace(xc,"\r\n")}}):{name:b.name,value:c.replace(xc,"\r\n")}}).get()}}),n.ajaxSettings.xhr=function(){try{return new XMLHttpRequest}catch(a){}};var Bc=0,Cc={},Dc={0:200,1223:204},Ec=n.ajaxSettings.xhr();a.attachEvent&&a.attachEvent("onunload",function(){for(var a in Cc)Cc[a]()}),k.cors=!!Ec&&"withCredentials"in Ec,k.ajax=Ec=!!Ec,n.ajaxTransport(function(a){var b;return k.cors||Ec&&!a.crossDomain?{send:function(c,d){var e,f=a.xhr(),g=++Bc;if(f.open(a.type,a.url,a.async,a.username,a.password),a.xhrFields)for(e in a.xhrFields)f[e]=a.xhrFields[e];a.mimeType&&f.overrideMimeType&&f.overrideMimeType(a.mimeType),a.crossDomain||c["X-Requested-With"]||(c["X-Requested-With"]="XMLHttpRequest");for(e in c)f.setRequestHeader(e,c[e]);b=function(a){return function(){b&&(delete Cc[g],b=f.onload=f.onerror=null,"abort"===a?f.abort():"error"===a?d(f.status,f.statusText):d(Dc[f.status]||f.status,f.statusText,"string"==typeof f.responseText?{text:f.responseText}:void 0,f.getAllResponseHeaders()))}},f.onload=b(),f.onerror=b("error"),b=Cc[g]=b("abort");try{f.send(a.hasContent&&a.data||null)}catch(h){if(b)throw h}},abort:function(){b&&b()}}:void 0}),n.ajaxSetup({accepts:{script:"text/javascript, application/javascript, application/ecmascript, application/x-ecmascript"},contents:{script:/(?:java|ecma)script/},converters:{"text script":function(a){return n.globalEval(a),a}}}),n.ajaxPrefilter("script",function(a){void 0===a.cache&&(a.cache=!1),a.crossDomain&&(a.type="GET")}),n.ajaxTransport("script",function(a){if(a.crossDomain){var b,c;return{send:function(d,e){b=n("<script>").prop({async:!0,charset:a.scriptCharset,src:a.url}).on("load error",c=function(a){b.remove(),c=null,a&&e("error"===a.type?404:200,a.type)}),l.head.appendChild(b[0])},abort:function(){c&&c()}}}});var Fc=[],Gc=/(=)\?(?=&|$)|\?\?/;n.ajaxSetup({jsonp:"callback",jsonpCallback:function(){var a=Fc.pop()||n.expando+"_"+cc++;return this[a]=!0,a}}),n.ajaxPrefilter("json jsonp",function(b,c,d){var e,f,g,h=b.jsonp!==!1&&(Gc.test(b.url)?"url":"string"==typeof b.data&&!(b.contentType||"").indexOf("application/x-www-form-urlencoded")&&Gc.test(b.data)&&"data");return h||"jsonp"===b.dataTypes[0]?(e=b.jsonpCallback=n.isFunction(b.jsonpCallback)?b.jsonpCallback():b.jsonpCallback,h?b[h]=b[h].replace(Gc,"$1"+e):b.jsonp!==!1&&(b.url+=(dc.test(b.url)?"&":"?")+b.jsonp+"="+e),b.converters["script json"]=function(){return g||n.error(e+" was not called"),g[0]},b.dataTypes[0]="json",f=a[e],a[e]=function(){g=arguments},d.always(function(){a[e]=f,b[e]&&(b.jsonpCallback=c.jsonpCallback,Fc.push(e)),g&&n.isFunction(f)&&f(g[0]),g=f=void 0}),"script"):void 0}),n.parseHTML=function(a,b,c){if(!a||"string"!=typeof a)return null;"boolean"==typeof b&&(c=b,b=!1),b=b||l;var d=v.exec(a),e=!c&&[];return d?[b.createElement(d[1])]:(d=n.buildFragment([a],b,e),e&&e.length&&n(e).remove(),n.merge([],d.childNodes))};var Hc=n.fn.load;n.fn.load=function(a,b,c){if("string"!=typeof a&&Hc)return Hc.apply(this,arguments);var d,e,f,g=this,h=a.indexOf(" ");return h>=0&&(d=n.trim(a.slice(h)),a=a.slice(0,h)),n.isFunction(b)?(c=b,b=void 0):b&&"object"==typeof b&&(e="POST"),g.length>0&&n.ajax({url:a,type:e,dataType:"html",data:b}).done(function(a){f=arguments,g.html(d?n("<div>").append(n.parseHTML(a)).find(d):a)}).complete(c&&function(a,b){g.each(c,f||[a.responseText,b,a])}),this},n.each(["ajaxStart","ajaxStop","ajaxComplete","ajaxError","ajaxSuccess","ajaxSend"],function(a,b){n.fn[b]=function(a){return this.on(b,a)}}),n.expr.filters.animated=function(a){return n.grep(n.timers,function(b){return a===b.elem}).length};var Ic=a.document.documentElement;function Jc(a){return n.isWindow(a)?a:9===a.nodeType&&a.defaultView}n.offset={setOffset:function(a,b,c){var d,e,f,g,h,i,j,k=n.css(a,"position"),l=n(a),m={};"static"===k&&(a.style.position="relative"),h=l.offset(),f=n.css(a,"top"),i=n.css(a,"left"),j=("absolute"===k||"fixed"===k)&&(f+i).indexOf("auto")>-1,j?(d=l.position(),g=d.top,e=d.left):(g=parseFloat(f)||0,e=parseFloat(i)||0),n.isFunction(b)&&(b=b.call(a,c,h)),null!=b.top&&(m.top=b.top-h.top+g),null!=b.left&&(m.left=b.left-h.left+e),"using"in b?b.using.call(a,m):l.css(m)}},n.fn.extend({offset:function(a){if(arguments.length)return void 0===a?this:this.each(function(b){n.offset.setOffset(this,a,b)});var b,c,d=this[0],e={top:0,left:0},f=d&&d.ownerDocument;if(f)return b=f.documentElement,n.contains(b,d)?(typeof d.getBoundingClientRect!==U&&(e=d.getBoundingClientRect()),c=Jc(f),{top:e.top+c.pageYOffset-b.clientTop,left:e.left+c.pageXOffset-b.clientLeft}):e},position:function(){if(this[0]){var a,b,c=this[0],d={top:0,left:0};return"fixed"===n.css(c,"position")?b=c.getBoundingClientRect():(a=this.offsetParent(),b=this.offset(),n.nodeName(a[0],"html")||(d=a.offset()),d.top+=n.css(a[0],"borderTopWidth",!0),d.left+=n.css(a[0],"borderLeftWidth",!0)),{top:b.top-d.top-n.css(c,"marginTop",!0),left:b.left-d.left-n.css(c,"marginLeft",!0)}}},offsetParent:function(){return this.map(function(){var a=this.offsetParent||Ic;while(a&&!n.nodeName(a,"html")&&"static"===n.css(a,"position"))a=a.offsetParent;return a||Ic})}}),n.each({scrollLeft:"pageXOffset",scrollTop:"pageYOffset"},function(b,c){var d="pageYOffset"===c;n.fn[b]=function(e){return J(this,function(b,e,f){var g=Jc(b);return void 0===f?g?g[c]:b[e]:void(g?g.scrollTo(d?a.pageXOffset:f,d?f:a.pageYOffset):b[e]=f)},b,e,arguments.length,null)}}),n.each(["top","left"],function(a,b){n.cssHooks[b]=yb(k.pixelPosition,function(a,c){return c?(c=xb(a,b),vb.test(c)?n(a).position()[b]+"px":c):void 0})}),n.each({Height:"height",Width:"width"},function(a,b){n.each({padding:"inner"+a,content:b,"":"outer"+a},function(c,d){n.fn[d]=function(d,e){var f=arguments.length&&(c||"boolean"!=typeof d),g=c||(d===!0||e===!0?"margin":"border");return J(this,function(b,c,d){var e;return n.isWindow(b)?b.document.documentElement["client"+a]:9===b.nodeType?(e=b.documentElement,Math.max(b.body["scroll"+a],e["scroll"+a],b.body["offset"+a],e["offset"+a],e["client"+a])):void 0===d?n.css(b,c,g):n.style(b,c,d,g)},b,f?d:void 0,f,null)}})}),n.fn.size=function(){return this.length},n.fn.andSelf=n.fn.addBack,"function"==typeof define&&define.amd&&define("jquery",[],function(){return n});var Kc=a.jQuery,Lc=a.$;return n.noConflict=function(b){return a.$===n&&(a.$=Lc),b&&a.jQuery===n&&(a.jQuery=Kc),n},typeof b===U&&(a.jQuery=a.$=n),n});
diff --git a/reference/rte-fortran-interface/js/svg-pan-zoom.min.js b/reference/rte-fortran-interface/js/svg-pan-zoom.min.js
new file mode 100644
index 000000000..328f5e742
--- /dev/null
+++ b/reference/rte-fortran-interface/js/svg-pan-zoom.min.js
@@ -0,0 +1,3 @@
+// svg-pan-zoom v3.2.3
+// https://github.com/ariutta/svg-pan-zoom
+!function t(e,o,n){function i(r,a){if(!o[r]){if(!e[r]){var l="function"==typeof require&&require;if(!a&&l)return l(r,!0);if(s)return s(r,!0);var u=new Error("Cannot find module '"+r+"'");throw u.code="MODULE_NOT_FOUND",u}var h=o[r]={exports:{}};e[r][0].call(h.exports,function(t){var o=e[r][1][t];return i(o?o:t)},h,h.exports,t,e,o,n)}return o[r].exports}for(var s="function"==typeof require&&require,r=0;r<n.length;r++)i(n[r]);return i}({1:[function(t,e){var o=t("./svg-pan-zoom.js");!function(t){"function"==typeof define&&define.amd?define("svg-pan-zoom",function(){return o}):"undefined"!=typeof e&&e.exports&&(e.exports=o,t.svgPanZoom=o)}(window,document)},{"./svg-pan-zoom.js":4}],2:[function(t,e){var o=t("./svg-utilities");e.exports={enable:function(t){var e=t.svg.querySelector("defs");e||(e=document.createElementNS(o.svgNS,"defs"),t.svg.appendChild(e));var n=document.createElementNS(o.svgNS,"style");n.setAttribute("type","text/css"),n.textContent=".svg-pan-zoom-control { cursor: pointer; fill: black; fill-opacity: 0.333; } .svg-pan-zoom-control:hover { fill-opacity: 0.8; } .svg-pan-zoom-control-background { fill: white; fill-opacity: 0.5; } .svg-pan-zoom-control-background { fill-opacity: 0.8; }",e.appendChild(n);var i=document.createElementNS(o.svgNS,"g");i.setAttribute("id","svg-pan-zoom-controls"),i.setAttribute("transform","translate("+(t.width-70)+" "+(t.height-76)+") scale(0.75)"),i.setAttribute("class","svg-pan-zoom-control"),i.appendChild(this._createZoomIn(t)),i.appendChild(this._createZoomReset(t)),i.appendChild(this._createZoomOut(t)),t.svg.appendChild(i),t.controlIcons=i},_createZoomIn:function(t){var e=document.createElementNS(o.svgNS,"g");e.setAttribute("id","svg-pan-zoom-zoom-in"),e.setAttribute("transform","translate(30.5 5) scale(0.015)"),e.setAttribute("class","svg-pan-zoom-control"),e.addEventListener("click",function(){t.getPublicInstance().zoomIn()},!1),e.addEventListener("touchstart",function(){t.getPublicInstance().zoomIn()},!1);var n=document.createElementNS(o.svgNS,"rect");n.setAttribute("x","0"),n.setAttribute("y","0"),n.setAttribute("width","1500"),n.setAttribute("height","1400"),n.setAttribute("class","svg-pan-zoom-control-background"),e.appendChild(n);var i=document.createElementNS(o.svgNS,"path");return i.setAttribute("d","M1280 576v128q0 26 -19 45t-45 19h-320v320q0 26 -19 45t-45 19h-128q-26 0 -45 -19t-19 -45v-320h-320q-26 0 -45 -19t-19 -45v-128q0 -26 19 -45t45 -19h320v-320q0 -26 19 -45t45 -19h128q26 0 45 19t19 45v320h320q26 0 45 19t19 45zM1536 1120v-960 q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5t84.5 -203.5z"),i.setAttribute("class","svg-pan-zoom-control-element"),e.appendChild(i),e},_createZoomReset:function(t){var e=document.createElementNS(o.svgNS,"g");e.setAttribute("id","svg-pan-zoom-reset-pan-zoom"),e.setAttribute("transform","translate(5 35) scale(0.4)"),e.setAttribute("class","svg-pan-zoom-control"),e.addEventListener("click",function(){t.getPublicInstance().reset()},!1),e.addEventListener("touchstart",function(){t.getPublicInstance().reset()},!1);var n=document.createElementNS(o.svgNS,"rect");n.setAttribute("x","2"),n.setAttribute("y","2"),n.setAttribute("width","182"),n.setAttribute("height","58"),n.setAttribute("class","svg-pan-zoom-control-background"),e.appendChild(n);var i=document.createElementNS(o.svgNS,"path");i.setAttribute("d","M33.051,20.632c-0.742-0.406-1.854-0.609-3.338-0.609h-7.969v9.281h7.769c1.543,0,2.701-0.188,3.473-0.562c1.365-0.656,2.048-1.953,2.048-3.891C35.032,22.757,34.372,21.351,33.051,20.632z"),i.setAttribute("class","svg-pan-zoom-control-element"),e.appendChild(i);var s=document.createElementNS(o.svgNS,"path");return s.setAttribute("d","M170.231,0.5H15.847C7.102,0.5,0.5,5.708,0.5,11.84v38.861C0.5,56.833,7.102,61.5,15.847,61.5h154.384c8.745,0,15.269-4.667,15.269-10.798V11.84C185.5,5.708,178.976,0.5,170.231,0.5z M42.837,48.569h-7.969c-0.219-0.766-0.375-1.383-0.469-1.852c-0.188-0.969-0.289-1.961-0.305-2.977l-0.047-3.211c-0.03-2.203-0.41-3.672-1.142-4.406c-0.732-0.734-2.103-1.102-4.113-1.102h-7.05v13.547h-7.055V14.022h16.524c2.361,0.047,4.178,0.344,5.45,0.891c1.272,0.547,2.351,1.352,3.234,2.414c0.731,0.875,1.31,1.844,1.737,2.906s0.64,2.273,0.64,3.633c0,1.641-0.414,3.254-1.242,4.84s-2.195,2.707-4.102,3.363c1.594,0.641,2.723,1.551,3.387,2.73s0.996,2.98,0.996,5.402v2.32c0,1.578,0.063,2.648,0.19,3.211c0.19,0.891,0.635,1.547,1.333,1.969V48.569z M75.579,48.569h-26.18V14.022h25.336v6.117H56.454v7.336h16.781v6H56.454v8.883h19.125V48.569z M104.497,46.331c-2.44,2.086-5.887,3.129-10.34,3.129c-4.548,0-8.125-1.027-10.731-3.082s-3.909-4.879-3.909-8.473h6.891c0.224,1.578,0.662,2.758,1.316,3.539c1.196,1.422,3.246,2.133,6.15,2.133c1.739,0,3.151-0.188,4.236-0.562c2.058-0.719,3.087-2.055,3.087-4.008c0-1.141-0.504-2.023-1.512-2.648c-1.008-0.609-2.607-1.148-4.796-1.617l-3.74-0.82c-3.676-0.812-6.201-1.695-7.576-2.648c-2.328-1.594-3.492-4.086-3.492-7.477c0-3.094,1.139-5.664,3.417-7.711s5.623-3.07,10.036-3.07c3.685,0,6.829,0.965,9.431,2.895c2.602,1.93,3.966,4.73,4.093,8.402h-6.938c-0.128-2.078-1.057-3.555-2.787-4.43c-1.154-0.578-2.587-0.867-4.301-0.867c-1.907,0-3.428,0.375-4.565,1.125c-1.138,0.75-1.706,1.797-1.706,3.141c0,1.234,0.561,2.156,1.682,2.766c0.721,0.406,2.25,0.883,4.589,1.43l6.063,1.43c2.657,0.625,4.648,1.461,5.975,2.508c2.059,1.625,3.089,3.977,3.089,7.055C108.157,41.624,106.937,44.245,104.497,46.331z M139.61,48.569h-26.18V14.022h25.336v6.117h-18.281v7.336h16.781v6h-16.781v8.883h19.125V48.569z M170.337,20.14h-10.336v28.43h-7.266V20.14h-10.383v-6.117h27.984V20.14z"),s.setAttribute("class","svg-pan-zoom-control-element"),e.appendChild(s),e},_createZoomOut:function(t){var e=document.createElementNS(o.svgNS,"g");e.setAttribute("id","svg-pan-zoom-zoom-out"),e.setAttribute("transform","translate(30.5 70) scale(0.015)"),e.setAttribute("class","svg-pan-zoom-control"),e.addEventListener("click",function(){t.getPublicInstance().zoomOut()},!1),e.addEventListener("touchstart",function(){t.getPublicInstance().zoomOut()},!1);var n=document.createElementNS(o.svgNS,"rect");n.setAttribute("x","0"),n.setAttribute("y","0"),n.setAttribute("width","1500"),n.setAttribute("height","1400"),n.setAttribute("class","svg-pan-zoom-control-background"),e.appendChild(n);var i=document.createElementNS(o.svgNS,"path");return i.setAttribute("d","M1280 576v128q0 26 -19 45t-45 19h-896q-26 0 -45 -19t-19 -45v-128q0 -26 19 -45t45 -19h896q26 0 45 19t19 45zM1536 1120v-960q0 -119 -84.5 -203.5t-203.5 -84.5h-960q-119 0 -203.5 84.5t-84.5 203.5v960q0 119 84.5 203.5t203.5 84.5h960q119 0 203.5 -84.5 t84.5 -203.5z"),i.setAttribute("class","svg-pan-zoom-control-element"),e.appendChild(i),e},disable:function(t){t.controlIcons&&(t.controlIcons.parentNode.removeChild(t.controlIcons),t.controlIcons=null)}}},{"./svg-utilities":5}],3:[function(t,e){var o=t("./svg-utilities"),n=t("./utilities"),i=function(t,e){this.init(t,e)};i.prototype.init=function(t,e){this.viewport=t,this.options=e,this.originalState={zoom:1,x:0,y:0},this.activeState={zoom:1,x:0,y:0},this.updateCTMCached=n.proxy(this.updateCTM,this),this.requestAnimationFrame=n.createRequestAnimationFrame(this.options.refreshRate),this.viewBox={x:0,y:0,width:0,height:0},this.cacheViewBox(),this.processCTM(),this.updateCTM()},i.prototype.cacheViewBox=function(){var t=this.options.svg.getAttribute("viewBox");if(t){var e=t.split(/[\s\,]/).filter(function(t){return t}).map(parseFloat);this.viewBox.x=e[0],this.viewBox.y=e[1],this.viewBox.width=e[2],this.viewBox.height=e[3];var o=Math.min(this.options.width/this.viewBox.width,this.options.height/this.viewBox.height);this.activeState.zoom=o,this.activeState.x=(this.options.width-this.viewBox.width*o)/2,this.activeState.y=(this.options.height-this.viewBox.height*o)/2,this.updateCTMOnNextFrame(),this.options.svg.removeAttribute("viewBox")}else{var n=this.viewport.getBBox();this.viewBox.x=n.x,this.viewBox.y=n.y,this.viewBox.width=n.width,this.viewBox.height=n.height}},i.prototype.recacheViewBox=function(){var t=this.viewport.getBoundingClientRect(),e=t.width/this.getZoom(),o=t.height/this.getZoom();this.viewBox.x=0,this.viewBox.y=0,this.viewBox.width=e,this.viewBox.height=o},i.prototype.getViewBox=function(){return n.extend({},this.viewBox)},i.prototype.processCTM=function(){var t=this.getCTM();if(this.options.fit||this.options.contain){var e;e=this.options.fit?Math.min(this.options.width/this.viewBox.width,this.options.height/this.viewBox.height):Math.max(this.options.width/this.viewBox.width,this.options.height/this.viewBox.height),t.a=e,t.d=e,t.e=-this.viewBox.x*e,t.f=-this.viewBox.y*e}if(this.options.center){var o=.5*(this.options.width-(this.viewBox.width+2*this.viewBox.x)*t.a),n=.5*(this.options.height-(this.viewBox.height+2*this.viewBox.y)*t.a);t.e=o,t.f=n}this.originalState.zoom=t.a,this.originalState.x=t.e,this.originalState.y=t.f,this.setCTM(t)},i.prototype.getOriginalState=function(){return n.extend({},this.originalState)},i.prototype.getState=function(){return n.extend({},this.activeState)},i.prototype.getZoom=function(){return this.activeState.zoom},i.prototype.getRelativeZoom=function(){return this.activeState.zoom/this.originalState.zoom},i.prototype.computeRelativeZoom=function(t){return t/this.originalState.zoom},i.prototype.getPan=function(){return{x:this.activeState.x,y:this.activeState.y}},i.prototype.getCTM=function(){var t=this.options.svg.createSVGMatrix();return t.a=this.activeState.zoom,t.b=0,t.c=0,t.d=this.activeState.zoom,t.e=this.activeState.x,t.f=this.activeState.y,t},i.prototype.setCTM=function(t){var e=this.isZoomDifferent(t),o=this.isPanDifferent(t);if(e||o){if(e&&this.options.beforeZoom(this.getRelativeZoom(),this.computeRelativeZoom(t.a))===!1&&(t.a=t.d=this.activeState.zoom,e=!1),o){var i=this.options.beforePan(this.getPan(),{x:t.e,y:t.f}),s=!1,r=!1;i===!1?(t.e=this.getPan().x,t.f=this.getPan().y,s=r=!0):n.isObject(i)&&(i.x===!1?(t.e=this.getPan().x,s=!0):n.isNumber(i.x)&&(t.e=i.x),i.y===!1?(t.f=this.getPan().y,r=!0):n.isNumber(i.y)&&(t.f=i.y)),s&&r&&(o=!1)}(e||o)&&(this.updateCache(t),this.updateCTMOnNextFrame(),e&&this.options.onZoom(this.getRelativeZoom()),o&&this.options.onPan(this.getPan()))}},i.prototype.isZoomDifferent=function(t){return this.activeState.zoom!==t.a},i.prototype.isPanDifferent=function(t){return this.activeState.x!==t.e||this.activeState.y!==t.f},i.prototype.updateCache=function(t){this.activeState.zoom=t.a,this.activeState.x=t.e,this.activeState.y=t.f},i.prototype.pendingUpdate=!1,i.prototype.updateCTMOnNextFrame=function(){this.pendingUpdate||(this.pendingUpdate=!0,this.requestAnimationFrame.call(window,this.updateCTMCached))},i.prototype.updateCTM=function(){o.setCTM(this.viewport,this.getCTM(),this.defs),this.pendingUpdate=!1},e.exports=function(t,e){return new i(t,e)}},{"./svg-utilities":5,"./utilities":7}],4:[function(t,e){var o=t("./uniwheel"),n=t("./control-icons"),i=t("./utilities"),s=t("./svg-utilities"),r=t("./shadow-viewport"),a=function(t,e){this.init(t,e)},l={viewportSelector:".svg-pan-zoom_viewport",panEnabled:!0,controlIconsEnabled:!1,zoomEnabled:!0,dblClickZoomEnabled:!0,mouseWheelZoomEnabled:!0,preventMouseEventsDefault:!0,zoomScaleSensitivity:.1,minZoom:.5,maxZoom:10,fit:!0,contain:!1,center:!0,refreshRate:"auto",beforeZoom:null,onZoom:null,beforePan:null,onPan:null,customEventsHandler:null};a.prototype.init=function(t,e){var o=this;this.svg=t,this.defs=t.querySelector("defs"),s.setupSvgAttributes(this.svg),this.options=i.extend(i.extend({},l),e),this.state="none";var a=s.getBoundingClientRectNormalized(t);this.width=a.width,this.height=a.height,this.viewport=r(s.getOrCreateViewport(this.svg,this.options.viewportSelector),{svg:this.svg,width:this.width,height:this.height,fit:this.options.fit,contain:this.options.contain,center:this.options.center,refreshRate:this.options.refreshRate,beforeZoom:function(t,e){return o.viewport&&o.options.beforeZoom?o.options.beforeZoom(t,e):void 0},onZoom:function(t){return o.viewport&&o.options.onZoom?o.options.onZoom(t):void 0},beforePan:function(t,e){return o.viewport&&o.options.beforePan?o.options.beforePan(t,e):void 0},onPan:function(t){return o.viewport&&o.options.onPan?o.options.onPan(t):void 0}});var u=this.getPublicInstance();u.setBeforeZoom(this.options.beforeZoom),u.setOnZoom(this.options.onZoom),u.setBeforePan(this.options.beforePan),u.setOnPan(this.options.onPan),this.options.controlIconsEnabled&&n.enable(this),this.lastMouseWheelEventTime=Date.now(),this.setupHandlers()},a.prototype.setupHandlers=function(){var t=this,e=null;if(this.eventListeners={mousedown:function(e){return t.handleMouseDown(e,null)},touchstart:function(o){var n=t.handleMouseDown(o,e);return e=o,n},mouseup:function(e){return t.handleMouseUp(e)},touchend:function(e){return t.handleMouseUp(e)},mousemove:function(e){return t.handleMouseMove(e)},touchmove:function(e){return t.handleMouseMove(e)},mouseleave:function(e){return t.handleMouseUp(e)},touchleave:function(e){return t.handleMouseUp(e)},touchcancel:function(e){return t.handleMouseUp(e)}},null!=this.options.customEventsHandler){this.options.customEventsHandler.init({svgElement:this.svg,instance:this.getPublicInstance()});var o=this.options.customEventsHandler.haltEventListeners;if(o&&o.length)for(var n=o.length-1;n>=0;n--)this.eventListeners.hasOwnProperty(o[n])&&delete this.eventListeners[o[n]]}for(var i in this.eventListeners)this.svg.addEventListener(i,this.eventListeners[i],!1);this.options.mouseWheelZoomEnabled&&(this.options.mouseWheelZoomEnabled=!1,this.enableMouseWheelZoom())},a.prototype.enableMouseWheelZoom=function(){if(!this.options.mouseWheelZoomEnabled){var t=this;this.wheelListener=function(e){return t.handleMouseWheel(e)},o.on(this.svg,this.wheelListener,!1),this.options.mouseWheelZoomEnabled=!0}},a.prototype.disableMouseWheelZoom=function(){this.options.mouseWheelZoomEnabled&&(o.off(this.svg,this.wheelListener,!1),this.options.mouseWheelZoomEnabled=!1)},a.prototype.handleMouseWheel=function(t){if(this.options.zoomEnabled&&"none"===this.state){this.options.preventMouseEventsDefault&&(t.preventDefault?t.preventDefault():t.returnValue=!1);var e=t.deltaY||1,o=Date.now()-this.lastMouseWheelEventTime,n=3+Math.max(0,30-o);this.lastMouseWheelEventTime=Date.now(),"deltaMode"in t&&0===t.deltaMode&&t.wheelDelta&&(e=0===t.deltaY?0:Math.abs(t.wheelDelta)/t.deltaY),e=e>-.3&&.3>e?e:(e>0?1:-1)*Math.log(Math.abs(e)+10)/n;var i=this.svg.getScreenCTM().inverse(),r=s.getEventPoint(t,this.svg).matrixTransform(i),a=Math.pow(1+this.options.zoomScaleSensitivity,-1*e);this.zoomAtPoint(a,r)}},a.prototype.zoomAtPoint=function(t,e,o){var n=this.viewport.getOriginalState();o?(t=Math.max(this.options.minZoom*n.zoom,Math.min(this.options.maxZoom*n.zoom,t)),t/=this.getZoom()):this.getZoom()*t<this.options.minZoom*n.zoom?t=this.options.minZoom*n.zoom/this.getZoom():this.getZoom()*t>this.options.maxZoom*n.zoom&&(t=this.options.maxZoom*n.zoom/this.getZoom());var i=this.viewport.getCTM(),s=e.matrixTransform(i.inverse()),r=this.svg.createSVGMatrix().translate(s.x,s.y).scale(t).translate(-s.x,-s.y),a=i.multiply(r);a.a!==i.a&&this.viewport.setCTM(a)},a.prototype.zoom=function(t,e){this.zoomAtPoint(t,s.getSvgCenterPoint(this.svg,this.width,this.height),e)},a.prototype.publicZoom=function(t,e){e&&(t=this.computeFromRelativeZoom(t)),this.zoom(t,e)},a.prototype.publicZoomAtPoint=function(t,e,o){if(o&&(t=this.computeFromRelativeZoom(t)),!("SVGPoint"!==i.getType(e)&&"x"in e&&"y"in e))throw new Error("Given point is invalid");e=s.createSVGPoint(this.svg,e.x,e.y),this.zoomAtPoint(t,e,o)},a.prototype.getZoom=function(){return this.viewport.getZoom()},a.prototype.getRelativeZoom=function(){return this.viewport.getRelativeZoom()},a.prototype.computeFromRelativeZoom=function(t){return t*this.viewport.getOriginalState().zoom},a.prototype.resetZoom=function(){var t=this.viewport.getOriginalState();this.zoom(t.zoom,!0)},a.prototype.resetPan=function(){this.pan(this.viewport.getOriginalState())},a.prototype.reset=function(){this.resetZoom(),this.resetPan()},a.prototype.handleDblClick=function(t){if(this.options.preventMouseEventsDefault&&(t.preventDefault?t.preventDefault():t.returnValue=!1),this.options.controlIconsEnabled){var e=t.target.getAttribute("class")||"";if(e.indexOf("svg-pan-zoom-control")>-1)return!1}var o;o=t.shiftKey?1/(2*(1+this.options.zoomScaleSensitivity)):2*(1+this.options.zoomScaleSensitivity);var n=s.getEventPoint(t,this.svg).matrixTransform(this.svg.getScreenCTM().inverse());this.zoomAtPoint(o,n)},a.prototype.handleMouseDown=function(t,e){this.options.preventMouseEventsDefault&&(t.preventDefault?t.preventDefault():t.returnValue=!1),i.mouseAndTouchNormalize(t,this.svg),this.options.dblClickZoomEnabled&&i.isDblClick(t,e)?this.handleDblClick(t):(this.state="pan",this.firstEventCTM=this.viewport.getCTM(),this.stateOrigin=s.getEventPoint(t,this.svg).matrixTransform(this.firstEventCTM.inverse()))},a.prototype.handleMouseMove=function(t){if(this.options.preventMouseEventsDefault&&(t.preventDefault?t.preventDefault():t.returnValue=!1),"pan"===this.state&&this.options.panEnabled){var e=s.getEventPoint(t,this.svg).matrixTransform(this.firstEventCTM.inverse()),o=this.firstEventCTM.translate(e.x-this.stateOrigin.x,e.y-this.stateOrigin.y);this.viewport.setCTM(o)}},a.prototype.handleMouseUp=function(t){this.options.preventMouseEventsDefault&&(t.preventDefault?t.preventDefault():t.returnValue=!1),"pan"===this.state&&(this.state="none")},a.prototype.fit=function(){var t=this.viewport.getViewBox(),e=Math.min(this.width/t.width,this.height/t.height);this.zoom(e,!0)},a.prototype.contain=function(){var t=this.viewport.getViewBox(),e=Math.max(this.width/t.width,this.height/t.height);this.zoom(e,!0)},a.prototype.center=function(){var t=this.viewport.getViewBox(),e=.5*(this.width-(t.width+2*t.x)*this.getZoom()),o=.5*(this.height-(t.height+2*t.y)*this.getZoom());this.getPublicInstance().pan({x:e,y:o})},a.prototype.updateBBox=function(){this.viewport.recacheViewBox()},a.prototype.pan=function(t){var e=this.viewport.getCTM();e.e=t.x,e.f=t.y,this.viewport.setCTM(e)},a.prototype.panBy=function(t){var e=this.viewport.getCTM();e.e+=t.x,e.f+=t.y,this.viewport.setCTM(e)},a.prototype.getPan=function(){var t=this.viewport.getState();return{x:t.x,y:t.y}},a.prototype.resize=function(){var t=s.getBoundingClientRectNormalized(this.svg);this.width=t.width,this.height=t.height,this.options.controlIconsEnabled&&(this.getPublicInstance().disableControlIcons(),this.getPublicInstance().enableControlIcons())},a.prototype.destroy=function(){var t=this;this.beforeZoom=null,this.onZoom=null,this.beforePan=null,this.onPan=null,null!=this.options.customEventsHandler&&this.options.customEventsHandler.destroy({svgElement:this.svg,instance:this.getPublicInstance()});for(var e in this.eventListeners)this.svg.removeEventListener(e,this.eventListeners[e],!1);this.disableMouseWheelZoom(),this.getPublicInstance().disableControlIcons(),this.reset(),u=u.filter(function(e){return e.svg!==t.svg}),delete this.options,delete this.publicInstance,delete this.pi,this.getPublicInstance=function(){return null}},a.prototype.getPublicInstance=function(){var t=this;return this.publicInstance||(this.publicInstance=this.pi={enablePan:function(){return t.options.panEnabled=!0,t.pi},disablePan:function(){return t.options.panEnabled=!1,t.pi},isPanEnabled:function(){return!!t.options.panEnabled},pan:function(e){return t.pan(e),t.pi},panBy:function(e){return t.panBy(e),t.pi},getPan:function(){return t.getPan()},setBeforePan:function(e){return t.options.beforePan=null===e?null:i.proxy(e,t.publicInstance),t.pi},setOnPan:function(e){return t.options.onPan=null===e?null:i.proxy(e,t.publicInstance),t.pi},enableZoom:function(){return t.options.zoomEnabled=!0,t.pi},disableZoom:function(){return t.options.zoomEnabled=!1,t.pi},isZoomEnabled:function(){return!!t.options.zoomEnabled},enableControlIcons:function(){return t.options.controlIconsEnabled||(t.options.controlIconsEnabled=!0,n.enable(t)),t.pi},disableControlIcons:function(){return t.options.controlIconsEnabled&&(t.options.controlIconsEnabled=!1,n.disable(t)),t.pi},isControlIconsEnabled:function(){return!!t.options.controlIconsEnabled},enableDblClickZoom:function(){return t.options.dblClickZoomEnabled=!0,t.pi},disableDblClickZoom:function(){return t.options.dblClickZoomEnabled=!1,t.pi},isDblClickZoomEnabled:function(){return!!t.options.dblClickZoomEnabled},enableMouseWheelZoom:function(){return t.enableMouseWheelZoom(),t.pi},disableMouseWheelZoom:function(){return t.disableMouseWheelZoom(),t.pi},isMouseWheelZoomEnabled:function(){return!!t.options.mouseWheelZoomEnabled},setZoomScaleSensitivity:function(e){return t.options.zoomScaleSensitivity=e,t.pi},setMinZoom:function(e){return t.options.minZoom=e,t.pi},setMaxZoom:function(e){return t.options.maxZoom=e,t.pi},setBeforeZoom:function(e){return t.options.beforeZoom=null===e?null:i.proxy(e,t.publicInstance),t.pi},setOnZoom:function(e){return t.options.onZoom=null===e?null:i.proxy(e,t.publicInstance),t.pi},zoom:function(e){return t.publicZoom(e,!0),t.pi},zoomBy:function(e){return t.publicZoom(e,!1),t.pi},zoomAtPoint:function(e,o){return t.publicZoomAtPoint(e,o,!0),t.pi},zoomAtPointBy:function(e,o){return t.publicZoomAtPoint(e,o,!1),t.pi},zoomIn:function(){return this.zoomBy(1+t.options.zoomScaleSensitivity),t.pi},zoomOut:function(){return this.zoomBy(1/(1+t.options.zoomScaleSensitivity)),t.pi},getZoom:function(){return t.getRelativeZoom()},resetZoom:function(){return t.resetZoom(),t.pi},resetPan:function(){return t.resetPan(),t.pi},reset:function(){return t.reset(),t.pi},fit:function(){return t.fit(),t.pi},contain:function(){return t.contain(),t.pi},center:function(){return t.center(),t.pi},updateBBox:function(){return t.updateBBox(),t.pi},resize:function(){return t.resize(),t.pi},getSizes:function(){return{width:t.width,height:t.height,realZoom:t.getZoom(),viewBox:t.viewport.getViewBox()}},destroy:function(){return t.destroy(),t.pi}}),this.publicInstance};var u=[],h=function(t,e){var o=i.getSvg(t);if(null===o)return null;for(var n=u.length-1;n>=0;n--)if(u[n].svg===o)return u[n].instance.getPublicInstance();return u.push({svg:o,instance:new a(o,e)}),u[u.length-1].instance.getPublicInstance()};e.exports=h},{"./control-icons":2,"./shadow-viewport":3,"./svg-utilities":5,"./uniwheel":6,"./utilities":7}],5:[function(t,e){var o=t("./utilities"),n="unknown";document.documentMode&&(n="ie"),e.exports={svgNS:"http://www.w3.org/2000/svg",xmlNS:"http://www.w3.org/XML/1998/namespace",xmlnsNS:"http://www.w3.org/2000/xmlns/",xlinkNS:"http://www.w3.org/1999/xlink",evNS:"http://www.w3.org/2001/xml-events",getBoundingClientRectNormalized:function(t){if(t.clientWidth&&t.clientHeight)return{width:t.clientWidth,height:t.clientHeight};if(t.getBoundingClientRect())return t.getBoundingClientRect();throw new Error("Cannot get BoundingClientRect for SVG.")},getOrCreateViewport:function(t,e){var n=null;if(n=o.isElement(e)?e:t.querySelector(e),!n){var i=Array.prototype.slice.call(t.childNodes||t.children).filter(function(t){return"defs"!==t.nodeName&&"#text"!==t.nodeName});1===i.length&&"g"===i[0].nodeName&&null===i[0].getAttribute("transform")&&(n=i[0])}if(!n){var s="viewport-"+(new Date).toISOString().replace(/\D/g,"");n=document.createElementNS(this.svgNS,"g"),n.setAttribute("id",s);var r=t.childNodes||t.children;if(r&&r.length>0)for(var a=r.length;a>0;a--)"defs"!==r[r.length-a].nodeName&&n.appendChild(r[r.length-a]);t.appendChild(n)}var l=[];return n.getAttribute("class")&&(l=n.getAttribute("class").split(" ")),~l.indexOf("svg-pan-zoom_viewport")||(l.push("svg-pan-zoom_viewport"),n.setAttribute("class",l.join(" "))),n},setupSvgAttributes:function(t){if(t.setAttribute("xmlns",this.svgNS),t.setAttributeNS(this.xmlnsNS,"xmlns:xlink",this.xlinkNS),t.setAttributeNS(this.xmlnsNS,"xmlns:ev",this.evNS),null!==t.parentNode){var e=t.getAttribute("style")||"";-1===e.toLowerCase().indexOf("overflow")&&t.setAttribute("style","overflow: hidden; "+e)}},internetExplorerRedisplayInterval:300,refreshDefsGlobal:o.throttle(function(){for(var t=document.querySelectorAll("defs"),e=t.length,o=0;e>o;o++){var n=t[o];n.parentNode.insertBefore(n,n)}},this.internetExplorerRedisplayInterval),setCTM:function(t,e,o){var i=this,s="matrix("+e.a+","+e.b+","+e.c+","+e.d+","+e.e+","+e.f+")";t.setAttributeNS(null,"transform",s),"ie"===n&&o&&(o.parentNode.insertBefore(o,o),window.setTimeout(function(){i.refreshDefsGlobal()},i.internetExplorerRedisplayInterval))},getEventPoint:function(t,e){var n=e.createSVGPoint();return o.mouseAndTouchNormalize(t,e),n.x=t.clientX,n.y=t.clientY,n},getSvgCenterPoint:function(t,e,o){return this.createSVGPoint(t,e/2,o/2)},createSVGPoint:function(t,e,o){var n=t.createSVGPoint();return n.x=e,n.y=o,n}}},{"./utilities":7}],6:[function(t,e){e.exports=function(){function t(t,e,o){var n=function(t){!t&&(t=window.event);var o={originalEvent:t,target:t.target||t.srcElement,type:"wheel",deltaMode:"MozMousePixelScroll"==t.type?0:1,deltaX:0,delatZ:0,preventDefault:function(){t.preventDefault?t.preventDefault():t.returnValue=!1}};return"mousewheel"==u?(o.deltaY=-1/40*t.wheelDelta,t.wheelDeltaX&&(o.deltaX=-1/40*t.wheelDeltaX)):o.deltaY=t.detail,e(o)};return c.push({element:t,fn:n,capture:o}),n}function e(t,e){for(var o=0;o<c.length;o++)if(c[o].element===t&&c[o].capture===e)return c[o].fn;return function(){}}function o(t,e){for(var o=0;o<c.length;o++)if(c[o].element===t&&c[o].capture===e)return c.splice(o,1)}function n(e,o,n,i){var s;s="wheel"===u?n:t(e,n,i),e[a](h+o,s,i||!1)}function i(t,n,i,s){cb="wheel"===u?i:e(t,s),t[l](h+n,cb,s||!1),o(t,s)}function s(t,e,o){n(t,u,e,o),"DOMMouseScroll"==u&&n(t,"MozMousePixelScroll",e,o)}function r(t,e,o){i(t,u,e,o),"DOMMouseScroll"==u&&i(t,"MozMousePixelScroll",e,o)}var a,l,u,h="",c=[];return window.addEventListener?(a="addEventListener",l="removeEventListener"):(a="attachEvent",l="detachEvent",h="on"),u="onwheel"in document.createElement("div")?"wheel":void 0!==document.onmousewheel?"mousewheel":"DOMMouseScroll",{on:s,off:r}}()},{}],7:[function(t,e){function o(t){return function(e){window.setTimeout(e,t)}}e.exports={extend:function(t,e){t=t||{};for(var o in e)t[o]=this.isObject(e[o])?this.extend(t[o],e[o]):e[o];return t},isElement:function(t){return t instanceof HTMLElement||t instanceof SVGElement||t instanceof SVGSVGElement||t&&"object"==typeof t&&null!==t&&1===t.nodeType&&"string"==typeof t.nodeName},isObject:function(t){return"[object Object]"===Object.prototype.toString.call(t)},isNumber:function(t){return!isNaN(parseFloat(t))&&isFinite(t)},getSvg:function(t){var e,o;if(this.isElement(t))e=t;else{if(!("string"==typeof t||t instanceof String))throw new Error("Provided selector is not an HTML object nor String");if(e=document.querySelector(t),!e)throw new Error("Provided selector did not find any elements. Selector: "+t)}if("svg"===e.tagName.toLowerCase())o=e;else if("object"===e.tagName.toLowerCase())o=e.contentDocument.documentElement;else{if("embed"!==e.tagName.toLowerCase())throw new Error("img"===e.tagName.toLowerCase()?'Cannot script an SVG in an "img" element. Please use an "object" element or an in-line SVG.':"Cannot get SVG.");o=e.getSVGDocument().documentElement}return o},proxy:function(t,e){return function(){return t.apply(e,arguments)}},getType:function(t){return Object.prototype.toString.apply(t).replace(/^\[object\s/,"").replace(/\]$/,"")},mouseAndTouchNormalize:function(t,e){if(void 0===t.clientX||null===t.clientX)if(t.clientX=0,t.clientY=0,void 0!==t.changedTouches&&t.changedTouches.length){if(void 0!==t.changedTouches[0].clientX)t.clientX=t.changedTouches[0].clientX,t.clientY=t.changedTouches[0].clientY;else if(void 0!==t.changedTouches[0].pageX){var o=e.getBoundingClientRect();t.clientX=t.changedTouches[0].pageX-o.left,t.clientY=t.changedTouches[0].pageY-o.top}}else void 0!==t.originalEvent&&void 0!==t.originalEvent.clientX&&(t.clientX=t.originalEvent.clientX,t.clientY=t.originalEvent.clientY)},isDblClick:function(t,e){if(2===t.detail)return!0;if(void 0!==e&&null!==e){var o=t.timeStamp-e.timeStamp,n=Math.sqrt(Math.pow(t.clientX-e.clientX,2)+Math.pow(t.clientY-e.clientY,2));return 250>o&&10>n}return!1},now:Date.now||function(){return(new Date).getTime()},throttle:function(t,e,o){var n,i,s,r=this,a=null,l=0;o||(o={});var u=function(){l=o.leading===!1?0:r.now(),a=null,s=t.apply(n,i),a||(n=i=null)};return function(){var h=r.now();l||o.leading!==!1||(l=h);var c=e-(h-l);return n=this,i=arguments,0>=c||c>e?(clearTimeout(a),a=null,l=h,s=t.apply(n,i),a||(n=i=null)):a||o.trailing===!1||(a=setTimeout(u,c)),s}},createRequestAnimationFrame:function(t){var e=null;return"auto"!==t&&60>t&&t>1&&(e=Math.floor(1e3/t)),null===e?window.requestAnimationFrame||o(33):o(e)}}},{}]},{},[1]);
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/lists/files.html b/reference/rte-fortran-interface/lists/files.html
new file mode 100644
index 000000000..87f492d52
--- /dev/null
+++ b/reference/rte-fortran-interface/lists/files.html
@@ -0,0 +1,397 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>All Files &ndash; RTE-Fortran
+</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+      <div class="row" id='text'>
+        <div class="col-lg-12">
+			 <h1>Source Files</h1>
+			 <table class="table table-striped">
+			 <thead><tr><th>File</th><th>Description</th></tr></thead>
+			 <tbody>
+			   <tr><td><a href='../sourcefile/mo_fluxes.f90.html'>mo_fluxes.F90</a></td><td></td></tr>
+			   <tr><td><a href='../sourcefile/mo_optical_props.f90.html'>mo_optical_props.F90</a></td><td></td></tr>
+			   <tr><td><a href='../sourcefile/mo_rte_config.f90.html'>mo_rte_config.F90</a></td><td></td></tr>
+			   <tr><td><a href='../sourcefile/mo_rte_kind.f90.html'>mo_rte_kind.F90</a></td><td></td></tr>
+			   <tr><td><a href='../sourcefile/mo_rte_lw.f90.html'>mo_rte_lw.F90</a></td><td></td></tr>
+			   <tr><td><a href='../sourcefile/mo_rte_sw.f90.html'>mo_rte_sw.F90</a></td><td></td></tr>
+			   <tr><td><a href='../sourcefile/mo_rte_util_array_validation.f90.html'>mo_rte_util_array_validation.F90</a></td><td></td></tr>
+			   <tr><td><a href='../sourcefile/mo_source_functions.f90.html'>mo_source_functions.F90</a></td><td></td></tr>
+			 </tbody></table>
+			 <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: file~~graph~~FileGraph Pages: 1 -->
+<svg id="filegraphFileGraph" width="641pt" height="230pt"
+ viewBox="0.00 0.00 641.00 230.17" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="file~~graph~~FileGraph" class="graph" transform="scale(1.25 1.25) rotate(0) translate(4 284.7)">
+<title>file~~graph~~FileGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-284.7 800,-284.7 800,4 -4,4"/>
+<!-- sourcefile~mo_rte_lw.f90 -->
+<g id="file~~graph~~FileGraph_node1" class="node">
+<title>sourcefile~mo_rte_lw.f90</title>
+<g id="a_file~~graph~~FileGraph_node1"><a xlink:href=".././sourcefile/mo_rte_lw.f90.html" xlink:title="mo_rte_lw.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="89.5,-104.08 1.5,-104.08 1.5,-80.08 89.5,-80.08 89.5,-104.08"/>
+<text text-anchor="middle" x="45.5" y="-89.68" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_lw.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_config.f90 -->
+<g id="file~~graph~~FileGraph_node2" class="node">
+<title>sourcefile~mo_rte_config.f90</title>
+<g id="a_file~~graph~~FileGraph_node2"><a xlink:href=".././sourcefile/mo_rte_config.f90.html" xlink:title="mo_rte_config.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="622.5,-238.08 511.5,-238.08 511.5,-214.08 622.5,-214.08 622.5,-238.08"/>
+<text text-anchor="middle" x="567" y="-223.68" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_config.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_config.f90&#45;&gt;sourcefile~mo_rte_lw.f90 -->
+<g id="file~~graph~~FileGraph_edge2" class="edge">
+<title>sourcefile~mo_rte_config.f90&#45;&gt;sourcefile~mo_rte_lw.f90</title>
+<path fill="none" stroke="#000000" d="M373,-228.08C317.26,-222.54 173.61,-204.15 127,-173.08 103.92,-157.69 110.83,-141.48 91,-122.08 86.56,-117.74 81.42,-113.62 76.24,-109.91"/>
+<polygon fill="#000000" stroke="#000000" points="77.86,-106.78 67.61,-104.08 73.94,-112.58 77.86,-106.78"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90 -->
+<g id="file~~graph~~FileGraph_node3" class="node">
+<title>sourcefile~mo_fluxes.f90</title>
+<g id="a_file~~graph~~FileGraph_node3"><a xlink:href=".././sourcefile/mo_fluxes.f90.html" xlink:title="mo_fluxes.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="245,-164.08 156,-164.08 156,-140.08 245,-140.08 245,-164.08"/>
+<text text-anchor="middle" x="200.5" y="-149.68" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_fluxes.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_config.f90&#45;&gt;sourcefile~mo_fluxes.f90 -->
+<g id="file~~graph~~FileGraph_edge9" class="edge">
+<title>sourcefile~mo_rte_config.f90&#45;&gt;sourcefile~mo_fluxes.f90</title>
+<path fill="none" stroke="#000000" d="M511.11,-229.82C472.86,-231.66 420.7,-232.61 375,-228.08"/>
+<path fill="none" stroke="#000000" d="M373,-228.08C343.18,-225.12 336.37,-218.3 310,-204.08 292.63,-194.71 291.46,-187.28 274,-178.08 266.77,-174.27 258.85,-170.79 251,-167.71"/>
+<polygon fill="#000000" stroke="#000000" points="252.08,-164.38 241.49,-164.15 249.63,-170.94 252.08,-164.38"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90 -->
+<g id="file~~graph~~FileGraph_node4" class="node">
+<title>sourcefile~mo_optical_props.f90</title>
+<g id="a_file~~graph~~FileGraph_node4"><a xlink:href=".././sourcefile/mo_optical_props.f90.html" xlink:title="mo_optical_props.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="438,-124.08 310,-124.08 310,-100.08 438,-100.08 438,-124.08"/>
+<text text-anchor="middle" x="374" y="-109.68" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_config.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="file~~graph~~FileGraph_edge13" class="edge">
+<title>sourcefile~mo_rte_config.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" d="M550.53,-213.83C527.13,-195.7 480.91,-161.34 438,-138.08 431.49,-134.55 424.4,-131.19 417.4,-128.13"/>
+<polygon fill="#000000" stroke="#000000" points="418.56,-124.82 407.98,-124.16 415.84,-131.27 418.56,-124.82"/>
+</g>
+<!-- sourcefile~mo_rte_sw.f90 -->
+<g id="file~~graph~~FileGraph_node7" class="node">
+<title>sourcefile~mo_rte_sw.f90</title>
+<g id="a_file~~graph~~FileGraph_node7"><a xlink:href=".././sourcefile/mo_rte_sw.f90.html" xlink:title="mo_rte_sw.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="91,-155.08 0,-155.08 0,-131.08 91,-131.08 91,-155.08"/>
+<text text-anchor="middle" x="45.5" y="-140.68" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_sw.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_config.f90&#45;&gt;sourcefile~mo_rte_sw.f90 -->
+<g id="file~~graph~~FileGraph_edge18" class="edge">
+<title>sourcefile~mo_rte_config.f90&#45;&gt;sourcefile~mo_rte_sw.f90</title>
+<path fill="none" stroke="#000000" d="M373,-228.08C297.15,-220.55 276,-246.23 201.5,-230.08"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_lw.f90 -->
+<g id="file~~graph~~FileGraph_edge6" class="edge">
+<title>sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_lw.f90</title>
+<path fill="none" stroke="#000000" d="M164.69,-140.03C152.69,-135.77 139.21,-130.84 127,-126.08 112.67,-120.49 97.06,-113.99 83.44,-108.18"/>
+<polygon fill="#000000" stroke="#000000" points="84.49,-104.83 73.92,-104.1 81.73,-111.26 84.49,-104.83"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_sw.f90 -->
+<g id="file~~graph~~FileGraph_edge17" class="edge">
+<title>sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_sw.f90</title>
+<path fill="none" stroke="#000000" d="M155.66,-149.5C138.67,-148.5 119.05,-147.34 101.16,-146.29"/>
+<polygon fill="#000000" stroke="#000000" points="101.34,-142.8 91.15,-145.7 100.92,-149.78 101.34,-142.8"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_lw.f90 -->
+<g id="file~~graph~~FileGraph_edge5" class="edge">
+<title>sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_lw.f90</title>
+<path fill="none" stroke="#000000" d="M309.87,-111.54C277.47,-111.4 237.37,-111.44 201.5,-112.08"/>
+<path fill="none" stroke="#000000" d="M199.5,-112.08C166.08,-112.67 128.88,-107.93 99.54,-102.92"/>
+<polygon fill="#000000" stroke="#000000" points="99.96,-99.44 89.5,-101.15 98.74,-106.33 99.96,-99.44"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_fluxes.f90 -->
+<g id="file~~graph~~FileGraph_edge11" class="edge">
+<title>sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_fluxes.f90</title>
+<path fill="none" stroke="#000000" d="M321.54,-124.08C300.51,-128.99 276.17,-134.66 254.93,-139.62"/>
+<polygon fill="#000000" stroke="#000000" points="254.04,-136.23 245.1,-141.91 255.63,-143.05 254.04,-136.23"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_sw.f90 -->
+<g id="file~~graph~~FileGraph_edge20" class="edge">
+<title>sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_sw.f90</title>
+<path fill="none" stroke="#000000" d="M199.5,-112.08C164.2,-112.7 125.2,-120.72 95.42,-128.44"/>
+<polygon fill="#000000" stroke="#000000" points="94.45,-125.08 85.69,-131.04 96.25,-131.84 94.45,-125.08"/>
+</g>
+<!-- sourcefile~mo_source_functions.f90 -->
+<g id="file~~graph~~FileGraph_node8" class="node">
+<title>sourcefile~mo_source_functions.f90</title>
+<g id="a_file~~graph~~FileGraph_node8"><a xlink:href=".././sourcefile/mo_source_functions.f90.html" xlink:title="mo_source_functions.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="274,-46.08 127,-46.08 127,-22.08 274,-22.08 274,-46.08"/>
+<text text-anchor="middle" x="200.5" y="-31.68" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_source_functions.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_source_functions.f90 -->
+<g id="file~~graph~~FileGraph_edge22" class="edge">
+<title>sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_source_functions.f90</title>
+<path fill="none" stroke="#000000" d="M346.58,-100.06C317.25,-86.72 269.75,-65.12 237.14,-50.29"/>
+<polygon fill="#000000" stroke="#000000" points="238.5,-47.06 227.95,-46.11 235.6,-53.43 238.5,-47.06"/>
+</g>
+<!-- sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="file~~graph~~FileGraph_node5" class="node">
+<title>sourcefile~mo_rte_util_array_validation.f90</title>
+<g id="a_file~~graph~~FileGraph_node5"><a xlink:href=".././sourcefile/mo_rte_util_array_validation.f90.html" xlink:title="mo_rte_util_array_validation.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="660,-141.08 474,-141.08 474,-117.08 660,-117.08 660,-141.08"/>
+<text text-anchor="middle" x="567" y="-126.68" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array_validation.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_util_array_validation.f90&#45;&gt;sourcefile~mo_rte_lw.f90 -->
+<g id="file~~graph~~FileGraph_edge3" class="edge">
+<title>sourcefile~mo_rte_util_array_validation.f90&#45;&gt;sourcefile~mo_rte_lw.f90</title>
+<path fill="none" stroke="#000000" d="M534.75,-117.04C509.17,-107.86 471.84,-95.99 438,-91.08 318.19,-73.67 175.57,-80.97 99.89,-87.02"/>
+<polygon fill="#000000" stroke="#000000" points="99.34,-83.56 89.66,-87.87 99.91,-90.53 99.34,-83.56"/>
+</g>
+<!-- sourcefile~mo_rte_util_array_validation.f90&#45;&gt;sourcefile~mo_fluxes.f90 -->
+<g id="file~~graph~~FileGraph_edge10" class="edge">
+<title>sourcefile~mo_rte_util_array_validation.f90&#45;&gt;sourcefile~mo_fluxes.f90</title>
+<path fill="none" stroke="#000000" d="M473.92,-138.28C442.45,-141.92 407.1,-146.57 375,-152.08"/>
+<path fill="none" stroke="#000000" d="M373,-152.08C334.04,-158.76 289.36,-158.51 255.38,-156.72"/>
+<polygon fill="#000000" stroke="#000000" points="255.38,-153.22 245.19,-156.12 254.97,-160.21 255.38,-153.22"/>
+</g>
+<!-- sourcefile~mo_rte_util_array_validation.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="file~~graph~~FileGraph_edge14" class="edge">
+<title>sourcefile~mo_rte_util_array_validation.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" d="M473.86,-120.88C465.24,-120.11 456.59,-119.34 448.19,-118.59"/>
+<polygon fill="#000000" stroke="#000000" points="448.35,-115.09 438.08,-117.69 447.73,-122.06 448.35,-115.09"/>
+</g>
+<!-- sourcefile~mo_rte_util_array_validation.f90&#45;&gt;sourcefile~mo_rte_sw.f90 -->
+<g id="file~~graph~~FileGraph_edge19" class="edge">
+<title>sourcefile~mo_rte_util_array_validation.f90&#45;&gt;sourcefile~mo_rte_sw.f90</title>
+<path fill="none" stroke="#000000" d="M373,-152.08C290.47,-166.23 283.33,-247.83 201.5,-230.08"/>
+<path fill="none" stroke="#000000" d="M199.5,-230.08C166.33,-222.88 156.92,-222.11 127,-206.08 104.62,-194.09 82.11,-175.82 66.61,-162.04"/>
+<polygon fill="#000000" stroke="#000000" points="68.94,-159.43 59.18,-155.3 64.24,-164.61 68.94,-159.43"/>
+</g>
+<!-- sourcefile~mo_rte_kind.f90 -->
+<g id="file~~graph~~FileGraph_node6" class="node">
+<title>sourcefile~mo_rte_kind.f90</title>
+<g id="a_file~~graph~~FileGraph_node6"><a xlink:href=".././sourcefile/mo_rte_kind.f90.html" xlink:title="mo_rte_kind.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="796,-198.08 696,-198.08 696,-174.08 796,-174.08 796,-198.08"/>
+<text text-anchor="middle" x="746" y="-183.68" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_kind.f90&#45;&gt;sourcefile~mo_rte_lw.f90 -->
+<g id="file~~graph~~FileGraph_edge1" class="edge">
+<title>sourcefile~mo_rte_kind.f90&#45;&gt;sourcefile~mo_rte_lw.f90</title>
+<path fill="none" stroke="#000000" d="M736.95,-173.8C714.81,-141.47 649.19,-55.01 568,-34.08"/>
+<path fill="none" stroke="#000000" d="M566,-34.08C483.8,-12.89 459.75,-38.95 375,-34.08"/>
+<path fill="none" stroke="#000000" d="M373,-34.08C328.1,-31.5 318.73,-17.77 274,-13.08 209.02,-6.26 187.48,11.64 127,-13.08 98.36,-24.78 74.42,-52.13 60.27,-71.35"/>
+<polygon fill="#000000" stroke="#000000" points="57.23,-69.59 54.31,-79.78 62.94,-73.63 57.23,-69.59"/>
+</g>
+<!-- sourcefile~mo_rte_kind.f90&#45;&gt;sourcefile~mo_rte_config.f90 -->
+<g id="file~~graph~~FileGraph_edge7" class="edge">
+<title>sourcefile~mo_rte_kind.f90&#45;&gt;sourcefile~mo_rte_config.f90</title>
+<path fill="none" stroke="#000000" d="M695.7,-197.22C675.74,-201.73 652.45,-206.99 631.26,-211.78"/>
+<polygon fill="#000000" stroke="#000000" points="630.36,-208.4 621.38,-214.01 631.91,-215.22 630.36,-208.4"/>
+</g>
+<!-- sourcefile~mo_rte_kind.f90&#45;&gt;sourcefile~mo_fluxes.f90 -->
+<g id="file~~graph~~FileGraph_edge8" class="edge">
+<title>sourcefile~mo_rte_kind.f90&#45;&gt;sourcefile~mo_fluxes.f90</title>
+<path fill="none" stroke="#000000" d="M695.99,-185.14C615.35,-183.3 449.71,-178.28 310,-166.08 292.13,-164.52 272.67,-162.2 255.23,-159.9"/>
+<polygon fill="#000000" stroke="#000000" points="255.61,-156.42 245.23,-158.55 254.67,-163.36 255.61,-156.42"/>
+</g>
+<!-- sourcefile~mo_rte_kind.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="file~~graph~~FileGraph_edge12" class="edge">
+<title>sourcefile~mo_rte_kind.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" d="M566,-34.08C502.05,-17.59 431.14,-65.31 396.47,-93.3"/>
+<polygon fill="#000000" stroke="#000000" points="393.93,-90.87 388.46,-99.95 398.39,-96.26 393.93,-90.87"/>
+</g>
+<!-- sourcefile~mo_rte_kind.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="file~~graph~~FileGraph_edge15" class="edge">
+<title>sourcefile~mo_rte_kind.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90</title>
+<path fill="none" stroke="#000000" d="M707.46,-173.99C680.59,-165.34 644.22,-153.62 615.35,-144.33"/>
+<polygon fill="#000000" stroke="#000000" points="616.07,-140.88 605.48,-141.15 613.93,-147.55 616.07,-140.88"/>
+</g>
+<!-- sourcefile~mo_rte_kind.f90&#45;&gt;sourcefile~mo_rte_sw.f90 -->
+<g id="file~~graph~~FileGraph_edge16" class="edge">
+<title>sourcefile~mo_rte_kind.f90&#45;&gt;sourcefile~mo_rte_sw.f90</title>
+<path fill="none" stroke="#000000" d="M733.42,-198.12C718.21,-212.98 689.91,-237.45 660,-247.08 465.88,-309.52 400.78,-273.3 201.5,-230.08"/>
+</g>
+<!-- sourcefile~mo_rte_kind.f90&#45;&gt;sourcefile~mo_source_functions.f90 -->
+<g id="file~~graph~~FileGraph_edge21" class="edge">
+<title>sourcefile~mo_rte_kind.f90&#45;&gt;sourcefile~mo_source_functions.f90</title>
+<path fill="none" stroke="#000000" d="M373,-34.08C344.14,-32.42 312.51,-32.02 284.36,-32.16"/>
+<polygon fill="#000000" stroke="#000000" points="284.13,-28.66 274.15,-32.24 284.18,-35.66 284.13,-28.66"/>
+</g>
+<!-- sourcefile~mo_source_functions.f90&#45;&gt;sourcefile~mo_rte_lw.f90 -->
+<g id="file~~graph~~FileGraph_edge4" class="edge">
+<title>sourcefile~mo_source_functions.f90&#45;&gt;sourcefile~mo_rte_lw.f90</title>
+<path fill="none" stroke="#000000" d="M165.11,-46.14C153.03,-50.45 139.38,-55.4 127,-60.08 113.55,-65.16 98.91,-70.91 85.86,-76.12"/>
+<polygon fill="#000000" stroke="#000000" points="84.21,-73.01 76.23,-79.98 86.81,-79.51 84.21,-73.01"/>
+</g>
+</g>
+</svg>
+</div><script>var panfilegraphFileGraph = svgPanZoom('#filegraphFileGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="202pt" height="32pt"
+ viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<!-- Source File -->
+<g id="node1" class="node">
+<title>Source File</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
+<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node2" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
+<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a file to a file which it depends on. A file
+    is dependent upon another if the latter must be compiled before the former
+    can be.
+    </p>
+    </div></div></div></div>
+        </div>
+      </div>
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/lists/modules.html b/reference/rte-fortran-interface/lists/modules.html
new file mode 100644
index 000000000..8491d77da
--- /dev/null
+++ b/reference/rte-fortran-interface/lists/modules.html
@@ -0,0 +1,503 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>All Modules &ndash; RTE-Fortran
+</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+      <div class="row">
+        <div class="col-lg-12" id='text'>
+			 <h1>Modules</h1>
+			 <table class="table">
+			 <thead><tr><th>Module</th><th>Source File</th><th>Description</th></tr></thead>
+			 <tbody>
+			   <tr class="active"><td><a href='../module/mo_fluxes.html'>mo_fluxes</a></td><td><a href='../sourcefile/mo_fluxes.f90.html'>mo_fluxes.F90</a></td><td><p>This module contains an abstract class and a broadband implmentation that sums over all spectral points
+   The abstract base class defines the routines that extenstions must implement: <code>reduce()</code> and <code>are_desired()</code>
+   The intent is for users to extend it as required, using mo_flxues_broadband as an example</p><a href="../module/mo_fluxes.html" class="pull-right"><emph>Read more&hellip;</emph></a></td></tr>
+<!--active-->			   <tr class=""><td><a href='../module/mo_optical_props.html'>mo_optical_props</a></td><td><a href='../sourcefile/mo_optical_props.f90.html'>mo_optical_props.F90</a></td><td><p>The bands are described by their limiting wavenumbers. They need not be contiguous or complete.
+  A band may contain more than one spectral sub-point (g-point) in which case a mapping must be supplied.
+  A name may be provided and will be prepended to error messages.
+  The base class (ty_optical_props) encapsulates only this spectral discretization and must be initialized
+     with the spectral information before use.</p><a href="../module/mo_optical_props.html" class="pull-right"><emph>Read more&hellip;</emph></a></td></tr>
+<!---->			   <tr class="active"><td><a href='../module/mo_rte_config.html'>mo_rte_config</a></td><td><a href='../sourcefile/mo_rte_config.f90.html'>mo_rte_config.F90</a></td><td><p>Provides public access to two proteced module variables</p><a href="../module/mo_rte_config.html" class="pull-right"><emph>Read more&hellip;</emph></a></td></tr>
+<!--active-->			   <tr class=""><td><a href='../module/mo_rte_kind.html'>mo_rte_kind</a></td><td><a href='../sourcefile/mo_rte_kind.f90.html'>mo_rte_kind.F90</a></td><td><p>By default kind parameters come from the ISO C binding and use double precision for working.</p><a href="../module/mo_rte_kind.html" class="pull-right"><emph>Read more&hellip;</emph></a></td></tr>
+<!---->			   <tr class="active"><td><a href='../module/mo_rte_lw.html'>mo_rte_lw</a></td><td><a href='../sourcefile/mo_rte_lw.f90.html'>mo_rte_lw.F90</a></td><td><p>Compute longwave radiative fluxes</p><a href="../module/mo_rte_lw.html" class="pull-right"><emph>Read more&hellip;</emph></a></td></tr>
+<!--active-->			   <tr class=""><td><a href='../module/mo_rte_sw.html'>mo_rte_sw</a></td><td><a href='../sourcefile/mo_rte_sw.f90.html'>mo_rte_sw.F90</a></td><td><p>Compute shortwave radiative fluxes
+ Contains a single routine to compute direct and diffuse fluxes of solar radiation given</p><a href="../module/mo_rte_sw.html" class="pull-right"><emph>Read more&hellip;</emph></a></td></tr>
+<!---->			   <tr class="active"><td><a href='../module/mo_rte_util_array_validation.html'>mo_rte_util_array_validation</a></td><td><a href='../sourcefile/mo_rte_util_array_validation.f90.html'>mo_rte_util_array_validation.F90</a></td><td><p>Provide utilites for sanitizing input arrays:</p></td></tr>
+<!--active-->			   <tr class=""><td><a href='../module/mo_source_functions.html'>mo_source_functions</a></td><td><a href='../sourcefile/mo_source_functions.f90.html'>mo_source_functions.F90</a></td><td><p>Encapsulate source function arrays for longwave/lw/internal sources</p></td></tr>
+<!---->			 </tbody></table>
+             <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: module~~graph~~ModuleGraph Pages: 1 -->
+<svg id="modulegraphModuleGraph" width="855pt" height="371pt"
+ viewBox="0.00 0.00 855.00 370.81" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~graph~~ModuleGraph" class="graph" transform="scale(1.04 1.04) rotate(0) translate(4 381.12)">
+<title>module~~graph~~ModuleGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-381.12 884,-381.12 884,4 -4,4"/>
+<!-- module~mo_rte_lw -->
+<g id="module~~graph~~ModuleGraph_node1" class="node">
+<title>module~mo_rte_lw</title>
+<g id="a_module~~graph~~ModuleGraph_node1"><a xlink:href=".././module/mo_rte_lw.html" xlink:title="mo_rte_lw">
+<polygon fill="#337ab7" stroke="#337ab7" points="879,-272.67 812,-272.67 812,-248.67 879,-248.67 879,-272.67"/>
+<text text-anchor="middle" x="845.5" y="-258.27" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_lw</text>
+</a>
+</g>
+</g>
+<!-- module~mo_source_functions -->
+<g id="module~~graph~~ModuleGraph_node2" class="node">
+<title>module~mo_source_functions</title>
+<g id="a_module~~graph~~ModuleGraph_node2"><a xlink:href=".././module/mo_source_functions.html" xlink:title="mo_source_functions">
+<polygon fill="#337ab7" stroke="#337ab7" points="771,-332.67 647,-332.67 647,-308.67 771,-308.67 771,-332.67"/>
+<text text-anchor="middle" x="709" y="-318.27" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_source_functions</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_source_functions -->
+<g id="module~~graph~~ModuleGraph_edge2" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_source_functions</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M820.9,-272.76C807.55,-279.46 790.47,-287.8 775,-294.67 767.34,-298.07 759.09,-301.52 751.12,-304.76"/>
+<polygon fill="#000000" stroke="#000000" points="749.58,-301.6 741.61,-308.57 752.19,-308.1 749.58,-301.6"/>
+</g>
+<!-- module~mo_rte_util_array_validation -->
+<g id="module~~graph~~ModuleGraph_node3" class="node">
+<title>module~mo_rte_util_array_validation</title>
+<g id="a_module~~graph~~ModuleGraph_node3"><a xlink:href=".././module/mo_rte_util_array_validation.html" xlink:title="mo_rte_util_array_validation">
+<polygon fill="#337ab7" stroke="#337ab7" points="397,-79.67 234,-79.67 234,-55.67 397,-55.67 397,-79.67"/>
+<text text-anchor="middle" x="315.5" y="-65.27" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array_validation</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_rte_util_array_validation -->
+<g id="module~~graph~~ModuleGraph_edge3" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M811.81,-267.92C784.69,-273.35 745.05,-279.97 710,-280.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M708,-280.67C705.34,-280.72 523.53,-241.46 521,-240.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M519,-240.67C433.28,-213.74 361.03,-128.03 331.18,-88.28"/>
+<polygon fill="#000000" stroke="#000000" points="333.9,-86.07 325.15,-80.09 328.26,-90.22 333.9,-86.07"/>
+</g>
+<!-- module~mo_rte_kind -->
+<g id="module~~graph~~ModuleGraph_node4" class="node">
+<title>module~mo_rte_kind</title>
+<g id="a_module~~graph~~ModuleGraph_node4"><a xlink:href=".././module/mo_rte_kind.html" xlink:title="mo_rte_kind">
+<polygon fill="#337ab7" stroke="#337ab7" points="198,-252.67 120,-252.67 120,-228.67 198,-228.67 198,-252.67"/>
+<text text-anchor="middle" x="159" y="-238.27" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_rte_kind -->
+<g id="module~~graph~~ModuleGraph_edge5" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M838.15,-272.94C827.77,-291.55 805.26,-326.37 775,-341.67 673.98,-392.75 634.07,-355.26 521,-360.67"/>
+</g>
+<!-- module~mo_rte_config -->
+<g id="module~~graph~~ModuleGraph_node5" class="node">
+<title>module~mo_rte_config</title>
+<g id="a_module~~graph~~ModuleGraph_node5"><a xlink:href=".././module/mo_rte_config.html" xlink:title="mo_rte_config">
+<polygon fill="#337ab7" stroke="#337ab7" points="359.5,-252.67 271.5,-252.67 271.5,-228.67 359.5,-228.67 359.5,-252.67"/>
+<text text-anchor="middle" x="315.5" y="-238.27" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_config</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_rte_config -->
+<g id="module~~graph~~ModuleGraph_edge7" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_rte_config</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M519,-240.67C470.04,-225.29 411.08,-227.45 369.44,-232.15"/>
+<polygon fill="#000000" stroke="#000000" points="369.01,-228.67 359.51,-233.35 369.86,-235.62 369.01,-228.67"/>
+</g>
+<!-- module~mo_optical_props -->
+<g id="module~~graph~~ModuleGraph_node6" class="node">
+<title>module~mo_optical_props</title>
+<g id="a_module~~graph~~ModuleGraph_node6"><a xlink:href=".././module/mo_optical_props.html" xlink:title="mo_optical_props">
+<polygon fill="#337ab7" stroke="#337ab7" points="573,-292.67 467,-292.67 467,-268.67 573,-268.67 573,-292.67"/>
+<text text-anchor="middle" x="520" y="-278.27" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_optical_props -->
+<g id="module~~graph~~ModuleGraph_edge6" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M708,-280.67C666.64,-281.5 620.12,-281.5 583.83,-281.3"/>
+<polygon fill="#000000" stroke="#000000" points="583.42,-277.79 573.4,-281.23 583.38,-284.79 583.42,-277.79"/>
+</g>
+<!-- module~mo_fluxes -->
+<g id="module~~graph~~ModuleGraph_node8" class="node">
+<title>module~mo_fluxes</title>
+<g id="a_module~~graph~~ModuleGraph_node8"><a xlink:href=".././module/mo_fluxes.html" xlink:title="mo_fluxes">
+<polygon fill="#337ab7" stroke="#337ab7" points="742.5,-130.67 675.5,-130.67 675.5,-106.67 742.5,-106.67 742.5,-130.67"/>
+<text text-anchor="middle" x="709" y="-116.27" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_fluxes</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_fluxes -->
+<g id="module~~graph~~ModuleGraph_edge8" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_fluxes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M835.09,-248.41C822.17,-231.81 797.92,-201.52 775,-177.67 761.49,-163.61 745.24,-148.86 732.37,-137.63"/>
+<polygon fill="#000000" stroke="#000000" points="734.32,-134.69 724.47,-130.8 729.74,-139.98 734.32,-134.69"/>
+</g>
+<!-- mo_rte_util_array -->
+<g id="module~~graph~~ModuleGraph_node9" class="node">
+<title>mo_rte_util_array</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="762,-252.67 656,-252.67 656,-228.67 762,-228.67 762,-252.67"/>
+<text text-anchor="middle" x="709" y="-238.27" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array</text>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;mo_rte_util_array -->
+<g id="module~~graph~~ModuleGraph_edge1" class="edge">
+<title>module~mo_rte_lw&#45;&gt;mo_rte_util_array</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M811.94,-255.83C799.93,-254.04 785.88,-251.95 772.13,-249.91"/>
+<polygon fill="#000000" stroke="#000000" points="772.6,-246.44 762.19,-248.43 771.57,-253.36 772.6,-246.44"/>
+</g>
+<!-- mo_rte_solver_kernels -->
+<g id="module~~graph~~ModuleGraph_node13" class="node">
+<title>mo_rte_solver_kernels</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="775,-210.67 643,-210.67 643,-186.67 775,-186.67 775,-210.67"/>
+<text text-anchor="middle" x="709" y="-196.27" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_solver_kernels</text>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;mo_rte_solver_kernels -->
+<g id="module~~graph~~ModuleGraph_edge4" class="edge">
+<title>module~mo_rte_lw&#45;&gt;mo_rte_solver_kernels</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M826.51,-248.56C812.81,-239.72 793.27,-227.89 775,-219.67 770.7,-217.73 766.16,-215.89 761.57,-214.16"/>
+<polygon fill="#000000" stroke="#000000" points="762.72,-210.86 752.12,-210.78 760.36,-217.45 762.72,-210.86"/>
+</g>
+<!-- module~mo_source_functions&#45;&gt;module~mo_rte_kind -->
+<g id="module~~graph~~ModuleGraph_edge9" class="edge">
+<title>module~mo_source_functions&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M669.08,-332.76C631.59,-343.5 573.05,-357.92 521,-360.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M519,-360.67C392.23,-367.36 345.25,-402.81 234,-341.67 202,-324.08 180.13,-286.08 168.88,-262.03"/>
+<polygon fill="#000000" stroke="#000000" points="171.97,-260.39 164.7,-252.68 165.58,-263.24 171.97,-260.39"/>
+</g>
+<!-- module~mo_source_functions&#45;&gt;module~mo_optical_props -->
+<g id="module~~graph~~ModuleGraph_edge10" class="edge">
+<title>module~mo_source_functions&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M651.89,-308.67C630.25,-304.04 605.4,-298.72 583.22,-293.98"/>
+<polygon fill="#000000" stroke="#000000" points="583.74,-290.51 573.23,-291.84 582.28,-297.36 583.74,-290.51"/>
+</g>
+<!-- module~mo_rte_util_array_validation&#45;&gt;module~mo_rte_kind -->
+<g id="module~~graph~~ModuleGraph_edge11" class="edge">
+<title>module~mo_rte_util_array_validation&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.64,-79.83C277.33,-109.29 209.99,-184.69 177.74,-220.8"/>
+<polygon fill="#000000" stroke="#000000" points="175.11,-218.5 171.06,-228.29 180.33,-223.16 175.11,-218.5"/>
+</g>
+<!-- iso_c_binding -->
+<g id="module~~graph~~ModuleGraph_node12" class="node">
+<title>iso_c_binding</title>
+<g id="a_module~~graph~~ModuleGraph_node12"><a xlink:href="http://fortranwiki.org/fortran/show/iso_c_binding" xlink:title="iso_c_binding">
+<polygon fill="#337ab7" stroke="#337ab7" points="84,-252.67 0,-252.67 0,-228.67 84,-228.67 84,-252.67"/>
+<text text-anchor="middle" x="42" y="-238.27" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_kind&#45;&gt;iso_c_binding -->
+<g id="module~~graph~~ModuleGraph_edge12" class="edge">
+<title>module~mo_rte_kind&#45;&gt;iso_c_binding</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M119.71,-240.67C111.62,-240.67 102.97,-240.67 94.49,-240.67"/>
+<polygon fill="#000000" stroke="#000000" points="94.29,-237.17 84.29,-240.67 94.29,-244.17 94.29,-237.17"/>
+</g>
+<!-- module~mo_rte_config&#45;&gt;module~mo_rte_kind -->
+<g id="module~~graph~~ModuleGraph_edge13" class="edge">
+<title>module~mo_rte_config&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M271.46,-240.67C251.85,-240.67 228.54,-240.67 208.32,-240.67"/>
+<polygon fill="#000000" stroke="#000000" points="208.07,-237.17 198.07,-240.67 208.07,-244.17 208.07,-237.17"/>
+</g>
+<!-- module~mo_optical_props&#45;&gt;module~mo_rte_util_array_validation -->
+<g id="module~~graph~~ModuleGraph_edge14" class="edge">
+<title>module~mo_optical_props&#45;&gt;module~mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M466.99,-271.46C455.02,-267.64 442.91,-262.26 433,-254.67 375.27,-210.45 339.03,-128.77 324.2,-89.66"/>
+<polygon fill="#000000" stroke="#000000" points="327.32,-88 320.59,-79.82 320.75,-90.42 327.32,-88"/>
+</g>
+<!-- module~mo_optical_props&#45;&gt;module~mo_rte_kind -->
+<g id="module~~graph~~ModuleGraph_edge17" class="edge">
+<title>module~mo_optical_props&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M466.87,-280.46C409.42,-279.48 314.5,-275.61 234,-261.67 224.92,-260.1 215.35,-257.84 206.22,-255.39"/>
+<polygon fill="#000000" stroke="#000000" points="207.11,-252.01 196.54,-252.68 205.22,-258.75 207.11,-252.01"/>
+</g>
+<!-- module~mo_optical_props&#45;&gt;module~mo_rte_config -->
+<g id="module~~graph~~ModuleGraph_edge16" class="edge">
+<title>module~mo_optical_props&#45;&gt;module~mo_rte_config</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M466.85,-270.37C436.95,-264.46 399.51,-257.07 369.47,-251.13"/>
+<polygon fill="#000000" stroke="#000000" points="370.08,-247.69 359.59,-249.18 368.72,-254.55 370.08,-247.69"/>
+</g>
+<!-- mo_optical_props_kernels -->
+<g id="module~~graph~~ModuleGraph_node11" class="node">
+<title>mo_optical_props_kernels</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="390.5,-332.67 240.5,-332.67 240.5,-308.67 390.5,-308.67 390.5,-332.67"/>
+<text text-anchor="middle" x="315.5" y="-318.27" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props_kernels</text>
+</g>
+<!-- module~mo_optical_props&#45;&gt;mo_optical_props_kernels -->
+<g id="module~~graph~~ModuleGraph_edge15" class="edge">
+<title>module~mo_optical_props&#45;&gt;mo_optical_props_kernels</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M466.85,-290.97C442.64,-295.75 413.49,-301.51 387.32,-306.68"/>
+<polygon fill="#000000" stroke="#000000" points="386.59,-303.26 377.46,-308.63 387.94,-310.12 386.59,-303.26"/>
+</g>
+<!-- module~mo_rte_sw -->
+<g id="module~~graph~~ModuleGraph_node7" class="node">
+<title>module~mo_rte_sw</title>
+<g id="a_module~~graph~~ModuleGraph_node7"><a xlink:href=".././module/mo_rte_sw.html" xlink:title="mo_rte_sw">
+<polygon fill="#337ab7" stroke="#337ab7" points="880,-170.67 811,-170.67 811,-146.67 880,-146.67 880,-170.67"/>
+<text text-anchor="middle" x="845.5" y="-156.27" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_sw</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;module~mo_rte_util_array_validation -->
+<g id="module~~graph~~ModuleGraph_edge20" class="edge">
+<title>module~mo_rte_sw&#45;&gt;module~mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M519,-8.67C511.15,-8.02 422.39,-34.89 365.02,-52.58"/>
+<polygon fill="#000000" stroke="#000000" points="363.92,-49.26 355.4,-55.56 365.99,-55.95 363.92,-49.26"/>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;module~mo_rte_kind -->
+<g id="module~~graph~~ModuleGraph_edge22" class="edge">
+<title>module~mo_rte_sw&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.89,-146.6C821.18,-132.87 798.64,-110.66 775,-97.67 748.62,-83.18 738.53,-88.26 710,-78.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M708,-78.67C659.95,-62.52 654.81,-42.54 607,-25.67 570.26,-12.7 559.83,-11.9 521,-8.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M519,-8.67C428.92,-1.16 397.55,12.36 316.5,-27.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.5,-27.67C281.54,-43.95 261.66,-22.45 234,-46.67 182.19,-92.03 166.49,-177.73 161.87,-218.3"/>
+<polygon fill="#000000" stroke="#000000" points="158.36,-218.17 160.83,-228.47 165.33,-218.88 158.36,-218.17"/>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;module~mo_rte_config -->
+<g id="module~~graph~~ModuleGraph_edge23" class="edge">
+<title>module~mo_rte_sw&#45;&gt;module~mo_rte_config</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M708,-78.67C590.17,-35.8 545.09,-85.47 433,-141.67 393.06,-161.7 355.28,-198.19 334.08,-220.83"/>
+<polygon fill="#000000" stroke="#000000" points="331.23,-218.76 327.05,-228.5 336.39,-223.5 331.23,-218.76"/>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;module~mo_optical_props -->
+<g id="module~~graph~~ModuleGraph_edge19" class="edge">
+<title>module~mo_rte_sw&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M810.74,-152.38C767.68,-146.31 692.84,-142.56 643,-177.67 612.12,-199.43 635.56,-229.94 607,-254.67 599.99,-260.74 591.59,-265.4 582.83,-268.96"/>
+<polygon fill="#000000" stroke="#000000" points="581.45,-265.74 573.23,-272.42 583.82,-272.32 581.45,-265.74"/>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;module~mo_fluxes -->
+<g id="module~~graph~~ModuleGraph_edge24" class="edge">
+<title>module~mo_rte_sw&#45;&gt;module~mo_fluxes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M810.91,-148.68C793.23,-143.42 771.38,-136.92 752.53,-131.32"/>
+<polygon fill="#000000" stroke="#000000" points="753.28,-127.89 742.7,-128.39 751.29,-134.6 753.28,-127.89"/>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;mo_rte_util_array -->
+<g id="module~~graph~~ModuleGraph_edge18" class="edge">
+<title>module~mo_rte_sw&#45;&gt;mo_rte_util_array</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.36,-171.11C820.52,-184.77 798.17,-206.51 775,-219.67 771.77,-221.5 768.35,-223.21 764.85,-224.78"/>
+<polygon fill="#000000" stroke="#000000" points="763.35,-221.61 755.42,-228.64 766.01,-228.08 763.35,-221.61"/>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;mo_rte_solver_kernels -->
+<g id="module~~graph~~ModuleGraph_edge21" class="edge">
+<title>module~mo_rte_sw&#45;&gt;mo_rte_solver_kernels</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M810.91,-168.66C795.69,-173.19 777.37,-178.63 760.54,-183.64"/>
+<polygon fill="#000000" stroke="#000000" points="759.43,-180.32 750.84,-186.52 761.42,-187.03 759.43,-180.32"/>
+</g>
+<!-- module~mo_fluxes&#45;&gt;module~mo_rte_util_array_validation -->
+<g id="module~~graph~~ModuleGraph_edge27" class="edge">
+<title>module~mo_fluxes&#45;&gt;module~mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M675.29,-114.41C616.96,-106.81 493.04,-90.67 407.29,-79.5"/>
+<polygon fill="#000000" stroke="#000000" points="407.66,-76.01 397.29,-78.19 406.75,-82.96 407.66,-76.01"/>
+</g>
+<!-- module~mo_fluxes&#45;&gt;module~mo_rte_kind -->
+<g id="module~~graph~~ModuleGraph_edge29" class="edge">
+<title>module~mo_fluxes&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.12,-106.59C598.19,-75.07 381.09,5.03 316.5,-27.67"/>
+</g>
+<!-- module~mo_fluxes&#45;&gt;module~mo_rte_config -->
+<g id="module~~graph~~ModuleGraph_edge28" class="edge">
+<title>module~mo_fluxes&#45;&gt;module~mo_rte_config</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M675.44,-127.81C664.58,-131.72 652.76,-136.95 643,-143.67 623.29,-157.22 627.81,-171.87 607,-183.67 567.21,-206.23 442.31,-224.98 369.89,-234.3"/>
+<polygon fill="#000000" stroke="#000000" points="369.09,-230.88 359.61,-235.61 369.97,-237.82 369.09,-230.88"/>
+</g>
+<!-- module~mo_fluxes&#45;&gt;module~mo_optical_props -->
+<g id="module~~graph~~ModuleGraph_edge26" class="edge">
+<title>module~mo_fluxes&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M675.28,-125.64C663.76,-129.54 651.56,-135.54 643,-144.67 607.81,-182.19 643.78,-218.71 607,-254.67 600.13,-261.39 591.59,-266.38 582.57,-270.08"/>
+<polygon fill="#000000" stroke="#000000" points="581.29,-266.82 573.06,-273.49 583.65,-273.41 581.29,-266.82"/>
+</g>
+<!-- mo_fluxes_broadband_kernels -->
+<g id="module~~graph~~ModuleGraph_node10" class="node">
+<title>mo_fluxes_broadband_kernels</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="607,-174.67 433,-174.67 433,-150.67 607,-150.67 607,-174.67"/>
+<text text-anchor="middle" x="520" y="-160.27" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_fluxes_broadband_kernels</text>
+</g>
+<!-- module~mo_fluxes&#45;&gt;mo_fluxes_broadband_kernels -->
+<g id="module~~graph~~ModuleGraph_edge25" class="edge">
+<title>module~mo_fluxes&#45;&gt;mo_fluxes_broadband_kernels</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M675.43,-126.33C649.74,-132.38 613.2,-140.98 582.1,-148.29"/>
+<polygon fill="#000000" stroke="#000000" points="581.15,-144.92 572.22,-150.62 582.76,-151.73 581.15,-144.92"/>
+</g>
+</g>
+</svg>
+</div><script>var panmodulegraphModuleGraph = svgPanZoom('#modulegraphModuleGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="518pt" height="32pt"
+ viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<!-- Module -->
+<g id="node1" class="node">
+<title>Module</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+</g>
+<!-- Submodule -->
+<g id="node2" class="node">
+<title>Submodule</title>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
+<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+</g>
+<!-- Subroutine -->
+<g id="node3" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
+<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+</g>
+<!-- Function -->
+<g id="node4" class="node">
+<title>Function</title>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
+<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
+<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node6" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
+<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a submodule to the (sub)module which it is
+    descended from. Dashed arrows point from a module or program unit to 
+    modules which it uses.
+    </p>
+    </div></div></div></div>
+        </div>
+      </div>
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/lists/procedures.html b/reference/rte-fortran-interface/lists/procedures.html
new file mode 100644
index 000000000..69d020d22
--- /dev/null
+++ b/reference/rte-fortran-interface/lists/procedures.html
@@ -0,0 +1,320 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>All Procedures &ndash; RTE-Fortran
+</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+      <div class="row">
+        <div class="col-lg-12" id='text'>
+			 <h1>Procedures</h1>
+			 <table class="table table-striped">
+			 <thead><tr><th>Procedure</th><th>Location</th><th>Procedure Type</th><th>Description</th></tr></thead>
+			 <tbody>
+			   <tr><td><a href='../interface/any_vals_less_than.html'>any_vals_less_than</a></td><td><a href='../module/mo_rte_util_array_validation.html'>mo_rte_util_array_validation</a></td><td>Interface</td><td><p>Values less than a floor (including masked versions)</p></td></tr>
+			   <tr><td><a href='../interface/any_vals_outside.html'>any_vals_outside</a></td><td><a href='../module/mo_rte_util_array_validation.html'>mo_rte_util_array_validation</a></td><td>Interface</td><td><p>Values outside a range (including masked versions)</p></td></tr>
+			   <tr><td><a href='../interface/extents_are.html'>extents_are</a></td><td><a href='../module/mo_rte_util_array_validation.html'>mo_rte_util_array_validation</a></td><td>Interface</td><td><p>Find the extents of an array</p></td></tr>
+			   <tr><td><a href='../interface/rte_config_checks.html'>rte_config_checks</a></td><td><a href='../module/mo_rte_config.html'>mo_rte_config</a></td><td>Interface</td><td><p>Specify checking of extents and values individually, or all checks together</p></td></tr>
+			   <tr><td><a href='../proc/rte_lw.html'>rte_lw</a></td><td><a href='../module/mo_rte_lw.html'>mo_rte_lw</a></td><td>Function</td><td></td></tr>
+			   <tr><td><a href='../interface/rte_sw.html'>rte_sw</a></td><td><a href='../module/mo_rte_sw.html'>mo_rte_sw</a></td><td>Interface</td><td></td></tr>
+			 </tbody></table>
+             <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: call~~graph~~CallGraph Pages: 1 -->
+<svg id="callgraphCallGraph" width="265pt" height="242pt"
+ viewBox="0.00 0.00 265.00 242.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="call~~graph~~CallGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 238)">
+<title>call~~graph~~CallGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-238 261,-238 261,4 -4,4"/>
+<!-- interface~any_vals_outside -->
+<g id="call~~graph~~CallGraph_node1" class="node">
+<title>interface~any_vals_outside</title>
+<g id="a_call~~graph~~CallGraph_node1"><a xlink:href=".././interface/any_vals_outside.html" xlink:title="any_vals_outside">
+<polygon fill="#a7506f" stroke="#a7506f" points="252,-234 149,-234 149,-210 252,-210 252,-234"/>
+<text text-anchor="middle" x="200.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">any_vals_outside</text>
+</a>
+</g>
+</g>
+<!-- interface~any_vals_less_than -->
+<g id="call~~graph~~CallGraph_node2" class="node">
+<title>interface~any_vals_less_than</title>
+<g id="a_call~~graph~~CallGraph_node2"><a xlink:href=".././interface/any_vals_less_than.html" xlink:title="any_vals_less_than">
+<polygon fill="#a7506f" stroke="#a7506f" points="257,-192 144,-192 144,-168 257,-168 257,-192"/>
+<text text-anchor="middle" x="200.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">any_vals_less_than</text>
+</a>
+</g>
+</g>
+<!-- proc~rte_lw -->
+<g id="call~~graph~~CallGraph_node3" class="node">
+<title>proc~rte_lw</title>
+<g id="a_call~~graph~~CallGraph_node3"><a xlink:href=".././proc/rte_lw.html" xlink:title="rte_lw">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="81,-129 27,-129 27,-105 81,-105 81,-129"/>
+<text text-anchor="middle" x="54" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rte_lw</text>
+</a>
+</g>
+</g>
+<!-- proc~rte_lw&#45;&gt;interface~any_vals_outside -->
+<g id="call~~graph~~CallGraph_edge2" class="edge">
+<title>proc~rte_lw&#45;&gt;interface~any_vals_outside</title>
+<path fill="none" stroke="#000000" d="M81.18,-123.47C90.41,-126.71 100.37,-131.39 108,-138 132.36,-159.13 119.47,-180.06 144,-201 145.53,-202.3 147.14,-203.53 148.83,-204.69"/>
+<polygon fill="#000000" stroke="#000000" points="147.3,-207.85 157.7,-209.87 150.83,-201.81 147.3,-207.85"/>
+</g>
+<!-- proc~rte_lw&#45;&gt;interface~any_vals_less_than -->
+<g id="call~~graph~~CallGraph_edge4" class="edge">
+<title>proc~rte_lw&#45;&gt;interface~any_vals_less_than</title>
+<path fill="none" stroke="#000000" d="M81.22,-126.49C89.87,-129.85 99.46,-133.84 108,-138 124.66,-146.1 127.28,-151.03 144,-159 147.77,-160.8 151.73,-162.55 155.73,-164.23"/>
+<polygon fill="#000000" stroke="#000000" points="154.49,-167.5 165.08,-168 157.11,-161.01 154.49,-167.5"/>
+</g>
+<!-- interface~extents_are -->
+<g id="call~~graph~~CallGraph_node6" class="node">
+<title>interface~extents_are</title>
+<g id="a_call~~graph~~CallGraph_node6"><a xlink:href=".././interface/extents_are.html" xlink:title="extents_are">
+<polygon fill="#a7506f" stroke="#a7506f" points="237,-150 164,-150 164,-126 237,-126 237,-150"/>
+<text text-anchor="middle" x="200.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">extents_are</text>
+</a>
+</g>
+</g>
+<!-- proc~rte_lw&#45;&gt;interface~extents_are -->
+<g id="call~~graph~~CallGraph_edge6" class="edge">
+<title>proc~rte_lw&#45;&gt;interface~extents_are</title>
+<path fill="none" stroke="#000000" d="M81.17,-120.8C101.38,-123.74 129.85,-127.88 153.79,-131.36"/>
+<polygon fill="#000000" stroke="#000000" points="153.34,-134.83 163.74,-132.8 154.35,-127.9 153.34,-134.83"/>
+</g>
+<!-- zero_array -->
+<g id="call~~graph~~CallGraph_node7" class="node">
+<title>zero_array</title>
+<polygon fill="#777777" stroke="#777777" points="235,-108 166,-108 166,-84 235,-84 235,-108"/>
+<text text-anchor="middle" x="200.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">zero_array</text>
+</g>
+<!-- proc~rte_lw&#45;&gt;zero_array -->
+<g id="call~~graph~~CallGraph_edge1" class="edge">
+<title>proc~rte_lw&#45;&gt;zero_array</title>
+<path fill="none" stroke="#000000" d="M81.17,-113.2C101.95,-110.18 131.46,-105.89 155.81,-102.35"/>
+<polygon fill="#000000" stroke="#000000" points="156.49,-105.79 165.89,-100.89 155.49,-98.86 156.49,-105.79"/>
+</g>
+<!-- lw_solver_2stream -->
+<g id="call~~graph~~CallGraph_node8" class="node">
+<title>lw_solver_2stream</title>
+<polygon fill="#777777" stroke="#777777" points="255.5,-66 145.5,-66 145.5,-42 255.5,-42 255.5,-66"/>
+<text text-anchor="middle" x="200.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lw_solver_2stream</text>
+</g>
+<!-- proc~rte_lw&#45;&gt;lw_solver_2stream -->
+<g id="call~~graph~~CallGraph_edge5" class="edge">
+<title>proc~rte_lw&#45;&gt;lw_solver_2stream</title>
+<path fill="none" stroke="#000000" d="M79.32,-104.89C97.08,-96.2 121.82,-84.41 144,-75 148.17,-73.23 152.54,-71.45 156.92,-69.72"/>
+<polygon fill="#000000" stroke="#000000" points="158.41,-72.89 166.46,-66.01 155.87,-66.37 158.41,-72.89"/>
+</g>
+<!-- lw_solver_noscat -->
+<g id="call~~graph~~CallGraph_node9" class="node">
+<title>lw_solver_noscat</title>
+<polygon fill="#777777" stroke="#777777" points="251.5,-24 149.5,-24 149.5,0 251.5,0 251.5,-24"/>
+<text text-anchor="middle" x="200.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lw_solver_noscat</text>
+</g>
+<!-- proc~rte_lw&#45;&gt;lw_solver_noscat -->
+<g id="call~~graph~~CallGraph_edge3" class="edge">
+<title>proc~rte_lw&#45;&gt;lw_solver_noscat</title>
+<path fill="none" stroke="#000000" d="M65.05,-104.85C80.41,-86.94 111.4,-53.4 144,-33 146.62,-31.36 149.39,-29.81 152.24,-28.36"/>
+<polygon fill="#000000" stroke="#000000" points="153.92,-31.45 161.52,-24.06 150.97,-25.1 153.92,-31.45"/>
+</g>
+<!-- interface~rte_config_checks -->
+<g id="call~~graph~~CallGraph_node4" class="node">
+<title>interface~rte_config_checks</title>
+<g id="a_call~~graph~~CallGraph_node4"><a xlink:href=".././interface/rte_config_checks.html" xlink:title="rte_config_checks">
+<polygon fill="#a7506f" stroke="#a7506f" points="108,-171 0,-171 0,-147 108,-147 108,-171"/>
+<text text-anchor="middle" x="54" y="-156.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rte_config_checks</text>
+</a>
+</g>
+</g>
+<!-- interface~rte_sw -->
+<g id="call~~graph~~CallGraph_node5" class="node">
+<title>interface~rte_sw</title>
+<g id="a_call~~graph~~CallGraph_node5"><a xlink:href=".././interface/rte_sw.html" xlink:title="rte_sw">
+<polygon fill="#a7506f" stroke="#a7506f" points="81,-213 27,-213 27,-189 81,-189 81,-213"/>
+<text text-anchor="middle" x="54" y="-198.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rte_sw</text>
+</a>
+</g>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="597pt" height="32pt"
+ viewBox="0.00 0.00 596.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 592.5,-28 592.5,4 -4,4"/>
+<!-- Subroutine -->
+<g id="node1" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="70,-24 0,-24 0,0 70,0 70,-24"/>
+<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+</g>
+<!-- Function -->
+<g id="node2" class="node">
+<title>Function</title>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="146,-24 88,-24 88,0 146,0 146,-24"/>
+<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+</g>
+<!-- Interface -->
+<g id="node3" class="node">
+<title>Interface</title>
+<polygon fill="#a7506f" stroke="#a7506f" points="225.5,-24 164.5,-24 164.5,0 225.5,0 225.5,-24"/>
+<text text-anchor="middle" x="195" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+</g>
+<!-- Unknown Procedure Type -->
+<g id="node4" class="node">
+<title>Unknown Procedure Type</title>
+<polygon fill="#777777" stroke="#777777" points="388.5,-24 243.5,-24 243.5,0 388.5,0 388.5,-24"/>
+<text text-anchor="middle" x="316" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="465,-24 407,-24 407,0 465,0 465,-24"/>
+<text text-anchor="middle" x="436" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node6" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="588.5,-24 483.5,-24 483.5,0 588.5,0 588.5,-24"/>
+<text text-anchor="middle" x="536" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a procedure to one which it calls. Dashed 
+    arrows point from an interface to procedures which implement that interface.
+    This could include the module procedures in a generic interface or the
+    implementation in a submodule of an interface in a parent module.
+    </p>
+    </div></div></div></div>
+        </div>
+      </div>
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/lists/types.html b/reference/rte-fortran-interface/lists/types.html
new file mode 100644
index 000000000..671a3cb0b
--- /dev/null
+++ b/reference/rte-fortran-interface/lists/types.html
@@ -0,0 +1,327 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>All Types &ndash; RTE-Fortran
+</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+      <div class="row">
+        <div class="col-lg-12" id='text'>
+			 <h1>Derived Types</h1>
+			 <table class="table table-striped nostretched">
+			 <thead>
+			 <tr><th>Type</th><th>Location</th><th>Extends</th><th>Description</th></tr>
+			 </thead><tbody>
+			   <tr><td><a href='../type/ty_fluxes.html'>ty_fluxes</a></td><td><a href='../module/mo_fluxes.html'>mo_fluxes</a></td><td>None</td><td><p>Abstract base class:
+  <code>reduce()</code> function accepts spectral flux profiles, computes desired outputs
+  <code>are_desired()</code> returns a logical</p></td></tr>
+			   <tr><td><a href='../type/ty_fluxes_broadband.html'>ty_fluxes_broadband</a></td><td><a href='../module/mo_fluxes.html'>mo_fluxes</a></td><td><a href='../type/ty_fluxes.html'>ty_fluxes</a></td><td><p>Class implementing broadband integration for the complete flux profile.
+  Data components are pointers so results can be written directly into memory</p></td></tr>
+			   <tr><td><a href='../type/ty_optical_props.html'>ty_optical_props</a></td><td><a href='../module/mo_optical_props.html'>mo_optical_props</a></td><td>None</td><td><p>Describes the spectral discretization including the wavenumber limits
+  of each band (spectral region) and the mapping between g-points and bands</p><a href="../type/ty_optical_props.html" class="pull-right"><emph>Read more&hellip;</emph></a></td></tr>
+			   <tr><td><a href='../type/ty_optical_props_1scl.html'>ty_optical_props_1scl</a></td><td><a href='../module/mo_optical_props.html'>mo_optical_props</a></td><td><a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a></td><td><p>ty_optical_props_arry represents optical properties as arrays with dimensions
+      column, height, spectral point
+  - Class 1-scalar only (extinction) optical depth
+  -  Class two-stream adds arrays for single scattering albedo ssa and
+     asymmetry parameter needed in two-stream methods
+  - Class n-stream adds arrays for single scattering albedo ssa and
+     phase function moments (index 1 = g) for use with discrete ordinate methods</p><a href="../type/ty_optical_props_1scl.html" class="pull-right"><emph>Read more&hellip;</emph></a></td></tr>
+			   <tr><td><a href='../type/ty_optical_props_2str.html'>ty_optical_props_2str</a></td><td><a href='../module/mo_optical_props.html'>mo_optical_props</a></td><td><a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a></td><td></td></tr>
+			   <tr><td><a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a></td><td><a href='../module/mo_optical_props.html'>mo_optical_props</a></td><td><a href='../type/ty_optical_props.html'>ty_optical_props</a></td><td><p>The abstract base class for arrays defines what procedures will be available</p><a href="../type/ty_optical_props_arry.html" class="pull-right"><emph>Read more&hellip;</emph></a></td></tr>
+			   <tr><td><a href='../type/ty_optical_props_nstr.html'>ty_optical_props_nstr</a></td><td><a href='../module/mo_optical_props.html'>mo_optical_props</a></td><td><a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a></td><td></td></tr>
+			   <tr><td><a href='../type/ty_source_func_lw.html'>ty_source_func_lw</a></td><td><a href='../module/mo_source_functions.html'>mo_source_functions</a></td><td><a href='../type/ty_optical_props.html'>ty_optical_props</a></td><td><p>Type representing Planck source functions in <script type="math/tex">W/m^2</script>
+  computed at layer center, at layer edges using
+  spectral mapping in each direction separately, and at the surface</p></td></tr>
+			   <tr><td><a href='../type/ty_source_func_sw.html'>ty_source_func_sw</a></td><td><a href='../module/mo_source_functions.html'>mo_source_functions</a></td><td><a href='../type/ty_optical_props.html'>ty_optical_props</a></td><td></td></tr>
+			 </tbody></table>
+             <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: type~~graph~~TypeGraph Pages: 1 -->
+<svg id="typegraphTypeGraph" width="427pt" height="158pt"
+ viewBox="0.00 0.00 427.00 158.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~graph~~TypeGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 154)">
+<title>type~~graph~~TypeGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-154 423,-154 423,4 -4,4"/>
+<!-- type~ty_source_func_lw -->
+<g id="type~~graph~~TypeGraph_node1" class="node">
+<title>type~ty_source_func_lw</title>
+<g id="a_type~~graph~~TypeGraph_node1"><a xlink:href=".././type/ty_source_func_lw.html" xlink:title="ty_source_func_lw">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="250.5,-108 142.5,-108 142.5,-84 250.5,-84 250.5,-108"/>
+<text text-anchor="middle" x="196.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_source_func_lw</text>
+</a>
+</g>
+</g>
+<!-- type~ty_optical_props -->
+<g id="type~~graph~~TypeGraph_node9" class="node">
+<title>type~ty_optical_props</title>
+<g id="a_type~~graph~~TypeGraph_node9"><a xlink:href=".././type/ty_optical_props.html" xlink:title="ty_optical_props">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="98,-66 0,-66 0,-42 98,-42 98,-66"/>
+<text text-anchor="middle" x="49" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_optical_props</text>
+</a>
+</g>
+</g>
+<!-- type~ty_source_func_lw&#45;&gt;type~ty_optical_props -->
+<g id="type~~graph~~TypeGraph_edge1" class="edge">
+<title>type~ty_source_func_lw&#45;&gt;type~ty_optical_props</title>
+<path fill="none" stroke="#000000" d="M153.81,-83.96C137.52,-79.26 118.68,-73.82 101.55,-68.88"/>
+<polygon fill="#000000" stroke="#000000" points="102.28,-65.45 91.7,-66.04 100.34,-72.17 102.28,-65.45"/>
+</g>
+<!-- type~ty_optical_props_1scl -->
+<g id="type~~graph~~TypeGraph_node2" class="node">
+<title>type~ty_optical_props_1scl</title>
+<g id="a_type~~graph~~TypeGraph_node2"><a xlink:href=".././type/ty_optical_props_1scl.html" xlink:title="ty_optical_props_1scl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="419,-108 295,-108 295,-84 419,-84 419,-108"/>
+<text text-anchor="middle" x="357" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_optical_props_1scl</text>
+</a>
+</g>
+</g>
+<!-- type~ty_optical_props_arry -->
+<g id="type~~graph~~TypeGraph_node5" class="node">
+<title>type~ty_optical_props_arry</title>
+<g id="a_type~~graph~~TypeGraph_node5"><a xlink:href=".././type/ty_optical_props_arry.html" xlink:title="ty_optical_props_arry">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="259,-66 134,-66 134,-42 259,-42 259,-66"/>
+<text text-anchor="middle" x="196.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_optical_props_arry</text>
+</a>
+</g>
+</g>
+<!-- type~ty_optical_props_1scl&#45;&gt;type~ty_optical_props_arry -->
+<g id="type~~graph~~TypeGraph_edge2" class="edge">
+<title>type~ty_optical_props_1scl&#45;&gt;type~ty_optical_props_arry</title>
+<path fill="none" stroke="#000000" d="M310.58,-83.96C292.51,-79.18 271.55,-73.62 252.61,-68.6"/>
+<polygon fill="#000000" stroke="#000000" points="253.49,-65.22 242.93,-66.04 251.7,-71.98 253.49,-65.22"/>
+</g>
+<!-- type~ty_fluxes_broadband -->
+<g id="type~~graph~~TypeGraph_node3" class="node">
+<title>type~ty_fluxes_broadband</title>
+<g id="a_type~~graph~~TypeGraph_node3"><a xlink:href=".././type/ty_fluxes_broadband.html" xlink:title="ty_fluxes_broadband">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="418,-150 296,-150 296,-126 418,-126 418,-150"/>
+<text text-anchor="middle" x="357" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_fluxes_broadband</text>
+</a>
+</g>
+</g>
+<!-- type~ty_fluxes -->
+<g id="type~~graph~~TypeGraph_node7" class="node">
+<title>type~ty_fluxes</title>
+<g id="a_type~~graph~~TypeGraph_node7"><a xlink:href=".././type/ty_fluxes.html" xlink:title="ty_fluxes">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="226,-150 167,-150 167,-126 226,-126 226,-150"/>
+<text text-anchor="middle" x="196.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_fluxes</text>
+</a>
+</g>
+</g>
+<!-- type~ty_fluxes_broadband&#45;&gt;type~ty_fluxes -->
+<g id="type~~graph~~TypeGraph_edge3" class="edge">
+<title>type~ty_fluxes_broadband&#45;&gt;type~ty_fluxes</title>
+<path fill="none" stroke="#000000" d="M295.63,-138C275.73,-138 254.16,-138 236.32,-138"/>
+<polygon fill="#000000" stroke="#000000" points="236.28,-134.5 226.28,-138 236.28,-141.5 236.28,-134.5"/>
+</g>
+<!-- type~ty_optical_props_nstr -->
+<g id="type~~graph~~TypeGraph_node4" class="node">
+<title>type~ty_optical_props_nstr</title>
+<g id="a_type~~graph~~TypeGraph_node4"><a xlink:href=".././type/ty_optical_props_nstr.html" xlink:title="ty_optical_props_nstr">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="419,-66 295,-66 295,-42 419,-42 419,-66"/>
+<text text-anchor="middle" x="357" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_optical_props_nstr</text>
+</a>
+</g>
+</g>
+<!-- type~ty_optical_props_nstr&#45;&gt;type~ty_optical_props_arry -->
+<g id="type~~graph~~TypeGraph_edge4" class="edge">
+<title>type~ty_optical_props_nstr&#45;&gt;type~ty_optical_props_arry</title>
+<path fill="none" stroke="#000000" d="M294.72,-54C286.42,-54 277.84,-54 269.38,-54"/>
+<polygon fill="#000000" stroke="#000000" points="269.14,-50.5 259.14,-54 269.14,-57.5 269.14,-50.5"/>
+</g>
+<!-- type~ty_optical_props_arry&#45;&gt;type~ty_optical_props -->
+<g id="type~~graph~~TypeGraph_edge5" class="edge">
+<title>type~ty_optical_props_arry&#45;&gt;type~ty_optical_props</title>
+<path fill="none" stroke="#000000" d="M133.79,-54C125.31,-54 116.63,-54 108.22,-54"/>
+<polygon fill="#000000" stroke="#000000" points="108.12,-50.5 98.12,-54 108.12,-57.5 108.12,-50.5"/>
+</g>
+<!-- type~ty_optical_props_2str -->
+<g id="type~~graph~~TypeGraph_node6" class="node">
+<title>type~ty_optical_props_2str</title>
+<g id="a_type~~graph~~TypeGraph_node6"><a xlink:href=".././type/ty_optical_props_2str.html" xlink:title="ty_optical_props_2str">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="419,-24 295,-24 295,0 419,0 419,-24"/>
+<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_optical_props_2str</text>
+</a>
+</g>
+</g>
+<!-- type~ty_optical_props_2str&#45;&gt;type~ty_optical_props_arry -->
+<g id="type~~graph~~TypeGraph_edge6" class="edge">
+<title>type~ty_optical_props_2str&#45;&gt;type~ty_optical_props_arry</title>
+<path fill="none" stroke="#000000" d="M310.58,-24.04C292.51,-28.82 271.55,-34.38 252.61,-39.4"/>
+<polygon fill="#000000" stroke="#000000" points="251.7,-36.02 242.93,-41.96 253.49,-42.78 251.7,-36.02"/>
+</g>
+<!-- type~ty_source_func_sw -->
+<g id="type~~graph~~TypeGraph_node8" class="node">
+<title>type~ty_source_func_sw</title>
+<g id="a_type~~graph~~TypeGraph_node8"><a xlink:href=".././type/ty_source_func_sw.html" xlink:title="ty_source_func_sw">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="251.5,-24 141.5,-24 141.5,0 251.5,0 251.5,-24"/>
+<text text-anchor="middle" x="196.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_source_func_sw</text>
+</a>
+</g>
+</g>
+<!-- type~ty_source_func_sw&#45;&gt;type~ty_optical_props -->
+<g id="type~~graph~~TypeGraph_edge7" class="edge">
+<title>type~ty_source_func_sw&#45;&gt;type~ty_optical_props</title>
+<path fill="none" stroke="#000000" d="M153.81,-24.04C137.52,-28.74 118.68,-34.18 101.55,-39.12"/>
+<polygon fill="#000000" stroke="#000000" points="100.34,-35.83 91.7,-41.96 102.28,-42.55 100.34,-35.83"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="186pt" height="32pt"
+ viewBox="0.00 0.00 185.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 181.5,-28 181.5,4 -4,4"/>
+<!-- Type -->
+<g id="node1" class="node">
+<title>Type</title>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node2" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="177.5,-24 72.5,-24 72.5,0 177.5,0 177.5,-24"/>
+<text text-anchor="middle" x="125" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a derived type to the parent type which it
+    extends. Dashed arrows point from a derived type to the other
+    types it contains as a components, with a label listing the name(s) of
+    said component(s).
+    </p>
+    </div></div></div></div>
+        </div>
+      </div>
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/module/mo_fluxes.html b/reference/rte-fortran-interface/module/mo_fluxes.html
new file mode 100644
index 000000000..60af70217
--- /dev/null
+++ b/reference/rte-fortran-interface/module/mo_fluxes.html
@@ -0,0 +1,619 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>mo_fluxes &ndash; RTE-Fortran</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>mo_fluxes 
+    <small>Module</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title=" 5.8% of total for modules and submodules.">93 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_fluxes.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li><a href='../sourcefile/mo_fluxes.f90.html'>mo_fluxes.F90</a></li>
+     <li class="active">mo_fluxes</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#types-0">Derived Types</a></h3></div>
+  <div id="types-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_fluxes.html#type-ty_fluxes">ty_fluxes</a>
+      <a class="list-group-item" href="../module/mo_fluxes.html#type-ty_fluxes_broadband">ty_fluxes_broadband</a>
+    </div>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+    <h2 id="compute-output-quantities-from-spectrally-resolved-flux-profiles">Compute output quantities from spectrally-resolved flux profiles</h2>
+<p>This module contains an abstract class and a broadband implmentation that sums over all spectral points
+   The abstract base class defines the routines that extenstions must implement: <code>reduce()</code> and <code>are_desired()</code>
+   The intent is for users to extend it as required, using mo_flxues_broadband as an example</p>
+<br>        <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Uses</h3>
+      </div>
+      <ul class="list-group">
+      <li class="list-group-item">
+  <ul class="list-inline">
+    <li>mo_fluxes_broadband_kernels</li>
+    <li><a href='../module/mo_rte_util_array_validation.html'>mo_rte_util_array_validation</a></li>
+    <li><a href='../module/mo_rte_kind.html'>mo_rte_kind</a></li>
+    <li><a href='../module/mo_optical_props.html'>mo_optical_props</a></li>
+    <li><a href='../module/mo_rte_config.html'>mo_rte_config</a></li>
+  </ul>
+      </li>
+      <li class="list-group-item">
+  <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: module~~mo_fluxes~~UsesGraph Pages: 1 -->
+<svg id="modulemo_fluxesUsesGraph" width="641pt" height="200pt"
+ viewBox="0.00 0.00 641.00 200.41" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~mo_fluxes~~UsesGraph" class="graph" transform="scale(1.12 1.12) rotate(0) translate(4 220.49)">
+<title>module~~mo_fluxes~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-220.49 714,-220.49 714,4 -4,4"/>
+<!-- module~mo_fluxes -->
+<g id="module~~mo_fluxes~~UsesGraph_node1" class="node">
+<title>module~mo_fluxes</title>
+<polygon fill="none" stroke="black" points="710,-156.49 643,-156.49 643,-132.49 710,-132.49 710,-156.49"/>
+<text text-anchor="middle" x="676.5" y="-142.09" font-family="Helvetica,sans-Serif" font-size="10.50">mo_fluxes</text>
+</g>
+<!-- mo_fluxes_broadband_kernels -->
+<g id="module~~mo_fluxes~~UsesGraph_node2" class="node">
+<title>mo_fluxes_broadband_kernels</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="607,-216.49 433,-216.49 433,-192.49 607,-192.49 607,-216.49"/>
+<text text-anchor="middle" x="520" y="-202.09" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_fluxes_broadband_kernels</text>
+</g>
+<!-- module~mo_fluxes&#45;&gt;mo_fluxes_broadband_kernels -->
+<g id="module~~mo_fluxes~~UsesGraph_edge1" class="edge">
+<title>module~mo_fluxes&#45;&gt;mo_fluxes_broadband_kernels</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M653.41,-156.63C640.19,-163.6 622.92,-172.18 607,-178.49 597.11,-182.41 586.38,-186.08 575.97,-189.37"/>
+<polygon fill="#000000" stroke="#000000" points="574.65,-186.11 566.12,-192.39 576.71,-192.8 574.65,-186.11"/>
+</g>
+<!-- module~mo_optical_props -->
+<g id="module~~mo_fluxes~~UsesGraph_node3" class="node">
+<title>module~mo_optical_props</title>
+<g id="a_module~~mo_fluxes~~UsesGraph_node3"><a xlink:href=".././module/mo_optical_props.html" xlink:title="mo_optical_props">
+<polygon fill="#337ab7" stroke="#337ab7" points="573,-136.49 467,-136.49 467,-112.49 573,-112.49 573,-136.49"/>
+<text text-anchor="middle" x="520" y="-122.09" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props</text>
+</a>
+</g>
+</g>
+<!-- module~mo_fluxes&#45;&gt;module~mo_optical_props -->
+<g id="module~~mo_fluxes~~UsesGraph_edge2" class="edge">
+<title>module~mo_fluxes&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M642.73,-140.25C625.46,-138.01 603.68,-135.19 583.33,-132.56"/>
+<polygon fill="#000000" stroke="#000000" points="583.54,-129.06 573.17,-131.24 582.64,-136 583.54,-129.06"/>
+</g>
+<!-- module~mo_rte_util_array_validation -->
+<g id="module~~mo_fluxes~~UsesGraph_node4" class="node">
+<title>module~mo_rte_util_array_validation</title>
+<g id="a_module~~mo_fluxes~~UsesGraph_node4"><a xlink:href=".././module/mo_rte_util_array_validation.html" xlink:title="mo_rte_util_array_validation">
+<polygon fill="#337ab7" stroke="#337ab7" points="397,-196.49 234,-196.49 234,-172.49 397,-172.49 397,-196.49"/>
+<text text-anchor="middle" x="315.5" y="-182.09" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array_validation</text>
+</a>
+</g>
+</g>
+<!-- module~mo_fluxes&#45;&gt;module~mo_rte_util_array_validation -->
+<g id="module~~mo_fluxes~~UsesGraph_edge3" class="edge">
+<title>module~mo_fluxes&#45;&gt;module~mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M642.69,-148.15C589.85,-154.03 484.05,-165.82 407.23,-174.38"/>
+<polygon fill="#000000" stroke="#000000" points="406.62,-170.93 397.07,-175.51 407.39,-177.88 406.62,-170.93"/>
+</g>
+<!-- module~mo_rte_config -->
+<g id="module~~mo_fluxes~~UsesGraph_node5" class="node">
+<title>module~mo_rte_config</title>
+<g id="a_module~~mo_fluxes~~UsesGraph_node5"><a xlink:href=".././module/mo_rte_config.html" xlink:title="mo_rte_config">
+<polygon fill="#337ab7" stroke="#337ab7" points="359.5,-74.49 271.5,-74.49 271.5,-50.49 359.5,-50.49 359.5,-74.49"/>
+<text text-anchor="middle" x="315.5" y="-60.09" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_config</text>
+</a>
+</g>
+</g>
+<!-- module~mo_fluxes&#45;&gt;module~mo_rte_config -->
+<g id="module~~mo_fluxes~~UsesGraph_edge4" class="edge">
+<title>module~mo_fluxes&#45;&gt;module~mo_rte_config</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M519,-22.49C490.77,-14.3 415.55,-33.04 365.17,-47.55"/>
+<polygon fill="#000000" stroke="#000000" points="364.06,-44.23 355.45,-50.39 366.03,-50.95 364.06,-44.23"/>
+</g>
+<!-- module~mo_rte_kind -->
+<g id="module~~mo_fluxes~~UsesGraph_node6" class="node">
+<title>module~mo_rte_kind</title>
+<g id="a_module~~mo_fluxes~~UsesGraph_node6"><a xlink:href=".././module/mo_rte_kind.html" xlink:title="mo_rte_kind">
+<polygon fill="#337ab7" stroke="#337ab7" points="198,-115.49 120,-115.49 120,-91.49 198,-91.49 198,-115.49"/>
+<text text-anchor="middle" x="159" y="-101.09" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind</text>
+</a>
+</g>
+</g>
+<!-- module~mo_fluxes&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_fluxes~~UsesGraph_edge5" class="edge">
+<title>module~mo_fluxes&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M665.98,-132.26C644.02,-105.28 586.65,-41.53 521,-22.49"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M519,-22.49C397.08,12.88 351.8,5.83 234,-41.49 211.43,-50.56 190.67,-69.27 176.92,-83.78"/>
+<polygon fill="#000000" stroke="#000000" points="174.19,-81.57 170.03,-91.32 179.36,-86.29 174.19,-81.57"/>
+</g>
+<!-- module~mo_optical_props&#45;&gt;module~mo_rte_util_array_validation -->
+<g id="module~~mo_fluxes~~UsesGraph_edge6" class="edge">
+<title>module~mo_optical_props&#45;&gt;module~mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M478.02,-136.63C445.94,-146.14 401.17,-159.4 366.89,-169.56"/>
+<polygon fill="#000000" stroke="#000000" points="365.67,-166.27 357.07,-172.47 367.65,-172.98 365.67,-166.27"/>
+</g>
+<!-- module~mo_optical_props&#45;&gt;module~mo_rte_config -->
+<g id="module~~mo_fluxes~~UsesGraph_edge8" class="edge">
+<title>module~mo_optical_props&#45;&gt;module~mo_rte_config</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M485.28,-112.46C460.9,-103.93 427.09,-92.46 397,-83.49 388.16,-80.85 378.71,-78.23 369.52,-75.77"/>
+<polygon fill="#000000" stroke="#000000" points="370.25,-72.34 359.68,-73.17 368.46,-79.11 370.25,-72.34"/>
+</g>
+<!-- module~mo_optical_props&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_fluxes~~UsesGraph_edge9" class="edge">
+<title>module~mo_optical_props&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M466.93,-129.25C409.54,-133.44 314.67,-137.23 234,-125.49 223.75,-124 212.95,-121.4 202.87,-118.51"/>
+<polygon fill="#000000" stroke="#000000" points="203.65,-115.09 193.06,-115.54 201.62,-121.79 203.65,-115.09"/>
+</g>
+<!-- mo_optical_props_kernels -->
+<g id="module~~mo_fluxes~~UsesGraph_node7" class="node">
+<title>mo_optical_props_kernels</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="390.5,-116.49 240.5,-116.49 240.5,-92.49 390.5,-92.49 390.5,-116.49"/>
+<text text-anchor="middle" x="315.5" y="-102.09" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props_kernels</text>
+</g>
+<!-- module~mo_optical_props&#45;&gt;mo_optical_props_kernels -->
+<g id="module~~mo_fluxes~~UsesGraph_edge7" class="edge">
+<title>module~mo_optical_props&#45;&gt;mo_optical_props_kernels</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M466.85,-119.34C446.73,-117.35 423.2,-115.03 400.8,-112.82"/>
+<polygon fill="#000000" stroke="#000000" points="400.9,-109.31 390.61,-111.81 400.21,-116.27 400.9,-109.31"/>
+</g>
+<!-- module~mo_rte_util_array_validation&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_fluxes~~UsesGraph_edge10" class="edge">
+<title>module~mo_rte_util_array_validation&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.32,-172.43C256.81,-168.66 244.71,-164.01 234,-158.49 214.85,-148.62 195.38,-133.93 181.22,-122.21"/>
+<polygon fill="#000000" stroke="#000000" points="183.44,-119.5 173.54,-115.71 178.92,-124.84 183.44,-119.5"/>
+</g>
+<!-- module~mo_rte_config&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_fluxes~~UsesGraph_edge11" class="edge">
+<title>module~mo_rte_config&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M271.45,-73.65C259.33,-76.81 246.14,-80.26 234,-83.49 225.5,-85.75 216.45,-88.17 207.71,-90.53"/>
+<polygon fill="#000000" stroke="#000000" points="206.75,-87.16 198.01,-93.15 208.58,-93.92 206.75,-87.16"/>
+</g>
+<!-- iso_c_binding -->
+<g id="module~~mo_fluxes~~UsesGraph_node8" class="node">
+<title>iso_c_binding</title>
+<g id="a_module~~mo_fluxes~~UsesGraph_node8"><a xlink:href="http://fortranwiki.org/fortran/show/iso_c_binding" xlink:title="iso_c_binding">
+<polygon fill="#337ab7" stroke="#337ab7" points="84,-115.49 0,-115.49 0,-91.49 84,-91.49 84,-115.49"/>
+<text text-anchor="middle" x="42" y="-101.09" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_kind&#45;&gt;iso_c_binding -->
+<g id="module~~mo_fluxes~~UsesGraph_edge12" class="edge">
+<title>module~mo_rte_kind&#45;&gt;iso_c_binding</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M119.71,-103.49C111.62,-103.49 102.97,-103.49 94.49,-103.49"/>
+<polygon fill="#000000" stroke="#000000" points="94.29,-99.99 84.29,-103.49 94.29,-106.99 94.29,-99.99"/>
+</g>
+</g>
+</svg>
+</div><script>var panmodulemo_fluxesUsesGraph = svgPanZoom('#modulemo_fluxesUsesGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="518pt" height="32pt"
+ viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<!-- Module -->
+<g id="node1" class="node">
+<title>Module</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+</g>
+<!-- Submodule -->
+<g id="node2" class="node">
+<title>Submodule</title>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
+<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+</g>
+<!-- Subroutine -->
+<g id="node3" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
+<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+</g>
+<!-- Function -->
+<g id="node4" class="node">
+<title>Function</title>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
+<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
+<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node6" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
+<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a submodule to the (sub)module which it is
+    descended from. Dashed arrows point from a module or program unit to 
+    modules which it uses.
+    </p>
+    </div></div></div></div>
+      </li>
+      </ul>
+    </div>
+
+        <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Used by</h3>
+      </div>
+      <ul class="list-group">
+  <li class="list-group-item">
+    <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: module~~mo_fluxes~~UsedByGraph Pages: 1 -->
+<svg id="modulemo_fluxesUsedByGraph" width="180pt" height="74pt"
+ viewBox="0.00 0.00 180.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~mo_fluxes~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<title>module~~mo_fluxes~~UsedByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 176,-70 176,4 -4,4"/>
+<!-- module~mo_fluxes -->
+<g id="module~~mo_fluxes~~UsedByGraph_node1" class="node">
+<title>module~mo_fluxes</title>
+<polygon fill="none" stroke="black" points="67,-45 0,-45 0,-21 67,-21 67,-45"/>
+<text text-anchor="middle" x="33.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_fluxes</text>
+</g>
+<!-- module~mo_rte_sw -->
+<g id="module~~mo_fluxes~~UsedByGraph_node2" class="node">
+<title>module~mo_rte_sw</title>
+<g id="a_module~~mo_fluxes~~UsedByGraph_node2"><a xlink:href=".././module/mo_rte_sw.html" xlink:title="mo_rte_sw">
+<polygon fill="#337ab7" stroke="#337ab7" points="172,-66 103,-66 103,-42 172,-42 172,-66"/>
+<text text-anchor="middle" x="137.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_sw</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;module~mo_fluxes -->
+<g id="module~~mo_fluxes~~UsedByGraph_edge1" class="edge">
+<title>module~mo_rte_sw&#45;&gt;module~mo_fluxes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M102.82,-47.07C94.56,-45.37 85.62,-43.52 77,-41.75"/>
+<polygon fill="#000000" stroke="#000000" points="77.61,-38.3 67.11,-39.71 76.19,-45.16 77.61,-38.3"/>
+</g>
+<!-- module~mo_rte_lw -->
+<g id="module~~mo_fluxes~~UsedByGraph_node3" class="node">
+<title>module~mo_rte_lw</title>
+<g id="a_module~~mo_fluxes~~UsedByGraph_node3"><a xlink:href=".././module/mo_rte_lw.html" xlink:title="mo_rte_lw">
+<polygon fill="#337ab7" stroke="#337ab7" points="171,-24 104,-24 104,0 171,0 171,-24"/>
+<text text-anchor="middle" x="137.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_lw</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_fluxes -->
+<g id="module~~mo_fluxes~~UsedByGraph_edge2" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_fluxes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M103.95,-18.7C95.39,-20.46 86.03,-22.39 77.04,-24.24"/>
+<polygon fill="#000000" stroke="#000000" points="76.18,-20.84 67.09,-26.29 77.59,-27.7 76.18,-20.84"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="518pt" height="32pt"
+ viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<!-- Module -->
+<g id="node1" class="node">
+<title>Module</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+</g>
+<!-- Submodule -->
+<g id="node2" class="node">
+<title>Submodule</title>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
+<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+</g>
+<!-- Subroutine -->
+<g id="node3" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
+<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+</g>
+<!-- Function -->
+<g id="node4" class="node">
+<title>Function</title>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
+<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
+<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node6" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
+<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a submodule to the (sub)module which it is
+    descended from. Dashed arrows point from a module or program unit to 
+    modules which it uses.
+    </p>
+    </div></div></div></div>
+  </li>
+      </ul>
+    </div>
+
+    <br>
+
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#types-1">Derived Types</a></h3></div>
+  <div id="types-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_fluxes.html#type-ty_fluxes">ty_fluxes</a>
+      <a class="list-group-item" href="../module/mo_fluxes.html#type-ty_fluxes_broadband">ty_fluxes_broadband</a>
+    </div>
+  </div>
+</div>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+
+    
+    
+
+    
+    <section>
+     <h2>Derived Types</h2>
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="type-ty_fluxes"></span><h3>type, public, abstract :: <a href='../type/ty_fluxes.html'>ty_fluxes</a>  </h3></div>
+  <div class="panel-body">
+    <p>Abstract base class:
+  <code>reduce()</code> function accepts spectral flux profiles, computes desired outputs
+  <code>are_desired()</code> returns a logical</p>
+     
+     <h4>Type-Bound Procedures</h4>
+      <table class="table table-striped varlist">
+      <tbody>
+       <tr><td>procedure(are_desired_abstract), public :: <strong><a href='../type/ty_fluxes.html#boundprocedure-are_desired'>are_desired</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure(reduce_abstract), public :: <strong><a href='../type/ty_fluxes.html#boundprocedure-reduce'>reduce</a></strong>  </td>
+       <td></td></tr>
+       </tbody>
+       </table>
+  </div>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="type-ty_fluxes_broadband"></span><h3>type, public, extends(<a href='../type/ty_fluxes.html'>ty_fluxes</a>) :: <a href='../type/ty_fluxes_broadband.html'>ty_fluxes_broadband</a>  </h3></div>
+  <div class="panel-body">
+    <p>Class implementing broadband integration for the complete flux profile.
+  Data components are pointers so results can be written directly into memory</p>
+     <h4>Components</h4>
+    <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Visibility</th><th>Attributes</th><th></th><th>Name</th><th></th><th>Initial</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" id="variable-flux_dn"></span>real(kind=wp),</td>
+<td>public,</td>  <td>dimension(:,:), pointer</td><td>::</td>
+  <td><strong>flux_dn</strong></td><td>=> </td><td>NULL()</td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-flux_dn_dir"></span>real(kind=wp),</td>
+<td>public,</td>  <td>dimension(:,:), pointer</td><td>::</td>
+  <td><strong>flux_dn_dir</strong></td><td>=> </td><td>NULL()</td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-flux_net"></span>real(kind=wp),</td>
+<td>public,</td>  <td>dimension(:,:), pointer</td><td>::</td>
+  <td><strong>flux_net</strong></td><td>=> </td><td>NULL()</td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-flux_up"></span>real(kind=wp),</td>
+<td>public,</td>  <td>dimension(:,:), pointer</td><td>::</td>
+  <td><strong>flux_up</strong></td><td>=> </td><td>NULL()</td><td></td>
+</tr>
+</tbody>
+</table>
+
+     
+     <h4>Type-Bound Procedures</h4>
+      <table class="table table-striped varlist">
+      <tbody>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_fluxes_broadband.html#boundprocedure-are_desired~2'>are_desired</a></strong>  => are_desired_broadband </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_fluxes_broadband.html#boundprocedure-reduce~2'>reduce</a></strong>  => reduce_broadband </td>
+       <td></td></tr>
+       </tbody>
+       </table>
+  </div>
+</div>
+
+    </section>
+  <br>
+    
+
+    
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/module/mo_optical_props.html b/reference/rte-fortran-interface/module/mo_optical_props.html
new file mode 100644
index 000000000..3127346a9
--- /dev/null
+++ b/reference/rte-fortran-interface/module/mo_optical_props.html
@@ -0,0 +1,975 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>mo_optical_props &ndash; RTE-Fortran</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>mo_optical_props 
+    <small>Module</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title="47.0% of total for modules and submodules.">749 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_optical_props.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li><a href='../sourcefile/mo_optical_props.f90.html'>mo_optical_props.F90</a></li>
+     <li class="active">mo_optical_props</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#vars-0">Variables</a></h3></div>
+  <div id="vars-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_optical_props.html#variable-name_len">name_len</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#types-0">Derived Types</a></h3></div>
+  <div id="types-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_optical_props.html#type-ty_optical_props">ty_optical_props</a>
+      <a class="list-group-item" href="../module/mo_optical_props.html#type-ty_optical_props_1scl">ty_optical_props_1scl</a>
+      <a class="list-group-item" href="../module/mo_optical_props.html#type-ty_optical_props_2str">ty_optical_props_2str</a>
+      <a class="list-group-item" href="../module/mo_optical_props.html#type-ty_optical_props_arry">ty_optical_props_arry</a>
+      <a class="list-group-item" href="../module/mo_optical_props.html#type-ty_optical_props_nstr">ty_optical_props_nstr</a>
+    </div>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+    <h2 id="encapsulate-optical-properties-defined-on-a-spectral-grid-of-n-bands">Encapsulate optical properties defined on a spectral grid of N bands.</h2>
+<p>The bands are described by their limiting wavenumbers. They need not be contiguous or complete.
+  A band may contain more than one spectral sub-point (g-point) in which case a mapping must be supplied.
+  A name may be provided and will be prepended to error messages.
+  The base class (ty_optical_props) encapsulates only this spectral discretization and must be initialized
+     with the spectral information before use.</p>
+<p>Optical properties may be represented as arrays with dimensions ncol, nlay, ngpt
+  (abstract class ty_optical_props_arry).
+  The type holds arrays depending on how much information is needed
+  There are three possibilites</p>
+<ul>
+<li>ty_optical_props_1scl holds absorption optical depth tau, used in calculations accounting for extinction and emission</li>
+<li>ty_optical_props_2str holds extincion optical depth tau, single-scattering albedo ssa, and
+       asymmetry parameter g. These fields are what's needed for two-stream calculations.</li>
+<li>ty_optical_props_nstr holds extincion optical depth tau, single-scattering albedo ssa, and
+       phase function moments p with leading dimension nmom. These fields are what's needed for multi-stream calculations.</li>
+</ul>
+<p>These classes must be allocated before use. Initialization and allocation can be combined.
+  The classes have a validate() function that checks all arrays for valid values (e.g. tau &gt; 0.)</p>
+<p>Optical properties can be delta-scaled (though this is currently implemented only for two-stream arrays)</p>
+<p>Optical properties can increment or "add themselves to" a set of properties represented with arrays
+  as long as both sets have the same underlying band structure. Properties defined by band
+  may be added to properties defined by g-point; the same value is assumed for all g-points with each band.</p>
+<p>Subsets of optical properties held as arrays may be extracted along the column dimension.</p>
+<hr>
+<br>        <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Uses</h3>
+      </div>
+      <ul class="list-group">
+      <li class="list-group-item">
+  <ul class="list-inline">
+    <li><a href='../module/mo_rte_util_array_validation.html'>mo_rte_util_array_validation</a></li>
+    <li><a href='../module/mo_rte_kind.html'>mo_rte_kind</a></li>
+    <li><a href='../module/mo_rte_config.html'>mo_rte_config</a></li>
+    <li>mo_optical_props_kernels</li>
+  </ul>
+      </li>
+      <li class="list-group-item">
+  <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: module~~mo_optical_props~~UsesGraph Pages: 1 -->
+<svg id="modulemo_optical_propsUsesGraph" width="547pt" height="135pt"
+ viewBox="0.00 0.00 547.00 135.12" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~mo_optical_props~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 131.12)">
+<title>module~~mo_optical_props~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-131.12 543,-131.12 543,4 -4,4"/>
+<!-- module~mo_optical_props -->
+<g id="module~~mo_optical_props~~UsesGraph_node1" class="node">
+<title>module~mo_optical_props</title>
+<polygon fill="none" stroke="black" points="539,-64.12 433,-64.12 433,-40.12 539,-40.12 539,-64.12"/>
+<text text-anchor="middle" x="486" y="-49.72" font-family="Helvetica,sans-Serif" font-size="10.50">mo_optical_props</text>
+</g>
+<!-- module~mo_rte_util_array_validation -->
+<g id="module~~mo_optical_props~~UsesGraph_node2" class="node">
+<title>module~mo_rte_util_array_validation</title>
+<g id="a_module~~mo_optical_props~~UsesGraph_node2"><a xlink:href=".././module/mo_rte_util_array_validation.html" xlink:title="mo_rte_util_array_validation">
+<polygon fill="#337ab7" stroke="#337ab7" points="397,-127.12 234,-127.12 234,-103.12 397,-103.12 397,-127.12"/>
+<text text-anchor="middle" x="315.5" y="-112.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array_validation</text>
+</a>
+</g>
+</g>
+<!-- module~mo_optical_props&#45;&gt;module~mo_rte_util_array_validation -->
+<g id="module~~mo_optical_props~~UsesGraph_edge1" class="edge">
+<title>module~mo_optical_props&#45;&gt;module~mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M462.72,-64.21C445.23,-73.34 420.06,-85.7 397,-94.12 391.03,-96.3 384.74,-98.35 378.42,-100.25"/>
+<polygon fill="#000000" stroke="#000000" points="377.12,-96.98 368.48,-103.11 379.06,-103.71 377.12,-96.98"/>
+</g>
+<!-- mo_optical_props_kernels -->
+<g id="module~~mo_optical_props~~UsesGraph_node3" class="node">
+<title>mo_optical_props_kernels</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="390.5,-85.12 240.5,-85.12 240.5,-61.12 390.5,-61.12 390.5,-85.12"/>
+<text text-anchor="middle" x="315.5" y="-70.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props_kernels</text>
+</g>
+<!-- module~mo_optical_props&#45;&gt;mo_optical_props_kernels -->
+<g id="module~~mo_optical_props~~UsesGraph_edge2" class="edge">
+<title>module~mo_optical_props&#45;&gt;mo_optical_props_kernels</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M432.61,-58.65C422.4,-59.92 411.46,-61.28 400.53,-62.65"/>
+<polygon fill="#000000" stroke="#000000" points="400,-59.18 390.51,-63.89 400.87,-66.13 400,-59.18"/>
+</g>
+<!-- module~mo_rte_config -->
+<g id="module~~mo_optical_props~~UsesGraph_node4" class="node">
+<title>module~mo_rte_config</title>
+<g id="a_module~~mo_optical_props~~UsesGraph_node4"><a xlink:href=".././module/mo_rte_config.html" xlink:title="mo_rte_config">
+<polygon fill="#337ab7" stroke="#337ab7" points="359.5,-43.12 271.5,-43.12 271.5,-19.12 359.5,-19.12 359.5,-43.12"/>
+<text text-anchor="middle" x="315.5" y="-28.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_config</text>
+</a>
+</g>
+</g>
+<!-- module~mo_optical_props&#45;&gt;module~mo_rte_config -->
+<g id="module~~mo_optical_props~~UsesGraph_edge3" class="edge">
+<title>module~mo_optical_props&#45;&gt;module~mo_rte_config</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M432.61,-45.59C412.53,-43.09 389.61,-40.23 369.47,-37.72"/>
+<polygon fill="#000000" stroke="#000000" points="369.89,-34.25 359.53,-36.48 369.02,-41.19 369.89,-34.25"/>
+</g>
+<!-- module~mo_rte_kind -->
+<g id="module~~mo_optical_props~~UsesGraph_node5" class="node">
+<title>module~mo_rte_kind</title>
+<g id="a_module~~mo_optical_props~~UsesGraph_node5"><a xlink:href=".././module/mo_rte_kind.html" xlink:title="mo_rte_kind">
+<polygon fill="#337ab7" stroke="#337ab7" points="198,-43.12 120,-43.12 120,-19.12 198,-19.12 198,-43.12"/>
+<text text-anchor="middle" x="159" y="-28.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind</text>
+</a>
+</g>
+</g>
+<!-- module~mo_optical_props&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_optical_props~~UsesGraph_edge4" class="edge">
+<title>module~mo_optical_props&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M465.99,-39.97C448.76,-29.72 422.26,-15.84 397,-10.12 326.34,5.88 305.75,-0.13 234,-10.12 224.38,-11.46 214.25,-13.73 204.68,-16.3"/>
+<polygon fill="#000000" stroke="#000000" points="203.62,-12.96 194.96,-19.06 205.53,-19.7 203.62,-12.96"/>
+</g>
+<!-- module~mo_rte_util_array_validation&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_optical_props~~UsesGraph_edge5" class="edge">
+<title>module~mo_rte_util_array_validation&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.73,-103.12C248.22,-100.63 240.79,-97.66 234,-94.12 212.54,-82.94 191.89,-64.51 177.89,-50.46"/>
+<polygon fill="#000000" stroke="#000000" points="180.3,-47.93 170.83,-43.18 175.28,-52.8 180.3,-47.93"/>
+</g>
+<!-- module~mo_rte_config&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_optical_props~~UsesGraph_edge6" class="edge">
+<title>module~mo_rte_config&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M271.46,-31.12C251.85,-31.12 228.54,-31.12 208.32,-31.12"/>
+<polygon fill="#000000" stroke="#000000" points="208.07,-27.62 198.07,-31.12 208.07,-34.62 208.07,-27.62"/>
+</g>
+<!-- iso_c_binding -->
+<g id="module~~mo_optical_props~~UsesGraph_node6" class="node">
+<title>iso_c_binding</title>
+<g id="a_module~~mo_optical_props~~UsesGraph_node6"><a xlink:href="http://fortranwiki.org/fortran/show/iso_c_binding" xlink:title="iso_c_binding">
+<polygon fill="#337ab7" stroke="#337ab7" points="84,-43.12 0,-43.12 0,-19.12 84,-19.12 84,-43.12"/>
+<text text-anchor="middle" x="42" y="-28.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_kind&#45;&gt;iso_c_binding -->
+<g id="module~~mo_optical_props~~UsesGraph_edge7" class="edge">
+<title>module~mo_rte_kind&#45;&gt;iso_c_binding</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M119.71,-31.12C111.62,-31.12 102.97,-31.12 94.49,-31.12"/>
+<polygon fill="#000000" stroke="#000000" points="94.29,-27.62 84.29,-31.12 94.29,-34.62 94.29,-27.62"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="518pt" height="32pt"
+ viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<!-- Module -->
+<g id="node1" class="node">
+<title>Module</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+</g>
+<!-- Submodule -->
+<g id="node2" class="node">
+<title>Submodule</title>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
+<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+</g>
+<!-- Subroutine -->
+<g id="node3" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
+<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+</g>
+<!-- Function -->
+<g id="node4" class="node">
+<title>Function</title>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
+<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
+<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node6" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
+<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a submodule to the (sub)module which it is
+    descended from. Dashed arrows point from a module or program unit to 
+    modules which it uses.
+    </p>
+    </div></div></div></div>
+      </li>
+      </ul>
+    </div>
+
+        <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Used by</h3>
+      </div>
+      <ul class="list-group">
+  <li class="list-group-item">
+    <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: module~~mo_optical_props~~UsedByGraph Pages: 1 -->
+<svg id="modulemo_optical_propsUsedByGraph" width="379pt" height="133pt"
+ viewBox="0.00 0.00 379.00 133.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~mo_optical_props~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 129)">
+<title>module~~mo_optical_props~~UsedByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-129 375,-129 375,4 -4,4"/>
+<!-- module~mo_optical_props -->
+<g id="module~~mo_optical_props~~UsedByGraph_node1" class="node">
+<title>module~mo_optical_props</title>
+<polygon fill="none" stroke="black" points="106,-84 0,-84 0,-60 106,-60 106,-84"/>
+<text text-anchor="middle" x="53" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_optical_props</text>
+</g>
+<!-- module~mo_rte_sw -->
+<g id="module~~mo_optical_props~~UsedByGraph_node2" class="node">
+<title>module~mo_rte_sw</title>
+<g id="a_module~~mo_optical_props~~UsedByGraph_node2"><a xlink:href=".././module/mo_rte_sw.html" xlink:title="mo_rte_sw">
+<polygon fill="#337ab7" stroke="#337ab7" points="371,-125 302,-125 302,-101 371,-101 371,-125"/>
+<text text-anchor="middle" x="336.5" y="-110.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_sw</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;module~mo_optical_props -->
+<g id="module~~mo_optical_props~~UsedByGraph_edge1" class="edge">
+<title>module~mo_rte_sw&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.81,-117.36C262.82,-121.41 196.94,-125.17 142,-113 121.09,-108.37 99.26,-98.23 82.57,-89.2"/>
+<polygon fill="#000000" stroke="#000000" points="83.82,-85.89 73.39,-84.06 80.4,-92 83.82,-85.89"/>
+</g>
+<!-- module~mo_fluxes -->
+<g id="module~~mo_optical_props~~UsedByGraph_node3" class="node">
+<title>module~mo_fluxes</title>
+<g id="a_module~~mo_optical_props~~UsedByGraph_node3"><a xlink:href=".././module/mo_fluxes.html" xlink:title="mo_fluxes">
+<polygon fill="#337ab7" stroke="#337ab7" points="237.5,-104 170.5,-104 170.5,-80 237.5,-80 237.5,-104"/>
+<text text-anchor="middle" x="204" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_fluxes</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;module~mo_fluxes -->
+<g id="module~~mo_optical_props~~UsedByGraph_edge5" class="edge">
+<title>module~mo_rte_sw&#45;&gt;module~mo_fluxes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.89,-107.59C285.35,-104.93 265.23,-101.69 247.62,-98.86"/>
+<polygon fill="#000000" stroke="#000000" points="248.02,-95.38 237.59,-97.24 246.91,-102.29 248.02,-95.38"/>
+</g>
+<!-- module~mo_fluxes&#45;&gt;module~mo_optical_props -->
+<g id="module~~mo_optical_props~~UsedByGraph_edge2" class="edge">
+<title>module~mo_fluxes&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.3,-87.61C154.47,-85.49 134.92,-82.86 116.39,-80.38"/>
+<polygon fill="#000000" stroke="#000000" points="116.61,-76.87 106.24,-79.01 115.68,-83.81 116.61,-76.87"/>
+</g>
+<!-- module~mo_source_functions -->
+<g id="module~~mo_optical_props~~UsedByGraph_node4" class="node">
+<title>module~mo_source_functions</title>
+<g id="a_module~~mo_optical_props~~UsedByGraph_node4"><a xlink:href=".././module/mo_source_functions.html" xlink:title="mo_source_functions">
+<polygon fill="#337ab7" stroke="#337ab7" points="266,-24 142,-24 142,0 266,0 266,-24"/>
+<text text-anchor="middle" x="204" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_source_functions</text>
+</a>
+</g>
+</g>
+<!-- module~mo_source_functions&#45;&gt;module~mo_optical_props -->
+<g id="module~~mo_optical_props~~UsedByGraph_edge3" class="edge">
+<title>module~mo_source_functions&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M172.85,-24.14C149.95,-33.36 118.27,-46.12 93.37,-56.15"/>
+<polygon fill="#000000" stroke="#000000" points="91.82,-53 83.85,-59.98 94.44,-59.49 91.82,-53"/>
+</g>
+<!-- module~mo_rte_lw -->
+<g id="module~~mo_optical_props~~UsedByGraph_node5" class="node">
+<title>module~mo_rte_lw</title>
+<g id="a_module~~mo_optical_props~~UsedByGraph_node5"><a xlink:href=".././module/mo_rte_lw.html" xlink:title="mo_rte_lw">
+<polygon fill="#337ab7" stroke="#337ab7" points="370,-64 303,-64 303,-40 370,-40 370,-64"/>
+<text text-anchor="middle" x="336.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_lw</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_optical_props -->
+<g id="module~~mo_optical_props~~UsedByGraph_edge4" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302.93,-54.31C257.4,-57.55 173.83,-63.49 116.17,-67.58"/>
+<polygon fill="#000000" stroke="#000000" points="115.8,-64.1 106.07,-68.3 116.3,-71.08 115.8,-64.1"/>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_fluxes -->
+<g id="module~~mo_optical_props~~UsedByGraph_edge6" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_fluxes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302.91,-61.99C286.09,-67.14 265.37,-73.49 247.34,-79.02"/>
+<polygon fill="#000000" stroke="#000000" points="246.17,-75.72 237.63,-82 248.22,-82.41 246.17,-75.72"/>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_source_functions -->
+<g id="module~~mo_optical_props~~UsedByGraph_edge7" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_source_functions</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302.91,-42.01C288.28,-37.53 270.7,-32.14 254.49,-27.17"/>
+<polygon fill="#000000" stroke="#000000" points="255.21,-23.73 244.62,-24.15 253.16,-30.42 255.21,-23.73"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="518pt" height="32pt"
+ viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<!-- Module -->
+<g id="node1" class="node">
+<title>Module</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+</g>
+<!-- Submodule -->
+<g id="node2" class="node">
+<title>Submodule</title>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
+<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+</g>
+<!-- Subroutine -->
+<g id="node3" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
+<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+</g>
+<!-- Function -->
+<g id="node4" class="node">
+<title>Function</title>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
+<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
+<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node6" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
+<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a submodule to the (sub)module which it is
+    descended from. Dashed arrows point from a module or program unit to 
+    modules which it uses.
+    </p>
+    </div></div></div></div>
+  </li>
+      </ul>
+    </div>
+
+    <br>
+
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#vars-1">Variables</a></h3></div>
+  <div id="vars-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_optical_props.html#variable-name_len">name_len</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#types-1">Derived Types</a></h3></div>
+  <div id="types-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_optical_props.html#type-ty_optical_props">ty_optical_props</a>
+      <a class="list-group-item" href="../module/mo_optical_props.html#type-ty_optical_props_1scl">ty_optical_props_1scl</a>
+      <a class="list-group-item" href="../module/mo_optical_props.html#type-ty_optical_props_2str">ty_optical_props_2str</a>
+      <a class="list-group-item" href="../module/mo_optical_props.html#type-ty_optical_props_arry">ty_optical_props_arry</a>
+      <a class="list-group-item" href="../module/mo_optical_props.html#type-ty_optical_props_nstr">ty_optical_props_nstr</a>
+    </div>
+  </div>
+</div>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+
+    <section>
+    <h2>Variables</h2>
+    <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Visibility</th><th>Attributes</th><th></th><th>Name</th><th></th><th>Initial</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" id="variable-name_len"></span>integer,</td>
+<td>public,</td>  <td>parameter</td><td>::</td>
+  <td><strong>name_len</strong></td><td> =</td><td>32</td><td></td>
+</tr>
+</tbody>
+</table>
+
+    </section>
+    <br>
+    
+    
+
+    
+    <section>
+     <h2>Derived Types</h2>
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="type-ty_optical_props"></span><h3>type, public :: <a href='../type/ty_optical_props.html'>ty_optical_props</a>  </h3></div>
+  <div class="panel-body">
+    <p>Describes the spectral discretization including the wavenumber limits
+  of each band (spectral region) and the mapping between g-points and bands</p><a href="../type/ty_optical_props.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+     
+     <h4>Type-Bound Procedures</h4>
+      <table class="table table-striped varlist">
+      <tbody>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-bands_are_equal'>bands_are_equal</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-convert_band2gpt'>convert_band2gpt</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-convert_gpt2band'>convert_gpt2band</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-expand'>expand</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-finalize~3'>finalize</a></strong>  => finalize_base </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_band_lims_gpoint'>get_band_lims_gpoint</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_band_lims_wavelength'>get_band_lims_wavelength</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_band_lims_wavenumber'>get_band_lims_wavenumber</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_gpoint_bands'>get_gpoint_bands</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_name'>get_name</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_nband'>get_nband</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_ngpt'>get_ngpt</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-gpoints_are_equal'>gpoints_are_equal</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>generic, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-init~3'>init</a></strong>  => init_base, init_base_from_copy </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-is_initialized'>is_initialized</a></strong>  => is_initialized_base </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-set_name'>set_name</a></strong>  </td>
+       <td></td></tr>
+       </tbody>
+       </table>
+  </div>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="type-ty_optical_props_1scl"></span><h3>type, public, extends(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>) :: <a href='../type/ty_optical_props_1scl.html'>ty_optical_props_1scl</a>  </h3></div>
+  <div class="panel-body">
+    <p>ty_optical_props_arry represents optical properties as arrays with dimensions
+      column, height, spectral point
+  - Class 1-scalar only (extinction) optical depth
+  -  Class two-stream adds arrays for single scattering albedo ssa and
+     asymmetry parameter needed in two-stream methods
+  - Class n-stream adds arrays for single scattering albedo ssa and
+     phase function moments (index 1 = g) for use with discrete ordinate methods</p><a href="../type/ty_optical_props_1scl.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+     <h4>Components</h4>
+    <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Visibility</th><th>Attributes</th><th></th><th>Name</th><th></th><th>Initial</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" id="variable-tau"></span>real(kind=wp),</td>
+<td>public,</td>  <td>dimension(:,:,:), allocatable</td><td>::</td>
+  <td><strong>tau</strong></td><td></td><td></td><td><p>optical depth (ncol, nlay, ngpt)</p></td>
+</tr>
+</tbody>
+</table>
+
+     
+     <h4>Type-Bound Procedures</h4>
+      <table class="table table-striped varlist">
+      <tbody>
+       <tr><td>generic, public :: <strong><a href='../type/ty_optical_props_1scl.html#boundprocedure-alloc_1scl'>alloc_1scl</a></strong>  => alloc_only_1scl, init_and_alloc_1scl, copy_and_alloc_1scl </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-bands_are_equal'>bands_are_equal</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-convert_band2gpt'>convert_band2gpt</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-convert_gpt2band'>convert_gpt2band</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props_1scl.html#boundprocedure-delta_scale'>delta_scale</a></strong>  => delta_scale_1scl </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-expand'>expand</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-finalize~3'>finalize</a></strong>  => finalize_base </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props_1scl.html#boundprocedure-finalize_1scl'>finalize_1scl</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_band_lims_gpoint'>get_band_lims_gpoint</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_band_lims_wavelength'>get_band_lims_wavelength</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_band_lims_wavenumber'>get_band_lims_wavenumber</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_gpoint_bands'>get_gpoint_bands</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_name'>get_name</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_nband'>get_nband</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props_arry.html#boundprocedure-get_ncol~3'>get_ncol</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_ngpt'>get_ngpt</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props_arry.html#boundprocedure-get_nlay~2'>get_nlay</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props_1scl.html#boundprocedure-get_subset~3'>get_subset</a></strong>  => subset_1scl_range </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-gpoints_are_equal'>gpoints_are_equal</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props_arry.html#boundprocedure-increment'>increment</a></strong>  </td>
+       <td><p>Increment another set of values</p></td></tr>
+       <tr><td>generic, public :: <strong><a href='../type/ty_optical_props_1scl.html#boundprocedure-init~4'>init</a></strong>  => init_base, init_base_from_copy </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-is_initialized'>is_initialized</a></strong>  => is_initialized_base </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-set_name'>set_name</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props_1scl.html#boundprocedure-validate~2'>validate</a></strong>  => validate_1scalar </td>
+       <td></td></tr>
+       </tbody>
+       </table>
+  </div>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="type-ty_optical_props_2str"></span><h3>type, public, extends(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>) :: <a href='../type/ty_optical_props_2str.html'>ty_optical_props_2str</a>  </h3></div>
+  <div class="panel-body">
+     <h4>Components</h4>
+    <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Visibility</th><th>Attributes</th><th></th><th>Name</th><th></th><th>Initial</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" id="variable-g"></span>real(kind=wp),</td>
+<td>public,</td>  <td>dimension(:,:,:), allocatable</td><td>::</td>
+  <td><strong>g</strong></td><td></td><td></td><td><p>asymmetry parameter (ncol, nlay, ngpt)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-ssa"></span>real(kind=wp),</td>
+<td>public,</td>  <td>dimension(:,:,:), allocatable</td><td>::</td>
+  <td><strong>ssa</strong></td><td></td><td></td><td><p>single-scattering albedo (ncol, nlay, ngpt)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-tau"></span>real(kind=wp),</td>
+<td>public,</td>  <td>dimension(:,:,:), allocatable</td><td>::</td>
+  <td><strong>tau</strong></td><td></td><td></td><td><p>optical depth (ncol, nlay, ngpt)</p></td>
+</tr>
+</tbody>
+</table>
+
+     
+     <h4>Type-Bound Procedures</h4>
+      <table class="table table-striped varlist">
+      <tbody>
+       <tr><td>generic, public :: <strong><a href='../type/ty_optical_props_2str.html#boundprocedure-alloc_2str'>alloc_2str</a></strong>  => alloc_only_2str, init_and_alloc_2str, copy_and_alloc_2str </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-bands_are_equal'>bands_are_equal</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-convert_band2gpt'>convert_band2gpt</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-convert_gpt2band'>convert_gpt2band</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props_2str.html#boundprocedure-delta_scale~2'>delta_scale</a></strong>  => delta_scale_2str </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-expand'>expand</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-finalize~3'>finalize</a></strong>  => finalize_base </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props_2str.html#boundprocedure-finalize_2str'>finalize_2str</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_band_lims_gpoint'>get_band_lims_gpoint</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_band_lims_wavelength'>get_band_lims_wavelength</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_band_lims_wavenumber'>get_band_lims_wavenumber</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_gpoint_bands'>get_gpoint_bands</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_name'>get_name</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_nband'>get_nband</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props_arry.html#boundprocedure-get_ncol~3'>get_ncol</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_ngpt'>get_ngpt</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props_arry.html#boundprocedure-get_nlay~2'>get_nlay</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props_2str.html#boundprocedure-get_subset~4'>get_subset</a></strong>  => subset_2str_range </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-gpoints_are_equal'>gpoints_are_equal</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props_arry.html#boundprocedure-increment'>increment</a></strong>  </td>
+       <td><p>Increment another set of values</p></td></tr>
+       <tr><td>generic, public :: <strong><a href='../type/ty_optical_props_2str.html#boundprocedure-init~5'>init</a></strong>  => init_base, init_base_from_copy </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-is_initialized'>is_initialized</a></strong>  => is_initialized_base </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-set_name'>set_name</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props_2str.html#boundprocedure-validate~3'>validate</a></strong>  => validate_2stream </td>
+       <td></td></tr>
+       </tbody>
+       </table>
+  </div>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="type-ty_optical_props_arry"></span><h3>type, public, abstract, extends(<a href='../type/ty_optical_props.html'>ty_optical_props</a>) :: <a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>  </h3></div>
+  <div class="panel-body">
+    <p>The abstract base class for arrays defines what procedures will be available</p><a href="../type/ty_optical_props_arry.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+     <h4>Components</h4>
+    <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Visibility</th><th>Attributes</th><th></th><th>Name</th><th></th><th>Initial</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" id="variable-tau"></span>real(kind=wp),</td>
+<td>public,</td>  <td>dimension(:,:,:), allocatable</td><td>::</td>
+  <td><strong>tau</strong></td><td></td><td></td><td><p>optical depth (ncol, nlay, ngpt)</p></td>
+</tr>
+</tbody>
+</table>
+
+     
+     <h4>Type-Bound Procedures</h4>
+      <table class="table table-striped varlist">
+      <tbody>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-bands_are_equal'>bands_are_equal</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-convert_band2gpt'>convert_band2gpt</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-convert_gpt2band'>convert_gpt2band</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure(delta_scale_abstract), public :: <strong><a href='../type/ty_optical_props_arry.html#boundprocedure-delta_scale~3'>delta_scale</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-expand'>expand</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-finalize~3'>finalize</a></strong>  => finalize_base </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_band_lims_gpoint'>get_band_lims_gpoint</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_band_lims_wavelength'>get_band_lims_wavelength</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_band_lims_wavenumber'>get_band_lims_wavenumber</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_gpoint_bands'>get_gpoint_bands</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_name'>get_name</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_nband'>get_nband</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props_arry.html#boundprocedure-get_ncol~3'>get_ncol</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_ngpt'>get_ngpt</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props_arry.html#boundprocedure-get_nlay~2'>get_nlay</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure(subset_range_abstract), public :: <strong><a href='../type/ty_optical_props_arry.html#boundprocedure-get_subset~5'>get_subset</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-gpoints_are_equal'>gpoints_are_equal</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props_arry.html#boundprocedure-increment'>increment</a></strong>  </td>
+       <td><p>Increment another set of values</p></td></tr>
+       <tr><td>generic, public :: <strong><a href='../type/ty_optical_props_arry.html#boundprocedure-init~6'>init</a></strong>  => init_base, init_base_from_copy </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-is_initialized'>is_initialized</a></strong>  => is_initialized_base </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-set_name'>set_name</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure(validate_abstract), public :: <strong><a href='../type/ty_optical_props_arry.html#boundprocedure-validate'>validate</a></strong>  </td>
+       <td><p>Deferred procedures -- each must be implemented in each child class with
+  arguments following the abstract interface (defined below)</p></td></tr>
+       </tbody>
+       </table>
+  </div>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="type-ty_optical_props_nstr"></span><h3>type, public, extends(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>) :: <a href='../type/ty_optical_props_nstr.html'>ty_optical_props_nstr</a>  </h3></div>
+  <div class="panel-body">
+     <h4>Components</h4>
+    <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Visibility</th><th>Attributes</th><th></th><th>Name</th><th></th><th>Initial</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" id="variable-p"></span>real(kind=wp),</td>
+<td>public,</td>  <td>dimension(:,:,:,:), allocatable</td><td>::</td>
+  <td><strong>p</strong></td><td></td><td></td><td><p>phase-function moments (nmom, ncol, nlay, ngpt)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-ssa~2"></span>real(kind=wp),</td>
+<td>public,</td>  <td>dimension(:,:,:), allocatable</td><td>::</td>
+  <td><strong>ssa</strong></td><td></td><td></td><td><p>single-scattering albedo (ncol, nlay, ngpt)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-tau"></span>real(kind=wp),</td>
+<td>public,</td>  <td>dimension(:,:,:), allocatable</td><td>::</td>
+  <td><strong>tau</strong></td><td></td><td></td><td><p>optical depth (ncol, nlay, ngpt)</p></td>
+</tr>
+</tbody>
+</table>
+
+     
+     <h4>Type-Bound Procedures</h4>
+      <table class="table table-striped varlist">
+      <tbody>
+       <tr><td>generic, public :: <strong><a href='../type/ty_optical_props_nstr.html#boundprocedure-alloc_nstr'>alloc_nstr</a></strong>  => alloc_only_nstr, init_and_alloc_nstr, copy_and_alloc_nstr </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-bands_are_equal'>bands_are_equal</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-convert_band2gpt'>convert_band2gpt</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-convert_gpt2band'>convert_gpt2band</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props_nstr.html#boundprocedure-delta_scale~4'>delta_scale</a></strong>  => delta_scale_nstr </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-expand'>expand</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-finalize~3'>finalize</a></strong>  => finalize_base </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props_nstr.html#boundprocedure-finalize_nstr'>finalize_nstr</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_band_lims_gpoint'>get_band_lims_gpoint</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_band_lims_wavelength'>get_band_lims_wavelength</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_band_lims_wavenumber'>get_band_lims_wavenumber</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_gpoint_bands'>get_gpoint_bands</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_name'>get_name</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_nband'>get_nband</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props_arry.html#boundprocedure-get_ncol~3'>get_ncol</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_ngpt'>get_ngpt</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props_arry.html#boundprocedure-get_nlay~2'>get_nlay</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props_nstr.html#boundprocedure-get_nmom'>get_nmom</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props_nstr.html#boundprocedure-get_subset~6'>get_subset</a></strong>  => subset_nstr_range </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-gpoints_are_equal'>gpoints_are_equal</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props_arry.html#boundprocedure-increment'>increment</a></strong>  </td>
+       <td><p>Increment another set of values</p></td></tr>
+       <tr><td>generic, public :: <strong><a href='../type/ty_optical_props_nstr.html#boundprocedure-init~7'>init</a></strong>  => init_base, init_base_from_copy </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-is_initialized'>is_initialized</a></strong>  => is_initialized_base </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-set_name'>set_name</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props_nstr.html#boundprocedure-validate~4'>validate</a></strong>  => validate_nstream </td>
+       <td></td></tr>
+       </tbody>
+       </table>
+  </div>
+</div>
+
+    </section>
+  <br>
+    
+
+    
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/module/mo_rte_config.html b/reference/rte-fortran-interface/module/mo_rte_config.html
new file mode 100644
index 000000000..1040cc040
--- /dev/null
+++ b/reference/rte-fortran-interface/module/mo_rte_config.html
@@ -0,0 +1,618 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>mo_rte_config &ndash; RTE-Fortran</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>mo_rte_config 
+    <small>Module</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title=" 1.4% of total for modules and submodules.">22 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_rte_config.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li><a href='../sourcefile/mo_rte_config.f90.html'>mo_rte_config.F90</a></li>
+     <li class="active">mo_rte_config</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#vars-0">Variables</a></h3></div>
+  <div id="vars-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_rte_config.html#variable-check_extents">check_extents</a>
+      <a class="list-group-item" href="../module/mo_rte_config.html#variable-check_values">check_values</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#inters-0">Interfaces</a></h3></div>
+  <div id="inters-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_rte_config.html#interface-rte_config_checks">rte_config_checks</a>
+    </div>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+    <h2 id="control-input-sanitization-in-fortan-front-end">Control input sanitization in Fortan front-end</h2>
+<p>Provides public access to two proteced module variables</p>
+<hr>
+<br>        <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Uses</h3>
+      </div>
+      <ul class="list-group">
+      <li class="list-group-item">
+  <ul class="list-inline">
+    <li><a href='../module/mo_rte_kind.html'>mo_rte_kind</a></li>
+  </ul>
+      </li>
+      <li class="list-group-item">
+  <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: module~~mo_rte_config~~UsesGraph Pages: 1 -->
+<svg id="modulemo_rte_configUsesGraph" width="330pt" height="32pt"
+ viewBox="0.00 0.00 330.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~mo_rte_config~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>module~~mo_rte_config~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 326,-28 326,4 -4,4"/>
+<!-- module~mo_rte_config -->
+<g id="module~~mo_rte_config~~UsesGraph_node1" class="node">
+<title>module~mo_rte_config</title>
+<polygon fill="none" stroke="black" points="322,-24 234,-24 234,0 322,0 322,-24"/>
+<text text-anchor="middle" x="278" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_rte_config</text>
+</g>
+<!-- module~mo_rte_kind -->
+<g id="module~~mo_rte_config~~UsesGraph_node2" class="node">
+<title>module~mo_rte_kind</title>
+<g id="a_module~~mo_rte_config~~UsesGraph_node2"><a xlink:href=".././module/mo_rte_kind.html" xlink:title="mo_rte_kind">
+<polygon fill="#337ab7" stroke="#337ab7" points="198,-24 120,-24 120,0 198,0 198,-24"/>
+<text text-anchor="middle" x="159" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_config&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_rte_config~~UsesGraph_edge1" class="edge">
+<title>module~mo_rte_config&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M233.77,-12C225.44,-12 216.66,-12 208.19,-12"/>
+<polygon fill="#000000" stroke="#000000" points="208.04,-8.5 198.04,-12 208.04,-15.5 208.04,-8.5"/>
+</g>
+<!-- iso_c_binding -->
+<g id="module~~mo_rte_config~~UsesGraph_node3" class="node">
+<title>iso_c_binding</title>
+<g id="a_module~~mo_rte_config~~UsesGraph_node3"><a xlink:href="http://fortranwiki.org/fortran/show/iso_c_binding" xlink:title="iso_c_binding">
+<polygon fill="#337ab7" stroke="#337ab7" points="84,-24 0,-24 0,0 84,0 84,-24"/>
+<text text-anchor="middle" x="42" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_kind&#45;&gt;iso_c_binding -->
+<g id="module~~mo_rte_config~~UsesGraph_edge2" class="edge">
+<title>module~mo_rte_kind&#45;&gt;iso_c_binding</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M119.71,-12C111.62,-12 102.97,-12 94.49,-12"/>
+<polygon fill="#000000" stroke="#000000" points="94.29,-8.5 84.29,-12 94.29,-15.5 94.29,-8.5"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="518pt" height="32pt"
+ viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<!-- Module -->
+<g id="node1" class="node">
+<title>Module</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+</g>
+<!-- Submodule -->
+<g id="node2" class="node">
+<title>Submodule</title>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
+<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+</g>
+<!-- Subroutine -->
+<g id="node3" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
+<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+</g>
+<!-- Function -->
+<g id="node4" class="node">
+<title>Function</title>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
+<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
+<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node6" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
+<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a submodule to the (sub)module which it is
+    descended from. Dashed arrows point from a module or program unit to 
+    modules which it uses.
+    </p>
+    </div></div></div></div>
+      </li>
+      </ul>
+    </div>
+
+        <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Used by</h3>
+      </div>
+      <ul class="list-group">
+  <li class="list-group-item">
+    <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: module~~mo_rte_config~~UsedByGraph Pages: 1 -->
+<svg id="modulemo_rte_configUsedByGraph" width="503pt" height="133pt"
+ viewBox="0.00 0.00 503.00 132.97" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~mo_rte_config~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 128.97)">
+<title>module~~mo_rte_config~~UsedByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-128.97 499,-128.97 499,4 -4,4"/>
+<!-- module~mo_rte_config -->
+<g id="module~~mo_rte_config~~UsedByGraph_node1" class="node">
+<title>module~mo_rte_config</title>
+<polygon fill="none" stroke="black" points="88,-54.8 0,-54.8 0,-30.8 88,-30.8 88,-54.8"/>
+<text text-anchor="middle" x="44" y="-40.4" font-family="Helvetica,sans-Serif" font-size="10.50">mo_rte_config</text>
+</g>
+<!-- module~mo_optical_props -->
+<g id="module~~mo_rte_config~~UsedByGraph_node2" class="node">
+<title>module~mo_optical_props</title>
+<g id="a_module~~mo_rte_config~~UsedByGraph_node2"><a xlink:href=".././module/mo_optical_props.html" xlink:title="mo_optical_props">
+<polygon fill="#337ab7" stroke="#337ab7" points="230,-54.8 124,-54.8 124,-30.8 230,-30.8 230,-54.8"/>
+<text text-anchor="middle" x="177" y="-40.4" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props</text>
+</a>
+</g>
+</g>
+<!-- module~mo_optical_props&#45;&gt;module~mo_rte_config -->
+<g id="module~~mo_rte_config~~UsedByGraph_edge1" class="edge">
+<title>module~mo_optical_props&#45;&gt;module~mo_rte_config</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M123.85,-42.8C115.43,-42.8 106.7,-42.8 98.25,-42.8"/>
+<polygon fill="#000000" stroke="#000000" points="98.13,-39.3 88.13,-42.8 98.13,-46.3 98.13,-39.3"/>
+</g>
+<!-- module~mo_fluxes -->
+<g id="module~~mo_rte_config~~UsedByGraph_node3" class="node">
+<title>module~mo_fluxes</title>
+<g id="a_module~~mo_rte_config~~UsedByGraph_node3"><a xlink:href=".././module/mo_fluxes.html" xlink:title="mo_fluxes">
+<polygon fill="#337ab7" stroke="#337ab7" points="361.5,-54.8 294.5,-54.8 294.5,-30.8 361.5,-30.8 361.5,-54.8"/>
+<text text-anchor="middle" x="328" y="-40.4" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_fluxes</text>
+</a>
+</g>
+</g>
+<!-- module~mo_fluxes&#45;&gt;module~mo_rte_config -->
+<g id="module~~mo_rte_config~~UsedByGraph_edge2" class="edge">
+<title>module~mo_fluxes&#45;&gt;module~mo_rte_config</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.23,-31.23C257.59,-18.79 200.43,-1 178,-2.8"/>
+</g>
+<!-- module~mo_fluxes&#45;&gt;module~mo_optical_props -->
+<g id="module~~mo_rte_config~~UsedByGraph_edge6" class="edge">
+<title>module~mo_fluxes&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.3,-42.8C278.47,-42.8 258.92,-42.8 240.39,-42.8"/>
+<polygon fill="#000000" stroke="#000000" points="240.24,-39.3 230.24,-42.8 240.24,-46.3 240.24,-39.3"/>
+</g>
+<!-- module~mo_rte_lw -->
+<g id="module~~mo_rte_config~~UsedByGraph_node4" class="node">
+<title>module~mo_rte_lw</title>
+<g id="a_module~~mo_rte_config~~UsedByGraph_node4"><a xlink:href=".././module/mo_rte_lw.html" xlink:title="mo_rte_lw">
+<polygon fill="#337ab7" stroke="#337ab7" points="494,-96.8 427,-96.8 427,-72.8 494,-72.8 494,-96.8"/>
+<text text-anchor="middle" x="460.5" y="-82.4" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_lw</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_rte_config -->
+<g id="module~~mo_rte_config~~UsedByGraph_edge3" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_rte_config</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M327,-124.8C233.65,-126.11 129.57,-83.6 77.87,-59.28"/>
+<polygon fill="#000000" stroke="#000000" points="79.37,-56.12 68.84,-54.97 76.35,-62.44 79.37,-56.12"/>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_optical_props -->
+<g id="module~~mo_rte_config~~UsedByGraph_edge8" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M435.16,-96.8C409.45,-108.39 367.38,-124.27 329,-124.8"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M327,-124.8C275.09,-125.53 224.21,-86.58 197.42,-62.11"/>
+<polygon fill="#000000" stroke="#000000" points="199.59,-59.35 189.91,-55.04 194.79,-64.45 199.59,-59.35"/>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_fluxes -->
+<g id="module~~mo_rte_config~~UsedByGraph_edge10" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_fluxes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.91,-74.31C410.09,-68.9 389.37,-62.23 371.34,-56.43"/>
+<polygon fill="#000000" stroke="#000000" points="372.22,-53.04 361.63,-53.31 370.08,-59.7 372.22,-53.04"/>
+</g>
+<!-- module~mo_source_functions -->
+<g id="module~~mo_rte_config~~UsedByGraph_node6" class="node">
+<title>module~mo_source_functions</title>
+<g id="a_module~~mo_rte_config~~UsedByGraph_node6"><a xlink:href=".././module/mo_source_functions.html" xlink:title="mo_source_functions">
+<polygon fill="#337ab7" stroke="#337ab7" points="390,-96.8 266,-96.8 266,-72.8 390,-72.8 390,-96.8"/>
+<text text-anchor="middle" x="328" y="-82.4" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_source_functions</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_source_functions -->
+<g id="module~~mo_rte_config~~UsedByGraph_edge11" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_source_functions</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.91,-84.8C418.7,-84.8 409.57,-84.8 400.27,-84.8"/>
+<polygon fill="#000000" stroke="#000000" points="400.15,-81.3 390.15,-84.8 400.15,-88.3 400.15,-81.3"/>
+</g>
+<!-- module~mo_rte_sw -->
+<g id="module~~mo_rte_config~~UsedByGraph_node5" class="node">
+<title>module~mo_rte_sw</title>
+<g id="a_module~~mo_rte_config~~UsedByGraph_node5"><a xlink:href=".././module/mo_rte_sw.html" xlink:title="mo_rte_sw">
+<polygon fill="#337ab7" stroke="#337ab7" points="495,-34.8 426,-34.8 426,-10.8 495,-10.8 495,-34.8"/>
+<text text-anchor="middle" x="460.5" y="-20.4" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_sw</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;module~mo_rte_config -->
+<g id="module~~mo_rte_config~~UsedByGraph_edge4" class="edge">
+<title>module~mo_rte_sw&#45;&gt;module~mo_rte_config</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.92,-14.95C399.69,-9.48 362.23,-3.11 329,-2.8"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M327,-2.8C260.78,-2.2 244.01,2.5 178,-2.8"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M176,-2.8C143.21,-5.44 107.61,-16.91 81.81,-26.89"/>
+<polygon fill="#000000" stroke="#000000" points="80.42,-23.67 72.42,-30.62 83.01,-30.18 80.42,-23.67"/>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;module~mo_optical_props -->
+<g id="module~~mo_rte_config~~UsedByGraph_edge5" class="edge">
+<title>module~mo_rte_sw&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M327,-2.8C287.66,-2.45 244.41,-15.67 214.69,-27.01"/>
+<polygon fill="#000000" stroke="#000000" points="213.18,-23.84 205.15,-30.76 215.74,-30.35 213.18,-23.84"/>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;module~mo_fluxes -->
+<g id="module~~mo_rte_config~~UsedByGraph_edge9" class="edge">
+<title>module~mo_rte_sw&#45;&gt;module~mo_fluxes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.89,-27.95C409.35,-30.49 389.23,-33.57 371.62,-36.27"/>
+<polygon fill="#000000" stroke="#000000" points="370.95,-32.83 361.59,-37.81 372.01,-39.75 370.95,-32.83"/>
+</g>
+<!-- module~mo_source_functions&#45;&gt;module~mo_optical_props -->
+<g id="module~~mo_rte_config~~UsedByGraph_edge7" class="edge">
+<title>module~mo_source_functions&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.3,-72.77C267.63,-68.07 248.33,-62.63 230.79,-57.68"/>
+<polygon fill="#000000" stroke="#000000" points="231.28,-54.19 220.7,-54.84 229.38,-60.92 231.28,-54.19"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="518pt" height="32pt"
+ viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<!-- Module -->
+<g id="node1" class="node">
+<title>Module</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+</g>
+<!-- Submodule -->
+<g id="node2" class="node">
+<title>Submodule</title>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
+<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+</g>
+<!-- Subroutine -->
+<g id="node3" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
+<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+</g>
+<!-- Function -->
+<g id="node4" class="node">
+<title>Function</title>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
+<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
+<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node6" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
+<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a submodule to the (sub)module which it is
+    descended from. Dashed arrows point from a module or program unit to 
+    modules which it uses.
+    </p>
+    </div></div></div></div>
+  </li>
+      </ul>
+    </div>
+
+    <br>
+
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#vars-1">Variables</a></h3></div>
+  <div id="vars-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_rte_config.html#variable-check_extents">check_extents</a>
+      <a class="list-group-item" href="../module/mo_rte_config.html#variable-check_values">check_values</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#inters-1">Interfaces</a></h3></div>
+  <div id="inters-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_rte_config.html#interface-rte_config_checks">rte_config_checks</a>
+    </div>
+  </div>
+</div>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+
+    <section>
+    <h2>Variables</h2>
+    <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Visibility</th><th>Attributes</th><th></th><th>Name</th><th></th><th>Initial</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" id="variable-check_extents"></span>logical(kind=wl),</td>
+<td>public</td>  <td></td><td>::</td>
+  <td><strong>check_extents</strong></td><td> =</td><td>.true.</td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-check_values"></span>logical(kind=wl),</td>
+<td>public</td>  <td></td><td>::</td>
+  <td><strong>check_values</strong></td><td> =</td><td>.true.</td><td></td>
+</tr>
+</tbody>
+</table>
+
+    </section>
+    <br>
+    
+    
+    <section>
+   <h2>Interfaces</h2>
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-rte_config_checks"></span><h3>public interface <a href='../interface/rte_config_checks.html'>rte_config_checks</a>  </h3></div>
+  <div class="panel-body">
+    <p>Specify checking of extents and values individually, or all checks together</p>
+  </div>
+  <ul class="list-group">
+    <li class="list-group-item">
+    <h3>private subroutine rte_config_checks_each(extents, values)</h3><p>Do extents and/or values checks within RTE+RRTMGP Fortran classes</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>logical(kind=wl),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>extents</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>logical(kind=wl),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>values</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+
+    </li>
+    <li class="list-group-item">
+    <h3>private subroutine rte_config_checks_all(do_checks)</h3><p>Do all checks within RTE+RRTMGP Fortran classes</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>logical(kind=wl),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>do_checks</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+
+    </li>
+  </ul>
+</div>
+
+    </section>
+  <br>
+
+    
+    
+
+    
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/module/mo_rte_kind.html b/reference/rte-fortran-interface/module/mo_rte_kind.html
new file mode 100644
index 000000000..ff998c88b
--- /dev/null
+++ b/reference/rte-fortran-interface/module/mo_rte_kind.html
@@ -0,0 +1,647 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>mo_rte_kind &ndash; RTE-Fortran</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>mo_rte_kind 
+    <small>Module</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title=" 0.5% of total for modules and submodules.">8 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_rte_kind.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li><a href='../sourcefile/mo_rte_kind.f90.html'>mo_rte_kind.F90</a></li>
+     <li class="active">mo_rte_kind</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#vars-0">Variables</a></h3></div>
+  <div id="vars-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_rte_kind.html#variable-dp">dp</a>
+      <a class="list-group-item" href="../module/mo_rte_kind.html#variable-i4">i4</a>
+      <a class="list-group-item" href="../module/mo_rte_kind.html#variable-i8">i8</a>
+      <a class="list-group-item" href="../module/mo_rte_kind.html#variable-sp">sp</a>
+      <a class="list-group-item" href="../module/mo_rte_kind.html#variable-wl">wl</a>
+      <a class="list-group-item" href="../module/mo_rte_kind.html#variable-wp">wp</a>
+    </div>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+    <h2 id="provide-the-fortran-kind-parameters-for-real-and-integer-variables">Provide the Fortran KIND parameters for REAL and INTEGER variables.</h2>
+<p>By default kind parameters come from the ISO C binding and use double precision for working.</p>
+<br>        <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Uses</h3>
+      </div>
+      <ul class="list-group">
+      <li class="list-group-item">
+  <ul class="list-inline">
+    <li><a href="http://fortranwiki.org/fortran/show/iso_c_binding">iso_c_binding</a></li>
+  </ul>
+      </li>
+      <li class="list-group-item">
+  <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: module~~mo_rte_kind~~UsesGraph Pages: 1 -->
+<svg id="modulemo_rte_kindUsesGraph" width="206pt" height="32pt"
+ viewBox="0.00 0.00 206.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~mo_rte_kind~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>module~~mo_rte_kind~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 202,-28 202,4 -4,4"/>
+<!-- module~mo_rte_kind -->
+<g id="module~~mo_rte_kind~~UsesGraph_node1" class="node">
+<title>module~mo_rte_kind</title>
+<polygon fill="none" stroke="black" points="198,-24 120,-24 120,0 198,0 198,-24"/>
+<text text-anchor="middle" x="159" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_rte_kind</text>
+</g>
+<!-- iso_c_binding -->
+<g id="module~~mo_rte_kind~~UsesGraph_node2" class="node">
+<title>iso_c_binding</title>
+<g id="a_module~~mo_rte_kind~~UsesGraph_node2"><a xlink:href="http://fortranwiki.org/fortran/show/iso_c_binding" xlink:title="iso_c_binding">
+<polygon fill="#337ab7" stroke="#337ab7" points="84,-24 0,-24 0,0 84,0 84,-24"/>
+<text text-anchor="middle" x="42" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_kind&#45;&gt;iso_c_binding -->
+<g id="module~~mo_rte_kind~~UsesGraph_edge1" class="edge">
+<title>module~mo_rte_kind&#45;&gt;iso_c_binding</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M119.71,-12C111.62,-12 102.97,-12 94.49,-12"/>
+<polygon fill="#000000" stroke="#000000" points="94.29,-8.5 84.29,-12 94.29,-15.5 94.29,-8.5"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="518pt" height="32pt"
+ viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<!-- Module -->
+<g id="node1" class="node">
+<title>Module</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+</g>
+<!-- Submodule -->
+<g id="node2" class="node">
+<title>Submodule</title>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
+<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+</g>
+<!-- Subroutine -->
+<g id="node3" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
+<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+</g>
+<!-- Function -->
+<g id="node4" class="node">
+<title>Function</title>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
+<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
+<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node6" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
+<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a submodule to the (sub)module which it is
+    descended from. Dashed arrows point from a module or program unit to 
+    modules which it uses.
+    </p>
+    </div></div></div></div>
+      </li>
+      </ul>
+    </div>
+
+        <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Used by</h3>
+      </div>
+      <ul class="list-group">
+  <li class="list-group-item">
+    <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: module~~mo_rte_kind~~UsedByGraph Pages: 1 -->
+<svg id="modulemo_rte_kindUsedByGraph" width="641pt" height="237pt"
+ viewBox="0.00 0.00 641.00 237.49" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~mo_rte_kind~~UsedByGraph" class="graph" transform="scale(1.08 1.08) rotate(0) translate(4 252.39)">
+<title>module~~mo_rte_kind~~UsedByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-252.39 688,-252.39 688,4 -4,4"/>
+<!-- module~mo_rte_kind -->
+<g id="module~~mo_rte_kind~~UsedByGraph_node1" class="node">
+<title>module~mo_rte_kind</title>
+<polygon fill="none" stroke="black" points="78,-156.54 0,-156.54 0,-132.54 78,-132.54 78,-156.54"/>
+<text text-anchor="middle" x="39" y="-142.14" font-family="Helvetica,sans-Serif" font-size="10.50">mo_rte_kind</text>
+</g>
+<!-- module~mo_rte_util_array_validation -->
+<g id="module~~mo_rte_kind~~UsedByGraph_node2" class="node">
+<title>module~mo_rte_util_array_validation</title>
+<g id="a_module~~mo_rte_kind~~UsedByGraph_node2"><a xlink:href=".././module/mo_rte_util_array_validation.html" xlink:title="mo_rte_util_array_validation">
+<polygon fill="#337ab7" stroke="#337ab7" points="277,-117.54 114,-117.54 114,-93.54 277,-93.54 277,-117.54"/>
+<text text-anchor="middle" x="195.5" y="-103.14" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array_validation</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_util_array_validation&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_rte_kind~~UsedByGraph_edge1" class="edge">
+<title>module~mo_rte_util_array_validation&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M146.88,-117.56C128.25,-122.26 106.89,-127.65 88.2,-132.37"/>
+<polygon fill="#000000" stroke="#000000" points="87.25,-129 78.41,-134.84 88.96,-135.79 87.25,-129"/>
+</g>
+<!-- module~mo_optical_props -->
+<g id="module~~mo_rte_kind~~UsedByGraph_node3" class="node">
+<title>module~mo_optical_props</title>
+<g id="a_module~~mo_rte_kind~~UsedByGraph_node3"><a xlink:href=".././module/mo_optical_props.html" xlink:title="mo_optical_props">
+<polygon fill="#337ab7" stroke="#337ab7" points="419,-99.54 313,-99.54 313,-75.54 419,-75.54 419,-99.54"/>
+<text text-anchor="middle" x="366" y="-85.14" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props</text>
+</a>
+</g>
+</g>
+<!-- module~mo_optical_props&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_rte_kind~~UsedByGraph_edge2" class="edge">
+<title>module~mo_optical_props&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M352.92,-75.36C326.04,-49.79 258.76,5.92 196.5,-9.54"/>
+</g>
+<!-- module~mo_optical_props&#45;&gt;module~mo_rte_util_array_validation -->
+<g id="module~~mo_rte_kind~~UsedByGraph_edge9" class="edge">
+<title>module~mo_optical_props&#45;&gt;module~mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M312.61,-93.14C304.49,-94 295.9,-94.92 287.22,-95.85"/>
+<polygon fill="#000000" stroke="#000000" points="286.58,-92.4 277.01,-96.94 287.32,-99.36 286.58,-92.4"/>
+</g>
+<!-- module~mo_rte_config -->
+<g id="module~~mo_rte_kind~~UsedByGraph_node5" class="node">
+<title>module~mo_rte_config</title>
+<g id="a_module~~mo_rte_kind~~UsedByGraph_node5"><a xlink:href=".././module/mo_rte_config.html" xlink:title="mo_rte_config">
+<polygon fill="#337ab7" stroke="#337ab7" points="239.5,-177.54 151.5,-177.54 151.5,-153.54 239.5,-153.54 239.5,-177.54"/>
+<text text-anchor="middle" x="195.5" y="-163.14" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_config</text>
+</a>
+</g>
+</g>
+<!-- module~mo_optical_props&#45;&gt;module~mo_rte_config -->
+<g id="module~~mo_rte_kind~~UsedByGraph_edge18" class="edge">
+<title>module~mo_optical_props&#45;&gt;module~mo_rte_config</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M339.04,-99.56C310.35,-112.84 263.95,-134.32 231.93,-149.14"/>
+<polygon fill="#000000" stroke="#000000" points="230.09,-146.13 222.49,-153.51 233.03,-152.48 230.09,-146.13"/>
+</g>
+<!-- module~mo_fluxes -->
+<g id="module~~mo_rte_kind~~UsedByGraph_node4" class="node">
+<title>module~mo_fluxes</title>
+<g id="a_module~~mo_rte_kind~~UsedByGraph_node4"><a xlink:href=".././module/mo_fluxes.html" xlink:title="mo_fluxes">
+<polygon fill="#337ab7" stroke="#337ab7" points="550.5,-196.54 483.5,-196.54 483.5,-172.54 550.5,-172.54 550.5,-196.54"/>
+<text text-anchor="middle" x="517" y="-182.14" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_fluxes</text>
+</a>
+</g>
+</g>
+<!-- module~mo_fluxes&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_rte_kind~~UsedByGraph_edge3" class="edge">
+<title>module~mo_fluxes&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M365,-203.54C288.38,-208.34 271.39,-258.44 196.5,-241.54"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M194.5,-241.54C140.23,-229.29 87.69,-188.18 60.06,-163.59"/>
+<polygon fill="#000000" stroke="#000000" points="62.39,-160.97 52.63,-156.83 57.68,-166.14 62.39,-160.97"/>
+</g>
+<!-- module~mo_fluxes&#45;&gt;module~mo_rte_util_array_validation -->
+<g id="module~~mo_rte_kind~~UsedByGraph_edge11" class="edge">
+<title>module~mo_fluxes&#45;&gt;module~mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.82,-172.49C458.15,-160.1 409.86,-140.8 367,-127.54"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M365,-127.54C340.37,-119.92 312.91,-114.94 287.44,-111.68"/>
+<polygon fill="#000000" stroke="#000000" points="287.75,-108.2 277.41,-110.48 286.92,-115.15 287.75,-108.2"/>
+</g>
+<!-- module~mo_fluxes&#45;&gt;module~mo_optical_props -->
+<g id="module~~mo_rte_kind~~UsedByGraph_edge13" class="edge">
+<title>module~mo_fluxes&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M501.1,-172.4C482.51,-157.56 449.47,-132.12 419,-113.54 413.81,-110.37 408.19,-107.26 402.62,-104.35"/>
+<polygon fill="#000000" stroke="#000000" points="403.89,-101.07 393.39,-99.66 400.72,-107.31 403.89,-101.07"/>
+</g>
+<!-- module~mo_fluxes&#45;&gt;module~mo_rte_config -->
+<g id="module~~mo_rte_kind~~UsedByGraph_edge19" class="edge">
+<title>module~mo_fluxes&#45;&gt;module~mo_rte_config</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.27,-189.94C453.16,-194.62 407.21,-201.02 367,-203.54"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M365,-203.54C319.92,-206.37 269.55,-192.71 235.73,-180.99"/>
+<polygon fill="#000000" stroke="#000000" points="236.81,-177.66 226.21,-177.59 234.46,-184.25 236.81,-177.66"/>
+</g>
+<!-- module~mo_rte_config&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_rte_kind~~UsedByGraph_edge4" class="edge">
+<title>module~mo_rte_config&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.46,-159.69C131.76,-157.01 108.33,-153.83 88.05,-151.07"/>
+<polygon fill="#000000" stroke="#000000" points="88.45,-147.59 78.07,-149.71 87.51,-154.53 88.45,-147.59"/>
+</g>
+<!-- module~mo_rte_sw -->
+<g id="module~~mo_rte_kind~~UsedByGraph_node6" class="node">
+<title>module~mo_rte_sw</title>
+<g id="a_module~~mo_rte_kind~~UsedByGraph_node6"><a xlink:href=".././module/mo_rte_sw.html" xlink:title="mo_rte_sw">
+<polygon fill="#337ab7" stroke="#337ab7" points="684,-178.54 615,-178.54 615,-154.54 684,-154.54 684,-178.54"/>
+<text text-anchor="middle" x="649.5" y="-164.14" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_sw</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_rte_kind~~UsedByGraph_edge5" class="edge">
+<title>module~mo_rte_sw&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M365,-241.54C290.22,-237.53 269.55,-258.02 196.5,-241.54"/>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;module~mo_rte_util_array_validation -->
+<g id="module~~mo_rte_kind~~UsedByGraph_edge8" class="edge">
+<title>module~mo_rte_sw&#45;&gt;module~mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.39,-178.74C607.39,-194.73 561.75,-221.17 518,-224.54"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M516,-224.54C487.69,-226.72 479.73,-219.49 455,-205.54 409.48,-179.86 416.93,-142.98 367,-127.54"/>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;module~mo_optical_props -->
+<g id="module~~mo_rte_kind~~UsedByGraph_edge12" class="edge">
+<title>module~mo_rte_sw&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630.06,-154.33C605.66,-139.07 560.73,-114.05 518,-106.54"/>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;module~mo_fluxes -->
+<g id="module~~mo_rte_kind~~UsedByGraph_edge16" class="edge">
+<title>module~mo_rte_sw&#45;&gt;module~mo_fluxes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M614.89,-171.18C598.35,-173.46 578.23,-176.23 560.62,-178.66"/>
+<polygon fill="#000000" stroke="#000000" points="560.02,-175.21 550.59,-180.04 560.98,-182.15 560.02,-175.21"/>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;module~mo_rte_config -->
+<g id="module~~mo_rte_kind~~UsedByGraph_edge21" class="edge">
+<title>module~mo_rte_sw&#45;&gt;module~mo_rte_config</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M516,-224.54C449.54,-229.66 433.56,-245.11 367,-241.54"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M365,-241.54C309.88,-238.58 252.75,-205.28 221.21,-183.76"/>
+<polygon fill="#000000" stroke="#000000" points="222.84,-180.63 212.64,-177.76 218.83,-186.36 222.84,-180.63"/>
+</g>
+<!-- module~mo_source_functions -->
+<g id="module~~mo_rte_kind~~UsedByGraph_node7" class="node">
+<title>module~mo_source_functions</title>
+<g id="a_module~~mo_rte_kind~~UsedByGraph_node7"><a xlink:href=".././module/mo_source_functions.html" xlink:title="mo_source_functions">
+<polygon fill="#337ab7" stroke="#337ab7" points="579,-61.54 455,-61.54 455,-37.54 579,-37.54 579,-61.54"/>
+<text text-anchor="middle" x="517" y="-47.14" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_source_functions</text>
+</a>
+</g>
+</g>
+<!-- module~mo_source_functions&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_rte_kind~~UsedByGraph_edge6" class="edge">
+<title>module~mo_source_functions&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M485.21,-37.46C455.49,-26.72 408.96,-12.31 367,-9.54"/>
+</g>
+<!-- module~mo_source_functions&#45;&gt;module~mo_optical_props -->
+<g id="module~~mo_rte_kind~~UsedByGraph_edge14" class="edge">
+<title>module~mo_source_functions&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M468.86,-61.56C454.65,-65.18 438.91,-69.2 424.14,-72.97"/>
+<polygon fill="#000000" stroke="#000000" points="422.92,-69.67 414.09,-75.53 424.65,-76.45 422.92,-69.67"/>
+</g>
+<!-- module~mo_rte_lw -->
+<g id="module~~mo_rte_kind~~UsedByGraph_node8" class="node">
+<title>module~mo_rte_lw</title>
+<g id="a_module~~mo_rte_kind~~UsedByGraph_node8"><a xlink:href=".././module/mo_rte_lw.html" xlink:title="mo_rte_lw">
+<polygon fill="#337ab7" stroke="#337ab7" points="683,-118.54 616,-118.54 616,-94.54 683,-94.54 683,-118.54"/>
+<text text-anchor="middle" x="649.5" y="-104.14" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_lw</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_rte_kind~~UsedByGraph_edge7" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.83,-94.39C629.4,-77.25 606.29,-46.13 579,-28.54 555.13,-13.16 545.48,-16.7 518,-9.54"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M516,-9.54C451.92,7.17 433.08,-13.9 367,-9.54"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M365,-9.54C290.27,-4.61 269.18,8.51 196.5,-9.54"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M194.5,-9.54C130.04,-25.55 77.51,-89.86 53.74,-123.62"/>
+<polygon fill="#000000" stroke="#000000" points="50.58,-122.03 47.81,-132.26 56.35,-125.99 50.58,-122.03"/>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_rte_util_array_validation -->
+<g id="module~~mo_rte_kind~~UsedByGraph_edge10" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M516,-9.54C488.88,-2.52 320.26,-60.94 239.51,-89.9"/>
+<polygon fill="#000000" stroke="#000000" points="237.88,-86.77 229.65,-93.45 240.25,-93.36 237.88,-86.77"/>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_optical_props -->
+<g id="module~~mo_rte_kind~~UsedByGraph_edge15" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M615.78,-109.66C589.22,-111.44 550.91,-112.32 518,-106.54"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M516,-106.54C487.65,-101.56 456.04,-97.34 429.25,-94.15"/>
+<polygon fill="#000000" stroke="#000000" points="429.58,-90.67 419.24,-92.98 428.77,-97.62 429.58,-90.67"/>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_fluxes -->
+<g id="module~~mo_rte_kind~~UsedByGraph_edge17" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_fluxes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M634.56,-118.56C621,-129.85 599.5,-146.73 579,-158.54 572.97,-162.01 566.38,-165.3 559.84,-168.29"/>
+<polygon fill="#000000" stroke="#000000" points="558.11,-165.22 550.36,-172.44 560.92,-171.64 558.11,-165.22"/>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_rte_config -->
+<g id="module~~mo_rte_kind~~UsedByGraph_edge20" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_rte_config</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M615.71,-113.62C604.14,-116 591.02,-118.54 579,-120.54 462.14,-139.96 323.83,-154.05 249.73,-160.89"/>
+<polygon fill="#000000" stroke="#000000" points="249.35,-157.41 239.71,-161.81 249.99,-164.38 249.35,-157.41"/>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_source_functions -->
+<g id="module~~mo_rte_kind~~UsedByGraph_edge22" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_source_functions</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M620.82,-94.45C601.62,-86.06 575.83,-74.8 554.88,-65.65"/>
+<polygon fill="#000000" stroke="#000000" points="556.2,-62.41 545.64,-61.61 553.4,-68.82 556.2,-62.41"/>
+</g>
+</g>
+</svg>
+</div><script>var panmodulemo_rte_kindUsedByGraph = svgPanZoom('#modulemo_rte_kindUsedByGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="518pt" height="32pt"
+ viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<!-- Module -->
+<g id="node1" class="node">
+<title>Module</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+</g>
+<!-- Submodule -->
+<g id="node2" class="node">
+<title>Submodule</title>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
+<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+</g>
+<!-- Subroutine -->
+<g id="node3" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
+<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+</g>
+<!-- Function -->
+<g id="node4" class="node">
+<title>Function</title>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
+<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
+<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node6" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
+<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a submodule to the (sub)module which it is
+    descended from. Dashed arrows point from a module or program unit to 
+    modules which it uses.
+    </p>
+    </div></div></div></div>
+  </li>
+      </ul>
+    </div>
+
+    <br>
+
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#vars-1">Variables</a></h3></div>
+  <div id="vars-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_rte_kind.html#variable-dp">dp</a>
+      <a class="list-group-item" href="../module/mo_rte_kind.html#variable-i4">i4</a>
+      <a class="list-group-item" href="../module/mo_rte_kind.html#variable-i8">i8</a>
+      <a class="list-group-item" href="../module/mo_rte_kind.html#variable-sp">sp</a>
+      <a class="list-group-item" href="../module/mo_rte_kind.html#variable-wl">wl</a>
+      <a class="list-group-item" href="../module/mo_rte_kind.html#variable-wp">wp</a>
+    </div>
+  </div>
+</div>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+
+    <section>
+    <h2>Variables</h2>
+    <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Visibility</th><th>Attributes</th><th></th><th>Name</th><th></th><th>Initial</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" id="variable-dp"></span>integer,</td>
+<td>public,</td>  <td>parameter</td><td>::</td>
+  <td><strong>dp</strong></td><td> =</td><td>c_double</td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-i4"></span>integer,</td>
+<td>public,</td>  <td>parameter</td><td>::</td>
+  <td><strong>i4</strong></td><td> =</td><td>c_int</td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-i8"></span>integer,</td>
+<td>public,</td>  <td>parameter</td><td>::</td>
+  <td><strong>i8</strong></td><td> =</td><td>c_long</td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-sp"></span>integer,</td>
+<td>public,</td>  <td>parameter</td><td>::</td>
+  <td><strong>sp</strong></td><td> =</td><td>c_float</td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-wl"></span>integer,</td>
+<td>public,</td>  <td>parameter</td><td>::</td>
+  <td><strong>wl</strong></td><td> =</td><td>kind(.true.)</td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-wp"></span>integer,</td>
+<td>public,</td>  <td>parameter</td><td>::</td>
+  <td><strong>wp</strong></td><td> =</td><td>dp</td><td></td>
+</tr>
+</tbody>
+</table>
+
+    </section>
+    <br>
+    
+    
+
+    
+    
+
+    
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/module/mo_rte_lw.html b/reference/rte-fortran-interface/module/mo_rte_lw.html
new file mode 100644
index 000000000..828d46ffa
--- /dev/null
+++ b/reference/rte-fortran-interface/module/mo_rte_lw.html
@@ -0,0 +1,629 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>mo_rte_lw &ndash; RTE-Fortran</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>mo_rte_lw 
+    <small>Module</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title="12.7% of total for modules and submodules.">202 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_rte_lw.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li><a href='../sourcefile/mo_rte_lw.f90.html'>mo_rte_lw.F90</a></li>
+     <li class="active">mo_rte_lw</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#funcs-0">Functions</a></h3></div>
+  <div id="funcs-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_rte_lw.html#proc-rte_lw">rte_lw</a>
+    </div>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+    <p>Compute longwave radiative fluxes</p>
+<p>Contains a single routine to compute direct and diffuse fluxes of solar radiation given</p>
+<ul>
+<li>atmospheric optical properties, spectrally-resolved via one of the sub-classes of
+    <a href="../module/mo_optical_props.html#type-ty_optical_props_arry">ty_optical_props_arry</a> in module <a href="../module/mo_optical_props.html">mo_optical_props</a></li>
+<li>information about vertical ordering</li>
+<li>internal Planck source functions, defined per g-point on the same spectral grid at the atmosphere,
+    via <a href="../module/mo_source_functions.html#type-ty_source_func_lw">ty_source_func_lw</a> in module <a href="../module/mo_source_functions.html">mo_source_functions</a></li>
+<li>boundary conditions: surface emissivity defined per band</li>
+<li>optionally, a boundary condition for incident diffuse radiation</li>
+<li>optionally, an integer number of angles at which to do Gaussian quadrature if scattering is neglected</li>
+</ul>
+<p>If optical properties are supplied via class ty_optical_props_1scl (absorption optical thickenss only)
+   (<a href="../module/mo_optical_props.html#type-ty_optical_props_1scl">ty_optical_props_1scl</a> in module <a href="../module/mo_optical_props.html">mo_optical_props</a>)
+   then an emission/absorption solver is called.
+   If optical properties are supplied via class ty_optical_props_2str
+   (<a href="../module/mo_optical_props.html#type-ty_optical_props_2str">ty_optical_props_2str</a> in module <a href="../module/mo_optical_props.html">mo_optical_props</a>)
+   fluxes are computed via a rescaling by default or, optionally, using two-stream calculations and adding.</p>
+<p>Users must ensure that emissivity is on the same spectral grid as the optical properties.</p>
+<p>Final output is via user-extensible ty_fluxes
+(<a href="../module/mo_fluxes.html#type-ty_fluxes">ty_fluxes</a> in module <a href="../module/mo_fluxes.html">mo_fluxes</a>)
+which must reduce the detailed spectral fluxes to whatever summary the user needs
+The routine does error checking and choses which lower-level kernel to invoke based on
+  what kinds of optical properties are supplied</p>
+<br>        <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Uses</h3>
+      </div>
+      <ul class="list-group">
+      <li class="list-group-item">
+  <ul class="list-inline">
+    <li>mo_rte_util_array</li>
+    <li>mo_rte_solver_kernels</li>
+    <li><a href='../module/mo_source_functions.html'>mo_source_functions</a></li>
+    <li><a href='../module/mo_rte_util_array_validation.html'>mo_rte_util_array_validation</a></li>
+    <li><a href='../module/mo_rte_kind.html'>mo_rte_kind</a></li>
+    <li><a href='../module/mo_optical_props.html'>mo_optical_props</a></li>
+    <li><a href='../module/mo_rte_config.html'>mo_rte_config</a></li>
+    <li><a href='../module/mo_fluxes.html'>mo_fluxes</a></li>
+  </ul>
+      </li>
+      <li class="list-group-item">
+  <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: module~~mo_rte_lw~~UsesGraph Pages: 1 -->
+<svg id="modulemo_rte_lwUsesGraph" width="641pt" height="255pt"
+ viewBox="0.00 0.00 641.00 254.66" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~mo_rte_lw~~UsesGraph" class="graph" transform="scale(1.38 1.38) rotate(0) translate(4 348)">
+<title>module~~mo_rte_lw~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-348 882,-348 882,4 -4,4"/>
+<!-- module~mo_rte_lw -->
+<g id="module~~mo_rte_lw~~UsesGraph_node1" class="node">
+<title>module~mo_rte_lw</title>
+<polygon fill="none" stroke="black" points="878,-224 811,-224 811,-200 878,-200 878,-224"/>
+<text text-anchor="middle" x="844.5" y="-209.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_rte_lw</text>
+</g>
+<!-- mo_rte_util_array -->
+<g id="module~~mo_rte_lw~~UsesGraph_node2" class="node">
+<title>mo_rte_util_array</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="762,-344 656,-344 656,-320 762,-320 762,-344"/>
+<text text-anchor="middle" x="709" y="-329.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array</text>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;mo_rte_util_array -->
+<g id="module~~mo_rte_lw~~UsesGraph_edge1" class="edge">
+<title>module~mo_rte_lw&#45;&gt;mo_rte_util_array</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M837.59,-224.07C827.38,-243.77 804.65,-282.95 775,-306 770.33,-309.63 765.08,-312.82 759.65,-315.61"/>
+<polygon fill="#000000" stroke="#000000" points="757.98,-312.52 750.4,-319.92 760.94,-318.87 757.98,-312.52"/>
+</g>
+<!-- module~mo_source_functions -->
+<g id="module~~mo_rte_lw~~UsesGraph_node3" class="node">
+<title>module~mo_source_functions</title>
+<g id="a_module~~mo_rte_lw~~UsesGraph_node3"><a xlink:href=".././module/mo_source_functions.html" xlink:title="mo_source_functions">
+<polygon fill="#337ab7" stroke="#337ab7" points="771,-264 647,-264 647,-240 771,-240 771,-264"/>
+<text text-anchor="middle" x="709" y="-249.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_source_functions</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_source_functions -->
+<g id="module~~mo_rte_lw~~UsesGraph_edge2" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_source_functions</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M810.84,-221.79C795.61,-226.35 777.15,-231.88 760.2,-236.96"/>
+<polygon fill="#000000" stroke="#000000" points="759.01,-233.66 750.44,-239.88 761.02,-240.37 759.01,-233.66"/>
+</g>
+<!-- module~mo_rte_util_array_validation -->
+<g id="module~~mo_rte_lw~~UsesGraph_node4" class="node">
+<title>module~mo_rte_util_array_validation</title>
+<g id="a_module~~mo_rte_lw~~UsesGraph_node4"><a xlink:href=".././module/mo_rte_util_array_validation.html" xlink:title="mo_rte_util_array_validation">
+<polygon fill="#337ab7" stroke="#337ab7" points="397,-142 234,-142 234,-118 397,-118 397,-142"/>
+<text text-anchor="middle" x="315.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array_validation</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_rte_util_array_validation -->
+<g id="module~~mo_rte_lw~~UsesGraph_edge3" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M831.82,-199.52C818.88,-186.22 796.93,-165.17 775,-151 706.32,-106.62 686.97,-93.04 607,-76 531.36,-59.88 508.52,-59.35 433,-76 401.05,-83.05 367.44,-99.76 344.57,-112.75"/>
+<polygon fill="#000000" stroke="#000000" points="342.66,-109.81 335.77,-117.86 346.17,-115.86 342.66,-109.81"/>
+</g>
+<!-- mo_rte_solver_kernels -->
+<g id="module~~mo_rte_lw~~UsesGraph_node5" class="node">
+<title>mo_rte_solver_kernels</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="775,-24 643,-24 643,0 775,0 775,-24"/>
+<text text-anchor="middle" x="709" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_solver_kernels</text>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;mo_rte_solver_kernels -->
+<g id="module~~mo_rte_lw~~UsesGraph_edge4" class="edge">
+<title>module~mo_rte_lw&#45;&gt;mo_rte_solver_kernels</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M842.02,-199.65C837.62,-168.38 821.93,-85.19 775,-38 771.59,-34.57 767.67,-31.58 763.48,-28.98"/>
+<polygon fill="#000000" stroke="#000000" points="765.04,-25.84 754.58,-24.15 761.71,-31.99 765.04,-25.84"/>
+</g>
+<!-- module~mo_rte_kind -->
+<g id="module~~mo_rte_lw~~UsesGraph_node6" class="node">
+<title>module~mo_rte_kind</title>
+<g id="a_module~~mo_rte_lw~~UsesGraph_node6"><a xlink:href=".././module/mo_rte_kind.html" xlink:title="mo_rte_kind">
+<polygon fill="#337ab7" stroke="#337ab7" points="198,-182 120,-182 120,-158 198,-158 198,-182"/>
+<text text-anchor="middle" x="159" y="-167.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_rte_lw~~UsesGraph_edge5" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M834.15,-224.19C822.21,-238.72 800.07,-262.37 775,-273 670.78,-317.2 634.07,-286.59 521,-292"/>
+</g>
+<!-- module~mo_optical_props -->
+<g id="module~~mo_rte_lw~~UsesGraph_node7" class="node">
+<title>module~mo_optical_props</title>
+<g id="a_module~~mo_rte_lw~~UsesGraph_node7"><a xlink:href=".././module/mo_optical_props.html" xlink:title="mo_optical_props">
+<polygon fill="#337ab7" stroke="#337ab7" points="573,-184 467,-184 467,-160 573,-160 573,-184"/>
+<text text-anchor="middle" x="520" y="-169.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_optical_props -->
+<g id="module~~mo_rte_lw~~UsesGraph_edge6" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M810.83,-212.96C783.79,-213.52 744.37,-213.81 710,-212"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M708,-212C660.22,-209.48 606.97,-197.12 569.55,-186.8"/>
+<polygon fill="#000000" stroke="#000000" points="570.49,-183.43 559.92,-184.09 568.59,-190.16 570.49,-183.43"/>
+</g>
+<!-- module~mo_rte_config -->
+<g id="module~~mo_rte_lw~~UsesGraph_node8" class="node">
+<title>module~mo_rte_config</title>
+<g id="a_module~~mo_rte_lw~~UsesGraph_node8"><a xlink:href=".././module/mo_rte_config.html" xlink:title="mo_rte_config">
+<polygon fill="#337ab7" stroke="#337ab7" points="359.5,-264 271.5,-264 271.5,-240 359.5,-240 359.5,-264"/>
+<text text-anchor="middle" x="315.5" y="-249.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_config</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_rte_config -->
+<g id="module~~mo_rte_lw~~UsesGraph_edge7" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_rte_config</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M708,-212C625,-207.62 603.19,-199.64 521,-212"/>
+</g>
+<!-- module~mo_fluxes -->
+<g id="module~~mo_rte_lw~~UsesGraph_node9" class="node">
+<title>module~mo_fluxes</title>
+<g id="a_module~~mo_rte_lw~~UsesGraph_node9"><a xlink:href=".././module/mo_fluxes.html" xlink:title="mo_fluxes">
+<polygon fill="#337ab7" stroke="#337ab7" points="742.5,-184 675.5,-184 675.5,-160 742.5,-160 742.5,-184"/>
+<text text-anchor="middle" x="709" y="-169.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_fluxes</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_fluxes -->
+<g id="module~~mo_rte_lw~~UsesGraph_edge8" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_fluxes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M810.84,-202.21C793.31,-196.96 771.48,-190.42 752.62,-184.77"/>
+<polygon fill="#000000" stroke="#000000" points="753.37,-181.34 742.78,-181.82 751.36,-188.05 753.37,-181.34"/>
+</g>
+<!-- module~mo_source_functions&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_rte_lw~~UsesGraph_edge9" class="edge">
+<title>module~mo_source_functions&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M669.08,-264.09C631.59,-274.83 573.05,-289.25 521,-292"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M519,-292C392.23,-298.69 344.97,-334.66 234,-273 201.52,-254.95 179.71,-215.94 168.61,-191.45"/>
+<polygon fill="#000000" stroke="#000000" points="171.81,-190.04 164.63,-182.24 165.39,-192.81 171.81,-190.04"/>
+</g>
+<!-- module~mo_source_functions&#45;&gt;module~mo_optical_props -->
+<g id="module~~mo_rte_lw~~UsesGraph_edge10" class="edge">
+<title>module~mo_source_functions&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M672.75,-239.98C662.86,-236.06 652.28,-231.32 643,-226 625.42,-215.91 625,-207.31 607,-198 599.15,-193.94 590.56,-190.4 581.94,-187.36"/>
+<polygon fill="#000000" stroke="#000000" points="582.83,-183.96 572.24,-184.12 580.62,-190.6 582.83,-183.96"/>
+</g>
+<!-- module~mo_rte_util_array_validation&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_rte_lw~~UsesGraph_edge11" class="edge">
+<title>module~mo_rte_util_array_validation&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.14,-142C249.07,-146.94 226.99,-152.66 207.77,-157.63"/>
+<polygon fill="#000000" stroke="#000000" points="206.81,-154.26 198.01,-160.16 208.57,-161.04 206.81,-154.26"/>
+</g>
+<!-- iso_c_binding -->
+<g id="module~~mo_rte_lw~~UsesGraph_node10" class="node">
+<title>iso_c_binding</title>
+<g id="a_module~~mo_rte_lw~~UsesGraph_node10"><a xlink:href="http://fortranwiki.org/fortran/show/iso_c_binding" xlink:title="iso_c_binding">
+<polygon fill="#337ab7" stroke="#337ab7" points="84,-182 0,-182 0,-158 84,-158 84,-182"/>
+<text text-anchor="middle" x="42" y="-167.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_kind&#45;&gt;iso_c_binding -->
+<g id="module~~mo_rte_lw~~UsesGraph_edge12" class="edge">
+<title>module~mo_rte_kind&#45;&gt;iso_c_binding</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M119.71,-170C111.62,-170 102.97,-170 94.49,-170"/>
+<polygon fill="#000000" stroke="#000000" points="94.29,-166.5 84.29,-170 94.29,-173.5 94.29,-166.5"/>
+</g>
+<!-- module~mo_optical_props&#45;&gt;module~mo_rte_util_array_validation -->
+<g id="module~~mo_rte_lw~~UsesGraph_edge13" class="edge">
+<title>module~mo_optical_props&#45;&gt;module~mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M466.85,-161.18C441.81,-155.99 411.48,-149.7 384.64,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="385.04,-140.64 374.54,-142.04 383.62,-147.5 385.04,-140.64"/>
+</g>
+<!-- module~mo_optical_props&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_rte_lw~~UsesGraph_edge16" class="edge">
+<title>module~mo_optical_props&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M466.8,-171.71C397.48,-171.32 275.99,-170.65 208.56,-170.27"/>
+<polygon fill="#000000" stroke="#000000" points="208.24,-166.77 198.22,-170.21 208.2,-173.77 208.24,-166.77"/>
+</g>
+<!-- module~mo_optical_props&#45;&gt;module~mo_rte_config -->
+<g id="module~~mo_rte_lw~~UsesGraph_edge15" class="edge">
+<title>module~mo_optical_props&#45;&gt;module~mo_rte_config</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M466.97,-183.64C455.37,-187.33 443.44,-192.06 433,-198 414.14,-208.74 416.06,-220.62 397,-231 388.53,-235.61 378.99,-239.25 369.53,-242.1"/>
+<polygon fill="#000000" stroke="#000000" points="368.46,-238.77 359.75,-244.8 370.32,-245.52 368.46,-238.77"/>
+</g>
+<!-- mo_optical_props_kernels -->
+<g id="module~~mo_rte_lw~~UsesGraph_node11" class="node">
+<title>mo_optical_props_kernels</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="390.5,-222 240.5,-222 240.5,-198 390.5,-198 390.5,-222"/>
+<text text-anchor="middle" x="315.5" y="-207.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props_kernels</text>
+</g>
+<!-- module~mo_optical_props&#45;&gt;mo_optical_props_kernels -->
+<g id="module~~mo_rte_lw~~UsesGraph_edge14" class="edge">
+<title>module~mo_optical_props&#45;&gt;mo_optical_props_kernels</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M466.85,-181.79C443.68,-186.13 415.98,-191.33 390.7,-196.08"/>
+<polygon fill="#000000" stroke="#000000" points="389.96,-192.65 380.78,-197.94 391.25,-199.53 389.96,-192.65"/>
+</g>
+<!-- module~mo_rte_config&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_rte_lw~~UsesGraph_edge17" class="edge">
+<title>module~mo_rte_config&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M271.45,-244.42C258.96,-241.26 245.58,-236.91 234,-231 212.98,-220.26 192.55,-202.71 178.5,-189.19"/>
+<polygon fill="#000000" stroke="#000000" points="180.96,-186.7 171.39,-182.16 176.04,-191.68 180.96,-186.7"/>
+</g>
+<!-- module~mo_fluxes&#45;&gt;module~mo_rte_util_array_validation -->
+<g id="module~~mo_rte_lw~~UsesGraph_edge20" class="edge">
+<title>module~mo_fluxes&#45;&gt;module~mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M519,-90C490.79,-85.57 419.22,-102.16 369.21,-115.31"/>
+<polygon fill="#000000" stroke="#000000" points="368.28,-111.94 359.52,-117.89 370.08,-118.7 368.28,-111.94"/>
+</g>
+<!-- module~mo_fluxes&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_rte_lw~~UsesGraph_edge22" class="edge">
+<title>module~mo_fluxes&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M692.48,-159.94C673.39,-145.7 639.53,-122.28 607,-109 570.76,-94.21 559.67,-96.08 521,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M519,-90C393.59,-70.28 351.99,-62.15 234,-109 211.67,-117.87 191.01,-136.11 177.22,-150.35"/>
+<polygon fill="#000000" stroke="#000000" points="174.57,-148.07 170.31,-157.77 179.69,-152.84 174.57,-148.07"/>
+</g>
+<!-- module~mo_fluxes&#45;&gt;module~mo_optical_props -->
+<g id="module~~mo_rte_lw~~UsesGraph_edge19" class="edge">
+<title>module~mo_fluxes&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M675.43,-172C650.14,-172 614.31,-172 583.54,-172"/>
+<polygon fill="#000000" stroke="#000000" points="583.32,-168.5 573.32,-172 583.32,-175.5 583.32,-168.5"/>
+</g>
+<!-- module~mo_fluxes&#45;&gt;module~mo_rte_config -->
+<g id="module~~mo_rte_lw~~UsesGraph_edge21" class="edge">
+<title>module~mo_fluxes&#45;&gt;module~mo_rte_config</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M675.46,-180.23C638.32,-189.33 575.66,-203.78 521,-212"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M519,-212C468.04,-219.67 410.43,-231.34 369.72,-240.1"/>
+<polygon fill="#000000" stroke="#000000" points="368.78,-236.73 359.75,-242.26 370.27,-243.57 368.78,-236.73"/>
+</g>
+<!-- mo_fluxes_broadband_kernels -->
+<g id="module~~mo_rte_lw~~UsesGraph_node12" class="node">
+<title>mo_fluxes_broadband_kernels</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="607,-142 433,-142 433,-118 607,-118 607,-142"/>
+<text text-anchor="middle" x="520" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_fluxes_broadband_kernels</text>
+</g>
+<!-- module~mo_fluxes&#45;&gt;mo_fluxes_broadband_kernels -->
+<g id="module~~mo_rte_lw~~UsesGraph_edge18" class="edge">
+<title>module~mo_fluxes&#45;&gt;mo_fluxes_broadband_kernels</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M675.43,-164.68C650.51,-159.09 615.38,-151.2 584.91,-144.35"/>
+<polygon fill="#000000" stroke="#000000" points="585.31,-140.86 574.78,-142.08 583.77,-147.69 585.31,-140.86"/>
+</g>
+</g>
+</svg>
+</div><script>var panmodulemo_rte_lwUsesGraph = svgPanZoom('#modulemo_rte_lwUsesGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="518pt" height="32pt"
+ viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<!-- Module -->
+<g id="node1" class="node">
+<title>Module</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+</g>
+<!-- Submodule -->
+<g id="node2" class="node">
+<title>Submodule</title>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
+<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+</g>
+<!-- Subroutine -->
+<g id="node3" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
+<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+</g>
+<!-- Function -->
+<g id="node4" class="node">
+<title>Function</title>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
+<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
+<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node6" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
+<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a submodule to the (sub)module which it is
+    descended from. Dashed arrows point from a module or program unit to 
+    modules which it uses.
+    </p>
+    </div></div></div></div>
+      </li>
+      </ul>
+    </div>
+
+    
+    <br>
+
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#funcs-1">Functions</a></h3></div>
+  <div id="funcs-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_rte_lw.html#proc-rte_lw">rte_lw</a>
+    </div>
+  </div>
+</div>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+
+    
+    
+
+    
+    
+ 
+    <section>
+    <h2>Functions</h2>
+      <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-rte_lw"></span><h3>public function <a href='../proc/rte_lw.html'>rte_lw</a>(optical_props, top_at_1, sources, sfc_emis, fluxes, inc_flux, n_gauss_angles, use_2stream, lw_Ds, flux_up_Jac) result(error_msg)</h3></div>
+  <div class="panel-body">
+           
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>optical_props</strong></td><td><p>Set of optical properties as one or more arrays</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>logical,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>top_at_1</strong></td><td><p>Is the top of the domain at index 1? (if not, ordering is bottom-to-top)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>type(<a href='../type/ty_source_func_lw.html'>ty_source_func_lw</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>sources</strong></td><td><p>Derived type with Planck source functions</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>sfc_emis</strong></td><td><p>emissivity at surface [] (nband, ncol)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_fluxes.html'>ty_fluxes</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>fluxes</strong></td><td><p>Dervied type for computing spectral integrals from g-point fluxes.
+Default computes broadband fluxes at all levels if output arrays are defined. Can be extended per user desires.</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td>dimension(:,:), target</td><td>::</td>
+  <td><strong>inc_flux</strong></td><td><p>incident flux at domain top [W/m2] (ncol, ngpts)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td></td><td>::</td>
+  <td><strong>n_gauss_angles</strong></td><td><p>Number of angles used in Gaussian quadrature (max 3, no-scattering solution)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>logical,</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td></td><td>::</td>
+  <td><strong>use_2stream</strong></td><td><p>When 2-stream parameters (tau/ssa/g) are provided, use 2-stream methods
+Default is to use re-scaled longwave transport</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>lw_Ds</strong></td><td><p>User-specifed 1/cos of transport angle per col, g-point</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(inout),</td>
+  <td>optional</td>  <td>dimension(:,:), target</td><td>::</td>
+  <td><strong>flux_up_Jac</strong></td><td><p>surface temperature flux  Jacobian [W/m2/K] (ncol, nlay+1)</p></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  <p>If empty, calculation was successful</p>
+
+  </div>
+  </div>
+
+    </section>
+    <br>
+
+    
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/module/mo_rte_sw.html b/reference/rte-fortran-interface/module/mo_rte_sw.html
new file mode 100644
index 000000000..9cfc4b1da
--- /dev/null
+++ b/reference/rte-fortran-interface/module/mo_rte_sw.html
@@ -0,0 +1,640 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>mo_rte_sw &ndash; RTE-Fortran</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>mo_rte_sw 
+    <small>Module</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title="11.4% of total for modules and submodules.">182 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_rte_sw.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li><a href='../sourcefile/mo_rte_sw.f90.html'>mo_rte_sw.F90</a></li>
+     <li class="active">mo_rte_sw</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#inters-0">Interfaces</a></h3></div>
+  <div id="inters-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_rte_sw.html#interface-rte_sw">rte_sw</a>
+    </div>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+    <p>Compute shortwave radiative fluxes
+ Contains a single routine to compute direct and diffuse fluxes of solar radiation given</p>
+<ul>
+<li>atmospheric optical properties on a spectral grid</li>
+<li>information about vertical ordering</li>
+<li>boundary conditions</li>
+<li>solar zenith angle, spectrally-resolved incident colimated flux, surface albedos for direct and diffuse radiation</li>
+<li>optionally, a boundary condition for incident diffuse radiation</li>
+</ul>
+<p>It is the user's responsibility to ensure that boundary conditions (incident fluxes, surface albedos) are on the same
+  spectral grid as the optical properties.</p>
+<p>Final output is via user-extensible ty_fluxes
+(<a href="../module/mo_fluxes.html#type-ty_fluxes">ty_fluxes</a> in module <a href="../module/mo_fluxes.html">mo_fluxes</a>)
+which must reduce the detailed spectral fluxes to whatever summary the user needs</p>
+<p>The routine does error checking and choses which lower-level kernel to invoke based on
+  what kinds of optical properties are supplied</p>
+<br>        <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Uses</h3>
+      </div>
+      <ul class="list-group">
+      <li class="list-group-item">
+  <ul class="list-inline">
+    <li>mo_rte_util_array</li>
+    <li>mo_rte_solver_kernels</li>
+    <li><a href='../module/mo_rte_util_array_validation.html'>mo_rte_util_array_validation</a></li>
+    <li><a href='../module/mo_rte_kind.html'>mo_rte_kind</a></li>
+    <li><a href='../module/mo_optical_props.html'>mo_optical_props</a></li>
+    <li><a href='../module/mo_rte_config.html'>mo_rte_config</a></li>
+    <li><a href='../module/mo_fluxes.html'>mo_fluxes</a></li>
+  </ul>
+      </li>
+      <li class="list-group-item">
+  <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: module~~mo_rte_sw~~UsesGraph Pages: 1 -->
+<svg id="modulemo_rte_swUsesGraph" width="641pt" height="225pt"
+ viewBox="0.00 0.00 641.00 225.22" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~mo_rte_sw~~UsesGraph" class="graph" transform="scale(1.39 1.39) rotate(0) translate(4 308)">
+<title>module~~mo_rte_sw~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-308 884,-308 884,4 -4,4"/>
+<!-- module~mo_rte_sw -->
+<g id="module~~mo_rte_sw~~UsesGraph_node1" class="node">
+<title>module~mo_rte_sw</title>
+<polygon fill="none" stroke="black" points="880,-104 811,-104 811,-80 880,-80 880,-104"/>
+<text text-anchor="middle" x="845.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_rte_sw</text>
+</g>
+<!-- mo_rte_util_array -->
+<g id="module~~mo_rte_sw~~UsesGraph_node2" class="node">
+<title>mo_rte_util_array</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="762,-304 656,-304 656,-280 762,-280 762,-304"/>
+<text text-anchor="middle" x="709" y="-289.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array</text>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;mo_rte_util_array -->
+<g id="module~~mo_rte_sw~~UsesGraph_edge1" class="edge">
+<title>module~mo_rte_sw&#45;&gt;mo_rte_util_array</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M842.94,-104.35C838.35,-135.63 822.14,-218.84 775,-266 771.53,-269.47 767.54,-272.49 763.28,-275.12"/>
+<polygon fill="#000000" stroke="#000000" points="761.38,-272.17 754.23,-279.99 764.69,-278.34 761.38,-272.17"/>
+</g>
+<!-- module~mo_optical_props -->
+<g id="module~~mo_rte_sw~~UsesGraph_node3" class="node">
+<title>module~mo_optical_props</title>
+<g id="a_module~~mo_rte_sw~~UsesGraph_node3"><a xlink:href=".././module/mo_optical_props.html" xlink:title="mo_optical_props">
+<polygon fill="#337ab7" stroke="#337ab7" points="573,-104 467,-104 467,-80 573,-80 573,-104"/>
+<text text-anchor="middle" x="520" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;module~mo_optical_props -->
+<g id="module~~mo_rte_sw~~UsesGraph_edge2" class="edge">
+<title>module~mo_rte_sw&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M708,-52C682.28,-49.68 618.75,-64.96 572.87,-77.3"/>
+<polygon fill="#000000" stroke="#000000" points="571.81,-73.96 563.08,-79.96 573.65,-80.71 571.81,-73.96"/>
+</g>
+<!-- module~mo_rte_util_array_validation -->
+<g id="module~~mo_rte_sw~~UsesGraph_node4" class="node">
+<title>module~mo_rte_util_array_validation</title>
+<g id="a_module~~mo_rte_sw~~UsesGraph_node4"><a xlink:href=".././module/mo_rte_util_array_validation.html" xlink:title="mo_rte_util_array_validation">
+<polygon fill="#337ab7" stroke="#337ab7" points="397,-224 234,-224 234,-200 397,-200 397,-224"/>
+<text text-anchor="middle" x="315.5" y="-209.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array_validation</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;module~mo_rte_util_array_validation -->
+<g id="module~~mo_rte_sw~~UsesGraph_edge3" class="edge">
+<title>module~mo_rte_sw&#45;&gt;module~mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M832.05,-104.03C791,-142.34 654.93,-258.53 521,-252"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M519,-252C491,-255.02 421.05,-239.25 371.22,-226.63"/>
+<polygon fill="#000000" stroke="#000000" points="371.78,-223.16 361.22,-224.07 370.04,-229.94 371.78,-223.16"/>
+</g>
+<!-- mo_rte_solver_kernels -->
+<g id="module~~mo_rte_sw~~UsesGraph_node5" class="node">
+<title>mo_rte_solver_kernels</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="775,-24 643,-24 643,0 775,0 775,-24"/>
+<text text-anchor="middle" x="709" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_solver_kernels</text>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;mo_rte_solver_kernels -->
+<g id="module~~mo_rte_sw~~UsesGraph_edge4" class="edge">
+<title>module~mo_rte_sw&#45;&gt;mo_rte_solver_kernels</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M831.21,-79.82C817.78,-67.99 796.08,-50.08 775,-38 768.62,-34.34 761.63,-30.96 754.66,-27.93"/>
+<polygon fill="#000000" stroke="#000000" points="755.83,-24.63 745.25,-24.02 753.14,-31.09 755.83,-24.63"/>
+</g>
+<!-- module~mo_rte_kind -->
+<g id="module~~mo_rte_sw~~UsesGraph_node6" class="node">
+<title>module~mo_rte_kind</title>
+<g id="a_module~~mo_rte_sw~~UsesGraph_node6"><a xlink:href=".././module/mo_rte_kind.html" xlink:title="mo_rte_kind">
+<polygon fill="#337ab7" stroke="#337ab7" points="198,-184 120,-184 120,-160 198,-160 198,-184"/>
+<text text-anchor="middle" x="159" y="-169.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_rte_sw~~UsesGraph_edge5" class="edge">
+<title>module~mo_rte_sw&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M519,-252C392.78,-265.6 351.99,-279.85 234,-233 211.67,-224.13 191.01,-205.89 177.22,-191.65"/>
+<polygon fill="#000000" stroke="#000000" points="179.69,-189.16 170.31,-184.23 174.57,-193.93 179.69,-189.16"/>
+</g>
+<!-- module~mo_rte_config -->
+<g id="module~~mo_rte_sw~~UsesGraph_node7" class="node">
+<title>module~mo_rte_config</title>
+<g id="a_module~~mo_rte_sw~~UsesGraph_node7"><a xlink:href=".././module/mo_rte_config.html" xlink:title="mo_rte_config">
+<polygon fill="#337ab7" stroke="#337ab7" points="359.5,-64 271.5,-64 271.5,-40 359.5,-40 359.5,-64"/>
+<text text-anchor="middle" x="315.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_config</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;module~mo_rte_config -->
+<g id="module~~mo_rte_sw~~UsesGraph_edge6" class="edge">
+<title>module~mo_rte_sw&#45;&gt;module~mo_rte_config</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M816.03,-79.92C789.25,-69.43 747.73,-55.4 710,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M708,-52C625.22,-44.55 604,-56.38 521,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M519,-52C468.35,-49.33 410.47,-49.67 369.6,-50.47"/>
+<polygon fill="#000000" stroke="#000000" points="369.52,-46.97 359.59,-50.69 369.67,-53.97 369.52,-46.97"/>
+</g>
+<!-- module~mo_fluxes -->
+<g id="module~~mo_rte_sw~~UsesGraph_node8" class="node">
+<title>module~mo_fluxes</title>
+<g id="a_module~~mo_rte_sw~~UsesGraph_node8"><a xlink:href=".././module/mo_fluxes.html" xlink:title="mo_fluxes">
+<polygon fill="#337ab7" stroke="#337ab7" points="742.5,-104 675.5,-104 675.5,-80 742.5,-80 742.5,-104"/>
+<text text-anchor="middle" x="709" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_fluxes</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;module~mo_fluxes -->
+<g id="module~~mo_rte_sw~~UsesGraph_edge7" class="edge">
+<title>module~mo_rte_sw&#45;&gt;module~mo_fluxes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M810.91,-92C793.31,-92 771.58,-92 752.79,-92"/>
+<polygon fill="#000000" stroke="#000000" points="752.7,-88.5 742.7,-92 752.7,-95.5 752.7,-88.5"/>
+</g>
+<!-- module~mo_optical_props&#45;&gt;module~mo_rte_util_array_validation -->
+<g id="module~~mo_rte_sw~~UsesGraph_edge8" class="edge">
+<title>module~mo_optical_props&#45;&gt;module~mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M466.56,-99.54C454.99,-102.61 443.16,-106.93 433,-113 412.47,-125.27 414.74,-136.96 397,-153 380.3,-168.1 359.82,-183.07 343.69,-194.16"/>
+<polygon fill="#000000" stroke="#000000" points="341.54,-191.38 335.23,-199.89 345.47,-197.18 341.54,-191.38"/>
+</g>
+<!-- module~mo_optical_props&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_rte_sw~~UsesGraph_edge11" class="edge">
+<title>module~mo_optical_props&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M466.99,-86.17C408.21,-81.66 310.74,-80.53 234,-111 211.67,-119.87 191.01,-138.11 177.22,-152.35"/>
+<polygon fill="#000000" stroke="#000000" points="174.57,-150.07 170.31,-159.77 179.69,-154.84 174.57,-150.07"/>
+</g>
+<!-- module~mo_optical_props&#45;&gt;module~mo_rte_config -->
+<g id="module~~mo_rte_sw~~UsesGraph_edge10" class="edge">
+<title>module~mo_optical_props&#45;&gt;module~mo_rte_config</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M466.85,-81.7C436.95,-75.79 399.51,-68.4 369.47,-62.46"/>
+<polygon fill="#000000" stroke="#000000" points="370.08,-59.02 359.59,-60.51 368.72,-65.88 370.08,-59.02"/>
+</g>
+<!-- mo_optical_props_kernels -->
+<g id="module~~mo_rte_sw~~UsesGraph_node9" class="node">
+<title>mo_optical_props_kernels</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="390.5,-144 240.5,-144 240.5,-120 390.5,-120 390.5,-144"/>
+<text text-anchor="middle" x="315.5" y="-129.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props_kernels</text>
+</g>
+<!-- module~mo_optical_props&#45;&gt;mo_optical_props_kernels -->
+<g id="module~~mo_rte_sw~~UsesGraph_edge9" class="edge">
+<title>module~mo_optical_props&#45;&gt;mo_optical_props_kernels</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M466.85,-102.3C442.64,-107.08 413.49,-112.84 387.32,-118.01"/>
+<polygon fill="#000000" stroke="#000000" points="386.59,-114.59 377.46,-119.96 387.94,-121.45 386.59,-114.59"/>
+</g>
+<!-- module~mo_rte_util_array_validation&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_rte_sw~~UsesGraph_edge12" class="edge">
+<title>module~mo_rte_util_array_validation&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.14,-200C249.07,-195.06 226.99,-189.34 207.77,-184.37"/>
+<polygon fill="#000000" stroke="#000000" points="208.57,-180.96 198.01,-181.84 206.81,-187.74 208.57,-180.96"/>
+</g>
+<!-- iso_c_binding -->
+<g id="module~~mo_rte_sw~~UsesGraph_node10" class="node">
+<title>iso_c_binding</title>
+<g id="a_module~~mo_rte_sw~~UsesGraph_node10"><a xlink:href="http://fortranwiki.org/fortran/show/iso_c_binding" xlink:title="iso_c_binding">
+<polygon fill="#337ab7" stroke="#337ab7" points="84,-184 0,-184 0,-160 84,-160 84,-184"/>
+<text text-anchor="middle" x="42" y="-169.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_kind&#45;&gt;iso_c_binding -->
+<g id="module~~mo_rte_sw~~UsesGraph_edge13" class="edge">
+<title>module~mo_rte_kind&#45;&gt;iso_c_binding</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M119.71,-172C111.62,-172 102.97,-172 94.49,-172"/>
+<polygon fill="#000000" stroke="#000000" points="94.29,-168.5 84.29,-172 94.29,-175.5 94.29,-168.5"/>
+</g>
+<!-- module~mo_rte_config&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_rte_sw~~UsesGraph_edge14" class="edge">
+<title>module~mo_rte_config&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M271.37,-60.84C258.6,-64.75 245.09,-70.28 234,-78 206.51,-97.14 184.28,-129.48 171.6,-150.78"/>
+<polygon fill="#000000" stroke="#000000" points="168.42,-149.3 166.46,-159.71 174.48,-152.79 168.42,-149.3"/>
+</g>
+<!-- module~mo_fluxes&#45;&gt;module~mo_optical_props -->
+<g id="module~~mo_rte_sw~~UsesGraph_edge16" class="edge">
+<title>module~mo_fluxes&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M675.43,-92C650.14,-92 614.31,-92 583.54,-92"/>
+<polygon fill="#000000" stroke="#000000" points="583.32,-88.5 573.32,-92 583.32,-95.5 583.32,-88.5"/>
+</g>
+<!-- module~mo_fluxes&#45;&gt;module~mo_rte_util_array_validation -->
+<g id="module~~mo_rte_sw~~UsesGraph_edge17" class="edge">
+<title>module~mo_fluxes&#45;&gt;module~mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M519,-174C481.29,-183.57 439.06,-191.87 402.97,-198.25"/>
+<polygon fill="#000000" stroke="#000000" points="402.21,-194.83 392.96,-200 403.42,-201.72 402.21,-194.83"/>
+</g>
+<!-- module~mo_fluxes&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_rte_sw~~UsesGraph_edge19" class="edge">
+<title>module~mo_fluxes&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M692.48,-104.06C673.39,-118.3 639.53,-141.72 607,-155 570.76,-169.79 558.94,-164.37 521,-174"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M519,-174C410.83,-201.46 278.35,-189.53 208.48,-179.87"/>
+<polygon fill="#000000" stroke="#000000" points="208.62,-176.36 198.23,-178.41 207.63,-183.29 208.62,-176.36"/>
+</g>
+<!-- module~mo_fluxes&#45;&gt;module~mo_rte_config -->
+<g id="module~~mo_rte_sw~~UsesGraph_edge18" class="edge">
+<title>module~mo_fluxes&#45;&gt;module~mo_rte_config</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M675.32,-81.72C638.32,-70.86 576.03,-54.9 521,-52"/>
+</g>
+<!-- mo_fluxes_broadband_kernels -->
+<g id="module~~mo_rte_sw~~UsesGraph_node11" class="node">
+<title>mo_fluxes_broadband_kernels</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="607,-146 433,-146 433,-122 607,-122 607,-146"/>
+<text text-anchor="middle" x="520" y="-131.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_fluxes_broadband_kernels</text>
+</g>
+<!-- module~mo_fluxes&#45;&gt;mo_fluxes_broadband_kernels -->
+<g id="module~~mo_rte_sw~~UsesGraph_edge15" class="edge">
+<title>module~mo_fluxes&#45;&gt;mo_fluxes_broadband_kernels</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M675.43,-99.32C650.51,-104.91 615.38,-112.8 584.91,-119.65"/>
+<polygon fill="#000000" stroke="#000000" points="583.77,-116.31 574.78,-121.92 585.31,-123.14 583.77,-116.31"/>
+</g>
+</g>
+</svg>
+</div><script>var panmodulemo_rte_swUsesGraph = svgPanZoom('#modulemo_rte_swUsesGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="518pt" height="32pt"
+ viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<!-- Module -->
+<g id="node1" class="node">
+<title>Module</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+</g>
+<!-- Submodule -->
+<g id="node2" class="node">
+<title>Submodule</title>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
+<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+</g>
+<!-- Subroutine -->
+<g id="node3" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
+<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+</g>
+<!-- Function -->
+<g id="node4" class="node">
+<title>Function</title>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
+<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
+<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node6" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
+<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a submodule to the (sub)module which it is
+    descended from. Dashed arrows point from a module or program unit to 
+    modules which it uses.
+    </p>
+    </div></div></div></div>
+      </li>
+      </ul>
+    </div>
+
+    
+    <br>
+
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#inters-1">Interfaces</a></h3></div>
+  <div id="inters-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_rte_sw.html#interface-rte_sw">rte_sw</a>
+    </div>
+  </div>
+</div>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+
+    
+    
+    <section>
+   <h2>Interfaces</h2>
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-rte_sw"></span><h3>public interface <a href='../interface/rte_sw.html'>rte_sw</a>  </h3></div>
+  <ul class="list-group">
+    <li class="list-group-item">
+    <h3>private function rte_sw_mu0_bycol(atmos, top_at_1, mu0, inc_flux, sfc_alb_dir, sfc_alb_dif, fluxes, inc_flux_dif) result(error_msg)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>atmos</strong></td><td><p>Optical properties provided as arrays</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>logical,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>top_at_1</strong></td><td><p>Is the top of the domain at index 1? (if not, ordering is bottom-to-top)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:)</td><td>::</td>
+  <td><strong>mu0</strong></td><td><p>cosine of solar zenith angle (ncol) - will be assumed constant with height</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>inc_flux</strong></td><td><p>incident flux at top of domain [W/m2] (ncol, ngpt)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>sfc_alb_dir</strong></td><td><p>surface albedo for direct and</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>sfc_alb_dif</strong></td><td><p>diffuse radiation (nband, ncol)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_fluxes.html'>ty_fluxes</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>fluxes</strong></td><td><p>Class describing output calculations</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td>dimension(:,:), target</td><td>::</td>
+  <td><strong>inc_flux_dif</strong></td><td><p>incident diffuse flux at top of domain [W/m2] (ncol, ngpt)</p></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  <p>If empty, calculation was successful</p>
+
+    </li>
+    <li class="list-group-item">
+    <h3>private function rte_sw_mu0_full(atmos, top_at_1, mu0, inc_flux, sfc_alb_dir, sfc_alb_dif, fluxes, inc_flux_dif) result(error_msg)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>atmos</strong></td><td><p>Optical properties provided as arrays</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>logical,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>top_at_1</strong></td><td><p>Is the top of the domain at index 1? (if not, ordering is bottom-to-top)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>mu0</strong></td><td><p>cosine of solar zenith angle (ncol, nlay)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>inc_flux</strong></td><td><p>incident flux at top of domain [W/m2] (ncol, ngpt)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>sfc_alb_dir</strong></td><td><p>surface albedo for direct and</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>sfc_alb_dif</strong></td><td><p>diffuse radiation (nband, ncol)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_fluxes.html'>ty_fluxes</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>fluxes</strong></td><td><p>Class describing output calculations</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td>dimension(:,:), target</td><td>::</td>
+  <td><strong>inc_flux_dif</strong></td><td><p>incident diffuse flux at top of domain [W/m2] (ncol, ngpt)</p></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  <p>If empty, calculation was successful</p>
+
+    </li>
+  </ul>
+</div>
+
+    </section>
+  <br>
+
+    
+    
+
+    
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/module/mo_rte_util_array_validation.html b/reference/rte-fortran-interface/module/mo_rte_util_array_validation.html
new file mode 100644
index 000000000..22dbf48ee
--- /dev/null
+++ b/reference/rte-fortran-interface/module/mo_rte_util_array_validation.html
@@ -0,0 +1,1164 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>mo_rte_util_array_validation &ndash; RTE-Fortran</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>mo_rte_util_array_validation 
+    <small>Module</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title=" 9.9% of total for modules and submodules.">158 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_rte_util_array_validation.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li><a href='../sourcefile/mo_rte_util_array_validation.f90.html'>mo_rte_util_array_validation.F90</a></li>
+     <li class="active">mo_rte_util_array_validation</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#inters-0">Interfaces</a></h3></div>
+  <div id="inters-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_rte_util_array_validation.html#interface-any_vals_less_than">any_vals_less_than</a>
+      <a class="list-group-item" href="../module/mo_rte_util_array_validation.html#interface-any_vals_outside">any_vals_outside</a>
+      <a class="list-group-item" href="../module/mo_rte_util_array_validation.html#interface-extents_are">extents_are</a>
+    </div>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+    <p>Provide utilites for sanitizing input arrays:</p>
+<br>        <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Uses</h3>
+      </div>
+      <ul class="list-group">
+      <li class="list-group-item">
+  <ul class="list-inline">
+    <li><a href='../module/mo_rte_kind.html'>mo_rte_kind</a></li>
+  </ul>
+      </li>
+      <li class="list-group-item">
+  <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: module~~mo_rte_util_array_validation~~UsesGraph Pages: 1 -->
+<svg id="modulemo_rte_util_array_validationUsesGraph" width="405pt" height="32pt"
+ viewBox="0.00 0.00 405.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~mo_rte_util_array_validation~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>module~~mo_rte_util_array_validation~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 401,-28 401,4 -4,4"/>
+<!-- module~mo_rte_util_array_validation -->
+<g id="module~~mo_rte_util_array_validation~~UsesGraph_node1" class="node">
+<title>module~mo_rte_util_array_validation</title>
+<polygon fill="none" stroke="black" points="397,-24 234,-24 234,0 397,0 397,-24"/>
+<text text-anchor="middle" x="315.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_rte_util_array_validation</text>
+</g>
+<!-- module~mo_rte_kind -->
+<g id="module~~mo_rte_util_array_validation~~UsesGraph_node2" class="node">
+<title>module~mo_rte_kind</title>
+<g id="a_module~~mo_rte_util_array_validation~~UsesGraph_node2"><a xlink:href=".././module/mo_rte_kind.html" xlink:title="mo_rte_kind">
+<polygon fill="#337ab7" stroke="#337ab7" points="198,-24 120,-24 120,0 198,0 198,-24"/>
+<text text-anchor="middle" x="159" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_util_array_validation&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_rte_util_array_validation~~UsesGraph_edge1" class="edge">
+<title>module~mo_rte_util_array_validation&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M233.63,-12C224.9,-12 216.24,-12 208.08,-12"/>
+<polygon fill="#000000" stroke="#000000" points="208.05,-8.5 198.05,-12 208.05,-15.5 208.05,-8.5"/>
+</g>
+<!-- iso_c_binding -->
+<g id="module~~mo_rte_util_array_validation~~UsesGraph_node3" class="node">
+<title>iso_c_binding</title>
+<g id="a_module~~mo_rte_util_array_validation~~UsesGraph_node3"><a xlink:href="http://fortranwiki.org/fortran/show/iso_c_binding" xlink:title="iso_c_binding">
+<polygon fill="#337ab7" stroke="#337ab7" points="84,-24 0,-24 0,0 84,0 84,-24"/>
+<text text-anchor="middle" x="42" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_kind&#45;&gt;iso_c_binding -->
+<g id="module~~mo_rte_util_array_validation~~UsesGraph_edge2" class="edge">
+<title>module~mo_rte_kind&#45;&gt;iso_c_binding</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M119.71,-12C111.62,-12 102.97,-12 94.49,-12"/>
+<polygon fill="#000000" stroke="#000000" points="94.29,-8.5 84.29,-12 94.29,-15.5 94.29,-8.5"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="518pt" height="32pt"
+ viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<!-- Module -->
+<g id="node1" class="node">
+<title>Module</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+</g>
+<!-- Submodule -->
+<g id="node2" class="node">
+<title>Submodule</title>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
+<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+</g>
+<!-- Subroutine -->
+<g id="node3" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
+<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+</g>
+<!-- Function -->
+<g id="node4" class="node">
+<title>Function</title>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
+<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
+<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node6" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
+<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a submodule to the (sub)module which it is
+    descended from. Dashed arrows point from a module or program unit to 
+    modules which it uses.
+    </p>
+    </div></div></div></div>
+      </li>
+      </ul>
+    </div>
+
+        <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Used by</h3>
+      </div>
+      <ul class="list-group">
+  <li class="list-group-item">
+    <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: module~~mo_rte_util_array_validation~~UsedByGraph Pages: 1 -->
+<svg id="modulemo_rte_util_array_validationUsedByGraph" width="578pt" height="162pt"
+ viewBox="0.00 0.00 578.00 162.40" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~mo_rte_util_array_validation~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 158.4)">
+<title>module~~mo_rte_util_array_validation~~UsedByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-158.4 574,-158.4 574,4 -4,4"/>
+<!-- module~mo_rte_util_array_validation -->
+<g id="module~~mo_rte_util_array_validation~~UsedByGraph_node1" class="node">
+<title>module~mo_rte_util_array_validation</title>
+<polygon fill="none" stroke="black" points="163,-103 0,-103 0,-79 163,-79 163,-103"/>
+<text text-anchor="middle" x="81.5" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_rte_util_array_validation</text>
+</g>
+<!-- module~mo_rte_sw -->
+<g id="module~~mo_rte_util_array_validation~~UsedByGraph_node2" class="node">
+<title>module~mo_rte_sw</title>
+<g id="a_module~~mo_rte_util_array_validation~~UsedByGraph_node2"><a xlink:href=".././module/mo_rte_sw.html" xlink:title="mo_rte_sw">
+<polygon fill="#337ab7" stroke="#337ab7" points="570,-133 501,-133 501,-109 570,-109 570,-133"/>
+<text text-anchor="middle" x="535.5" y="-118.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_sw</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;module~mo_rte_util_array_validation -->
+<g id="module~~mo_rte_util_array_validation~~UsedByGraph_edge1" class="edge">
+<title>module~mo_rte_sw&#45;&gt;module~mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402,-151C335.78,-151.88 318.87,-157.83 253,-151"/>
+</g>
+<!-- module~mo_optical_props -->
+<g id="module~~mo_rte_util_array_validation~~UsedByGraph_node3" class="node">
+<title>module~mo_optical_props</title>
+<g id="a_module~~mo_rte_util_array_validation~~UsedByGraph_node3"><a xlink:href=".././module/mo_optical_props.html" xlink:title="mo_optical_props">
+<polygon fill="#337ab7" stroke="#337ab7" points="305,-103 199,-103 199,-79 305,-79 305,-103"/>
+<text text-anchor="middle" x="252" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;module~mo_optical_props -->
+<g id="module~~mo_rte_util_array_validation~~UsedByGraph_edge5" class="edge">
+<title>module~mo_rte_sw&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M500.91,-132.86C474.84,-141.06 437.59,-150.56 404,-151"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402,-151C355.96,-151.61 307.32,-126.47 278.59,-108.55"/>
+<polygon fill="#000000" stroke="#000000" points="280.29,-105.48 269.99,-103.02 276.51,-111.37 280.29,-105.48"/>
+</g>
+<!-- module~mo_fluxes -->
+<g id="module~~mo_rte_util_array_validation~~UsedByGraph_node5" class="node">
+<title>module~mo_fluxes</title>
+<g id="a_module~~mo_rte_util_array_validation~~UsedByGraph_node5"><a xlink:href=".././module/mo_fluxes.html" xlink:title="mo_fluxes">
+<polygon fill="#337ab7" stroke="#337ab7" points="436.5,-123 369.5,-123 369.5,-99 436.5,-99 436.5,-123"/>
+<text text-anchor="middle" x="403" y="-108.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_fluxes</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_sw&#45;&gt;module~mo_fluxes -->
+<g id="module~~mo_rte_util_array_validation~~UsedByGraph_edge9" class="edge">
+<title>module~mo_rte_sw&#45;&gt;module~mo_fluxes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M500.89,-118.43C484.35,-117.16 464.23,-115.62 446.62,-114.27"/>
+<polygon fill="#000000" stroke="#000000" points="446.83,-110.77 436.59,-113.5 446.29,-117.75 446.83,-110.77"/>
+</g>
+<!-- module~mo_optical_props&#45;&gt;module~mo_rte_util_array_validation -->
+<g id="module~~mo_rte_util_array_validation~~UsedByGraph_edge2" class="edge">
+<title>module~mo_optical_props&#45;&gt;module~mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M198.61,-91C190.49,-91 181.9,-91 173.22,-91"/>
+<polygon fill="#000000" stroke="#000000" points="173.01,-87.5 163.01,-91 173.01,-94.5 173.01,-87.5"/>
+</g>
+<!-- module~mo_rte_lw -->
+<g id="module~~mo_rte_util_array_validation~~UsedByGraph_node4" class="node">
+<title>module~mo_rte_lw</title>
+<g id="a_module~~mo_rte_util_array_validation~~UsedByGraph_node4"><a xlink:href=".././module/mo_rte_lw.html" xlink:title="mo_rte_lw">
+<polygon fill="#337ab7" stroke="#337ab7" points="569,-72 502,-72 502,-48 569,-48 569,-72"/>
+<text text-anchor="middle" x="535.5" y="-57.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_lw</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_rte_util_array_validation -->
+<g id="module~~mo_rte_util_array_validation~~UsedByGraph_edge3" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M522.54,-47.72C509.66,-35.45 487.92,-17.39 465,-10 412.55,6.91 395.48,-1.67 341,-10 260.15,-22.37 169.86,-55.32 120.26,-75.17"/>
+<polygon fill="#000000" stroke="#000000" points="118.85,-71.96 110.9,-78.96 121.48,-78.45 118.85,-71.96"/>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_optical_props -->
+<g id="module~~mo_rte_util_array_validation~~UsedByGraph_edge8" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M501.93,-63.59C456.4,-68.6 372.83,-77.81 315.17,-84.16"/>
+<polygon fill="#000000" stroke="#000000" points="314.63,-80.69 305.07,-85.27 315.4,-87.65 314.63,-80.69"/>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_fluxes -->
+<g id="module~~mo_rte_util_array_validation~~UsedByGraph_edge10" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_fluxes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M503.57,-72.09C485.91,-78.99 463.55,-87.73 444.49,-95.18"/>
+<polygon fill="#000000" stroke="#000000" points="443.2,-91.93 435.16,-98.83 445.74,-98.45 443.2,-91.93"/>
+</g>
+<!-- module~mo_source_functions -->
+<g id="module~~mo_rte_util_array_validation~~UsedByGraph_node6" class="node">
+<title>module~mo_source_functions</title>
+<g id="a_module~~mo_rte_util_array_validation~~UsedByGraph_node6"><a xlink:href=".././module/mo_source_functions.html" xlink:title="mo_source_functions">
+<polygon fill="#337ab7" stroke="#337ab7" points="465,-43 341,-43 341,-19 465,-19 465,-43"/>
+<text text-anchor="middle" x="403" y="-28.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_source_functions</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_source_functions -->
+<g id="module~~mo_rte_util_array_validation~~UsedByGraph_edge11" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_source_functions</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M501.91,-52.76C491.58,-50.47 479.79,-47.85 468.06,-45.24"/>
+<polygon fill="#000000" stroke="#000000" points="468.76,-41.81 458.24,-43.06 467.24,-48.64 468.76,-41.81"/>
+</g>
+<!-- module~mo_fluxes&#45;&gt;module~mo_rte_util_array_validation -->
+<g id="module~~mo_rte_util_array_validation~~UsedByGraph_edge4" class="edge">
+<title>module~mo_fluxes&#45;&gt;module~mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M369.22,-122.75C332.55,-135.37 275.38,-153.32 253,-151"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M251,-151C201.38,-145.86 147.69,-123.54 114.57,-107.63"/>
+<polygon fill="#000000" stroke="#000000" points="115.9,-104.39 105.38,-103.13 112.82,-110.68 115.9,-104.39"/>
+</g>
+<!-- module~mo_fluxes&#45;&gt;module~mo_optical_props -->
+<g id="module~~mo_rte_util_array_validation~~UsedByGraph_edge6" class="edge">
+<title>module~mo_fluxes&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M369.3,-106.61C353.47,-104.49 333.92,-101.86 315.39,-99.38"/>
+<polygon fill="#000000" stroke="#000000" points="315.61,-95.88 305.24,-98.01 314.68,-102.81 315.61,-95.88"/>
+</g>
+<!-- module~mo_source_functions&#45;&gt;module~mo_optical_props -->
+<g id="module~~mo_rte_util_array_validation~~UsedByGraph_edge7" class="edge">
+<title>module~mo_source_functions&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.85,-43.14C348.95,-52.36 317.27,-65.12 292.37,-75.15"/>
+<polygon fill="#000000" stroke="#000000" points="290.82,-72 282.85,-78.98 293.44,-78.49 290.82,-72"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="518pt" height="32pt"
+ viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<!-- Module -->
+<g id="node1" class="node">
+<title>Module</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+</g>
+<!-- Submodule -->
+<g id="node2" class="node">
+<title>Submodule</title>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
+<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+</g>
+<!-- Subroutine -->
+<g id="node3" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
+<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+</g>
+<!-- Function -->
+<g id="node4" class="node">
+<title>Function</title>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
+<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
+<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node6" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
+<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a submodule to the (sub)module which it is
+    descended from. Dashed arrows point from a module or program unit to 
+    modules which it uses.
+    </p>
+    </div></div></div></div>
+  </li>
+      </ul>
+    </div>
+
+    <br>
+
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#inters-1">Interfaces</a></h3></div>
+  <div id="inters-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_rte_util_array_validation.html#interface-any_vals_less_than">any_vals_less_than</a>
+      <a class="list-group-item" href="../module/mo_rte_util_array_validation.html#interface-any_vals_outside">any_vals_outside</a>
+      <a class="list-group-item" href="../module/mo_rte_util_array_validation.html#interface-extents_are">extents_are</a>
+    </div>
+  </div>
+</div>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+
+    
+    
+    <section>
+   <h2>Interfaces</h2>
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-any_vals_less_than"></span><h3>public interface <a href='../interface/any_vals_less_than.html'>any_vals_less_than</a>  </h3></div>
+  <div class="panel-body">
+    <p>Values less than a floor (including masked versions)</p>
+  </div>
+  <ul class="list-group">
+    <li class="list-group-item">
+    <h3>private function any_vals_less_than_1D(array, check_value)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>check_value</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+    </li>
+    <li class="list-group-item">
+    <h3>private function any_vals_less_than_2D(array, check_value)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>check_value</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+    </li>
+    <li class="list-group-item">
+    <h3>private function any_vals_less_than_3D(array, check_value)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:,:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>check_value</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+    </li>
+    <li class="list-group-item">
+    <h3>private function any_vals_less_than_1D_masked(array, mask, check_value)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>logical(kind=wl),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:)</td><td>::</td>
+  <td><strong>mask</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>check_value</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+    </li>
+    <li class="list-group-item">
+    <h3>private function any_vals_less_than_2D_masked(array, mask, check_value)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>logical(kind=wl),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>mask</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>check_value</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+    </li>
+    <li class="list-group-item">
+    <h3>private function any_vals_less_than_3D_masked(array, mask, check_value)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:,:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>logical(kind=wl),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:,:)</td><td>::</td>
+  <td><strong>mask</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>check_value</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+    </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-any_vals_outside"></span><h3>public interface <a href='../interface/any_vals_outside.html'>any_vals_outside</a>  </h3></div>
+  <div class="panel-body">
+    <p>Values outside a range (including masked versions)</p>
+  </div>
+  <ul class="list-group">
+    <li class="list-group-item">
+    <h3>private function any_vals_outside_1D(array, checkMin, checkMax)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>checkMin</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>checkMax</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+    </li>
+    <li class="list-group-item">
+    <h3>private function any_vals_outside_2D(array, checkMin, checkMax)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>checkMin</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>checkMax</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+    </li>
+    <li class="list-group-item">
+    <h3>private function any_vals_outside_3D(array, checkMin, checkMax)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:,:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>checkMin</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>checkMax</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+    </li>
+    <li class="list-group-item">
+    <h3>private function any_vals_outside_1D_masked(array, mask, checkMin, checkMax)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>logical(kind=wl),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:)</td><td>::</td>
+  <td><strong>mask</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>checkMin</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>checkMax</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+    </li>
+    <li class="list-group-item">
+    <h3>private function any_vals_outside_2D_masked(array, mask, checkMin, checkMax)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>logical(kind=wl),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>mask</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>checkMin</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>checkMax</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+    </li>
+    <li class="list-group-item">
+    <h3>private function any_vals_outside_3D_masked(array, mask, checkMin, checkMax)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:,:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>logical(kind=wl),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:,:)</td><td>::</td>
+  <td><strong>mask</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>checkMin</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>checkMax</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+    </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-extents_are"></span><h3>public interface <a href='../interface/extents_are.html'>extents_are</a>  </h3></div>
+  <div class="panel-body">
+    <p>Find the extents of an array</p>
+  </div>
+  <ul class="list-group">
+    <li class="list-group-item">
+    <h3>private function extents_are_1d(array, n1)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:          )</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n1</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical(kind=wl)</small></h4>  
+
+    </li>
+    <li class="list-group-item">
+    <h3>private function extents_are_2d(array, n1, n2)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:        )</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n1</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n2</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical(kind=wl)</small></h4>  
+
+    </li>
+    <li class="list-group-item">
+    <h3>private function extents_are_3d(array, n1, n2, n3)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:,:      )</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n1</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n2</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n3</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical(kind=wl)</small></h4>  
+
+    </li>
+    <li class="list-group-item">
+    <h3>private function extents_are_4d(array, n1, n2, n3, n4)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:,:,:    )</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n1</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n2</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n3</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n4</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical(kind=wl)</small></h4>  
+
+    </li>
+    <li class="list-group-item">
+    <h3>private function extents_are_5d(array, n1, n2, n3, n4, n5)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:,:,:,:  )</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n1</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n2</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n3</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n4</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n5</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical(kind=wl)</small></h4>  
+
+    </li>
+    <li class="list-group-item">
+    <h3>private function extents_are_6d(array, n1, n2, n3, n4, n5, n6)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:,:,:,:,:)</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n1</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n2</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n3</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n4</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n5</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n6</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical(kind=wl)</small></h4>  
+
+    </li>
+    <li class="list-group-item">
+    <h3>private function extents_are_2d_int(array, n1, n2)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:        )</td><td>::</td>
+  <td><strong>array</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n1</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n2</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical(kind=wl)</small></h4>  
+
+    </li>
+  </ul>
+</div>
+
+    </section>
+  <br>
+
+    
+    
+
+    
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/module/mo_source_functions.html b/reference/rte-fortran-interface/module/mo_source_functions.html
new file mode 100644
index 000000000..4a1d4d5e0
--- /dev/null
+++ b/reference/rte-fortran-interface/module/mo_source_functions.html
@@ -0,0 +1,650 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>mo_source_functions &ndash; RTE-Fortran</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>mo_source_functions 
+    <small>Module</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title="11.3% of total for modules and submodules.">180 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_source_functions.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li><a href='../sourcefile/mo_source_functions.f90.html'>mo_source_functions.F90</a></li>
+     <li class="active">mo_source_functions</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#types-0">Derived Types</a></h3></div>
+  <div id="types-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_source_functions.html#type-ty_source_func_lw">ty_source_func_lw</a>
+      <a class="list-group-item" href="../module/mo_source_functions.html#type-ty_source_func_sw">ty_source_func_sw</a>
+    </div>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+    <p>Encapsulate source function arrays for longwave/lw/internal sources</p>
+<br>        <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Uses</h3>
+      </div>
+      <ul class="list-group">
+      <li class="list-group-item">
+  <ul class="list-inline">
+    <li><a href='../module/mo_rte_kind.html'>mo_rte_kind</a></li>
+    <li><a href='../module/mo_optical_props.html'>mo_optical_props</a></li>
+  </ul>
+      </li>
+      <li class="list-group-item">
+  <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: module~~mo_source_functions~~UsesGraph Pages: 1 -->
+<svg id="modulemo_source_functionsUsesGraph" width="641pt" height="132pt"
+ viewBox="0.00 0.00 641.00 132.39" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~mo_source_functions~~UsesGraph" class="graph" transform="scale(1.1 1.1) rotate(0) translate(4 142.03)">
+<title>module~~mo_source_functions~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-142.03 703,-142.03 703,4 -4,4"/>
+<!-- module~mo_source_functions -->
+<g id="module~~mo_source_functions~~UsesGraph_node1" class="node">
+<title>module~mo_source_functions</title>
+<polygon fill="none" stroke="black" points="699,-128 575,-128 575,-104 699,-104 699,-128"/>
+<text text-anchor="middle" x="637" y="-113.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_source_functions</text>
+</g>
+<!-- module~mo_rte_kind -->
+<g id="module~~mo_source_functions~~UsesGraph_node2" class="node">
+<title>module~mo_rte_kind</title>
+<g id="a_module~~mo_source_functions~~UsesGraph_node2"><a xlink:href=".././module/mo_rte_kind.html" xlink:title="mo_rte_kind">
+<polygon fill="#337ab7" stroke="#337ab7" points="198,-108 120,-108 120,-84 198,-84 198,-108"/>
+<text text-anchor="middle" x="159" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind</text>
+</a>
+</g>
+</g>
+<!-- module~mo_source_functions&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_source_functions~~UsesGraph_edge1" class="edge">
+<title>module~mo_source_functions&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M574.74,-124.54C510.42,-132.4 406.33,-142 316.5,-136"/>
+</g>
+<!-- module~mo_optical_props -->
+<g id="module~~mo_source_functions~~UsesGraph_node3" class="node">
+<title>module~mo_optical_props</title>
+<g id="a_module~~mo_source_functions~~UsesGraph_node3"><a xlink:href=".././module/mo_optical_props.html" xlink:title="mo_optical_props">
+<polygon fill="#337ab7" stroke="#337ab7" points="539,-108 433,-108 433,-84 539,-84 539,-108"/>
+<text text-anchor="middle" x="486" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props</text>
+</a>
+</g>
+</g>
+<!-- module~mo_source_functions&#45;&gt;module~mo_optical_props -->
+<g id="module~~mo_source_functions~~UsesGraph_edge2" class="edge">
+<title>module~mo_source_functions&#45;&gt;module~mo_optical_props</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M574.97,-107.81C566.42,-106.66 557.62,-105.48 549.06,-104.33"/>
+<polygon fill="#000000" stroke="#000000" points="549.51,-100.86 539.13,-103 548.57,-107.8 549.51,-100.86"/>
+</g>
+<!-- iso_c_binding -->
+<g id="module~~mo_source_functions~~UsesGraph_node4" class="node">
+<title>iso_c_binding</title>
+<g id="a_module~~mo_source_functions~~UsesGraph_node4"><a xlink:href="http://fortranwiki.org/fortran/show/iso_c_binding" xlink:title="iso_c_binding">
+<polygon fill="#337ab7" stroke="#337ab7" points="84,-108 0,-108 0,-84 84,-84 84,-108"/>
+<text text-anchor="middle" x="42" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_kind&#45;&gt;iso_c_binding -->
+<g id="module~~mo_source_functions~~UsesGraph_edge3" class="edge">
+<title>module~mo_rte_kind&#45;&gt;iso_c_binding</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M119.71,-96C111.62,-96 102.97,-96 94.49,-96"/>
+<polygon fill="#000000" stroke="#000000" points="94.29,-92.5 84.29,-96 94.29,-99.5 94.29,-92.5"/>
+</g>
+<!-- module~mo_optical_props&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_source_functions~~UsesGraph_edge7" class="edge">
+<title>module~mo_optical_props&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.12,-108.01C424.05,-120.98 367.05,-139.38 316.5,-136"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.5,-136C275.34,-133.38 232.2,-121.41 201.49,-111.24"/>
+<polygon fill="#000000" stroke="#000000" points="202.57,-107.91 191.97,-108.02 200.32,-114.54 202.57,-107.91"/>
+</g>
+<!-- module~mo_rte_util_array_validation -->
+<g id="module~~mo_source_functions~~UsesGraph_node5" class="node">
+<title>module~mo_rte_util_array_validation</title>
+<g id="a_module~~mo_source_functions~~UsesGraph_node5"><a xlink:href=".././module/mo_rte_util_array_validation.html" xlink:title="mo_rte_util_array_validation">
+<polygon fill="#337ab7" stroke="#337ab7" points="397,-108 234,-108 234,-84 397,-84 397,-108"/>
+<text text-anchor="middle" x="315.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array_validation</text>
+</a>
+</g>
+</g>
+<!-- module~mo_optical_props&#45;&gt;module~mo_rte_util_array_validation -->
+<g id="module~~mo_source_functions~~UsesGraph_edge4" class="edge">
+<title>module~mo_optical_props&#45;&gt;module~mo_rte_util_array_validation</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M432.61,-96C424.49,-96 415.9,-96 407.22,-96"/>
+<polygon fill="#000000" stroke="#000000" points="407.01,-92.5 397.01,-96 407.01,-99.5 407.01,-92.5"/>
+</g>
+<!-- mo_optical_props_kernels -->
+<g id="module~~mo_source_functions~~UsesGraph_node6" class="node">
+<title>mo_optical_props_kernels</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="390.5,-66 240.5,-66 240.5,-42 390.5,-42 390.5,-66"/>
+<text text-anchor="middle" x="315.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props_kernels</text>
+</g>
+<!-- module~mo_optical_props&#45;&gt;mo_optical_props_kernels -->
+<g id="module~~mo_source_functions~~UsesGraph_edge5" class="edge">
+<title>module~mo_optical_props&#45;&gt;mo_optical_props_kernels</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M436.71,-83.96C417.33,-79.13 394.81,-73.52 374.54,-68.47"/>
+<polygon fill="#000000" stroke="#000000" points="375.34,-65.06 364.79,-66.04 373.65,-71.85 375.34,-65.06"/>
+</g>
+<!-- module~mo_rte_config -->
+<g id="module~~mo_source_functions~~UsesGraph_node7" class="node">
+<title>module~mo_rte_config</title>
+<g id="a_module~~mo_source_functions~~UsesGraph_node7"><a xlink:href=".././module/mo_rte_config.html" xlink:title="mo_rte_config">
+<polygon fill="#337ab7" stroke="#337ab7" points="359.5,-24 271.5,-24 271.5,0 359.5,0 359.5,-24"/>
+<text text-anchor="middle" x="315.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_config</text>
+</a>
+</g>
+</g>
+<!-- module~mo_optical_props&#45;&gt;module~mo_rte_config -->
+<g id="module~~mo_source_functions~~UsesGraph_edge6" class="edge">
+<title>module~mo_optical_props&#45;&gt;module~mo_rte_config</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M471.38,-83.79C454.89,-69.61 425.75,-46.48 397,-33 388.36,-28.95 378.82,-25.59 369.42,-22.84"/>
+<polygon fill="#000000" stroke="#000000" points="370.29,-19.45 359.72,-20.19 368.44,-26.2 370.29,-19.45"/>
+</g>
+<!-- module~mo_rte_util_array_validation&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_source_functions~~UsesGraph_edge8" class="edge">
+<title>module~mo_rte_util_array_validation&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M233.63,-96C224.9,-96 216.24,-96 208.08,-96"/>
+<polygon fill="#000000" stroke="#000000" points="208.05,-92.5 198.05,-96 208.05,-99.5 208.05,-92.5"/>
+</g>
+<!-- module~mo_rte_config&#45;&gt;module~mo_rte_kind -->
+<g id="module~~mo_source_functions~~UsesGraph_edge9" class="edge">
+<title>module~mo_rte_config&#45;&gt;module~mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M271.4,-19.46C258.9,-22.62 245.53,-26.99 234,-33 212.54,-44.18 191.89,-62.61 177.89,-76.66"/>
+<polygon fill="#000000" stroke="#000000" points="175.28,-74.32 170.83,-83.93 180.3,-79.19 175.28,-74.32"/>
+</g>
+</g>
+</svg>
+</div><script>var panmodulemo_source_functionsUsesGraph = svgPanZoom('#modulemo_source_functionsUsesGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="518pt" height="32pt"
+ viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<!-- Module -->
+<g id="node1" class="node">
+<title>Module</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+</g>
+<!-- Submodule -->
+<g id="node2" class="node">
+<title>Submodule</title>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
+<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+</g>
+<!-- Subroutine -->
+<g id="node3" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
+<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+</g>
+<!-- Function -->
+<g id="node4" class="node">
+<title>Function</title>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
+<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
+<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node6" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
+<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a submodule to the (sub)module which it is
+    descended from. Dashed arrows point from a module or program unit to 
+    modules which it uses.
+    </p>
+    </div></div></div></div>
+      </li>
+      </ul>
+    </div>
+
+        <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Used by</h3>
+      </div>
+      <ul class="list-group">
+  <li class="list-group-item">
+    <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: module~~mo_source_functions~~UsedByGraph Pages: 1 -->
+<svg id="modulemo_source_functionsUsedByGraph" width="235pt" height="32pt"
+ viewBox="0.00 0.00 235.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~mo_source_functions~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>module~~mo_source_functions~~UsedByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 231,-28 231,4 -4,4"/>
+<!-- module~mo_source_functions -->
+<g id="module~~mo_source_functions~~UsedByGraph_node1" class="node">
+<title>module~mo_source_functions</title>
+<polygon fill="none" stroke="black" points="124,-24 0,-24 0,0 124,0 124,-24"/>
+<text text-anchor="middle" x="62" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_source_functions</text>
+</g>
+<!-- module~mo_rte_lw -->
+<g id="module~~mo_source_functions~~UsedByGraph_node2" class="node">
+<title>module~mo_rte_lw</title>
+<g id="a_module~~mo_source_functions~~UsedByGraph_node2"><a xlink:href=".././module/mo_rte_lw.html" xlink:title="mo_rte_lw">
+<polygon fill="#337ab7" stroke="#337ab7" points="227,-24 160,-24 160,0 227,0 227,-24"/>
+<text text-anchor="middle" x="193.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_lw</text>
+</a>
+</g>
+</g>
+<!-- module~mo_rte_lw&#45;&gt;module~mo_source_functions -->
+<g id="module~~mo_source_functions~~UsedByGraph_edge1" class="edge">
+<title>module~mo_rte_lw&#45;&gt;module~mo_source_functions</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M159.82,-12C151.93,-12 143.18,-12 134.27,-12"/>
+<polygon fill="#000000" stroke="#000000" points="134.18,-8.5 124.18,-12 134.18,-15.5 134.18,-8.5"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="518pt" height="32pt"
+ viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<!-- Module -->
+<g id="node1" class="node">
+<title>Module</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+</g>
+<!-- Submodule -->
+<g id="node2" class="node">
+<title>Submodule</title>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
+<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+</g>
+<!-- Subroutine -->
+<g id="node3" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
+<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+</g>
+<!-- Function -->
+<g id="node4" class="node">
+<title>Function</title>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
+<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
+<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node6" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
+<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a submodule to the (sub)module which it is
+    descended from. Dashed arrows point from a module or program unit to 
+    modules which it uses.
+    </p>
+    </div></div></div></div>
+  </li>
+      </ul>
+    </div>
+
+    <br>
+
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#types-1">Derived Types</a></h3></div>
+  <div id="types-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_source_functions.html#type-ty_source_func_lw">ty_source_func_lw</a>
+      <a class="list-group-item" href="../module/mo_source_functions.html#type-ty_source_func_sw">ty_source_func_sw</a>
+    </div>
+  </div>
+</div>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+
+    
+    
+
+    
+    <section>
+     <h2>Derived Types</h2>
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="type-ty_source_func_lw"></span><h3>type, public, extends(<a href='../type/ty_optical_props.html'>ty_optical_props</a>) :: <a href='../type/ty_source_func_lw.html'>ty_source_func_lw</a>  </h3></div>
+  <div class="panel-body">
+    <p>Type representing Planck source functions in <script type="math/tex">W/m^2</script>
+  computed at layer center, at layer edges using
+  spectral mapping in each direction separately, and at the surface</p>
+     <h4>Components</h4>
+    <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Visibility</th><th>Attributes</th><th></th><th>Name</th><th></th><th>Initial</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" id="variable-lay_source"></span>real(kind=wp),</td>
+<td>public,</td>  <td>allocatable, dimension(:,:,:)</td><td>::</td>
+  <td><strong>lay_source</strong></td><td></td><td></td><td><p>Planck source at layer average temperature (ncol, nlay, ngpt)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-lev_source_dec"></span>real(kind=wp),</td>
+<td>public,</td>  <td>allocatable, dimension(:,:,:)</td><td>::</td>
+  <td><strong>lev_source_dec</strong></td><td></td><td></td><td><p>Planck source at layer edge in decreasing ilay direction (ncol, nlay+1, ngpt)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-lev_source_inc"></span>real(kind=wp),</td>
+<td>public,</td>  <td>allocatable, dimension(:,:,:)</td><td>::</td>
+  <td><strong>lev_source_inc</strong></td><td></td><td></td><td><p>Planck source at layer edge in increasing ilay direction (ncol, nlay+1, ngpt)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-sfc_source"></span>real(kind=wp),</td>
+<td>public,</td>  <td>allocatable, dimension(:,:  )</td><td>::</td>
+  <td><strong>sfc_source</strong></td><td></td><td></td><td><p>Planck function at surface temperature</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-sfc_source_jac"></span>real(kind=wp),</td>
+<td>public,</td>  <td>allocatable, dimension(:,:  )</td><td>::</td>
+  <td><strong>sfc_source_Jac</strong></td><td></td><td></td><td><p>surface source Jacobian</p></td>
+</tr>
+</tbody>
+</table>
+
+     
+     <h4>Type-Bound Procedures</h4>
+      <table class="table table-striped varlist">
+      <tbody>
+       <tr><td>generic, public :: <strong><a href='../type/ty_source_func_lw.html#boundprocedure-alloc'>alloc</a></strong>  => alloc_lw, copy_and_alloc_lw </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-bands_are_equal'>bands_are_equal</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-convert_band2gpt'>convert_band2gpt</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-convert_gpt2band'>convert_gpt2band</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-expand'>expand</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_source_func_lw.html#boundprocedure-finalize'>finalize</a></strong>  => finalize_lw </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_band_lims_gpoint'>get_band_lims_gpoint</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_band_lims_wavelength'>get_band_lims_wavelength</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_band_lims_wavenumber'>get_band_lims_wavenumber</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_gpoint_bands'>get_gpoint_bands</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_name'>get_name</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_nband'>get_nband</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_source_func_lw.html#boundprocedure-get_ncol'>get_ncol</a></strong>  => get_ncol_lw </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_ngpt'>get_ngpt</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_source_func_lw.html#boundprocedure-get_nlay'>get_nlay</a></strong>  => get_nlay_lw </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_source_func_lw.html#boundprocedure-get_subset'>get_subset</a></strong>  => get_subset_range_lw </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-gpoints_are_equal'>gpoints_are_equal</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>generic, public :: <strong><a href='../type/ty_source_func_lw.html#boundprocedure-init'>init</a></strong>  => init_base, init_base_from_copy </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_source_func_lw.html#boundprocedure-is_allocated'>is_allocated</a></strong>  => is_allocated_lw </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-is_initialized'>is_initialized</a></strong>  => is_initialized_base </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-set_name'>set_name</a></strong>  </td>
+       <td></td></tr>
+       </tbody>
+       </table>
+  </div>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="type-ty_source_func_sw"></span><h3>type, public, extends(<a href='../type/ty_optical_props.html'>ty_optical_props</a>) :: <a href='../type/ty_source_func_sw.html'>ty_source_func_sw</a>  </h3></div>
+  <div class="panel-body">
+     
+     <h4>Type-Bound Procedures</h4>
+      <table class="table table-striped varlist">
+      <tbody>
+       <tr><td>generic, public :: <strong><a href='../type/ty_source_func_sw.html#boundprocedure-alloc~2'>alloc</a></strong>  => alloc_sw, copy_and_alloc_sw </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-bands_are_equal'>bands_are_equal</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-convert_band2gpt'>convert_band2gpt</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-convert_gpt2band'>convert_gpt2band</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-expand'>expand</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_source_func_sw.html#boundprocedure-finalize~2'>finalize</a></strong>  => finalize_sw </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_band_lims_gpoint'>get_band_lims_gpoint</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_band_lims_wavelength'>get_band_lims_wavelength</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_band_lims_wavenumber'>get_band_lims_wavenumber</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_gpoint_bands'>get_gpoint_bands</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_name'>get_name</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_nband'>get_nband</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_source_func_sw.html#boundprocedure-get_ncol~2'>get_ncol</a></strong>  => get_ncol_sw </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-get_ngpt'>get_ngpt</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_source_func_sw.html#boundprocedure-get_subset~2'>get_subset</a></strong>  => get_subset_range_sw </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-gpoints_are_equal'>gpoints_are_equal</a></strong>  </td>
+       <td></td></tr>
+       <tr><td>generic, public :: <strong><a href='../type/ty_source_func_sw.html#boundprocedure-init~2'>init</a></strong>  => init_base, init_base_from_copy </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_source_func_sw.html#boundprocedure-is_allocated~2'>is_allocated</a></strong>  => is_allocated_sw </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-is_initialized'>is_initialized</a></strong>  => is_initialized_base </td>
+       <td></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/ty_optical_props.html#boundprocedure-set_name'>set_name</a></strong>  </td>
+       <td></td></tr>
+       </tbody>
+       </table>
+  </div>
+</div>
+
+    </section>
+  <br>
+    
+
+    
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/proc/rte_lw.html b/reference/rte-fortran-interface/proc/rte_lw.html
new file mode 100644
index 000000000..c2cc7b96b
--- /dev/null
+++ b/reference/rte-fortran-interface/proc/rte_lw.html
@@ -0,0 +1,433 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>rte_lw &ndash; RTE-Fortran</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>rte_lw
+      <small>Function</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title="89.9% of total for procedures.">169 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_rte_lw.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li><a href='../sourcefile/mo_rte_lw.f90.html'>mo_rte_lw.F90</a></li>
+     <li><a href='../module/mo_rte_lw.html'>mo_rte_lw</a></li>
+     <li class="active">rte_lw</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<em>None</em>
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+    <h2>public function rte_lw(optical_props, top_at_1, sources, sfc_emis, fluxes, inc_flux, n_gauss_angles, use_2stream, lw_Ds, flux_up_Jac) result(error_msg)</h2>
+    
+
+
+    <h3>Arguments</h3>
+      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" id="variable-optical_props"></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>optical_props</strong></td><td><p>Set of optical properties as one or more arrays</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-top_at_1"></span>logical,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>top_at_1</strong></td><td><p>Is the top of the domain at index 1? (if not, ordering is bottom-to-top)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-sources"></span>type(<a href='../type/ty_source_func_lw.html'>ty_source_func_lw</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>sources</strong></td><td><p>Derived type with Planck source functions</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-sfc_emis"></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>sfc_emis</strong></td><td><p>emissivity at surface [] (nband, ncol)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-fluxes"></span>class(<a href='../type/ty_fluxes.html'>ty_fluxes</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>fluxes</strong></td><td><p>Dervied type for computing spectral integrals from g-point fluxes.
+Default computes broadband fluxes at all levels if output arrays are defined. Can be extended per user desires.</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-inc_flux"></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td>dimension(:,:), target</td><td>::</td>
+  <td><strong>inc_flux</strong></td><td><p>incident flux at domain top [W/m2] (ncol, ngpts)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-n_gauss_angles"></span>integer,</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td></td><td>::</td>
+  <td><strong>n_gauss_angles</strong></td><td><p>Number of angles used in Gaussian quadrature (max 3, no-scattering solution)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-use_2stream"></span>logical,</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td></td><td>::</td>
+  <td><strong>use_2stream</strong></td><td><p>When 2-stream parameters (tau/ssa/g) are provided, use 2-stream methods
+Default is to use re-scaled longwave transport</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-lw_ds"></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>lw_Ds</strong></td><td><p>User-specifed 1/cos of transport angle per col, g-point</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-flux_up_jac"></span>real(kind=wp),</td>
+<td>intent(inout),</td>
+  <td>optional</td>  <td>dimension(:,:), target</td><td>::</td>
+  <td><strong>flux_up_Jac</strong></td><td><p>surface temperature flux  Jacobian [W/m2/K] (ncol, nlay+1)</p></td>
+</tr>
+</tbody>
+</table>
+
+   <h3>Return Value <small><span class="anchor" id="variable-error_msg"></span>character(len=128)</small></h3>
+    <p>If empty, calculation was successful</p>
+    <br>
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Calls</h3>
+      </div>
+      <div class="panel-body">
+  <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: proc~~rte_lw~~CallsGraph Pages: 1 -->
+<svg id="procrte_lwCallsGraph" width="211pt" height="242pt"
+ viewBox="0.00 0.00 211.00 242.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~rte_lw~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 238)">
+<title>proc~~rte_lw~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-238 207,-238 207,4 -4,4"/>
+<!-- proc~rte_lw -->
+<g id="proc~~rte_lw~~CallsGraph_node1" class="node">
+<title>proc~rte_lw</title>
+<polygon fill="none" stroke="black" points="54,-129 0,-129 0,-105 54,-105 54,-129"/>
+<text text-anchor="middle" x="27" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50">rte_lw</text>
+</g>
+<!-- zero_array -->
+<g id="proc~~rte_lw~~CallsGraph_node2" class="node">
+<title>zero_array</title>
+<polygon fill="#777777" stroke="#777777" points="181,-234 112,-234 112,-210 181,-210 181,-234"/>
+<text text-anchor="middle" x="146.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">zero_array</text>
+</g>
+<!-- proc~rte_lw&#45;&gt;zero_array -->
+<g id="proc~~rte_lw~~CallsGraph_edge1" class="edge">
+<title>proc~rte_lw&#45;&gt;zero_array</title>
+<path fill="none" stroke="#000000" d="M33.96,-129.01C43.46,-147.03 63.71,-181.08 90,-201 93.85,-203.92 98.16,-206.47 102.62,-208.7"/>
+<polygon fill="#000000" stroke="#000000" points="101.34,-211.96 111.9,-212.81 104.18,-205.56 101.34,-211.96"/>
+</g>
+<!-- lw_solver_2stream -->
+<g id="proc~~rte_lw~~CallsGraph_node3" class="node">
+<title>lw_solver_2stream</title>
+<polygon fill="#777777" stroke="#777777" points="201.5,-192 91.5,-192 91.5,-168 201.5,-168 201.5,-192"/>
+<text text-anchor="middle" x="146.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lw_solver_2stream</text>
+</g>
+<!-- proc~rte_lw&#45;&gt;lw_solver_2stream -->
+<g id="proc~~rte_lw~~CallsGraph_edge5" class="edge">
+<title>proc~rte_lw&#45;&gt;lw_solver_2stream</title>
+<path fill="none" stroke="#000000" d="M43.68,-129.13C55.84,-138.17 73.38,-150.38 90,-159 93.45,-160.79 97.09,-162.51 100.79,-164.14"/>
+<polygon fill="#000000" stroke="#000000" points="99.45,-167.37 110.02,-167.99 102.14,-160.91 99.45,-167.37"/>
+</g>
+<!-- interface~any_vals_outside -->
+<g id="proc~~rte_lw~~CallsGraph_node4" class="node">
+<title>interface~any_vals_outside</title>
+<g id="a_proc~~rte_lw~~CallsGraph_node4"><a xlink:href=".././interface/any_vals_outside.html" xlink:title="any_vals_outside">
+<polygon fill="#a7506f" stroke="#a7506f" points="198,-150 95,-150 95,-126 198,-126 198,-150"/>
+<text text-anchor="middle" x="146.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">any_vals_outside</text>
+</a>
+</g>
+</g>
+<!-- proc~rte_lw&#45;&gt;interface~any_vals_outside -->
+<g id="proc~~rte_lw~~CallsGraph_edge2" class="edge">
+<title>proc~rte_lw&#45;&gt;interface~any_vals_outside</title>
+<path fill="none" stroke="#000000" d="M54.08,-121.66C63.29,-123.31 74.08,-125.24 84.95,-127.18"/>
+<polygon fill="#000000" stroke="#000000" points="84.45,-130.64 94.91,-128.96 85.68,-123.75 84.45,-130.64"/>
+</g>
+<!-- lw_solver_noscat -->
+<g id="proc~~rte_lw~~CallsGraph_node5" class="node">
+<title>lw_solver_noscat</title>
+<polygon fill="#777777" stroke="#777777" points="197.5,-108 95.5,-108 95.5,-84 197.5,-84 197.5,-108"/>
+<text text-anchor="middle" x="146.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lw_solver_noscat</text>
+</g>
+<!-- proc~rte_lw&#45;&gt;lw_solver_noscat -->
+<g id="proc~~rte_lw~~CallsGraph_edge3" class="edge">
+<title>proc~rte_lw&#45;&gt;lw_solver_noscat</title>
+<path fill="none" stroke="#000000" d="M54.08,-112.34C63.39,-110.67 74.32,-108.72 85.31,-106.76"/>
+<polygon fill="#000000" stroke="#000000" points="86.15,-110.16 95.38,-104.96 84.92,-103.27 86.15,-110.16"/>
+</g>
+<!-- interface~any_vals_less_than -->
+<g id="proc~~rte_lw~~CallsGraph_node6" class="node">
+<title>interface~any_vals_less_than</title>
+<g id="a_proc~~rte_lw~~CallsGraph_node6"><a xlink:href=".././interface/any_vals_less_than.html" xlink:title="any_vals_less_than">
+<polygon fill="#a7506f" stroke="#a7506f" points="203,-66 90,-66 90,-42 203,-42 203,-66"/>
+<text text-anchor="middle" x="146.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">any_vals_less_than</text>
+</a>
+</g>
+</g>
+<!-- proc~rte_lw&#45;&gt;interface~any_vals_less_than -->
+<g id="proc~~rte_lw~~CallsGraph_edge4" class="edge">
+<title>proc~rte_lw&#45;&gt;interface~any_vals_less_than</title>
+<path fill="none" stroke="#000000" d="M43.68,-104.87C55.84,-95.83 73.38,-83.62 90,-75 93.45,-73.21 97.09,-71.49 100.79,-69.86"/>
+<polygon fill="#000000" stroke="#000000" points="102.14,-73.09 110.02,-66.01 99.45,-66.63 102.14,-73.09"/>
+</g>
+<!-- interface~extents_are -->
+<g id="proc~~rte_lw~~CallsGraph_node7" class="node">
+<title>interface~extents_are</title>
+<g id="a_proc~~rte_lw~~CallsGraph_node7"><a xlink:href=".././interface/extents_are.html" xlink:title="extents_are">
+<polygon fill="#a7506f" stroke="#a7506f" points="183,-24 110,-24 110,0 183,0 183,-24"/>
+<text text-anchor="middle" x="146.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">extents_are</text>
+</a>
+</g>
+</g>
+<!-- proc~rte_lw&#45;&gt;interface~extents_are -->
+<g id="proc~~rte_lw~~CallsGraph_edge6" class="edge">
+<title>proc~rte_lw&#45;&gt;interface~extents_are</title>
+<path fill="none" stroke="#000000" d="M33.96,-104.99C43.46,-86.97 63.71,-52.92 90,-33 93.33,-30.48 96.99,-28.23 100.8,-26.23"/>
+<polygon fill="#000000" stroke="#000000" points="102.28,-29.41 109.86,-22.01 99.32,-23.06 102.28,-29.41"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="597pt" height="32pt"
+ viewBox="0.00 0.00 596.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 592.5,-28 592.5,4 -4,4"/>
+<!-- Subroutine -->
+<g id="node1" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="70,-24 0,-24 0,0 70,0 70,-24"/>
+<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+</g>
+<!-- Function -->
+<g id="node2" class="node">
+<title>Function</title>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="146,-24 88,-24 88,0 146,0 146,-24"/>
+<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+</g>
+<!-- Interface -->
+<g id="node3" class="node">
+<title>Interface</title>
+<polygon fill="#a7506f" stroke="#a7506f" points="225.5,-24 164.5,-24 164.5,0 225.5,0 225.5,-24"/>
+<text text-anchor="middle" x="195" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+</g>
+<!-- Unknown Procedure Type -->
+<g id="node4" class="node">
+<title>Unknown Procedure Type</title>
+<polygon fill="#777777" stroke="#777777" points="388.5,-24 243.5,-24 243.5,0 388.5,0 388.5,-24"/>
+<text text-anchor="middle" x="316" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="465,-24 407,-24 407,0 465,0 465,-24"/>
+<text text-anchor="middle" x="436" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node6" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="588.5,-24 483.5,-24 483.5,0 588.5,0 588.5,-24"/>
+<text text-anchor="middle" x="536" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a procedure to one which it calls. Dashed 
+    arrows point from an interface to procedures which implement that interface.
+    This could include the module procedures in a generic interface or the
+    implementation in a submodule of an interface in a parent module.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+    <br>
+
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<em>None</em>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+
+    
+    
+
+    
+    
+
+
+    
+    
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/search.html b/reference/rte-fortran-interface/search.html
new file mode 100644
index 000000000..0431419e9
--- /dev/null
+++ b/reference/rte-fortran-interface/search.html
@@ -0,0 +1,148 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="./favicon.png">
+
+    <title>Search Results &ndash; RTE-Fortran
+</title>
+
+    <link href="./css/bootstrap.min.css" rel="stylesheet">
+    <link href="./css/pygments.css" rel="stylesheet">
+    <link href="./css/font-awesome.min.css" rel="stylesheet">
+    <link href="./css/local.css" rel="stylesheet">
+    <link  href="./tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="./js/jquery-2.1.3.min.js"></script>
+    <script src="./js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="./index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="./lists/files.html">Source Files</a></li>
+            <li><a href="./lists/modules.html">Modules</a></li>
+            <li><a href="./lists/procedures.html">Procedures</a></li>
+                   <li><a href="./lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="./lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="./lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="./lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="./lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="./search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+      <div class="row">
+        <div class="col-lg-12">
+			 <h1>Search Results</h1>
+             <div id="tipue_search_content"><div id="tipue_search_loading"></div></div>
+        </div>
+      </div>
+<!--
+    <script>
+      $(document).ready(function() {
+           $('#tipue_search_input').tipuesearch({
+             'mode' : 'static',
+             'show': 10,
+             'newWindow': false,
+             'descriptiveWords': 35,
+         });
+      });
+    </script>
+-->
+<script>
+$(document).ready(function() {
+     $('#tipue_search_input').tipuesearch();
+});
+</script>
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="./js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="./js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="./tipuesearch/tipuesearch_content.js"></script>
+    <script src="./tipuesearch/tipuesearch_set.js"></script>
+    <script src="./tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/sourcefile/mo_fluxes.f90.html b/reference/rte-fortran-interface/sourcefile/mo_fluxes.f90.html
new file mode 100644
index 000000000..eaf91f4ae
--- /dev/null
+++ b/reference/rte-fortran-interface/sourcefile/mo_fluxes.f90.html
@@ -0,0 +1,644 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>mo_fluxes.F90 &ndash; RTE-Fortran</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>mo_fluxes.F90
+    <small>Source File</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title=" 5.8% of total for source files.">93 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_fluxes.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li class="active">mo_fluxes.F90</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#mods-0">Modules</a></h3></div>
+  <div id="mods-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_fluxes.html">mo_fluxes</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title">Source Code</h3></div>
+  <div class="list-group">
+    <a class="list-group-item" href="../sourcefile/mo_fluxes.f90.html#src">mo_fluxes.F90</a>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    <div class="col-md-9" id='text'>
+      
+      <br>
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">This file depends on</h3>
+      </div>
+      <div class="panel-body">
+  <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: sourcefile~~mo_fluxes.f90~~EfferentGraph Pages: 1 -->
+<svg id="sourcefilemo_fluxesf90EfferentGraph" width="619pt" height="154pt"
+ viewBox="0.00 0.00 619.00 154.23" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~mo_fluxes.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 150.23)">
+<title>sourcefile~~mo_fluxes.f90~~EfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-150.23 615,-150.23 615,4 -4,4"/>
+<!-- sourcefile~mo_fluxes.f90 -->
+<g id="sourcefile~~mo_fluxes.f90~~EfferentGraph_node1" class="node">
+<title>sourcefile~mo_fluxes.f90</title>
+<polygon fill="none" stroke="black" points="611,-64 522,-64 522,-40 611,-40 611,-64"/>
+<text text-anchor="middle" x="566.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_fluxes.F90</text>
+</g>
+<!-- sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_fluxes.f90~~EfferentGraph_node2" class="node">
+<title>sourcefile~mo_rte_kind.f90</title>
+<g id="a_sourcefile~~mo_fluxes.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/mo_rte_kind.f90.html" xlink:title="mo_rte_kind.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="100,-84 0,-84 0,-60 100,-60 100,-84"/>
+<text text-anchor="middle" x="50" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_fluxes.f90~~EfferentGraph_edge1" class="edge">
+<title>sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421,-132C296.61,-157.37 258.75,-145.39 136,-113 116.14,-107.76 95.34,-97.82 79.29,-89.03"/>
+<polygon fill="#000000" stroke="#000000" points="80.86,-85.9 70.43,-84.04 77.42,-92 80.86,-85.9"/>
+</g>
+<!-- sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_fluxes.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~mo_rte_config.f90</title>
+<g id="a_sourcefile~~mo_fluxes.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/mo_rte_config.f90.html" xlink:title="mo_rte_config.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="284.5,-104 173.5,-104 173.5,-80 284.5,-80 284.5,-104"/>
+<text text-anchor="middle" x="229" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_config.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_fluxes.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_config.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M550.96,-64.31C526.5,-84 474.71,-121.45 423,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421,-132C407.97,-134.66 339.06,-119 287.72,-106.5"/>
+<polygon fill="#000000" stroke="#000000" points="288.26,-103.03 277.71,-104.05 286.59,-109.83 288.26,-103.03"/>
+</g>
+<!-- sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_fluxes.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~mo_rte_util_array_validation.f90</title>
+<g id="a_sourcefile~~mo_fluxes.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/mo_rte_util_array_validation.f90.html" xlink:title="mo_rte_util_array_validation.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="322,-24 136,-24 136,0 322,0 322,-24"/>
+<text text-anchor="middle" x="229" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array_validation.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_fluxes.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M525.78,-39.97C513.17,-36.57 499.09,-33.2 486,-31 435.74,-22.57 379.29,-17.88 332.22,-15.27"/>
+<polygon fill="#000000" stroke="#000000" points="332.19,-11.76 322.02,-14.73 331.82,-18.75 332.19,-11.76"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_fluxes.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~mo_optical_props.f90</title>
+<g id="a_sourcefile~~mo_fluxes.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/mo_optical_props.f90.html" xlink:title="mo_optical_props.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="486,-64 358,-64 358,-40 486,-40 486,-64"/>
+<text text-anchor="middle" x="422" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_fluxes.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M521.97,-52C513.85,-52 505.17,-52 496.43,-52"/>
+<polygon fill="#000000" stroke="#000000" points="496.2,-48.5 486.2,-52 496.2,-55.5 496.2,-48.5"/>
+</g>
+<!-- sourcefile~mo_rte_config.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_fluxes.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~mo_rte_config.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M173.45,-85.84C153.46,-83.58 130.76,-81.01 110.37,-78.71"/>
+<polygon fill="#000000" stroke="#000000" points="110.59,-75.21 100.26,-77.57 109.8,-82.17 110.59,-75.21"/>
+</g>
+<!-- sourcefile~mo_rte_util_array_validation.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_fluxes.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~mo_rte_util_array_validation.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.85,-24.02C167.1,-28.13 150.77,-32.97 136,-38 120.2,-43.38 103.06,-50.06 88.34,-56.08"/>
+<polygon fill="#000000" stroke="#000000" points="86.96,-52.86 79.06,-59.91 89.63,-59.33 86.96,-52.86"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_fluxes.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M357.82,-55.42C288.42,-59.17 177.85,-65.14 110.11,-68.8"/>
+<polygon fill="#000000" stroke="#000000" points="109.82,-65.32 100.03,-69.35 110.2,-72.3 109.82,-65.32"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_fluxes.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_config.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M363.69,-64C341.97,-68.55 317.08,-73.76 294.72,-78.45"/>
+<polygon fill="#000000" stroke="#000000" points="293.72,-75.08 284.65,-80.56 295.15,-81.93 293.72,-75.08"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_fluxes.f90~~EfferentGraph_edge9" class="edge">
+<title>sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M363.69,-40C342.92,-35.65 319.26,-30.69 297.67,-26.17"/>
+<polygon fill="#000000" stroke="#000000" points="298.1,-22.69 287.6,-24.06 296.67,-29.54 298.1,-22.69"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="202pt" height="32pt"
+ viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<!-- Source File -->
+<g id="node1" class="node">
+<title>Source File</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
+<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node2" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
+<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a file to a file which it depends on. A file
+    is dependent upon another if the latter must be compiled before the former
+    can be.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Files dependent on this one</h3>
+      </div>
+      <div class="panel-body">
+  <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: sourcefile~~mo_fluxes.f90~~AfferentGraph Pages: 1 -->
+<svg id="sourcefilemo_fluxesf90AfferentGraph" width="224pt" height="74pt"
+ viewBox="0.00 0.00 224.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~mo_fluxes.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<title>sourcefile~~mo_fluxes.f90~~AfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 220,-70 220,4 -4,4"/>
+<!-- sourcefile~mo_fluxes.f90 -->
+<g id="sourcefile~~mo_fluxes.f90~~AfferentGraph_node1" class="node">
+<title>sourcefile~mo_fluxes.f90</title>
+<polygon fill="none" stroke="black" points="89,-45 0,-45 0,-21 89,-21 89,-45"/>
+<text text-anchor="middle" x="44.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_fluxes.F90</text>
+</g>
+<!-- sourcefile~mo_rte_sw.f90 -->
+<g id="sourcefile~~mo_fluxes.f90~~AfferentGraph_node2" class="node">
+<title>sourcefile~mo_rte_sw.f90</title>
+<g id="a_sourcefile~~mo_fluxes.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/mo_rte_sw.f90.html" xlink:title="mo_rte_sw.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="216,-66 125,-66 125,-42 216,-42 216,-66"/>
+<text text-anchor="middle" x="170.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_sw.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_fluxes.f90 -->
+<g id="sourcefile~~mo_fluxes.f90~~AfferentGraph_edge1" class="edge">
+<title>sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_fluxes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M124.73,-46.42C116.55,-45.03 107.92,-43.57 99.5,-42.15"/>
+<polygon fill="#000000" stroke="#000000" points="99.81,-38.65 89.37,-40.43 98.65,-45.55 99.81,-38.65"/>
+</g>
+<!-- sourcefile~mo_rte_lw.f90 -->
+<g id="sourcefile~~mo_fluxes.f90~~AfferentGraph_node3" class="node">
+<title>sourcefile~mo_rte_lw.f90</title>
+<g id="a_sourcefile~~mo_fluxes.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/mo_rte_lw.f90.html" xlink:title="mo_rte_lw.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="214.5,-24 126.5,-24 126.5,0 214.5,0 214.5,-24"/>
+<text text-anchor="middle" x="170.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_lw.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_fluxes.f90 -->
+<g id="sourcefile~~mo_fluxes.f90~~AfferentGraph_edge2" class="edge">
+<title>sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_fluxes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M126.48,-19.29C117.74,-20.77 108.44,-22.34 99.38,-23.88"/>
+<polygon fill="#000000" stroke="#000000" points="98.56,-20.46 89.29,-25.58 99.73,-27.37 98.56,-20.46"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="202pt" height="32pt"
+ viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<!-- Source File -->
+<g id="node1" class="node">
+<title>Source File</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
+<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node2" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
+<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a file to a file which it depends on. A file
+    is dependent upon another if the latter must be compiled before the former
+    can be.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+<br>
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#mods-1">Modules</a></h3></div>
+  <div id="mods-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_fluxes.html">mo_fluxes</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title">Source Code</h3></div>
+  <div class="list-group">
+    <a class="list-group-item" href="../sourcefile/mo_fluxes.f90.html#src">mo_fluxes.F90</a>
+  </div>
+</div>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    <section>
+      <h2><span class="anchor" id="src"></span>Source Code</h2>
+    <div class="hl"><pre><span></span><a id="ln-1" name="ln-1" href="#ln-1"></a><span class="c">! This code is part of Radiative Transfer for Energetics (RTE)</span>
+<a id="ln-2" name="ln-2" href="#ln-2"></a><span class="c">!</span>
+<a id="ln-3" name="ln-3" href="#ln-3"></a><span class="c">! Contacts: Robert Pincus and Eli Mlawer</span>
+<a id="ln-4" name="ln-4" href="#ln-4"></a><span class="c">! email:  rrtmgp@aer.com</span>
+<a id="ln-5" name="ln-5" href="#ln-5"></a><span class="c">!</span>
+<a id="ln-6" name="ln-6" href="#ln-6"></a><span class="c">! Copyright 2015-  Atmospheric and Environmental Research and</span>
+<a id="ln-7" name="ln-7" href="#ln-7"></a><span class="c">! Regents of the University of Colorado.  All right reserved.</span>
+<a id="ln-8" name="ln-8" href="#ln-8"></a><span class="c">!</span>
+<a id="ln-9" name="ln-9" href="#ln-9"></a><span class="c">! Use and duplication is permitted under the terms of the</span>
+<a id="ln-10" name="ln-10" href="#ln-10"></a><span class="c">!    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause</span>
+<a id="ln-11" name="ln-11" href="#ln-11"></a><span class="c">! -------------------------------------------------------------------------------------------------</span>
+<a id="ln-12" name="ln-12" href="#ln-12"></a><span class="c">!</span>
+<a id="ln-13" name="ln-13" href="#ln-13"></a><span class="c">!&gt; ## Compute output quantities from spectrally-resolved flux profiles</span>
+<a id="ln-14" name="ln-14" href="#ln-14"></a><span class="c">!&gt;</span>
+<a id="ln-15" name="ln-15" href="#ln-15"></a><span class="c">!&gt;    This module contains an abstract class and a broadband implmentation that sums over all spectral points</span>
+<a id="ln-16" name="ln-16" href="#ln-16"></a><span class="c">!&gt;    The abstract base class defines the routines that extenstions must implement: `reduce()` and `are_desired()`</span>
+<a id="ln-17" name="ln-17" href="#ln-17"></a><span class="c">!&gt;    The intent is for users to extend it as required, using mo_flxues_broadband as an example</span>
+<a id="ln-18" name="ln-18" href="#ln-18"></a><span class="c">!</span>
+<a id="ln-19" name="ln-19" href="#ln-19"></a><span class="c">! -------------------------------------------------------------------------------------------------</span>
+<a id="ln-20" name="ln-20" href="#ln-20"></a><span class="k">module </span><span class="n">mo_fluxes</span><span class="w"></span>
+<a id="ln-21" name="ln-21" href="#ln-21"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_rte_kind</span><span class="p">,</span><span class="w">       </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">wp</span><span class="w"></span>
+<a id="ln-22" name="ln-22" href="#ln-22"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_rte_config</span><span class="p">,</span><span class="w">     </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">check_extents</span><span class="w"></span>
+<a id="ln-23" name="ln-23" href="#ln-23"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_rte_util_array_validation</span><span class="p">,</span><span class="w"> </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">extents_are</span><span class="w"></span>
+<a id="ln-24" name="ln-24" href="#ln-24"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_optical_props</span><span class="p">,</span><span class="w">  </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">ty_optical_props</span><span class="w"></span>
+<a id="ln-25" name="ln-25" href="#ln-25"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_fluxes_broadband_kernels</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-26" name="ln-26" href="#ln-26"></a><span class="w">                         </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">sum_broadband</span><span class="p">,</span><span class="w"> </span><span class="n">net_broadband</span><span class="w"></span>
+<a id="ln-27" name="ln-27" href="#ln-27"></a><span class="w">  </span><span class="k">implicit none</span>
+<a id="ln-28" name="ln-28" href="#ln-28"></a><span class="k">  private</span><span class="w"></span>
+<a id="ln-29" name="ln-29" href="#ln-29"></a><span class="w">  </span><span class="c">! -----------------------------------------------------------------------------------------------</span>
+<a id="ln-30" name="ln-30" href="#ln-30"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-31" name="ln-31" href="#ln-31"></a><span class="w">  </span><span class="c">!&gt; Abstract base class:</span>
+<a id="ln-32" name="ln-32" href="#ln-32"></a><span class="w">  </span><span class="c">!&gt;   `reduce()` function accepts spectral flux profiles, computes desired outputs</span>
+<a id="ln-33" name="ln-33" href="#ln-33"></a><span class="w">  </span><span class="c">!&gt;   `are_desired()` returns a logical</span>
+<a id="ln-34" name="ln-34" href="#ln-34"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-35" name="ln-35" href="#ln-35"></a><span class="w">  </span><span class="c">! -----------------------------------------------------------------------------------------------</span>
+<a id="ln-36" name="ln-36" href="#ln-36"></a><span class="w">  </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">abstract</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ty_fluxes</span><span class="w"></span>
+<a id="ln-37" name="ln-37" href="#ln-37"></a><span class="w">  </span><span class="k">contains</span>
+<a id="ln-38" name="ln-38" href="#ln-38"></a><span class="k">    procedure</span><span class="p">(</span><span class="n">reduce_abstract</span><span class="p">),</span><span class="w">      </span><span class="k">deferred</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">reduce</span><span class="w"></span>
+<a id="ln-39" name="ln-39" href="#ln-39"></a><span class="w">    </span><span class="k">procedure</span><span class="p">(</span><span class="n">are_desired_abstract</span><span class="p">),</span><span class="w"> </span><span class="k">deferred</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">are_desired</span><span class="w"></span>
+<a id="ln-40" name="ln-40" href="#ln-40"></a><span class="w">  </span><span class="k">end type </span><span class="n">ty_fluxes</span><span class="w"></span>
+<a id="ln-41" name="ln-41" href="#ln-41"></a><span class="w">  </span><span class="c">! -----------------------------------------------------------------------------------------------</span>
+<a id="ln-42" name="ln-42" href="#ln-42"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-43" name="ln-43" href="#ln-43"></a><span class="w">  </span><span class="c">!&gt; Class implementing broadband integration for the complete flux profile.</span>
+<a id="ln-44" name="ln-44" href="#ln-44"></a><span class="w">  </span><span class="c">!&gt;   Data components are pointers so results can be written directly into memory</span>
+<a id="ln-45" name="ln-45" href="#ln-45"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-46" name="ln-46" href="#ln-46"></a><span class="w">  </span><span class="c">! -----------------------------------------------------------------------------------------------</span>
+<a id="ln-47" name="ln-47" href="#ln-47"></a><span class="w">  </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">ty_fluxes</span><span class="p">),</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ty_fluxes_broadband</span><span class="w"></span>
+<a id="ln-48" name="ln-48" href="#ln-48"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">flux_up</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="nb">NULL</span><span class="p">(),</span><span class="w"> </span><span class="n">flux_dn</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="nb">NULL</span><span class="p">()</span><span class="w"></span>
+<a id="ln-49" name="ln-49" href="#ln-49"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">flux_net</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="nb">NULL</span><span class="p">()</span><span class="w">    </span><span class="c">! Net (down - up)</span>
+<a id="ln-50" name="ln-50" href="#ln-50"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">flux_dn_dir</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="nb">NULL</span><span class="p">()</span><span class="w"> </span><span class="c">! Direct flux down</span>
+<a id="ln-51" name="ln-51" href="#ln-51"></a><span class="w">  </span><span class="k">contains</span>
+<a id="ln-52" name="ln-52" href="#ln-52"></a><span class="k">    procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">reduce</span><span class="w">      </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">reduce_broadband</span><span class="w"></span>
+<a id="ln-53" name="ln-53" href="#ln-53"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">are_desired</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">are_desired_broadband</span><span class="w"></span>
+<a id="ln-54" name="ln-54" href="#ln-54"></a><span class="w">  </span><span class="k">end type </span><span class="n">ty_fluxes_broadband</span><span class="w"></span>
+<a id="ln-55" name="ln-55" href="#ln-55"></a><span class="w">  </span><span class="c">! -----------------------------------------------------------------------------------------------</span>
+<a id="ln-56" name="ln-56" href="#ln-56"></a>
+<a id="ln-57" name="ln-57" href="#ln-57"></a><span class="w">  </span><span class="c">! -----------------------------------------------------------------------------------------------</span>
+<a id="ln-58" name="ln-58" href="#ln-58"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-59" name="ln-59" href="#ln-59"></a><span class="w">  </span><span class="c">! Abstract interfaces: any implemntation has to provide routines with these interfaces</span>
+<a id="ln-60" name="ln-60" href="#ln-60"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-61" name="ln-61" href="#ln-61"></a><span class="w">  </span><span class="k">abstract interface</span><span class="w"></span>
+<a id="ln-62" name="ln-62" href="#ln-62"></a><span class="w">    </span><span class="c">! -------------------</span>
+<a id="ln-63" name="ln-63" href="#ln-63"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-64" name="ln-64" href="#ln-64"></a><span class="w">    </span><span class="c">!&gt; This routine takes the fully resolved calculation (detailed in spectral and vertical dimensions) and</span>
+<a id="ln-65" name="ln-65" href="#ln-65"></a><span class="w">    </span><span class="c">!&gt;   computes desired outputs. Output values will normally be data components of the derived type.</span>
+<a id="ln-66" name="ln-66" href="#ln-66"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-67" name="ln-67" href="#ln-67"></a><span class="w">    </span><span class="k">function </span><span class="n">reduce_abstract</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">gpt_flux_up</span><span class="p">,</span><span class="w"> </span><span class="n">gpt_flux_dn</span><span class="p">,</span><span class="w"> </span><span class="n">spectral_disc</span><span class="p">,</span><span class="w"> </span><span class="n">top_at_1</span><span class="p">,</span><span class="w"> </span><span class="n">gpt_flux_dn_dir</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">error_msg</span><span class="p">)</span><span class="w"></span>
+<a id="ln-68" name="ln-68" href="#ln-68"></a><span class="w">      </span><span class="k">import </span><span class="n">ty_fluxes</span><span class="p">,</span><span class="w"> </span><span class="n">ty_optical_props</span><span class="w"></span>
+<a id="ln-69" name="ln-69" href="#ln-69"></a><span class="w">      </span><span class="k">import </span><span class="n">wp</span><span class="w"></span>
+<a id="ln-70" name="ln-70" href="#ln-70"></a><span class="w">      </span><span class="k">class</span><span class="p">(</span><span class="n">ty_fluxes</span><span class="p">),</span><span class="w">                  </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-71" name="ln-71" href="#ln-71"></a><span class="w">      </span><span class="kt">real</span><span class="p">(</span><span class="nb">kind</span><span class="o">=</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:),</span><span class="w">   </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">gpt_flux_up</span><span class="w"> </span><span class="c">! Fluxes by gpoint [W/m2](ncol, nlay+1, ngpt)</span>
+<a id="ln-72" name="ln-72" href="#ln-72"></a><span class="w">      </span><span class="kt">real</span><span class="p">(</span><span class="nb">kind</span><span class="o">=</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:),</span><span class="w">   </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">gpt_flux_dn</span><span class="w"> </span><span class="c">! Fluxes by gpoint [W/m2](ncol, nlay+1, ngpt)</span>
+<a id="ln-73" name="ln-73" href="#ln-73"></a><span class="w">      </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="p">),</span><span class="w">           </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">spectral_disc</span><span class="w">  </span><span class="c">!&lt; derived type with spectral information</span>
+<a id="ln-74" name="ln-74" href="#ln-74"></a><span class="w">      </span><span class="kt">logical</span><span class="p">,</span><span class="w">                           </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">top_at_1</span><span class="w"></span>
+<a id="ln-75" name="ln-75" href="#ln-75"></a><span class="w">      </span><span class="kt">real</span><span class="p">(</span><span class="nb">kind</span><span class="o">=</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:),</span><span class="w"> </span><span class="k">optional</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-76" name="ln-76" href="#ln-76"></a><span class="w">                                         </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">gpt_flux_dn_dir</span><span class="c">! Direct flux down</span>
+<a id="ln-77" name="ln-77" href="#ln-77"></a><span class="w">      </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="mi">128</span><span class="p">)</span><span class="w">                               </span><span class="kd">::</span><span class="w"> </span><span class="n">error_msg</span><span class="w"></span>
+<a id="ln-78" name="ln-78" href="#ln-78"></a><span class="w">    </span><span class="k">end function </span><span class="n">reduce_abstract</span><span class="w"></span>
+<a id="ln-79" name="ln-79" href="#ln-79"></a><span class="w">    </span><span class="c">! -------------------</span>
+<a id="ln-80" name="ln-80" href="#ln-80"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-81" name="ln-81" href="#ln-81"></a><span class="w">    </span><span class="c">! This routine determines if the reduction should proceed - it&#39;s useful in ensuring</span>
+<a id="ln-82" name="ln-82" href="#ln-82"></a><span class="w">    </span><span class="c">!   that space has been allocated for the results, for example.</span>
+<a id="ln-83" name="ln-83" href="#ln-83"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-84" name="ln-84" href="#ln-84"></a><span class="w">    </span><span class="k">function </span><span class="n">are_desired_abstract</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"></span>
+<a id="ln-85" name="ln-85" href="#ln-85"></a><span class="w">      </span><span class="k">import </span><span class="n">ty_fluxes</span><span class="w"></span>
+<a id="ln-86" name="ln-86" href="#ln-86"></a><span class="w">      </span><span class="k">class</span><span class="p">(</span><span class="n">ty_fluxes</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-87" name="ln-87" href="#ln-87"></a><span class="w">      </span><span class="kt">logical</span><span class="w">                         </span><span class="kd">::</span><span class="w"> </span><span class="n">are_desired_abstract</span><span class="w"></span>
+<a id="ln-88" name="ln-88" href="#ln-88"></a><span class="w">    </span><span class="k">end function </span><span class="n">are_desired_abstract</span><span class="w"></span>
+<a id="ln-89" name="ln-89" href="#ln-89"></a><span class="w">    </span><span class="c">! ----------------------</span>
+<a id="ln-90" name="ln-90" href="#ln-90"></a><span class="w">  </span><span class="k">end interface</span>
+<a id="ln-91" name="ln-91" href="#ln-91"></a><span class="k">contains</span><span class="w"></span>
+<a id="ln-92" name="ln-92" href="#ln-92"></a><span class="w">  </span><span class="c">! --------------------------------------------------------------------------------------</span>
+<a id="ln-93" name="ln-93" href="#ln-93"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-94" name="ln-94" href="#ln-94"></a><span class="w">  </span><span class="c">!&gt; Broadband fluxes -- simply sum over the spectral dimension and report the whole profile</span>
+<a id="ln-95" name="ln-95" href="#ln-95"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-96" name="ln-96" href="#ln-96"></a><span class="w">  </span><span class="c">! --------------------------------------------------------------------------------------</span>
+<a id="ln-97" name="ln-97" href="#ln-97"></a><span class="w">  </span><span class="k">function </span><span class="n">reduce_broadband</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">gpt_flux_up</span><span class="p">,</span><span class="w"> </span><span class="n">gpt_flux_dn</span><span class="p">,</span><span class="w"> </span><span class="n">spectral_disc</span><span class="p">,</span><span class="w"> </span><span class="n">top_at_1</span><span class="p">,</span><span class="w"> </span><span class="n">gpt_flux_dn_dir</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">error_msg</span><span class="p">)</span><span class="w"></span>
+<a id="ln-98" name="ln-98" href="#ln-98"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_fluxes_broadband</span><span class="p">),</span><span class="w">        </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-99" name="ln-99" href="#ln-99"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="nb">kind</span><span class="o">=</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:),</span><span class="w">   </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">gpt_flux_up</span><span class="w"> </span><span class="c">! Fluxes by gpoint [W/m2](ncol, nlay+1, ngpt)</span>
+<a id="ln-100" name="ln-100" href="#ln-100"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="nb">kind</span><span class="o">=</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:),</span><span class="w">   </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">gpt_flux_dn</span><span class="w"> </span><span class="c">! Fluxes by gpoint [W/m2](ncol, nlay+1, ngpt)</span>
+<a id="ln-101" name="ln-101" href="#ln-101"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="p">),</span><span class="w">           </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">spectral_disc</span><span class="w">  </span><span class="c">!&lt; derived type with spectral information</span>
+<a id="ln-102" name="ln-102" href="#ln-102"></a><span class="w">    </span><span class="kt">logical</span><span class="p">,</span><span class="w">                           </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">top_at_1</span><span class="w"></span>
+<a id="ln-103" name="ln-103" href="#ln-103"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="nb">kind</span><span class="o">=</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:),</span><span class="w"> </span><span class="k">optional</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-104" name="ln-104" href="#ln-104"></a><span class="w">                                       </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">gpt_flux_dn_dir</span><span class="c">! Direct flux down</span>
+<a id="ln-105" name="ln-105" href="#ln-105"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="mi">128</span><span class="p">)</span><span class="w">                               </span><span class="kd">::</span><span class="w"> </span><span class="n">error_msg</span><span class="w"></span>
+<a id="ln-106" name="ln-106" href="#ln-106"></a><span class="w">    </span><span class="c">! ------</span>
+<a id="ln-107" name="ln-107" href="#ln-107"></a><span class="w">    </span><span class="kt">integer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlev</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="w"></span>
+<a id="ln-108" name="ln-108" href="#ln-108"></a>
+<a id="ln-109" name="ln-109" href="#ln-109"></a><span class="w">    </span><span class="c">! ------</span>
+<a id="ln-110" name="ln-110" href="#ln-110"></a><span class="w">    </span><span class="n">ncol</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">gpt_flux_up</span><span class="p">,</span><span class="w"> </span><span class="nb">DIM</span><span class="o">=</span><span class="mi">1</span><span class="p">)</span><span class="w"></span>
+<a id="ln-111" name="ln-111" href="#ln-111"></a><span class="w">    </span><span class="n">nlev</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">gpt_flux_up</span><span class="p">,</span><span class="w"> </span><span class="nb">DIM</span><span class="o">=</span><span class="mi">2</span><span class="p">)</span><span class="w"></span>
+<a id="ln-112" name="ln-112" href="#ln-112"></a><span class="w">    </span><span class="n">ngpt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">gpt_flux_up</span><span class="p">,</span><span class="w"> </span><span class="nb">DIM</span><span class="o">=</span><span class="mi">3</span><span class="p">)</span><span class="w"></span>
+<a id="ln-113" name="ln-113" href="#ln-113"></a><span class="w">    </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-114" name="ln-114" href="#ln-114"></a>
+<a id="ln-115" name="ln-115" href="#ln-115"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">check_extents</span><span class="p">)</span><span class="w"> </span><span class="k">then</span><span class="w"></span>
+<a id="ln-116" name="ln-116" href="#ln-116"></a><span class="w">      </span><span class="c">!</span>
+<a id="ln-117" name="ln-117" href="#ln-117"></a><span class="w">      </span><span class="c">! Check array sizes</span>
+<a id="ln-118" name="ln-118" href="#ln-118"></a><span class="w">      </span><span class="c">!  Input arrays</span>
+<a id="ln-119" name="ln-119" href="#ln-119"></a><span class="w">      </span><span class="c">!</span>
+<a id="ln-120" name="ln-120" href="#ln-120"></a><span class="w">      </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">extents_are</span><span class="p">(</span><span class="n">gpt_flux_dn</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlev</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-121" name="ln-121" href="#ln-121"></a><span class="w">        </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;reduce: gpt_flux_dn array incorrectly sized&quot;</span><span class="w"></span>
+<a id="ln-122" name="ln-122" href="#ln-122"></a>
+<a id="ln-123" name="ln-123" href="#ln-123"></a><span class="w">      </span><span class="k">if</span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">gpt_flux_dn_dir</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-124" name="ln-124" href="#ln-124"></a><span class="k">        if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">extents_are</span><span class="p">(</span><span class="n">gpt_flux_dn_dir</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlev</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-125" name="ln-125" href="#ln-125"></a><span class="w">          </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;reduce: gpt_flux_dn_dir array incorrectly sized&quot;</span><span class="w"></span>
+<a id="ln-126" name="ln-126" href="#ln-126"></a><span class="w">      </span><span class="k">end if</span><span class="w"></span>
+<a id="ln-127" name="ln-127" href="#ln-127"></a><span class="w">      </span><span class="c">!</span>
+<a id="ln-128" name="ln-128" href="#ln-128"></a><span class="w">      </span><span class="c">! Output arrays</span>
+<a id="ln-129" name="ln-129" href="#ln-129"></a><span class="w">      </span><span class="c">!</span>
+<a id="ln-130" name="ln-130" href="#ln-130"></a><span class="w">      </span><span class="k">if</span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">flux_up</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-131" name="ln-131" href="#ln-131"></a><span class="k">        if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">extents_are</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">flux_up</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlev</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-132" name="ln-132" href="#ln-132"></a><span class="w">          </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s1">&#39;reduce: flux_up array incorrectly sized&#39;</span><span class="w"></span>
+<a id="ln-133" name="ln-133" href="#ln-133"></a><span class="w">      </span><span class="k">end if</span>
+<a id="ln-134" name="ln-134" href="#ln-134"></a><span class="k">      if</span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">flux_dn</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-135" name="ln-135" href="#ln-135"></a><span class="k">        if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">extents_are</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">flux_dn</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlev</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-136" name="ln-136" href="#ln-136"></a><span class="w">          </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s1">&#39;reduce: flux_dn array incorrectly sized&#39;</span><span class="w"></span>
+<a id="ln-137" name="ln-137" href="#ln-137"></a><span class="w">      </span><span class="k">end if</span>
+<a id="ln-138" name="ln-138" href="#ln-138"></a><span class="k">      if</span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">flux_net</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-139" name="ln-139" href="#ln-139"></a><span class="k">        if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">extents_are</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">flux_net</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlev</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-140" name="ln-140" href="#ln-140"></a><span class="w">          </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s1">&#39;reduce: flux_net array incorrectly sized&#39;</span><span class="w"></span>
+<a id="ln-141" name="ln-141" href="#ln-141"></a><span class="w">      </span><span class="k">end if</span>
+<a id="ln-142" name="ln-142" href="#ln-142"></a><span class="k">      if</span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">flux_dn_dir</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-143" name="ln-143" href="#ln-143"></a><span class="k">        if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">extents_are</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">flux_dn_dir</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlev</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-144" name="ln-144" href="#ln-144"></a><span class="w">          </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s1">&#39;reduce: flux_dn_dir array incorrectly sized&#39;</span><span class="w"></span>
+<a id="ln-145" name="ln-145" href="#ln-145"></a><span class="w">      </span><span class="k">end if</span>
+<a id="ln-146" name="ln-146" href="#ln-146"></a>
+<a id="ln-147" name="ln-147" href="#ln-147"></a><span class="k">      if</span><span class="p">(</span><span class="n">error_msg</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-148" name="ln-148" href="#ln-148"></a><span class="k">    end if</span><span class="w"></span>
+<a id="ln-149" name="ln-149" href="#ln-149"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-150" name="ln-150" href="#ln-150"></a><span class="w">    </span><span class="c">! Self-consistency -- shouldn&#39;t be asking for direct beam flux if it isn&#39;t supplied</span>
+<a id="ln-151" name="ln-151" href="#ln-151"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-152" name="ln-152" href="#ln-152"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">flux_dn_dir</span><span class="p">)</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="p">.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="nb">present</span><span class="p">(</span><span class="n">gpt_flux_dn_dir</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-153" name="ln-153" href="#ln-153"></a><span class="k">      </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;reduce: requesting direct downward flux but this hasn&#39;t been supplied&quot;</span><span class="w"></span>
+<a id="ln-154" name="ln-154" href="#ln-154"></a><span class="w">      </span><span class="k">return</span>
+<a id="ln-155" name="ln-155" href="#ln-155"></a><span class="k">    end if</span><span class="w"></span>
+<a id="ln-156" name="ln-156" href="#ln-156"></a>
+<a id="ln-157" name="ln-157" href="#ln-157"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-158" name="ln-158" href="#ln-158"></a><span class="w">    </span><span class="c">! Broadband fluxes - call the kernels</span>
+<a id="ln-159" name="ln-159" href="#ln-159"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-160" name="ln-160" href="#ln-160"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">flux_up</span><span class="w">    </span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-161" name="ln-161" href="#ln-161"></a><span class="w">      </span><span class="k">call </span><span class="n">sum_broadband</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlev</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">gpt_flux_up</span><span class="p">,</span><span class="w">     </span><span class="n">this</span><span class="p">%</span><span class="n">flux_up</span><span class="p">)</span><span class="w"></span>
+<a id="ln-162" name="ln-162" href="#ln-162"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">flux_dn</span><span class="w">    </span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-163" name="ln-163" href="#ln-163"></a><span class="w">      </span><span class="k">call </span><span class="n">sum_broadband</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlev</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">gpt_flux_dn</span><span class="p">,</span><span class="w">     </span><span class="n">this</span><span class="p">%</span><span class="n">flux_dn</span><span class="p">)</span><span class="w"></span>
+<a id="ln-164" name="ln-164" href="#ln-164"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">flux_dn_dir</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-165" name="ln-165" href="#ln-165"></a><span class="w">      </span><span class="k">call </span><span class="n">sum_broadband</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlev</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">gpt_flux_dn_dir</span><span class="p">,</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">flux_dn_dir</span><span class="p">)</span><span class="w"></span>
+<a id="ln-166" name="ln-166" href="#ln-166"></a>
+<a id="ln-167" name="ln-167" href="#ln-167"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">flux_net</span><span class="p">))</span><span class="w"> </span><span class="k">then</span><span class="w"></span>
+<a id="ln-168" name="ln-168" href="#ln-168"></a><span class="w">      </span><span class="c">!</span>
+<a id="ln-169" name="ln-169" href="#ln-169"></a><span class="w">      </span><span class="c">!  Reuse down and up results if possible</span>
+<a id="ln-170" name="ln-170" href="#ln-170"></a><span class="w">      </span><span class="c">!</span>
+<a id="ln-171" name="ln-171" href="#ln-171"></a><span class="w">      </span><span class="k">if</span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">flux_dn</span><span class="p">)</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">flux_up</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-172" name="ln-172" href="#ln-172"></a><span class="k">        call </span><span class="n">net_broadband</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlev</span><span class="p">,</span><span class="w">      </span><span class="n">this</span><span class="p">%</span><span class="n">flux_dn</span><span class="p">,</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">flux_up</span><span class="p">,</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">flux_net</span><span class="p">)</span><span class="w"></span>
+<a id="ln-173" name="ln-173" href="#ln-173"></a><span class="w">      </span><span class="k">else</span>
+<a id="ln-174" name="ln-174" href="#ln-174"></a><span class="k">        call </span><span class="n">net_broadband</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlev</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">gpt_flux_dn</span><span class="p">,</span><span class="w">  </span><span class="n">gpt_flux_up</span><span class="p">,</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">flux_net</span><span class="p">)</span><span class="w"></span>
+<a id="ln-175" name="ln-175" href="#ln-175"></a><span class="w">      </span><span class="k">end if</span>
+<a id="ln-176" name="ln-176" href="#ln-176"></a><span class="k">    end if</span>
+<a id="ln-177" name="ln-177" href="#ln-177"></a><span class="k">  end function </span><span class="n">reduce_broadband</span><span class="w"></span>
+<a id="ln-178" name="ln-178" href="#ln-178"></a><span class="w">  </span><span class="c">! --------------------------------------------------------------------------------------</span>
+<a id="ln-179" name="ln-179" href="#ln-179"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-180" name="ln-180" href="#ln-180"></a><span class="w">  </span><span class="c">!&gt; Are any fluxes desired from this set of g-point fluxes? We can tell because memory will</span>
+<a id="ln-181" name="ln-181" href="#ln-181"></a><span class="w">  </span><span class="c">!&gt;   be allocated for output</span>
+<a id="ln-182" name="ln-182" href="#ln-182"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-183" name="ln-183" href="#ln-183"></a><span class="w">  </span><span class="c">! --------------------------------------------------------------------------------------</span>
+<a id="ln-184" name="ln-184" href="#ln-184"></a><span class="w">  </span><span class="k">function </span><span class="n">are_desired_broadband</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"></span>
+<a id="ln-185" name="ln-185" href="#ln-185"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_fluxes_broadband</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-186" name="ln-186" href="#ln-186"></a><span class="w">    </span><span class="kt">logical</span><span class="w">                                   </span><span class="kd">::</span><span class="w"> </span><span class="n">are_desired_broadband</span><span class="w"></span>
+<a id="ln-187" name="ln-187" href="#ln-187"></a>
+<a id="ln-188" name="ln-188" href="#ln-188"></a><span class="w">    </span><span class="n">are_desired_broadband</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">any</span><span class="p">(</span><span class="w"> </span><span class="p">[</span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">flux_up</span><span class="p">),</span><span class="w">     </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-189" name="ln-189" href="#ln-189"></a><span class="w">                                  </span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">flux_dn</span><span class="p">),</span><span class="w">     </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-190" name="ln-190" href="#ln-190"></a><span class="w">                                  </span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">flux_dn_dir</span><span class="p">),</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-191" name="ln-191" href="#ln-191"></a><span class="w">                                  </span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">flux_net</span><span class="p">)]</span><span class="w"> </span><span class="p">)</span><span class="w"></span>
+<a id="ln-192" name="ln-192" href="#ln-192"></a><span class="w">  </span><span class="k">end function </span><span class="n">are_desired_broadband</span><span class="w"></span>
+<a id="ln-193" name="ln-193" href="#ln-193"></a><span class="w">  </span><span class="c">! --------------------------------------------------------------------------------------</span>
+<a id="ln-194" name="ln-194" href="#ln-194"></a><span class="k">end module </span><span class="n">mo_fluxes</span><span class="w"></span>
+</pre></div>
+
+    </section>
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/sourcefile/mo_optical_props.f90.html b/reference/rte-fortran-interface/sourcefile/mo_optical_props.f90.html
new file mode 100644
index 000000000..582ed3528
--- /dev/null
+++ b/reference/rte-fortran-interface/sourcefile/mo_optical_props.f90.html
@@ -0,0 +1,1709 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>mo_optical_props.F90 &ndash; RTE-Fortran</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>mo_optical_props.F90
+    <small>Source File</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title="47.0% of total for source files.">749 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_optical_props.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li class="active">mo_optical_props.F90</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#mods-0">Modules</a></h3></div>
+  <div id="mods-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_optical_props.html">mo_optical_props</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title">Source Code</h3></div>
+  <div class="list-group">
+    <a class="list-group-item" href="../sourcefile/mo_optical_props.f90.html#src">mo_optical_props.F90</a>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    <div class="col-md-9" id='text'>
+      
+      <br>
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">This file depends on</h3>
+      </div>
+      <div class="panel-body">
+  <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: sourcefile~~mo_optical_props.f90~~EfferentGraph Pages: 1 -->
+<svg id="sourcefilemo_optical_propsf90EfferentGraph" width="494pt" height="90pt"
+ viewBox="0.00 0.00 494.00 90.06" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~mo_optical_props.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 86.06)">
+<title>sourcefile~~mo_optical_props.f90~~EfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-86.06 490,-86.06 490,4 -4,4"/>
+<!-- sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_optical_props.f90~~EfferentGraph_node1" class="node">
+<title>sourcefile~mo_optical_props.f90</title>
+<polygon fill="none" stroke="black" points="486,-66 358,-66 358,-42 486,-42 486,-66"/>
+<text text-anchor="middle" x="422" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_optical_props.F90</text>
+</g>
+<!-- sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_optical_props.f90~~EfferentGraph_node2" class="node">
+<title>sourcefile~mo_rte_kind.f90</title>
+<g id="a_sourcefile~~mo_optical_props.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/mo_rte_kind.f90.html" xlink:title="mo_rte_kind.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="100,-66 0,-66 0,-42 100,-42 100,-66"/>
+<text text-anchor="middle" x="50" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_optical_props.f90~~EfferentGraph_edge1" class="edge">
+<title>sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.99,-66.07C357.65,-69.71 339.12,-73.2 322,-75 239.78,-83.62 218.06,-84.99 136,-75 124.56,-73.61 112.45,-71.2 101.06,-68.5"/>
+<polygon fill="#000000" stroke="#000000" points="101.82,-65.08 91.27,-66.07 100.13,-71.87 101.82,-65.08"/>
+</g>
+<!-- sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_optical_props.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~mo_rte_config.f90</title>
+<g id="a_sourcefile~~mo_optical_props.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/mo_rte_config.f90.html" xlink:title="mo_rte_config.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="284.5,-66 173.5,-66 173.5,-42 284.5,-42 284.5,-66"/>
+<text text-anchor="middle" x="229" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_config.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_optical_props.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_config.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M357.93,-54C337.67,-54 315.19,-54 294.8,-54"/>
+<polygon fill="#000000" stroke="#000000" points="294.67,-50.5 284.67,-54 294.67,-57.5 294.67,-50.5"/>
+</g>
+<!-- sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_optical_props.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~mo_rte_util_array_validation.f90</title>
+<g id="a_sourcefile~~mo_optical_props.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/mo_rte_util_array_validation.f90.html" xlink:title="mo_rte_util_array_validation.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="322,-24 136,-24 136,0 322,0 322,-24"/>
+<text text-anchor="middle" x="229" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array_validation.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_optical_props.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.27,-41.96C343.89,-37.04 317.84,-31.31 294.54,-26.19"/>
+<polygon fill="#000000" stroke="#000000" points="295.26,-22.77 284.74,-24.04 293.76,-29.6 295.26,-22.77"/>
+</g>
+<!-- sourcefile~mo_rte_config.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_optical_props.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~mo_rte_config.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M173.45,-54C153.46,-54 130.76,-54 110.37,-54"/>
+<polygon fill="#000000" stroke="#000000" points="110.26,-50.5 100.26,-54 110.26,-57.5 110.26,-50.5"/>
+</g>
+<!-- sourcefile~mo_rte_util_array_validation.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_optical_props.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~mo_rte_util_array_validation.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.45,-24.05C161.83,-26.94 148.43,-30.05 136,-33 127.2,-35.09 117.9,-37.34 108.81,-39.57"/>
+<polygon fill="#000000" stroke="#000000" points="107.94,-36.18 99.06,-41.97 109.61,-42.98 107.94,-36.18"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="202pt" height="32pt"
+ viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<!-- Source File -->
+<g id="node1" class="node">
+<title>Source File</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
+<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node2" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
+<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a file to a file which it depends on. A file
+    is dependent upon another if the latter must be compiled before the former
+    can be.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Files dependent on this one</h3>
+      </div>
+      <div class="panel-body">
+  <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: sourcefile~~mo_optical_props.f90~~AfferentGraph Pages: 1 -->
+<svg id="sourcefilemo_optical_propsf90AfferentGraph" width="446pt" height="133pt"
+ viewBox="0.00 0.00 446.00 133.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~mo_optical_props.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 129)">
+<title>sourcefile~~mo_optical_props.f90~~AfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-129 442,-129 442,4 -4,4"/>
+<!-- sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_optical_props.f90~~AfferentGraph_node1" class="node">
+<title>sourcefile~mo_optical_props.f90</title>
+<polygon fill="none" stroke="black" points="128,-84 0,-84 0,-60 128,-60 128,-84"/>
+<text text-anchor="middle" x="64" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_optical_props.F90</text>
+</g>
+<!-- sourcefile~mo_rte_sw.f90 -->
+<g id="sourcefile~~mo_optical_props.f90~~AfferentGraph_node2" class="node">
+<title>sourcefile~mo_rte_sw.f90</title>
+<g id="a_sourcefile~~mo_optical_props.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/mo_rte_sw.f90.html" xlink:title="mo_rte_sw.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="438,-125 347,-125 347,-101 438,-101 438,-125"/>
+<text text-anchor="middle" x="392.5" y="-110.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_sw.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_optical_props.f90~~AfferentGraph_edge1" class="edge">
+<title>sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346.96,-118.09C300.73,-122.19 226.56,-125.44 164,-113 140.27,-108.28 115.11,-97.78 96.09,-88.58"/>
+<polygon fill="#000000" stroke="#000000" points="97.52,-85.39 87.01,-84.07 94.41,-91.66 97.52,-85.39"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90 -->
+<g id="sourcefile~~mo_optical_props.f90~~AfferentGraph_node3" class="node">
+<title>sourcefile~mo_fluxes.f90</title>
+<g id="a_sourcefile~~mo_optical_props.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/mo_fluxes.f90.html" xlink:title="mo_fluxes.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="282,-104 193,-104 193,-80 282,-80 282,-104"/>
+<text text-anchor="middle" x="237.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_fluxes.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_fluxes.f90 -->
+<g id="sourcefile~~mo_optical_props.f90~~AfferentGraph_edge5" class="edge">
+<title>sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_fluxes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346.83,-106.87C329.8,-104.53 310.21,-101.84 292.41,-99.4"/>
+<polygon fill="#000000" stroke="#000000" points="292.55,-95.89 282.17,-97.99 291.6,-102.82 292.55,-95.89"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_optical_props.f90~~AfferentGraph_edge2" class="edge">
+<title>sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M192.78,-86.9C176.12,-84.96 156.66,-82.69 138.01,-80.51"/>
+<polygon fill="#000000" stroke="#000000" points="138.4,-77.04 128.06,-79.35 137.59,-83.99 138.4,-77.04"/>
+</g>
+<!-- sourcefile~mo_source_functions.f90 -->
+<g id="sourcefile~~mo_optical_props.f90~~AfferentGraph_node4" class="node">
+<title>sourcefile~mo_source_functions.f90</title>
+<g id="a_sourcefile~~mo_optical_props.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/mo_source_functions.f90.html" xlink:title="mo_source_functions.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="311,-24 164,-24 164,0 311,0 311,-24"/>
+<text text-anchor="middle" x="237.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_source_functions.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_source_functions.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_optical_props.f90~~AfferentGraph_edge3" class="edge">
+<title>sourcefile~mo_source_functions.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M201.79,-24.14C174.97,-33.53 137.68,-46.57 108.8,-56.68"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-53.37 99.36,-59.98 109.96,-59.98 107.64,-53.37"/>
+</g>
+<!-- sourcefile~mo_rte_lw.f90 -->
+<g id="sourcefile~~mo_optical_props.f90~~AfferentGraph_node5" class="node">
+<title>sourcefile~mo_rte_lw.f90</title>
+<g id="a_sourcefile~~mo_optical_props.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/mo_rte_lw.f90.html" xlink:title="mo_rte_lw.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="436.5,-64 348.5,-64 348.5,-40 436.5,-40 436.5,-64"/>
+<text text-anchor="middle" x="392.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_lw.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_optical_props.f90~~AfferentGraph_edge4" class="edge">
+<title>sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M348.48,-54.64C294.98,-57.91 202.82,-63.56 138.14,-67.52"/>
+<polygon fill="#000000" stroke="#000000" points="137.77,-64.04 128,-68.14 138.2,-71.02 137.77,-64.04"/>
+</g>
+<!-- sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_fluxes.f90 -->
+<g id="sourcefile~~mo_optical_props.f90~~AfferentGraph_edge6" class="edge">
+<title>sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_fluxes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M348.47,-63.25C330.94,-67.83 310.49,-73.18 292.01,-78.01"/>
+<polygon fill="#000000" stroke="#000000" points="291.05,-74.64 282.27,-80.56 292.83,-81.41 291.05,-74.64"/>
+</g>
+<!-- sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_source_functions.f90 -->
+<g id="sourcefile~~mo_optical_props.f90~~AfferentGraph_edge7" class="edge">
+<title>sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_source_functions.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M348.47,-40.75C331.62,-36.35 312.07,-31.23 294.16,-26.55"/>
+<polygon fill="#000000" stroke="#000000" points="294.97,-23.15 284.41,-24 293.2,-29.92 294.97,-23.15"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="202pt" height="32pt"
+ viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<!-- Source File -->
+<g id="node1" class="node">
+<title>Source File</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
+<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node2" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
+<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a file to a file which it depends on. A file
+    is dependent upon another if the latter must be compiled before the former
+    can be.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+<br>
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#mods-1">Modules</a></h3></div>
+  <div id="mods-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_optical_props.html">mo_optical_props</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title">Source Code</h3></div>
+  <div class="list-group">
+    <a class="list-group-item" href="../sourcefile/mo_optical_props.f90.html#src">mo_optical_props.F90</a>
+  </div>
+</div>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    <section>
+      <h2><span class="anchor" id="src"></span>Source Code</h2>
+    <div class="hl"><pre><span></span><a id="ln-1" name="ln-1" href="#ln-1"></a><span class="c">! This code is part of Radiative Transfer for Energetics (RTE)</span>
+<a id="ln-2" name="ln-2" href="#ln-2"></a><span class="c">!</span>
+<a id="ln-3" name="ln-3" href="#ln-3"></a><span class="c">! Contacts: Robert Pincus and Eli Mlawer</span>
+<a id="ln-4" name="ln-4" href="#ln-4"></a><span class="c">! email:  rrtmgp@aer.com</span>
+<a id="ln-5" name="ln-5" href="#ln-5"></a><span class="c">!</span>
+<a id="ln-6" name="ln-6" href="#ln-6"></a><span class="c">! Copyright 2015-  Atmospheric and Environmental Research,</span>
+<a id="ln-7" name="ln-7" href="#ln-7"></a><span class="c">!    Regents of the University of Colorado,</span>
+<a id="ln-8" name="ln-8" href="#ln-8"></a><span class="c">!    Trustees of Columbia University in the City of New York</span>
+<a id="ln-9" name="ln-9" href="#ln-9"></a><span class="c">! All right reserved.</span>
+<a id="ln-10" name="ln-10" href="#ln-10"></a><span class="c">!</span>
+<a id="ln-11" name="ln-11" href="#ln-11"></a><span class="c">! Use and duplication is permitted under the terms of the</span>
+<a id="ln-12" name="ln-12" href="#ln-12"></a><span class="c">!    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause</span>
+<a id="ln-13" name="ln-13" href="#ln-13"></a><span class="c">! -------------------------------------------------------------------------------------------------</span>
+<a id="ln-14" name="ln-14" href="#ln-14"></a><span class="c">!&gt;</span>
+<a id="ln-15" name="ln-15" href="#ln-15"></a><span class="c">!&gt; ## Encapsulate optical properties defined on a spectral grid of N bands.</span>
+<a id="ln-16" name="ln-16" href="#ln-16"></a><span class="c">!&gt;</span>
+<a id="ln-17" name="ln-17" href="#ln-17"></a><span class="c">!&gt;   The bands are described by their limiting wavenumbers. They need not be contiguous or complete.</span>
+<a id="ln-18" name="ln-18" href="#ln-18"></a><span class="c">!&gt;   A band may contain more than one spectral sub-point (g-point) in which case a mapping must be supplied.</span>
+<a id="ln-19" name="ln-19" href="#ln-19"></a><span class="c">!&gt;   A name may be provided and will be prepended to error messages.</span>
+<a id="ln-20" name="ln-20" href="#ln-20"></a><span class="c">!&gt;   The base class (ty_optical_props) encapsulates only this spectral discretization and must be initialized</span>
+<a id="ln-21" name="ln-21" href="#ln-21"></a><span class="c">!&gt;      with the spectral information before use.</span>
+<a id="ln-22" name="ln-22" href="#ln-22"></a><span class="c">!&gt;</span>
+<a id="ln-23" name="ln-23" href="#ln-23"></a><span class="c">!&gt;   Optical properties may be represented as arrays with dimensions ncol, nlay, ngpt</span>
+<a id="ln-24" name="ln-24" href="#ln-24"></a><span class="c">!&gt;   (abstract class ty_optical_props_arry).</span>
+<a id="ln-25" name="ln-25" href="#ln-25"></a><span class="c">!&gt;   The type holds arrays depending on how much information is needed</span>
+<a id="ln-26" name="ln-26" href="#ln-26"></a><span class="c">!&gt;   There are three possibilites</span>
+<a id="ln-27" name="ln-27" href="#ln-27"></a><span class="c">!&gt;</span>
+<a id="ln-28" name="ln-28" href="#ln-28"></a><span class="c">!&gt; - ty_optical_props_1scl holds absorption optical depth tau, used in calculations accounting for extinction and emission</span>
+<a id="ln-29" name="ln-29" href="#ln-29"></a><span class="c">!&gt; - ty_optical_props_2str holds extincion optical depth tau, single-scattering albedo ssa, and</span>
+<a id="ln-30" name="ln-30" href="#ln-30"></a><span class="c">!&gt;        asymmetry parameter g. These fields are what&#39;s needed for two-stream calculations.</span>
+<a id="ln-31" name="ln-31" href="#ln-31"></a><span class="c">!&gt; - ty_optical_props_nstr holds extincion optical depth tau, single-scattering albedo ssa, and</span>
+<a id="ln-32" name="ln-32" href="#ln-32"></a><span class="c">!&gt;        phase function moments p with leading dimension nmom. These fields are what&#39;s needed for multi-stream calculations.</span>
+<a id="ln-33" name="ln-33" href="#ln-33"></a><span class="c">!&gt;</span>
+<a id="ln-34" name="ln-34" href="#ln-34"></a><span class="c">!&gt;   These classes must be allocated before use. Initialization and allocation can be combined.</span>
+<a id="ln-35" name="ln-35" href="#ln-35"></a><span class="c">!&gt;   The classes have a validate() function that checks all arrays for valid values (e.g. tau &gt; 0.)</span>
+<a id="ln-36" name="ln-36" href="#ln-36"></a><span class="c">!&gt;</span>
+<a id="ln-37" name="ln-37" href="#ln-37"></a><span class="c">!&gt; Optical properties can be delta-scaled (though this is currently implemented only for two-stream arrays)</span>
+<a id="ln-38" name="ln-38" href="#ln-38"></a><span class="c">!&gt;</span>
+<a id="ln-39" name="ln-39" href="#ln-39"></a><span class="c">!&gt; Optical properties can increment or &quot;add themselves to&quot; a set of properties represented with arrays</span>
+<a id="ln-40" name="ln-40" href="#ln-40"></a><span class="c">!&gt;   as long as both sets have the same underlying band structure. Properties defined by band</span>
+<a id="ln-41" name="ln-41" href="#ln-41"></a><span class="c">!&gt;   may be added to properties defined by g-point; the same value is assumed for all g-points with each band.</span>
+<a id="ln-42" name="ln-42" href="#ln-42"></a><span class="c">!&gt;</span>
+<a id="ln-43" name="ln-43" href="#ln-43"></a><span class="c">!&gt; Subsets of optical properties held as arrays may be extracted along the column dimension.</span>
+<a id="ln-44" name="ln-44" href="#ln-44"></a><span class="c">!&gt;</span>
+<a id="ln-45" name="ln-45" href="#ln-45"></a><span class="c">! Making the documentation below visible in ford, by replace ! with !&gt;, messes up Markdown parsing above</span>
+<a id="ln-46" name="ln-46" href="#ln-46"></a><span class="c">!@note</span>
+<a id="ln-47" name="ln-47" href="#ln-47"></a><span class="c">!example of a note with links to other modules and variables</span>
+<a id="ln-48" name="ln-48" href="#ln-48"></a><span class="c">!</span>
+<a id="ln-49" name="ln-49" href="#ln-49"></a><span class="c">! 1. [[mo_rte_config(module):check_extents(variable)]] in module [[mo_rte_config]]</span>
+<a id="ln-50" name="ln-50" href="#ln-50"></a><span class="c">!&gt;</span>
+<a id="ln-51" name="ln-51" href="#ln-51"></a><span class="c">!@endnote</span>
+<a id="ln-52" name="ln-52" href="#ln-52"></a><span class="c">!&gt; -------------------------------------------------------------------------------------------------</span>
+<a id="ln-53" name="ln-53" href="#ln-53"></a><span class="k">module </span><span class="n">mo_optical_props</span><span class="w"></span>
+<a id="ln-54" name="ln-54" href="#ln-54"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_rte_kind</span><span class="p">,</span><span class="w">              </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">wp</span><span class="w"></span>
+<a id="ln-55" name="ln-55" href="#ln-55"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_rte_config</span><span class="p">,</span><span class="w">            </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">check_extents</span><span class="p">,</span><span class="w"> </span><span class="n">check_values</span><span class="w"></span>
+<a id="ln-56" name="ln-56" href="#ln-56"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_rte_util_array_validation</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"> </span>
+<a id="ln-57" name="ln-57" href="#ln-57"></a><span class="w">                                </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">any_vals_less_than</span><span class="p">,</span><span class="w"> </span><span class="n">any_vals_outside</span><span class="p">,</span><span class="w"> </span><span class="n">extents_are</span><span class="w"></span>
+<a id="ln-58" name="ln-58" href="#ln-58"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_optical_props_kernels</span><span class="p">,</span><span class="w"> </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-59" name="ln-59" href="#ln-59"></a><span class="w">        </span><span class="n">increment_1scalar_by_1scalar</span><span class="p">,</span><span class="w"> </span><span class="n">increment_1scalar_by_2stream</span><span class="p">,</span><span class="w"> </span><span class="n">increment_1scalar_by_nstream</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-60" name="ln-60" href="#ln-60"></a><span class="w">        </span><span class="n">increment_2stream_by_1scalar</span><span class="p">,</span><span class="w"> </span><span class="n">increment_2stream_by_2stream</span><span class="p">,</span><span class="w"> </span><span class="n">increment_2stream_by_nstream</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-61" name="ln-61" href="#ln-61"></a><span class="w">        </span><span class="n">increment_nstream_by_1scalar</span><span class="p">,</span><span class="w"> </span><span class="n">increment_nstream_by_2stream</span><span class="p">,</span><span class="w"> </span><span class="n">increment_nstream_by_nstream</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-62" name="ln-62" href="#ln-62"></a><span class="w">        </span><span class="n">inc_1scalar_by_1scalar_bybnd</span><span class="p">,</span><span class="w"> </span><span class="n">inc_1scalar_by_2stream_bybnd</span><span class="p">,</span><span class="w"> </span><span class="n">inc_1scalar_by_nstream_bybnd</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-63" name="ln-63" href="#ln-63"></a><span class="w">        </span><span class="n">inc_2stream_by_1scalar_bybnd</span><span class="p">,</span><span class="w"> </span><span class="n">inc_2stream_by_2stream_bybnd</span><span class="p">,</span><span class="w"> </span><span class="n">inc_2stream_by_nstream_bybnd</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-64" name="ln-64" href="#ln-64"></a><span class="w">        </span><span class="n">inc_nstream_by_1scalar_bybnd</span><span class="p">,</span><span class="w"> </span><span class="n">inc_nstream_by_2stream_bybnd</span><span class="p">,</span><span class="w"> </span><span class="n">inc_nstream_by_nstream_bybnd</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-65" name="ln-65" href="#ln-65"></a><span class="w">        </span><span class="n">delta_scale_2str_kernel</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-66" name="ln-66" href="#ln-66"></a><span class="w">        </span><span class="n">extract_subset</span><span class="w"></span>
+<a id="ln-67" name="ln-67" href="#ln-67"></a><span class="w">  </span><span class="k">implicit none</span>
+<a id="ln-68" name="ln-68" href="#ln-68"></a><span class="k">  private</span>
+<a id="ln-69" name="ln-69" href="#ln-69"></a><span class="k">  </span><span class="kt">integer</span><span class="p">,</span><span class="w"> </span><span class="k">parameter</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">name_len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">32</span><span class="w"></span>
+<a id="ln-70" name="ln-70" href="#ln-70"></a><span class="w">  </span><span class="c">! -------------------------------------------------------------------------------------------------</span>
+<a id="ln-71" name="ln-71" href="#ln-71"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-72" name="ln-72" href="#ln-72"></a><span class="w">  </span><span class="c">!&gt; ### Base class for optical properties</span>
+<a id="ln-73" name="ln-73" href="#ln-73"></a><span class="w">  </span><span class="c">!&gt;   Describes the spectral discretization including the wavenumber limits</span>
+<a id="ln-74" name="ln-74" href="#ln-74"></a><span class="w">  </span><span class="c">!&gt;   of each band (spectral region) and the mapping between g-points and bands</span>
+<a id="ln-75" name="ln-75" href="#ln-75"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-76" name="ln-76" href="#ln-76"></a><span class="w">  </span><span class="c">! -------------------------------------------------------------------------------------------------</span>
+<a id="ln-77" name="ln-77" href="#ln-77"></a><span class="w">  </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ty_optical_props</span><span class="w"></span>
+<a id="ln-78" name="ln-78" href="#ln-78"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">  </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w"> </span><span class="k">allocatable</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">band2gpt</span><span class="w">      </span><span class="c">! (begin g-point, end g-point) = band2gpt(2,band)</span>
+<a id="ln-79" name="ln-79" href="#ln-79"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">  </span><span class="k">dimension</span><span class="p">(:),</span><span class="w">   </span><span class="k">allocatable</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">gpt2band</span><span class="w">      </span><span class="c">! band = gpt2band(g-point)</span>
+<a id="ln-80" name="ln-80" href="#ln-80"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w"> </span><span class="k">allocatable</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">band_lims_wvn</span><span class="w"> </span><span class="c">! (upper and lower wavenumber by band) = band_lims_wvn(2,band)</span>
+<a id="ln-81" name="ln-81" href="#ln-81"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">name_len</span><span class="p">),</span><span class="w">               </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">name</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-82" name="ln-82" href="#ln-82"></a><span class="w">  </span><span class="k">contains</span>
+<a id="ln-83" name="ln-83" href="#ln-83"></a><span class="k">    generic</span><span class="p">,</span><span class="w">   </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">init</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">init_base</span><span class="p">,</span><span class="w"> </span><span class="n">init_base_from_copy</span><span class="w"></span>
+<a id="ln-84" name="ln-84" href="#ln-84"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">init_base</span><span class="w"></span>
+<a id="ln-85" name="ln-85" href="#ln-85"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">init_base_from_copy</span><span class="w"></span>
+<a id="ln-86" name="ln-86" href="#ln-86"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">is_initialized</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">is_initialized_base</span><span class="w"></span>
+<a id="ln-87" name="ln-87" href="#ln-87"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">is_initialized_base</span><span class="w"></span>
+<a id="ln-88" name="ln-88" href="#ln-88"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">finalize</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">finalize_base</span><span class="w"></span>
+<a id="ln-89" name="ln-89" href="#ln-89"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">finalize_base</span><span class="w"></span>
+<a id="ln-90" name="ln-90" href="#ln-90"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">get_nband</span><span class="w"></span>
+<a id="ln-91" name="ln-91" href="#ln-91"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">get_ngpt</span><span class="w"></span>
+<a id="ln-92" name="ln-92" href="#ln-92"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">get_gpoint_bands</span><span class="w"></span>
+<a id="ln-93" name="ln-93" href="#ln-93"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">convert_band2gpt</span><span class="w"></span>
+<a id="ln-94" name="ln-94" href="#ln-94"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">convert_gpt2band</span><span class="w"></span>
+<a id="ln-95" name="ln-95" href="#ln-95"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">get_band_lims_gpoint</span><span class="w"></span>
+<a id="ln-96" name="ln-96" href="#ln-96"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">get_band_lims_wavenumber</span><span class="w"></span>
+<a id="ln-97" name="ln-97" href="#ln-97"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">get_band_lims_wavelength</span><span class="w"></span>
+<a id="ln-98" name="ln-98" href="#ln-98"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">bands_are_equal</span><span class="w"></span>
+<a id="ln-99" name="ln-99" href="#ln-99"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">gpoints_are_equal</span><span class="w"></span>
+<a id="ln-100" name="ln-100" href="#ln-100"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">expand</span><span class="w"></span>
+<a id="ln-101" name="ln-101" href="#ln-101"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">set_name</span><span class="w"></span>
+<a id="ln-102" name="ln-102" href="#ln-102"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">get_name</span><span class="w"></span>
+<a id="ln-103" name="ln-103" href="#ln-103"></a><span class="w">  </span><span class="k">end type </span><span class="n">ty_optical_props</span><span class="w"></span>
+<a id="ln-104" name="ln-104" href="#ln-104"></a><span class="w">  </span><span class="c">!----------------------------------------------------------------------------------------</span>
+<a id="ln-105" name="ln-105" href="#ln-105"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-106" name="ln-106" href="#ln-106"></a><span class="w">  </span><span class="c">!&gt;### Optical properties as arrays, normally dimensioned ncol, nlay, ngpt/nbnd</span>
+<a id="ln-107" name="ln-107" href="#ln-107"></a><span class="w">  </span><span class="c">!&gt;   The abstract base class for arrays defines what procedures will be available</span>
+<a id="ln-108" name="ln-108" href="#ln-108"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-109" name="ln-109" href="#ln-109"></a><span class="w">  </span><span class="c">! -------------------------------------------------------------------------------------------------</span>
+<a id="ln-110" name="ln-110" href="#ln-110"></a><span class="w">  </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="p">),</span><span class="w"> </span><span class="k">abstract</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ty_optical_props_arry</span><span class="w"></span>
+<a id="ln-111" name="ln-111" href="#ln-111"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">tau</span><span class="w"> </span><span class="c">!! optical depth (ncol, nlay, ngpt)</span>
+<a id="ln-112" name="ln-112" href="#ln-112"></a><span class="w">  </span><span class="k">contains</span>
+<a id="ln-113" name="ln-113" href="#ln-113"></a><span class="k">    procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">get_ncol</span><span class="w"></span>
+<a id="ln-114" name="ln-114" href="#ln-114"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">get_nlay</span><span class="w"></span>
+<a id="ln-115" name="ln-115" href="#ln-115"></a><span class="w">    </span><span class="c">!&gt;</span>
+<a id="ln-116" name="ln-116" href="#ln-116"></a><span class="w">    </span><span class="c">!&gt; Increment another set of values</span>
+<a id="ln-117" name="ln-117" href="#ln-117"></a><span class="w">    </span><span class="c">!&gt;</span>
+<a id="ln-118" name="ln-118" href="#ln-118"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">increment</span><span class="w"></span>
+<a id="ln-119" name="ln-119" href="#ln-119"></a>
+<a id="ln-120" name="ln-120" href="#ln-120"></a><span class="w">    </span><span class="c">!&gt;</span>
+<a id="ln-121" name="ln-121" href="#ln-121"></a><span class="w">    </span><span class="c">!&gt; Deferred procedures -- each must be implemented in each child class with</span>
+<a id="ln-122" name="ln-122" href="#ln-122"></a><span class="w">    </span><span class="c">!&gt;   arguments following the abstract interface (defined below)</span>
+<a id="ln-123" name="ln-123" href="#ln-123"></a><span class="w">    </span><span class="c">!&gt;</span>
+<a id="ln-124" name="ln-124" href="#ln-124"></a><span class="w">    </span><span class="k">procedure</span><span class="p">(</span><span class="n">validate_abstract</span><span class="p">),</span><span class="w">     </span><span class="k">deferred</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">validate</span><span class="w"></span>
+<a id="ln-125" name="ln-125" href="#ln-125"></a><span class="w">    </span><span class="k">procedure</span><span class="p">(</span><span class="n">delta_scale_abstract</span><span class="p">),</span><span class="w">  </span><span class="k">deferred</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">delta_scale</span><span class="w"></span>
+<a id="ln-126" name="ln-126" href="#ln-126"></a><span class="w">    </span><span class="k">procedure</span><span class="p">(</span><span class="n">subset_range_abstract</span><span class="p">),</span><span class="w"> </span><span class="k">deferred</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">get_subset</span><span class="w"></span>
+<a id="ln-127" name="ln-127" href="#ln-127"></a><span class="w">  </span><span class="k">end type </span><span class="n">ty_optical_props_arry</span><span class="w"></span>
+<a id="ln-128" name="ln-128" href="#ln-128"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-129" name="ln-129" href="#ln-129"></a><span class="w">  </span><span class="c">! Interfaces for the methods to be implemented</span>
+<a id="ln-130" name="ln-130" href="#ln-130"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-131" name="ln-131" href="#ln-131"></a><span class="w">  </span><span class="k">abstract interface</span><span class="w"></span>
+<a id="ln-132" name="ln-132" href="#ln-132"></a><span class="w">    </span><span class="c">!&gt;</span>
+<a id="ln-133" name="ln-133" href="#ln-133"></a><span class="w">    </span><span class="c">!&gt; Validation function looks only at internal data</span>
+<a id="ln-134" name="ln-134" href="#ln-134"></a><span class="w">    </span><span class="c">!&gt;</span>
+<a id="ln-135" name="ln-135" href="#ln-135"></a><span class="w">    </span><span class="k">function </span><span class="n">validate_abstract</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-136" name="ln-136" href="#ln-136"></a><span class="w">      </span><span class="k">import </span><span class="n">ty_optical_props_arry</span><span class="w"></span>
+<a id="ln-137" name="ln-137" href="#ln-137"></a><span class="w">      </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_arry</span><span class="p">),</span><span class="w">  </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-138" name="ln-138" href="#ln-138"></a><span class="w">      </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="mi">128</span><span class="p">)</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-139" name="ln-139" href="#ln-139"></a><span class="w">    </span><span class="k">end function </span><span class="n">validate_abstract</span><span class="w"></span>
+<a id="ln-140" name="ln-140" href="#ln-140"></a>
+<a id="ln-141" name="ln-141" href="#ln-141"></a><span class="w">    </span><span class="c">!&gt;</span>
+<a id="ln-142" name="ln-142" href="#ln-142"></a><span class="w">    </span><span class="c">!&gt; Delta-scaling</span>
+<a id="ln-143" name="ln-143" href="#ln-143"></a><span class="w">    </span><span class="c">!&gt;</span>
+<a id="ln-144" name="ln-144" href="#ln-144"></a><span class="w">    </span><span class="k">function </span><span class="n">delta_scale_abstract</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">for</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-145" name="ln-145" href="#ln-145"></a><span class="w">      </span><span class="k">import </span><span class="n">ty_optical_props_arry</span><span class="w"></span>
+<a id="ln-146" name="ln-146" href="#ln-146"></a><span class="w">      </span><span class="k">import </span><span class="n">wp</span><span class="w"></span>
+<a id="ln-147" name="ln-147" href="#ln-147"></a><span class="w">      </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_arry</span><span class="p">),</span><span class="w">  </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-148" name="ln-148" href="#ln-148"></a><span class="w">      </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:),</span><span class="w"> </span><span class="k">optional</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-149" name="ln-149" href="#ln-149"></a><span class="w">                                     </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">for</span><span class="w"></span>
+<a id="ln-150" name="ln-150" href="#ln-150"></a><span class="w">      </span><span class="c">!&gt; Forward scattering fraction; g**2 if not provided</span>
+<a id="ln-151" name="ln-151" href="#ln-151"></a><span class="w">      </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="mi">128</span><span class="p">)</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-152" name="ln-152" href="#ln-152"></a><span class="w">    </span><span class="k">end function </span><span class="n">delta_scale_abstract</span><span class="w"></span>
+<a id="ln-153" name="ln-153" href="#ln-153"></a>
+<a id="ln-154" name="ln-154" href="#ln-154"></a><span class="w">    </span><span class="c">!&gt;</span>
+<a id="ln-155" name="ln-155" href="#ln-155"></a><span class="w">    </span><span class="c">!&gt; Subsetting -- currently there are only routines with start col and count</span>
+<a id="ln-156" name="ln-156" href="#ln-156"></a><span class="w">    </span><span class="c">!&gt;</span>
+<a id="ln-157" name="ln-157" href="#ln-157"></a><span class="w">    </span><span class="k">function </span><span class="n">subset_range_abstract</span><span class="p">(</span><span class="n">full</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">subset</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-158" name="ln-158" href="#ln-158"></a><span class="w">      </span><span class="k">import </span><span class="n">ty_optical_props_arry</span><span class="w"></span>
+<a id="ln-159" name="ln-159" href="#ln-159"></a><span class="w">      </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_arry</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">full</span><span class="w"></span>
+<a id="ln-160" name="ln-160" href="#ln-160"></a><span class="w">      </span><span class="kt">integer</span><span class="p">,</span><span class="w">                      </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">start</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="w"></span>
+<a id="ln-161" name="ln-161" href="#ln-161"></a><span class="w">      </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_arry</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">subset</span><span class="w"></span>
+<a id="ln-162" name="ln-162" href="#ln-162"></a><span class="w">      </span><span class="kt">character</span><span class="p">(</span><span class="mi">128</span><span class="p">)</span><span class="w">                              </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-163" name="ln-163" href="#ln-163"></a><span class="w">    </span><span class="k">end function </span><span class="n">subset_range_abstract</span><span class="w"></span>
+<a id="ln-164" name="ln-164" href="#ln-164"></a><span class="w">  </span><span class="k">end interface</span><span class="w"></span>
+<a id="ln-165" name="ln-165" href="#ln-165"></a><span class="w">  </span><span class="c">!&gt;----------------------------------------------------------------------------------------</span>
+<a id="ln-166" name="ln-166" href="#ln-166"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-167" name="ln-167" href="#ln-167"></a><span class="w">  </span><span class="c">!&gt;   ty_optical_props_arry represents optical properties as arrays with dimensions</span>
+<a id="ln-168" name="ln-168" href="#ln-168"></a><span class="w">  </span><span class="c">!&gt;      column, height, spectral point</span>
+<a id="ln-169" name="ln-169" href="#ln-169"></a><span class="w">  </span><span class="c">!&gt;  - Class 1-scalar only (extinction) optical depth</span>
+<a id="ln-170" name="ln-170" href="#ln-170"></a><span class="w">  </span><span class="c">!&gt;  -  Class two-stream adds arrays for single scattering albedo ssa and</span>
+<a id="ln-171" name="ln-171" href="#ln-171"></a><span class="w">  </span><span class="c">!&gt;     asymmetry parameter needed in two-stream methods</span>
+<a id="ln-172" name="ln-172" href="#ln-172"></a><span class="w">  </span><span class="c">!&gt;  - Class n-stream adds arrays for single scattering albedo ssa and</span>
+<a id="ln-173" name="ln-173" href="#ln-173"></a><span class="w">  </span><span class="c">!&gt;     phase function moments (index 1 = g) for use with discrete ordinate methods</span>
+<a id="ln-174" name="ln-174" href="#ln-174"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-175" name="ln-175" href="#ln-175"></a><span class="w">  </span><span class="c">!&gt; -------------------------------------------------------------------------------------------------</span>
+<a id="ln-176" name="ln-176" href="#ln-176"></a><span class="w">  </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">ty_optical_props_arry</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ty_optical_props_1scl</span><span class="w"></span>
+<a id="ln-177" name="ln-177" href="#ln-177"></a><span class="w">  </span><span class="k">contains</span>
+<a id="ln-178" name="ln-178" href="#ln-178"></a><span class="k">    procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">validate</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">validate_1scalar</span><span class="w"></span>
+<a id="ln-179" name="ln-179" href="#ln-179"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">get_subset</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">subset_1scl_range</span><span class="w"></span>
+<a id="ln-180" name="ln-180" href="#ln-180"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">delta_scale</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">delta_scale_1scl</span><span class="w"></span>
+<a id="ln-181" name="ln-181" href="#ln-181"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">finalize_1scl</span><span class="w"></span>
+<a id="ln-182" name="ln-182" href="#ln-182"></a>
+<a id="ln-183" name="ln-183" href="#ln-183"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">alloc_only_1scl</span><span class="w"></span>
+<a id="ln-184" name="ln-184" href="#ln-184"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">init_and_alloc_1scl</span><span class="w"></span>
+<a id="ln-185" name="ln-185" href="#ln-185"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">copy_and_alloc_1scl</span><span class="w"></span>
+<a id="ln-186" name="ln-186" href="#ln-186"></a><span class="w">    </span><span class="k">generic</span><span class="p">,</span><span class="w">   </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">alloc_1scl</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">alloc_only_1scl</span><span class="p">,</span><span class="w"> </span><span class="n">init_and_alloc_1scl</span><span class="p">,</span><span class="w"> </span><span class="n">copy_and_alloc_1scl</span><span class="w"></span>
+<a id="ln-187" name="ln-187" href="#ln-187"></a><span class="w">  </span><span class="k">end type </span><span class="n">ty_optical_props_1scl</span><span class="w"></span>
+<a id="ln-188" name="ln-188" href="#ln-188"></a>
+<a id="ln-189" name="ln-189" href="#ln-189"></a><span class="w">  </span><span class="c">! --- 2 stream ------------------------------------------------------------------------</span>
+<a id="ln-190" name="ln-190" href="#ln-190"></a><span class="w">  </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">ty_optical_props_arry</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ty_optical_props_2str</span><span class="w"></span>
+<a id="ln-191" name="ln-191" href="#ln-191"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ssa</span><span class="w"> </span><span class="c">!! single-scattering albedo (ncol, nlay, ngpt)</span>
+<a id="ln-192" name="ln-192" href="#ln-192"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">g</span><span class="w">   </span><span class="c">!! asymmetry parameter (ncol, nlay, ngpt)</span>
+<a id="ln-193" name="ln-193" href="#ln-193"></a><span class="w">  </span><span class="k">contains</span>
+<a id="ln-194" name="ln-194" href="#ln-194"></a><span class="k">    procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">validate</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">validate_2stream</span><span class="w"></span>
+<a id="ln-195" name="ln-195" href="#ln-195"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">get_subset</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">subset_2str_range</span><span class="w"></span>
+<a id="ln-196" name="ln-196" href="#ln-196"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">delta_scale</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">delta_scale_2str</span><span class="w"></span>
+<a id="ln-197" name="ln-197" href="#ln-197"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">finalize_2str</span><span class="w"></span>
+<a id="ln-198" name="ln-198" href="#ln-198"></a>
+<a id="ln-199" name="ln-199" href="#ln-199"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">alloc_only_2str</span><span class="w"></span>
+<a id="ln-200" name="ln-200" href="#ln-200"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">init_and_alloc_2str</span><span class="w"></span>
+<a id="ln-201" name="ln-201" href="#ln-201"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">copy_and_alloc_2str</span><span class="w"></span>
+<a id="ln-202" name="ln-202" href="#ln-202"></a><span class="w">    </span><span class="k">generic</span><span class="p">,</span><span class="w">   </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">alloc_2str</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">alloc_only_2str</span><span class="p">,</span><span class="w"> </span><span class="n">init_and_alloc_2str</span><span class="p">,</span><span class="w"> </span><span class="n">copy_and_alloc_2str</span><span class="w"></span>
+<a id="ln-203" name="ln-203" href="#ln-203"></a><span class="w">  </span><span class="k">end type </span><span class="n">ty_optical_props_2str</span><span class="w"></span>
+<a id="ln-204" name="ln-204" href="#ln-204"></a>
+<a id="ln-205" name="ln-205" href="#ln-205"></a><span class="w">  </span><span class="c">! --- n stream ------------------------------------------------------------------------</span>
+<a id="ln-206" name="ln-206" href="#ln-206"></a><span class="w">  </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">ty_optical_props_arry</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ty_optical_props_nstr</span><span class="w"></span>
+<a id="ln-207" name="ln-207" href="#ln-207"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:),</span><span class="w">   </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ssa</span><span class="w"> </span><span class="c">!! single-scattering albedo (ncol, nlay, ngpt)</span>
+<a id="ln-208" name="ln-208" href="#ln-208"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:,:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">p</span><span class="w">   </span><span class="c">!! phase-function moments (nmom, ncol, nlay, ngpt)</span>
+<a id="ln-209" name="ln-209" href="#ln-209"></a><span class="w">  </span><span class="k">contains</span>
+<a id="ln-210" name="ln-210" href="#ln-210"></a><span class="k">    procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">validate</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">validate_nstream</span><span class="w"></span>
+<a id="ln-211" name="ln-211" href="#ln-211"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_subset</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">subset_nstr_range</span><span class="w"></span>
+<a id="ln-212" name="ln-212" href="#ln-212"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">delta_scale</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">delta_scale_nstr</span><span class="w"></span>
+<a id="ln-213" name="ln-213" href="#ln-213"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_nmom</span><span class="w"></span>
+<a id="ln-214" name="ln-214" href="#ln-214"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">finalize_nstr</span><span class="w"></span>
+<a id="ln-215" name="ln-215" href="#ln-215"></a>
+<a id="ln-216" name="ln-216" href="#ln-216"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">alloc_only_nstr</span><span class="w"></span>
+<a id="ln-217" name="ln-217" href="#ln-217"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">init_and_alloc_nstr</span><span class="w"></span>
+<a id="ln-218" name="ln-218" href="#ln-218"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">copy_and_alloc_nstr</span><span class="w"></span>
+<a id="ln-219" name="ln-219" href="#ln-219"></a><span class="w">    </span><span class="k">generic</span><span class="p">,</span><span class="w">   </span><span class="k">public</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">alloc_nstr</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">alloc_only_nstr</span><span class="p">,</span><span class="w"> </span><span class="n">init_and_alloc_nstr</span><span class="p">,</span><span class="w"> </span><span class="n">copy_and_alloc_nstr</span><span class="w"></span>
+<a id="ln-220" name="ln-220" href="#ln-220"></a><span class="w">  </span><span class="k">end type </span><span class="n">ty_optical_props_nstr</span><span class="w"></span>
+<a id="ln-221" name="ln-221" href="#ln-221"></a><span class="w">  </span><span class="c">! -------------------------------------------------------------------------------------------------</span>
+<a id="ln-222" name="ln-222" href="#ln-222"></a><span class="k">contains</span><span class="w"></span>
+<a id="ln-223" name="ln-223" href="#ln-223"></a><span class="w">  </span><span class="c">! -------------------------------------------------------------------------------------------------</span>
+<a id="ln-224" name="ln-224" href="#ln-224"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-225" name="ln-225" href="#ln-225"></a><span class="w">  </span><span class="c">!  Routines for the base class: initialization, validity checking, finalization</span>
+<a id="ln-226" name="ln-226" href="#ln-226"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-227" name="ln-227" href="#ln-227"></a><span class="w">  </span><span class="c">!&gt; -------------------------------------------------------------------------------------------------</span>
+<a id="ln-228" name="ln-228" href="#ln-228"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-229" name="ln-229" href="#ln-229"></a><span class="w">  </span><span class="c">!&gt; Base class: Initialization</span>
+<a id="ln-230" name="ln-230" href="#ln-230"></a><span class="w">  </span><span class="c">!&gt;   Values are assumed to be defined in bands a mapping between bands and g-points is provided</span>
+<a id="ln-231" name="ln-231" href="#ln-231"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-232" name="ln-232" href="#ln-232"></a><span class="w">  </span><span class="c">!&gt; -------------------------------------------------------------------------------------------------</span>
+<a id="ln-233" name="ln-233" href="#ln-233"></a><span class="w">  </span><span class="k">function </span><span class="n">init_base</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">band_lims_wvn</span><span class="p">,</span><span class="w"> </span><span class="n">band_lims_gpt</span><span class="p">,</span><span class="w"> </span><span class="n">name</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-234" name="ln-234" href="#ln-234"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="p">),</span><span class="w">    </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-235" name="ln-235" href="#ln-235"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w">   </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">band_lims_wvn</span><span class="w"></span>
+<a id="ln-236" name="ln-236" href="#ln-236"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">  </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-237" name="ln-237" href="#ln-237"></a><span class="w">                      </span><span class="k">optional</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">band_lims_gpt</span><span class="w"></span>
+<a id="ln-238" name="ln-238" href="#ln-238"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span><span class="w"> </span><span class="k">optional</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">name</span><span class="w"></span>
+<a id="ln-239" name="ln-239" href="#ln-239"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">128</span><span class="p">)</span><span class="w">                      </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-240" name="ln-240" href="#ln-240"></a>
+<a id="ln-241" name="ln-241" href="#ln-241"></a><span class="w">    </span><span class="kt">integer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">iband</span><span class="w"></span>
+<a id="ln-242" name="ln-242" href="#ln-242"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">band_lims_wvn</span><span class="p">,</span><span class="w"> </span><span class="mi">2</span><span class="p">))</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">band_lims_gpt_lcl</span><span class="w"></span>
+<a id="ln-243" name="ln-243" href="#ln-243"></a><span class="w">    </span><span class="c">! -------------------------</span>
+<a id="ln-244" name="ln-244" href="#ln-244"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-245" name="ln-245" href="#ln-245"></a><span class="w">    </span><span class="c">! Error checking -- are the arrays the size we expect, contain positive values?</span>
+<a id="ln-246" name="ln-246" href="#ln-246"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-247" name="ln-247" href="#ln-247"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-248" name="ln-248" href="#ln-248"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="n">band_lims_wvn</span><span class="p">,</span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="mi">2</span><span class="p">)</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-249" name="ln-249" href="#ln-249"></a><span class="w">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;optical_props%init(): band_lims_wvn 1st dim should be 2&quot;</span><span class="w"></span>
+<a id="ln-250" name="ln-250" href="#ln-250"></a><span class="w">    </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">check_values</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-251" name="ln-251" href="#ln-251"></a><span class="k">      if</span><span class="p">(</span><span class="n">any_vals_less_than</span><span class="p">(</span><span class="n">band_lims_wvn</span><span class="p">,</span><span class="w"> </span><span class="mf">0._wp</span><span class="p">)</span><span class="w"> </span><span class="p">)</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-252" name="ln-252" href="#ln-252"></a><span class="w">        </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;optical_props%init(): band_lims_wvn has values &lt;  0., respectively&quot;</span><span class="w"></span>
+<a id="ln-253" name="ln-253" href="#ln-253"></a><span class="w">    </span><span class="k">end if</span>
+<a id="ln-254" name="ln-254" href="#ln-254"></a><span class="k">    if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-255" name="ln-255" href="#ln-255"></a><span class="k">    if</span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">band_lims_gpt</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-256" name="ln-256" href="#ln-256"></a><span class="k">      if</span><span class="w"> </span><span class="p">(</span><span class="n">check_extents</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-257" name="ln-257" href="#ln-257"></a><span class="k">        if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">extents_are</span><span class="p">(</span><span class="n">band_lims_gpt</span><span class="p">,</span><span class="w"> </span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">band_lims_wvn</span><span class="p">,</span><span class="mi">2</span><span class="p">)))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-258" name="ln-258" href="#ln-258"></a><span class="w">          </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;optical_props%init(): band_lims_gpt size inconsistent with band_lims_wvn&quot;</span><span class="w"></span>
+<a id="ln-259" name="ln-259" href="#ln-259"></a><span class="w">      </span><span class="k">end if</span>
+<a id="ln-260" name="ln-260" href="#ln-260"></a><span class="k">      if</span><span class="w"> </span><span class="p">(</span><span class="n">check_values</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-261" name="ln-261" href="#ln-261"></a><span class="k">        if</span><span class="p">(</span><span class="nb">any</span><span class="p">(</span><span class="n">band_lims_gpt</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="p">)</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-262" name="ln-262" href="#ln-262"></a><span class="w">          </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;optical_props%init(): band_lims_gpt has values &lt; 1&quot;</span><span class="w"></span>
+<a id="ln-263" name="ln-263" href="#ln-263"></a><span class="w">      </span><span class="k">end if</span>
+<a id="ln-264" name="ln-264" href="#ln-264"></a><span class="k">      if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-265" name="ln-265" href="#ln-265"></a>
+<a id="ln-266" name="ln-266" href="#ln-266"></a><span class="k">      </span><span class="n">band_lims_gpt_lcl</span><span class="p">(:,:)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">band_lims_gpt</span><span class="p">(:,:)</span><span class="w"></span>
+<a id="ln-267" name="ln-267" href="#ln-267"></a><span class="w">    </span><span class="k">else</span><span class="w"></span>
+<a id="ln-268" name="ln-268" href="#ln-268"></a><span class="w">      </span><span class="c">!</span>
+<a id="ln-269" name="ln-269" href="#ln-269"></a><span class="w">      </span><span class="c">! Assume that values are defined by band, one g-point per band</span>
+<a id="ln-270" name="ln-270" href="#ln-270"></a><span class="w">      </span><span class="c">!</span>
+<a id="ln-271" name="ln-271" href="#ln-271"></a><span class="w">      </span><span class="k">do </span><span class="n">iband</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">band_lims_wvn</span><span class="p">,</span><span class="w"> </span><span class="mi">2</span><span class="p">)</span><span class="w"></span>
+<a id="ln-272" name="ln-272" href="#ln-272"></a><span class="w">        </span><span class="n">band_lims_gpt_lcl</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="mi">2</span><span class="p">,</span><span class="n">iband</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">iband</span><span class="w"></span>
+<a id="ln-273" name="ln-273" href="#ln-273"></a><span class="w">      </span><span class="k">end do</span>
+<a id="ln-274" name="ln-274" href="#ln-274"></a><span class="k">    end if</span><span class="w"></span>
+<a id="ln-275" name="ln-275" href="#ln-275"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-276" name="ln-276" href="#ln-276"></a><span class="w">    </span><span class="c">! Assignment</span>
+<a id="ln-277" name="ln-277" href="#ln-277"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-278" name="ln-278" href="#ln-278"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">band2gpt</span><span class="w">     </span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">band2gpt</span><span class="p">)</span><span class="w"></span>
+<a id="ln-279" name="ln-279" href="#ln-279"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">band_lims_wvn</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">band_lims_wvn</span><span class="p">)</span><span class="w"></span>
+<a id="ln-280" name="ln-280" href="#ln-280"></a><span class="w">    </span><span class="k">allocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">band2gpt</span><span class="w">     </span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="n">size</span><span class="p">(</span><span class="n">band_lims_wvn</span><span class="p">,</span><span class="mi">2</span><span class="p">)),</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-281" name="ln-281" href="#ln-281"></a><span class="w">             </span><span class="n">this</span><span class="p">%</span><span class="n">band_lims_wvn</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="n">size</span><span class="p">(</span><span class="n">band_lims_wvn</span><span class="p">,</span><span class="mi">2</span><span class="p">)))</span><span class="w"></span>
+<a id="ln-282" name="ln-282" href="#ln-282"></a><span class="w">    </span><span class="n">this</span><span class="p">%</span><span class="n">band2gpt</span><span class="w">      </span><span class="o">=</span><span class="w"> </span><span class="n">band_lims_gpt_lcl</span><span class="w"></span>
+<a id="ln-283" name="ln-283" href="#ln-283"></a><span class="w">    </span><span class="n">this</span><span class="p">%</span><span class="n">band_lims_wvn</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">band_lims_wvn</span><span class="w"></span>
+<a id="ln-284" name="ln-284" href="#ln-284"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">name</span><span class="p">))</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">name</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">name</span><span class="p">)</span><span class="w"></span>
+<a id="ln-285" name="ln-285" href="#ln-285"></a>
+<a id="ln-286" name="ln-286" href="#ln-286"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-287" name="ln-287" href="#ln-287"></a><span class="w">    </span><span class="c">! Make a map between g-points and bands</span>
+<a id="ln-288" name="ln-288" href="#ln-288"></a><span class="w">    </span><span class="c">!   Efficient only when g-point indexes start at 1 and are contiguous.</span>
+<a id="ln-289" name="ln-289" href="#ln-289"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-290" name="ln-290" href="#ln-290"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">gpt2band</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">gpt2band</span><span class="p">)</span><span class="w"></span>
+<a id="ln-291" name="ln-291" href="#ln-291"></a><span class="w">    </span><span class="k">allocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">gpt2band</span><span class="p">(</span><span class="nb">maxval</span><span class="p">(</span><span class="n">band_lims_gpt_lcl</span><span class="p">)))</span><span class="w"></span>
+<a id="ln-292" name="ln-292" href="#ln-292"></a><span class="w">    </span><span class="k">do </span><span class="n">iband</span><span class="o">=</span><span class="mi">1</span><span class="p">,</span><span class="n">size</span><span class="p">(</span><span class="n">band_lims_gpt_lcl</span><span class="p">,</span><span class="nb">dim</span><span class="o">=</span><span class="mi">2</span><span class="p">)</span><span class="w"></span>
+<a id="ln-293" name="ln-293" href="#ln-293"></a><span class="w">      </span><span class="n">this</span><span class="p">%</span><span class="n">gpt2band</span><span class="p">(</span><span class="n">band_lims_gpt_lcl</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="n">iband</span><span class="p">):</span><span class="n">band_lims_gpt_lcl</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="n">iband</span><span class="p">))</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">iband</span><span class="w"></span>
+<a id="ln-294" name="ln-294" href="#ln-294"></a><span class="w">    </span><span class="k">end do</span>
+<a id="ln-295" name="ln-295" href="#ln-295"></a><span class="k">  end function </span><span class="n">init_base</span><span class="w"></span>
+<a id="ln-296" name="ln-296" href="#ln-296"></a><span class="w">  </span><span class="c">!-------------------------------------------------------------------------------------------------</span>
+<a id="ln-297" name="ln-297" href="#ln-297"></a><span class="w">  </span><span class="k">function </span><span class="n">init_base_from_copy</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">spectral_desc</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-298" name="ln-298" href="#ln-298"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="p">),</span><span class="w">    </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-299" name="ln-299" href="#ln-299"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="p">),</span><span class="w">    </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">spectral_desc</span><span class="w"></span>
+<a id="ln-300" name="ln-300" href="#ln-300"></a><span class="w">  </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">128</span><span class="p">)</span><span class="w">                        </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-301" name="ln-301" href="#ln-301"></a>
+<a id="ln-302" name="ln-302" href="#ln-302"></a><span class="w">    </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">spectral_desc</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-303" name="ln-303" href="#ln-303"></a><span class="k">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;optical_props%init(): can&#39;t initialize based on un-initialized input&quot;</span><span class="w"></span>
+<a id="ln-304" name="ln-304" href="#ln-304"></a><span class="w">      </span><span class="k">return</span>
+<a id="ln-305" name="ln-305" href="#ln-305"></a><span class="k">    else</span>
+<a id="ln-306" name="ln-306" href="#ln-306"></a><span class="k">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">init</span><span class="p">(</span><span class="n">spectral_desc</span><span class="p">%</span><span class="n">get_band_lims_wavenumber</span><span class="p">(),</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-307" name="ln-307" href="#ln-307"></a><span class="w">                              </span><span class="n">spectral_desc</span><span class="p">%</span><span class="n">get_band_lims_gpoint</span><span class="p">())</span><span class="w"></span>
+<a id="ln-308" name="ln-308" href="#ln-308"></a><span class="w">    </span><span class="k">end if</span>
+<a id="ln-309" name="ln-309" href="#ln-309"></a><span class="k">  end function </span><span class="n">init_base_from_copy</span><span class="w"></span>
+<a id="ln-310" name="ln-310" href="#ln-310"></a><span class="w">  </span><span class="c">!&gt;-------------------------------------------------------------------------------------------------</span>
+<a id="ln-311" name="ln-311" href="#ln-311"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-312" name="ln-312" href="#ln-312"></a><span class="w">  </span><span class="c">!&gt; Base class: return true if initialized, false otherwise</span>
+<a id="ln-313" name="ln-313" href="#ln-313"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-314" name="ln-314" href="#ln-314"></a><span class="w">  </span><span class="c">!&gt; -------------------------------------------------------------------------------------------------</span>
+<a id="ln-315" name="ln-315" href="#ln-315"></a><span class="w">  </span><span class="k">pure function </span><span class="n">is_initialized_base</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"></span>
+<a id="ln-316" name="ln-316" href="#ln-316"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-317" name="ln-317" href="#ln-317"></a><span class="w">    </span><span class="kt">logical</span><span class="w">                             </span><span class="kd">::</span><span class="w"> </span><span class="n">is_initialized_base</span><span class="w"></span>
+<a id="ln-318" name="ln-318" href="#ln-318"></a>
+<a id="ln-319" name="ln-319" href="#ln-319"></a><span class="w">    </span><span class="n">is_initialized_base</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">band2gpt</span><span class="p">)</span><span class="w"></span>
+<a id="ln-320" name="ln-320" href="#ln-320"></a><span class="w">  </span><span class="k">end function </span><span class="n">is_initialized_base</span><span class="w"></span>
+<a id="ln-321" name="ln-321" href="#ln-321"></a><span class="w">  </span><span class="c">!&gt;-------------------------------------------------------------------------------------------------</span>
+<a id="ln-322" name="ln-322" href="#ln-322"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-323" name="ln-323" href="#ln-323"></a><span class="w">  </span><span class="c">!&gt; Base class: finalize (deallocate memory)</span>
+<a id="ln-324" name="ln-324" href="#ln-324"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-325" name="ln-325" href="#ln-325"></a><span class="w">  </span><span class="c">!&gt; -------------------------------------------------------------------------------------------------</span>
+<a id="ln-326" name="ln-326" href="#ln-326"></a><span class="w">  </span><span class="k">subroutine </span><span class="n">finalize_base</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"></span>
+<a id="ln-327" name="ln-327" href="#ln-327"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="p">),</span><span class="w">    </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-328" name="ln-328" href="#ln-328"></a>
+<a id="ln-329" name="ln-329" href="#ln-329"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">band2gpt</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">band2gpt</span><span class="p">)</span><span class="w"></span>
+<a id="ln-330" name="ln-330" href="#ln-330"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">gpt2band</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">gpt2band</span><span class="p">)</span><span class="w"></span>
+<a id="ln-331" name="ln-331" href="#ln-331"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">band_lims_wvn</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-332" name="ln-332" href="#ln-332"></a><span class="w">                                 </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">band_lims_wvn</span><span class="p">)</span><span class="w"></span>
+<a id="ln-333" name="ln-333" href="#ln-333"></a><span class="w">    </span><span class="n">this</span><span class="p">%</span><span class="n">name</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-334" name="ln-334" href="#ln-334"></a><span class="w">  </span><span class="k">end subroutine </span><span class="n">finalize_base</span><span class="w"></span>
+<a id="ln-335" name="ln-335" href="#ln-335"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-336" name="ln-336" href="#ln-336"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-337" name="ln-337" href="#ln-337"></a><span class="w">  </span><span class="c">!  Routines for array classes: initialization, allocation, and finalization</span>
+<a id="ln-338" name="ln-338" href="#ln-338"></a><span class="w">  </span><span class="c">!    Initialization and allocation can be combined by supplying either</span>
+<a id="ln-339" name="ln-339" href="#ln-339"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-340" name="ln-340" href="#ln-340"></a><span class="w">  </span><span class="c">!&gt; ------------------------------------------------------------------------------------------</span>
+<a id="ln-341" name="ln-341" href="#ln-341"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-342" name="ln-342" href="#ln-342"></a><span class="w">  </span><span class="c">!&gt; Straight allocation routines</span>
+<a id="ln-343" name="ln-343" href="#ln-343"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-344" name="ln-344" href="#ln-344"></a><span class="w">  </span><span class="c">!&gt; --- 1 scalar ------------------------------------------------------------------------</span>
+<a id="ln-345" name="ln-345" href="#ln-345"></a><span class="w">  </span><span class="k">function </span><span class="n">alloc_only_1scl</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-346" name="ln-346" href="#ln-346"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_1scl</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-347" name="ln-347" href="#ln-347"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">          </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="w"></span>
+<a id="ln-348" name="ln-348" href="#ln-348"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="mi">128</span><span class="p">)</span><span class="w">           </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-349" name="ln-349" href="#ln-349"></a>
+<a id="ln-350" name="ln-350" href="#ln-350"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-351" name="ln-351" href="#ln-351"></a><span class="w">    </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-352" name="ln-352" href="#ln-352"></a><span class="k">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;optical_props%alloc: spectral discretization hasn&#39;t been provided&quot;</span><span class="w"></span>
+<a id="ln-353" name="ln-353" href="#ln-353"></a><span class="w">      </span><span class="k">return</span>
+<a id="ln-354" name="ln-354" href="#ln-354"></a><span class="k">    end if</span>
+<a id="ln-355" name="ln-355" href="#ln-355"></a><span class="k">    if</span><span class="p">(</span><span class="nb">any</span><span class="p">([</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">]</span><span class="w"> </span><span class="o">&lt;=</span><span class="w"> </span><span class="mi">0</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-356" name="ln-356" href="#ln-356"></a><span class="k">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;optical_props%alloc: must provide positive extents for ncol, nlay&quot;</span><span class="w"></span>
+<a id="ln-357" name="ln-357" href="#ln-357"></a><span class="w">    </span><span class="k">else</span>
+<a id="ln-358" name="ln-358" href="#ln-358"></a><span class="k">      if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">)</span><span class="w"></span>
+<a id="ln-359" name="ln-359" href="#ln-359"></a><span class="w">      </span><span class="k">allocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="n">nlay</span><span class="p">,</span><span class="n">this</span><span class="p">%</span><span class="n">get_ngpt</span><span class="p">()))</span><span class="w"></span>
+<a id="ln-360" name="ln-360" href="#ln-360"></a><span class="w">    </span><span class="k">end if</span>
+<a id="ln-361" name="ln-361" href="#ln-361"></a><span class="k">  end function </span><span class="n">alloc_only_1scl</span><span class="w"></span>
+<a id="ln-362" name="ln-362" href="#ln-362"></a>
+<a id="ln-363" name="ln-363" href="#ln-363"></a><span class="w">  </span><span class="c">!&gt; --- 2 stream ------------------------------------------------------------------------</span>
+<a id="ln-364" name="ln-364" href="#ln-364"></a><span class="w">  </span><span class="k">function </span><span class="n">alloc_only_2str</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-365" name="ln-365" href="#ln-365"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_2str</span><span class="p">)</span><span class="w">    </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-366" name="ln-366" href="#ln-366"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">             </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="w"></span>
+<a id="ln-367" name="ln-367" href="#ln-367"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="mi">128</span><span class="p">)</span><span class="w">              </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-368" name="ln-368" href="#ln-368"></a>
+<a id="ln-369" name="ln-369" href="#ln-369"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-370" name="ln-370" href="#ln-370"></a><span class="w">    </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-371" name="ln-371" href="#ln-371"></a><span class="w">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;optical_props%alloc: spectral discretization hasn&#39;t been provided&quot;</span><span class="w"></span>
+<a id="ln-372" name="ln-372" href="#ln-372"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">any</span><span class="p">([</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">]</span><span class="w"> </span><span class="o">&lt;=</span><span class="w"> </span><span class="mi">0</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-373" name="ln-373" href="#ln-373"></a><span class="w">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;optical_props%alloc: must provide positive extents for ncol, nlay&quot;</span><span class="w"></span>
+<a id="ln-374" name="ln-374" href="#ln-374"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-375" name="ln-375" href="#ln-375"></a>
+<a id="ln-376" name="ln-376" href="#ln-376"></a><span class="k">    if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">)</span><span class="w"></span>
+<a id="ln-377" name="ln-377" href="#ln-377"></a><span class="w">    </span><span class="k">allocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="n">nlay</span><span class="p">,</span><span class="n">this</span><span class="p">%</span><span class="n">get_ngpt</span><span class="p">()))</span><span class="w"></span>
+<a id="ln-378" name="ln-378" href="#ln-378"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">ssa</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">ssa</span><span class="p">)</span><span class="w"></span>
+<a id="ln-379" name="ln-379" href="#ln-379"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">g</span><span class="w">  </span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">g</span><span class="w">  </span><span class="p">)</span><span class="w"></span>
+<a id="ln-380" name="ln-380" href="#ln-380"></a><span class="w">    </span><span class="k">allocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">ssa</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="n">nlay</span><span class="p">,</span><span class="n">this</span><span class="p">%</span><span class="n">get_ngpt</span><span class="p">()),</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">g</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="n">nlay</span><span class="p">,</span><span class="n">this</span><span class="p">%</span><span class="n">get_ngpt</span><span class="p">()))</span><span class="w"></span>
+<a id="ln-381" name="ln-381" href="#ln-381"></a><span class="w">  </span><span class="k">end function </span><span class="n">alloc_only_2str</span><span class="w"></span>
+<a id="ln-382" name="ln-382" href="#ln-382"></a>
+<a id="ln-383" name="ln-383" href="#ln-383"></a><span class="w">  </span><span class="c">!&gt; --- n stream ------------------------------------------------------------------------</span>
+<a id="ln-384" name="ln-384" href="#ln-384"></a><span class="w">  </span><span class="k">function </span><span class="n">alloc_only_nstr</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">nmom</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-385" name="ln-385" href="#ln-385"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_nstr</span><span class="p">)</span><span class="w">    </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-386" name="ln-386" href="#ln-386"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">             </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">nmom</span><span class="w"> </span><span class="c">! number of moments</span>
+<a id="ln-387" name="ln-387" href="#ln-387"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">             </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="w"></span>
+<a id="ln-388" name="ln-388" href="#ln-388"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="mi">128</span><span class="p">)</span><span class="w">              </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-389" name="ln-389" href="#ln-389"></a>
+<a id="ln-390" name="ln-390" href="#ln-390"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-391" name="ln-391" href="#ln-391"></a><span class="w">    </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-392" name="ln-392" href="#ln-392"></a><span class="w">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;optical_props%alloc: spectral discretization hasn&#39;t been provided&quot;</span><span class="w"></span>
+<a id="ln-393" name="ln-393" href="#ln-393"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">any</span><span class="p">([</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">]</span><span class="w"> </span><span class="o">&lt;=</span><span class="w"> </span><span class="mi">0</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-394" name="ln-394" href="#ln-394"></a><span class="w">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;optical_props%alloc: must provide positive extents for ncol, nlay&quot;</span><span class="w"></span>
+<a id="ln-395" name="ln-395" href="#ln-395"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-396" name="ln-396" href="#ln-396"></a>
+<a id="ln-397" name="ln-397" href="#ln-397"></a><span class="k">    if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">)</span><span class="w"></span>
+<a id="ln-398" name="ln-398" href="#ln-398"></a><span class="w">    </span><span class="k">allocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="n">nlay</span><span class="p">,</span><span class="n">this</span><span class="p">%</span><span class="n">get_ngpt</span><span class="p">()))</span><span class="w"></span>
+<a id="ln-399" name="ln-399" href="#ln-399"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">ssa</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">ssa</span><span class="p">)</span><span class="w"></span>
+<a id="ln-400" name="ln-400" href="#ln-400"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">p</span><span class="w">  </span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">p</span><span class="w">  </span><span class="p">)</span><span class="w"></span>
+<a id="ln-401" name="ln-401" href="#ln-401"></a><span class="w">    </span><span class="k">allocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">ssa</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="n">nlay</span><span class="p">,</span><span class="n">this</span><span class="p">%</span><span class="n">get_ngpt</span><span class="p">()),</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">p</span><span class="p">(</span><span class="n">nmom</span><span class="p">,</span><span class="n">ncol</span><span class="p">,</span><span class="n">nlay</span><span class="p">,</span><span class="n">this</span><span class="p">%</span><span class="n">get_ngpt</span><span class="p">()))</span><span class="w"></span>
+<a id="ln-402" name="ln-402" href="#ln-402"></a><span class="w">  </span><span class="k">end function </span><span class="n">alloc_only_nstr</span><span class="w"></span>
+<a id="ln-403" name="ln-403" href="#ln-403"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-404" name="ln-404" href="#ln-404"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-405" name="ln-405" href="#ln-405"></a><span class="w">  </span><span class="c">! Combined allocation/initialization routines</span>
+<a id="ln-406" name="ln-406" href="#ln-406"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-407" name="ln-407" href="#ln-407"></a><span class="w">  </span><span class="c">!&gt; ------------------------------------------------------------------------------------------</span>
+<a id="ln-408" name="ln-408" href="#ln-408"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-409" name="ln-409" href="#ln-409"></a><span class="w">  </span><span class="c">!&gt; Initialization by specifying band limits and possibly g-point/band mapping</span>
+<a id="ln-410" name="ln-410" href="#ln-410"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-411" name="ln-411" href="#ln-411"></a><span class="w">  </span><span class="c">!&gt; ---------------------------------------------------------------------------</span>
+<a id="ln-412" name="ln-412" href="#ln-412"></a><span class="w">  </span><span class="k">function </span><span class="n">init_and_alloc_1scl</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">band_lims_wvn</span><span class="p">,</span><span class="w"> </span><span class="n">band_lims_gpt</span><span class="p">,</span><span class="w"> </span><span class="n">name</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-413" name="ln-413" href="#ln-413"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_1scl</span><span class="p">)</span><span class="w">             </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-414" name="ln-414" href="#ln-414"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">                      </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="w"></span>
+<a id="ln-415" name="ln-415" href="#ln-415"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w">     </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">band_lims_wvn</span><span class="w"></span>
+<a id="ln-416" name="ln-416" href="#ln-416"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">  </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-417" name="ln-417" href="#ln-417"></a><span class="w">                      </span><span class="k">optional</span><span class="p">,</span><span class="w">   </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">band_lims_gpt</span><span class="w"></span>
+<a id="ln-418" name="ln-418" href="#ln-418"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span><span class="w"> </span><span class="k">optional</span><span class="p">,</span><span class="w">   </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">name</span><span class="w"></span>
+<a id="ln-419" name="ln-419" href="#ln-419"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="mi">128</span><span class="p">)</span><span class="w">                       </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-420" name="ln-420" href="#ln-420"></a>
+<a id="ln-421" name="ln-421" href="#ln-421"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">ty_optical_props</span><span class="p">%</span><span class="n">init</span><span class="p">(</span><span class="n">band_lims_wvn</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-422" name="ln-422" href="#ln-422"></a><span class="w">                                             </span><span class="n">band_lims_gpt</span><span class="p">,</span><span class="w"> </span><span class="n">name</span><span class="p">)</span><span class="w"></span>
+<a id="ln-423" name="ln-423" href="#ln-423"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-424" name="ln-424" href="#ln-424"></a><span class="k">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">alloc_1scl</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">)</span><span class="w"></span>
+<a id="ln-425" name="ln-425" href="#ln-425"></a><span class="w">  </span><span class="k">end function </span><span class="n">init_and_alloc_1scl</span><span class="w"></span>
+<a id="ln-426" name="ln-426" href="#ln-426"></a><span class="w">  </span><span class="c">! ---------------------------------------------------------------------------</span>
+<a id="ln-427" name="ln-427" href="#ln-427"></a><span class="w">  </span><span class="k">function </span><span class="n">init_and_alloc_2str</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">band_lims_wvn</span><span class="p">,</span><span class="w"> </span><span class="n">band_lims_gpt</span><span class="p">,</span><span class="w"> </span><span class="n">name</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-428" name="ln-428" href="#ln-428"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_2str</span><span class="p">)</span><span class="w">             </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-429" name="ln-429" href="#ln-429"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">                      </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="w"></span>
+<a id="ln-430" name="ln-430" href="#ln-430"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w">     </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">band_lims_wvn</span><span class="w"></span>
+<a id="ln-431" name="ln-431" href="#ln-431"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">  </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-432" name="ln-432" href="#ln-432"></a><span class="w">                      </span><span class="k">optional</span><span class="p">,</span><span class="w">   </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">band_lims_gpt</span><span class="w"></span>
+<a id="ln-433" name="ln-433" href="#ln-433"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span><span class="w"> </span><span class="k">optional</span><span class="p">,</span><span class="w">   </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">name</span><span class="w"></span>
+<a id="ln-434" name="ln-434" href="#ln-434"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="mi">128</span><span class="p">)</span><span class="w">                       </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-435" name="ln-435" href="#ln-435"></a>
+<a id="ln-436" name="ln-436" href="#ln-436"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">ty_optical_props</span><span class="p">%</span><span class="n">init</span><span class="p">(</span><span class="n">band_lims_wvn</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-437" name="ln-437" href="#ln-437"></a><span class="w">                                             </span><span class="n">band_lims_gpt</span><span class="p">,</span><span class="w"> </span><span class="n">name</span><span class="p">)</span><span class="w"></span>
+<a id="ln-438" name="ln-438" href="#ln-438"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-439" name="ln-439" href="#ln-439"></a><span class="k">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">alloc_2str</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">)</span><span class="w"></span>
+<a id="ln-440" name="ln-440" href="#ln-440"></a><span class="w">  </span><span class="k">end function </span><span class="n">init_and_alloc_2str</span><span class="w"></span>
+<a id="ln-441" name="ln-441" href="#ln-441"></a><span class="w">  </span><span class="c">! ---------------------------------------------------------------------------</span>
+<a id="ln-442" name="ln-442" href="#ln-442"></a><span class="w">  </span><span class="k">function </span><span class="n">init_and_alloc_nstr</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">nmom</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">band_lims_wvn</span><span class="p">,</span><span class="w"> </span><span class="n">band_lims_gpt</span><span class="p">,</span><span class="w"> </span><span class="n">name</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-443" name="ln-443" href="#ln-443"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_nstr</span><span class="p">)</span><span class="w">             </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-444" name="ln-444" href="#ln-444"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">                      </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">nmom</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="w"></span>
+<a id="ln-445" name="ln-445" href="#ln-445"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w">     </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">band_lims_wvn</span><span class="w"></span>
+<a id="ln-446" name="ln-446" href="#ln-446"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">  </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-447" name="ln-447" href="#ln-447"></a><span class="w">                      </span><span class="k">optional</span><span class="p">,</span><span class="w">   </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">band_lims_gpt</span><span class="w"></span>
+<a id="ln-448" name="ln-448" href="#ln-448"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span><span class="w"> </span><span class="k">optional</span><span class="p">,</span><span class="w">   </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">name</span><span class="w"></span>
+<a id="ln-449" name="ln-449" href="#ln-449"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="mi">128</span><span class="p">)</span><span class="w">                       </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-450" name="ln-450" href="#ln-450"></a>
+<a id="ln-451" name="ln-451" href="#ln-451"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">ty_optical_props</span><span class="p">%</span><span class="n">init</span><span class="p">(</span><span class="n">band_lims_wvn</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-452" name="ln-452" href="#ln-452"></a><span class="w">                                             </span><span class="n">band_lims_gpt</span><span class="p">,</span><span class="w"> </span><span class="n">name</span><span class="p">)</span><span class="w"></span>
+<a id="ln-453" name="ln-453" href="#ln-453"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-454" name="ln-454" href="#ln-454"></a><span class="k">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">alloc_nstr</span><span class="p">(</span><span class="n">nmom</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">)</span><span class="w"></span>
+<a id="ln-455" name="ln-455" href="#ln-455"></a><span class="w">  </span><span class="k">end function </span><span class="n">init_and_alloc_nstr</span><span class="w"></span>
+<a id="ln-456" name="ln-456" href="#ln-456"></a><span class="w">  </span><span class="c">!&gt;-------------------------------------------------------------------------------------------------</span>
+<a id="ln-457" name="ln-457" href="#ln-457"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-458" name="ln-458" href="#ln-458"></a><span class="w">  </span><span class="c">!&gt; Initialization from an existing spectral discretization/ty_optical_props</span>
+<a id="ln-459" name="ln-459" href="#ln-459"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-460" name="ln-460" href="#ln-460"></a><span class="w">  </span><span class="c">!&gt;-------------------------------------------------------------------------------------------------</span>
+<a id="ln-461" name="ln-461" href="#ln-461"></a><span class="w">  </span><span class="k">function </span><span class="n">copy_and_alloc_1scl</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">spectral_desc</span><span class="p">,</span><span class="w"> </span><span class="n">name</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-462" name="ln-462" href="#ln-462"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_1scl</span><span class="p">)</span><span class="w">             </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-463" name="ln-463" href="#ln-463"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">                      </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="w"></span>
+<a id="ln-464" name="ln-464" href="#ln-464"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="w">     </span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">spectral_desc</span><span class="w"></span>
+<a id="ln-465" name="ln-465" href="#ln-465"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span><span class="w"> </span><span class="k">optional</span><span class="p">,</span><span class="w">   </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">name</span><span class="w"></span>
+<a id="ln-466" name="ln-466" href="#ln-466"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="mi">128</span><span class="p">)</span><span class="w">                       </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-467" name="ln-467" href="#ln-467"></a>
+<a id="ln-468" name="ln-468" href="#ln-468"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-469" name="ln-469" href="#ln-469"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">ty_optical_props</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="k">call </span><span class="n">this</span><span class="p">%</span><span class="n">ty_optical_props</span><span class="p">%</span><span class="n">finalize</span><span class="p">()</span><span class="w"></span>
+<a id="ln-470" name="ln-470" href="#ln-470"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">ty_optical_props</span><span class="p">%</span><span class="n">init</span><span class="p">(</span><span class="n">spectral_desc</span><span class="p">%</span><span class="n">get_band_lims_wavenumber</span><span class="p">(),</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-471" name="ln-471" href="#ln-471"></a><span class="w">                                             </span><span class="n">spectral_desc</span><span class="p">%</span><span class="n">get_band_lims_gpoint</span><span class="p">(),</span><span class="w"> </span><span class="n">name</span><span class="p">)</span><span class="w"></span>
+<a id="ln-472" name="ln-472" href="#ln-472"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-473" name="ln-473" href="#ln-473"></a><span class="k">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">alloc_1scl</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">)</span><span class="w"></span>
+<a id="ln-474" name="ln-474" href="#ln-474"></a><span class="w">  </span><span class="k">end function </span><span class="n">copy_and_alloc_1scl</span><span class="w"></span>
+<a id="ln-475" name="ln-475" href="#ln-475"></a><span class="w">  </span><span class="c">! ---------------------------------------------------------------------------</span>
+<a id="ln-476" name="ln-476" href="#ln-476"></a><span class="w">  </span><span class="k">function </span><span class="n">copy_and_alloc_2str</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">spectral_desc</span><span class="p">,</span><span class="w"> </span><span class="n">name</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-477" name="ln-477" href="#ln-477"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_2str</span><span class="p">)</span><span class="w">             </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-478" name="ln-478" href="#ln-478"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">                      </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="w"></span>
+<a id="ln-479" name="ln-479" href="#ln-479"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="w">     </span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">spectral_desc</span><span class="w"></span>
+<a id="ln-480" name="ln-480" href="#ln-480"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span><span class="w"> </span><span class="k">optional</span><span class="p">,</span><span class="w">   </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">name</span><span class="w"></span>
+<a id="ln-481" name="ln-481" href="#ln-481"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="mi">128</span><span class="p">)</span><span class="w">                       </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-482" name="ln-482" href="#ln-482"></a>
+<a id="ln-483" name="ln-483" href="#ln-483"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-484" name="ln-484" href="#ln-484"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">ty_optical_props</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="k">call </span><span class="n">this</span><span class="p">%</span><span class="n">ty_optical_props</span><span class="p">%</span><span class="n">finalize</span><span class="p">()</span><span class="w"></span>
+<a id="ln-485" name="ln-485" href="#ln-485"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">ty_optical_props</span><span class="p">%</span><span class="n">init</span><span class="p">(</span><span class="n">spectral_desc</span><span class="p">%</span><span class="n">get_band_lims_wavenumber</span><span class="p">(),</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-486" name="ln-486" href="#ln-486"></a><span class="w">                                             </span><span class="n">spectral_desc</span><span class="p">%</span><span class="n">get_band_lims_gpoint</span><span class="p">(),</span><span class="w"> </span><span class="n">name</span><span class="p">)</span><span class="w"></span>
+<a id="ln-487" name="ln-487" href="#ln-487"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-488" name="ln-488" href="#ln-488"></a><span class="k">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">alloc_2str</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">)</span><span class="w"></span>
+<a id="ln-489" name="ln-489" href="#ln-489"></a><span class="w">  </span><span class="k">end function </span><span class="n">copy_and_alloc_2str</span><span class="w"></span>
+<a id="ln-490" name="ln-490" href="#ln-490"></a><span class="w">  </span><span class="c">! ---------------------------------------------------------------------------</span>
+<a id="ln-491" name="ln-491" href="#ln-491"></a><span class="w">  </span><span class="k">function </span><span class="n">copy_and_alloc_nstr</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">nmom</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">spectral_desc</span><span class="p">,</span><span class="w"> </span><span class="n">name</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-492" name="ln-492" href="#ln-492"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_nstr</span><span class="p">)</span><span class="w">             </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-493" name="ln-493" href="#ln-493"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">                      </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">nmom</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="w"></span>
+<a id="ln-494" name="ln-494" href="#ln-494"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="w">     </span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">spectral_desc</span><span class="w"></span>
+<a id="ln-495" name="ln-495" href="#ln-495"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span><span class="w"> </span><span class="k">optional</span><span class="p">,</span><span class="w">   </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">name</span><span class="w"></span>
+<a id="ln-496" name="ln-496" href="#ln-496"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="mi">128</span><span class="p">)</span><span class="w">                       </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-497" name="ln-497" href="#ln-497"></a>
+<a id="ln-498" name="ln-498" href="#ln-498"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-499" name="ln-499" href="#ln-499"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">ty_optical_props</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="k">call </span><span class="n">this</span><span class="p">%</span><span class="n">ty_optical_props</span><span class="p">%</span><span class="n">finalize</span><span class="p">()</span><span class="w"></span>
+<a id="ln-500" name="ln-500" href="#ln-500"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">ty_optical_props</span><span class="p">%</span><span class="n">init</span><span class="p">(</span><span class="n">spectral_desc</span><span class="p">%</span><span class="n">get_band_lims_wavenumber</span><span class="p">(),</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-501" name="ln-501" href="#ln-501"></a><span class="w">                                             </span><span class="n">spectral_desc</span><span class="p">%</span><span class="n">get_band_lims_gpoint</span><span class="p">(),</span><span class="w"> </span><span class="n">name</span><span class="p">)</span><span class="w"></span>
+<a id="ln-502" name="ln-502" href="#ln-502"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-503" name="ln-503" href="#ln-503"></a><span class="k">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">alloc_nstr</span><span class="p">(</span><span class="n">nmom</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">)</span><span class="w"></span>
+<a id="ln-504" name="ln-504" href="#ln-504"></a><span class="w">  </span><span class="k">end function </span><span class="n">copy_and_alloc_nstr</span><span class="w"></span>
+<a id="ln-505" name="ln-505" href="#ln-505"></a><span class="w">  </span><span class="c">!&gt; ------------------------------------------------------------------------------------------</span>
+<a id="ln-506" name="ln-506" href="#ln-506"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-507" name="ln-507" href="#ln-507"></a><span class="w">  </span><span class="c">!&gt; Finalize routines</span>
+<a id="ln-508" name="ln-508" href="#ln-508"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-509" name="ln-509" href="#ln-509"></a><span class="w">  </span><span class="c">!&gt; ------------------------------------------------------------------------------------------</span>
+<a id="ln-510" name="ln-510" href="#ln-510"></a><span class="w">  </span><span class="k">function </span><span class="n">finalize_1scl</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-511" name="ln-511" href="#ln-511"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_1scl</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-512" name="ln-512" href="#ln-512"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="mi">128</span><span class="p">)</span><span class="w">           </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-513" name="ln-513" href="#ln-513"></a>
+<a id="ln-514" name="ln-514" href="#ln-514"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">)</span><span class="w"></span>
+<a id="ln-515" name="ln-515" href="#ln-515"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-516" name="ln-516" href="#ln-516"></a><span class="w">  </span><span class="k">end function </span><span class="n">finalize_1scl</span><span class="w"></span>
+<a id="ln-517" name="ln-517" href="#ln-517"></a><span class="w">  </span><span class="c">! ---------------------------------------------------------------------------</span>
+<a id="ln-518" name="ln-518" href="#ln-518"></a><span class="w">  </span><span class="k">function </span><span class="n">finalize_2str</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-519" name="ln-519" href="#ln-519"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_2str</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-520" name="ln-520" href="#ln-520"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="mi">128</span><span class="p">)</span><span class="w">           </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-521" name="ln-521" href="#ln-521"></a>
+<a id="ln-522" name="ln-522" href="#ln-522"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">)</span><span class="w"></span>
+<a id="ln-523" name="ln-523" href="#ln-523"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">ssa</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">ssa</span><span class="p">)</span><span class="w"></span>
+<a id="ln-524" name="ln-524" href="#ln-524"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">g</span><span class="w">  </span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">g</span><span class="w">  </span><span class="p">)</span><span class="w"></span>
+<a id="ln-525" name="ln-525" href="#ln-525"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-526" name="ln-526" href="#ln-526"></a><span class="w">  </span><span class="k">end function </span><span class="n">finalize_2str</span><span class="w"></span>
+<a id="ln-527" name="ln-527" href="#ln-527"></a><span class="w">  </span><span class="c">! ---------------------------------------------------------------------------</span>
+<a id="ln-528" name="ln-528" href="#ln-528"></a><span class="w">  </span><span class="k">function </span><span class="n">finalize_nstr</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-529" name="ln-529" href="#ln-529"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_nstr</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-530" name="ln-530" href="#ln-530"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="mi">128</span><span class="p">)</span><span class="w">           </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-531" name="ln-531" href="#ln-531"></a>
+<a id="ln-532" name="ln-532" href="#ln-532"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">)</span><span class="w"></span>
+<a id="ln-533" name="ln-533" href="#ln-533"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">ssa</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">ssa</span><span class="p">)</span><span class="w"></span>
+<a id="ln-534" name="ln-534" href="#ln-534"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">p</span><span class="w">  </span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">p</span><span class="w">  </span><span class="p">)</span><span class="w"></span>
+<a id="ln-535" name="ln-535" href="#ln-535"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-536" name="ln-536" href="#ln-536"></a><span class="w">  </span><span class="k">end function </span><span class="n">finalize_nstr</span><span class="w"></span>
+<a id="ln-537" name="ln-537" href="#ln-537"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-538" name="ln-538" href="#ln-538"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-539" name="ln-539" href="#ln-539"></a><span class="w">  </span><span class="c">!  Routines for array classes: delta-scaling, validation (ensuring all values can be used )</span>
+<a id="ln-540" name="ln-540" href="#ln-540"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-541" name="ln-541" href="#ln-541"></a><span class="w">  </span><span class="c">!&gt; ------------------------------------------------------------------------------------------</span>
+<a id="ln-542" name="ln-542" href="#ln-542"></a><span class="w">  </span><span class="c">!&gt; --- delta scaling</span>
+<a id="ln-543" name="ln-543" href="#ln-543"></a><span class="w">  </span><span class="c">!&gt; ------------------------------------------------------------------------------------------</span>
+<a id="ln-544" name="ln-544" href="#ln-544"></a><span class="w">  </span><span class="k">function </span><span class="n">delta_scale_1scl</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">for</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-545" name="ln-545" href="#ln-545"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_1scl</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-546" name="ln-546" href="#ln-546"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:),</span><span class="w"> </span><span class="k">optional</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-547" name="ln-547" href="#ln-547"></a><span class="w">                                  </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">for</span><span class="w"></span>
+<a id="ln-548" name="ln-548" href="#ln-548"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="mi">128</span><span class="p">)</span><span class="w">                              </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-549" name="ln-549" href="#ln-549"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-550" name="ln-550" href="#ln-550"></a><span class="w">    </span><span class="c">! Nothing to do</span>
+<a id="ln-551" name="ln-551" href="#ln-551"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-552" name="ln-552" href="#ln-552"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-553" name="ln-553" href="#ln-553"></a><span class="w">  </span><span class="k">end function </span><span class="n">delta_scale_1scl</span><span class="w"></span>
+<a id="ln-554" name="ln-554" href="#ln-554"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-555" name="ln-555" href="#ln-555"></a><span class="w">  </span><span class="k">function </span><span class="n">delta_scale_2str</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">for</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-556" name="ln-556" href="#ln-556"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_2str</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-557" name="ln-557" href="#ln-557"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:),</span><span class="w"> </span><span class="k">optional</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-558" name="ln-558" href="#ln-558"></a><span class="w">                                  </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">for</span><span class="w"></span>
+<a id="ln-559" name="ln-559" href="#ln-559"></a><span class="w">    </span><span class="c">!! Forward scattering fraction; g**2 if not provided</span>
+<a id="ln-560" name="ln-560" href="#ln-560"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="mi">128</span><span class="p">)</span><span class="w">                              </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-561" name="ln-561" href="#ln-561"></a>
+<a id="ln-562" name="ln-562" href="#ln-562"></a><span class="w">    </span><span class="kt">integer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="w"></span>
+<a id="ln-563" name="ln-563" href="#ln-563"></a><span class="w">    </span><span class="c">! --------------------------------</span>
+<a id="ln-564" name="ln-564" href="#ln-564"></a><span class="w">    </span><span class="n">ncol</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_ncol</span><span class="p">()</span><span class="w"></span>
+<a id="ln-565" name="ln-565" href="#ln-565"></a><span class="w">    </span><span class="n">nlay</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_nlay</span><span class="p">()</span><span class="w"></span>
+<a id="ln-566" name="ln-566" href="#ln-566"></a><span class="w">    </span><span class="n">ngpt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_ngpt</span><span class="p">()</span><span class="w"></span>
+<a id="ln-567" name="ln-567" href="#ln-567"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-568" name="ln-568" href="#ln-568"></a>
+<a id="ln-569" name="ln-569" href="#ln-569"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">for</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-570" name="ln-570" href="#ln-570"></a><span class="k">      if</span><span class="w"> </span><span class="p">(</span><span class="n">check_extents</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-571" name="ln-571" href="#ln-571"></a><span class="k">        if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">extents_are</span><span class="p">(</span><span class="n">for</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-572" name="ln-572" href="#ln-572"></a><span class="k">        </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;delta_scale: dimension of &#39;for&#39; don&#39;t match optical properties arrays&quot;</span><span class="w"></span>
+<a id="ln-573" name="ln-573" href="#ln-573"></a><span class="w">        </span><span class="k">return</span>
+<a id="ln-574" name="ln-574" href="#ln-574"></a><span class="k">      end if</span>
+<a id="ln-575" name="ln-575" href="#ln-575"></a><span class="k">    end if</span>
+<a id="ln-576" name="ln-576" href="#ln-576"></a><span class="k">    if</span><span class="w"> </span><span class="p">(</span><span class="n">check_values</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-577" name="ln-577" href="#ln-577"></a><span class="k">      if</span><span class="p">(</span><span class="n">any_vals_outside</span><span class="p">(</span><span class="n">for</span><span class="p">,</span><span class="w"> </span><span class="mf">0._wp</span><span class="p">,</span><span class="w"> </span><span class="mf">1._wp</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-578" name="ln-578" href="#ln-578"></a><span class="k">        </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;delta_scale: values of &#39;for&#39; out of bounds [0,1]&quot;</span><span class="w"></span>
+<a id="ln-579" name="ln-579" href="#ln-579"></a><span class="w">        </span><span class="k">return</span>
+<a id="ln-580" name="ln-580" href="#ln-580"></a><span class="k">      end if</span>
+<a id="ln-581" name="ln-581" href="#ln-581"></a><span class="k">    end if</span>
+<a id="ln-582" name="ln-582" href="#ln-582"></a><span class="k">      call </span><span class="n">delta_scale_2str_kernel</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">g</span><span class="p">,</span><span class="w"> </span><span class="n">for</span><span class="p">)</span><span class="w"></span>
+<a id="ln-583" name="ln-583" href="#ln-583"></a><span class="w">    </span><span class="k">else</span>
+<a id="ln-584" name="ln-584" href="#ln-584"></a><span class="k">      call </span><span class="n">delta_scale_2str_kernel</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">g</span><span class="p">)</span><span class="w"></span>
+<a id="ln-585" name="ln-585" href="#ln-585"></a><span class="w">    </span><span class="k">end if</span>
+<a id="ln-586" name="ln-586" href="#ln-586"></a>
+<a id="ln-587" name="ln-587" href="#ln-587"></a><span class="k">  end function </span><span class="n">delta_scale_2str</span><span class="w"></span>
+<a id="ln-588" name="ln-588" href="#ln-588"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-589" name="ln-589" href="#ln-589"></a><span class="w">  </span><span class="k">function </span><span class="n">delta_scale_nstr</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">for</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-590" name="ln-590" href="#ln-590"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_nstr</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-591" name="ln-591" href="#ln-591"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:),</span><span class="w"> </span><span class="k">optional</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-592" name="ln-592" href="#ln-592"></a><span class="w">                                 </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">for</span><span class="w"></span>
+<a id="ln-593" name="ln-593" href="#ln-593"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="mi">128</span><span class="p">)</span><span class="w">                             </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-594" name="ln-594" href="#ln-594"></a>
+<a id="ln-595" name="ln-595" href="#ln-595"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s1">&#39;delta_scale_nstr: Not yet implemented&#39;</span><span class="w"></span>
+<a id="ln-596" name="ln-596" href="#ln-596"></a><span class="w">  </span><span class="k">end function </span><span class="n">delta_scale_nstr</span><span class="w"></span>
+<a id="ln-597" name="ln-597" href="#ln-597"></a><span class="w">  </span><span class="c">!&gt; ------------------------------------------------------------------------------------------</span>
+<a id="ln-598" name="ln-598" href="#ln-598"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-599" name="ln-599" href="#ln-599"></a><span class="w">  </span><span class="c">!&gt; --- Validation</span>
+<a id="ln-600" name="ln-600" href="#ln-600"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-601" name="ln-601" href="#ln-601"></a><span class="w">  </span><span class="c">!&gt; ------------------------------------------------------------------------------------------</span>
+<a id="ln-602" name="ln-602" href="#ln-602"></a><span class="w">  </span><span class="k">function </span><span class="n">validate_1scalar</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-603" name="ln-603" href="#ln-603"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_1scl</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-604" name="ln-604" href="#ln-604"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="mi">128</span><span class="p">)</span><span class="w">                       </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-605" name="ln-605" href="#ln-605"></a>
+<a id="ln-606" name="ln-606" href="#ln-606"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s1">&#39;&#39;</span><span class="w"></span>
+<a id="ln-607" name="ln-607" href="#ln-607"></a><span class="w">    </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-608" name="ln-608" href="#ln-608"></a><span class="k">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;validate: tau not allocated/initialized&quot;</span><span class="w"></span>
+<a id="ln-609" name="ln-609" href="#ln-609"></a><span class="w">      </span><span class="k">return</span>
+<a id="ln-610" name="ln-610" href="#ln-610"></a><span class="k">    end if</span>
+<a id="ln-611" name="ln-611" href="#ln-611"></a><span class="k">    if</span><span class="w"> </span><span class="p">(</span><span class="n">check_values</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-612" name="ln-612" href="#ln-612"></a><span class="k">      if</span><span class="p">(</span><span class="n">any_vals_less_than</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="mf">0._wp</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-613" name="ln-613" href="#ln-613"></a><span class="w">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;validate: tau values out of range&quot;</span><span class="w"></span>
+<a id="ln-614" name="ln-614" href="#ln-614"></a><span class="w">    </span><span class="k">end if</span>
+<a id="ln-615" name="ln-615" href="#ln-615"></a><span class="k">    if</span><span class="p">(</span><span class="nb">len_trim</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">0</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="nb">len_trim</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_name</span><span class="p">())</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-616" name="ln-616" href="#ln-616"></a><span class="w">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_name</span><span class="p">())</span><span class="w"> </span><span class="o">//</span><span class="w"> </span><span class="s1">&#39;: &#39;</span><span class="w"> </span><span class="o">//</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-617" name="ln-617" href="#ln-617"></a>
+<a id="ln-618" name="ln-618" href="#ln-618"></a><span class="w">  </span><span class="k">end function </span><span class="n">validate_1scalar</span><span class="w"></span>
+<a id="ln-619" name="ln-619" href="#ln-619"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-620" name="ln-620" href="#ln-620"></a><span class="w">  </span><span class="k">function </span><span class="n">validate_2stream</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-621" name="ln-621" href="#ln-621"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_2str</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-622" name="ln-622" href="#ln-622"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="mi">128</span><span class="p">)</span><span class="w">                       </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-623" name="ln-623" href="#ln-623"></a>
+<a id="ln-624" name="ln-624" href="#ln-624"></a><span class="w">    </span><span class="kt">integer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">d1</span><span class="p">,</span><span class="w"> </span><span class="n">d2</span><span class="p">,</span><span class="w"> </span><span class="n">d3</span><span class="w"></span>
+<a id="ln-625" name="ln-625" href="#ln-625"></a>
+<a id="ln-626" name="ln-626" href="#ln-626"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s1">&#39;&#39;</span><span class="w"></span>
+<a id="ln-627" name="ln-627" href="#ln-627"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-628" name="ln-628" href="#ln-628"></a><span class="w">    </span><span class="c">! Array allocation status, sizing</span>
+<a id="ln-629" name="ln-629" href="#ln-629"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-630" name="ln-630" href="#ln-630"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">check_extents</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-631" name="ln-631" href="#ln-631"></a><span class="k">      if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="k">all</span><span class="p">([</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">),</span><span class="w"> </span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">ssa</span><span class="p">),</span><span class="w"> </span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">g</span><span class="p">)]))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-632" name="ln-632" href="#ln-632"></a><span class="k">        </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;validate: arrays not allocated/initialized&quot;</span><span class="w"></span>
+<a id="ln-633" name="ln-633" href="#ln-633"></a><span class="w">        </span><span class="k">return</span>
+<a id="ln-634" name="ln-634" href="#ln-634"></a><span class="k">      end if</span>
+<a id="ln-635" name="ln-635" href="#ln-635"></a><span class="k">      </span><span class="n">d1</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"></span>
+<a id="ln-636" name="ln-636" href="#ln-636"></a><span class="w">      </span><span class="n">d2</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="mi">2</span><span class="p">)</span><span class="w"></span>
+<a id="ln-637" name="ln-637" href="#ln-637"></a><span class="w">      </span><span class="n">d3</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="mi">3</span><span class="p">)</span><span class="w"></span>
+<a id="ln-638" name="ln-638" href="#ln-638"></a><span class="w">      </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">extents_are</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">d1</span><span class="p">,</span><span class="w"> </span><span class="n">d2</span><span class="p">,</span><span class="w"> </span><span class="n">d3</span><span class="p">)</span><span class="w"> </span><span class="p">.</span><span class="nb">or</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-639" name="ln-639" href="#ln-639"></a><span class="w">        </span><span class="p">.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">extents_are</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">g</span><span class="w">  </span><span class="p">,</span><span class="w"> </span><span class="n">d1</span><span class="p">,</span><span class="w"> </span><span class="n">d2</span><span class="p">,</span><span class="w"> </span><span class="n">d3</span><span class="p">))</span><span class="w">     </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-640" name="ln-640" href="#ln-640"></a><span class="w">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;validate: arrays not sized consistently&quot;</span><span class="w"></span>
+<a id="ln-641" name="ln-641" href="#ln-641"></a><span class="w">    </span><span class="k">end if</span><span class="w"></span>
+<a id="ln-642" name="ln-642" href="#ln-642"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-643" name="ln-643" href="#ln-643"></a><span class="w">    </span><span class="c">! Valid values</span>
+<a id="ln-644" name="ln-644" href="#ln-644"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-645" name="ln-645" href="#ln-645"></a><span class="w">    </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">check_values</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-646" name="ln-646" href="#ln-646"></a><span class="k">      if</span><span class="p">(</span><span class="n">any_vals_less_than</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w">  </span><span class="mf">0._wp</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-647" name="ln-647" href="#ln-647"></a><span class="w">        </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;validate: tau values out of range&quot;</span><span class="w"></span>
+<a id="ln-648" name="ln-648" href="#ln-648"></a><span class="w">      </span><span class="k">if</span><span class="p">(</span><span class="n">any_vals_outside</span><span class="w">  </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w">  </span><span class="mf">0._wp</span><span class="p">,</span><span class="w"> </span><span class="mf">1._wp</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-649" name="ln-649" href="#ln-649"></a><span class="w">        </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;validate: ssa values out of range&quot;</span><span class="w"></span>
+<a id="ln-650" name="ln-650" href="#ln-650"></a><span class="w">      </span><span class="k">if</span><span class="p">(</span><span class="n">any_vals_outside</span><span class="w">  </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">g</span><span class="w">  </span><span class="p">,</span><span class="w"> </span><span class="o">-</span><span class="mf">1._wp</span><span class="p">,</span><span class="w"> </span><span class="mf">1._wp</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-651" name="ln-651" href="#ln-651"></a><span class="w">        </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;validate: g values out of range&quot;</span><span class="w"></span>
+<a id="ln-652" name="ln-652" href="#ln-652"></a><span class="w">    </span><span class="k">end if</span>
+<a id="ln-653" name="ln-653" href="#ln-653"></a>
+<a id="ln-654" name="ln-654" href="#ln-654"></a><span class="k">    if</span><span class="p">(</span><span class="nb">len_trim</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">0</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="nb">len_trim</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_name</span><span class="p">())</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-655" name="ln-655" href="#ln-655"></a><span class="w">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_name</span><span class="p">())</span><span class="w"> </span><span class="o">//</span><span class="w"> </span><span class="s1">&#39;: &#39;</span><span class="w"> </span><span class="o">//</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-656" name="ln-656" href="#ln-656"></a>
+<a id="ln-657" name="ln-657" href="#ln-657"></a><span class="w">  </span><span class="k">end function </span><span class="n">validate_2stream</span><span class="w"></span>
+<a id="ln-658" name="ln-658" href="#ln-658"></a>
+<a id="ln-659" name="ln-659" href="#ln-659"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-660" name="ln-660" href="#ln-660"></a><span class="w">  </span><span class="k">function </span><span class="n">validate_nstream</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-661" name="ln-661" href="#ln-661"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_nstr</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-662" name="ln-662" href="#ln-662"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="mi">128</span><span class="p">)</span><span class="w">                       </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-663" name="ln-663" href="#ln-663"></a>
+<a id="ln-664" name="ln-664" href="#ln-664"></a><span class="w">    </span><span class="kt">integer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">d1</span><span class="p">,</span><span class="w"> </span><span class="n">d2</span><span class="p">,</span><span class="w"> </span><span class="n">d3</span><span class="p">,</span><span class="w"> </span><span class="n">d4</span><span class="w"></span>
+<a id="ln-665" name="ln-665" href="#ln-665"></a>
+<a id="ln-666" name="ln-666" href="#ln-666"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s1">&#39;&#39;</span><span class="w"></span>
+<a id="ln-667" name="ln-667" href="#ln-667"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-668" name="ln-668" href="#ln-668"></a><span class="w">    </span><span class="c">! Array allocation status, sizing</span>
+<a id="ln-669" name="ln-669" href="#ln-669"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-670" name="ln-670" href="#ln-670"></a><span class="w">    </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="k">all</span><span class="p">([</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">),</span><span class="w"> </span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">ssa</span><span class="p">),</span><span class="w"> </span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">p</span><span class="p">)]))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-671" name="ln-671" href="#ln-671"></a><span class="k">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;validate: arrays not allocated/initialized&quot;</span><span class="w"></span>
+<a id="ln-672" name="ln-672" href="#ln-672"></a><span class="w">      </span><span class="k">return</span>
+<a id="ln-673" name="ln-673" href="#ln-673"></a><span class="k">    end if</span>
+<a id="ln-674" name="ln-674" href="#ln-674"></a><span class="k">    </span><span class="n">d1</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"></span>
+<a id="ln-675" name="ln-675" href="#ln-675"></a><span class="w">    </span><span class="n">d2</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="mi">2</span><span class="p">)</span><span class="w"></span>
+<a id="ln-676" name="ln-676" href="#ln-676"></a><span class="w">    </span><span class="n">d3</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="mi">3</span><span class="p">)</span><span class="w"></span>
+<a id="ln-677" name="ln-677" href="#ln-677"></a><span class="w">    </span><span class="n">d4</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">p</span><span class="p">,</span><span class="w">   </span><span class="mi">1</span><span class="p">)</span><span class="w"></span>
+<a id="ln-678" name="ln-678" href="#ln-678"></a><span class="w">    </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">check_extents</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-679" name="ln-679" href="#ln-679"></a><span class="k">      if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">extents_are</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">d1</span><span class="p">,</span><span class="w"> </span><span class="n">d2</span><span class="p">,</span><span class="w"> </span><span class="n">d3</span><span class="p">)</span><span class="w"> </span><span class="p">.</span><span class="nb">or</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-680" name="ln-680" href="#ln-680"></a><span class="w">        </span><span class="p">.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">extents_are</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">p</span><span class="w">  </span><span class="p">,</span><span class="w"> </span><span class="n">d4</span><span class="p">,</span><span class="w"> </span><span class="n">d1</span><span class="p">,</span><span class="w"> </span><span class="n">d2</span><span class="p">,</span><span class="w"> </span><span class="n">d3</span><span class="p">))</span><span class="w">     </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-681" name="ln-681" href="#ln-681"></a><span class="w">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;validate: arrays not sized consistently&quot;</span><span class="w"></span>
+<a id="ln-682" name="ln-682" href="#ln-682"></a><span class="w">    </span><span class="k">end if</span><span class="w"></span>
+<a id="ln-683" name="ln-683" href="#ln-683"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-684" name="ln-684" href="#ln-684"></a><span class="w">    </span><span class="c">! Valid values</span>
+<a id="ln-685" name="ln-685" href="#ln-685"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-686" name="ln-686" href="#ln-686"></a><span class="w">    </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">check_values</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-687" name="ln-687" href="#ln-687"></a><span class="k">      if</span><span class="p">(</span><span class="n">any_vals_less_than</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w">  </span><span class="mf">0._wp</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-688" name="ln-688" href="#ln-688"></a><span class="w">        </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;validate: tau values out of range&quot;</span><span class="w"></span>
+<a id="ln-689" name="ln-689" href="#ln-689"></a><span class="w">      </span><span class="k">if</span><span class="p">(</span><span class="n">any_vals_outside</span><span class="w">  </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w">  </span><span class="mf">0._wp</span><span class="p">,</span><span class="w"> </span><span class="mf">1._wp</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-690" name="ln-690" href="#ln-690"></a><span class="w">        </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;validate: ssa values out of range&quot;</span><span class="w"></span>
+<a id="ln-691" name="ln-691" href="#ln-691"></a><span class="w">      </span><span class="k">if</span><span class="p">(</span><span class="n">any_vals_outside</span><span class="w">  </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">p</span><span class="p">(</span><span class="mi">1</span><span class="p">,:,:,:),</span><span class="w"> </span><span class="o">-</span><span class="mf">1._wp</span><span class="p">,</span><span class="w"> </span><span class="mf">1._wp</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-692" name="ln-692" href="#ln-692"></a><span class="w">        </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;validate: p(1,:,:,:)  = g values out of range&quot;</span><span class="w"></span>
+<a id="ln-693" name="ln-693" href="#ln-693"></a><span class="w">    </span><span class="k">end if</span>
+<a id="ln-694" name="ln-694" href="#ln-694"></a>
+<a id="ln-695" name="ln-695" href="#ln-695"></a><span class="k">    if</span><span class="p">(</span><span class="nb">len_trim</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">0</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="nb">len_trim</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_name</span><span class="p">())</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-696" name="ln-696" href="#ln-696"></a><span class="w">        </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_name</span><span class="p">())</span><span class="w"> </span><span class="o">//</span><span class="w"> </span><span class="s1">&#39;: &#39;</span><span class="w"> </span><span class="o">//</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-697" name="ln-697" href="#ln-697"></a><span class="w">  </span><span class="k">end function </span><span class="n">validate_nstream</span><span class="w"></span>
+<a id="ln-698" name="ln-698" href="#ln-698"></a>
+<a id="ln-699" name="ln-699" href="#ln-699"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-700" name="ln-700" href="#ln-700"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-701" name="ln-701" href="#ln-701"></a><span class="w">  </span><span class="c">!  Routines for array classes: subsetting of optical properties arrays along x (col) direction</span>
+<a id="ln-702" name="ln-702" href="#ln-702"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-703" name="ln-703" href="#ln-703"></a><span class="w">  </span><span class="c">! Allocate class, then arrays; copy. Could probably be more efficient if</span>
+<a id="ln-704" name="ln-704" href="#ln-704"></a><span class="w">  </span><span class="c">!   classes used pointers internally.</span>
+<a id="ln-705" name="ln-705" href="#ln-705"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-706" name="ln-706" href="#ln-706"></a><span class="w">  </span><span class="c">! This set takes start position and number as scalars</span>
+<a id="ln-707" name="ln-707" href="#ln-707"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-708" name="ln-708" href="#ln-708"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-709" name="ln-709" href="#ln-709"></a>
+<a id="ln-710" name="ln-710" href="#ln-710"></a><span class="w">  </span><span class="k">function </span><span class="n">subset_1scl_range</span><span class="p">(</span><span class="n">full</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">subset</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-711" name="ln-711" href="#ln-711"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_1scl</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">full</span><span class="w"></span>
+<a id="ln-712" name="ln-712" href="#ln-712"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">                      </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">start</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="w"></span>
+<a id="ln-713" name="ln-713" href="#ln-713"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_arry</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">subset</span><span class="w"></span>
+<a id="ln-714" name="ln-714" href="#ln-714"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="mi">128</span><span class="p">)</span><span class="w">                              </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-715" name="ln-715" href="#ln-715"></a>
+<a id="ln-716" name="ln-716" href="#ln-716"></a><span class="w">    </span><span class="kt">integer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">nmom</span><span class="w"></span>
+<a id="ln-717" name="ln-717" href="#ln-717"></a>
+<a id="ln-718" name="ln-718" href="#ln-718"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-719" name="ln-719" href="#ln-719"></a><span class="w">    </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-720" name="ln-720" href="#ln-720"></a><span class="k">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;optical_props%subset: Asking for a subset of uninitialized data&quot;</span><span class="w"></span>
+<a id="ln-721" name="ln-721" href="#ln-721"></a><span class="w">      </span><span class="k">return</span>
+<a id="ln-722" name="ln-722" href="#ln-722"></a><span class="k">    end if</span>
+<a id="ln-723" name="ln-723" href="#ln-723"></a><span class="k">    </span><span class="n">ncol</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">get_ncol</span><span class="p">()</span><span class="w"></span>
+<a id="ln-724" name="ln-724" href="#ln-724"></a><span class="w">    </span><span class="n">nlay</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">get_nlay</span><span class="p">()</span><span class="w"></span>
+<a id="ln-725" name="ln-725" href="#ln-725"></a><span class="w">    </span><span class="n">ngpt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">get_ngpt</span><span class="p">()</span><span class="w"></span>
+<a id="ln-726" name="ln-726" href="#ln-726"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">start</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="mi">1</span><span class="w"> </span><span class="p">.</span><span class="nb">or</span><span class="p">.</span><span class="w"> </span><span class="n">start</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">get_ncol</span><span class="p">())</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-727" name="ln-727" href="#ln-727"></a><span class="w">       </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;optical_props%subset: Asking for columns outside range&quot;</span><span class="w"></span>
+<a id="ln-728" name="ln-728" href="#ln-728"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-729" name="ln-729" href="#ln-729"></a>
+<a id="ln-730" name="ln-730" href="#ln-730"></a><span class="k">    if</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="k">call </span><span class="n">subset</span><span class="p">%</span><span class="n">finalize</span><span class="p">()</span><span class="w"></span>
+<a id="ln-731" name="ln-731" href="#ln-731"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">init</span><span class="p">(</span><span class="n">full</span><span class="p">)</span><span class="w"></span>
+<a id="ln-732" name="ln-732" href="#ln-732"></a><span class="w">    </span><span class="c">! Seems like the deallocation statements should be needed under Fortran 2003</span>
+<a id="ln-733" name="ln-733" href="#ln-733"></a><span class="w">    </span><span class="c">!   but Intel compiler doesn&#39;t run without them</span>
+<a id="ln-734" name="ln-734" href="#ln-734"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">tau</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">tau</span><span class="p">)</span><span class="w"></span>
+<a id="ln-735" name="ln-735" href="#ln-735"></a><span class="w">    </span><span class="k">select type</span><span class="w"> </span><span class="p">(</span><span class="n">subset</span><span class="p">)</span><span class="w"></span>
+<a id="ln-736" name="ln-736" href="#ln-736"></a><span class="w">      </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_1scl</span><span class="p">)</span><span class="w"></span>
+<a id="ln-737" name="ln-737" href="#ln-737"></a><span class="w">        </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">alloc_1scl</span><span class="p">(</span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">)</span><span class="w"></span>
+<a id="ln-738" name="ln-738" href="#ln-738"></a><span class="w">        </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-739" name="ln-739" href="#ln-739"></a><span class="k">      class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_2str</span><span class="p">)</span><span class="w"></span>
+<a id="ln-740" name="ln-740" href="#ln-740"></a><span class="w">        </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">ssa</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">ssa</span><span class="p">)</span><span class="w"></span>
+<a id="ln-741" name="ln-741" href="#ln-741"></a><span class="w">        </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">g</span><span class="w">  </span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">g</span><span class="w">  </span><span class="p">)</span><span class="w"></span>
+<a id="ln-742" name="ln-742" href="#ln-742"></a><span class="w">        </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">alloc_2str</span><span class="p">(</span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">)</span><span class="w"></span>
+<a id="ln-743" name="ln-743" href="#ln-743"></a><span class="w">        </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-744" name="ln-744" href="#ln-744"></a><span class="k">        </span><span class="n">subset</span><span class="p">%</span><span class="n">ssa</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">,:,:)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">0._wp</span><span class="w"></span>
+<a id="ln-745" name="ln-745" href="#ln-745"></a><span class="w">        </span><span class="n">subset</span><span class="p">%</span><span class="n">g</span><span class="w">  </span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">,:,:)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">0._wp</span><span class="w"></span>
+<a id="ln-746" name="ln-746" href="#ln-746"></a><span class="w">      </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_nstr</span><span class="p">)</span><span class="w"></span>
+<a id="ln-747" name="ln-747" href="#ln-747"></a><span class="w">        </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">ssa</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">ssa</span><span class="p">)</span><span class="w"></span>
+<a id="ln-748" name="ln-748" href="#ln-748"></a><span class="w">        </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">p</span><span class="w">  </span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-749" name="ln-749" href="#ln-749"></a><span class="k">          </span><span class="n">nmom</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">get_nmom</span><span class="p">()</span><span class="w"></span>
+<a id="ln-750" name="ln-750" href="#ln-750"></a><span class="w">          </span><span class="k">deallocate</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">p</span><span class="w">  </span><span class="p">)</span><span class="w"></span>
+<a id="ln-751" name="ln-751" href="#ln-751"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-752" name="ln-752" href="#ln-752"></a><span class="k">          </span><span class="n">nmom</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="w"></span>
+<a id="ln-753" name="ln-753" href="#ln-753"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-754" name="ln-754" href="#ln-754"></a><span class="k">        </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">alloc_nstr</span><span class="p">(</span><span class="n">nmom</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">)</span><span class="w"></span>
+<a id="ln-755" name="ln-755" href="#ln-755"></a><span class="w">        </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-756" name="ln-756" href="#ln-756"></a><span class="k">        </span><span class="n">subset</span><span class="p">%</span><span class="n">ssa</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">,:,:)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">0._wp</span><span class="w"></span>
+<a id="ln-757" name="ln-757" href="#ln-757"></a><span class="w">        </span><span class="n">subset</span><span class="p">%</span><span class="n">p</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">,:,:)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">0._wp</span><span class="w"></span>
+<a id="ln-758" name="ln-758" href="#ln-758"></a><span class="w">    </span><span class="k">end select</span>
+<a id="ln-759" name="ln-759" href="#ln-759"></a><span class="k">    call </span><span class="n">extract_subset</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="o">+</span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">tau</span><span class="p">)</span><span class="w"></span>
+<a id="ln-760" name="ln-760" href="#ln-760"></a>
+<a id="ln-761" name="ln-761" href="#ln-761"></a><span class="w">  </span><span class="k">end function </span><span class="n">subset_1scl_range</span><span class="w"></span>
+<a id="ln-762" name="ln-762" href="#ln-762"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-763" name="ln-763" href="#ln-763"></a><span class="w">  </span><span class="k">function </span><span class="n">subset_2str_range</span><span class="p">(</span><span class="n">full</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">subset</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-764" name="ln-764" href="#ln-764"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_2str</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">full</span><span class="w"></span>
+<a id="ln-765" name="ln-765" href="#ln-765"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">                      </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">start</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="w"></span>
+<a id="ln-766" name="ln-766" href="#ln-766"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_arry</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">subset</span><span class="w"></span>
+<a id="ln-767" name="ln-767" href="#ln-767"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="mi">128</span><span class="p">)</span><span class="w">                              </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-768" name="ln-768" href="#ln-768"></a>
+<a id="ln-769" name="ln-769" href="#ln-769"></a><span class="w">    </span><span class="kt">integer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">nmom</span><span class="w"></span>
+<a id="ln-770" name="ln-770" href="#ln-770"></a>
+<a id="ln-771" name="ln-771" href="#ln-771"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-772" name="ln-772" href="#ln-772"></a><span class="w">    </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-773" name="ln-773" href="#ln-773"></a><span class="k">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;optical_props%subset: Asking for a subset of uninitialized data&quot;</span><span class="w"></span>
+<a id="ln-774" name="ln-774" href="#ln-774"></a><span class="w">      </span><span class="k">return</span>
+<a id="ln-775" name="ln-775" href="#ln-775"></a><span class="k">    end if</span>
+<a id="ln-776" name="ln-776" href="#ln-776"></a><span class="k">    </span><span class="n">ncol</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">get_ncol</span><span class="p">()</span><span class="w"></span>
+<a id="ln-777" name="ln-777" href="#ln-777"></a><span class="w">    </span><span class="n">nlay</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">get_nlay</span><span class="p">()</span><span class="w"></span>
+<a id="ln-778" name="ln-778" href="#ln-778"></a><span class="w">    </span><span class="n">ngpt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">get_ngpt</span><span class="p">()</span><span class="w"></span>
+<a id="ln-779" name="ln-779" href="#ln-779"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">start</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="mi">1</span><span class="w"> </span><span class="p">.</span><span class="nb">or</span><span class="p">.</span><span class="w"> </span><span class="n">start</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">get_ncol</span><span class="p">())</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-780" name="ln-780" href="#ln-780"></a><span class="w">       </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;optical_props%subset: Asking for columns outside range&quot;</span><span class="w"></span>
+<a id="ln-781" name="ln-781" href="#ln-781"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-782" name="ln-782" href="#ln-782"></a>
+<a id="ln-783" name="ln-783" href="#ln-783"></a><span class="k">    if</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="k">call </span><span class="n">subset</span><span class="p">%</span><span class="n">finalize</span><span class="p">()</span><span class="w"></span>
+<a id="ln-784" name="ln-784" href="#ln-784"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">init</span><span class="p">(</span><span class="n">full</span><span class="p">)</span><span class="w"></span>
+<a id="ln-785" name="ln-785" href="#ln-785"></a><span class="w">    </span><span class="k">select type</span><span class="w"> </span><span class="p">(</span><span class="n">subset</span><span class="p">)</span><span class="w"></span>
+<a id="ln-786" name="ln-786" href="#ln-786"></a><span class="w">      </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_1scl</span><span class="p">)</span><span class="w"></span>
+<a id="ln-787" name="ln-787" href="#ln-787"></a><span class="w">        </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">alloc_1scl</span><span class="p">(</span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">)</span><span class="w"></span>
+<a id="ln-788" name="ln-788" href="#ln-788"></a><span class="w">        </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-789" name="ln-789" href="#ln-789"></a><span class="k">        call </span><span class="n">extract_subset</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="o">+</span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">tau</span><span class="p">)</span><span class="w"></span>
+<a id="ln-790" name="ln-790" href="#ln-790"></a><span class="w">      </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_2str</span><span class="p">)</span><span class="w"></span>
+<a id="ln-791" name="ln-791" href="#ln-791"></a><span class="w">        </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">ssa</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">ssa</span><span class="p">)</span><span class="w"></span>
+<a id="ln-792" name="ln-792" href="#ln-792"></a><span class="w">        </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">g</span><span class="w">  </span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">g</span><span class="w">  </span><span class="p">)</span><span class="w"></span>
+<a id="ln-793" name="ln-793" href="#ln-793"></a><span class="w">        </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">alloc_2str</span><span class="p">(</span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">)</span><span class="w"></span>
+<a id="ln-794" name="ln-794" href="#ln-794"></a><span class="w">        </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-795" name="ln-795" href="#ln-795"></a><span class="k">        call </span><span class="n">extract_subset</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="o">+</span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">tau</span><span class="p">)</span><span class="w"></span>
+<a id="ln-796" name="ln-796" href="#ln-796"></a><span class="w">        </span><span class="k">call </span><span class="n">extract_subset</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="o">+</span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">ssa</span><span class="p">)</span><span class="w"></span>
+<a id="ln-797" name="ln-797" href="#ln-797"></a><span class="w">        </span><span class="k">call </span><span class="n">extract_subset</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">g</span><span class="w">  </span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="o">+</span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">g</span><span class="w">  </span><span class="p">)</span><span class="w"></span>
+<a id="ln-798" name="ln-798" href="#ln-798"></a><span class="w">      </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_nstr</span><span class="p">)</span><span class="w"></span>
+<a id="ln-799" name="ln-799" href="#ln-799"></a><span class="w">        </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">ssa</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">ssa</span><span class="p">)</span><span class="w"></span>
+<a id="ln-800" name="ln-800" href="#ln-800"></a><span class="w">        </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">p</span><span class="w">  </span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-801" name="ln-801" href="#ln-801"></a><span class="k">          </span><span class="n">nmom</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">get_nmom</span><span class="p">()</span><span class="w"></span>
+<a id="ln-802" name="ln-802" href="#ln-802"></a><span class="w">          </span><span class="k">deallocate</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">p</span><span class="w">  </span><span class="p">)</span><span class="w"></span>
+<a id="ln-803" name="ln-803" href="#ln-803"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-804" name="ln-804" href="#ln-804"></a><span class="k">          </span><span class="n">nmom</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="w"></span>
+<a id="ln-805" name="ln-805" href="#ln-805"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-806" name="ln-806" href="#ln-806"></a><span class="k">        </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">alloc_nstr</span><span class="p">(</span><span class="n">nmom</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">)</span><span class="w"></span>
+<a id="ln-807" name="ln-807" href="#ln-807"></a><span class="w">        </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-808" name="ln-808" href="#ln-808"></a><span class="k">        call </span><span class="n">extract_subset</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="o">+</span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">tau</span><span class="p">)</span><span class="w"></span>
+<a id="ln-809" name="ln-809" href="#ln-809"></a><span class="w">        </span><span class="k">call </span><span class="n">extract_subset</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="o">+</span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">ssa</span><span class="p">)</span><span class="w"></span>
+<a id="ln-810" name="ln-810" href="#ln-810"></a><span class="w">        </span><span class="n">subset</span><span class="p">%</span><span class="n">p</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">,:,:)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">g</span><span class="w">  </span><span class="p">(</span><span class="n">start</span><span class="p">:</span><span class="n">start</span><span class="o">+</span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="p">,:,:)</span><span class="w"></span>
+<a id="ln-811" name="ln-811" href="#ln-811"></a><span class="w">        </span><span class="n">subset</span><span class="p">%</span><span class="n">p</span><span class="p">(</span><span class="mi">2</span><span class="p">:,:,</span><span class="w"> </span><span class="p">:,:)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">0._wp</span><span class="w"></span>
+<a id="ln-812" name="ln-812" href="#ln-812"></a><span class="w">    </span><span class="k">end select</span>
+<a id="ln-813" name="ln-813" href="#ln-813"></a>
+<a id="ln-814" name="ln-814" href="#ln-814"></a><span class="k">  end function </span><span class="n">subset_2str_range</span><span class="w"></span>
+<a id="ln-815" name="ln-815" href="#ln-815"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-816" name="ln-816" href="#ln-816"></a><span class="w">  </span><span class="k">function </span><span class="n">subset_nstr_range</span><span class="p">(</span><span class="n">full</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">subset</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-817" name="ln-817" href="#ln-817"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_nstr</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">full</span><span class="w"></span>
+<a id="ln-818" name="ln-818" href="#ln-818"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">                      </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">start</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="w"></span>
+<a id="ln-819" name="ln-819" href="#ln-819"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_arry</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">subset</span><span class="w"></span>
+<a id="ln-820" name="ln-820" href="#ln-820"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="mi">128</span><span class="p">)</span><span class="w">                              </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-821" name="ln-821" href="#ln-821"></a>
+<a id="ln-822" name="ln-822" href="#ln-822"></a><span class="w">    </span><span class="kt">integer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">nmom</span><span class="w"></span>
+<a id="ln-823" name="ln-823" href="#ln-823"></a>
+<a id="ln-824" name="ln-824" href="#ln-824"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-825" name="ln-825" href="#ln-825"></a><span class="w">    </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-826" name="ln-826" href="#ln-826"></a><span class="k">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;optical_props%subset: Asking for a subset of uninitialized data&quot;</span><span class="w"></span>
+<a id="ln-827" name="ln-827" href="#ln-827"></a><span class="w">      </span><span class="k">return</span>
+<a id="ln-828" name="ln-828" href="#ln-828"></a><span class="k">    end if</span>
+<a id="ln-829" name="ln-829" href="#ln-829"></a><span class="k">    </span><span class="n">ncol</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">get_ncol</span><span class="p">()</span><span class="w"></span>
+<a id="ln-830" name="ln-830" href="#ln-830"></a><span class="w">    </span><span class="n">nlay</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">get_nlay</span><span class="p">()</span><span class="w"></span>
+<a id="ln-831" name="ln-831" href="#ln-831"></a><span class="w">    </span><span class="n">ngpt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">get_ngpt</span><span class="p">()</span><span class="w"></span>
+<a id="ln-832" name="ln-832" href="#ln-832"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">start</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="mi">1</span><span class="w"> </span><span class="p">.</span><span class="nb">or</span><span class="p">.</span><span class="w"> </span><span class="n">start</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">get_ncol</span><span class="p">())</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-833" name="ln-833" href="#ln-833"></a><span class="w">       </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;optical_props%subset: Asking for columns outside range&quot;</span><span class="w"></span>
+<a id="ln-834" name="ln-834" href="#ln-834"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-835" name="ln-835" href="#ln-835"></a>
+<a id="ln-836" name="ln-836" href="#ln-836"></a><span class="k">    if</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="k">call </span><span class="n">subset</span><span class="p">%</span><span class="n">finalize</span><span class="p">()</span><span class="w"></span>
+<a id="ln-837" name="ln-837" href="#ln-837"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">init</span><span class="p">(</span><span class="n">full</span><span class="p">)</span><span class="w"></span>
+<a id="ln-838" name="ln-838" href="#ln-838"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">tau</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">tau</span><span class="p">)</span><span class="w"></span>
+<a id="ln-839" name="ln-839" href="#ln-839"></a><span class="w">    </span><span class="k">select type</span><span class="w"> </span><span class="p">(</span><span class="n">subset</span><span class="p">)</span><span class="w"></span>
+<a id="ln-840" name="ln-840" href="#ln-840"></a><span class="w">      </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_1scl</span><span class="p">)</span><span class="w"></span>
+<a id="ln-841" name="ln-841" href="#ln-841"></a><span class="w">        </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">alloc_1scl</span><span class="p">(</span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">)</span><span class="w"></span>
+<a id="ln-842" name="ln-842" href="#ln-842"></a><span class="w">        </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-843" name="ln-843" href="#ln-843"></a><span class="k">        call </span><span class="n">extract_subset</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="o">+</span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">tau</span><span class="p">)</span><span class="w"></span>
+<a id="ln-844" name="ln-844" href="#ln-844"></a><span class="w">      </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_2str</span><span class="p">)</span><span class="w"></span>
+<a id="ln-845" name="ln-845" href="#ln-845"></a><span class="w">        </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">ssa</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">ssa</span><span class="p">)</span><span class="w"></span>
+<a id="ln-846" name="ln-846" href="#ln-846"></a><span class="w">        </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">g</span><span class="w">  </span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">g</span><span class="w">  </span><span class="p">)</span><span class="w"></span>
+<a id="ln-847" name="ln-847" href="#ln-847"></a><span class="w">        </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">alloc_2str</span><span class="p">(</span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">)</span><span class="w"></span>
+<a id="ln-848" name="ln-848" href="#ln-848"></a><span class="w">        </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-849" name="ln-849" href="#ln-849"></a><span class="k">        call </span><span class="n">extract_subset</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="o">+</span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">tau</span><span class="p">)</span><span class="w"></span>
+<a id="ln-850" name="ln-850" href="#ln-850"></a><span class="w">        </span><span class="k">call </span><span class="n">extract_subset</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="o">+</span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">ssa</span><span class="p">)</span><span class="w"></span>
+<a id="ln-851" name="ln-851" href="#ln-851"></a><span class="w">        </span><span class="n">subset</span><span class="p">%</span><span class="n">g</span><span class="w">  </span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">,:,:)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">p</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="n">start</span><span class="p">:</span><span class="n">start</span><span class="o">+</span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="p">,:,:)</span><span class="w"></span>
+<a id="ln-852" name="ln-852" href="#ln-852"></a><span class="w">      </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_nstr</span><span class="p">)</span><span class="w"></span>
+<a id="ln-853" name="ln-853" href="#ln-853"></a><span class="w">        </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">ssa</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">ssa</span><span class="p">)</span><span class="w"></span>
+<a id="ln-854" name="ln-854" href="#ln-854"></a><span class="w">        </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">p</span><span class="w">  </span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">p</span><span class="w">  </span><span class="p">)</span><span class="w"></span>
+<a id="ln-855" name="ln-855" href="#ln-855"></a><span class="w">        </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">alloc_nstr</span><span class="p">(</span><span class="n">nmom</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">)</span><span class="w"></span>
+<a id="ln-856" name="ln-856" href="#ln-856"></a><span class="w">        </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-857" name="ln-857" href="#ln-857"></a><span class="k">        call </span><span class="n">extract_subset</span><span class="p">(</span><span class="w">      </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="o">+</span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">tau</span><span class="p">)</span><span class="w"></span>
+<a id="ln-858" name="ln-858" href="#ln-858"></a><span class="w">        </span><span class="k">call </span><span class="n">extract_subset</span><span class="p">(</span><span class="w">      </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="o">+</span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">ssa</span><span class="p">)</span><span class="w"></span>
+<a id="ln-859" name="ln-859" href="#ln-859"></a><span class="w">        </span><span class="k">call </span><span class="n">extract_subset</span><span class="p">(</span><span class="n">nmom</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">p</span><span class="w">  </span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="o">+</span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">p</span><span class="w">  </span><span class="p">)</span><span class="w"></span>
+<a id="ln-860" name="ln-860" href="#ln-860"></a><span class="w">    </span><span class="k">end select</span>
+<a id="ln-861" name="ln-861" href="#ln-861"></a><span class="k">  end function </span><span class="n">subset_nstr_range</span><span class="w"></span>
+<a id="ln-862" name="ln-862" href="#ln-862"></a>
+<a id="ln-863" name="ln-863" href="#ln-863"></a><span class="w">  </span><span class="c">!&gt; ------------------------------------------------------------------------------------------</span>
+<a id="ln-864" name="ln-864" href="#ln-864"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-865" name="ln-865" href="#ln-865"></a><span class="w">  </span><span class="c">!&gt;  Routines for array classes: incrementing</span>
+<a id="ln-866" name="ln-866" href="#ln-866"></a><span class="w">  </span><span class="c">!&gt;   a%increment(b) adds the values of a to b, changing b and leaving a untouched</span>
+<a id="ln-867" name="ln-867" href="#ln-867"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-868" name="ln-868" href="#ln-868"></a><span class="w">  </span><span class="c">!&gt; -----------------------------------------------------------------------------------------</span>
+<a id="ln-869" name="ln-869" href="#ln-869"></a><span class="w">  </span><span class="k">function </span><span class="n">increment</span><span class="p">(</span><span class="n">op_in</span><span class="p">,</span><span class="w"> </span><span class="n">op_io</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-870" name="ln-870" href="#ln-870"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_arry</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">op_in</span><span class="w"></span>
+<a id="ln-871" name="ln-871" href="#ln-871"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_arry</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">op_io</span><span class="w"></span>
+<a id="ln-872" name="ln-872" href="#ln-872"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="mi">128</span><span class="p">)</span><span class="w">                              </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-873" name="ln-873" href="#ln-873"></a><span class="w">    </span><span class="c">! -----</span>
+<a id="ln-874" name="ln-874" href="#ln-874"></a><span class="w">    </span><span class="kt">integer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="w"></span>
+<a id="ln-875" name="ln-875" href="#ln-875"></a><span class="w">    </span><span class="c">! -----</span>
+<a id="ln-876" name="ln-876" href="#ln-876"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-877" name="ln-877" href="#ln-877"></a><span class="w">    </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-878" name="ln-878" href="#ln-878"></a><span class="w">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;ty_optical_props%increment: Incrementing optical properties aren&#39;t initialized&quot;</span><span class="w"></span>
+<a id="ln-879" name="ln-879" href="#ln-879"></a><span class="w">    </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-880" name="ln-880" href="#ln-880"></a><span class="w">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;ty_optical_props%increment: optical properties to be incremented aren&#39;t initialized&quot;</span><span class="w"></span>
+<a id="ln-881" name="ln-881" href="#ln-881"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w">  </span><span class="k">return</span>
+<a id="ln-882" name="ln-882" href="#ln-882"></a>
+<a id="ln-883" name="ln-883" href="#ln-883"></a><span class="k">    </span><span class="n">ncol</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_ncol</span><span class="p">()</span><span class="w"></span>
+<a id="ln-884" name="ln-884" href="#ln-884"></a><span class="w">    </span><span class="n">nlay</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_nlay</span><span class="p">()</span><span class="w"></span>
+<a id="ln-885" name="ln-885" href="#ln-885"></a><span class="w">    </span><span class="n">ngpt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_ngpt</span><span class="p">()</span><span class="w"></span>
+<a id="ln-886" name="ln-886" href="#ln-886"></a><span class="w">    </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">bands_are_equal</span><span class="p">(</span><span class="n">op_io</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-887" name="ln-887" href="#ln-887"></a><span class="w">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;ty_optical_props%increment: optical properties objects have different band structures&quot;</span><span class="w"></span>
+<a id="ln-888" name="ln-888" href="#ln-888"></a><span class="w">    </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="k">all</span><span class="p">([</span><span class="n">op_in</span><span class="p">%</span><span class="n">get_ncol</span><span class="p">(),</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">get_nlay</span><span class="p">()]</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="p">[</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">]))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-889" name="ln-889" href="#ln-889"></a><span class="w">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;ty_optical_props%increment: optical properties objects have different ncol and/or nlay&quot;</span><span class="w"></span>
+<a id="ln-890" name="ln-890" href="#ln-890"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w">  </span><span class="k">return</span>
+<a id="ln-891" name="ln-891" href="#ln-891"></a>
+<a id="ln-892" name="ln-892" href="#ln-892"></a><span class="k">    if</span><span class="p">(</span><span class="n">op_in</span><span class="p">%</span><span class="n">gpoints_are_equal</span><span class="p">(</span><span class="n">op_io</span><span class="p">))</span><span class="w"> </span><span class="k">then</span><span class="w"></span>
+<a id="ln-893" name="ln-893" href="#ln-893"></a><span class="w">      </span><span class="c">!</span>
+<a id="ln-894" name="ln-894" href="#ln-894"></a><span class="w">      </span><span class="c">! Increment by gpoint</span>
+<a id="ln-895" name="ln-895" href="#ln-895"></a><span class="w">      </span><span class="c">!   (or by band if both op_in and op_io are defined that way)</span>
+<a id="ln-896" name="ln-896" href="#ln-896"></a><span class="w">      </span><span class="c">!</span>
+<a id="ln-897" name="ln-897" href="#ln-897"></a><span class="w">      </span><span class="k">select type</span><span class="w"> </span><span class="p">(</span><span class="n">op_io</span><span class="p">)</span><span class="w"></span>
+<a id="ln-898" name="ln-898" href="#ln-898"></a><span class="w">      </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_1scl</span><span class="p">)</span><span class="w"></span>
+<a id="ln-899" name="ln-899" href="#ln-899"></a><span class="w">          </span><span class="k">select type</span><span class="w"> </span><span class="p">(</span><span class="n">op_in</span><span class="p">)</span><span class="w"></span>
+<a id="ln-900" name="ln-900" href="#ln-900"></a><span class="w">           </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_1scl</span><span class="p">)</span><span class="w"></span>
+<a id="ln-901" name="ln-901" href="#ln-901"></a><span class="w">             </span><span class="k">call </span><span class="n">increment_1scalar_by_1scalar</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-902" name="ln-902" href="#ln-902"></a><span class="w">                                               </span><span class="n">op_io</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w">          </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-903" name="ln-903" href="#ln-903"></a><span class="w">                                               </span><span class="n">op_in</span><span class="p">%</span><span class="n">tau</span><span class="p">)</span><span class="w"></span>
+<a id="ln-904" name="ln-904" href="#ln-904"></a><span class="w">           </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_2str</span><span class="p">)</span><span class="w"></span>
+<a id="ln-905" name="ln-905" href="#ln-905"></a><span class="w">             </span><span class="k">call </span><span class="n">increment_1scalar_by_2stream</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-906" name="ln-906" href="#ln-906"></a><span class="w">                                               </span><span class="n">op_io</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w">          </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-907" name="ln-907" href="#ln-907"></a><span class="w">                                               </span><span class="n">op_in</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">ssa</span><span class="p">)</span><span class="w"></span>
+<a id="ln-908" name="ln-908" href="#ln-908"></a>
+<a id="ln-909" name="ln-909" href="#ln-909"></a><span class="w">           </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_nstr</span><span class="p">)</span><span class="w"></span>
+<a id="ln-910" name="ln-910" href="#ln-910"></a><span class="w">             </span><span class="k">call </span><span class="n">increment_1scalar_by_nstream</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-911" name="ln-911" href="#ln-911"></a><span class="w">                                               </span><span class="n">op_io</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w">          </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-912" name="ln-912" href="#ln-912"></a><span class="w">                                               </span><span class="n">op_in</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">ssa</span><span class="p">)</span><span class="w"></span>
+<a id="ln-913" name="ln-913" href="#ln-913"></a><span class="w">          </span><span class="k">end select</span>
+<a id="ln-914" name="ln-914" href="#ln-914"></a><span class="k">      class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_2str</span><span class="p">)</span><span class="w"></span>
+<a id="ln-915" name="ln-915" href="#ln-915"></a><span class="w">        </span><span class="k">select type</span><span class="w"> </span><span class="p">(</span><span class="n">op_in</span><span class="p">)</span><span class="w"></span>
+<a id="ln-916" name="ln-916" href="#ln-916"></a><span class="w">          </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_1scl</span><span class="p">)</span><span class="w"></span>
+<a id="ln-917" name="ln-917" href="#ln-917"></a><span class="w">            </span><span class="k">call </span><span class="n">increment_2stream_by_1scalar</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w">   </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-918" name="ln-918" href="#ln-918"></a><span class="w">                                              </span><span class="n">op_io</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">ssa</span><span class="p">,&amp;</span><span class="w"></span>
+<a id="ln-919" name="ln-919" href="#ln-919"></a><span class="w">                                              </span><span class="n">op_in</span><span class="p">%</span><span class="n">tau</span><span class="p">)</span><span class="w"></span>
+<a id="ln-920" name="ln-920" href="#ln-920"></a><span class="w">          </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_2str</span><span class="p">)</span><span class="w"></span>
+<a id="ln-921" name="ln-921" href="#ln-921"></a><span class="w">            </span><span class="k">call </span><span class="n">increment_2stream_by_2stream</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w">        </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-922" name="ln-922" href="#ln-922"></a><span class="w">                                              </span><span class="n">op_io</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">g</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-923" name="ln-923" href="#ln-923"></a><span class="w">                                              </span><span class="n">op_in</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">g</span><span class="p">)</span><span class="w"></span>
+<a id="ln-924" name="ln-924" href="#ln-924"></a><span class="w">          </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_nstr</span><span class="p">)</span><span class="w"></span>
+<a id="ln-925" name="ln-925" href="#ln-925"></a><span class="w">            </span><span class="k">call </span><span class="n">increment_2stream_by_nstream</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">get_nmom</span><span class="p">(),</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-926" name="ln-926" href="#ln-926"></a><span class="w">                                              </span><span class="n">op_io</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">g</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-927" name="ln-927" href="#ln-927"></a><span class="w">                                              </span><span class="n">op_in</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">p</span><span class="p">)</span><span class="w"></span>
+<a id="ln-928" name="ln-928" href="#ln-928"></a><span class="w">        </span><span class="k">end select</span>
+<a id="ln-929" name="ln-929" href="#ln-929"></a>
+<a id="ln-930" name="ln-930" href="#ln-930"></a><span class="k">      class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_nstr</span><span class="p">)</span><span class="w"></span>
+<a id="ln-931" name="ln-931" href="#ln-931"></a><span class="w">        </span><span class="k">select type</span><span class="w"> </span><span class="p">(</span><span class="n">op_in</span><span class="p">)</span><span class="w"></span>
+<a id="ln-932" name="ln-932" href="#ln-932"></a><span class="w">          </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_1scl</span><span class="p">)</span><span class="w"></span>
+<a id="ln-933" name="ln-933" href="#ln-933"></a><span class="w">            </span><span class="k">call </span><span class="n">increment_nstream_by_1scalar</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-934" name="ln-934" href="#ln-934"></a><span class="w">                                              </span><span class="n">op_io</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-935" name="ln-935" href="#ln-935"></a><span class="w">                                              </span><span class="n">op_in</span><span class="p">%</span><span class="n">tau</span><span class="p">)</span><span class="w"></span>
+<a id="ln-936" name="ln-936" href="#ln-936"></a><span class="w">          </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_2str</span><span class="p">)</span><span class="w"></span>
+<a id="ln-937" name="ln-937" href="#ln-937"></a><span class="w">            </span><span class="k">call </span><span class="n">increment_nstream_by_2stream</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_nmom</span><span class="p">(),</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-938" name="ln-938" href="#ln-938"></a><span class="w">                                              </span><span class="n">op_io</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">p</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-939" name="ln-939" href="#ln-939"></a><span class="w">                                              </span><span class="n">op_in</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">g</span><span class="p">)</span><span class="w"></span>
+<a id="ln-940" name="ln-940" href="#ln-940"></a><span class="w">          </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_nstr</span><span class="p">)</span><span class="w"></span>
+<a id="ln-941" name="ln-941" href="#ln-941"></a><span class="w">            </span><span class="k">call </span><span class="n">increment_nstream_by_nstream</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_nmom</span><span class="p">(),</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">get_nmom</span><span class="p">(),</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-942" name="ln-942" href="#ln-942"></a><span class="w">                                              </span><span class="n">op_io</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">p</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-943" name="ln-943" href="#ln-943"></a><span class="w">                                              </span><span class="n">op_in</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">p</span><span class="p">)</span><span class="w"></span>
+<a id="ln-944" name="ln-944" href="#ln-944"></a><span class="w">        </span><span class="k">end select</span>
+<a id="ln-945" name="ln-945" href="#ln-945"></a><span class="k">      end select</span>
+<a id="ln-946" name="ln-946" href="#ln-946"></a><span class="k">    else</span><span class="w"></span>
+<a id="ln-947" name="ln-947" href="#ln-947"></a><span class="w">      </span><span class="c">!</span>
+<a id="ln-948" name="ln-948" href="#ln-948"></a><span class="w">      </span><span class="c">! Values defined by-band will have ngpt() = nband()</span>
+<a id="ln-949" name="ln-949" href="#ln-949"></a><span class="w">      </span><span class="c">! We can use values by band in op_in to increment op_io</span>
+<a id="ln-950" name="ln-950" href="#ln-950"></a><span class="w">      </span><span class="c">!   Anything else is an error</span>
+<a id="ln-951" name="ln-951" href="#ln-951"></a><span class="w">      </span><span class="c">!</span>
+<a id="ln-952" name="ln-952" href="#ln-952"></a><span class="w">      </span><span class="k">if</span><span class="p">(</span><span class="n">op_in</span><span class="p">%</span><span class="n">get_ngpt</span><span class="p">()</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_nband</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-953" name="ln-953" href="#ln-953"></a><span class="k">        </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;ty_optical_props%increment: optical properties objects have incompatible g-point structures&quot;</span><span class="w"></span>
+<a id="ln-954" name="ln-954" href="#ln-954"></a><span class="w">        </span><span class="k">return</span>
+<a id="ln-955" name="ln-955" href="#ln-955"></a><span class="k">      end if</span><span class="w"></span>
+<a id="ln-956" name="ln-956" href="#ln-956"></a><span class="w">      </span><span class="c">!</span>
+<a id="ln-957" name="ln-957" href="#ln-957"></a><span class="w">      </span><span class="c">! Increment by band</span>
+<a id="ln-958" name="ln-958" href="#ln-958"></a><span class="w">      </span><span class="c">!</span>
+<a id="ln-959" name="ln-959" href="#ln-959"></a><span class="w">      </span><span class="k">select type</span><span class="w"> </span><span class="p">(</span><span class="n">op_io</span><span class="p">)</span><span class="w"></span>
+<a id="ln-960" name="ln-960" href="#ln-960"></a><span class="w">        </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_1scl</span><span class="p">)</span><span class="w"></span>
+<a id="ln-961" name="ln-961" href="#ln-961"></a><span class="w">          </span><span class="k">select type</span><span class="w"> </span><span class="p">(</span><span class="n">op_in</span><span class="p">)</span><span class="w"></span>
+<a id="ln-962" name="ln-962" href="#ln-962"></a><span class="w">          </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_1scl</span><span class="p">)</span><span class="w"></span>
+<a id="ln-963" name="ln-963" href="#ln-963"></a><span class="w">              </span><span class="k">call </span><span class="n">inc_1scalar_by_1scalar_bybnd</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-964" name="ln-964" href="#ln-964"></a><span class="w">                                                </span><span class="n">op_io</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w">          </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-965" name="ln-965" href="#ln-965"></a><span class="w">                                                </span><span class="n">op_in</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w">          </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-966" name="ln-966" href="#ln-966"></a><span class="w">                                                </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_nband</span><span class="p">(),</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_band_lims_gpoint</span><span class="p">())</span><span class="w"></span>
+<a id="ln-967" name="ln-967" href="#ln-967"></a><span class="w">            </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_2str</span><span class="p">)</span><span class="w"></span>
+<a id="ln-968" name="ln-968" href="#ln-968"></a><span class="w">              </span><span class="k">call </span><span class="n">inc_1scalar_by_2stream_bybnd</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-969" name="ln-969" href="#ln-969"></a><span class="w">                                                </span><span class="n">op_io</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w">          </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-970" name="ln-970" href="#ln-970"></a><span class="w">                                                </span><span class="n">op_in</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-971" name="ln-971" href="#ln-971"></a><span class="w">                                                </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_nband</span><span class="p">(),</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_band_lims_gpoint</span><span class="p">())</span><span class="w"></span>
+<a id="ln-972" name="ln-972" href="#ln-972"></a><span class="w">            </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_nstr</span><span class="p">)</span><span class="w"></span>
+<a id="ln-973" name="ln-973" href="#ln-973"></a><span class="w">              </span><span class="k">call </span><span class="n">inc_1scalar_by_nstream_bybnd</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-974" name="ln-974" href="#ln-974"></a><span class="w">                                                </span><span class="n">op_io</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w">          </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-975" name="ln-975" href="#ln-975"></a><span class="w">                                                </span><span class="n">op_in</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-976" name="ln-976" href="#ln-976"></a><span class="w">                                                </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_nband</span><span class="p">(),</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_band_lims_gpoint</span><span class="p">())</span><span class="w"></span>
+<a id="ln-977" name="ln-977" href="#ln-977"></a><span class="w">          </span><span class="k">end select</span>
+<a id="ln-978" name="ln-978" href="#ln-978"></a>
+<a id="ln-979" name="ln-979" href="#ln-979"></a><span class="k">        class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_2str</span><span class="p">)</span><span class="w"></span>
+<a id="ln-980" name="ln-980" href="#ln-980"></a><span class="w">          </span><span class="k">select type</span><span class="w"> </span><span class="p">(</span><span class="n">op_in</span><span class="p">)</span><span class="w"></span>
+<a id="ln-981" name="ln-981" href="#ln-981"></a><span class="w">            </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_1scl</span><span class="p">)</span><span class="w"></span>
+<a id="ln-982" name="ln-982" href="#ln-982"></a><span class="w">              </span><span class="k">call </span><span class="n">inc_2stream_by_1scalar_bybnd</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-983" name="ln-983" href="#ln-983"></a><span class="w">                                                </span><span class="n">op_io</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-984" name="ln-984" href="#ln-984"></a><span class="w">                                                </span><span class="n">op_in</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w">          </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-985" name="ln-985" href="#ln-985"></a><span class="w">                                                </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_nband</span><span class="p">(),</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_band_lims_gpoint</span><span class="p">())</span><span class="w"></span>
+<a id="ln-986" name="ln-986" href="#ln-986"></a><span class="w">            </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_2str</span><span class="p">)</span><span class="w"></span>
+<a id="ln-987" name="ln-987" href="#ln-987"></a><span class="w">              </span><span class="k">call </span><span class="n">inc_2stream_by_2stream_bybnd</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w">        </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-988" name="ln-988" href="#ln-988"></a><span class="w">                                                </span><span class="n">op_io</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">g</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-989" name="ln-989" href="#ln-989"></a><span class="w">                                                </span><span class="n">op_in</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">g</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-990" name="ln-990" href="#ln-990"></a><span class="w">                                                </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_nband</span><span class="p">(),</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_band_lims_gpoint</span><span class="p">())</span><span class="w"></span>
+<a id="ln-991" name="ln-991" href="#ln-991"></a><span class="w">            </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_nstr</span><span class="p">)</span><span class="w"></span>
+<a id="ln-992" name="ln-992" href="#ln-992"></a><span class="w">              </span><span class="k">call </span><span class="n">inc_2stream_by_nstream_bybnd</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">get_nmom</span><span class="p">(),</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-993" name="ln-993" href="#ln-993"></a><span class="w">                                                </span><span class="n">op_io</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">g</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-994" name="ln-994" href="#ln-994"></a><span class="w">                                                </span><span class="n">op_in</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">p</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-995" name="ln-995" href="#ln-995"></a><span class="w">                                                </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_nband</span><span class="p">(),</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_band_lims_gpoint</span><span class="p">())</span><span class="w"></span>
+<a id="ln-996" name="ln-996" href="#ln-996"></a><span class="w">          </span><span class="k">end select</span>
+<a id="ln-997" name="ln-997" href="#ln-997"></a>
+<a id="ln-998" name="ln-998" href="#ln-998"></a><span class="k">        class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_nstr</span><span class="p">)</span><span class="w"></span>
+<a id="ln-999" name="ln-999" href="#ln-999"></a><span class="w">          </span><span class="k">select type</span><span class="w"> </span><span class="p">(</span><span class="n">op_in</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1000" name="ln-1000" href="#ln-1000"></a><span class="w">            </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_1scl</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1001" name="ln-1001" href="#ln-1001"></a><span class="w">              </span><span class="k">call </span><span class="n">inc_nstream_by_1scalar_bybnd</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-1002" name="ln-1002" href="#ln-1002"></a><span class="w">                                                </span><span class="n">op_io</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-1003" name="ln-1003" href="#ln-1003"></a><span class="w">                                                </span><span class="n">op_in</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w">          </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-1004" name="ln-1004" href="#ln-1004"></a><span class="w">                                                </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_nband</span><span class="p">(),</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_band_lims_gpoint</span><span class="p">())</span><span class="w"></span>
+<a id="ln-1005" name="ln-1005" href="#ln-1005"></a><span class="w">            </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_2str</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1006" name="ln-1006" href="#ln-1006"></a><span class="w">              </span><span class="k">call </span><span class="n">inc_nstream_by_2stream_bybnd</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_nmom</span><span class="p">(),</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-1007" name="ln-1007" href="#ln-1007"></a><span class="w">                                                </span><span class="n">op_io</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">p</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-1008" name="ln-1008" href="#ln-1008"></a><span class="w">                                                </span><span class="n">op_in</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">g</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-1009" name="ln-1009" href="#ln-1009"></a><span class="w">                                                </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_nband</span><span class="p">(),</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_band_lims_gpoint</span><span class="p">())</span><span class="w"></span>
+<a id="ln-1010" name="ln-1010" href="#ln-1010"></a><span class="w">            </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_nstr</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1011" name="ln-1011" href="#ln-1011"></a><span class="w">              </span><span class="k">call </span><span class="n">inc_nstream_by_nstream_bybnd</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_nmom</span><span class="p">(),</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">get_nmom</span><span class="p">(),</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-1012" name="ln-1012" href="#ln-1012"></a><span class="w">                                                </span><span class="n">op_io</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">p</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-1013" name="ln-1013" href="#ln-1013"></a><span class="w">                                                </span><span class="n">op_in</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">op_in</span><span class="p">%</span><span class="n">p</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-1014" name="ln-1014" href="#ln-1014"></a><span class="w">                                                </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_nband</span><span class="p">(),</span><span class="w"> </span><span class="n">op_io</span><span class="p">%</span><span class="n">get_band_lims_gpoint</span><span class="p">())</span><span class="w"></span>
+<a id="ln-1015" name="ln-1015" href="#ln-1015"></a><span class="w">          </span><span class="k">end select</span>
+<a id="ln-1016" name="ln-1016" href="#ln-1016"></a><span class="k">      end select</span>
+<a id="ln-1017" name="ln-1017" href="#ln-1017"></a><span class="k">    end if</span>
+<a id="ln-1018" name="ln-1018" href="#ln-1018"></a><span class="k">  end function </span><span class="n">increment</span><span class="w"></span>
+<a id="ln-1019" name="ln-1019" href="#ln-1019"></a><span class="w">  </span><span class="c">!&gt; -----------------------------------------------------------------------------------------------</span>
+<a id="ln-1020" name="ln-1020" href="#ln-1020"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-1021" name="ln-1021" href="#ln-1021"></a><span class="w">  </span><span class="c">!&gt;  Routines for array classes: problem sizes</span>
+<a id="ln-1022" name="ln-1022" href="#ln-1022"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-1023" name="ln-1023" href="#ln-1023"></a><span class="w">  </span><span class="c">!&gt; -----------------------------------------------------------------------------------------------</span>
+<a id="ln-1024" name="ln-1024" href="#ln-1024"></a><span class="w">  </span><span class="k">pure function </span><span class="n">get_arry_extent</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="nb">dim</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1025" name="ln-1025" href="#ln-1025"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_arry</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-1026" name="ln-1026" href="#ln-1026"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">                      </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="nb">dim</span>
+<a id="ln-1027" name="ln-1027" href="#ln-1027"></a><span class="nb">    </span><span class="kt">integer</span><span class="w">                                     </span><span class="kd">::</span><span class="w"> </span><span class="n">get_arry_extent</span><span class="w"></span>
+<a id="ln-1028" name="ln-1028" href="#ln-1028"></a>
+<a id="ln-1029" name="ln-1029" href="#ln-1029"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-1030" name="ln-1030" href="#ln-1030"></a><span class="k">      </span><span class="n">get_arry_extent</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="nb">dim</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1031" name="ln-1031" href="#ln-1031"></a><span class="w">    </span><span class="k">else</span>
+<a id="ln-1032" name="ln-1032" href="#ln-1032"></a><span class="k">      </span><span class="n">get_arry_extent</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">0</span><span class="w"></span>
+<a id="ln-1033" name="ln-1033" href="#ln-1033"></a><span class="w">    </span><span class="k">end if</span>
+<a id="ln-1034" name="ln-1034" href="#ln-1034"></a><span class="k">  end function </span><span class="n">get_arry_extent</span><span class="w"></span>
+<a id="ln-1035" name="ln-1035" href="#ln-1035"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-1036" name="ln-1036" href="#ln-1036"></a><span class="w">  </span><span class="k">pure function </span><span class="n">get_ncol</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1037" name="ln-1037" href="#ln-1037"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_arry</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-1038" name="ln-1038" href="#ln-1038"></a><span class="w">    </span><span class="kt">integer</span><span class="w">                                     </span><span class="kd">::</span><span class="w"> </span><span class="n">get_ncol</span><span class="w"></span>
+<a id="ln-1039" name="ln-1039" href="#ln-1039"></a>
+<a id="ln-1040" name="ln-1040" href="#ln-1040"></a><span class="w">    </span><span class="n">get_ncol</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">get_arry_extent</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1041" name="ln-1041" href="#ln-1041"></a><span class="w">  </span><span class="k">end function </span><span class="n">get_ncol</span><span class="w"></span>
+<a id="ln-1042" name="ln-1042" href="#ln-1042"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-1043" name="ln-1043" href="#ln-1043"></a><span class="w">  </span><span class="k">pure function </span><span class="n">get_nlay</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1044" name="ln-1044" href="#ln-1044"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_arry</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-1045" name="ln-1045" href="#ln-1045"></a><span class="w">    </span><span class="kt">integer</span><span class="w">                                     </span><span class="kd">::</span><span class="w"> </span><span class="n">get_nlay</span><span class="w"></span>
+<a id="ln-1046" name="ln-1046" href="#ln-1046"></a>
+<a id="ln-1047" name="ln-1047" href="#ln-1047"></a><span class="w">    </span><span class="n">get_nlay</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">get_arry_extent</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="mi">2</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1048" name="ln-1048" href="#ln-1048"></a><span class="w">  </span><span class="k">end function </span><span class="n">get_nlay</span><span class="w"></span>
+<a id="ln-1049" name="ln-1049" href="#ln-1049"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-1050" name="ln-1050" href="#ln-1050"></a><span class="w">  </span><span class="k">pure function </span><span class="n">get_nmom</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1051" name="ln-1051" href="#ln-1051"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_nstr</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-1052" name="ln-1052" href="#ln-1052"></a><span class="w">    </span><span class="kt">integer</span><span class="w">                                     </span><span class="kd">::</span><span class="w"> </span><span class="n">get_nmom</span><span class="w"></span>
+<a id="ln-1053" name="ln-1053" href="#ln-1053"></a>
+<a id="ln-1054" name="ln-1054" href="#ln-1054"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">p</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-1055" name="ln-1055" href="#ln-1055"></a><span class="k">      </span><span class="n">get_nmom</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">p</span><span class="p">,</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1056" name="ln-1056" href="#ln-1056"></a><span class="w">    </span><span class="k">else</span>
+<a id="ln-1057" name="ln-1057" href="#ln-1057"></a><span class="k">      </span><span class="n">get_nmom</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">0</span><span class="w"></span>
+<a id="ln-1058" name="ln-1058" href="#ln-1058"></a><span class="w">    </span><span class="k">end if</span>
+<a id="ln-1059" name="ln-1059" href="#ln-1059"></a><span class="k">  end function </span><span class="n">get_nmom</span><span class="w"></span>
+<a id="ln-1060" name="ln-1060" href="#ln-1060"></a><span class="w">  </span><span class="c">! -----------------------------------------------------------------------------------------------</span>
+<a id="ln-1061" name="ln-1061" href="#ln-1061"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-1062" name="ln-1062" href="#ln-1062"></a><span class="w">  </span><span class="c">!  Routines for base class: spectral discretization</span>
+<a id="ln-1063" name="ln-1063" href="#ln-1063"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-1064" name="ln-1064" href="#ln-1064"></a><span class="w">  </span><span class="c">!&gt; -----------------------------------------------------------------------------------------------</span>
+<a id="ln-1065" name="ln-1065" href="#ln-1065"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-1066" name="ln-1066" href="#ln-1066"></a><span class="w">  </span><span class="c">!&gt; Number of bands</span>
+<a id="ln-1067" name="ln-1067" href="#ln-1067"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-1068" name="ln-1068" href="#ln-1068"></a><span class="w">  </span><span class="k">pure function </span><span class="n">get_nband</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1069" name="ln-1069" href="#ln-1069"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-1070" name="ln-1070" href="#ln-1070"></a><span class="w">    </span><span class="kt">integer</span><span class="w">                             </span><span class="kd">::</span><span class="w"> </span><span class="n">get_nband</span><span class="w"></span>
+<a id="ln-1071" name="ln-1071" href="#ln-1071"></a>
+<a id="ln-1072" name="ln-1072" href="#ln-1072"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-1073" name="ln-1073" href="#ln-1073"></a><span class="k">      </span><span class="n">get_nband</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">band2gpt</span><span class="p">,</span><span class="nb">dim</span><span class="o">=</span><span class="mi">2</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1074" name="ln-1074" href="#ln-1074"></a><span class="w">    </span><span class="k">else</span>
+<a id="ln-1075" name="ln-1075" href="#ln-1075"></a><span class="k">      </span><span class="n">get_nband</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">0</span><span class="w"></span>
+<a id="ln-1076" name="ln-1076" href="#ln-1076"></a><span class="w">    </span><span class="k">end if</span>
+<a id="ln-1077" name="ln-1077" href="#ln-1077"></a><span class="k">  end function </span><span class="n">get_nband</span><span class="w"></span>
+<a id="ln-1078" name="ln-1078" href="#ln-1078"></a><span class="w">  </span><span class="c">!&gt; -----------------------------------------------------------------------------------------------</span>
+<a id="ln-1079" name="ln-1079" href="#ln-1079"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-1080" name="ln-1080" href="#ln-1080"></a><span class="w">  </span><span class="c">!&gt; Number of g-points</span>
+<a id="ln-1081" name="ln-1081" href="#ln-1081"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-1082" name="ln-1082" href="#ln-1082"></a><span class="w">  </span><span class="k">pure function </span><span class="n">get_ngpt</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1083" name="ln-1083" href="#ln-1083"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-1084" name="ln-1084" href="#ln-1084"></a><span class="w">    </span><span class="kt">integer</span><span class="w">                             </span><span class="kd">::</span><span class="w"> </span><span class="n">get_ngpt</span><span class="w"></span>
+<a id="ln-1085" name="ln-1085" href="#ln-1085"></a>
+<a id="ln-1086" name="ln-1086" href="#ln-1086"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-1087" name="ln-1087" href="#ln-1087"></a><span class="k">      </span><span class="n">get_ngpt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">maxval</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">band2gpt</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1088" name="ln-1088" href="#ln-1088"></a><span class="w">    </span><span class="k">else</span>
+<a id="ln-1089" name="ln-1089" href="#ln-1089"></a><span class="k">      </span><span class="n">get_ngpt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">0</span><span class="w"></span>
+<a id="ln-1090" name="ln-1090" href="#ln-1090"></a><span class="w">    </span><span class="k">end if</span>
+<a id="ln-1091" name="ln-1091" href="#ln-1091"></a><span class="k">  end function </span><span class="n">get_ngpt</span><span class="w"></span>
+<a id="ln-1092" name="ln-1092" href="#ln-1092"></a><span class="w">  </span><span class="c">!&gt;--------------------------------------------------------------------------------------------------------------------</span>
+<a id="ln-1093" name="ln-1093" href="#ln-1093"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-1094" name="ln-1094" href="#ln-1094"></a><span class="w">  </span><span class="c">!&gt; The first and last g-point of all bands at once</span>
+<a id="ln-1095" name="ln-1095" href="#ln-1095"></a><span class="w">  </span><span class="c">!&gt; dimension (2, nbands)</span>
+<a id="ln-1096" name="ln-1096" href="#ln-1096"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-1097" name="ln-1097" href="#ln-1097"></a><span class="w">  </span><span class="k">pure function </span><span class="n">get_band_lims_gpoint</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1098" name="ln-1098" href="#ln-1098"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-1099" name="ln-1099" href="#ln-1099"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">band2gpt</span><span class="p">,</span><span class="nb">dim</span><span class="o">=</span><span class="mi">1</span><span class="p">),</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">band2gpt</span><span class="p">,</span><span class="nb">dim</span><span class="o">=</span><span class="mi">2</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-1100" name="ln-1100" href="#ln-1100"></a><span class="w">                                        </span><span class="kd">::</span><span class="w"> </span><span class="n">get_band_lims_gpoint</span><span class="w"></span>
+<a id="ln-1101" name="ln-1101" href="#ln-1101"></a>
+<a id="ln-1102" name="ln-1102" href="#ln-1102"></a><span class="w">    </span><span class="n">get_band_lims_gpoint</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">band2gpt</span><span class="w"></span>
+<a id="ln-1103" name="ln-1103" href="#ln-1103"></a><span class="w">  </span><span class="k">end function </span><span class="n">get_band_lims_gpoint</span><span class="w"></span>
+<a id="ln-1104" name="ln-1104" href="#ln-1104"></a><span class="w">  </span><span class="c">!&gt;--------------------------------------------------------------------------------------------------------------------</span>
+<a id="ln-1105" name="ln-1105" href="#ln-1105"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-1106" name="ln-1106" href="#ln-1106"></a><span class="w">  </span><span class="c">!&gt; First and last g-point of a specific band</span>
+<a id="ln-1107" name="ln-1107" href="#ln-1107"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-1108" name="ln-1108" href="#ln-1108"></a><span class="w">  </span><span class="k">pure function </span><span class="n">convert_band2gpt</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">band</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1109" name="ln-1109" href="#ln-1109"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-1110" name="ln-1110" href="#ln-1110"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">                 </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">band</span><span class="w"></span>
+<a id="ln-1111" name="ln-1111" href="#ln-1111"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span><span class="w">               </span><span class="kd">::</span><span class="w"> </span><span class="n">convert_band2gpt</span><span class="w"></span>
+<a id="ln-1112" name="ln-1112" href="#ln-1112"></a>
+<a id="ln-1113" name="ln-1113" href="#ln-1113"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-1114" name="ln-1114" href="#ln-1114"></a><span class="k">      </span><span class="n">convert_band2gpt</span><span class="p">(:)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">band2gpt</span><span class="p">(:,</span><span class="n">band</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1115" name="ln-1115" href="#ln-1115"></a><span class="w">    </span><span class="k">else</span>
+<a id="ln-1116" name="ln-1116" href="#ln-1116"></a><span class="k">      </span><span class="n">convert_band2gpt</span><span class="p">(:)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">0</span><span class="w"></span>
+<a id="ln-1117" name="ln-1117" href="#ln-1117"></a><span class="w">    </span><span class="k">end if</span>
+<a id="ln-1118" name="ln-1118" href="#ln-1118"></a><span class="k">  end function </span><span class="n">convert_band2gpt</span><span class="w"></span>
+<a id="ln-1119" name="ln-1119" href="#ln-1119"></a><span class="w">  </span><span class="c">!&gt;--------------------------------------------------------------------------------------------------------------------</span>
+<a id="ln-1120" name="ln-1120" href="#ln-1120"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-1121" name="ln-1121" href="#ln-1121"></a><span class="w">  </span><span class="c">!&gt; Lower and upper wavenumber of all bands</span>
+<a id="ln-1122" name="ln-1122" href="#ln-1122"></a><span class="w">  </span><span class="c">!&gt; (upper and lower wavenumber by band) = band_lims_wvn(2,band)</span>
+<a id="ln-1123" name="ln-1123" href="#ln-1123"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-1124" name="ln-1124" href="#ln-1124"></a><span class="w">  </span><span class="k">pure function </span><span class="n">get_band_lims_wavenumber</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1125" name="ln-1125" href="#ln-1125"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-1126" name="ln-1126" href="#ln-1126"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">band_lims_wvn</span><span class="p">,</span><span class="mi">1</span><span class="p">),</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">band_lims_wvn</span><span class="p">,</span><span class="mi">2</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-1127" name="ln-1127" href="#ln-1127"></a><span class="w">                                        </span><span class="kd">::</span><span class="w"> </span><span class="n">get_band_lims_wavenumber</span><span class="w"></span>
+<a id="ln-1128" name="ln-1128" href="#ln-1128"></a>
+<a id="ln-1129" name="ln-1129" href="#ln-1129"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-1130" name="ln-1130" href="#ln-1130"></a><span class="k">      </span><span class="n">get_band_lims_wavenumber</span><span class="p">(:,:)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">band_lims_wvn</span><span class="p">(:,:)</span><span class="w"></span>
+<a id="ln-1131" name="ln-1131" href="#ln-1131"></a><span class="w">    </span><span class="k">else</span>
+<a id="ln-1132" name="ln-1132" href="#ln-1132"></a><span class="k">      </span><span class="n">get_band_lims_wavenumber</span><span class="p">(:,:)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">0._wp</span><span class="w"></span>
+<a id="ln-1133" name="ln-1133" href="#ln-1133"></a><span class="w">    </span><span class="k">end if</span>
+<a id="ln-1134" name="ln-1134" href="#ln-1134"></a><span class="k">  end function </span><span class="n">get_band_lims_wavenumber</span><span class="w"></span>
+<a id="ln-1135" name="ln-1135" href="#ln-1135"></a><span class="w">  </span><span class="c">!&gt;--------------------------------------------------------------------------------------------------------------------</span>
+<a id="ln-1136" name="ln-1136" href="#ln-1136"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-1137" name="ln-1137" href="#ln-1137"></a><span class="w">  </span><span class="c">!&gt; Lower and upper wavelength of all bands</span>
+<a id="ln-1138" name="ln-1138" href="#ln-1138"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-1139" name="ln-1139" href="#ln-1139"></a><span class="w">  </span><span class="k">pure function </span><span class="n">get_band_lims_wavelength</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1140" name="ln-1140" href="#ln-1140"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-1141" name="ln-1141" href="#ln-1141"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">band_lims_wvn</span><span class="p">,</span><span class="mi">1</span><span class="p">),</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">band_lims_wvn</span><span class="p">,</span><span class="mi">2</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-1142" name="ln-1142" href="#ln-1142"></a><span class="w">                                        </span><span class="kd">::</span><span class="w"> </span><span class="n">get_band_lims_wavelength</span><span class="w"></span>
+<a id="ln-1143" name="ln-1143" href="#ln-1143"></a>
+<a id="ln-1144" name="ln-1144" href="#ln-1144"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-1145" name="ln-1145" href="#ln-1145"></a><span class="k">      </span><span class="n">get_band_lims_wavelength</span><span class="p">(:,:)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">1._wp</span><span class="o">/</span><span class="n">this</span><span class="p">%</span><span class="n">band_lims_wvn</span><span class="p">(:,:)</span><span class="w"></span>
+<a id="ln-1146" name="ln-1146" href="#ln-1146"></a><span class="w">    </span><span class="k">else</span>
+<a id="ln-1147" name="ln-1147" href="#ln-1147"></a><span class="k">      </span><span class="n">get_band_lims_wavelength</span><span class="p">(:,:)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">0._wp</span><span class="w"></span>
+<a id="ln-1148" name="ln-1148" href="#ln-1148"></a><span class="w">    </span><span class="k">end if</span>
+<a id="ln-1149" name="ln-1149" href="#ln-1149"></a><span class="k">  end function </span><span class="n">get_band_lims_wavelength</span><span class="w"></span>
+<a id="ln-1150" name="ln-1150" href="#ln-1150"></a><span class="w">  </span><span class="c">!&gt;--------------------------------------------------------------------------------------------------------------------</span>
+<a id="ln-1151" name="ln-1151" href="#ln-1151"></a><span class="w">  </span><span class="c">!&gt; Bands for all the g-points at once</span>
+<a id="ln-1152" name="ln-1152" href="#ln-1152"></a><span class="w">  </span><span class="c">!&gt; dimension (ngpt)</span>
+<a id="ln-1153" name="ln-1153" href="#ln-1153"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-1154" name="ln-1154" href="#ln-1154"></a><span class="w">  </span><span class="k">pure function </span><span class="n">get_gpoint_bands</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1155" name="ln-1155" href="#ln-1155"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-1156" name="ln-1156" href="#ln-1156"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">gpt2band</span><span class="p">,</span><span class="nb">dim</span><span class="o">=</span><span class="mi">1</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-1157" name="ln-1157" href="#ln-1157"></a><span class="w">                                        </span><span class="kd">::</span><span class="w"> </span><span class="n">get_gpoint_bands</span><span class="w"></span>
+<a id="ln-1158" name="ln-1158" href="#ln-1158"></a>
+<a id="ln-1159" name="ln-1159" href="#ln-1159"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-1160" name="ln-1160" href="#ln-1160"></a><span class="k">      </span><span class="n">get_gpoint_bands</span><span class="p">(:)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">gpt2band</span><span class="p">(:)</span><span class="w"></span>
+<a id="ln-1161" name="ln-1161" href="#ln-1161"></a><span class="w">    </span><span class="k">else</span>
+<a id="ln-1162" name="ln-1162" href="#ln-1162"></a><span class="k">      </span><span class="n">get_gpoint_bands</span><span class="p">(:)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">0</span><span class="w"></span>
+<a id="ln-1163" name="ln-1163" href="#ln-1163"></a><span class="w">    </span><span class="k">end if</span>
+<a id="ln-1164" name="ln-1164" href="#ln-1164"></a><span class="k">  end function </span><span class="n">get_gpoint_bands</span><span class="w"></span>
+<a id="ln-1165" name="ln-1165" href="#ln-1165"></a><span class="w">  </span><span class="c">!&gt;--------------------------------------------------------------------------------------------------------------------</span>
+<a id="ln-1166" name="ln-1166" href="#ln-1166"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-1167" name="ln-1167" href="#ln-1167"></a><span class="w">  </span><span class="c">!&gt; Band associated with a specific g-point</span>
+<a id="ln-1168" name="ln-1168" href="#ln-1168"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-1169" name="ln-1169" href="#ln-1169"></a><span class="w">  </span><span class="k">pure function </span><span class="n">convert_gpt2band</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">gpt</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1170" name="ln-1170" href="#ln-1170"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-1171" name="ln-1171" href="#ln-1171"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">                            </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">gpt</span><span class="w"></span>
+<a id="ln-1172" name="ln-1172" href="#ln-1172"></a><span class="w">    </span><span class="kt">integer</span><span class="w">                             </span><span class="kd">::</span><span class="w"> </span><span class="n">convert_gpt2band</span><span class="w"></span>
+<a id="ln-1173" name="ln-1173" href="#ln-1173"></a>
+<a id="ln-1174" name="ln-1174" href="#ln-1174"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-1175" name="ln-1175" href="#ln-1175"></a><span class="k">      </span><span class="n">convert_gpt2band</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">gpt2band</span><span class="p">(</span><span class="n">gpt</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1176" name="ln-1176" href="#ln-1176"></a><span class="w">    </span><span class="k">else</span>
+<a id="ln-1177" name="ln-1177" href="#ln-1177"></a><span class="k">      </span><span class="n">convert_gpt2band</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">0</span><span class="w"></span>
+<a id="ln-1178" name="ln-1178" href="#ln-1178"></a><span class="w">    </span><span class="k">end if</span>
+<a id="ln-1179" name="ln-1179" href="#ln-1179"></a><span class="k">  end function </span><span class="n">convert_gpt2band</span><span class="w"></span>
+<a id="ln-1180" name="ln-1180" href="#ln-1180"></a><span class="w">  </span><span class="c">!&gt;--------------------------------------------------------------------------------------------------------------------</span>
+<a id="ln-1181" name="ln-1181" href="#ln-1181"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-1182" name="ln-1182" href="#ln-1182"></a><span class="w">  </span><span class="c">!&gt; Expand an array of dimension arr_in(nband) to dimension arr_out(ngpt)</span>
+<a id="ln-1183" name="ln-1183" href="#ln-1183"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-1184" name="ln-1184" href="#ln-1184"></a><span class="w">  </span><span class="k">pure function </span><span class="n">expand</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">arr_in</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">arr_out</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1185" name="ln-1185" href="#ln-1185"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-1186" name="ln-1186" href="#ln-1186"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:),</span><span class="w">  </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">arr_in</span><span class="w"> </span><span class="c">! (nband)</span>
+<a id="ln-1187" name="ln-1187" href="#ln-1187"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">gpt2band</span><span class="p">))</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">arr_out</span><span class="w"></span>
+<a id="ln-1188" name="ln-1188" href="#ln-1188"></a>
+<a id="ln-1189" name="ln-1189" href="#ln-1189"></a><span class="w">    </span><span class="kt">integer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">iband</span><span class="w"></span>
+<a id="ln-1190" name="ln-1190" href="#ln-1190"></a>
+<a id="ln-1191" name="ln-1191" href="#ln-1191"></a><span class="w">    </span><span class="k">do </span><span class="n">iband</span><span class="o">=</span><span class="mi">1</span><span class="p">,</span><span class="n">this</span><span class="p">%</span><span class="n">get_nband</span><span class="p">()</span><span class="w"></span>
+<a id="ln-1192" name="ln-1192" href="#ln-1192"></a><span class="w">      </span><span class="n">arr_out</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">band2gpt</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="n">iband</span><span class="p">):</span><span class="n">this</span><span class="p">%</span><span class="n">band2gpt</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="n">iband</span><span class="p">))</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">arr_in</span><span class="p">(</span><span class="n">iband</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1193" name="ln-1193" href="#ln-1193"></a><span class="w">    </span><span class="k">end do</span>
+<a id="ln-1194" name="ln-1194" href="#ln-1194"></a><span class="k">  end function </span><span class="n">expand</span><span class="w"></span>
+<a id="ln-1195" name="ln-1195" href="#ln-1195"></a><span class="w">  </span><span class="c">!&gt;--------------------------------------------------------------------------------------------------------------------</span>
+<a id="ln-1196" name="ln-1196" href="#ln-1196"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-1197" name="ln-1197" href="#ln-1197"></a><span class="w">  </span><span class="c">!&gt; Are the bands of two objects the same? (same number, same wavelength limits)</span>
+<a id="ln-1198" name="ln-1198" href="#ln-1198"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-1199" name="ln-1199" href="#ln-1199"></a><span class="w">  </span><span class="k">pure function </span><span class="n">bands_are_equal</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">that</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1200" name="ln-1200" href="#ln-1200"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">that</span><span class="w"></span>
+<a id="ln-1201" name="ln-1201" href="#ln-1201"></a><span class="w">    </span><span class="kt">logical</span><span class="w">                             </span><span class="kd">::</span><span class="w"> </span><span class="n">bands_are_equal</span><span class="w"></span>
+<a id="ln-1202" name="ln-1202" href="#ln-1202"></a>
+<a id="ln-1203" name="ln-1203" href="#ln-1203"></a><span class="w">    </span><span class="n">bands_are_equal</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_nband</span><span class="p">()</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">that</span><span class="p">%</span><span class="n">get_nband</span><span class="p">()</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-1204" name="ln-1204" href="#ln-1204"></a><span class="w">                      </span><span class="n">this</span><span class="p">%</span><span class="n">get_nband</span><span class="p">()</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">0</span><span class="w"></span>
+<a id="ln-1205" name="ln-1205" href="#ln-1205"></a><span class="w">    </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">bands_are_equal</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-1206" name="ln-1206" href="#ln-1206"></a><span class="k">    </span><span class="n">bands_are_equal</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-1207" name="ln-1207" href="#ln-1207"></a><span class="w">      </span><span class="k">all</span><span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_band_lims_wavenumber</span><span class="p">()</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="n">that</span><span class="p">%</span><span class="n">get_band_lims_wavenumber</span><span class="p">())</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-1208" name="ln-1208" href="#ln-1208"></a><span class="w">          </span><span class="mf">5._wp</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="nb">spacing</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_band_lims_wavenumber</span><span class="p">()))</span><span class="w"></span>
+<a id="ln-1209" name="ln-1209" href="#ln-1209"></a><span class="w">  </span><span class="k">end function </span><span class="n">bands_are_equal</span><span class="w"></span>
+<a id="ln-1210" name="ln-1210" href="#ln-1210"></a><span class="w">  </span><span class="c">!&gt;--------------------------------------------------------------------------------------------------------------------</span>
+<a id="ln-1211" name="ln-1211" href="#ln-1211"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-1212" name="ln-1212" href="#ln-1212"></a><span class="w">  </span><span class="c">!&gt; Is the g-point structure of two objects the same?</span>
+<a id="ln-1213" name="ln-1213" href="#ln-1213"></a><span class="w">  </span><span class="c">!&gt;   (same bands, same number of g-points, same mapping between bands and g-points)</span>
+<a id="ln-1214" name="ln-1214" href="#ln-1214"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-1215" name="ln-1215" href="#ln-1215"></a><span class="w">  </span><span class="k">pure function </span><span class="n">gpoints_are_equal</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">that</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1216" name="ln-1216" href="#ln-1216"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">that</span><span class="w"></span>
+<a id="ln-1217" name="ln-1217" href="#ln-1217"></a><span class="w">    </span><span class="kt">logical</span><span class="w">                             </span><span class="kd">::</span><span class="w"> </span><span class="n">gpoints_are_equal</span><span class="w"></span>
+<a id="ln-1218" name="ln-1218" href="#ln-1218"></a>
+<a id="ln-1219" name="ln-1219" href="#ln-1219"></a><span class="w">    </span><span class="n">gpoints_are_equal</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">bands_are_equal</span><span class="p">(</span><span class="n">that</span><span class="p">)</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-1220" name="ln-1220" href="#ln-1220"></a><span class="w">                        </span><span class="n">this</span><span class="p">%</span><span class="n">get_ngpt</span><span class="p">()</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">that</span><span class="p">%</span><span class="n">get_ngpt</span><span class="p">()</span><span class="w"></span>
+<a id="ln-1221" name="ln-1221" href="#ln-1221"></a><span class="w">    </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">gpoints_are_equal</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-1222" name="ln-1222" href="#ln-1222"></a><span class="k">    </span><span class="n">gpoints_are_equal</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-1223" name="ln-1223" href="#ln-1223"></a><span class="w">      </span><span class="k">all</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_gpoint_bands</span><span class="p">()</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">that</span><span class="p">%</span><span class="n">get_gpoint_bands</span><span class="p">())</span><span class="w"></span>
+<a id="ln-1224" name="ln-1224" href="#ln-1224"></a><span class="w">  </span><span class="k">end function </span><span class="n">gpoints_are_equal</span><span class="w"></span>
+<a id="ln-1225" name="ln-1225" href="#ln-1225"></a><span class="w">  </span><span class="c">!&gt; -----------------------------------------------------------------------------------------------</span>
+<a id="ln-1226" name="ln-1226" href="#ln-1226"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-1227" name="ln-1227" href="#ln-1227"></a><span class="w">  </span><span class="c">!&gt; --- Setting/getting the name</span>
+<a id="ln-1228" name="ln-1228" href="#ln-1228"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-1229" name="ln-1229" href="#ln-1229"></a><span class="w">  </span><span class="c">!&gt; -----------------------------------------------------------------------------------------------</span>
+<a id="ln-1230" name="ln-1230" href="#ln-1230"></a><span class="w">  </span><span class="k">subroutine </span><span class="n">set_name</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">name</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1231" name="ln-1231" href="#ln-1231"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="p">),</span><span class="w">  </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-1232" name="ln-1232" href="#ln-1232"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span><span class="w">         </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">name</span><span class="w"></span>
+<a id="ln-1233" name="ln-1233" href="#ln-1233"></a>
+<a id="ln-1234" name="ln-1234" href="#ln-1234"></a><span class="w">    </span><span class="n">this</span><span class="p">%</span><span class="n">name</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">name</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1235" name="ln-1235" href="#ln-1235"></a><span class="w">  </span><span class="k">end subroutine </span><span class="n">set_name</span><span class="w"></span>
+<a id="ln-1236" name="ln-1236" href="#ln-1236"></a><span class="w">  </span><span class="c">! --------------------------------------------------------</span>
+<a id="ln-1237" name="ln-1237" href="#ln-1237"></a><span class="w">  </span><span class="k">function </span><span class="n">get_name</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1238" name="ln-1238" href="#ln-1238"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="p">),</span><span class="w">  </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-1239" name="ln-1239" href="#ln-1239"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">name_len</span><span class="p">)</span><span class="w">                 </span><span class="kd">::</span><span class="w"> </span><span class="n">get_name</span><span class="w"></span>
+<a id="ln-1240" name="ln-1240" href="#ln-1240"></a>
+<a id="ln-1241" name="ln-1241" href="#ln-1241"></a><span class="w">      </span><span class="n">get_name</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">name</span><span class="p">)</span><span class="w"></span>
+<a id="ln-1242" name="ln-1242" href="#ln-1242"></a><span class="w">  </span><span class="k">end function </span><span class="n">get_name</span><span class="w"></span>
+<a id="ln-1243" name="ln-1243" href="#ln-1243"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-1244" name="ln-1244" href="#ln-1244"></a>
+<a id="ln-1245" name="ln-1245" href="#ln-1245"></a><span class="k">end module </span><span class="n">mo_optical_props</span><span class="w"></span>
+</pre></div>
+
+    </section>
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/sourcefile/mo_rte_config.f90.html b/reference/rte-fortran-interface/sourcefile/mo_rte_config.f90.html
new file mode 100644
index 000000000..6f635223a
--- /dev/null
+++ b/reference/rte-fortran-interface/sourcefile/mo_rte_config.f90.html
@@ -0,0 +1,507 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>mo_rte_config.F90 &ndash; RTE-Fortran</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>mo_rte_config.F90
+    <small>Source File</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title=" 1.4% of total for source files.">22 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_rte_config.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li class="active">mo_rte_config.F90</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#mods-0">Modules</a></h3></div>
+  <div id="mods-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_rte_config.html">mo_rte_config</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title">Source Code</h3></div>
+  <div class="list-group">
+    <a class="list-group-item" href="../sourcefile/mo_rte_config.f90.html#src">mo_rte_config.F90</a>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    <div class="col-md-9" id='text'>
+      
+      <br>
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">This file depends on</h3>
+      </div>
+      <div class="panel-body">
+  <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: sourcefile~~mo_rte_config.f90~~EfferentGraph Pages: 1 -->
+<svg id="sourcefilemo_rte_configf90EfferentGraph" width="255pt" height="32pt"
+ viewBox="0.00 0.00 255.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~mo_rte_config.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>sourcefile~~mo_rte_config.f90~~EfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 251,-28 251,4 -4,4"/>
+<!-- sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_rte_config.f90~~EfferentGraph_node1" class="node">
+<title>sourcefile~mo_rte_config.f90</title>
+<polygon fill="none" stroke="black" points="247,-24 136,-24 136,0 247,0 247,-24"/>
+<text text-anchor="middle" x="191.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_rte_config.F90</text>
+</g>
+<!-- sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_rte_config.f90~~EfferentGraph_node2" class="node">
+<title>sourcefile~mo_rte_kind.f90</title>
+<g id="a_sourcefile~~mo_rte_config.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/mo_rte_kind.f90.html" xlink:title="mo_rte_kind.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="100,-24 0,-24 0,0 100,0 100,-24"/>
+<text text-anchor="middle" x="50" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_config.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_rte_config.f90~~EfferentGraph_edge1" class="edge">
+<title>sourcefile~mo_rte_config.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.77,-12C127.41,-12 118.75,-12 110.3,-12"/>
+<polygon fill="#000000" stroke="#000000" points="110.13,-8.5 100.13,-12 110.13,-15.5 110.13,-8.5"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="202pt" height="32pt"
+ viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<!-- Source File -->
+<g id="node1" class="node">
+<title>Source File</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
+<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node2" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
+<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a file to a file which it depends on. A file
+    is dependent upon another if the latter must be compiled before the former
+    can be.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Files dependent on this one</h3>
+      </div>
+      <div class="panel-body">
+  <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: sourcefile~~mo_rte_config.f90~~AfferentGraph Pages: 1 -->
+<svg id="sourcefilemo_rte_configf90AfferentGraph" width="593pt" height="165pt"
+ viewBox="0.00 0.00 593.00 164.66" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~mo_rte_config.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 160.66)">
+<title>sourcefile~~mo_rte_config.f90~~AfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-160.66 589,-160.66 589,4 -4,4"/>
+<!-- sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_rte_config.f90~~AfferentGraph_node1" class="node">
+<title>sourcefile~mo_rte_config.f90</title>
+<polygon fill="none" stroke="black" points="111,-103.97 0,-103.97 0,-79.97 111,-79.97 111,-103.97"/>
+<text text-anchor="middle" x="55.5" y="-89.57" font-family="Helvetica,sans-Serif" font-size="10.50">mo_rte_config.F90</text>
+</g>
+<!-- sourcefile~mo_rte_sw.f90 -->
+<g id="sourcefile~~mo_rte_config.f90~~AfferentGraph_node2" class="node">
+<title>sourcefile~mo_rte_sw.f90</title>
+<g id="a_sourcefile~~mo_rte_config.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/mo_rte_sw.f90.html" xlink:title="mo_rte_sw.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="585,-133.97 494,-133.97 494,-109.97 585,-109.97 585,-133.97"/>
+<text text-anchor="middle" x="539.5" y="-119.57" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_sw.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_rte_config.f90~~AfferentGraph_edge1" class="edge">
+<title>sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_rte_config.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M383.5,-151.97C307.28,-152.74 287.61,-161.61 212,-151.97"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90 -->
+<g id="sourcefile~~mo_rte_config.f90~~AfferentGraph_node3" class="node">
+<title>sourcefile~mo_fluxes.f90</title>
+<g id="a_sourcefile~~mo_rte_config.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/mo_fluxes.f90.html" xlink:title="mo_fluxes.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="429,-123.97 340,-123.97 340,-99.97 429,-99.97 429,-123.97"/>
+<text text-anchor="middle" x="384.5" y="-109.57" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_fluxes.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_fluxes.f90 -->
+<g id="sourcefile~~mo_rte_config.f90~~AfferentGraph_edge5" class="edge">
+<title>sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_fluxes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M493.83,-119.06C476.8,-117.94 457.21,-116.66 439.41,-115.5"/>
+<polygon fill="#000000" stroke="#000000" points="439.37,-111.99 429.17,-114.83 438.92,-118.97 439.37,-111.99"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_rte_config.f90~~AfferentGraph_node5" class="node">
+<title>sourcefile~mo_optical_props.f90</title>
+<g id="a_sourcefile~~mo_rte_config.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/mo_optical_props.f90.html" xlink:title="mo_optical_props.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="275,-103.97 147,-103.97 147,-79.97 275,-79.97 275,-103.97"/>
+<text text-anchor="middle" x="211" y="-89.57" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_rte_config.f90~~AfferentGraph_edge7" class="edge">
+<title>sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M498.33,-134.04C467.71,-142.21 424.34,-151.59 385.5,-151.97"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M383.5,-151.97C331.11,-152.5 274.5,-127.08 241.21,-109.17"/>
+<polygon fill="#000000" stroke="#000000" points="242.5,-105.88 232.06,-104.11 239.12,-112.01 242.5,-105.88"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_rte_config.f90~~AfferentGraph_edge2" class="edge">
+<title>sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_config.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345.67,-124.06C303.37,-136.98 237.48,-155.22 212,-151.97"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M210,-151.97C164.92,-146.23 116.7,-124.52 86.58,-108.87"/>
+<polygon fill="#000000" stroke="#000000" points="87.94,-105.63 77.47,-104.03 84.66,-111.81 87.94,-105.63"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_rte_config.f90~~AfferentGraph_edge8" class="edge">
+<title>sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M339.78,-106.88C323.12,-104.93 303.66,-102.66 285.01,-100.49"/>
+<polygon fill="#000000" stroke="#000000" points="285.4,-97.01 275.06,-99.33 284.59,-103.96 285.4,-97.01"/>
+</g>
+<!-- sourcefile~mo_rte_lw.f90 -->
+<g id="sourcefile~~mo_rte_config.f90~~AfferentGraph_node4" class="node">
+<title>sourcefile~mo_rte_lw.f90</title>
+<g id="a_sourcefile~~mo_rte_config.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/mo_rte_lw.f90.html" xlink:title="mo_rte_lw.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="583.5,-72.97 495.5,-72.97 495.5,-48.97 583.5,-48.97 583.5,-72.97"/>
+<text text-anchor="middle" x="539.5" y="-58.57" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_lw.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_rte_config.f90~~AfferentGraph_edge3" class="edge">
+<title>sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_rte_config.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M524.56,-48.89C509.37,-36.59 483.79,-18.33 458,-10.97 395.17,6.95 375.56,-0.95 311,-10.97 231.48,-23.32 142.82,-56.15 93.95,-76.02"/>
+<polygon fill="#000000" stroke="#000000" points="92.35,-72.89 84.44,-79.93 95.02,-79.37 92.35,-72.89"/>
+</g>
+<!-- sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_fluxes.f90 -->
+<g id="sourcefile~~mo_rte_config.f90~~AfferentGraph_edge6" class="edge">
+<title>sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_fluxes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M502.24,-73.06C481.07,-80.12 454.16,-89.09 431.51,-96.64"/>
+<polygon fill="#000000" stroke="#000000" points="430.14,-93.4 421.76,-99.89 432.36,-100.04 430.14,-93.4"/>
+</g>
+<!-- sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_rte_config.f90~~AfferentGraph_edge10" class="edge">
+<title>sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M495.48,-65.06C441.98,-70.14 349.82,-78.89 285.14,-85.03"/>
+<polygon fill="#000000" stroke="#000000" points="284.63,-81.56 275,-85.99 285.29,-88.53 284.63,-81.56"/>
+</g>
+<!-- sourcefile~mo_source_functions.f90 -->
+<g id="sourcefile~~mo_rte_config.f90~~AfferentGraph_node6" class="node">
+<title>sourcefile~mo_source_functions.f90</title>
+<g id="a_sourcefile~~mo_rte_config.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/mo_source_functions.f90.html" xlink:title="mo_source_functions.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="458,-43.97 311,-43.97 311,-19.97 458,-19.97 458,-43.97"/>
+<text text-anchor="middle" x="384.5" y="-29.57" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_source_functions.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_source_functions.f90 -->
+<g id="sourcefile~~mo_rte_config.f90~~AfferentGraph_edge11" class="edge">
+<title>sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_source_functions.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M495.47,-52.82C484.11,-50.66 471.51,-48.28 459.02,-45.91"/>
+<polygon fill="#000000" stroke="#000000" points="459.53,-42.44 449.05,-44.02 458.22,-49.32 459.53,-42.44"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_rte_config.f90~~AfferentGraph_edge4" class="edge">
+<title>sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_config.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M146.68,-91.97C138.34,-91.97 129.79,-91.97 121.42,-91.97"/>
+<polygon fill="#000000" stroke="#000000" points="121.34,-88.47 111.34,-91.97 121.34,-95.47 121.34,-88.47"/>
+</g>
+<!-- sourcefile~mo_source_functions.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_rte_config.f90~~AfferentGraph_edge9" class="edge">
+<title>sourcefile~mo_source_functions.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M348.79,-44.12C321.97,-53.5 284.68,-66.55 255.8,-76.65"/>
+<polygon fill="#000000" stroke="#000000" points="254.64,-73.35 246.36,-79.95 256.96,-79.95 254.64,-73.35"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="202pt" height="32pt"
+ viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<!-- Source File -->
+<g id="node1" class="node">
+<title>Source File</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
+<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node2" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
+<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a file to a file which it depends on. A file
+    is dependent upon another if the latter must be compiled before the former
+    can be.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+<br>
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#mods-1">Modules</a></h3></div>
+  <div id="mods-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_rte_config.html">mo_rte_config</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title">Source Code</h3></div>
+  <div class="list-group">
+    <a class="list-group-item" href="../sourcefile/mo_rte_config.f90.html#src">mo_rte_config.F90</a>
+  </div>
+</div>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    <section>
+      <h2><span class="anchor" id="src"></span>Source Code</h2>
+    <div class="hl"><pre><span></span><a id="ln-1" name="ln-1" href="#ln-1"></a><span class="c">! This code is part of RRTM for GCM Applications - Parallel (RRTMGP)</span>
+<a id="ln-2" name="ln-2" href="#ln-2"></a><span class="c">!</span>
+<a id="ln-3" name="ln-3" href="#ln-3"></a><span class="c">! Contacts: Robert Pincus and Eli Mlawer</span>
+<a id="ln-4" name="ln-4" href="#ln-4"></a><span class="c">! email:  rrtmgp@aer.com</span>
+<a id="ln-5" name="ln-5" href="#ln-5"></a><span class="c">!</span>
+<a id="ln-6" name="ln-6" href="#ln-6"></a><span class="c">! Copyright 2020-  Atmospheric and Environmental Research,</span>
+<a id="ln-7" name="ln-7" href="#ln-7"></a><span class="c">!    Regents of the University of Colorado,</span>
+<a id="ln-8" name="ln-8" href="#ln-8"></a><span class="c">!    Trustees of Columbia University in the City of New York</span>
+<a id="ln-9" name="ln-9" href="#ln-9"></a><span class="c">! All right reserved.</span>
+<a id="ln-10" name="ln-10" href="#ln-10"></a><span class="c">!</span>
+<a id="ln-11" name="ln-11" href="#ln-11"></a><span class="c">! Use and duplication is permitted under the terms of the</span>
+<a id="ln-12" name="ln-12" href="#ln-12"></a><span class="c">!    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause</span>
+<a id="ln-13" name="ln-13" href="#ln-13"></a>
+<a id="ln-14" name="ln-14" href="#ln-14"></a><span class="c">!&gt; -------------------------------------------------------------------------------------------------</span>
+<a id="ln-15" name="ln-15" href="#ln-15"></a><span class="c">!&gt;</span>
+<a id="ln-16" name="ln-16" href="#ln-16"></a><span class="c">!&gt; ## Control input sanitization in Fortan front-end</span>
+<a id="ln-17" name="ln-17" href="#ln-17"></a><span class="c">!&gt;   Provides public access to two proteced module variables</span>
+<a id="ln-18" name="ln-18" href="#ln-18"></a><span class="c">!&gt;</span>
+<a id="ln-19" name="ln-19" href="#ln-19"></a><span class="c">!&gt; -------------------------------------------------------------------------------------------------</span>
+<a id="ln-20" name="ln-20" href="#ln-20"></a><span class="k">module </span><span class="n">mo_rte_config</span><span class="w"></span>
+<a id="ln-21" name="ln-21" href="#ln-21"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_rte_kind</span><span class="p">,</span><span class="w"> </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">wl</span><span class="w"></span>
+<a id="ln-22" name="ln-22" href="#ln-22"></a><span class="w">  </span><span class="k">implicit none</span>
+<a id="ln-23" name="ln-23" href="#ln-23"></a><span class="k">  private</span>
+<a id="ln-24" name="ln-24" href="#ln-24"></a>
+<a id="ln-25" name="ln-25" href="#ln-25"></a><span class="k">  </span><span class="kt">logical</span><span class="p">(</span><span class="n">wl</span><span class="p">),</span><span class="w"> </span><span class="k">protected</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">check_extents</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">true</span><span class="p">.</span><span class="w"></span>
+<a id="ln-26" name="ln-26" href="#ln-26"></a><span class="w">  </span><span class="kt">logical</span><span class="p">(</span><span class="n">wl</span><span class="p">),</span><span class="w"> </span><span class="k">protected</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">check_values</span><span class="w">  </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">true</span><span class="p">.</span><span class="w"></span>
+<a id="ln-27" name="ln-27" href="#ln-27"></a>
+<a id="ln-28" name="ln-28" href="#ln-28"></a><span class="w">  </span><span class="c">!&gt; Specify checking of extents and values individually, or all checks together</span>
+<a id="ln-29" name="ln-29" href="#ln-29"></a><span class="w">  </span><span class="k">interface </span><span class="n">rte_config_checks</span><span class="w"></span>
+<a id="ln-30" name="ln-30" href="#ln-30"></a><span class="w">    </span><span class="k">module procedure </span><span class="n">rte_config_checks_each</span><span class="p">,</span><span class="w"> </span><span class="n">rte_config_checks_all</span><span class="w"></span>
+<a id="ln-31" name="ln-31" href="#ln-31"></a><span class="w">  </span><span class="k">end interface</span>
+<a id="ln-32" name="ln-32" href="#ln-32"></a><span class="k">  public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rte_config_checks</span><span class="w"></span>
+<a id="ln-33" name="ln-33" href="#ln-33"></a><span class="k">contains</span><span class="w"></span>
+<a id="ln-34" name="ln-34" href="#ln-34"></a><span class="w">  </span><span class="c">! --------------------------------------------------------------</span>
+<a id="ln-35" name="ln-35" href="#ln-35"></a><span class="w">  </span><span class="c">!&gt; Do extents and/or values checks within RTE+RRTMGP Fortran classes</span>
+<a id="ln-36" name="ln-36" href="#ln-36"></a><span class="w">  </span><span class="k">subroutine </span><span class="n">rte_config_checks_each</span><span class="p">(</span><span class="n">extents</span><span class="p">,</span><span class="w"> </span><span class="n">values</span><span class="p">)</span><span class="w"></span>
+<a id="ln-37" name="ln-37" href="#ln-37"></a><span class="w">    </span><span class="kt">logical</span><span class="p">(</span><span class="n">wl</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">extents</span><span class="p">,</span><span class="w"> </span><span class="n">values</span><span class="w"></span>
+<a id="ln-38" name="ln-38" href="#ln-38"></a>
+<a id="ln-39" name="ln-39" href="#ln-39"></a><span class="w">    </span><span class="n">check_extents</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">extents</span><span class="w"></span>
+<a id="ln-40" name="ln-40" href="#ln-40"></a><span class="w">    </span><span class="n">check_values</span><span class="w">  </span><span class="o">=</span><span class="w"> </span><span class="n">values</span><span class="w"></span>
+<a id="ln-41" name="ln-41" href="#ln-41"></a><span class="w">  </span><span class="k">end subroutine </span><span class="n">rte_config_checks_each</span><span class="w"></span>
+<a id="ln-42" name="ln-42" href="#ln-42"></a><span class="w">  </span><span class="c">! --------------------------------------------------------------</span>
+<a id="ln-43" name="ln-43" href="#ln-43"></a><span class="w">  </span><span class="c">!&gt; Do all checks within RTE+RRTMGP Fortran classes</span>
+<a id="ln-44" name="ln-44" href="#ln-44"></a><span class="w">  </span><span class="k">subroutine </span><span class="n">rte_config_checks_all</span><span class="p">(</span><span class="n">do_checks</span><span class="p">)</span><span class="w"></span>
+<a id="ln-45" name="ln-45" href="#ln-45"></a><span class="w">    </span><span class="kt">logical</span><span class="p">(</span><span class="n">wl</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">do_checks</span><span class="w"></span>
+<a id="ln-46" name="ln-46" href="#ln-46"></a>
+<a id="ln-47" name="ln-47" href="#ln-47"></a><span class="w">    </span><span class="n">check_extents</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">do_checks</span><span class="w"></span>
+<a id="ln-48" name="ln-48" href="#ln-48"></a><span class="w">    </span><span class="n">check_values</span><span class="w">  </span><span class="o">=</span><span class="w"> </span><span class="n">do_checks</span><span class="w"></span>
+<a id="ln-49" name="ln-49" href="#ln-49"></a><span class="w">  </span><span class="k">end subroutine </span><span class="n">rte_config_checks_all</span><span class="w"></span>
+<a id="ln-50" name="ln-50" href="#ln-50"></a><span class="w">  </span><span class="c">! --------------------------------------------------------------</span>
+<a id="ln-51" name="ln-51" href="#ln-51"></a><span class="k">end module </span><span class="n">mo_rte_config</span><span class="w"></span>
+</pre></div>
+
+    </section>
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/sourcefile/mo_rte_kind.f90.html b/reference/rte-fortran-interface/sourcefile/mo_rte_kind.f90.html
new file mode 100644
index 000000000..cabd37880
--- /dev/null
+++ b/reference/rte-fortran-interface/sourcefile/mo_rte_kind.f90.html
@@ -0,0 +1,517 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>mo_rte_kind.F90 &ndash; RTE-Fortran</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>mo_rte_kind.F90
+    <small>Source File</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title=" 0.5% of total for source files.">8 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_rte_kind.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li class="active">mo_rte_kind.F90</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#mods-0">Modules</a></h3></div>
+  <div id="mods-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_rte_kind.html">mo_rte_kind</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title">Source Code</h3></div>
+  <div class="list-group">
+    <a class="list-group-item" href="../sourcefile/mo_rte_kind.f90.html#src">mo_rte_kind.F90</a>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    <div class="col-md-9" id='text'>
+      
+      <br>
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Files dependent on this one</h3>
+      </div>
+      <div class="panel-body">
+  <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: sourcefile~~mo_rte_kind.f90~~AfferentGraph Pages: 1 -->
+<svg id="sourcefilemo_rte_kindf90AfferentGraph" width="641pt" height="205pt"
+ viewBox="0.00 0.00 641.00 204.78" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph" class="graph" transform="scale(1.25 1.25) rotate(0) translate(4 252.86)">
+<title>sourcefile~~mo_rte_kind.f90~~AfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-252.86 800,-252.86 800,4 -4,4"/>
+<!-- sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_node1" class="node">
+<title>sourcefile~mo_rte_kind.f90</title>
+<polygon fill="none" stroke="black" points="100,-156.88 0,-156.88 0,-132.88 100,-132.88 100,-156.88"/>
+<text text-anchor="middle" x="50" y="-142.48" font-family="Helvetica,sans-Serif" font-size="10.50">mo_rte_kind.F90</text>
+</g>
+<!-- sourcefile~mo_rte_sw.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_node2" class="node">
+<title>sourcefile~mo_rte_sw.f90</title>
+<g id="a_sourcefile~~mo_rte_kind.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/mo_rte_sw.f90.html" xlink:title="mo_rte_sw.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="796,-178.88 705,-178.88 705,-154.88 796,-154.88 796,-178.88"/>
+<text text-anchor="middle" x="750.5" y="-164.48" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_sw.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_edge1" class="edge">
+<title>sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421,-241.88C336.21,-237.78 313.21,-258.68 230,-241.88"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_node3" class="node">
+<title>sourcefile~mo_fluxes.f90</title>
+<g id="a_sourcefile~~mo_rte_kind.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/mo_fluxes.f90.html" xlink:title="mo_fluxes.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="640,-196.88 551,-196.88 551,-172.88 640,-172.88 640,-196.88"/>
+<text text-anchor="middle" x="595.5" y="-182.48" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_fluxes.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_fluxes.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_edge8" class="edge">
+<title>sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_fluxes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M704.83,-172.14C687.8,-174.14 668.21,-176.44 650.41,-178.54"/>
+<polygon fill="#000000" stroke="#000000" points="649.69,-175.1 640.17,-179.74 650.51,-182.05 649.69,-175.1"/>
+</g>
+<!-- sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_node4" class="node">
+<title>sourcefile~mo_rte_config.f90</title>
+<g id="a_sourcefile~~mo_rte_kind.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/mo_rte_config.f90.html" xlink:title="mo_rte_config.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="284.5,-117.88 173.5,-117.88 173.5,-93.88 284.5,-93.88 284.5,-117.88"/>
+<text text-anchor="middle" x="229" y="-103.48" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_config.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_edge10" class="edge">
+<title>sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_rte_config.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M729.12,-179.1C700.61,-195.12 646.67,-221.58 596.5,-224.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M594.5,-224.88C561.26,-227.07 551.82,-220.72 522,-205.88 471.85,-180.92 477.05,-142.58 423,-127.88"/>
+</g>
+<!-- sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_node5" class="node">
+<title>sourcefile~mo_rte_util_array_validation.f90</title>
+<g id="a_sourcefile~~mo_rte_kind.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/mo_rte_util_array_validation.f90.html" xlink:title="mo_rte_util_array_validation.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="322,-177.88 136,-177.88 136,-153.88 322,-153.88 322,-177.88"/>
+<text text-anchor="middle" x="229" y="-163.48" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array_validation.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_edge14" class="edge">
+<title>sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M594.5,-224.88C518.07,-229.91 499.51,-245.58 423,-241.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421,-241.88C358.99,-238.88 293.06,-204.86 257.17,-183.37"/>
+<polygon fill="#000000" stroke="#000000" points="258.65,-180.17 248.29,-177.94 255,-186.14 258.65,-180.17"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_node6" class="node">
+<title>sourcefile~mo_optical_props.f90</title>
+<g id="a_sourcefile~~mo_rte_kind.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/mo_optical_props.f90.html" xlink:title="mo_optical_props.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="486,-99.88 358,-99.88 358,-75.88 486,-75.88 486,-99.88"/>
+<text text-anchor="middle" x="422" y="-85.48" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_edge18" class="edge">
+<title>sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M727.57,-154.64C698.63,-139.36 645.59,-114.31 596.5,-106.88"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_edge2" class="edge">
+<title>sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421,-203.88C334.58,-208.6 314.84,-259.01 230,-241.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M228,-241.88C167.41,-229.65 106.27,-188.21 74.11,-163.63"/>
+<polygon fill="#000000" stroke="#000000" points="75.88,-160.57 65.84,-157.18 71.58,-166.09 75.88,-160.57"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_edge11" class="edge">
+<title>sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_config.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M561.95,-172.87C527.7,-160.5 472.05,-141.22 423,-127.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421,-127.88C379.93,-116.71 332.39,-111.21 295.01,-108.5"/>
+<polygon fill="#000000" stroke="#000000" points="294.96,-104.99 284.75,-107.81 294.49,-111.97 294.96,-104.99"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_edge15" class="edge">
+<title>sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M550.91,-191.07C516.31,-195.65 466.67,-201.5 423,-203.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421,-203.88C369.71,-206.68 312.03,-192.77 273.61,-181"/>
+<polygon fill="#000000" stroke="#000000" points="274.37,-177.58 263.79,-177.91 272.27,-184.25 274.37,-177.58"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_edge19" class="edge">
+<title>sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M578.18,-172.8C557.45,-157.79 520.25,-131.95 486,-113.88 479.38,-110.39 472.19,-107.04 465.11,-103.96"/>
+<polygon fill="#000000" stroke="#000000" points="466.16,-100.61 455.58,-99.97 463.45,-107.07 466.16,-100.61"/>
+</g>
+<!-- sourcefile~mo_rte_config.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_edge3" class="edge">
+<title>sourcefile~mo_rte_config.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M173.45,-117.9C153.37,-122.32 130.55,-127.35 110.09,-131.86"/>
+<polygon fill="#000000" stroke="#000000" points="109.27,-128.46 100.26,-134.03 110.78,-135.29 109.27,-128.46"/>
+</g>
+<!-- sourcefile~mo_rte_util_array_validation.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_edge4" class="edge">
+<title>sourcefile~mo_rte_util_array_validation.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.87,-154.95C127.25,-153.93 118.67,-152.91 110.47,-151.94"/>
+<polygon fill="#000000" stroke="#000000" points="110.65,-148.43 100.3,-150.73 109.82,-155.38 110.65,-148.43"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_edge5" class="edge">
+<title>sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.15,-75.65C376.37,-49.98 299.51,5.91 230,-9.88"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_edge13" class="edge">
+<title>sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_config.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M357.93,-93.82C337.67,-95.73 315.19,-97.85 294.8,-99.77"/>
+<polygon fill="#000000" stroke="#000000" points="294.3,-96.31 284.67,-100.73 294.96,-103.27 294.3,-96.31"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_edge17" class="edge">
+<title>sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M391.57,-99.9C358.63,-113.35 305.1,-135.21 268.76,-150.05"/>
+<polygon fill="#000000" stroke="#000000" points="267.39,-146.83 259.46,-153.85 270.04,-153.31 267.39,-146.83"/>
+</g>
+<!-- sourcefile~mo_source_functions.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_node7" class="node">
+<title>sourcefile~mo_source_functions.f90</title>
+<g id="a_sourcefile~~mo_rte_kind.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/mo_source_functions.f90.html" xlink:title="mo_source_functions.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="669,-61.88 522,-61.88 522,-37.88 669,-37.88 669,-61.88"/>
+<text text-anchor="middle" x="595.5" y="-47.48" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_source_functions.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_source_functions.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_edge6" class="edge">
+<title>sourcefile~mo_source_functions.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M558.89,-37.8C524.57,-27.05 470.92,-12.63 423,-9.88"/>
+</g>
+<!-- sourcefile~mo_source_functions.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_edge20" class="edge">
+<title>sourcefile~mo_source_functions.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.24,-61.9C523.42,-65.63 504.73,-69.77 487.3,-73.63"/>
+<polygon fill="#000000" stroke="#000000" points="486.21,-70.29 477.2,-75.87 487.73,-77.12 486.21,-70.29"/>
+</g>
+<!-- sourcefile~mo_rte_lw.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_node8" class="node">
+<title>sourcefile~mo_rte_lw.f90</title>
+<g id="a_sourcefile~~mo_rte_kind.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/mo_rte_lw.f90.html" xlink:title="mo_rte_lw.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="794.5,-118.88 706.5,-118.88 706.5,-94.88 794.5,-94.88 794.5,-118.88"/>
+<text text-anchor="middle" x="750.5" y="-104.48" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_lw.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_edge7" class="edge">
+<title>sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M740.27,-94.6C726.61,-77.3 699.35,-45.98 669,-28.88 639.98,-12.53 628.96,-17.36 596.5,-9.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M594.5,-9.88C520.22,7.23 499.1,-14.25 423,-9.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421,-9.88C336.25,-5.01 312.78,8.93 230,-9.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M228,-9.88C157.13,-25.98 94.86,-91.28 66.81,-124.81"/>
+<polygon fill="#000000" stroke="#000000" points="64.05,-122.64 60.43,-132.6 69.47,-127.08 64.05,-122.64"/>
+</g>
+<!-- sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_fluxes.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_edge9" class="edge">
+<title>sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_fluxes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M733.2,-119C717.39,-130.37 692.42,-147.31 669,-158.88 661.33,-162.67 652.97,-166.19 644.74,-169.34"/>
+<polygon fill="#000000" stroke="#000000" points="643.36,-166.11 635.18,-172.85 645.78,-172.68 643.36,-166.11"/>
+</g>
+<!-- sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_edge12" class="edge">
+<title>sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_rte_config.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M594.5,-9.88C563.46,-2.77 368.88,-61.98 277.41,-90.76"/>
+<polygon fill="#000000" stroke="#000000" points="276.32,-87.44 267.83,-93.78 278.42,-94.11 276.32,-87.44"/>
+</g>
+<!-- sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_edge16" class="edge">
+<title>sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M706.12,-114.9C694.12,-116.99 681.07,-119.14 669,-120.88 554.18,-137.44 421.61,-150.15 332.45,-157.78"/>
+<polygon fill="#000000" stroke="#000000" points="332.01,-154.3 322.34,-158.63 332.6,-161.28 332.01,-154.3"/>
+</g>
+<!-- sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_edge21" class="edge">
+<title>sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M706.37,-110.31C675.58,-111.92 633.27,-112.44 596.5,-106.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M594.5,-106.88C562.43,-102.03 526.82,-97.88 496.39,-94.71"/>
+<polygon fill="#000000" stroke="#000000" points="496.59,-91.22 486.28,-93.68 495.87,-98.18 496.59,-91.22"/>
+</g>
+<!-- sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_source_functions.f90 -->
+<g id="sourcefile~~mo_rte_kind.f90~~AfferentGraph_edge22" class="edge">
+<title>sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_source_functions.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.05,-94.79C694.13,-86.25 663.2,-74.73 638.42,-65.5"/>
+<polygon fill="#000000" stroke="#000000" points="639.49,-62.16 628.9,-61.95 637.05,-68.72 639.49,-62.16"/>
+</g>
+</g>
+</svg>
+</div><script>var pansourcefilemo_rte_kindf90AfferentGraph = svgPanZoom('#sourcefilemo_rte_kindf90AfferentGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="202pt" height="32pt"
+ viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<!-- Source File -->
+<g id="node1" class="node">
+<title>Source File</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
+<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node2" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
+<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a file to a file which it depends on. A file
+    is dependent upon another if the latter must be compiled before the former
+    can be.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+<br>
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#mods-1">Modules</a></h3></div>
+  <div id="mods-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_rte_kind.html">mo_rte_kind</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title">Source Code</h3></div>
+  <div class="list-group">
+    <a class="list-group-item" href="../sourcefile/mo_rte_kind.f90.html#src">mo_rte_kind.F90</a>
+  </div>
+</div>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    <section>
+      <h2><span class="anchor" id="src"></span>Source Code</h2>
+    <div class="hl"><pre><span></span><a id="ln-1" name="ln-1" href="#ln-1"></a><span class="c">! This code is part of Radiative Transfer for Energetics (RTE)</span>
+<a id="ln-2" name="ln-2" href="#ln-2"></a><span class="c">!</span>
+<a id="ln-3" name="ln-3" href="#ln-3"></a><span class="c">! Contacts: Robert Pincus and Eli Mlawer</span>
+<a id="ln-4" name="ln-4" href="#ln-4"></a><span class="c">! email:  rrtmgp@aer.com</span>
+<a id="ln-5" name="ln-5" href="#ln-5"></a><span class="c">!</span>
+<a id="ln-6" name="ln-6" href="#ln-6"></a><span class="c">! Copyright 2015-  Atmospheric and Environmental Research,</span>
+<a id="ln-7" name="ln-7" href="#ln-7"></a><span class="c">!    Regents of the University of Colorado,</span>
+<a id="ln-8" name="ln-8" href="#ln-8"></a><span class="c">!    Trustees of Columbia University in the City of New York</span>
+<a id="ln-9" name="ln-9" href="#ln-9"></a><span class="c">! All right reserved.</span>
+<a id="ln-10" name="ln-10" href="#ln-10"></a><span class="c">!</span>
+<a id="ln-11" name="ln-11" href="#ln-11"></a><span class="c">! Use and duplication is permitted under the terms of the</span>
+<a id="ln-12" name="ln-12" href="#ln-12"></a><span class="c">!    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause</span>
+<a id="ln-13" name="ln-13" href="#ln-13"></a><span class="c">! -------------------------------------------------------------------------------------------------</span>
+<a id="ln-14" name="ln-14" href="#ln-14"></a><span class="c">!&gt;</span>
+<a id="ln-15" name="ln-15" href="#ln-15"></a><span class="c">!&gt; ## Provide the Fortran KIND parameters for REAL and INTEGER variables.</span>
+<a id="ln-16" name="ln-16" href="#ln-16"></a><span class="c">!&gt;   By default kind parameters come from the ISO C binding and use double precision for working.</span>
+<a id="ln-17" name="ln-17" href="#ln-17"></a><span class="c">!</span>
+<a id="ln-18" name="ln-18" href="#ln-18"></a><span class="c">!   If the host model in which RRTGMP is embedded has defined these constants elsewhere</span>
+<a id="ln-19" name="ln-19" href="#ln-19"></a><span class="c">!   the model definitions can be used instead by renaming. For example,</span>
+<a id="ln-20" name="ln-20" href="#ln-20"></a><span class="c">! use  mo_model_kind, only wp =&gt; dp, ...</span>
+<a id="ln-21" name="ln-21" href="#ln-21"></a><span class="c">!   where the syntax is local_name =&gt; original_name</span>
+<a id="ln-22" name="ln-22" href="#ln-22"></a><span class="c">!   and all the local names need to be defined</span>
+<a id="ln-23" name="ln-23" href="#ln-23"></a>
+<a id="ln-24" name="ln-24" href="#ln-24"></a><span class="k">module </span><span class="n">mo_rte_kind</span><span class="w"></span>
+<a id="ln-25" name="ln-25" href="#ln-25"></a><span class="w">  </span><span class="k">use</span><span class="p">,</span><span class="w"> </span><span class="k">intrinsic</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="nb">iso_c_binding</span><span class="p">,</span><span class="w"> </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="kt">c_float</span><span class="p">,</span><span class="w"> </span><span class="kt">c_double</span><span class="p">,</span><span class="w"> </span><span class="kt">c_long</span><span class="p">,</span><span class="w"> </span><span class="kt">c_int</span><span class="p">,</span><span class="w"> </span><span class="kt">c_bool</span>
+<a id="ln-26" name="ln-26" href="#ln-26"></a><span class="kt">  </span><span class="k">implicit none</span>
+<a id="ln-27" name="ln-27" href="#ln-27"></a><span class="k">  public</span>
+<a id="ln-28" name="ln-28" href="#ln-28"></a><span class="k">  </span><span class="kt">integer</span><span class="p">,</span><span class="w"> </span><span class="k">parameter</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">dp</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="kt">c_double</span><span class="p">,</span><span class="w"> </span><span class="n">sp</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="kt">c_float</span><span class="p">,</span><span class="w"> </span><span class="n">i8</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="kt">c_long</span><span class="p">,</span><span class="w"> </span><span class="n">i4</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="kt">c_int</span><span class="w"></span>
+<a id="ln-29" name="ln-29" href="#ln-29"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-30" name="ln-30" href="#ln-30"></a><span class="w">  </span><span class="c">! Floating point working precision</span>
+<a id="ln-31" name="ln-31" href="#ln-31"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-32" name="ln-32" href="#ln-32"></a><span class="cp">#ifdef RTE_USE_SP</span>
+<a id="ln-33" name="ln-33" href="#ln-33"></a><span class="w">  </span><span class="kt">integer</span><span class="p">,</span><span class="w"> </span><span class="k">parameter</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">wp</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">sp</span><span class="w"></span>
+<a id="ln-34" name="ln-34" href="#ln-34"></a><span class="cp">#else</span>
+<a id="ln-35" name="ln-35" href="#ln-35"></a><span class="w">  </span><span class="kt">integer</span><span class="p">,</span><span class="w"> </span><span class="k">parameter</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">wp</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">dp</span><span class="w"></span>
+<a id="ln-36" name="ln-36" href="#ln-36"></a><span class="cp">#endif</span>
+<a id="ln-37" name="ln-37" href="#ln-37"></a>
+<a id="ln-38" name="ln-38" href="#ln-38"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-39" name="ln-39" href="#ln-39"></a><span class="w">  </span><span class="c">! Logical - for use with kernels</span>
+<a id="ln-40" name="ln-40" href="#ln-40"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-41" name="ln-41" href="#ln-41"></a><span class="w">  </span><span class="c">! Note that c_boolians don&#39;t work with PGI compiler currently</span>
+<a id="ln-42" name="ln-42" href="#ln-42"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-43" name="ln-43" href="#ln-43"></a><span class="cp">#ifdef RTE_USE_CBOOL</span>
+<a id="ln-44" name="ln-44" href="#ln-44"></a><span class="w">  </span><span class="kt">integer</span><span class="p">,</span><span class="w"> </span><span class="k">parameter</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">wl</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="kt">c_bool</span><span class="w"></span>
+<a id="ln-45" name="ln-45" href="#ln-45"></a><span class="cp">#else</span>
+<a id="ln-46" name="ln-46" href="#ln-46"></a><span class="w">  </span><span class="kt">integer</span><span class="p">,</span><span class="w"> </span><span class="k">parameter</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">wl</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">kind</span><span class="p">(.</span><span class="n">true</span><span class="p">.)</span><span class="w"></span>
+<a id="ln-47" name="ln-47" href="#ln-47"></a><span class="cp">#endif</span>
+<a id="ln-48" name="ln-48" href="#ln-48"></a>
+<a id="ln-49" name="ln-49" href="#ln-49"></a><span class="k">end module </span><span class="n">mo_rte_kind</span><span class="w"></span>
+</pre></div>
+
+    </section>
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/sourcefile/mo_rte_lw.f90.html b/reference/rte-fortran-interface/sourcefile/mo_rte_lw.f90.html
new file mode 100644
index 000000000..3ddf64551
--- /dev/null
+++ b/reference/rte-fortran-interface/sourcefile/mo_rte_lw.f90.html
@@ -0,0 +1,913 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>mo_rte_lw.F90 &ndash; RTE-Fortran</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>mo_rte_lw.F90
+    <small>Source File</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title="12.7% of total for source files.">202 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_rte_lw.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li class="active">mo_rte_lw.F90</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#mods-0">Modules</a></h3></div>
+  <div id="mods-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_rte_lw.html">mo_rte_lw</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title">Source Code</h3></div>
+  <div class="list-group">
+    <a class="list-group-item" href="../sourcefile/mo_rte_lw.f90.html#src">mo_rte_lw.F90</a>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    <div class="col-md-9" id='text'>
+      
+      <br>
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">This file depends on</h3>
+      </div>
+      <div class="panel-body">
+  <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: sourcefile~~mo_rte_lw.f90~~EfferentGraph Pages: 1 -->
+<svg id="sourcefilemo_rte_lwf90EfferentGraph" width="641pt" height="146pt"
+ viewBox="0.00 0.00 641.00 145.73" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~mo_rte_lw.f90~~EfferentGraph" class="graph" transform="scale(1.25 1.25) rotate(0) translate(4 178.11)">
+<title>sourcefile~~mo_rte_lw.f90~~EfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-178.11 797,-178.11 797,4 -4,4"/>
+<!-- sourcefile~mo_rte_lw.f90 -->
+<g id="sourcefile~~mo_rte_lw.f90~~EfferentGraph_node1" class="node">
+<title>sourcefile~mo_rte_lw.f90</title>
+<polygon fill="none" stroke="black" points="793,-96.93 705,-96.93 705,-72.93 793,-72.93 793,-96.93"/>
+<text text-anchor="middle" x="749" y="-82.53" font-family="Helvetica,sans-Serif" font-size="10.50">mo_rte_lw.F90</text>
+</g>
+<!-- sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_rte_lw.f90~~EfferentGraph_node2" class="node">
+<title>sourcefile~mo_rte_kind.f90</title>
+<g id="a_sourcefile~~mo_rte_lw.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/mo_rte_kind.f90.html" xlink:title="mo_rte_kind.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="100,-75.93 0,-75.93 0,-51.93 100,-51.93 100,-75.93"/>
+<text text-anchor="middle" x="50" y="-61.53" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_rte_lw.f90~~EfferentGraph_edge1" class="edge">
+<title>sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M736.8,-97.12C722.61,-111.65 696.65,-135.29 669,-145.93 566.66,-185.31 532.48,-158.64 423,-164.93"/>
+</g>
+<!-- sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_rte_lw.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~mo_rte_config.f90</title>
+<g id="a_sourcefile~~mo_rte_lw.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/mo_rte_config.f90.html" xlink:title="mo_rte_config.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="284.5,-96.93 173.5,-96.93 173.5,-72.93 284.5,-72.93 284.5,-96.93"/>
+<text text-anchor="middle" x="229" y="-82.53" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_config.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_rte_lw.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_rte_config.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M704.86,-83.62C674.53,-83.02 633,-82.84 596.5,-84.93"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M594.5,-84.93C489.88,-90.94 368.08,-89.18 295.11,-87.18"/>
+<polygon fill="#000000" stroke="#000000" points="294.8,-83.67 284.71,-86.88 294.6,-90.67 294.8,-83.67"/>
+</g>
+<!-- sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_rte_lw.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~mo_rte_util_array_validation.f90</title>
+<g id="a_sourcefile~~mo_rte_lw.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/mo_rte_util_array_validation.f90.html" xlink:title="mo_rte_util_array_validation.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="322,-54.93 136,-54.93 136,-30.93 322,-30.93 322,-54.93"/>
+<text text-anchor="middle" x="229" y="-40.53" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array_validation.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_rte_lw.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M737.42,-72.91C723.48,-58.07 697.37,-33.61 669,-23.93 536.31,21.33 367.89,-8.18 283.42,-28.44"/>
+<polygon fill="#000000" stroke="#000000" points="282.43,-25.08 273.55,-30.86 284.09,-31.88 282.43,-25.08"/>
+</g>
+<!-- sourcefile~mo_source_functions.f90 -->
+<g id="sourcefile~~mo_rte_lw.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~mo_source_functions.f90</title>
+<g id="a_sourcefile~~mo_rte_lw.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/mo_source_functions.f90.html" xlink:title="mo_source_functions.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="669,-136.93 522,-136.93 522,-112.93 669,-112.93 669,-136.93"/>
+<text text-anchor="middle" x="595.5" y="-122.53" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_source_functions.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_source_functions.f90 -->
+<g id="sourcefile~~mo_rte_lw.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_source_functions.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M704.99,-96.29C688.54,-100.63 669.53,-105.65 652.07,-110.26"/>
+<polygon fill="#000000" stroke="#000000" points="650.77,-106.98 642,-112.92 652.56,-113.75 650.77,-106.98"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_rte_lw.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~mo_optical_props.f90</title>
+<g id="a_sourcefile~~mo_rte_lw.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/mo_optical_props.f90.html" xlink:title="mo_optical_props.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="486,-136.93 358,-136.93 358,-112.93 486,-112.93 486,-136.93"/>
+<text text-anchor="middle" x="422" y="-122.53" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_rte_lw.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M594.5,-84.93C550.88,-87.44 502.53,-99.61 468.31,-109.87"/>
+<polygon fill="#000000" stroke="#000000" points="467.14,-106.57 458.61,-112.85 469.19,-113.26 467.14,-106.57"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90 -->
+<g id="sourcefile~~mo_rte_lw.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~mo_fluxes.f90</title>
+<g id="a_sourcefile~~mo_rte_lw.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/mo_fluxes.f90.html" xlink:title="mo_fluxes.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="640,-56.93 551,-56.93 551,-32.93 640,-32.93 640,-56.93"/>
+<text text-anchor="middle" x="595.5" y="-42.53" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_fluxes.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_fluxes.f90 -->
+<g id="sourcefile~~mo_rte_lw.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_fluxes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M704.99,-73.58C687.87,-69.06 667.98,-63.8 649.94,-59.04"/>
+<polygon fill="#000000" stroke="#000000" points="650.7,-55.62 640.14,-56.45 648.92,-62.39 650.7,-55.62"/>
+</g>
+<!-- sourcefile~mo_rte_config.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_rte_lw.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~mo_rte_config.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M173.45,-78.46C153.46,-76.09 130.76,-73.39 110.37,-70.98"/>
+<polygon fill="#000000" stroke="#000000" points="110.6,-67.48 100.26,-69.78 109.78,-74.43 110.6,-67.48"/>
+</g>
+<!-- sourcefile~mo_rte_util_array_validation.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_rte_lw.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~mo_rte_util_array_validation.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.87,-53.86C127.25,-54.89 118.67,-55.9 110.47,-56.88"/>
+<polygon fill="#000000" stroke="#000000" points="109.82,-53.43 100.3,-58.08 110.65,-60.38 109.82,-53.43"/>
+</g>
+<!-- sourcefile~mo_source_functions.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_rte_lw.f90~~EfferentGraph_edge9" class="edge">
+<title>sourcefile~mo_source_functions.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M558.89,-137.02C524.57,-147.76 470.92,-162.18 423,-164.93"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421,-164.93C336.25,-169.8 313.11,-182.23 230,-164.93"/>
+</g>
+<!-- sourcefile~mo_source_functions.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_rte_lw.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~mo_source_functions.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M521.77,-124.93C513.33,-124.93 504.72,-124.93 496.28,-124.93"/>
+<polygon fill="#000000" stroke="#000000" points="496.08,-121.43 486.08,-124.93 496.08,-128.43 496.08,-121.43"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_rte_lw.f90~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M382.02,-136.94C334.94,-150.77 258.52,-170.87 230,-164.93"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M228,-164.93C166.26,-152.08 104.69,-108.16 72.98,-82.67"/>
+<polygon fill="#000000" stroke="#000000" points="74.81,-79.64 64.85,-76.01 70.37,-85.05 74.81,-79.64"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_rte_lw.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_config.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M363.69,-112.93C341.97,-108.38 317.08,-103.17 294.72,-98.49"/>
+<polygon fill="#000000" stroke="#000000" points="295.15,-95 284.65,-96.38 293.72,-101.85 295.15,-95"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_rte_lw.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M405.08,-112.82C386.22,-99.03 353.39,-76.77 322,-63.93 316.56,-61.71 310.84,-59.69 305.02,-57.87"/>
+<polygon fill="#000000" stroke="#000000" points="305.75,-54.44 295.17,-55 303.79,-61.16 305.75,-54.44"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_rte_lw.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M550.8,-34.81C468.41,-17.47 285.01,12.87 136,-21.93 115.5,-26.72 94.27,-37.21 78.15,-46.5"/>
+<polygon fill="#000000" stroke="#000000" points="76.09,-43.66 69.3,-51.79 79.68,-49.67 76.09,-43.66"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_rte_lw.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_config.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421,-45.93C408.32,-46.56 344.93,-59.84 294.6,-70.73"/>
+<polygon fill="#000000" stroke="#000000" points="293.76,-67.33 284.73,-72.87 295.24,-74.17 293.76,-67.33"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_rte_lw.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M550.77,-44.14C516.09,-43.76 466.42,-43.79 423,-45.93"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421,-45.93C392.26,-47.35 361.06,-47.47 332.37,-46.99"/>
+<polygon fill="#000000" stroke="#000000" points="332.4,-43.49 322.33,-46.8 332.26,-50.49 332.4,-43.49"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_rte_lw.f90~~EfferentGraph_edge17" class="edge">
+<title>sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M557.55,-56.94C546.02,-61.02 533.35,-65.84 522,-70.93 497.64,-81.87 471.13,-96.48 451.68,-107.74"/>
+<polygon fill="#000000" stroke="#000000" points="449.87,-104.75 443.01,-112.82 453.41,-110.79 449.87,-104.75"/>
+</g>
+</g>
+</svg>
+</div><script>var pansourcefilemo_rte_lwf90EfferentGraph = svgPanZoom('#sourcefilemo_rte_lwf90EfferentGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="202pt" height="32pt"
+ viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<!-- Source File -->
+<g id="node1" class="node">
+<title>Source File</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
+<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node2" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
+<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a file to a file which it depends on. A file
+    is dependent upon another if the latter must be compiled before the former
+    can be.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+<br>
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#mods-1">Modules</a></h3></div>
+  <div id="mods-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_rte_lw.html">mo_rte_lw</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title">Source Code</h3></div>
+  <div class="list-group">
+    <a class="list-group-item" href="../sourcefile/mo_rte_lw.f90.html#src">mo_rte_lw.F90</a>
+  </div>
+</div>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    <section>
+      <h2><span class="anchor" id="src"></span>Source Code</h2>
+    <div class="hl"><pre><span></span><a id="ln-1" name="ln-1" href="#ln-1"></a><span class="c">! This code is part of Radiative Transfer for Energetics (RTE)</span>
+<a id="ln-2" name="ln-2" href="#ln-2"></a><span class="c">!</span>
+<a id="ln-3" name="ln-3" href="#ln-3"></a><span class="c">! Contacts: Robert Pincus and Eli Mlawer</span>
+<a id="ln-4" name="ln-4" href="#ln-4"></a><span class="c">! email:  rrtmgp@aer.com</span>
+<a id="ln-5" name="ln-5" href="#ln-5"></a><span class="c">!</span>
+<a id="ln-6" name="ln-6" href="#ln-6"></a><span class="c">! Copyright 2015-  Atmospheric and Environmental Research,</span>
+<a id="ln-7" name="ln-7" href="#ln-7"></a><span class="c">!    Regents of the University of Colorado,</span>
+<a id="ln-8" name="ln-8" href="#ln-8"></a><span class="c">!    Trustees of Columbia University in the City of New York</span>
+<a id="ln-9" name="ln-9" href="#ln-9"></a><span class="c">! All right reserved.</span>
+<a id="ln-10" name="ln-10" href="#ln-10"></a><span class="c">!</span>
+<a id="ln-11" name="ln-11" href="#ln-11"></a><span class="c">! Use and duplication is permitted under the terms of the</span>
+<a id="ln-12" name="ln-12" href="#ln-12"></a><span class="c">!    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause</span>
+<a id="ln-13" name="ln-13" href="#ln-13"></a><span class="c">! -------------------------------------------------------------------------------------------------</span>
+<a id="ln-14" name="ln-14" href="#ln-14"></a><span class="c">!</span>
+<a id="ln-15" name="ln-15" href="#ln-15"></a><span class="c">!&gt; Compute longwave radiative fluxes</span>
+<a id="ln-16" name="ln-16" href="#ln-16"></a><span class="c">!&gt;</span>
+<a id="ln-17" name="ln-17" href="#ln-17"></a><span class="c">!&gt;  Contains a single routine to compute direct and diffuse fluxes of solar radiation given</span>
+<a id="ln-18" name="ln-18" href="#ln-18"></a><span class="c">!&gt;</span>
+<a id="ln-19" name="ln-19" href="#ln-19"></a><span class="c">!&gt; - atmospheric optical properties, spectrally-resolved via one of the sub-classes of</span>
+<a id="ln-20" name="ln-20" href="#ln-20"></a><span class="c">!&gt;     [[mo_optical_props(module):ty_optical_props_arry(type)]] in module [[mo_optical_props]]</span>
+<a id="ln-21" name="ln-21" href="#ln-21"></a><span class="c">!      (ty_optical_props_arry in module mo_optical_props)</span>
+<a id="ln-22" name="ln-22" href="#ln-22"></a><span class="c">!&gt; - information about vertical ordering</span>
+<a id="ln-23" name="ln-23" href="#ln-23"></a><span class="c">!&gt; - internal Planck source functions, defined per g-point on the same spectral grid at the atmosphere,</span>
+<a id="ln-24" name="ln-24" href="#ln-24"></a><span class="c">!&gt;     via [[mo_source_functions(module):ty_source_func_lw(type)]] in module [[mo_source_functions]]</span>
+<a id="ln-25" name="ln-25" href="#ln-25"></a><span class="c">!      (ty_source_func_lw in module mo_source_functions)</span>
+<a id="ln-26" name="ln-26" href="#ln-26"></a><span class="c">!&gt; -  boundary conditions: surface emissivity defined per band</span>
+<a id="ln-27" name="ln-27" href="#ln-27"></a><span class="c">!&gt; -  optionally, a boundary condition for incident diffuse radiation</span>
+<a id="ln-28" name="ln-28" href="#ln-28"></a><span class="c">!&gt; -  optionally, an integer number of angles at which to do Gaussian quadrature if scattering is neglected</span>
+<a id="ln-29" name="ln-29" href="#ln-29"></a><span class="c">!&gt;</span>
+<a id="ln-30" name="ln-30" href="#ln-30"></a><span class="c">!&gt; If optical properties are supplied via class ty_optical_props_1scl (absorption optical thickenss only)</span>
+<a id="ln-31" name="ln-31" href="#ln-31"></a><span class="c">!&gt;    ([[mo_optical_props(module):ty_optical_props_1scl(type)]] in module [[mo_optical_props]])</span>
+<a id="ln-32" name="ln-32" href="#ln-32"></a><span class="c">!&gt;    then an emission/absorption solver is called.</span>
+<a id="ln-33" name="ln-33" href="#ln-33"></a><span class="c">!&gt;    If optical properties are supplied via class ty_optical_props_2str</span>
+<a id="ln-34" name="ln-34" href="#ln-34"></a><span class="c">!&gt;    ([[mo_optical_props(module):ty_optical_props_2str(type)]] in module [[mo_optical_props]])</span>
+<a id="ln-35" name="ln-35" href="#ln-35"></a><span class="c">!&gt;    fluxes are computed via a rescaling by default or, optionally, using two-stream calculations and adding.</span>
+<a id="ln-36" name="ln-36" href="#ln-36"></a><span class="c">!&gt;</span>
+<a id="ln-37" name="ln-37" href="#ln-37"></a><span class="c">!&gt; Users must ensure that emissivity is on the same spectral grid as the optical properties.</span>
+<a id="ln-38" name="ln-38" href="#ln-38"></a><span class="c">!&gt;</span>
+<a id="ln-39" name="ln-39" href="#ln-39"></a><span class="c">!&gt; Final output is via user-extensible ty_fluxes</span>
+<a id="ln-40" name="ln-40" href="#ln-40"></a><span class="c">!&gt; ([[mo_fluxes(module):ty_fluxes(type)]] in module [[mo_fluxes]])</span>
+<a id="ln-41" name="ln-41" href="#ln-41"></a><span class="c">!&gt; which must reduce the detailed spectral fluxes to whatever summary the user needs</span>
+<a id="ln-42" name="ln-42" href="#ln-42"></a><span class="c">!</span>
+<a id="ln-43" name="ln-43" href="#ln-43"></a><span class="c">!&gt; The routine does error checking and choses which lower-level kernel to invoke based on</span>
+<a id="ln-44" name="ln-44" href="#ln-44"></a><span class="c">!&gt;   what kinds of optical properties are supplied</span>
+<a id="ln-45" name="ln-45" href="#ln-45"></a><span class="c">!</span>
+<a id="ln-46" name="ln-46" href="#ln-46"></a><span class="c">! -------------------------------------------------------------------------------------------------</span>
+<a id="ln-47" name="ln-47" href="#ln-47"></a><span class="k">module </span><span class="n">mo_rte_lw</span><span class="w"></span>
+<a id="ln-48" name="ln-48" href="#ln-48"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_rte_kind</span><span class="p">,</span><span class="w">      </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">wp</span><span class="p">,</span><span class="w"> </span><span class="n">wl</span><span class="w"></span>
+<a id="ln-49" name="ln-49" href="#ln-49"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_rte_config</span><span class="p">,</span><span class="w">    </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">check_extents</span><span class="p">,</span><span class="w"> </span><span class="n">check_values</span><span class="w"></span>
+<a id="ln-50" name="ln-50" href="#ln-50"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_rte_util_array</span><span class="p">,</span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">zero_array</span><span class="w"></span>
+<a id="ln-51" name="ln-51" href="#ln-51"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_rte_util_array_validation</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"> </span>
+<a id="ln-52" name="ln-52" href="#ln-52"></a><span class="w">                        </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">any_vals_less_than</span><span class="p">,</span><span class="w"> </span><span class="n">any_vals_outside</span><span class="p">,</span><span class="w"> </span><span class="n">extents_are</span><span class="w"></span>
+<a id="ln-53" name="ln-53" href="#ln-53"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_optical_props</span><span class="p">,</span><span class="w"> </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">ty_optical_props</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-54" name="ln-54" href="#ln-54"></a><span class="w">                              </span><span class="n">ty_optical_props_arry</span><span class="p">,</span><span class="w"> </span><span class="n">ty_optical_props_1scl</span><span class="p">,</span><span class="w"> </span><span class="n">ty_optical_props_2str</span><span class="p">,</span><span class="w"> </span><span class="n">ty_optical_props_nstr</span><span class="w"></span>
+<a id="ln-55" name="ln-55" href="#ln-55"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_source_functions</span><span class="p">,</span><span class="w">   </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-56" name="ln-56" href="#ln-56"></a><span class="w">                        </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">ty_source_func_lw</span><span class="w"></span>
+<a id="ln-57" name="ln-57" href="#ln-57"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_fluxes</span><span class="p">,</span><span class="w">        </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">ty_fluxes</span><span class="p">,</span><span class="w"> </span><span class="n">ty_fluxes_broadband</span><span class="w"></span>
+<a id="ln-58" name="ln-58" href="#ln-58"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_rte_solver_kernels</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-59" name="ln-59" href="#ln-59"></a><span class="w">                        </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">lw_solver_noscat</span><span class="p">,</span><span class="w"> </span><span class="n">lw_solver_2stream</span><span class="w"></span>
+<a id="ln-60" name="ln-60" href="#ln-60"></a><span class="w">  </span><span class="k">implicit none</span>
+<a id="ln-61" name="ln-61" href="#ln-61"></a><span class="k">  private</span>
+<a id="ln-62" name="ln-62" href="#ln-62"></a>
+<a id="ln-63" name="ln-63" href="#ln-63"></a><span class="k">  public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rte_lw</span><span class="w"></span>
+<a id="ln-64" name="ln-64" href="#ln-64"></a><span class="k">contains</span><span class="w"></span>
+<a id="ln-65" name="ln-65" href="#ln-65"></a><span class="w">  </span><span class="c">! --------------------------------------------------</span>
+<a id="ln-66" name="ln-66" href="#ln-66"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-67" name="ln-67" href="#ln-67"></a><span class="w">  </span><span class="c">! Interface using only optical properties and source functions as inputs; fluxes as outputs.</span>
+<a id="ln-68" name="ln-68" href="#ln-68"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-69" name="ln-69" href="#ln-69"></a><span class="w">  </span><span class="c">! --------------------------------------------------</span>
+<a id="ln-70" name="ln-70" href="#ln-70"></a><span class="w">  </span><span class="k">function </span><span class="n">rte_lw</span><span class="p">(</span><span class="n">optical_props</span><span class="p">,</span><span class="w"> </span><span class="n">top_at_1</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-71" name="ln-71" href="#ln-71"></a><span class="w">                  </span><span class="n">sources</span><span class="p">,</span><span class="w"> </span><span class="n">sfc_emis</span><span class="p">,</span><span class="w">       </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-72" name="ln-72" href="#ln-72"></a><span class="w">                  </span><span class="n">fluxes</span><span class="p">,</span><span class="w">                  </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-73" name="ln-73" href="#ln-73"></a><span class="w">                  </span><span class="n">inc_flux</span><span class="p">,</span><span class="w"> </span><span class="n">n_gauss_angles</span><span class="p">,</span><span class="w"> </span><span class="n">use_2stream</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-74" name="ln-74" href="#ln-74"></a><span class="w">                  </span><span class="n">lw_Ds</span><span class="p">,</span><span class="w"> </span><span class="n">flux_up_Jac</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">error_msg</span><span class="p">)</span><span class="w"></span>
+<a id="ln-75" name="ln-75" href="#ln-75"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_arry</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">optical_props</span><span class="w"></span>
+<a id="ln-76" name="ln-76" href="#ln-76"></a><span class="w">      </span><span class="c">!! Set of optical properties as one or more arrays</span>
+<a id="ln-77" name="ln-77" href="#ln-77"></a><span class="w">    </span><span class="kt">logical</span><span class="p">,</span><span class="w">                      </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">top_at_1</span><span class="w"></span>
+<a id="ln-78" name="ln-78" href="#ln-78"></a><span class="w">      </span><span class="c">!! Is the top of the domain at index 1? (if not, ordering is bottom-to-top)</span>
+<a id="ln-79" name="ln-79" href="#ln-79"></a><span class="w">    </span><span class="k">type</span><span class="p">(</span><span class="n">ty_source_func_lw</span><span class="p">),</span><span class="w">      </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">sources</span><span class="w"></span>
+<a id="ln-80" name="ln-80" href="#ln-80"></a><span class="w">      </span><span class="c">!! Derived type with Planck source functions</span>
+<a id="ln-81" name="ln-81" href="#ln-81"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w">     </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">sfc_emis</span><span class="w"></span>
+<a id="ln-82" name="ln-82" href="#ln-82"></a><span class="w">      </span><span class="c">!! emissivity at surface [] (nband, ncol)</span>
+<a id="ln-83" name="ln-83" href="#ln-83"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_fluxes</span><span class="p">),</span><span class="w">             </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">fluxes</span><span class="w"></span>
+<a id="ln-84" name="ln-84" href="#ln-84"></a><span class="w">      </span><span class="c">!! Dervied type for computing spectral integrals from g-point fluxes.</span>
+<a id="ln-85" name="ln-85" href="#ln-85"></a><span class="w">      </span><span class="c">!! Default computes broadband fluxes at all levels if output arrays are defined. Can be extended per user desires.</span>
+<a id="ln-86" name="ln-86" href="#ln-86"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w">   </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-87" name="ln-87" href="#ln-87"></a><span class="w">                </span><span class="k">target</span><span class="p">,</span><span class="w"> </span><span class="k">optional</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">inc_flux</span><span class="w"></span>
+<a id="ln-88" name="ln-88" href="#ln-88"></a><span class="w">      </span><span class="c">!! incident flux at domain top [W/m2] (ncol, ngpts)</span>
+<a id="ln-89" name="ln-89" href="#ln-89"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">            </span><span class="k">optional</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">n_gauss_angles</span><span class="w"></span>
+<a id="ln-90" name="ln-90" href="#ln-90"></a><span class="w">      </span><span class="c">!! Number of angles used in Gaussian quadrature (max 3, no-scattering solution)</span>
+<a id="ln-91" name="ln-91" href="#ln-91"></a><span class="w">    </span><span class="kt">logical</span><span class="p">,</span><span class="w">            </span><span class="k">optional</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">use_2stream</span><span class="w"></span>
+<a id="ln-92" name="ln-92" href="#ln-92"></a><span class="w">      </span><span class="c">!! When 2-stream parameters (tau/ssa/g) are provided, use 2-stream methods</span>
+<a id="ln-93" name="ln-93" href="#ln-93"></a><span class="w">      </span><span class="c">!! Default is to use re-scaled longwave transport</span>
+<a id="ln-94" name="ln-94" href="#ln-94"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w">   </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-95" name="ln-95" href="#ln-95"></a><span class="w">                      </span><span class="k">optional</span><span class="p">,</span><span class="w">   </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">lw_Ds</span><span class="w"></span>
+<a id="ln-96" name="ln-96" href="#ln-96"></a><span class="w">      </span><span class="c">!! User-specifed 1/cos of transport angle per col, g-point</span>
+<a id="ln-97" name="ln-97" href="#ln-97"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w"> </span><span class="k">target</span><span class="p">,</span><span class="w">  </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-98" name="ln-98" href="#ln-98"></a><span class="w">                      </span><span class="k">optional</span><span class="p">,</span><span class="w">   </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">flux_up_Jac</span><span class="w"></span>
+<a id="ln-99" name="ln-99" href="#ln-99"></a><span class="w">      </span><span class="c">!! surface temperature flux  Jacobian [W/m2/K] (ncol, nlay+1)</span>
+<a id="ln-100" name="ln-100" href="#ln-100"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="mi">128</span><span class="p">)</span><span class="w">                          </span><span class="kd">::</span><span class="w"> </span><span class="n">error_msg</span><span class="w"></span>
+<a id="ln-101" name="ln-101" href="#ln-101"></a><span class="w">      </span><span class="c">!! If empty, calculation was successful</span>
+<a id="ln-102" name="ln-102" href="#ln-102"></a><span class="w">    </span><span class="c">! --------------------------------</span>
+<a id="ln-103" name="ln-103" href="#ln-103"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-104" name="ln-104" href="#ln-104"></a><span class="w">    </span><span class="c">! Local variables</span>
+<a id="ln-105" name="ln-105" href="#ln-105"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-106" name="ln-106" href="#ln-106"></a><span class="w">    </span><span class="kt">integer</span><span class="w">      </span><span class="kd">::</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">nband</span><span class="w"></span>
+<a id="ln-107" name="ln-107" href="#ln-107"></a><span class="w">    </span><span class="kt">integer</span><span class="w">      </span><span class="kd">::</span><span class="w"> </span><span class="n">icol</span><span class="p">,</span><span class="w"> </span><span class="n">ilev</span><span class="p">,</span><span class="w"> </span><span class="n">igpt</span><span class="p">,</span><span class="w">       </span><span class="n">imu</span><span class="w"></span>
+<a id="ln-108" name="ln-108" href="#ln-108"></a><span class="w">    </span><span class="kt">integer</span><span class="w">      </span><span class="kd">::</span><span class="w"> </span><span class="n">n_quad_angs</span><span class="w"></span>
+<a id="ln-109" name="ln-109" href="#ln-109"></a><span class="w">    </span><span class="kt">logical</span><span class="p">(</span><span class="n">wl</span><span class="p">)</span><span class="w">  </span><span class="kd">::</span><span class="w"> </span><span class="n">using_2stream</span><span class="p">,</span><span class="w"> </span><span class="n">do_Jacobians</span><span class="p">,</span><span class="w"> </span><span class="n">do_broadband</span><span class="w"></span>
+<a id="ln-110" name="ln-110" href="#ln-110"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w">   </span><span class="k">allocatable</span><span class="w">   </span><span class="kd">::</span><span class="w"> </span><span class="n">sfc_emis_gpt</span><span class="w"></span>
+<a id="ln-111" name="ln-111" href="#ln-111"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w">   </span><span class="kd">::</span><span class="w"> </span><span class="n">secants</span><span class="w"></span>
+<a id="ln-112" name="ln-112" href="#ln-112"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w">   </span><span class="k">pointer</span><span class="w">       </span><span class="kd">::</span><span class="w"> </span><span class="n">jacobian</span><span class="w"></span>
+<a id="ln-113" name="ln-113" href="#ln-113"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="n">optical_props</span><span class="p">%</span><span class="n">get_ncol</span><span class="p">(),</span><span class="w">           </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-114" name="ln-114" href="#ln-114"></a><span class="w">                        </span><span class="n">optical_props</span><span class="p">%</span><span class="n">get_nlay</span><span class="p">()</span><span class="o">+</span><span class="mi">1</span><span class="p">),</span><span class="w"> </span><span class="k">target</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-115" name="ln-115" href="#ln-115"></a><span class="w">                                            </span><span class="kd">::</span><span class="w"> </span><span class="n">decoy2D</span><span class="w"> </span><span class="c">! Used for optional outputs - needs to be full size.</span>
+<a id="ln-116" name="ln-116" href="#ln-116"></a><span class="w">    </span><span class="c">! Memory needs to be allocated for the full g-point fluxes even if they aren&#39;t</span>
+<a id="ln-117" name="ln-117" href="#ln-117"></a><span class="w">    </span><span class="c">!    used later because a) the GPU kernels use this memory to work in parallel and</span>
+<a id="ln-118" name="ln-118" href="#ln-118"></a><span class="w">    </span><span class="c">!    b) the fluxes are intent(out) in the solvers</span>
+<a id="ln-119" name="ln-119" href="#ln-119"></a><span class="w">    </span><span class="c">! Shortwave solver takes a different approach since three fields are needed</span>
+<a id="ln-120" name="ln-120" href="#ln-120"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="n">optical_props</span><span class="p">%</span><span class="n">get_ncol</span><span class="p">(),</span><span class="w">   </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-121" name="ln-121" href="#ln-121"></a><span class="w">                        </span><span class="n">optical_props</span><span class="p">%</span><span class="n">get_nlay</span><span class="p">()</span><span class="o">+</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-122" name="ln-122" href="#ln-122"></a><span class="w">                        </span><span class="n">optical_props</span><span class="p">%</span><span class="n">get_ngpt</span><span class="p">())</span><span class="w">   </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-123" name="ln-123" href="#ln-123"></a><span class="w">                                            </span><span class="kd">::</span><span class="w"> </span><span class="n">gpt_flux_up</span><span class="p">,</span><span class="w"> </span><span class="n">gpt_flux_dn</span><span class="w"></span>
+<a id="ln-124" name="ln-124" href="#ln-124"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w">   </span><span class="k">pointer</span><span class="w">     </span><span class="kd">::</span><span class="w"> </span><span class="n">flux_dn_loc</span><span class="p">,</span><span class="w"> </span><span class="n">flux_up_loc</span><span class="w"></span>
+<a id="ln-125" name="ln-125" href="#ln-125"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w">   </span><span class="k">pointer</span><span class="w">     </span><span class="kd">::</span><span class="w"> </span><span class="n">inc_flux_diffuse</span><span class="w"></span>
+<a id="ln-126" name="ln-126" href="#ln-126"></a><span class="w">    </span><span class="c">! --------------------------------------------------</span>
+<a id="ln-127" name="ln-127" href="#ln-127"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-128" name="ln-128" href="#ln-128"></a><span class="w">    </span><span class="c">! Weights and angle secants for first order (k=1) Gaussian quadrature.</span>
+<a id="ln-129" name="ln-129" href="#ln-129"></a><span class="w">    </span><span class="c">!   Values from Table 2, Clough et al, 1992, doi:10.1029/92JD01419</span>
+<a id="ln-130" name="ln-130" href="#ln-130"></a><span class="w">    </span><span class="c">!   after Abramowitz &amp; Stegun 1972, page 921</span>
+<a id="ln-131" name="ln-131" href="#ln-131"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-132" name="ln-132" href="#ln-132"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">  </span><span class="k">parameter</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">max_gauss_pts</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">4</span><span class="w"></span>
+<a id="ln-133" name="ln-133" href="#ln-133"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">parameter</span><span class="p">,</span><span class="w">                         </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-134" name="ln-134" href="#ln-134"></a><span class="w">      </span><span class="k">dimension</span><span class="p">(</span><span class="n">max_gauss_pts</span><span class="p">,</span><span class="w"> </span><span class="n">max_gauss_pts</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-135" name="ln-135" href="#ln-135"></a><span class="w">        </span><span class="n">gauss_Ds</span><span class="w">  </span><span class="o">=</span><span class="w"> </span><span class="nb">RESHAPE</span><span class="p">([</span><span class="mf">1.66_wp</span><span class="p">,</span><span class="w">               </span><span class="mf">0._wp</span><span class="p">,</span><span class="w">         </span><span class="mf">0._wp</span><span class="p">,</span><span class="w">         </span><span class="mf">0._wp</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w">  </span><span class="c">! Diffusivity angle, not Gaussian angle</span>
+<a id="ln-136" name="ln-136" href="#ln-136"></a><span class="w">                             </span><span class="mf">1.18350343_wp</span><span class="p">,</span><span class="w"> </span><span class="mf">2.81649655_wp</span><span class="p">,</span><span class="w">         </span><span class="mf">0._wp</span><span class="p">,</span><span class="w">         </span><span class="mf">0._wp</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-137" name="ln-137" href="#ln-137"></a><span class="w">                             </span><span class="mf">1.09719858_wp</span><span class="p">,</span><span class="w"> </span><span class="mf">1.69338507_wp</span><span class="p">,</span><span class="w"> </span><span class="mf">4.70941630_wp</span><span class="p">,</span><span class="w">         </span><span class="mf">0._wp</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-138" name="ln-138" href="#ln-138"></a><span class="w">                             </span><span class="mf">1.06056257_wp</span><span class="p">,</span><span class="w"> </span><span class="mf">1.38282560_wp</span><span class="p">,</span><span class="w"> </span><span class="mf">2.40148179_wp</span><span class="p">,</span><span class="w"> </span><span class="mf">7.15513024_wp</span><span class="p">],</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-139" name="ln-139" href="#ln-139"></a><span class="w">                            </span><span class="p">[</span><span class="n">max_gauss_pts</span><span class="p">,</span><span class="w"> </span><span class="n">max_gauss_pts</span><span class="p">]),</span><span class="w">              </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-140" name="ln-140" href="#ln-140"></a><span class="w">        </span><span class="n">gauss_wts</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">RESHAPE</span><span class="p">([</span><span class="mf">0.5_wp</span><span class="p">,</span><span class="w">          </span><span class="mf">0._wp</span><span class="p">,</span><span class="w">           </span><span class="mf">0._wp</span><span class="p">,</span><span class="w">           </span><span class="mf">0._wp</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-141" name="ln-141" href="#ln-141"></a><span class="w">                             </span><span class="mf">0.3180413817_wp</span><span class="p">,</span><span class="w"> </span><span class="mf">0.1819586183_wp</span><span class="p">,</span><span class="w"> </span><span class="mf">0._wp</span><span class="p">,</span><span class="w">           </span><span class="mf">0._wp</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-142" name="ln-142" href="#ln-142"></a><span class="w">                             </span><span class="mf">0.2009319137_wp</span><span class="p">,</span><span class="w"> </span><span class="mf">0.2292411064_wp</span><span class="p">,</span><span class="w"> </span><span class="mf">0.0698269799_wp</span><span class="p">,</span><span class="w"> </span><span class="mf">0._wp</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-143" name="ln-143" href="#ln-143"></a><span class="w">                             </span><span class="mf">0.1355069134_wp</span><span class="p">,</span><span class="w"> </span><span class="mf">0.2034645680_wp</span><span class="p">,</span><span class="w"> </span><span class="mf">0.1298475476_wp</span><span class="p">,</span><span class="w"> </span><span class="mf">0.0311809710_wp</span><span class="p">],</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-144" name="ln-144" href="#ln-144"></a><span class="w">                             </span><span class="p">[</span><span class="n">max_gauss_pts</span><span class="p">,</span><span class="w"> </span><span class="n">max_gauss_pts</span><span class="p">])</span><span class="w"></span>
+<a id="ln-145" name="ln-145" href="#ln-145"></a><span class="w">    </span><span class="c">! ------------------------------------------------------------------------------------</span>
+<a id="ln-146" name="ln-146" href="#ln-146"></a><span class="w">    </span><span class="n">ncol</span><span class="w">  </span><span class="o">=</span><span class="w"> </span><span class="n">optical_props</span><span class="p">%</span><span class="n">get_ncol</span><span class="p">()</span><span class="w"></span>
+<a id="ln-147" name="ln-147" href="#ln-147"></a><span class="w">    </span><span class="n">nlay</span><span class="w">  </span><span class="o">=</span><span class="w"> </span><span class="n">optical_props</span><span class="p">%</span><span class="n">get_nlay</span><span class="p">()</span><span class="w"></span>
+<a id="ln-148" name="ln-148" href="#ln-148"></a><span class="w">    </span><span class="n">ngpt</span><span class="w">  </span><span class="o">=</span><span class="w"> </span><span class="n">optical_props</span><span class="p">%</span><span class="n">get_ngpt</span><span class="p">()</span><span class="w"></span>
+<a id="ln-149" name="ln-149" href="#ln-149"></a><span class="w">    </span><span class="n">nband</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">optical_props</span><span class="p">%</span><span class="n">get_nband</span><span class="p">()</span><span class="w"></span>
+<a id="ln-150" name="ln-150" href="#ln-150"></a><span class="w">    </span><span class="n">do_Jacobians</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">present</span><span class="p">(</span><span class="n">flux_up_Jac</span><span class="p">)</span><span class="w"></span>
+<a id="ln-151" name="ln-151" href="#ln-151"></a><span class="w">    </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-152" name="ln-152" href="#ln-152"></a>
+<a id="ln-153" name="ln-153" href="#ln-153"></a><span class="w">    </span><span class="c">! ------------------------------------------------------------------------------------</span>
+<a id="ln-154" name="ln-154" href="#ln-154"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-155" name="ln-155" href="#ln-155"></a><span class="w">    </span><span class="c">! Error checking -- input consistency of sizes and validity of values</span>
+<a id="ln-156" name="ln-156" href="#ln-156"></a>
+<a id="ln-157" name="ln-157" href="#ln-157"></a><span class="w">    </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">fluxes</span><span class="p">%</span><span class="n">are_desired</span><span class="p">())</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-158" name="ln-158" href="#ln-158"></a><span class="w">      </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_lw: no space allocated for fluxes&quot;</span><span class="w"></span>
+<a id="ln-159" name="ln-159" href="#ln-159"></a>
+<a id="ln-160" name="ln-160" href="#ln-160"></a><span class="w">    </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">do_Jacobians</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="n">check_extents</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-161" name="ln-161" href="#ln-161"></a><span class="k">      if</span><span class="p">(</span><span class="w"> </span><span class="p">.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">extents_are</span><span class="p">(</span><span class="n">flux_up_Jac</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="o">+</span><span class="mi">1</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-162" name="ln-162" href="#ln-162"></a><span class="w">        </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_lw: flux Jacobian inconsistently sized&quot;</span><span class="w"></span>
+<a id="ln-163" name="ln-163" href="#ln-163"></a><span class="w">    </span><span class="k">endif</span>
+<a id="ln-164" name="ln-164" href="#ln-164"></a>
+<a id="ln-165" name="ln-165" href="#ln-165"></a><span class="k">    if</span><span class="w"> </span><span class="p">(</span><span class="n">check_extents</span><span class="p">)</span><span class="w"> </span><span class="k">then</span><span class="w"></span>
+<a id="ln-166" name="ln-166" href="#ln-166"></a><span class="w">      </span><span class="c">!</span>
+<a id="ln-167" name="ln-167" href="#ln-167"></a><span class="w">      </span><span class="c">! Source functions</span>
+<a id="ln-168" name="ln-168" href="#ln-168"></a><span class="w">      </span><span class="c">!</span>
+<a id="ln-169" name="ln-169" href="#ln-169"></a><span class="w">      </span><span class="k">if</span><span class="p">(</span><span class="nb">any</span><span class="p">([</span><span class="n">sources</span><span class="p">%</span><span class="n">get_ncol</span><span class="p">(),</span><span class="w"> </span><span class="n">sources</span><span class="p">%</span><span class="n">get_nlay</span><span class="p">(),</span><span class="w"> </span><span class="n">sources</span><span class="p">%</span><span class="n">get_ngpt</span><span class="p">()]</span><span class="w">  </span><span class="o">/=</span><span class="w"> </span><span class="p">[</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">]))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-170" name="ln-170" href="#ln-170"></a><span class="w">        </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_lw: sources and optical properties inconsistently sized&quot;</span><span class="w"></span>
+<a id="ln-171" name="ln-171" href="#ln-171"></a><span class="w">      </span><span class="c">!</span>
+<a id="ln-172" name="ln-172" href="#ln-172"></a><span class="w">      </span><span class="c">! Surface emissivity</span>
+<a id="ln-173" name="ln-173" href="#ln-173"></a><span class="w">      </span><span class="c">!</span>
+<a id="ln-174" name="ln-174" href="#ln-174"></a><span class="w">      </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">extents_are</span><span class="p">(</span><span class="n">sfc_emis</span><span class="p">,</span><span class="w"> </span><span class="n">nband</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-175" name="ln-175" href="#ln-175"></a><span class="w">        </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_lw: sfc_emis inconsistently sized&quot;</span><span class="w"></span>
+<a id="ln-176" name="ln-176" href="#ln-176"></a><span class="w">      </span><span class="c">!</span>
+<a id="ln-177" name="ln-177" href="#ln-177"></a><span class="w">      </span><span class="c">! Incident flux, if present</span>
+<a id="ln-178" name="ln-178" href="#ln-178"></a><span class="w">      </span><span class="c">!</span>
+<a id="ln-179" name="ln-179" href="#ln-179"></a><span class="w">      </span><span class="k">if</span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">inc_flux</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-180" name="ln-180" href="#ln-180"></a><span class="k">        if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">extents_are</span><span class="p">(</span><span class="n">inc_flux</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-181" name="ln-181" href="#ln-181"></a><span class="w">          </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_lw: inc_flux inconsistently sized&quot;</span><span class="w"></span>
+<a id="ln-182" name="ln-182" href="#ln-182"></a><span class="w">      </span><span class="k">end if</span>
+<a id="ln-183" name="ln-183" href="#ln-183"></a><span class="k">      if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">lw_Ds</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-184" name="ln-184" href="#ln-184"></a><span class="k">        if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">extents_are</span><span class="p">(</span><span class="n">lw_Ds</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-185" name="ln-185" href="#ln-185"></a><span class="w">          </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_lw: lw_Ds inconsistently sized&quot;</span><span class="w"></span>
+<a id="ln-186" name="ln-186" href="#ln-186"></a><span class="w">      </span><span class="k">end if</span>
+<a id="ln-187" name="ln-187" href="#ln-187"></a><span class="k">    end if</span>
+<a id="ln-188" name="ln-188" href="#ln-188"></a>
+<a id="ln-189" name="ln-189" href="#ln-189"></a><span class="k">    if</span><span class="p">(</span><span class="n">check_values</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-190" name="ln-190" href="#ln-190"></a><span class="k">      if</span><span class="p">(</span><span class="n">any_vals_outside</span><span class="p">(</span><span class="n">sfc_emis</span><span class="p">,</span><span class="w"> </span><span class="mf">0._wp</span><span class="p">,</span><span class="w"> </span><span class="mf">1._wp</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-191" name="ln-191" href="#ln-191"></a><span class="w">        </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_lw: sfc_emis has values &lt; 0 or &gt; 1&quot;</span><span class="w"></span>
+<a id="ln-192" name="ln-192" href="#ln-192"></a>
+<a id="ln-193" name="ln-193" href="#ln-193"></a><span class="w">      </span><span class="k">if</span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">inc_flux</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-194" name="ln-194" href="#ln-194"></a><span class="k">        if</span><span class="p">(</span><span class="n">any_vals_less_than</span><span class="p">(</span><span class="n">inc_flux</span><span class="p">,</span><span class="w"> </span><span class="mf">0._wp</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-195" name="ln-195" href="#ln-195"></a><span class="w">          </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_lw: inc_flux has values &lt; 0&quot;</span><span class="w"></span>
+<a id="ln-196" name="ln-196" href="#ln-196"></a><span class="w">      </span><span class="k">end if</span>
+<a id="ln-197" name="ln-197" href="#ln-197"></a>
+<a id="ln-198" name="ln-198" href="#ln-198"></a><span class="k">      if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">lw_Ds</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-199" name="ln-199" href="#ln-199"></a><span class="k">        if</span><span class="p">(</span><span class="n">any_vals_less_than</span><span class="p">(</span><span class="n">lw_Ds</span><span class="p">,</span><span class="w"> </span><span class="mf">1._wp</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-200" name="ln-200" href="#ln-200"></a><span class="w">          </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_lw: one or more values of lw_Ds &lt; 1.&quot;</span><span class="w"></span>
+<a id="ln-201" name="ln-201" href="#ln-201"></a><span class="w">      </span><span class="k">end if</span>
+<a id="ln-202" name="ln-202" href="#ln-202"></a>
+<a id="ln-203" name="ln-203" href="#ln-203"></a><span class="k">      if</span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">n_gauss_angles</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-204" name="ln-204" href="#ln-204"></a><span class="k">        if</span><span class="p">(</span><span class="n">n_gauss_angles</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="n">max_gauss_pts</span><span class="p">)</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-205" name="ln-205" href="#ln-205"></a><span class="w">          </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_lw: asking for too many quadrature points for no-scattering calculation&quot;</span><span class="w"></span>
+<a id="ln-206" name="ln-206" href="#ln-206"></a><span class="w">        </span><span class="k">if</span><span class="p">(</span><span class="n">n_gauss_angles</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-207" name="ln-207" href="#ln-207"></a><span class="w">          </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_lw: have to ask for at least one quadrature point for no-scattering calculation&quot;</span><span class="w"></span>
+<a id="ln-208" name="ln-208" href="#ln-208"></a><span class="w">      </span><span class="k">end if</span>
+<a id="ln-209" name="ln-209" href="#ln-209"></a><span class="k">    end if</span>
+<a id="ln-210" name="ln-210" href="#ln-210"></a><span class="k">    if</span><span class="p">(</span><span class="nb">len_trim</span><span class="p">(</span><span class="n">error_msg</span><span class="p">)</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">return</span><span class="w"></span>
+<a id="ln-211" name="ln-211" href="#ln-211"></a>
+<a id="ln-212" name="ln-212" href="#ln-212"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-213" name="ln-213" href="#ln-213"></a><span class="w">    </span><span class="c">! Number of quadrature points for no-scattering calculation</span>
+<a id="ln-214" name="ln-214" href="#ln-214"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-215" name="ln-215" href="#ln-215"></a><span class="w">    </span><span class="n">n_quad_angs</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="w"></span>
+<a id="ln-216" name="ln-216" href="#ln-216"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">n_gauss_angles</span><span class="p">))</span><span class="w"> </span><span class="n">n_quad_angs</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">n_gauss_angles</span><span class="w"></span>
+<a id="ln-217" name="ln-217" href="#ln-217"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-218" name="ln-218" href="#ln-218"></a><span class="w">    </span><span class="c">! Optionally - use 2-stream methods when low-order scattering properties are provided?</span>
+<a id="ln-219" name="ln-219" href="#ln-219"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-220" name="ln-220" href="#ln-220"></a><span class="w">    </span><span class="n">using_2stream</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">false</span><span class="p">.</span><span class="w"></span>
+<a id="ln-221" name="ln-221" href="#ln-221"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">use_2stream</span><span class="p">))</span><span class="w"> </span><span class="n">using_2stream</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">use_2stream</span><span class="w"></span>
+<a id="ln-222" name="ln-222" href="#ln-222"></a>
+<a id="ln-223" name="ln-223" href="#ln-223"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-224" name="ln-224" href="#ln-224"></a><span class="w">    </span><span class="c">! Checking that optional arguments are consistent with one another and with optical properties</span>
+<a id="ln-225" name="ln-225" href="#ln-225"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-226" name="ln-226" href="#ln-226"></a><span class="w">    </span><span class="k">select type</span><span class="w"> </span><span class="p">(</span><span class="n">optical_props</span><span class="p">)</span><span class="w"></span>
+<a id="ln-227" name="ln-227" href="#ln-227"></a><span class="w">      </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_1scl</span><span class="p">)</span><span class="w"></span>
+<a id="ln-228" name="ln-228" href="#ln-228"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">using_2stream</span><span class="p">)</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-229" name="ln-229" href="#ln-229"></a><span class="w">          </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_lw: can&#39;t use two-stream methods with only absorption optical depth&quot;</span><span class="w"></span>
+<a id="ln-230" name="ln-230" href="#ln-230"></a><span class="w">        </span><span class="k">if</span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">lw_Ds</span><span class="p">)</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="n">n_quad_angs</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-231" name="ln-231" href="#ln-231"></a><span class="w">            </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_lw: providing lw_Ds incompatible with specifying n_gauss_angles&quot;</span><span class="w"></span>
+<a id="ln-232" name="ln-232" href="#ln-232"></a><span class="w">      </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_2str</span><span class="p">)</span><span class="w"></span>
+<a id="ln-233" name="ln-233" href="#ln-233"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">lw_Ds</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-234" name="ln-234" href="#ln-234"></a><span class="w">          </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_lw: lw_Ds not valid when providing scattering optical properties&quot;</span><span class="w"></span>
+<a id="ln-235" name="ln-235" href="#ln-235"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">using_2stream</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="n">n_quad_angs</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-236" name="ln-236" href="#ln-236"></a><span class="w">          </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_lw: using_2stream=true incompatible with specifying n_gauss_angles&quot;</span><span class="w"></span>
+<a id="ln-237" name="ln-237" href="#ln-237"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">using_2stream</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="n">do_Jacobians</span><span class="p">)</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-238" name="ln-238" href="#ln-238"></a><span class="w">          </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_lw: can&#39;t provide Jacobian of fluxes w.r.t surface temperature with 2-stream&quot;</span><span class="w"></span>
+<a id="ln-239" name="ln-239" href="#ln-239"></a><span class="w">      </span><span class="k">class </span><span class="n">default</span><span class="w"></span>
+<a id="ln-240" name="ln-240" href="#ln-240"></a><span class="w">        </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w">  </span><span class="s2">&quot;rte_lw: lw_solver(...ty_optical_props_nstr...) not yet implemented&quot;</span><span class="w"></span>
+<a id="ln-241" name="ln-241" href="#ln-241"></a><span class="w">    </span><span class="k">end select</span>
+<a id="ln-242" name="ln-242" href="#ln-242"></a>
+<a id="ln-243" name="ln-243" href="#ln-243"></a><span class="k">    if</span><span class="p">(</span><span class="nb">len_trim</span><span class="p">(</span><span class="n">error_msg</span><span class="p">)</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-244" name="ln-244" href="#ln-244"></a><span class="k">      if</span><span class="p">(</span><span class="nb">len_trim</span><span class="p">(</span><span class="n">optical_props</span><span class="p">%</span><span class="n">get_name</span><span class="p">())</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-245" name="ln-245" href="#ln-245"></a><span class="w">        </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">optical_props</span><span class="p">%</span><span class="n">get_name</span><span class="p">())</span><span class="w"> </span><span class="o">//</span><span class="w"> </span><span class="s1">&#39;: &#39;</span><span class="w"> </span><span class="o">//</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">error_msg</span><span class="p">)</span><span class="w"></span>
+<a id="ln-246" name="ln-246" href="#ln-246"></a><span class="w">      </span><span class="k">return</span>
+<a id="ln-247" name="ln-247" href="#ln-247"></a><span class="k">    end if</span><span class="w"></span>
+<a id="ln-248" name="ln-248" href="#ln-248"></a>
+<a id="ln-249" name="ln-249" href="#ln-249"></a><span class="w">    </span><span class="c">! ------------------------------------------------------------------------------------</span>
+<a id="ln-250" name="ln-250" href="#ln-250"></a><span class="w">    </span><span class="c">!  Boundary conditions</span>
+<a id="ln-251" name="ln-251" href="#ln-251"></a><span class="w">    </span><span class="c">!    Lower boundary condition -- expand surface emissivity by band to gpoints</span>
+<a id="ln-252" name="ln-252" href="#ln-252"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-253" name="ln-253" href="#ln-253"></a><span class="w">    </span><span class="k">allocate</span><span class="p">(</span><span class="n">sfc_emis_gpt</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w">         </span><span class="n">ngpt</span><span class="p">))</span><span class="w"></span>
+<a id="ln-254" name="ln-254" href="#ln-254"></a>
+<a id="ln-255" name="ln-255" href="#ln-255"></a><span class="w">    </span><span class="c">!   Upper boundary condition -  use values in optional arg or be set to 0</span>
+<a id="ln-256" name="ln-256" href="#ln-256"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-257" name="ln-257" href="#ln-257"></a><span class="w">    </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">inc_flux</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-258" name="ln-258" href="#ln-258"></a><span class="k">      </span><span class="n">inc_flux_diffuse</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">inc_flux</span><span class="w"></span>
+<a id="ln-259" name="ln-259" href="#ln-259"></a><span class="w">      </span><span class="c">!$acc        enter data copyin(   inc_flux_diffuse)</span>
+<a id="ln-260" name="ln-260" href="#ln-260"></a><span class="w">      </span><span class="c">!$omp target enter data map(to:   inc_flux_diffuse)</span>
+<a id="ln-261" name="ln-261" href="#ln-261"></a><span class="w">    </span><span class="k">else</span>
+<a id="ln-262" name="ln-262" href="#ln-262"></a><span class="k">      allocate</span><span class="p">(</span><span class="n">inc_flux_diffuse</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">))</span><span class="w"></span>
+<a id="ln-263" name="ln-263" href="#ln-263"></a><span class="w">      </span><span class="c">!$acc        enter data create(   inc_flux_diffuse)</span>
+<a id="ln-264" name="ln-264" href="#ln-264"></a><span class="w">      </span><span class="c">!$omp target enter data map(alloc:inc_flux_diffuse)</span>
+<a id="ln-265" name="ln-265" href="#ln-265"></a><span class="w">      </span><span class="k">call </span><span class="n">zero_array</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">inc_flux_diffuse</span><span class="p">)</span><span class="w"></span>
+<a id="ln-266" name="ln-266" href="#ln-266"></a><span class="w">    </span><span class="k">end if</span><span class="w"></span>
+<a id="ln-267" name="ln-267" href="#ln-267"></a>
+<a id="ln-268" name="ln-268" href="#ln-268"></a><span class="w">    </span><span class="c">! ------------------------------------------------------------------------------------</span>
+<a id="ln-269" name="ln-269" href="#ln-269"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">do_Jacobians</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-270" name="ln-270" href="#ln-270"></a><span class="k">      </span><span class="n">jacobian</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">flux_up_Jac</span><span class="w"></span>
+<a id="ln-271" name="ln-271" href="#ln-271"></a><span class="w">    </span><span class="k">else</span>
+<a id="ln-272" name="ln-272" href="#ln-272"></a><span class="k">      </span><span class="n">jacobian</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">decoy2D</span><span class="w"></span>
+<a id="ln-273" name="ln-273" href="#ln-273"></a><span class="w">    </span><span class="k">end if</span>
+<a id="ln-274" name="ln-274" href="#ln-274"></a>
+<a id="ln-275" name="ln-275" href="#ln-275"></a><span class="k">    select type</span><span class="p">(</span><span class="n">fluxes</span><span class="p">)</span><span class="w"></span>
+<a id="ln-276" name="ln-276" href="#ln-276"></a><span class="w">      </span><span class="c">!</span>
+<a id="ln-277" name="ln-277" href="#ln-277"></a><span class="w">      </span><span class="c">! Broadband fluxes are treated as a special case within the solvers; memory</span>
+<a id="ln-278" name="ln-278" href="#ln-278"></a><span class="w">      </span><span class="c">!   for both up and down fluxes needs to be available even if the user doesn&#39;t</span>
+<a id="ln-279" name="ln-279" href="#ln-279"></a><span class="w">      </span><span class="c">!   want one of them</span>
+<a id="ln-280" name="ln-280" href="#ln-280"></a><span class="w">      </span><span class="c">!</span>
+<a id="ln-281" name="ln-281" href="#ln-281"></a><span class="w">      </span><span class="k">type is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_fluxes_broadband</span><span class="p">)</span><span class="w"></span>
+<a id="ln-282" name="ln-282" href="#ln-282"></a><span class="w">        </span><span class="n">do_broadband</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">true</span><span class="p">.</span><span class="err">_</span><span class="n">wl</span><span class="w"></span>
+<a id="ln-283" name="ln-283" href="#ln-283"></a><span class="w">        </span><span class="c">!</span>
+<a id="ln-284" name="ln-284" href="#ln-284"></a><span class="w">        </span><span class="c">! Broadband fluxes class has three possible outputs; allocate memory for local use</span>
+<a id="ln-285" name="ln-285" href="#ln-285"></a><span class="w">        </span><span class="c">!   if one or more haven&#39;t been requested</span>
+<a id="ln-286" name="ln-286" href="#ln-286"></a><span class="w">        </span><span class="c">!</span>
+<a id="ln-287" name="ln-287" href="#ln-287"></a><span class="w">        </span><span class="k">if</span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">fluxes</span><span class="p">%</span><span class="n">flux_up</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-288" name="ln-288" href="#ln-288"></a><span class="k">          </span><span class="n">flux_up_loc</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">fluxes</span><span class="p">%</span><span class="n">flux_up</span><span class="w"></span>
+<a id="ln-289" name="ln-289" href="#ln-289"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-290" name="ln-290" href="#ln-290"></a><span class="k">          allocate</span><span class="p">(</span><span class="n">flux_up_loc</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="o">+</span><span class="mi">1</span><span class="p">))</span><span class="w"></span>
+<a id="ln-291" name="ln-291" href="#ln-291"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-292" name="ln-292" href="#ln-292"></a><span class="k">        if</span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">fluxes</span><span class="p">%</span><span class="n">flux_dn</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-293" name="ln-293" href="#ln-293"></a><span class="k">          </span><span class="n">flux_dn_loc</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">fluxes</span><span class="p">%</span><span class="n">flux_dn</span><span class="w"></span>
+<a id="ln-294" name="ln-294" href="#ln-294"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-295" name="ln-295" href="#ln-295"></a><span class="k">          allocate</span><span class="p">(</span><span class="n">flux_dn_loc</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="o">+</span><span class="mi">1</span><span class="p">))</span><span class="w"></span>
+<a id="ln-296" name="ln-296" href="#ln-296"></a><span class="w">        </span><span class="k">end if</span><span class="w"></span>
+<a id="ln-297" name="ln-297" href="#ln-297"></a><span class="w">        </span><span class="c">!$acc        enter data create(   flux_up_loc, flux_dn_loc)</span>
+<a id="ln-298" name="ln-298" href="#ln-298"></a><span class="w">        </span><span class="c">!$omp target enter data map(alloc:flux_up_loc, flux_dn_loc)</span>
+<a id="ln-299" name="ln-299" href="#ln-299"></a><span class="w">      </span><span class="k">class </span><span class="n">default</span><span class="w"></span>
+<a id="ln-300" name="ln-300" href="#ln-300"></a><span class="w">        </span><span class="c">!</span>
+<a id="ln-301" name="ln-301" href="#ln-301"></a><span class="w">        </span><span class="c">! If broadband integrals aren&#39;t being computed, allocate working space</span>
+<a id="ln-302" name="ln-302" href="#ln-302"></a><span class="w">        </span><span class="c">!   and decoy addresses for spectrally-integrated fields</span>
+<a id="ln-303" name="ln-303" href="#ln-303"></a><span class="w">        </span><span class="c">!</span>
+<a id="ln-304" name="ln-304" href="#ln-304"></a><span class="w">        </span><span class="n">do_broadband</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">false</span><span class="p">.</span><span class="err">_</span><span class="n">wl</span><span class="w"></span>
+<a id="ln-305" name="ln-305" href="#ln-305"></a><span class="w">        </span><span class="n">flux_up_loc</span><span class="w">  </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">decoy2D</span><span class="w"></span>
+<a id="ln-306" name="ln-306" href="#ln-306"></a><span class="w">        </span><span class="n">flux_dn_loc</span><span class="w">  </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">decoy2D</span><span class="w"></span>
+<a id="ln-307" name="ln-307" href="#ln-307"></a><span class="w">    </span><span class="k">end select</span><span class="w"></span>
+<a id="ln-308" name="ln-308" href="#ln-308"></a>
+<a id="ln-309" name="ln-309" href="#ln-309"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-310" name="ln-310" href="#ln-310"></a><span class="w">    </span><span class="c">! Compute the radiative transfer...</span>
+<a id="ln-311" name="ln-311" href="#ln-311"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-312" name="ln-312" href="#ln-312"></a><span class="w">    </span><span class="c">!$acc        data create(   sfc_emis_gpt, flux_up_loc, flux_dn_loc, gpt_flux_up, gpt_flux_dn)</span>
+<a id="ln-313" name="ln-313" href="#ln-313"></a><span class="w">    </span><span class="c">!$omp target data map(alloc:sfc_emis_gpt, flux_up_loc, flux_dn_loc, gpt_flux_up, gpt_flux_dn)</span>
+<a id="ln-314" name="ln-314" href="#ln-314"></a><span class="w">    </span><span class="k">call </span><span class="n">expand_and_transpose</span><span class="p">(</span><span class="n">optical_props</span><span class="p">,</span><span class="w"> </span><span class="n">sfc_emis</span><span class="p">,</span><span class="w"> </span><span class="n">sfc_emis_gpt</span><span class="p">)</span><span class="w"></span>
+<a id="ln-315" name="ln-315" href="#ln-315"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">check_values</span><span class="p">)</span><span class="w"> </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w">  </span><span class="n">optical_props</span><span class="p">%</span><span class="n">validate</span><span class="p">()</span><span class="w"></span>
+<a id="ln-316" name="ln-316" href="#ln-316"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">len_trim</span><span class="p">(</span><span class="n">error_msg</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span><span class="w"> </span><span class="c">! Can&#39;t do an early return within OpenACC/MP data regions</span>
+<a id="ln-317" name="ln-317" href="#ln-317"></a><span class="w">      </span><span class="k">select type</span><span class="w"> </span><span class="p">(</span><span class="n">optical_props</span><span class="p">)</span><span class="w"></span>
+<a id="ln-318" name="ln-318" href="#ln-318"></a><span class="w">        </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_1scl</span><span class="p">)</span><span class="w"></span>
+<a id="ln-319" name="ln-319" href="#ln-319"></a><span class="w">          </span><span class="c">!</span>
+<a id="ln-320" name="ln-320" href="#ln-320"></a><span class="w">          </span><span class="c">! No scattering two-stream calculation</span>
+<a id="ln-321" name="ln-321" href="#ln-321"></a><span class="w">          </span><span class="c">!</span>
+<a id="ln-322" name="ln-322" href="#ln-322"></a><span class="w">          </span><span class="c">!</span>
+<a id="ln-323" name="ln-323" href="#ln-323"></a><span class="w">          </span><span class="c">! Secant of radiation angle - either user-supplied, one per g-point, or</span>
+<a id="ln-324" name="ln-324" href="#ln-324"></a><span class="w">          </span><span class="c">!   taken from first-order Gaussian quadrate and applied to all columns a g-points</span>
+<a id="ln-325" name="ln-325" href="#ln-325"></a><span class="w">          </span><span class="c">!</span>
+<a id="ln-326" name="ln-326" href="#ln-326"></a><span class="w">          </span><span class="k">allocate</span><span class="p">(</span><span class="n">secants</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">n_quad_angs</span><span class="p">))</span><span class="w"></span>
+<a id="ln-327" name="ln-327" href="#ln-327"></a><span class="w">          </span><span class="c">!$acc        data create(   secants)</span>
+<a id="ln-328" name="ln-328" href="#ln-328"></a><span class="w">          </span><span class="c">!$omp target data map(alloc:secants)</span>
+<a id="ln-329" name="ln-329" href="#ln-329"></a><span class="w">          </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">lw_Ds</span><span class="p">))</span><span class="w"> </span><span class="k">then</span><span class="w"></span>
+<a id="ln-330" name="ln-330" href="#ln-330"></a><span class="w">            </span><span class="c">!$acc                         parallel loop    collapse(2) copyin(lw_Ds)</span>
+<a id="ln-331" name="ln-331" href="#ln-331"></a><span class="w">            </span><span class="c">!$omp target teams distribute parallel do simd collapse(2)</span>
+<a id="ln-332" name="ln-332" href="#ln-332"></a><span class="w">            </span><span class="c">! nmu is 1</span>
+<a id="ln-333" name="ln-333" href="#ln-333"></a><span class="w">            </span><span class="k">do </span><span class="n">igpt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="w"></span>
+<a id="ln-334" name="ln-334" href="#ln-334"></a><span class="w">              </span><span class="k">do </span><span class="n">icol</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="w"></span>
+<a id="ln-335" name="ln-335" href="#ln-335"></a><span class="w">                </span><span class="n">secants</span><span class="p">(</span><span class="n">icol</span><span class="p">,</span><span class="n">igpt</span><span class="p">,</span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">lw_Ds</span><span class="p">(</span><span class="n">icol</span><span class="p">,</span><span class="n">igpt</span><span class="p">)</span><span class="w"></span>
+<a id="ln-336" name="ln-336" href="#ln-336"></a><span class="w">              </span><span class="k">end do</span>
+<a id="ln-337" name="ln-337" href="#ln-337"></a><span class="k">            end do</span>
+<a id="ln-338" name="ln-338" href="#ln-338"></a><span class="k">          else</span><span class="w"></span>
+<a id="ln-339" name="ln-339" href="#ln-339"></a><span class="w">            </span><span class="c">!</span>
+<a id="ln-340" name="ln-340" href="#ln-340"></a><span class="w">            </span><span class="c">!   Is there an alternative to making ncol x ngpt copies of each value?</span>
+<a id="ln-341" name="ln-341" href="#ln-341"></a><span class="w">            </span><span class="c">!</span>
+<a id="ln-342" name="ln-342" href="#ln-342"></a><span class="w">            </span><span class="c">!$acc                         parallel loop    collapse(3)</span>
+<a id="ln-343" name="ln-343" href="#ln-343"></a><span class="w">            </span><span class="c">!$omp target teams distribute parallel do simd collapse(3)</span>
+<a id="ln-344" name="ln-344" href="#ln-344"></a><span class="w">            </span><span class="k">do </span><span class="n">imu</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">n_quad_angs</span><span class="w"></span>
+<a id="ln-345" name="ln-345" href="#ln-345"></a><span class="w">              </span><span class="k">do </span><span class="n">igpt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="w"></span>
+<a id="ln-346" name="ln-346" href="#ln-346"></a><span class="w">                </span><span class="k">do </span><span class="n">icol</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="w"></span>
+<a id="ln-347" name="ln-347" href="#ln-347"></a><span class="w">                  </span><span class="n">secants</span><span class="p">(</span><span class="n">icol</span><span class="p">,</span><span class="n">igpt</span><span class="p">,</span><span class="n">imu</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">gauss_Ds</span><span class="p">(</span><span class="n">imu</span><span class="p">,</span><span class="n">n_quad_angs</span><span class="p">)</span><span class="w"></span>
+<a id="ln-348" name="ln-348" href="#ln-348"></a><span class="w">                </span><span class="k">end do</span>
+<a id="ln-349" name="ln-349" href="#ln-349"></a><span class="k">              end do</span>
+<a id="ln-350" name="ln-350" href="#ln-350"></a><span class="k">            end do</span>
+<a id="ln-351" name="ln-351" href="#ln-351"></a><span class="k">          end if</span>
+<a id="ln-352" name="ln-352" href="#ln-352"></a><span class="k">          call </span><span class="n">lw_solver_noscat</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w">                 </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-353" name="ln-353" href="#ln-353"></a><span class="w">                                </span><span class="kt">logical</span><span class="p">(</span><span class="n">top_at_1</span><span class="p">,</span><span class="w"> </span><span class="n">wl</span><span class="p">),</span><span class="w"> </span><span class="n">n_quad_angs</span><span class="p">,</span><span class="w">         </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-354" name="ln-354" href="#ln-354"></a><span class="w">                                </span><span class="n">secants</span><span class="p">,</span><span class="w"> </span><span class="n">gauss_wts</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n_quad_angs</span><span class="p">,</span><span class="n">n_quad_angs</span><span class="p">),</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-355" name="ln-355" href="#ln-355"></a><span class="w">                                </span><span class="n">optical_props</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w">                 </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-356" name="ln-356" href="#ln-356"></a><span class="w">                                </span><span class="n">sources</span><span class="p">%</span><span class="n">lay_source</span><span class="p">,</span><span class="w"> </span><span class="n">sources</span><span class="p">%</span><span class="n">lev_source_inc</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-357" name="ln-357" href="#ln-357"></a><span class="w">                                </span><span class="n">sources</span><span class="p">%</span><span class="n">lev_source_dec</span><span class="p">,</span><span class="w">            </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-358" name="ln-358" href="#ln-358"></a><span class="w">                                </span><span class="n">sfc_emis_gpt</span><span class="p">,</span><span class="w"> </span><span class="n">sources</span><span class="p">%</span><span class="n">sfc_source</span><span class="p">,</span><span class="w">  </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-359" name="ln-359" href="#ln-359"></a><span class="w">                                </span><span class="n">inc_flux_diffuse</span><span class="p">,</span><span class="w">                  </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-360" name="ln-360" href="#ln-360"></a><span class="w">                                </span><span class="n">gpt_flux_up</span><span class="p">,</span><span class="w"> </span><span class="n">gpt_flux_dn</span><span class="p">,</span><span class="w">          </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-361" name="ln-361" href="#ln-361"></a><span class="w">                                </span><span class="n">do_broadband</span><span class="p">,</span><span class="w"> </span><span class="n">flux_up_loc</span><span class="p">,</span><span class="w"> </span><span class="n">flux_dn_loc</span><span class="p">,</span><span class="w">     </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-362" name="ln-362" href="#ln-362"></a><span class="w">                                </span><span class="kt">logical</span><span class="p">(</span><span class="n">do_Jacobians</span><span class="p">,</span><span class="w"> </span><span class="n">wl</span><span class="p">),</span><span class="w"> </span><span class="n">sources</span><span class="p">%</span><span class="n">sfc_source_Jac</span><span class="p">,</span><span class="w"> </span><span class="n">jacobian</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-363" name="ln-363" href="#ln-363"></a><span class="w">                                </span><span class="kt">logical</span><span class="p">(.</span><span class="n">false</span><span class="p">.,</span><span class="w"> </span><span class="n">wl</span><span class="p">),</span><span class="w">  </span><span class="n">optical_props</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">optical_props</span><span class="p">%</span><span class="n">tau</span><span class="p">)</span><span class="w"></span>
+<a id="ln-364" name="ln-364" href="#ln-364"></a><span class="w">                                                      </span><span class="c">! The last two arguments won&#39;t be used since the</span>
+<a id="ln-365" name="ln-365" href="#ln-365"></a><span class="w">                                                      </span><span class="c">! third-to-last is .false. but need valid addresses</span>
+<a id="ln-366" name="ln-366" href="#ln-366"></a><span class="w">          </span><span class="c">!$acc        end data</span>
+<a id="ln-367" name="ln-367" href="#ln-367"></a><span class="w">          </span><span class="c">!$omp end target data</span>
+<a id="ln-368" name="ln-368" href="#ln-368"></a><span class="w">        </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_2str</span><span class="p">)</span><span class="w"></span>
+<a id="ln-369" name="ln-369" href="#ln-369"></a><span class="w">          </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">using_2stream</span><span class="p">)</span><span class="w"> </span><span class="k">then</span><span class="w"></span>
+<a id="ln-370" name="ln-370" href="#ln-370"></a><span class="w">            </span><span class="c">!</span>
+<a id="ln-371" name="ln-371" href="#ln-371"></a><span class="w">            </span><span class="c">! two-stream calculation with scattering</span>
+<a id="ln-372" name="ln-372" href="#ln-372"></a><span class="w">            </span><span class="c">!</span>
+<a id="ln-373" name="ln-373" href="#ln-373"></a><span class="w">            </span><span class="k">call </span><span class="n">lw_solver_2stream</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="kt">logical</span><span class="p">(</span><span class="n">top_at_1</span><span class="p">,</span><span class="w"> </span><span class="n">wl</span><span class="p">),</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-374" name="ln-374" href="#ln-374"></a><span class="w">                                   </span><span class="n">optical_props</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">optical_props</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">optical_props</span><span class="p">%</span><span class="n">g</span><span class="p">,</span><span class="w">              </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-375" name="ln-375" href="#ln-375"></a><span class="w">                                   </span><span class="n">sources</span><span class="p">%</span><span class="n">lay_source</span><span class="p">,</span><span class="w"> </span><span class="n">sources</span><span class="p">%</span><span class="n">lev_source_inc</span><span class="p">,</span><span class="w"> </span><span class="n">sources</span><span class="p">%</span><span class="n">lev_source_dec</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-376" name="ln-376" href="#ln-376"></a><span class="w">                                   </span><span class="n">sfc_emis_gpt</span><span class="p">,</span><span class="w"> </span><span class="n">sources</span><span class="p">%</span><span class="n">sfc_source</span><span class="p">,</span><span class="w">       </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-377" name="ln-377" href="#ln-377"></a><span class="w">                                   </span><span class="n">inc_flux_diffuse</span><span class="p">,</span><span class="w">                       </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-378" name="ln-378" href="#ln-378"></a><span class="w">                                   </span><span class="n">gpt_flux_up</span><span class="p">,</span><span class="w"> </span><span class="n">gpt_flux_dn</span><span class="p">)</span><span class="w"></span>
+<a id="ln-379" name="ln-379" href="#ln-379"></a><span class="w">          </span><span class="k">else</span>
+<a id="ln-380" name="ln-380" href="#ln-380"></a><span class="k">            allocate</span><span class="p">(</span><span class="n">secants</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">n_quad_angs</span><span class="p">))</span><span class="w"></span>
+<a id="ln-381" name="ln-381" href="#ln-381"></a><span class="w">            </span><span class="c">!$acc        data create(   secants)</span>
+<a id="ln-382" name="ln-382" href="#ln-382"></a><span class="w">            </span><span class="c">!$omp target data map(alloc:secants)</span>
+<a id="ln-383" name="ln-383" href="#ln-383"></a><span class="w">            </span><span class="c">!$acc                         parallel loop    collapse(3)</span>
+<a id="ln-384" name="ln-384" href="#ln-384"></a><span class="w">            </span><span class="c">!$omp target teams distribute parallel do simd collapse(3)</span>
+<a id="ln-385" name="ln-385" href="#ln-385"></a><span class="w">            </span><span class="k">do </span><span class="n">imu</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">n_quad_angs</span><span class="w"></span>
+<a id="ln-386" name="ln-386" href="#ln-386"></a><span class="w">              </span><span class="k">do </span><span class="n">igpt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="w"></span>
+<a id="ln-387" name="ln-387" href="#ln-387"></a><span class="w">                </span><span class="k">do </span><span class="n">icol</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="w"></span>
+<a id="ln-388" name="ln-388" href="#ln-388"></a><span class="w">                  </span><span class="n">secants</span><span class="p">(</span><span class="n">icol</span><span class="p">,</span><span class="n">igpt</span><span class="p">,</span><span class="n">imu</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">gauss_Ds</span><span class="p">(</span><span class="n">imu</span><span class="p">,</span><span class="n">n_quad_angs</span><span class="p">)</span><span class="w"></span>
+<a id="ln-389" name="ln-389" href="#ln-389"></a><span class="w">                </span><span class="k">end do</span>
+<a id="ln-390" name="ln-390" href="#ln-390"></a><span class="k">              end do</span>
+<a id="ln-391" name="ln-391" href="#ln-391"></a><span class="k">            end do</span><span class="w"></span>
+<a id="ln-392" name="ln-392" href="#ln-392"></a><span class="w">            </span><span class="c">!</span>
+<a id="ln-393" name="ln-393" href="#ln-393"></a><span class="w">            </span><span class="c">! Re-scaled solution to account for scattering</span>
+<a id="ln-394" name="ln-394" href="#ln-394"></a><span class="w">            </span><span class="c">!</span>
+<a id="ln-395" name="ln-395" href="#ln-395"></a><span class="w">            </span><span class="k">call </span><span class="n">lw_solver_noscat</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w">                 </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-396" name="ln-396" href="#ln-396"></a><span class="w">                                  </span><span class="kt">logical</span><span class="p">(</span><span class="n">top_at_1</span><span class="p">,</span><span class="w"> </span><span class="n">wl</span><span class="p">),</span><span class="w"> </span><span class="n">n_quad_angs</span><span class="p">,</span><span class="w">         </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-397" name="ln-397" href="#ln-397"></a><span class="w">                                  </span><span class="n">secants</span><span class="p">,</span><span class="w"> </span><span class="n">gauss_wts</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n_quad_angs</span><span class="p">,</span><span class="n">n_quad_angs</span><span class="p">),</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-398" name="ln-398" href="#ln-398"></a><span class="w">                                  </span><span class="n">optical_props</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w">                 </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-399" name="ln-399" href="#ln-399"></a><span class="w">                                  </span><span class="n">sources</span><span class="p">%</span><span class="n">lay_source</span><span class="p">,</span><span class="w"> </span><span class="n">sources</span><span class="p">%</span><span class="n">lev_source_inc</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-400" name="ln-400" href="#ln-400"></a><span class="w">                                  </span><span class="n">sources</span><span class="p">%</span><span class="n">lev_source_dec</span><span class="p">,</span><span class="w">            </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-401" name="ln-401" href="#ln-401"></a><span class="w">                                  </span><span class="n">sfc_emis_gpt</span><span class="p">,</span><span class="w"> </span><span class="n">sources</span><span class="p">%</span><span class="n">sfc_source</span><span class="p">,</span><span class="w">  </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-402" name="ln-402" href="#ln-402"></a><span class="w">                                  </span><span class="n">inc_flux_diffuse</span><span class="p">,</span><span class="w">                  </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-403" name="ln-403" href="#ln-403"></a><span class="w">                                  </span><span class="n">gpt_flux_up</span><span class="p">,</span><span class="w"> </span><span class="n">gpt_flux_dn</span><span class="p">,</span><span class="w">          </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-404" name="ln-404" href="#ln-404"></a><span class="w">                                  </span><span class="n">do_broadband</span><span class="p">,</span><span class="w"> </span><span class="n">flux_up_loc</span><span class="p">,</span><span class="w"> </span><span class="n">flux_dn_loc</span><span class="p">,</span><span class="w">     </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-405" name="ln-405" href="#ln-405"></a><span class="w">                                  </span><span class="kt">logical</span><span class="p">(</span><span class="n">do_Jacobians</span><span class="p">,</span><span class="w"> </span><span class="n">wl</span><span class="p">),</span><span class="w"> </span><span class="n">sources</span><span class="p">%</span><span class="n">sfc_source_Jac</span><span class="p">,</span><span class="w"> </span><span class="n">jacobian</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-406" name="ln-406" href="#ln-406"></a><span class="w">                                  </span><span class="kt">logical</span><span class="p">(.</span><span class="n">true</span><span class="p">.,</span><span class="w"> </span><span class="n">wl</span><span class="p">),</span><span class="w">  </span><span class="n">optical_props</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">optical_props</span><span class="p">%</span><span class="n">g</span><span class="p">)</span><span class="w"></span>
+<a id="ln-407" name="ln-407" href="#ln-407"></a><span class="w">            </span><span class="c">!$acc        end data</span>
+<a id="ln-408" name="ln-408" href="#ln-408"></a><span class="w">            </span><span class="c">!$omp end target data</span>
+<a id="ln-409" name="ln-409" href="#ln-409"></a><span class="w">          </span><span class="k">endif</span>
+<a id="ln-410" name="ln-410" href="#ln-410"></a><span class="k">        class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_nstr</span><span class="p">)</span><span class="w"></span>
+<a id="ln-411" name="ln-411" href="#ln-411"></a><span class="w">          </span><span class="c">!</span>
+<a id="ln-412" name="ln-412" href="#ln-412"></a><span class="w">          </span><span class="c">! n-stream calculation</span>
+<a id="ln-413" name="ln-413" href="#ln-413"></a><span class="w">          </span><span class="c">!</span>
+<a id="ln-414" name="ln-414" href="#ln-414"></a><span class="w">          </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s1">&#39;lw_solver(...ty_optical_props_nstr...) not yet implemented&#39;</span><span class="w"></span>
+<a id="ln-415" name="ln-415" href="#ln-415"></a><span class="w">      </span><span class="k">end select</span>
+<a id="ln-416" name="ln-416" href="#ln-416"></a>
+<a id="ln-417" name="ln-417" href="#ln-417"></a><span class="k">      select type</span><span class="p">(</span><span class="n">fluxes</span><span class="p">)</span><span class="w"></span>
+<a id="ln-418" name="ln-418" href="#ln-418"></a><span class="w">        </span><span class="c">!</span>
+<a id="ln-419" name="ln-419" href="#ln-419"></a><span class="w">        </span><span class="c">! Tidy up memory for broadband fluxes on GPUs</span>
+<a id="ln-420" name="ln-420" href="#ln-420"></a><span class="w">        </span><span class="c">!</span>
+<a id="ln-421" name="ln-421" href="#ln-421"></a><span class="w">        </span><span class="k">type is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_fluxes_broadband</span><span class="p">)</span><span class="w"></span>
+<a id="ln-422" name="ln-422" href="#ln-422"></a><span class="w">          </span><span class="k">if</span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">fluxes</span><span class="p">%</span><span class="n">flux_net</span><span class="p">))</span><span class="w"> </span><span class="k">then</span><span class="w"></span>
+<a id="ln-423" name="ln-423" href="#ln-423"></a><span class="w">            </span><span class="c">!</span>
+<a id="ln-424" name="ln-424" href="#ln-424"></a><span class="w">            </span><span class="c">! FIXME: Do we need the create/copyout here?</span>
+<a id="ln-425" name="ln-425" href="#ln-425"></a><span class="w">            </span><span class="c">!</span>
+<a id="ln-426" name="ln-426" href="#ln-426"></a><span class="w">            </span><span class="c">!$acc parallel loop    collapse(2) copyin(fluxes) copyout( fluxes%flux_net)</span>
+<a id="ln-427" name="ln-427" href="#ln-427"></a><span class="w">            </span><span class="c">!$omp target teams distribute parallel do simd collapse(2) map(from:fluxes%flux_net)</span>
+<a id="ln-428" name="ln-428" href="#ln-428"></a><span class="w">            </span><span class="k">do </span><span class="n">ilev</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="o">+</span><span class="mi">1</span><span class="w"></span>
+<a id="ln-429" name="ln-429" href="#ln-429"></a><span class="w">              </span><span class="k">do </span><span class="n">icol</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="w"></span>
+<a id="ln-430" name="ln-430" href="#ln-430"></a><span class="w">                </span><span class="n">fluxes</span><span class="p">%</span><span class="n">flux_net</span><span class="p">(</span><span class="n">icol</span><span class="p">,</span><span class="n">ilev</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">flux_dn_loc</span><span class="p">(</span><span class="n">icol</span><span class="p">,</span><span class="n">ilev</span><span class="p">)</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="n">flux_up_loc</span><span class="p">(</span><span class="n">icol</span><span class="p">,</span><span class="n">ilev</span><span class="p">)</span><span class="w"></span>
+<a id="ln-431" name="ln-431" href="#ln-431"></a><span class="w">              </span><span class="k">end do</span>
+<a id="ln-432" name="ln-432" href="#ln-432"></a><span class="k">            end do</span>
+<a id="ln-433" name="ln-433" href="#ln-433"></a><span class="k">          end if</span>
+<a id="ln-434" name="ln-434" href="#ln-434"></a><span class="k">        class </span><span class="n">default</span><span class="w"></span>
+<a id="ln-435" name="ln-435" href="#ln-435"></a><span class="w">          </span><span class="c">!</span>
+<a id="ln-436" name="ln-436" href="#ln-436"></a><span class="w">          </span><span class="c">! ...or reduce spectral fluxes to desired output quantities</span>
+<a id="ln-437" name="ln-437" href="#ln-437"></a><span class="w">          </span><span class="c">!</span>
+<a id="ln-438" name="ln-438" href="#ln-438"></a><span class="w">          </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">fluxes</span><span class="p">%</span><span class="n">reduce</span><span class="p">(</span><span class="n">gpt_flux_up</span><span class="p">,</span><span class="w"> </span><span class="n">gpt_flux_dn</span><span class="p">,</span><span class="w"> </span><span class="n">optical_props</span><span class="p">,</span><span class="w"> </span><span class="n">top_at_1</span><span class="p">)</span><span class="w"></span>
+<a id="ln-439" name="ln-439" href="#ln-439"></a><span class="w">      </span><span class="k">end select</span>
+<a id="ln-440" name="ln-440" href="#ln-440"></a><span class="k">    end if</span><span class="w"> </span><span class="c">! no error message from validation</span>
+<a id="ln-441" name="ln-441" href="#ln-441"></a><span class="w">    </span><span class="c">!$acc        end data</span>
+<a id="ln-442" name="ln-442" href="#ln-442"></a><span class="w">    </span><span class="c">!$omp end target data</span>
+<a id="ln-443" name="ln-443" href="#ln-443"></a>
+<a id="ln-444" name="ln-444" href="#ln-444"></a><span class="w">    </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="nb">present</span><span class="p">(</span><span class="n">inc_flux</span><span class="p">))</span><span class="w"> </span><span class="k">then</span><span class="w"></span>
+<a id="ln-445" name="ln-445" href="#ln-445"></a><span class="w">      </span><span class="c">!$acc        exit data delete(     inc_flux_diffuse)</span>
+<a id="ln-446" name="ln-446" href="#ln-446"></a><span class="w">      </span><span class="c">!$omp target exit data map(release:inc_flux_diffuse)</span>
+<a id="ln-447" name="ln-447" href="#ln-447"></a><span class="w">      </span><span class="k">deallocate</span><span class="p">(</span><span class="n">inc_flux_diffuse</span><span class="p">)</span><span class="w"></span>
+<a id="ln-448" name="ln-448" href="#ln-448"></a><span class="w">    </span><span class="k">end if</span>
+<a id="ln-449" name="ln-449" href="#ln-449"></a><span class="k">    select type</span><span class="p">(</span><span class="n">fluxes</span><span class="p">)</span><span class="w"></span>
+<a id="ln-450" name="ln-450" href="#ln-450"></a><span class="w">      </span><span class="k">type is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_fluxes_broadband</span><span class="p">)</span><span class="w"></span>
+<a id="ln-451" name="ln-451" href="#ln-451"></a><span class="w">        </span><span class="c">!$acc        exit data copyout( flux_up_loc, flux_dn_loc)</span>
+<a id="ln-452" name="ln-452" href="#ln-452"></a><span class="w">        </span><span class="c">!$omp target exit data map(from:flux_up_loc, flux_dn_loc)</span>
+<a id="ln-453" name="ln-453" href="#ln-453"></a><span class="w">        </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="nb">associated</span><span class="p">(</span><span class="n">flux_up_loc</span><span class="p">,</span><span class="w"> </span><span class="n">fluxes</span><span class="p">%</span><span class="n">flux_up</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">flux_up_loc</span><span class="p">)</span><span class="w"></span>
+<a id="ln-454" name="ln-454" href="#ln-454"></a><span class="w">        </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="nb">associated</span><span class="p">(</span><span class="n">flux_dn_loc</span><span class="p">,</span><span class="w"> </span><span class="n">fluxes</span><span class="p">%</span><span class="n">flux_dn</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">flux_dn_loc</span><span class="p">)</span><span class="w"></span>
+<a id="ln-455" name="ln-455" href="#ln-455"></a><span class="w">    </span><span class="k">end select</span>
+<a id="ln-456" name="ln-456" href="#ln-456"></a><span class="k">  end function </span><span class="n">rte_lw</span><span class="w"></span>
+<a id="ln-457" name="ln-457" href="#ln-457"></a><span class="w">  </span><span class="c">!--------------------------------------------------------------------------------------------------------------------</span>
+<a id="ln-458" name="ln-458" href="#ln-458"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-459" name="ln-459" href="#ln-459"></a><span class="w">  </span><span class="c">! Expand from band to g-point dimension, transpose dimensions (nband, ncol) -&gt; (ncol,ngpt)</span>
+<a id="ln-460" name="ln-460" href="#ln-460"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-461" name="ln-461" href="#ln-461"></a><span class="w">  </span><span class="k">subroutine </span><span class="n">expand_and_transpose</span><span class="p">(</span><span class="n">ops</span><span class="p">,</span><span class="n">arr_in</span><span class="p">,</span><span class="n">arr_out</span><span class="p">)</span><span class="w"></span>
+<a id="ln-462" name="ln-462" href="#ln-462"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="p">),</span><span class="w">  </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w"> </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ops</span><span class="w"></span>
+<a id="ln-463" name="ln-463" href="#ln-463"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w"> </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">arr_in</span><span class="w">  </span><span class="c">! (nband, ncol)</span>
+<a id="ln-464" name="ln-464" href="#ln-464"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">arr_out</span><span class="w"> </span><span class="c">! (ncol, igpt)</span>
+<a id="ln-465" name="ln-465" href="#ln-465"></a><span class="w">    </span><span class="c">! -------------</span>
+<a id="ln-466" name="ln-466" href="#ln-466"></a><span class="w">    </span><span class="kt">integer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nband</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="w"></span>
+<a id="ln-467" name="ln-467" href="#ln-467"></a><span class="w">    </span><span class="kt">integer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">icol</span><span class="p">,</span><span class="w"> </span><span class="n">iband</span><span class="p">,</span><span class="w"> </span><span class="n">igpt</span><span class="w"></span>
+<a id="ln-468" name="ln-468" href="#ln-468"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="n">ops</span><span class="p">%</span><span class="n">get_nband</span><span class="p">())</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">limits</span><span class="w"></span>
+<a id="ln-469" name="ln-469" href="#ln-469"></a>
+<a id="ln-470" name="ln-470" href="#ln-470"></a><span class="w">    </span><span class="n">ncol</span><span class="w">  </span><span class="o">=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">arr_in</span><span class="p">,</span><span class="w"> </span><span class="mi">2</span><span class="p">)</span><span class="w"></span>
+<a id="ln-471" name="ln-471" href="#ln-471"></a><span class="w">    </span><span class="n">nband</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">ops</span><span class="p">%</span><span class="n">get_nband</span><span class="p">()</span><span class="w"></span>
+<a id="ln-472" name="ln-472" href="#ln-472"></a><span class="w">    </span><span class="n">ngpt</span><span class="w">  </span><span class="o">=</span><span class="w"> </span><span class="n">ops</span><span class="p">%</span><span class="n">get_ngpt</span><span class="p">()</span><span class="w"></span>
+<a id="ln-473" name="ln-473" href="#ln-473"></a><span class="w">    </span><span class="n">limits</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">ops</span><span class="p">%</span><span class="n">get_band_lims_gpoint</span><span class="p">()</span><span class="w"></span>
+<a id="ln-474" name="ln-474" href="#ln-474"></a><span class="w">    </span><span class="c">!$acc                         parallel loop    collapse(2) copyin(arr_in, limits)</span>
+<a id="ln-475" name="ln-475" href="#ln-475"></a><span class="w">    </span><span class="c">!$omp target teams distribute parallel do simd collapse(2) map(to:arr_in, limits)</span>
+<a id="ln-476" name="ln-476" href="#ln-476"></a><span class="w">    </span><span class="k">do </span><span class="n">iband</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">nband</span><span class="w"></span>
+<a id="ln-477" name="ln-477" href="#ln-477"></a><span class="w">      </span><span class="k">do </span><span class="n">icol</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="w"></span>
+<a id="ln-478" name="ln-478" href="#ln-478"></a><span class="w">        </span><span class="k">do </span><span class="n">igpt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">limits</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">iband</span><span class="p">),</span><span class="w"> </span><span class="n">limits</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">iband</span><span class="p">)</span><span class="w"></span>
+<a id="ln-479" name="ln-479" href="#ln-479"></a><span class="w">          </span><span class="n">arr_out</span><span class="p">(</span><span class="n">icol</span><span class="p">,</span><span class="w"> </span><span class="n">igpt</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">arr_in</span><span class="p">(</span><span class="n">iband</span><span class="p">,</span><span class="n">icol</span><span class="p">)</span><span class="w"></span>
+<a id="ln-480" name="ln-480" href="#ln-480"></a><span class="w">        </span><span class="k">end do</span>
+<a id="ln-481" name="ln-481" href="#ln-481"></a><span class="k">      end do</span>
+<a id="ln-482" name="ln-482" href="#ln-482"></a><span class="k">    end do</span>
+<a id="ln-483" name="ln-483" href="#ln-483"></a>
+<a id="ln-484" name="ln-484" href="#ln-484"></a><span class="k">  end subroutine </span><span class="n">expand_and_transpose</span><span class="w"></span>
+<a id="ln-485" name="ln-485" href="#ln-485"></a><span class="w">  </span><span class="c">!--------------------------------------------------------------------------------------------------------------------</span>
+<a id="ln-486" name="ln-486" href="#ln-486"></a><span class="k">end module </span><span class="n">mo_rte_lw</span><span class="w"></span>
+</pre></div>
+
+    </section>
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/sourcefile/mo_rte_sw.f90.html b/reference/rte-fortran-interface/sourcefile/mo_rte_sw.f90.html
new file mode 100644
index 000000000..d8d8a076d
--- /dev/null
+++ b/reference/rte-fortran-interface/sourcefile/mo_rte_sw.f90.html
@@ -0,0 +1,815 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>mo_rte_sw.F90 &ndash; RTE-Fortran</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>mo_rte_sw.F90
+    <small>Source File</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title="11.4% of total for source files.">182 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_rte_sw.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li class="active">mo_rte_sw.F90</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#mods-0">Modules</a></h3></div>
+  <div id="mods-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_rte_sw.html">mo_rte_sw</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title">Source Code</h3></div>
+  <div class="list-group">
+    <a class="list-group-item" href="../sourcefile/mo_rte_sw.f90.html#src">mo_rte_sw.F90</a>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    <div class="col-md-9" id='text'>
+      
+      <br>
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">This file depends on</h3>
+      </div>
+      <div class="panel-body">
+  <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: sourcefile~~mo_rte_sw.f90~~EfferentGraph Pages: 1 -->
+<svg id="sourcefilemo_rte_swf90EfferentGraph" width="641pt" height="125pt"
+ viewBox="0.00 0.00 641.00 124.73" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~mo_rte_sw.f90~~EfferentGraph" class="graph" transform="scale(1.16 1.16) rotate(0) translate(4 141.17)">
+<title>sourcefile~~mo_rte_sw.f90~~EfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-141.17 742,-141.17 742,4 -4,4"/>
+<!-- sourcefile~mo_rte_sw.f90 -->
+<g id="sourcefile~~mo_rte_sw.f90~~EfferentGraph_node1" class="node">
+<title>sourcefile~mo_rte_sw.f90</title>
+<polygon fill="none" stroke="black" points="738,-65 647,-65 647,-41 738,-41 738,-65"/>
+<text text-anchor="middle" x="692.5" y="-50.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_rte_sw.F90</text>
+</g>
+<!-- sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_rte_sw.f90~~EfferentGraph_node2" class="node">
+<title>sourcefile~mo_rte_kind.f90</title>
+<g id="a_sourcefile~~mo_rte_sw.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/mo_rte_kind.f90.html" xlink:title="mo_rte_kind.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="100,-84 0,-84 0,-60 100,-60 100,-84"/>
+<text text-anchor="middle" x="50" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_rte_sw.f90~~EfferentGraph_edge1" class="edge">
+<title>sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421,-132C336.17,-135.17 314.35,-141.54 230,-132"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90 -->
+<g id="sourcefile~~mo_rte_sw.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~mo_fluxes.f90</title>
+<g id="a_sourcefile~~mo_rte_sw.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/mo_fluxes.f90.html" xlink:title="mo_fluxes.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="611,-65 522,-65 522,-41 611,-41 611,-65"/>
+<text text-anchor="middle" x="566.5" y="-50.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_fluxes.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_fluxes.f90 -->
+<g id="sourcefile~~mo_rte_sw.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_fluxes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M646.73,-53C638.55,-53 629.92,-53 621.5,-53"/>
+<polygon fill="#000000" stroke="#000000" points="621.37,-49.5 611.37,-53 621.37,-56.5 621.37,-49.5"/>
+</g>
+<!-- sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_rte_sw.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~mo_rte_config.f90</title>
+<g id="a_sourcefile~~mo_rte_sw.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/mo_rte_config.f90.html" xlink:title="mo_rte_config.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="284.5,-104 173.5,-104 173.5,-80 284.5,-80 284.5,-104"/>
+<text text-anchor="middle" x="229" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_config.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_rte_sw.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_rte_config.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M669.15,-65.15C623.88,-88.49 517.63,-136.89 423,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421,-132C395.06,-132.97 331.72,-118.44 285.07,-106.63"/>
+<polygon fill="#000000" stroke="#000000" points="285.64,-103.16 275.09,-104.08 283.91,-109.94 285.64,-103.16"/>
+</g>
+<!-- sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_rte_sw.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~mo_rte_util_array_validation.f90</title>
+<g id="a_sourcefile~~mo_rte_sw.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/mo_rte_util_array_validation.f90.html" xlink:title="mo_rte_util_array_validation.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="322,-24 136,-24 136,0 322,0 322,-24"/>
+<text text-anchor="middle" x="229" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array_validation.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_rte_sw.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M665.61,-40.83C641.01,-30.19 602.66,-15.99 567.5,-13"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M565.5,-13C502.39,-7.63 486.17,-17.52 423,-13"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421,-13C392.3,-10.95 361.11,-10.17 332.42,-10.04"/>
+<polygon fill="#000000" stroke="#000000" points="332.39,-6.54 322.39,-10.02 332.38,-13.54 332.39,-6.54"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_rte_sw.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~mo_optical_props.f90</title>
+<g id="a_sourcefile~~mo_rte_sw.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/mo_optical_props.f90.html" xlink:title="mo_optical_props.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="486,-65 358,-65 358,-41 486,-41 486,-65"/>
+<text text-anchor="middle" x="422" y="-50.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_rte_sw.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M565.5,-13C546.16,-11.35 500.01,-25.58 465.44,-37.52"/>
+<polygon fill="#000000" stroke="#000000" points="463.86,-34.37 455.57,-40.97 466.17,-40.97 463.86,-34.37"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_rte_sw.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421,-94C335.92,-109.9 316,-141.73 230,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M228,-132C186.51,-127.31 175.55,-126.39 136,-113 117.19,-106.63 97.14,-97.1 81.23,-88.83"/>
+<polygon fill="#000000" stroke="#000000" points="82.87,-85.74 72.39,-84.14 79.59,-91.92 82.87,-85.74"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_rte_sw.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_config.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M530.52,-65.09C501.95,-74.48 460.33,-87.03 423,-94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421,-94C379.58,-101.74 332.23,-101.3 295.04,-98.9"/>
+<polygon fill="#000000" stroke="#000000" points="295.05,-95.39 284.83,-98.18 294.55,-102.38 295.05,-95.39"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_rte_sw.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M536.1,-40.97C507.72,-30.27 463.24,-15.88 423,-13"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_rte_sw.f90~~EfferentGraph_edge9" class="edge">
+<title>sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M521.97,-53C513.85,-53 505.17,-53 496.43,-53"/>
+<polygon fill="#000000" stroke="#000000" points="496.2,-49.5 486.2,-53 496.2,-56.5 496.2,-49.5"/>
+</g>
+<!-- sourcefile~mo_rte_config.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_rte_sw.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~mo_rte_config.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M173.45,-85.84C153.46,-83.58 130.76,-81.01 110.37,-78.71"/>
+<polygon fill="#000000" stroke="#000000" points="110.59,-75.21 100.26,-77.57 109.8,-82.17 110.59,-75.21"/>
+</g>
+<!-- sourcefile~mo_rte_util_array_validation.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_rte_sw.f90~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~mo_rte_util_array_validation.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.85,-24.02C167.1,-28.13 150.77,-32.97 136,-38 120.2,-43.38 103.06,-50.06 88.34,-56.08"/>
+<polygon fill="#000000" stroke="#000000" points="86.96,-52.86 79.06,-59.91 89.63,-59.33 86.96,-52.86"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_rte_sw.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M357.82,-56.24C288.42,-59.81 177.85,-65.49 110.11,-68.96"/>
+<polygon fill="#000000" stroke="#000000" points="109.84,-65.47 100.03,-69.48 110.19,-72.46 109.84,-65.47"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_rte_sw.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_config.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.14,-65.02C340.75,-69.39 316.47,-74.34 294.62,-78.81"/>
+<polygon fill="#000000" stroke="#000000" points="293.86,-75.39 284.76,-80.82 295.26,-82.25 293.86,-75.39"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_rte_sw.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M364.98,-40.98C343.31,-36.32 318.35,-30.97 295.83,-26.13"/>
+<polygon fill="#000000" stroke="#000000" points="296.53,-22.7 286.01,-24.02 295.06,-29.55 296.53,-22.7"/>
+</g>
+</g>
+</svg>
+</div><script>var pansourcefilemo_rte_swf90EfferentGraph = svgPanZoom('#sourcefilemo_rte_swf90EfferentGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="202pt" height="32pt"
+ viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<!-- Source File -->
+<g id="node1" class="node">
+<title>Source File</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
+<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node2" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
+<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a file to a file which it depends on. A file
+    is dependent upon another if the latter must be compiled before the former
+    can be.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+<br>
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#mods-1">Modules</a></h3></div>
+  <div id="mods-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_rte_sw.html">mo_rte_sw</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title">Source Code</h3></div>
+  <div class="list-group">
+    <a class="list-group-item" href="../sourcefile/mo_rte_sw.f90.html#src">mo_rte_sw.F90</a>
+  </div>
+</div>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    <section>
+      <h2><span class="anchor" id="src"></span>Source Code</h2>
+    <div class="hl"><pre><span></span><a id="ln-1" name="ln-1" href="#ln-1"></a><span class="c">! This code is part of Radiative Transfer for Energetics (RTE)</span>
+<a id="ln-2" name="ln-2" href="#ln-2"></a><span class="c">!</span>
+<a id="ln-3" name="ln-3" href="#ln-3"></a><span class="c">! Contacts: Robert Pincus and Eli Mlawer</span>
+<a id="ln-4" name="ln-4" href="#ln-4"></a><span class="c">! email:  rrtmgp@aer.com</span>
+<a id="ln-5" name="ln-5" href="#ln-5"></a><span class="c">!</span>
+<a id="ln-6" name="ln-6" href="#ln-6"></a><span class="c">! Copyright 2015-,  Atmospheric and Environmental Research,</span>
+<a id="ln-7" name="ln-7" href="#ln-7"></a><span class="c">! Regents of the University of Colorado, Trustees of Columbia University.  All right reserved.</span>
+<a id="ln-8" name="ln-8" href="#ln-8"></a><span class="c">!</span>
+<a id="ln-9" name="ln-9" href="#ln-9"></a><span class="c">! Use and duplication is permitted under the terms of the</span>
+<a id="ln-10" name="ln-10" href="#ln-10"></a><span class="c">!    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause</span>
+<a id="ln-11" name="ln-11" href="#ln-11"></a><span class="c">! -------------------------------------------------------------------------------------------------</span>
+<a id="ln-12" name="ln-12" href="#ln-12"></a><span class="c">!</span>
+<a id="ln-13" name="ln-13" href="#ln-13"></a><span class="c">!&gt; Compute shortwave radiative fluxes</span>
+<a id="ln-14" name="ln-14" href="#ln-14"></a>
+<a id="ln-15" name="ln-15" href="#ln-15"></a><span class="c">!&gt;  Contains a single routine to compute direct and diffuse fluxes of solar radiation given</span>
+<a id="ln-16" name="ln-16" href="#ln-16"></a><span class="c">!&gt;</span>
+<a id="ln-17" name="ln-17" href="#ln-17"></a><span class="c">!&gt;  - atmospheric optical properties on a spectral grid</span>
+<a id="ln-18" name="ln-18" href="#ln-18"></a><span class="c">!&gt;  - information about vertical ordering</span>
+<a id="ln-19" name="ln-19" href="#ln-19"></a><span class="c">!&gt;  - boundary conditions</span>
+<a id="ln-20" name="ln-20" href="#ln-20"></a><span class="c">!&gt;    - solar zenith angle, spectrally-resolved incident colimated flux, surface albedos for direct and diffuse radiation</span>
+<a id="ln-21" name="ln-21" href="#ln-21"></a><span class="c">!&gt;    - optionally, a boundary condition for incident diffuse radiation</span>
+<a id="ln-22" name="ln-22" href="#ln-22"></a><span class="c">!&gt;</span>
+<a id="ln-23" name="ln-23" href="#ln-23"></a><span class="c">!&gt; It is the user&#39;s responsibility to ensure that boundary conditions (incident fluxes, surface albedos) are on the same</span>
+<a id="ln-24" name="ln-24" href="#ln-24"></a><span class="c">!&gt;   spectral grid as the optical properties.</span>
+<a id="ln-25" name="ln-25" href="#ln-25"></a><span class="c">!&gt;</span>
+<a id="ln-26" name="ln-26" href="#ln-26"></a><span class="c">!&gt; Final output is via user-extensible ty_fluxes</span>
+<a id="ln-27" name="ln-27" href="#ln-27"></a><span class="c">!&gt; ([[mo_fluxes(module):ty_fluxes(type)]] in module [[mo_fluxes]])</span>
+<a id="ln-28" name="ln-28" href="#ln-28"></a><span class="c">!&gt; which must reduce the detailed spectral fluxes to whatever summary the user needs</span>
+<a id="ln-29" name="ln-29" href="#ln-29"></a><span class="c">!&gt;</span>
+<a id="ln-30" name="ln-30" href="#ln-30"></a><span class="c">!&gt;</span>
+<a id="ln-31" name="ln-31" href="#ln-31"></a><span class="c">!&gt; The routine does error checking and choses which lower-level kernel to invoke based on</span>
+<a id="ln-32" name="ln-32" href="#ln-32"></a><span class="c">!&gt;   what kinds of optical properties are supplied</span>
+<a id="ln-33" name="ln-33" href="#ln-33"></a><span class="c">!</span>
+<a id="ln-34" name="ln-34" href="#ln-34"></a><span class="c">! -------------------------------------------------------------------------------------------------</span>
+<a id="ln-35" name="ln-35" href="#ln-35"></a><span class="k">module </span><span class="n">mo_rte_sw</span><span class="w"></span>
+<a id="ln-36" name="ln-36" href="#ln-36"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_rte_kind</span><span class="p">,</span><span class="w">      </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">wp</span><span class="p">,</span><span class="w"> </span><span class="n">wl</span><span class="w"></span>
+<a id="ln-37" name="ln-37" href="#ln-37"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_rte_config</span><span class="p">,</span><span class="w">    </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">check_extents</span><span class="p">,</span><span class="w"> </span><span class="n">check_values</span><span class="w"></span>
+<a id="ln-38" name="ln-38" href="#ln-38"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_rte_util_array</span><span class="p">,</span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">zero_array</span><span class="w"></span>
+<a id="ln-39" name="ln-39" href="#ln-39"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_rte_util_array_validation</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"> </span>
+<a id="ln-40" name="ln-40" href="#ln-40"></a><span class="w">                        </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">any_vals_less_than</span><span class="p">,</span><span class="w"> </span><span class="n">any_vals_outside</span><span class="p">,</span><span class="w"> </span><span class="n">extents_are</span><span class="w"></span>
+<a id="ln-41" name="ln-41" href="#ln-41"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_optical_props</span><span class="p">,</span><span class="w"> </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">ty_optical_props</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-42" name="ln-42" href="#ln-42"></a><span class="w">                              </span><span class="n">ty_optical_props_arry</span><span class="p">,</span><span class="w"> </span><span class="n">ty_optical_props_1scl</span><span class="p">,</span><span class="w"> </span><span class="n">ty_optical_props_2str</span><span class="p">,</span><span class="w"> </span><span class="n">ty_optical_props_nstr</span><span class="w"></span>
+<a id="ln-43" name="ln-43" href="#ln-43"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_fluxes</span><span class="p">,</span><span class="w">        </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">ty_fluxes</span><span class="p">,</span><span class="w"> </span><span class="n">ty_fluxes_broadband</span><span class="w"></span>
+<a id="ln-44" name="ln-44" href="#ln-44"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_rte_solver_kernels</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-45" name="ln-45" href="#ln-45"></a><span class="w">                        </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">sw_solver_noscat</span><span class="p">,</span><span class="w"> </span><span class="n">sw_solver_2stream</span><span class="w"></span>
+<a id="ln-46" name="ln-46" href="#ln-46"></a><span class="w">  </span><span class="k">implicit none</span>
+<a id="ln-47" name="ln-47" href="#ln-47"></a><span class="k">  private</span>
+<a id="ln-48" name="ln-48" href="#ln-48"></a>
+<a id="ln-49" name="ln-49" href="#ln-49"></a><span class="k">  interface </span><span class="n">rte_sw</span><span class="w"></span>
+<a id="ln-50" name="ln-50" href="#ln-50"></a><span class="w">    </span><span class="k">module procedure </span><span class="n">rte_sw_mu0_bycol</span><span class="p">,</span><span class="w"> </span><span class="n">rte_sw_mu0_full</span><span class="w"></span>
+<a id="ln-51" name="ln-51" href="#ln-51"></a><span class="w">  </span><span class="k">end interface </span><span class="n">rte_sw</span><span class="w"></span>
+<a id="ln-52" name="ln-52" href="#ln-52"></a><span class="w">  </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rte_sw</span><span class="w"></span>
+<a id="ln-53" name="ln-53" href="#ln-53"></a>
+<a id="ln-54" name="ln-54" href="#ln-54"></a><span class="k">contains</span><span class="w"></span>
+<a id="ln-55" name="ln-55" href="#ln-55"></a><span class="w">  </span><span class="c">! -------------------------------------------------------------------------------------------------</span>
+<a id="ln-56" name="ln-56" href="#ln-56"></a><span class="w">  </span><span class="k">function </span><span class="n">rte_sw_mu0_bycol</span><span class="p">(</span><span class="n">atmos</span><span class="p">,</span><span class="w"> </span><span class="n">top_at_1</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-57" name="ln-57" href="#ln-57"></a><span class="w">                  </span><span class="n">mu0</span><span class="p">,</span><span class="w"> </span><span class="n">inc_flux</span><span class="p">,</span><span class="w">             </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-58" name="ln-58" href="#ln-58"></a><span class="w">                  </span><span class="n">sfc_alb_dir</span><span class="p">,</span><span class="w"> </span><span class="n">sfc_alb_dif</span><span class="p">,</span><span class="w">  </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-59" name="ln-59" href="#ln-59"></a><span class="w">                  </span><span class="n">fluxes</span><span class="p">,</span><span class="w"> </span><span class="n">inc_flux_dif</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">error_msg</span><span class="p">)</span><span class="w"></span>
+<a id="ln-60" name="ln-60" href="#ln-60"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_arry</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">atmos</span><span class="w"></span>
+<a id="ln-61" name="ln-61" href="#ln-61"></a><span class="w">      </span><span class="c">!! Optical properties provided as arrays</span>
+<a id="ln-62" name="ln-62" href="#ln-62"></a><span class="w">    </span><span class="kt">logical</span><span class="p">,</span><span class="w">                      </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">top_at_1</span><span class="w"></span>
+<a id="ln-63" name="ln-63" href="#ln-63"></a><span class="w">      </span><span class="c">!! Is the top of the domain at index 1? (if not, ordering is bottom-to-top)</span>
+<a id="ln-64" name="ln-64" href="#ln-64"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:),</span><span class="w">       </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">mu0</span><span class="w"></span>
+<a id="ln-65" name="ln-65" href="#ln-65"></a><span class="w">      </span><span class="c">!! cosine of solar zenith angle (ncol) - will be assumed constant with height</span>
+<a id="ln-66" name="ln-66" href="#ln-66"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w">     </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">inc_flux</span><span class="w"></span>
+<a id="ln-67" name="ln-67" href="#ln-67"></a><span class="w">      </span><span class="c">!! incident flux at top of domain [W/m2] (ncol, ngpt)</span>
+<a id="ln-68" name="ln-68" href="#ln-68"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w">     </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">sfc_alb_dir</span><span class="w"></span>
+<a id="ln-69" name="ln-69" href="#ln-69"></a><span class="w">      </span><span class="c">!! surface albedo for direct and</span>
+<a id="ln-70" name="ln-70" href="#ln-70"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w">     </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">sfc_alb_dif</span><span class="w"></span>
+<a id="ln-71" name="ln-71" href="#ln-71"></a><span class="w">      </span><span class="c">!! diffuse radiation (nband, ncol)</span>
+<a id="ln-72" name="ln-72" href="#ln-72"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_fluxes</span><span class="p">),</span><span class="w">             </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">fluxes</span><span class="w"></span>
+<a id="ln-73" name="ln-73" href="#ln-73"></a><span class="w">      </span><span class="c">!! Class describing output calculations</span>
+<a id="ln-74" name="ln-74" href="#ln-74"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w"> </span><span class="k">optional</span><span class="p">,</span><span class="w"> </span><span class="k">target</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-75" name="ln-75" href="#ln-75"></a><span class="w">                                  </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">inc_flux_dif</span><span class="w"></span>
+<a id="ln-76" name="ln-76" href="#ln-76"></a><span class="w">      </span><span class="c">!! incident diffuse flux at top of domain [W/m2] (ncol, ngpt)</span>
+<a id="ln-77" name="ln-77" href="#ln-77"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="mi">128</span><span class="p">)</span><span class="w">                          </span><span class="kd">::</span><span class="w"> </span><span class="n">error_msg</span><span class="w"></span>
+<a id="ln-78" name="ln-78" href="#ln-78"></a><span class="w">      </span><span class="c">!! If empty, calculation was successful</span>
+<a id="ln-79" name="ln-79" href="#ln-79"></a><span class="w">    </span><span class="c">! --------------------------------</span>
+<a id="ln-80" name="ln-80" href="#ln-80"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="n">mu0</span><span class="p">),</span><span class="w"> </span><span class="n">atmos</span><span class="p">%</span><span class="n">get_nlay</span><span class="p">())</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">mu0_bylay</span><span class="w"></span>
+<a id="ln-81" name="ln-81" href="#ln-81"></a><span class="w">    </span><span class="kt">integer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">i</span><span class="p">,</span><span class="w"> </span><span class="n">j</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="w"></span>
+<a id="ln-82" name="ln-82" href="#ln-82"></a>
+<a id="ln-83" name="ln-83" href="#ln-83"></a><span class="w">    </span><span class="n">ncol</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">mu0</span><span class="p">)</span><span class="w"></span>
+<a id="ln-84" name="ln-84" href="#ln-84"></a><span class="w">    </span><span class="n">nlay</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">atmos</span><span class="p">%</span><span class="n">get_nlay</span><span class="p">()</span><span class="w"></span>
+<a id="ln-85" name="ln-85" href="#ln-85"></a><span class="w">    </span><span class="c">! Solar zenith angle cosine is constant with height</span>
+<a id="ln-86" name="ln-86" href="#ln-86"></a><span class="w">    </span><span class="c">!$acc        data copyin(mu0)    create(mu0_bylay)</span>
+<a id="ln-87" name="ln-87" href="#ln-87"></a><span class="w">    </span><span class="c">!$omp target data map(to:mu0) map(alloc:mu0_bylay)</span>
+<a id="ln-88" name="ln-88" href="#ln-88"></a>
+<a id="ln-89" name="ln-89" href="#ln-89"></a><span class="w">    </span><span class="c">!$acc                         parallel loop    collapse(2)</span>
+<a id="ln-90" name="ln-90" href="#ln-90"></a><span class="w">    </span><span class="c">!$omp target teams distribute parallel do simd collapse(2)</span>
+<a id="ln-91" name="ln-91" href="#ln-91"></a><span class="w">    </span><span class="k">do </span><span class="n">j</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="w"></span>
+<a id="ln-92" name="ln-92" href="#ln-92"></a><span class="w">      </span><span class="k">do </span><span class="n">i</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="w"></span>
+<a id="ln-93" name="ln-93" href="#ln-93"></a><span class="w">        </span><span class="n">mu0_bylay</span><span class="p">(</span><span class="n">i</span><span class="p">,</span><span class="n">j</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">mu0</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="w"></span>
+<a id="ln-94" name="ln-94" href="#ln-94"></a><span class="w">      </span><span class="k">end do</span>
+<a id="ln-95" name="ln-95" href="#ln-95"></a><span class="k">    end do</span>
+<a id="ln-96" name="ln-96" href="#ln-96"></a>
+<a id="ln-97" name="ln-97" href="#ln-97"></a><span class="k">    </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">rte_sw_mu0_full</span><span class="p">(</span><span class="n">atmos</span><span class="p">,</span><span class="w"> </span><span class="n">top_at_1</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-98" name="ln-98" href="#ln-98"></a><span class="w">                    </span><span class="n">mu0_bylay</span><span class="p">,</span><span class="w"> </span><span class="n">inc_flux</span><span class="p">,</span><span class="w">         </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-99" name="ln-99" href="#ln-99"></a><span class="w">                    </span><span class="n">sfc_alb_dir</span><span class="p">,</span><span class="w"> </span><span class="n">sfc_alb_dif</span><span class="p">,</span><span class="w">    </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-100" name="ln-100" href="#ln-100"></a><span class="w">                    </span><span class="n">fluxes</span><span class="p">,</span><span class="w"> </span><span class="n">inc_flux_dif</span><span class="p">)</span><span class="w"></span>
+<a id="ln-101" name="ln-101" href="#ln-101"></a><span class="w">    </span><span class="c">!$acc end data</span>
+<a id="ln-102" name="ln-102" href="#ln-102"></a><span class="w">    </span><span class="c">!$omp end target data</span>
+<a id="ln-103" name="ln-103" href="#ln-103"></a><span class="w">  </span><span class="k">end function </span><span class="n">rte_sw_mu0_bycol</span><span class="w"></span>
+<a id="ln-104" name="ln-104" href="#ln-104"></a><span class="w">  </span><span class="c">! -------------------------------------------------------------------------------------------------</span>
+<a id="ln-105" name="ln-105" href="#ln-105"></a><span class="w">  </span><span class="k">function </span><span class="n">rte_sw_mu0_full</span><span class="p">(</span><span class="n">atmos</span><span class="p">,</span><span class="w"> </span><span class="n">top_at_1</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-106" name="ln-106" href="#ln-106"></a><span class="w">                  </span><span class="n">mu0</span><span class="p">,</span><span class="w"> </span><span class="n">inc_flux</span><span class="p">,</span><span class="w">            </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-107" name="ln-107" href="#ln-107"></a><span class="w">                  </span><span class="n">sfc_alb_dir</span><span class="p">,</span><span class="w"> </span><span class="n">sfc_alb_dif</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-108" name="ln-108" href="#ln-108"></a><span class="w">                  </span><span class="n">fluxes</span><span class="p">,</span><span class="w"> </span><span class="n">inc_flux_dif</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">error_msg</span><span class="p">)</span><span class="w"></span>
+<a id="ln-109" name="ln-109" href="#ln-109"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props_arry</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">atmos</span><span class="w"></span>
+<a id="ln-110" name="ln-110" href="#ln-110"></a><span class="w">      </span><span class="c">!! Optical properties provided as arrays</span>
+<a id="ln-111" name="ln-111" href="#ln-111"></a><span class="w">    </span><span class="kt">logical</span><span class="p">,</span><span class="w">                      </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">top_at_1</span><span class="w"></span>
+<a id="ln-112" name="ln-112" href="#ln-112"></a><span class="w">      </span><span class="c">!! Is the top of the domain at index 1? (if not, ordering is bottom-to-top)</span>
+<a id="ln-113" name="ln-113" href="#ln-113"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w">     </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">mu0</span><span class="w"></span>
+<a id="ln-114" name="ln-114" href="#ln-114"></a><span class="w">      </span><span class="c">!! cosine of solar zenith angle (ncol, nlay)</span>
+<a id="ln-115" name="ln-115" href="#ln-115"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w">     </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">inc_flux</span><span class="w"></span>
+<a id="ln-116" name="ln-116" href="#ln-116"></a><span class="w">      </span><span class="c">!! incident flux at top of domain [W/m2] (ncol, ngpt)</span>
+<a id="ln-117" name="ln-117" href="#ln-117"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w">     </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">sfc_alb_dir</span><span class="w"></span>
+<a id="ln-118" name="ln-118" href="#ln-118"></a><span class="w">      </span><span class="c">!! surface albedo for direct and</span>
+<a id="ln-119" name="ln-119" href="#ln-119"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w">     </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">sfc_alb_dif</span><span class="w"></span>
+<a id="ln-120" name="ln-120" href="#ln-120"></a><span class="w">      </span><span class="c">!! diffuse radiation (nband, ncol)</span>
+<a id="ln-121" name="ln-121" href="#ln-121"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_fluxes</span><span class="p">),</span><span class="w">             </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">fluxes</span><span class="w"></span>
+<a id="ln-122" name="ln-122" href="#ln-122"></a><span class="w">      </span><span class="c">!! Class describing output calculations</span>
+<a id="ln-123" name="ln-123" href="#ln-123"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w"> </span><span class="k">optional</span><span class="p">,</span><span class="w"> </span><span class="k">target</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-124" name="ln-124" href="#ln-124"></a><span class="w">                                  </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">inc_flux_dif</span><span class="w"></span>
+<a id="ln-125" name="ln-125" href="#ln-125"></a><span class="w">      </span><span class="c">!! incident diffuse flux at top of domain [W/m2] (ncol, ngpt)</span>
+<a id="ln-126" name="ln-126" href="#ln-126"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="mi">128</span><span class="p">)</span><span class="w">                          </span><span class="kd">::</span><span class="w"> </span><span class="n">error_msg</span><span class="w"></span>
+<a id="ln-127" name="ln-127" href="#ln-127"></a><span class="w">      </span><span class="c">!! If empty, calculation was successful</span>
+<a id="ln-128" name="ln-128" href="#ln-128"></a><span class="w">    </span><span class="c">! --------------------------------</span>
+<a id="ln-129" name="ln-129" href="#ln-129"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-130" name="ln-130" href="#ln-130"></a><span class="w">    </span><span class="c">! Local variables</span>
+<a id="ln-131" name="ln-131" href="#ln-131"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-132" name="ln-132" href="#ln-132"></a><span class="w">    </span><span class="kt">integer</span><span class="w">     </span><span class="kd">::</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">nband</span><span class="w"></span>
+<a id="ln-133" name="ln-133" href="#ln-133"></a><span class="w">    </span><span class="kt">integer</span><span class="w">     </span><span class="kd">::</span><span class="w"> </span><span class="n">icol</span><span class="p">,</span><span class="w"> </span><span class="n">ilev</span><span class="w"></span>
+<a id="ln-134" name="ln-134" href="#ln-134"></a><span class="w">    </span><span class="kt">logical</span><span class="p">(</span><span class="n">wl</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">has_dif_bc</span><span class="p">,</span><span class="w"> </span><span class="n">do_broadband</span><span class="w"></span>
+<a id="ln-135" name="ln-135" href="#ln-135"></a>
+<a id="ln-136" name="ln-136" href="#ln-136"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:),</span><span class="w"> </span><span class="k">pointer</span><span class="w">             </span><span class="kd">::</span><span class="w"> </span><span class="n">gpt_flux_up</span><span class="p">,</span><span class="w"> </span><span class="n">gpt_flux_dn</span><span class="p">,</span><span class="w"> </span><span class="n">gpt_flux_dir</span><span class="w"></span>
+<a id="ln-137" name="ln-137" href="#ln-137"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w">   </span><span class="k">allocatable</span><span class="w">         </span><span class="kd">::</span><span class="w"> </span><span class="n">sfc_alb_dir_gpt</span><span class="p">,</span><span class="w"> </span><span class="n">sfc_alb_dif_gpt</span><span class="w"></span>
+<a id="ln-138" name="ln-138" href="#ln-138"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w">   </span><span class="k">pointer</span><span class="w">             </span><span class="kd">::</span><span class="w"> </span><span class="n">flux_dn_loc</span><span class="p">,</span><span class="w"> </span><span class="n">flux_up_loc</span><span class="p">,</span><span class="w"> </span><span class="n">flux_dir_loc</span><span class="w"></span>
+<a id="ln-139" name="ln-139" href="#ln-139"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w">   </span><span class="k">pointer</span><span class="w">             </span><span class="kd">::</span><span class="w"> </span><span class="n">inc_flux_diffuse</span><span class="w"></span>
+<a id="ln-140" name="ln-140" href="#ln-140"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:),</span><span class="w"> </span><span class="k">allocatable</span><span class="p">,</span><span class="w"> </span><span class="k">target</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">decoy3D</span><span class="w"></span>
+<a id="ln-141" name="ln-141" href="#ln-141"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w">   </span><span class="k">allocatable</span><span class="p">,</span><span class="w"> </span><span class="k">target</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">decoy2D</span><span class="w"></span>
+<a id="ln-142" name="ln-142" href="#ln-142"></a>
+<a id="ln-143" name="ln-143" href="#ln-143"></a><span class="w">    </span><span class="c">! ------------------------------------------------------------------------------------</span>
+<a id="ln-144" name="ln-144" href="#ln-144"></a><span class="w">    </span><span class="n">ncol</span><span class="w">  </span><span class="o">=</span><span class="w"> </span><span class="n">atmos</span><span class="p">%</span><span class="n">get_ncol</span><span class="p">()</span><span class="w"></span>
+<a id="ln-145" name="ln-145" href="#ln-145"></a><span class="w">    </span><span class="n">nlay</span><span class="w">  </span><span class="o">=</span><span class="w"> </span><span class="n">atmos</span><span class="p">%</span><span class="n">get_nlay</span><span class="p">()</span><span class="w"></span>
+<a id="ln-146" name="ln-146" href="#ln-146"></a><span class="w">    </span><span class="n">ngpt</span><span class="w">  </span><span class="o">=</span><span class="w"> </span><span class="n">atmos</span><span class="p">%</span><span class="n">get_ngpt</span><span class="p">()</span><span class="w"></span>
+<a id="ln-147" name="ln-147" href="#ln-147"></a><span class="w">    </span><span class="n">nband</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">atmos</span><span class="p">%</span><span class="n">get_nband</span><span class="p">()</span><span class="w"></span>
+<a id="ln-148" name="ln-148" href="#ln-148"></a><span class="w">    </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-149" name="ln-149" href="#ln-149"></a><span class="w">    </span><span class="c">! ------------------------------------------------------------------------------------</span>
+<a id="ln-150" name="ln-150" href="#ln-150"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-151" name="ln-151" href="#ln-151"></a><span class="w">    </span><span class="c">! Error checking -- consistency of sizes and validity of values</span>
+<a id="ln-152" name="ln-152" href="#ln-152"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-153" name="ln-153" href="#ln-153"></a><span class="w">    </span><span class="c">! --------------------------------</span>
+<a id="ln-154" name="ln-154" href="#ln-154"></a><span class="w">    </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">fluxes</span><span class="p">%</span><span class="n">are_desired</span><span class="p">())</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-155" name="ln-155" href="#ln-155"></a><span class="w">      </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_sw: no space allocated for fluxes&quot;</span><span class="w"></span>
+<a id="ln-156" name="ln-156" href="#ln-156"></a>
+<a id="ln-157" name="ln-157" href="#ln-157"></a><span class="w">    </span><span class="n">has_dif_bc</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="kt">logical</span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">inc_flux_dif</span><span class="p">),</span><span class="w"> </span><span class="n">wl</span><span class="p">)</span><span class="w"></span>
+<a id="ln-158" name="ln-158" href="#ln-158"></a>
+<a id="ln-159" name="ln-159" href="#ln-159"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-160" name="ln-160" href="#ln-160"></a><span class="w">    </span><span class="c">! Sizes of input arrays</span>
+<a id="ln-161" name="ln-161" href="#ln-161"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-162" name="ln-162" href="#ln-162"></a><span class="w">    </span><span class="c">! Copy variables whose sizes and values are checked to the GPU so the checks can happen there.</span>
+<a id="ln-163" name="ln-163" href="#ln-163"></a><span class="w">    </span><span class="c">!   No harm done if checks are not performed  (?)</span>
+<a id="ln-164" name="ln-164" href="#ln-164"></a><span class="w">    </span><span class="c">!$acc        data copyin(mu0, inc_flux, sfc_alb_dir, sfc_alb_dif)</span>
+<a id="ln-165" name="ln-165" href="#ln-165"></a><span class="w">    </span><span class="c">!$omp target data map(to:mu0, inc_flux, sfc_alb_dir, sfc_alb_dif)</span>
+<a id="ln-166" name="ln-166" href="#ln-166"></a><span class="w">    </span><span class="c">!$acc        data copyin(inc_flux_dif) if (has_dif_bc)</span>
+<a id="ln-167" name="ln-167" href="#ln-167"></a><span class="w">    </span><span class="c">!$omp target data map(to:inc_flux_dif) if (has_dif_bc)</span>
+<a id="ln-168" name="ln-168" href="#ln-168"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">check_extents</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-169" name="ln-169" href="#ln-169"></a><span class="k">      if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">extents_are</span><span class="p">(</span><span class="n">mu0</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-170" name="ln-170" href="#ln-170"></a><span class="w">        </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_sw: mu0 inconsistently sized&quot;</span><span class="w"></span>
+<a id="ln-171" name="ln-171" href="#ln-171"></a><span class="w">      </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">extents_are</span><span class="p">(</span><span class="n">inc_flux</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-172" name="ln-172" href="#ln-172"></a><span class="w">        </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_sw: inc_flux inconsistently sized&quot;</span><span class="w"></span>
+<a id="ln-173" name="ln-173" href="#ln-173"></a><span class="w">      </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">extents_are</span><span class="p">(</span><span class="n">sfc_alb_dir</span><span class="p">,</span><span class="w"> </span><span class="n">nband</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-174" name="ln-174" href="#ln-174"></a><span class="w">        </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_sw: sfc_alb_dir inconsistently sized&quot;</span><span class="w"></span>
+<a id="ln-175" name="ln-175" href="#ln-175"></a><span class="w">      </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">extents_are</span><span class="p">(</span><span class="n">sfc_alb_dif</span><span class="p">,</span><span class="w"> </span><span class="n">nband</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-176" name="ln-176" href="#ln-176"></a><span class="w">        </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_sw: sfc_alb_dif inconsistently sized&quot;</span><span class="w"></span>
+<a id="ln-177" name="ln-177" href="#ln-177"></a><span class="w">      </span><span class="k">if</span><span class="p">(</span><span class="n">has_dif_bc</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-178" name="ln-178" href="#ln-178"></a><span class="k">        if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">extents_are</span><span class="p">(</span><span class="n">inc_flux_dif</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-179" name="ln-179" href="#ln-179"></a><span class="w">          </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_sw: inc_flux_dif inconsistently sized&quot;</span><span class="w"></span>
+<a id="ln-180" name="ln-180" href="#ln-180"></a><span class="w">      </span><span class="k">end if</span>
+<a id="ln-181" name="ln-181" href="#ln-181"></a><span class="k">    end if</span><span class="w"></span>
+<a id="ln-182" name="ln-182" href="#ln-182"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-183" name="ln-183" href="#ln-183"></a><span class="w">    </span><span class="c">! Values of input arrays</span>
+<a id="ln-184" name="ln-184" href="#ln-184"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-185" name="ln-185" href="#ln-185"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">check_values</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-186" name="ln-186" href="#ln-186"></a><span class="k">      if</span><span class="p">(</span><span class="n">any_vals_outside</span><span class="p">(</span><span class="n">mu0</span><span class="p">,</span><span class="w"> </span><span class="o">-</span><span class="mf">1._wp</span><span class="p">,</span><span class="w"> </span><span class="mf">1._wp</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-187" name="ln-187" href="#ln-187"></a><span class="w">        </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_sw: one or more mu0 &lt; -1 or &gt; 1&quot;</span><span class="w"></span>
+<a id="ln-188" name="ln-188" href="#ln-188"></a><span class="w">      </span><span class="k">if</span><span class="p">(</span><span class="n">any_vals_less_than</span><span class="p">(</span><span class="n">inc_flux</span><span class="p">,</span><span class="w"> </span><span class="mf">0._wp</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-189" name="ln-189" href="#ln-189"></a><span class="w">        </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_sw: one or more inc_flux &lt; 0&quot;</span><span class="w"></span>
+<a id="ln-190" name="ln-190" href="#ln-190"></a><span class="w">      </span><span class="k">if</span><span class="p">(</span><span class="n">any_vals_outside</span><span class="p">(</span><span class="n">sfc_alb_dir</span><span class="p">,</span><span class="w">  </span><span class="mf">0._wp</span><span class="p">,</span><span class="w"> </span><span class="mf">1._wp</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-191" name="ln-191" href="#ln-191"></a><span class="w">        </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_sw: sfc_alb_dir out of bounds [0,1]&quot;</span><span class="w"></span>
+<a id="ln-192" name="ln-192" href="#ln-192"></a><span class="w">      </span><span class="k">if</span><span class="p">(</span><span class="n">any_vals_outside</span><span class="p">(</span><span class="n">sfc_alb_dif</span><span class="p">,</span><span class="w">  </span><span class="mf">0._wp</span><span class="p">,</span><span class="w"> </span><span class="mf">1._wp</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-193" name="ln-193" href="#ln-193"></a><span class="w">        </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_sw: sfc_alb_dif out of bounds [0,1]&quot;</span><span class="w"></span>
+<a id="ln-194" name="ln-194" href="#ln-194"></a><span class="w">      </span><span class="k">if</span><span class="p">(</span><span class="n">has_dif_bc</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-195" name="ln-195" href="#ln-195"></a><span class="k">        if</span><span class="p">(</span><span class="n">any_vals_less_than</span><span class="p">(</span><span class="n">inc_flux_dif</span><span class="p">,</span><span class="w"> </span><span class="mf">0._wp</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-196" name="ln-196" href="#ln-196"></a><span class="w">          </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;rte_sw: one or more inc_flux_dif &lt; 0&quot;</span><span class="w"></span>
+<a id="ln-197" name="ln-197" href="#ln-197"></a><span class="w">      </span><span class="k">end if</span>
+<a id="ln-198" name="ln-198" href="#ln-198"></a><span class="k">    end if</span><span class="w"></span>
+<a id="ln-199" name="ln-199" href="#ln-199"></a>
+<a id="ln-200" name="ln-200" href="#ln-200"></a><span class="w">    </span><span class="c">! ------------------------------------------------------------------------------------</span>
+<a id="ln-201" name="ln-201" href="#ln-201"></a><span class="w">    </span><span class="k">select type</span><span class="p">(</span><span class="n">fluxes</span><span class="p">)</span><span class="w"></span>
+<a id="ln-202" name="ln-202" href="#ln-202"></a><span class="w">      </span><span class="k">type is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_fluxes_broadband</span><span class="p">)</span><span class="w"></span>
+<a id="ln-203" name="ln-203" href="#ln-203"></a><span class="w">        </span><span class="n">do_broadband</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">true</span><span class="p">.</span><span class="err">_</span><span class="n">wl</span><span class="w"></span>
+<a id="ln-204" name="ln-204" href="#ln-204"></a><span class="w">        </span><span class="c">!</span>
+<a id="ln-205" name="ln-205" href="#ln-205"></a><span class="w">        </span><span class="c">! Solvers will integrate in place (one g-point at a time on CPUs)</span>
+<a id="ln-206" name="ln-206" href="#ln-206"></a><span class="w">        </span><span class="c">!   so won&#39;t need big working arrays</span>
+<a id="ln-207" name="ln-207" href="#ln-207"></a><span class="w">        </span><span class="c">!</span>
+<a id="ln-208" name="ln-208" href="#ln-208"></a><span class="w">        </span><span class="k">allocate</span><span class="p">(</span><span class="n">decoy3D</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="o">+</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">))</span><span class="w"></span>
+<a id="ln-209" name="ln-209" href="#ln-209"></a><span class="w">        </span><span class="n">gpt_flux_up</span><span class="w">  </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">decoy3D</span><span class="w"></span>
+<a id="ln-210" name="ln-210" href="#ln-210"></a><span class="w">        </span><span class="n">gpt_flux_dn</span><span class="w">  </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">decoy3D</span><span class="w"></span>
+<a id="ln-211" name="ln-211" href="#ln-211"></a><span class="w">        </span><span class="n">gpt_flux_dir</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">decoy3D</span><span class="w"></span>
+<a id="ln-212" name="ln-212" href="#ln-212"></a><span class="w">        </span><span class="c">!</span>
+<a id="ln-213" name="ln-213" href="#ln-213"></a><span class="w">        </span><span class="c">! Broadband fluxes class has three possible outputs; allocate memory for local use</span>
+<a id="ln-214" name="ln-214" href="#ln-214"></a><span class="w">        </span><span class="c">!   if one or more haven&#39;t been requested</span>
+<a id="ln-215" name="ln-215" href="#ln-215"></a><span class="w">        </span><span class="c">!</span>
+<a id="ln-216" name="ln-216" href="#ln-216"></a><span class="w">        </span><span class="k">if</span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">fluxes</span><span class="p">%</span><span class="n">flux_up</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-217" name="ln-217" href="#ln-217"></a><span class="k">          </span><span class="n">flux_up_loc</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">fluxes</span><span class="p">%</span><span class="n">flux_up</span><span class="w"></span>
+<a id="ln-218" name="ln-218" href="#ln-218"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-219" name="ln-219" href="#ln-219"></a><span class="k">          allocate</span><span class="p">(</span><span class="n">flux_up_loc</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="o">+</span><span class="mi">1</span><span class="p">))</span><span class="w"></span>
+<a id="ln-220" name="ln-220" href="#ln-220"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-221" name="ln-221" href="#ln-221"></a><span class="k">        if</span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">fluxes</span><span class="p">%</span><span class="n">flux_dn</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-222" name="ln-222" href="#ln-222"></a><span class="k">          </span><span class="n">flux_dn_loc</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">fluxes</span><span class="p">%</span><span class="n">flux_dn</span><span class="w"></span>
+<a id="ln-223" name="ln-223" href="#ln-223"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-224" name="ln-224" href="#ln-224"></a><span class="k">          allocate</span><span class="p">(</span><span class="n">flux_dn_loc</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="o">+</span><span class="mi">1</span><span class="p">))</span><span class="w"></span>
+<a id="ln-225" name="ln-225" href="#ln-225"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-226" name="ln-226" href="#ln-226"></a><span class="k">        if</span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">fluxes</span><span class="p">%</span><span class="n">flux_dn_dir</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-227" name="ln-227" href="#ln-227"></a><span class="k">          </span><span class="n">flux_dir_loc</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">fluxes</span><span class="p">%</span><span class="n">flux_dn_dir</span><span class="w"></span>
+<a id="ln-228" name="ln-228" href="#ln-228"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-229" name="ln-229" href="#ln-229"></a><span class="k">          allocate</span><span class="p">(</span><span class="n">flux_dir_loc</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="o">+</span><span class="mi">1</span><span class="p">))</span><span class="w"></span>
+<a id="ln-230" name="ln-230" href="#ln-230"></a><span class="w">        </span><span class="k">end if</span><span class="w"></span>
+<a id="ln-231" name="ln-231" href="#ln-231"></a><span class="w">        </span><span class="c">!$acc        enter data create(   flux_up_loc, flux_dn_loc, flux_dir_loc)</span>
+<a id="ln-232" name="ln-232" href="#ln-232"></a><span class="w">        </span><span class="c">!$omp target enter data map(alloc:flux_up_loc, flux_dn_loc, flux_dir_loc)</span>
+<a id="ln-233" name="ln-233" href="#ln-233"></a><span class="w">      </span><span class="k">class </span><span class="n">default</span><span class="w"></span>
+<a id="ln-234" name="ln-234" href="#ln-234"></a><span class="w">        </span><span class="c">!</span>
+<a id="ln-235" name="ln-235" href="#ln-235"></a><span class="w">        </span><span class="c">! If broadband integrals aren&#39;t being computed, allocate working space</span>
+<a id="ln-236" name="ln-236" href="#ln-236"></a><span class="w">        </span><span class="c">!   and decoy addresses for spectrally-integrated fields</span>
+<a id="ln-237" name="ln-237" href="#ln-237"></a><span class="w">        </span><span class="c">!</span>
+<a id="ln-238" name="ln-238" href="#ln-238"></a><span class="w">        </span><span class="n">do_broadband</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">false</span><span class="p">.</span><span class="err">_</span><span class="n">wl</span><span class="w"></span>
+<a id="ln-239" name="ln-239" href="#ln-239"></a><span class="w">        </span><span class="k">allocate</span><span class="p">(</span><span class="n">decoy2D</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="o">+</span><span class="mi">1</span><span class="p">))</span><span class="w"></span>
+<a id="ln-240" name="ln-240" href="#ln-240"></a><span class="w">        </span><span class="n">flux_up_loc</span><span class="w">  </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">decoy2D</span><span class="w"></span>
+<a id="ln-241" name="ln-241" href="#ln-241"></a><span class="w">        </span><span class="n">flux_dn_loc</span><span class="w">  </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">decoy2D</span><span class="w"></span>
+<a id="ln-242" name="ln-242" href="#ln-242"></a><span class="w">        </span><span class="n">flux_dir_loc</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">decoy2D</span><span class="w"></span>
+<a id="ln-243" name="ln-243" href="#ln-243"></a><span class="w">        </span><span class="k">allocate</span><span class="p">(</span><span class="n">gpt_flux_up</span><span class="w"> </span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="n">nlay</span><span class="o">+</span><span class="mi">1</span><span class="p">,</span><span class="n">ngpt</span><span class="p">),</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-244" name="ln-244" href="#ln-244"></a><span class="w">                 </span><span class="n">gpt_flux_dn</span><span class="w"> </span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="n">nlay</span><span class="o">+</span><span class="mi">1</span><span class="p">,</span><span class="n">ngpt</span><span class="p">),</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-245" name="ln-245" href="#ln-245"></a><span class="w">                 </span><span class="n">gpt_flux_dir</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="n">nlay</span><span class="o">+</span><span class="mi">1</span><span class="p">,</span><span class="n">ngpt</span><span class="p">))</span><span class="w"></span>
+<a id="ln-246" name="ln-246" href="#ln-246"></a><span class="w">    </span><span class="k">end select</span>
+<a id="ln-247" name="ln-247" href="#ln-247"></a>
+<a id="ln-248" name="ln-248" href="#ln-248"></a><span class="k">    allocate</span><span class="p">(</span><span class="n">sfc_alb_dir_gpt</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">),</span><span class="w"> </span><span class="n">sfc_alb_dif_gpt</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">))</span><span class="w"></span>
+<a id="ln-249" name="ln-249" href="#ln-249"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">len_trim</span><span class="p">(</span><span class="n">error_msg</span><span class="p">)</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-250" name="ln-250" href="#ln-250"></a><span class="k">      if</span><span class="p">(</span><span class="nb">len_trim</span><span class="p">(</span><span class="n">atmos</span><span class="p">%</span><span class="n">get_name</span><span class="p">())</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-251" name="ln-251" href="#ln-251"></a><span class="w">        </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">atmos</span><span class="p">%</span><span class="n">get_name</span><span class="p">())</span><span class="w"> </span><span class="o">//</span><span class="w"> </span><span class="s1">&#39;: &#39;</span><span class="w"> </span><span class="o">//</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">error_msg</span><span class="p">)</span><span class="w"></span>
+<a id="ln-252" name="ln-252" href="#ln-252"></a><span class="w">    </span><span class="k">end if</span><span class="w"></span>
+<a id="ln-253" name="ln-253" href="#ln-253"></a>
+<a id="ln-254" name="ln-254" href="#ln-254"></a><span class="w">    </span><span class="c">! Fluxes need to be copied out only if do_broadband is .true.</span>
+<a id="ln-255" name="ln-255" href="#ln-255"></a><span class="w">    </span><span class="c">!$acc        data copyin(   flux_up_loc,flux_dn_loc,flux_dir_loc) if (      do_broadband)</span>
+<a id="ln-256" name="ln-256" href="#ln-256"></a><span class="w">    </span><span class="c">!$omp target data map(to:   flux_up_loc,flux_dn_loc,flux_dir_loc) if (      do_broadband)</span>
+<a id="ln-257" name="ln-257" href="#ln-257"></a><span class="w">    </span><span class="c">!$acc        data create(   flux_up_loc,flux_dn_loc,flux_dir_loc) if (.not. do_broadband)</span>
+<a id="ln-258" name="ln-258" href="#ln-258"></a><span class="w">    </span><span class="c">!$omp target data map(alloc:flux_up_loc,flux_dn_loc,flux_dir_loc) if (.not. do_broadband)</span>
+<a id="ln-259" name="ln-259" href="#ln-259"></a>
+<a id="ln-260" name="ln-260" href="#ln-260"></a><span class="w">    </span><span class="c">!$acc        data create(   gpt_flux_up,gpt_flux_dn,gpt_flux_dir) &amp;</span>
+<a id="ln-261" name="ln-261" href="#ln-261"></a><span class="w">    </span><span class="c">!$acc             create(   sfc_alb_dir_gpt, sfc_alb_dif_gpt)</span>
+<a id="ln-262" name="ln-262" href="#ln-262"></a><span class="w">    </span><span class="c">!$omp target data map(alloc:gpt_flux_up,gpt_flux_dn,gpt_flux_dir) &amp;</span>
+<a id="ln-263" name="ln-263" href="#ln-263"></a><span class="w">    </span><span class="c">!$omp             map(alloc:sfc_alb_dir_gpt, sfc_alb_dif_gpt)</span>
+<a id="ln-264" name="ln-264" href="#ln-264"></a>
+<a id="ln-265" name="ln-265" href="#ln-265"></a>
+<a id="ln-266" name="ln-266" href="#ln-266"></a><span class="w">    </span><span class="c">! ------------------------------------------------------------------------------------</span>
+<a id="ln-267" name="ln-267" href="#ln-267"></a><span class="w">    </span><span class="c">! Boundary conditions</span>
+<a id="ln-268" name="ln-268" href="#ln-268"></a><span class="w">    </span><span class="c">!   Lower boundary condition -- expand surface albedos by band to gpoints</span>
+<a id="ln-269" name="ln-269" href="#ln-269"></a><span class="w">    </span><span class="c">!     and switch dimension ordering</span>
+<a id="ln-270" name="ln-270" href="#ln-270"></a><span class="w">    </span><span class="k">call </span><span class="n">expand_and_transpose</span><span class="p">(</span><span class="n">atmos</span><span class="p">,</span><span class="w"> </span><span class="n">sfc_alb_dir</span><span class="p">,</span><span class="w"> </span><span class="n">sfc_alb_dir_gpt</span><span class="p">)</span><span class="w"></span>
+<a id="ln-271" name="ln-271" href="#ln-271"></a><span class="w">    </span><span class="k">call </span><span class="n">expand_and_transpose</span><span class="p">(</span><span class="n">atmos</span><span class="p">,</span><span class="w"> </span><span class="n">sfc_alb_dif</span><span class="p">,</span><span class="w"> </span><span class="n">sfc_alb_dif_gpt</span><span class="p">)</span><span class="w"></span>
+<a id="ln-272" name="ln-272" href="#ln-272"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-273" name="ln-273" href="#ln-273"></a><span class="w">    </span><span class="c">!   Diffuse flux boundary condition - will use values in optional arg or be set to 0</span>
+<a id="ln-274" name="ln-274" href="#ln-274"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-275" name="ln-275" href="#ln-275"></a><span class="w">    </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">has_dif_bc</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-276" name="ln-276" href="#ln-276"></a><span class="k">      </span><span class="n">inc_flux_diffuse</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">inc_flux_dif</span><span class="w"></span>
+<a id="ln-277" name="ln-277" href="#ln-277"></a><span class="w">      </span><span class="c">!$acc        enter data copyin(   inc_flux_diffuse)</span>
+<a id="ln-278" name="ln-278" href="#ln-278"></a><span class="w">      </span><span class="c">!$omp target enter data map(to:   inc_flux_diffuse)</span>
+<a id="ln-279" name="ln-279" href="#ln-279"></a><span class="w">    </span><span class="k">else</span>
+<a id="ln-280" name="ln-280" href="#ln-280"></a><span class="k">      allocate</span><span class="p">(</span><span class="n">inc_flux_diffuse</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">))</span><span class="w"></span>
+<a id="ln-281" name="ln-281" href="#ln-281"></a><span class="w">      </span><span class="c">!$acc        enter data create(   inc_flux_diffuse)</span>
+<a id="ln-282" name="ln-282" href="#ln-282"></a><span class="w">      </span><span class="c">!$omp target enter data map(alloc:inc_flux_diffuse)</span>
+<a id="ln-283" name="ln-283" href="#ln-283"></a><span class="w">      </span><span class="k">call </span><span class="n">zero_array</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">inc_flux_diffuse</span><span class="p">)</span><span class="w"></span>
+<a id="ln-284" name="ln-284" href="#ln-284"></a><span class="w">    </span><span class="k">end if</span><span class="w"></span>
+<a id="ln-285" name="ln-285" href="#ln-285"></a><span class="w">    </span><span class="c">! ------------------------------------------------------------------------------------</span>
+<a id="ln-286" name="ln-286" href="#ln-286"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">check_values</span><span class="p">)</span><span class="w"> </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w">  </span><span class="n">atmos</span><span class="p">%</span><span class="n">validate</span><span class="p">()</span><span class="w"></span>
+<a id="ln-287" name="ln-287" href="#ln-287"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-288" name="ln-288" href="#ln-288"></a><span class="w">    </span><span class="c">! Compute the radiative transfer...</span>
+<a id="ln-289" name="ln-289" href="#ln-289"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-290" name="ln-290" href="#ln-290"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">len_trim</span><span class="p">(</span><span class="n">error_msg</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-291" name="ln-291" href="#ln-291"></a><span class="k">      select type</span><span class="w"> </span><span class="p">(</span><span class="n">atmos</span><span class="p">)</span><span class="w"></span>
+<a id="ln-292" name="ln-292" href="#ln-292"></a><span class="w">        </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_1scl</span><span class="p">)</span><span class="w"></span>
+<a id="ln-293" name="ln-293" href="#ln-293"></a><span class="w">          </span><span class="c">!</span>
+<a id="ln-294" name="ln-294" href="#ln-294"></a><span class="w">          </span><span class="c">! Direct beam only - for completeness, unlikely to be used in practice</span>
+<a id="ln-295" name="ln-295" href="#ln-295"></a><span class="w">          </span><span class="c">!</span>
+<a id="ln-296" name="ln-296" href="#ln-296"></a><span class="w">          </span><span class="k">call </span><span class="n">sw_solver_noscat</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="kt">logical</span><span class="p">(</span><span class="n">top_at_1</span><span class="p">,</span><span class="w"> </span><span class="n">wl</span><span class="p">),</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-297" name="ln-297" href="#ln-297"></a><span class="w">                                </span><span class="n">atmos</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">mu0</span><span class="p">,</span><span class="w"> </span><span class="n">inc_flux</span><span class="p">,</span><span class="w">                </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-298" name="ln-298" href="#ln-298"></a><span class="w">                                </span><span class="n">gpt_flux_dir</span><span class="p">)</span><span class="w"></span>
+<a id="ln-299" name="ln-299" href="#ln-299"></a><span class="w">          </span><span class="k">call </span><span class="n">zero_array</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="o">+</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="n">gpt_flux_up</span><span class="p">)</span><span class="w"></span>
+<a id="ln-300" name="ln-300" href="#ln-300"></a><span class="w">          </span><span class="c">!</span>
+<a id="ln-301" name="ln-301" href="#ln-301"></a><span class="w">          </span><span class="c">!$acc kernels</span>
+<a id="ln-302" name="ln-302" href="#ln-302"></a><span class="w">          </span><span class="c">!$omp target</span>
+<a id="ln-303" name="ln-303" href="#ln-303"></a><span class="w">          </span><span class="n">gpt_flux_dn</span><span class="p">(:,:,:)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">gpt_flux_dir</span><span class="p">(:,:,:)</span><span class="w"></span>
+<a id="ln-304" name="ln-304" href="#ln-304"></a><span class="w">          </span><span class="c">!$acc end kernels</span>
+<a id="ln-305" name="ln-305" href="#ln-305"></a><span class="w">          </span><span class="c">!$omp end target</span>
+<a id="ln-306" name="ln-306" href="#ln-306"></a>
+<a id="ln-307" name="ln-307" href="#ln-307"></a><span class="w">        </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_2str</span><span class="p">)</span><span class="w"></span>
+<a id="ln-308" name="ln-308" href="#ln-308"></a><span class="w">          </span><span class="c">!</span>
+<a id="ln-309" name="ln-309" href="#ln-309"></a><span class="w">          </span><span class="c">! two-stream calculation with scattering</span>
+<a id="ln-310" name="ln-310" href="#ln-310"></a><span class="w">          </span><span class="c">!</span>
+<a id="ln-311" name="ln-311" href="#ln-311"></a><span class="w">          </span><span class="k">call </span><span class="n">sw_solver_2stream</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="p">,</span><span class="w"> </span><span class="kt">logical</span><span class="p">(</span><span class="n">top_at_1</span><span class="p">,</span><span class="w"> </span><span class="n">wl</span><span class="p">),</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-312" name="ln-312" href="#ln-312"></a><span class="w">                                 </span><span class="n">atmos</span><span class="p">%</span><span class="n">tau</span><span class="p">,</span><span class="w"> </span><span class="n">atmos</span><span class="p">%</span><span class="n">ssa</span><span class="p">,</span><span class="w"> </span><span class="n">atmos</span><span class="p">%</span><span class="n">g</span><span class="p">,</span><span class="w"> </span><span class="n">mu0</span><span class="p">,</span><span class="w">      </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-313" name="ln-313" href="#ln-313"></a><span class="w">                                 </span><span class="n">sfc_alb_dir_gpt</span><span class="p">,</span><span class="w"> </span><span class="n">sfc_alb_dif_gpt</span><span class="p">,</span><span class="w">        </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-314" name="ln-314" href="#ln-314"></a><span class="w">                                             </span><span class="n">inc_flux</span><span class="p">,</span><span class="w">                    </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-315" name="ln-315" href="#ln-315"></a><span class="w">                                 </span><span class="n">gpt_flux_up</span><span class="p">,</span><span class="w"> </span><span class="n">gpt_flux_dn</span><span class="p">,</span><span class="w"> </span><span class="n">gpt_flux_dir</span><span class="p">,</span><span class="w">  </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-316" name="ln-316" href="#ln-316"></a><span class="w">                                 </span><span class="n">has_dif_bc</span><span class="p">,</span><span class="w"> </span><span class="n">inc_flux_diffuse</span><span class="p">,</span><span class="w">            </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-317" name="ln-317" href="#ln-317"></a><span class="w">                                 </span><span class="n">do_broadband</span><span class="p">,</span><span class="w"> </span><span class="n">flux_up_loc</span><span class="p">,</span><span class="w"> </span><span class="n">flux_dn_loc</span><span class="p">,</span><span class="w"> </span><span class="n">flux_dir_loc</span><span class="p">)</span><span class="w"></span>
+<a id="ln-318" name="ln-318" href="#ln-318"></a><span class="w">        </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_optical_props_nstr</span><span class="p">)</span><span class="w"></span>
+<a id="ln-319" name="ln-319" href="#ln-319"></a><span class="w">          </span><span class="c">!</span>
+<a id="ln-320" name="ln-320" href="#ln-320"></a><span class="w">          </span><span class="c">! n-stream calculation</span>
+<a id="ln-321" name="ln-321" href="#ln-321"></a><span class="w">          </span><span class="c">!</span>
+<a id="ln-322" name="ln-322" href="#ln-322"></a><span class="w">          </span><span class="c">! not yet implemented so fail</span>
+<a id="ln-323" name="ln-323" href="#ln-323"></a><span class="w">          </span><span class="c">!</span>
+<a id="ln-324" name="ln-324" href="#ln-324"></a><span class="w">          </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s1">&#39;sw_solver(...ty_optical_props_nstr...) not yet implemented&#39;</span><span class="w"></span>
+<a id="ln-325" name="ln-325" href="#ln-325"></a><span class="w">      </span><span class="k">end select</span>
+<a id="ln-326" name="ln-326" href="#ln-326"></a><span class="k">      if</span><span class="p">(</span><span class="nb">len_trim</span><span class="p">(</span><span class="n">error_msg</span><span class="p">)</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-327" name="ln-327" href="#ln-327"></a><span class="k">        if</span><span class="p">(</span><span class="nb">len_trim</span><span class="p">(</span><span class="n">atmos</span><span class="p">%</span><span class="n">get_name</span><span class="p">())</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-328" name="ln-328" href="#ln-328"></a><span class="w">          </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">atmos</span><span class="p">%</span><span class="n">get_name</span><span class="p">())</span><span class="w"> </span><span class="o">//</span><span class="w"> </span><span class="s1">&#39;: &#39;</span><span class="w"> </span><span class="o">//</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">error_msg</span><span class="p">)</span><span class="w"></span>
+<a id="ln-329" name="ln-329" href="#ln-329"></a><span class="w">      </span><span class="k">end if</span><span class="w"></span>
+<a id="ln-330" name="ln-330" href="#ln-330"></a><span class="w">      </span><span class="c">!</span>
+<a id="ln-331" name="ln-331" href="#ln-331"></a><span class="w">      </span><span class="c">! Flux reduction (summarizing for output)</span>
+<a id="ln-332" name="ln-332" href="#ln-332"></a><span class="w">      </span><span class="c">!</span>
+<a id="ln-333" name="ln-333" href="#ln-333"></a><span class="w">      </span><span class="k">select type</span><span class="p">(</span><span class="n">fluxes</span><span class="p">)</span><span class="w"></span>
+<a id="ln-334" name="ln-334" href="#ln-334"></a><span class="w">        </span><span class="c">!</span>
+<a id="ln-335" name="ln-335" href="#ln-335"></a><span class="w">        </span><span class="c">! Tidy up memory for broadband fluxes</span>
+<a id="ln-336" name="ln-336" href="#ln-336"></a><span class="w">        </span><span class="c">!</span>
+<a id="ln-337" name="ln-337" href="#ln-337"></a><span class="w">        </span><span class="k">type is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_fluxes_broadband</span><span class="p">)</span><span class="w"></span>
+<a id="ln-338" name="ln-338" href="#ln-338"></a><span class="w">          </span><span class="k">if</span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">fluxes</span><span class="p">%</span><span class="n">flux_net</span><span class="p">))</span><span class="w"> </span><span class="k">then</span><span class="w"></span>
+<a id="ln-339" name="ln-339" href="#ln-339"></a><span class="w">            </span><span class="c">!$acc                         parallel loop    collapse(2) copyout(fluxes%flux_net)</span>
+<a id="ln-340" name="ln-340" href="#ln-340"></a><span class="w">            </span><span class="c">!$omp target teams distribute parallel do simd collapse(2)</span>
+<a id="ln-341" name="ln-341" href="#ln-341"></a><span class="w">            </span><span class="k">do </span><span class="n">ilev</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="o">+</span><span class="mi">1</span><span class="w"></span>
+<a id="ln-342" name="ln-342" href="#ln-342"></a><span class="w">              </span><span class="k">do </span><span class="n">icol</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="w"></span>
+<a id="ln-343" name="ln-343" href="#ln-343"></a><span class="w">                </span><span class="n">fluxes</span><span class="p">%</span><span class="n">flux_net</span><span class="p">(</span><span class="n">icol</span><span class="p">,</span><span class="n">ilev</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">flux_dn_loc</span><span class="p">(</span><span class="n">icol</span><span class="p">,</span><span class="n">ilev</span><span class="p">)</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="n">flux_up_loc</span><span class="p">(</span><span class="n">icol</span><span class="p">,</span><span class="n">ilev</span><span class="p">)</span><span class="w"></span>
+<a id="ln-344" name="ln-344" href="#ln-344"></a><span class="w">              </span><span class="k">end do</span>
+<a id="ln-345" name="ln-345" href="#ln-345"></a><span class="k">            end do</span>
+<a id="ln-346" name="ln-346" href="#ln-346"></a><span class="k">          end if</span>
+<a id="ln-347" name="ln-347" href="#ln-347"></a><span class="k">        class </span><span class="n">default</span><span class="w"></span>
+<a id="ln-348" name="ln-348" href="#ln-348"></a><span class="w">          </span><span class="c">!</span>
+<a id="ln-349" name="ln-349" href="#ln-349"></a><span class="w">          </span><span class="c">! ...or reduce spectral fluxes to desired output quantities</span>
+<a id="ln-350" name="ln-350" href="#ln-350"></a><span class="w">          </span><span class="c">!</span>
+<a id="ln-351" name="ln-351" href="#ln-351"></a><span class="w">          </span><span class="n">error_msg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">fluxes</span><span class="p">%</span><span class="n">reduce</span><span class="p">(</span><span class="n">gpt_flux_up</span><span class="p">,</span><span class="w"> </span><span class="n">gpt_flux_dn</span><span class="p">,</span><span class="w"> </span><span class="n">atmos</span><span class="p">,</span><span class="w"> </span><span class="n">top_at_1</span><span class="p">,</span><span class="w"> </span><span class="n">gpt_flux_dir</span><span class="p">)</span><span class="w"></span>
+<a id="ln-352" name="ln-352" href="#ln-352"></a><span class="w">      </span><span class="k">end select</span>
+<a id="ln-353" name="ln-353" href="#ln-353"></a><span class="k">    end if</span><span class="w"> </span><span class="c">! In case of an error we exit here</span>
+<a id="ln-354" name="ln-354" href="#ln-354"></a>
+<a id="ln-355" name="ln-355" href="#ln-355"></a><span class="w">    </span><span class="c">!$acc        end data</span>
+<a id="ln-356" name="ln-356" href="#ln-356"></a><span class="w">    </span><span class="c">!$omp end target data</span>
+<a id="ln-357" name="ln-357" href="#ln-357"></a><span class="w">    </span><span class="c">!$acc        end data</span>
+<a id="ln-358" name="ln-358" href="#ln-358"></a><span class="w">    </span><span class="c">!$omp end target data</span>
+<a id="ln-359" name="ln-359" href="#ln-359"></a><span class="w">    </span><span class="c">!$acc        end data</span>
+<a id="ln-360" name="ln-360" href="#ln-360"></a><span class="w">    </span><span class="c">!$omp end target data</span>
+<a id="ln-361" name="ln-361" href="#ln-361"></a><span class="w">    </span><span class="c">!$acc        end data</span>
+<a id="ln-362" name="ln-362" href="#ln-362"></a><span class="w">    </span><span class="c">!$omp end target data</span>
+<a id="ln-363" name="ln-363" href="#ln-363"></a><span class="w">    </span><span class="c">!$acc        end data</span>
+<a id="ln-364" name="ln-364" href="#ln-364"></a><span class="w">    </span><span class="c">!$omp end target data</span>
+<a id="ln-365" name="ln-365" href="#ln-365"></a>
+<a id="ln-366" name="ln-366" href="#ln-366"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-367" name="ln-367" href="#ln-367"></a><span class="w">    </span><span class="c">! Deallocate any memory allocated locally to pointer variables</span>
+<a id="ln-368" name="ln-368" href="#ln-368"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-369" name="ln-369" href="#ln-369"></a><span class="w">    </span><span class="k">select type</span><span class="p">(</span><span class="n">fluxes</span><span class="p">)</span><span class="w"></span>
+<a id="ln-370" name="ln-370" href="#ln-370"></a><span class="w">      </span><span class="k">type is</span><span class="w"> </span><span class="p">(</span><span class="n">ty_fluxes_broadband</span><span class="p">)</span><span class="w"></span>
+<a id="ln-371" name="ln-371" href="#ln-371"></a><span class="w">        </span><span class="c">!$acc        exit data copyout( flux_up_loc, flux_dn_loc, flux_dir_loc)</span>
+<a id="ln-372" name="ln-372" href="#ln-372"></a><span class="w">        </span><span class="c">!$omp target exit data map(from:flux_up_loc, flux_dn_loc, flux_dir_loc)</span>
+<a id="ln-373" name="ln-373" href="#ln-373"></a><span class="w">        </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="nb">associated</span><span class="p">(</span><span class="n">fluxes</span><span class="p">%</span><span class="n">flux_up</span><span class="w">    </span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">flux_up_loc</span><span class="p">)</span><span class="w"></span>
+<a id="ln-374" name="ln-374" href="#ln-374"></a><span class="w">        </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="nb">associated</span><span class="p">(</span><span class="n">fluxes</span><span class="p">%</span><span class="n">flux_dn</span><span class="w">    </span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">flux_dn_loc</span><span class="p">)</span><span class="w"></span>
+<a id="ln-375" name="ln-375" href="#ln-375"></a><span class="w">        </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="nb">associated</span><span class="p">(</span><span class="n">fluxes</span><span class="p">%</span><span class="n">flux_dn_dir</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">flux_dir_loc</span><span class="p">)</span><span class="w"></span>
+<a id="ln-376" name="ln-376" href="#ln-376"></a><span class="w">      </span><span class="k">class </span><span class="n">default</span><span class="w"></span>
+<a id="ln-377" name="ln-377" href="#ln-377"></a><span class="w">        </span><span class="k">deallocate</span><span class="p">(</span><span class="n">gpt_flux_up</span><span class="p">,</span><span class="w"> </span><span class="n">gpt_flux_dn</span><span class="p">,</span><span class="w"> </span><span class="n">gpt_flux_dir</span><span class="p">)</span><span class="w"></span>
+<a id="ln-378" name="ln-378" href="#ln-378"></a><span class="w">    </span><span class="k">end select</span>
+<a id="ln-379" name="ln-379" href="#ln-379"></a><span class="k">    if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">has_dif_bc</span><span class="p">)</span><span class="w"> </span><span class="k">then</span><span class="w"></span>
+<a id="ln-380" name="ln-380" href="#ln-380"></a><span class="w">      </span><span class="c">!$acc        exit data delete(     inc_flux_diffuse)</span>
+<a id="ln-381" name="ln-381" href="#ln-381"></a><span class="w">      </span><span class="c">!$omp target exit data map(release:inc_flux_diffuse)</span>
+<a id="ln-382" name="ln-382" href="#ln-382"></a><span class="w">      </span><span class="k">deallocate</span><span class="p">(</span><span class="n">inc_flux_diffuse</span><span class="p">)</span><span class="w"></span>
+<a id="ln-383" name="ln-383" href="#ln-383"></a><span class="w">    </span><span class="k">end if</span>
+<a id="ln-384" name="ln-384" href="#ln-384"></a>
+<a id="ln-385" name="ln-385" href="#ln-385"></a><span class="k">  end function </span><span class="n">rte_sw_mu0_full</span><span class="w"></span>
+<a id="ln-386" name="ln-386" href="#ln-386"></a><span class="w">  </span><span class="c">!--------------------------------------------------------------------------------------------------------------------</span>
+<a id="ln-387" name="ln-387" href="#ln-387"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-388" name="ln-388" href="#ln-388"></a><span class="w">  </span><span class="c">! Expand from band to g-point dimension, transpose dimensions (nband, ncol) -&gt; (ncol,ngpt)</span>
+<a id="ln-389" name="ln-389" href="#ln-389"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-390" name="ln-390" href="#ln-390"></a><span class="w">  </span><span class="k">subroutine </span><span class="n">expand_and_transpose</span><span class="p">(</span><span class="n">ops</span><span class="p">,</span><span class="n">arr_in</span><span class="p">,</span><span class="n">arr_out</span><span class="p">)</span><span class="w"></span>
+<a id="ln-391" name="ln-391" href="#ln-391"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="p">),</span><span class="w">  </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w"> </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ops</span><span class="w"></span>
+<a id="ln-392" name="ln-392" href="#ln-392"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w"> </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">arr_in</span><span class="w">  </span><span class="c">! (nband, ncol)</span>
+<a id="ln-393" name="ln-393" href="#ln-393"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">arr_out</span><span class="w"> </span><span class="c">! (ncol, igpt)</span>
+<a id="ln-394" name="ln-394" href="#ln-394"></a><span class="w">    </span><span class="c">! -------------</span>
+<a id="ln-395" name="ln-395" href="#ln-395"></a><span class="w">    </span><span class="kt">integer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nband</span><span class="p">,</span><span class="w"> </span><span class="n">ngpt</span><span class="w"></span>
+<a id="ln-396" name="ln-396" href="#ln-396"></a><span class="w">    </span><span class="kt">integer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">icol</span><span class="p">,</span><span class="w"> </span><span class="n">iband</span><span class="p">,</span><span class="w"> </span><span class="n">igpt</span><span class="w"></span>
+<a id="ln-397" name="ln-397" href="#ln-397"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="n">ops</span><span class="p">%</span><span class="n">get_nband</span><span class="p">())</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">limits</span><span class="w"></span>
+<a id="ln-398" name="ln-398" href="#ln-398"></a>
+<a id="ln-399" name="ln-399" href="#ln-399"></a><span class="w">    </span><span class="n">ncol</span><span class="w">  </span><span class="o">=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">arr_in</span><span class="p">,</span><span class="w"> </span><span class="mi">2</span><span class="p">)</span><span class="w"></span>
+<a id="ln-400" name="ln-400" href="#ln-400"></a><span class="w">    </span><span class="n">nband</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">ops</span><span class="p">%</span><span class="n">get_nband</span><span class="p">()</span><span class="w"></span>
+<a id="ln-401" name="ln-401" href="#ln-401"></a><span class="w">    </span><span class="n">ngpt</span><span class="w">  </span><span class="o">=</span><span class="w"> </span><span class="n">ops</span><span class="p">%</span><span class="n">get_ngpt</span><span class="p">()</span><span class="w"></span>
+<a id="ln-402" name="ln-402" href="#ln-402"></a><span class="w">    </span><span class="n">limits</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">ops</span><span class="p">%</span><span class="n">get_band_lims_gpoint</span><span class="p">()</span><span class="w"></span>
+<a id="ln-403" name="ln-403" href="#ln-403"></a><span class="w">    </span><span class="c">!$acc                         parallel loop    collapse(2) copyin(arr_in, limits)</span>
+<a id="ln-404" name="ln-404" href="#ln-404"></a><span class="w">    </span><span class="c">!$omp target teams distribute parallel do simd collapse(2) map(to:arr_in, limits)</span>
+<a id="ln-405" name="ln-405" href="#ln-405"></a><span class="w">    </span><span class="k">do </span><span class="n">iband</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">nband</span><span class="w"></span>
+<a id="ln-406" name="ln-406" href="#ln-406"></a><span class="w">      </span><span class="k">do </span><span class="n">icol</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="w"></span>
+<a id="ln-407" name="ln-407" href="#ln-407"></a><span class="w">        </span><span class="k">do </span><span class="n">igpt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">limits</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">iband</span><span class="p">),</span><span class="w"> </span><span class="n">limits</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">iband</span><span class="p">)</span><span class="w"></span>
+<a id="ln-408" name="ln-408" href="#ln-408"></a><span class="w">          </span><span class="n">arr_out</span><span class="p">(</span><span class="n">icol</span><span class="p">,</span><span class="w"> </span><span class="n">igpt</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">arr_in</span><span class="p">(</span><span class="n">iband</span><span class="p">,</span><span class="n">icol</span><span class="p">)</span><span class="w"></span>
+<a id="ln-409" name="ln-409" href="#ln-409"></a><span class="w">        </span><span class="k">end do</span>
+<a id="ln-410" name="ln-410" href="#ln-410"></a><span class="k">      end do</span>
+<a id="ln-411" name="ln-411" href="#ln-411"></a><span class="k">    end do</span>
+<a id="ln-412" name="ln-412" href="#ln-412"></a>
+<a id="ln-413" name="ln-413" href="#ln-413"></a><span class="k">  end subroutine </span><span class="n">expand_and_transpose</span><span class="w"></span>
+<a id="ln-414" name="ln-414" href="#ln-414"></a><span class="k">end module </span><span class="n">mo_rte_sw</span><span class="w"></span>
+</pre></div>
+
+    </section>
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/sourcefile/mo_rte_util_array_validation.f90.html b/reference/rte-fortran-interface/sourcefile/mo_rte_util_array_validation.f90.html
new file mode 100644
index 000000000..48245ddba
--- /dev/null
+++ b/reference/rte-fortran-interface/sourcefile/mo_rte_util_array_validation.f90.html
@@ -0,0 +1,828 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>mo_rte_util_array_validation.F90 &ndash; RTE-Fortran</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>mo_rte_util_array_validation.F90
+    <small>Source File</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title=" 9.9% of total for source files.">158 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_rte_util_array_validation.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li class="active">mo_rte_util_array_validation.F90</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#mods-0">Modules</a></h3></div>
+  <div id="mods-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_rte_util_array_validation.html">mo_rte_util_array_validation</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title">Source Code</h3></div>
+  <div class="list-group">
+    <a class="list-group-item" href="../sourcefile/mo_rte_util_array_validation.f90.html#src">mo_rte_util_array_validation.F90</a>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    <div class="col-md-9" id='text'>
+      
+      <br>
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">This file depends on</h3>
+      </div>
+      <div class="panel-body">
+  <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: sourcefile~~mo_rte_util_array_validation.f90~~EfferentGraph Pages: 1 -->
+<svg id="sourcefilemo_rte_util_array_validationf90EfferentGraph" width="330pt" height="32pt"
+ viewBox="0.00 0.00 330.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~mo_rte_util_array_validation.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>sourcefile~~mo_rte_util_array_validation.f90~~EfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 326,-28 326,4 -4,4"/>
+<!-- sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_rte_util_array_validation.f90~~EfferentGraph_node1" class="node">
+<title>sourcefile~mo_rte_util_array_validation.f90</title>
+<polygon fill="none" stroke="black" points="322,-24 136,-24 136,0 322,0 322,-24"/>
+<text text-anchor="middle" x="229" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_rte_util_array_validation.F90</text>
+</g>
+<!-- sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_rte_util_array_validation.f90~~EfferentGraph_node2" class="node">
+<title>sourcefile~mo_rte_kind.f90</title>
+<g id="a_sourcefile~~mo_rte_util_array_validation.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/mo_rte_kind.f90.html" xlink:title="mo_rte_kind.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="100,-24 0,-24 0,0 100,0 100,-24"/>
+<text text-anchor="middle" x="50" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_util_array_validation.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_rte_util_array_validation.f90~~EfferentGraph_edge1" class="edge">
+<title>sourcefile~mo_rte_util_array_validation.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.87,-12C127.25,-12 118.67,-12 110.47,-12"/>
+<polygon fill="#000000" stroke="#000000" points="110.3,-8.5 100.3,-12 110.3,-15.5 110.3,-8.5"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="202pt" height="32pt"
+ viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<!-- Source File -->
+<g id="node1" class="node">
+<title>Source File</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
+<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node2" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
+<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a file to a file which it depends on. A file
+    is dependent upon another if the latter must be compiled before the former
+    can be.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Files dependent on this one</h3>
+      </div>
+      <div class="panel-body">
+  <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph Pages: 1 -->
+<svg id="sourcefilemo_rte_util_array_validationf90AfferentGraph" width="641pt" height="159pt"
+ viewBox="0.00 0.00 641.00 159.09" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph" class="graph" transform="scale(1.04 1.04) rotate(0) translate(4 161.79)">
+<title>sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-161.79 664,-161.79 664,4 -4,4"/>
+<!-- sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph_node1" class="node">
+<title>sourcefile~mo_rte_util_array_validation.f90</title>
+<polygon fill="none" stroke="black" points="186,-106.3 0,-106.3 0,-82.3 186,-82.3 186,-106.3"/>
+<text text-anchor="middle" x="93" y="-91.9" font-family="Helvetica,sans-Serif" font-size="10.50">mo_rte_util_array_validation.F90</text>
+</g>
+<!-- sourcefile~mo_rte_sw.f90 -->
+<g id="sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph_node2" class="node">
+<title>sourcefile~mo_rte_sw.f90</title>
+<g id="a_sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/mo_rte_sw.f90.html" xlink:title="mo_rte_sw.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="660,-136.3 569,-136.3 569,-112.3 660,-112.3 660,-136.3"/>
+<text text-anchor="middle" x="614.5" y="-121.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_sw.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph_edge1" class="edge">
+<title>sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M458.5,-154.3C382.28,-155.06 362.89,-161.4 287,-154.3"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90 -->
+<g id="sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph_node3" class="node">
+<title>sourcefile~mo_fluxes.f90</title>
+<g id="a_sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/mo_fluxes.f90.html" xlink:title="mo_fluxes.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="504,-126.3 415,-126.3 415,-102.3 504,-102.3 504,-126.3"/>
+<text text-anchor="middle" x="459.5" y="-111.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_fluxes.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_fluxes.f90 -->
+<g id="sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph_edge5" class="edge">
+<title>sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_fluxes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M568.83,-121.38C551.8,-120.27 532.21,-118.98 514.41,-117.82"/>
+<polygon fill="#000000" stroke="#000000" points="514.37,-114.31 504.17,-117.15 513.92,-121.3 514.37,-114.31"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph_node5" class="node">
+<title>sourcefile~mo_optical_props.f90</title>
+<g id="a_sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/mo_optical_props.f90.html" xlink:title="mo_optical_props.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="350,-106.3 222,-106.3 222,-82.3 350,-82.3 350,-106.3"/>
+<text text-anchor="middle" x="286" y="-91.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph_edge7" class="edge">
+<title>sourcefile~mo_rte_sw.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M573.33,-136.36C542.71,-144.53 499.34,-153.91 460.5,-154.3"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M458.5,-154.3C406.11,-154.82 349.5,-129.41 316.21,-111.49"/>
+<polygon fill="#000000" stroke="#000000" points="317.5,-108.21 307.06,-106.44 314.12,-114.34 317.5,-108.21"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph_edge2" class="edge">
+<title>sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.94,-126.3C377.66,-138.93 312.42,-156.68 287,-154.3"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285,-154.3C228.93,-149.05 167.33,-126.41 129.65,-110.5"/>
+<polygon fill="#000000" stroke="#000000" points="130.72,-107.14 120.15,-106.41 127.95,-113.58 130.72,-107.14"/>
+</g>
+<!-- sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph_edge8" class="edge">
+<title>sourcefile~mo_fluxes.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.78,-109.2C398.12,-107.26 378.66,-104.99 360.01,-102.81"/>
+<polygon fill="#000000" stroke="#000000" points="360.4,-99.33 350.06,-101.65 359.59,-106.29 360.4,-99.33"/>
+</g>
+<!-- sourcefile~mo_rte_lw.f90 -->
+<g id="sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph_node4" class="node">
+<title>sourcefile~mo_rte_lw.f90</title>
+<g id="a_sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/mo_rte_lw.f90.html" xlink:title="mo_rte_lw.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="658.5,-75.3 570.5,-75.3 570.5,-51.3 658.5,-51.3 658.5,-75.3"/>
+<text text-anchor="middle" x="614.5" y="-60.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_lw.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph_edge3" class="edge">
+<title>sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.56,-51.21C584.37,-38.91 558.79,-20.65 533,-13.3 384.64,29.03 201.57,-43.45 127.47,-77.78"/>
+<polygon fill="#000000" stroke="#000000" points="125.72,-74.73 118.16,-82.16 128.7,-81.07 125.72,-74.73"/>
+</g>
+<!-- sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_fluxes.f90 -->
+<g id="sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph_edge6" class="edge">
+<title>sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_fluxes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M577.24,-75.38C556.07,-82.44 529.16,-91.41 506.51,-98.96"/>
+<polygon fill="#000000" stroke="#000000" points="505.14,-95.73 496.76,-102.21 507.36,-102.37 505.14,-95.73"/>
+</g>
+<!-- sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph_edge10" class="edge">
+<title>sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M570.48,-67.38C516.98,-72.46 424.82,-81.21 360.14,-87.35"/>
+<polygon fill="#000000" stroke="#000000" points="359.63,-83.89 350,-88.32 360.29,-90.85 359.63,-83.89"/>
+</g>
+<!-- sourcefile~mo_source_functions.f90 -->
+<g id="sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph_node6" class="node">
+<title>sourcefile~mo_source_functions.f90</title>
+<g id="a_sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/mo_source_functions.f90.html" xlink:title="mo_source_functions.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="533,-46.3 386,-46.3 386,-22.3 533,-22.3 533,-46.3"/>
+<text text-anchor="middle" x="459.5" y="-31.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_source_functions.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_source_functions.f90 -->
+<g id="sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph_edge11" class="edge">
+<title>sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_source_functions.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M570.47,-55.14C559.11,-52.99 546.51,-50.6 534.02,-48.23"/>
+<polygon fill="#000000" stroke="#000000" points="534.53,-44.77 524.05,-46.34 533.22,-51.64 534.53,-44.77"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph_edge4" class="edge">
+<title>sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M221.93,-94.3C213.65,-94.3 205,-94.3 196.28,-94.3"/>
+<polygon fill="#000000" stroke="#000000" points="196.02,-90.8 186.02,-94.3 196.02,-97.8 196.02,-90.8"/>
+</g>
+<!-- sourcefile~mo_source_functions.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph_edge9" class="edge">
+<title>sourcefile~mo_source_functions.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423.79,-46.44C396.97,-55.82 359.68,-68.87 330.8,-78.97"/>
+<polygon fill="#000000" stroke="#000000" points="329.64,-75.67 321.36,-82.28 331.96,-82.28 329.64,-75.67"/>
+</g>
+</g>
+</svg>
+</div><script>var pansourcefilemo_rte_util_array_validationf90AfferentGraph = svgPanZoom('#sourcefilemo_rte_util_array_validationf90AfferentGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="202pt" height="32pt"
+ viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<!-- Source File -->
+<g id="node1" class="node">
+<title>Source File</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
+<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node2" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
+<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a file to a file which it depends on. A file
+    is dependent upon another if the latter must be compiled before the former
+    can be.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+<br>
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#mods-1">Modules</a></h3></div>
+  <div id="mods-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_rte_util_array_validation.html">mo_rte_util_array_validation</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title">Source Code</h3></div>
+  <div class="list-group">
+    <a class="list-group-item" href="../sourcefile/mo_rte_util_array_validation.f90.html#src">mo_rte_util_array_validation.F90</a>
+  </div>
+</div>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    <section>
+      <h2><span class="anchor" id="src"></span>Source Code</h2>
+    <div class="hl"><pre><span></span><a id="ln-1" name="ln-1" href="#ln-1"></a><span class="c">! This code is part of Radiative Transfer for Energetics (RTE)</span>
+<a id="ln-2" name="ln-2" href="#ln-2"></a><span class="c">!</span>
+<a id="ln-3" name="ln-3" href="#ln-3"></a><span class="c">! Contacts: Robert Pincus and Eli Mlawer</span>
+<a id="ln-4" name="ln-4" href="#ln-4"></a><span class="c">! email:  rrtmgp@aer.com</span>
+<a id="ln-5" name="ln-5" href="#ln-5"></a><span class="c">!</span>
+<a id="ln-6" name="ln-6" href="#ln-6"></a><span class="c">! Copyright 2015-  Atmospheric and Environmental Research,</span>
+<a id="ln-7" name="ln-7" href="#ln-7"></a><span class="c">!    Regents of the University of Colorado,</span>
+<a id="ln-8" name="ln-8" href="#ln-8"></a><span class="c">!    Trustees of Columbia University in the City of New York</span>
+<a id="ln-9" name="ln-9" href="#ln-9"></a><span class="c">! All right reserved.</span>
+<a id="ln-10" name="ln-10" href="#ln-10"></a><span class="c">!</span>
+<a id="ln-11" name="ln-11" href="#ln-11"></a><span class="c">! Use and duplication is permitted under the terms of the</span>
+<a id="ln-12" name="ln-12" href="#ln-12"></a><span class="c">!    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause</span>
+<a id="ln-13" name="ln-13" href="#ln-13"></a><span class="c">! -------------------------------------------------------------------------------------------------</span>
+<a id="ln-14" name="ln-14" href="#ln-14"></a><span class="k">module </span><span class="n">mo_rte_util_array_validation</span><span class="w"></span>
+<a id="ln-15" name="ln-15" href="#ln-15"></a><span class="c">!</span>
+<a id="ln-16" name="ln-16" href="#ln-16"></a><span class="c">!&gt; Provide utilites for sanitizing input arrays:</span>
+<a id="ln-17" name="ln-17" href="#ln-17"></a><span class="c">!    checking values and sizes</span>
+<a id="ln-18" name="ln-18" href="#ln-18"></a><span class="c">! These are in a module so code can be written for both CPUs and GPUs</span>
+<a id="ln-19" name="ln-19" href="#ln-19"></a><span class="c">! Used only by Fortran classes so routines don&#39;t need C bindings and can use assumed-shape</span>
+<a id="ln-20" name="ln-20" href="#ln-20"></a><span class="c">!</span>
+<a id="ln-21" name="ln-21" href="#ln-21"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_rte_kind</span><span class="p">,</span><span class="w">      </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">wp</span><span class="p">,</span><span class="w"> </span><span class="n">wl</span><span class="w"></span>
+<a id="ln-22" name="ln-22" href="#ln-22"></a><span class="w">  </span><span class="k">implicit none</span><span class="w"></span>
+<a id="ln-23" name="ln-23" href="#ln-23"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-24" name="ln-24" href="#ln-24"></a><span class="w">  </span><span class="c">!&gt; Values less than a floor (including masked versions)</span>
+<a id="ln-25" name="ln-25" href="#ln-25"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-26" name="ln-26" href="#ln-26"></a><span class="w">  </span><span class="k">interface </span><span class="n">any_vals_less_than</span><span class="w"></span>
+<a id="ln-27" name="ln-27" href="#ln-27"></a><span class="w">    </span><span class="k">module procedure </span><span class="n">any_vals_less_than_1D</span><span class="p">,</span><span class="w">        </span><span class="n">any_vals_less_than_2D</span><span class="p">,</span><span class="w">        </span><span class="n">any_vals_less_than_3D</span><span class="w"></span>
+<a id="ln-28" name="ln-28" href="#ln-28"></a><span class="w">    </span><span class="k">module procedure </span><span class="n">any_vals_less_than_1D_masked</span><span class="p">,</span><span class="w"> </span><span class="n">any_vals_less_than_2D_masked</span><span class="p">,</span><span class="w"> </span><span class="n">any_vals_less_than_3D_masked</span><span class="w"></span>
+<a id="ln-29" name="ln-29" href="#ln-29"></a><span class="w">  </span><span class="k">end interface</span><span class="w"></span>
+<a id="ln-30" name="ln-30" href="#ln-30"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-31" name="ln-31" href="#ln-31"></a><span class="w">  </span><span class="c">!&gt; Values outside a range (including masked versions)</span>
+<a id="ln-32" name="ln-32" href="#ln-32"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-33" name="ln-33" href="#ln-33"></a><span class="w">  </span><span class="k">interface </span><span class="n">any_vals_outside</span><span class="w"></span>
+<a id="ln-34" name="ln-34" href="#ln-34"></a><span class="w">    </span><span class="k">module procedure </span><span class="n">any_vals_outside_1D</span><span class="p">,</span><span class="w">        </span><span class="n">any_vals_outside_2D</span><span class="p">,</span><span class="w">        </span><span class="n">any_vals_outside_3D</span><span class="w"></span>
+<a id="ln-35" name="ln-35" href="#ln-35"></a><span class="w">    </span><span class="k">module procedure </span><span class="n">any_vals_outside_1D_masked</span><span class="p">,</span><span class="w"> </span><span class="n">any_vals_outside_2D_masked</span><span class="p">,</span><span class="w"> </span><span class="n">any_vals_outside_3D_masked</span><span class="w"></span>
+<a id="ln-36" name="ln-36" href="#ln-36"></a><span class="w">  </span><span class="k">end interface</span><span class="w"></span>
+<a id="ln-37" name="ln-37" href="#ln-37"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-38" name="ln-38" href="#ln-38"></a><span class="w">  </span><span class="c">!&gt; Find the extents of an array</span>
+<a id="ln-39" name="ln-39" href="#ln-39"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-40" name="ln-40" href="#ln-40"></a><span class="w">  </span><span class="k">interface </span><span class="n">extents_are</span><span class="w"></span>
+<a id="ln-41" name="ln-41" href="#ln-41"></a><span class="w">    </span><span class="k">module procedure </span><span class="n">extents_are_1D</span><span class="p">,</span><span class="w"> </span><span class="n">extents_are_2D</span><span class="p">,</span><span class="w"> </span><span class="n">extents_are_3D</span><span class="w"></span>
+<a id="ln-42" name="ln-42" href="#ln-42"></a><span class="w">    </span><span class="k">module procedure </span><span class="n">extents_are_4D</span><span class="p">,</span><span class="w"> </span><span class="n">extents_are_5D</span><span class="p">,</span><span class="w"> </span><span class="n">extents_are_6D</span><span class="w"></span>
+<a id="ln-43" name="ln-43" href="#ln-43"></a><span class="w">    </span><span class="k">module procedure </span><span class="n">extents_are_2d_int</span><span class="w"></span>
+<a id="ln-44" name="ln-44" href="#ln-44"></a><span class="w">  </span><span class="k">end interface </span><span class="n">extents_are</span><span class="w"></span>
+<a id="ln-45" name="ln-45" href="#ln-45"></a>
+<a id="ln-46" name="ln-46" href="#ln-46"></a><span class="w">  </span><span class="k">private</span>
+<a id="ln-47" name="ln-47" href="#ln-47"></a><span class="k">  public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">any_vals_less_than</span><span class="p">,</span><span class="w"> </span><span class="n">any_vals_outside</span><span class="p">,</span><span class="w"> </span><span class="n">extents_are</span><span class="w"></span>
+<a id="ln-48" name="ln-48" href="#ln-48"></a><span class="k">contains</span><span class="w"></span>
+<a id="ln-49" name="ln-49" href="#ln-49"></a><span class="w">  </span><span class="c">!-------------------------------------------------------------------------------------------------</span>
+<a id="ln-50" name="ln-50" href="#ln-50"></a><span class="w">  </span><span class="c">! Values less than a floor</span>
+<a id="ln-51" name="ln-51" href="#ln-51"></a><span class="w">  </span><span class="c">!-------------------------------------------------------------------------------------------------</span>
+<a id="ln-52" name="ln-52" href="#ln-52"></a><span class="w">  </span><span class="kt">logical </span><span class="k">function </span><span class="n">any_vals_less_than_1D</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">check_value</span><span class="p">)</span><span class="w"></span>
+<a id="ln-53" name="ln-53" href="#ln-53"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="k">array</span>
+<a id="ln-54" name="ln-54" href="#ln-54"></a><span class="k">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w">               </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">check_value</span><span class="w"></span>
+<a id="ln-55" name="ln-55" href="#ln-55"></a>
+<a id="ln-56" name="ln-56" href="#ln-56"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">minValue</span><span class="w"></span>
+<a id="ln-57" name="ln-57" href="#ln-57"></a>
+<a id="ln-58" name="ln-58" href="#ln-58"></a><span class="w">    </span><span class="c">!$acc kernels copyin(array)</span>
+<a id="ln-59" name="ln-59" href="#ln-59"></a><span class="w">    </span><span class="c">!$omp target map(to:array) map(from:minValue)</span>
+<a id="ln-60" name="ln-60" href="#ln-60"></a><span class="w">    </span><span class="n">minValue</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">minval</span><span class="p">(</span><span class="k">array</span><span class="p">)</span><span class="w"></span>
+<a id="ln-61" name="ln-61" href="#ln-61"></a><span class="w">    </span><span class="c">!$acc end kernels</span>
+<a id="ln-62" name="ln-62" href="#ln-62"></a><span class="w">    </span><span class="c">!$omp end target</span>
+<a id="ln-63" name="ln-63" href="#ln-63"></a>
+<a id="ln-64" name="ln-64" href="#ln-64"></a><span class="w">    </span><span class="n">any_vals_less_than_1D</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">(</span><span class="n">minValue</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">check_value</span><span class="p">)</span><span class="w"></span>
+<a id="ln-65" name="ln-65" href="#ln-65"></a>
+<a id="ln-66" name="ln-66" href="#ln-66"></a><span class="w">  </span><span class="k">end function </span><span class="n">any_vals_less_than_1D</span><span class="w"></span>
+<a id="ln-67" name="ln-67" href="#ln-67"></a><span class="c">!-------------------------------------------------------------------------------------------------</span>
+<a id="ln-68" name="ln-68" href="#ln-68"></a><span class="w">  </span><span class="kt">logical </span><span class="k">function </span><span class="n">any_vals_less_than_2D</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">check_value</span><span class="p">)</span><span class="w"></span>
+<a id="ln-69" name="ln-69" href="#ln-69"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="k">array</span>
+<a id="ln-70" name="ln-70" href="#ln-70"></a><span class="k">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w">                 </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">check_value</span><span class="w"></span>
+<a id="ln-71" name="ln-71" href="#ln-71"></a>
+<a id="ln-72" name="ln-72" href="#ln-72"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">minValue</span><span class="w"></span>
+<a id="ln-73" name="ln-73" href="#ln-73"></a>
+<a id="ln-74" name="ln-74" href="#ln-74"></a><span class="w">    </span><span class="c">!$acc kernels copyin(array)</span>
+<a id="ln-75" name="ln-75" href="#ln-75"></a><span class="w">    </span><span class="c">!$omp target map(to:array) map(from:minValue)</span>
+<a id="ln-76" name="ln-76" href="#ln-76"></a><span class="w">    </span><span class="n">minValue</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">minval</span><span class="p">(</span><span class="k">array</span><span class="p">)</span><span class="w"></span>
+<a id="ln-77" name="ln-77" href="#ln-77"></a><span class="w">    </span><span class="c">!$acc end kernels</span>
+<a id="ln-78" name="ln-78" href="#ln-78"></a><span class="w">    </span><span class="c">!$omp end target</span>
+<a id="ln-79" name="ln-79" href="#ln-79"></a>
+<a id="ln-80" name="ln-80" href="#ln-80"></a><span class="w">    </span><span class="n">any_vals_less_than_2D</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">(</span><span class="n">minValue</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">check_value</span><span class="p">)</span><span class="w"></span>
+<a id="ln-81" name="ln-81" href="#ln-81"></a>
+<a id="ln-82" name="ln-82" href="#ln-82"></a><span class="w">  </span><span class="k">end function </span><span class="n">any_vals_less_than_2D</span><span class="w"></span>
+<a id="ln-83" name="ln-83" href="#ln-83"></a><span class="c">!-------------------------------------------------------------------------------------------------</span>
+<a id="ln-84" name="ln-84" href="#ln-84"></a><span class="w">  </span><span class="kt">logical </span><span class="k">function </span><span class="n">any_vals_less_than_3D</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">check_value</span><span class="p">)</span><span class="w"></span>
+<a id="ln-85" name="ln-85" href="#ln-85"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="k">array</span>
+<a id="ln-86" name="ln-86" href="#ln-86"></a><span class="k">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w">                   </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">check_value</span><span class="w"></span>
+<a id="ln-87" name="ln-87" href="#ln-87"></a>
+<a id="ln-88" name="ln-88" href="#ln-88"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">minValue</span><span class="w"></span>
+<a id="ln-89" name="ln-89" href="#ln-89"></a>
+<a id="ln-90" name="ln-90" href="#ln-90"></a><span class="cp">#ifdef _OPENMP</span>
+<a id="ln-91" name="ln-91" href="#ln-91"></a><span class="w">    </span><span class="kt">integer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">dim1</span><span class="p">,</span><span class="w"> </span><span class="n">dim2</span><span class="p">,</span><span class="w"> </span><span class="n">dim3</span><span class="p">,</span><span class="w"> </span><span class="n">i</span><span class="p">,</span><span class="w"> </span><span class="n">j</span><span class="p">,</span><span class="w"> </span><span class="n">k</span><span class="w"></span>
+<a id="ln-92" name="ln-92" href="#ln-92"></a><span class="w">    </span><span class="n">dim1</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">1</span><span class="p">)</span><span class="w"></span>
+<a id="ln-93" name="ln-93" href="#ln-93"></a><span class="w">    </span><span class="n">dim2</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">2</span><span class="p">)</span><span class="w"></span>
+<a id="ln-94" name="ln-94" href="#ln-94"></a><span class="w">    </span><span class="n">dim3</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">3</span><span class="p">)</span><span class="w"></span>
+<a id="ln-95" name="ln-95" href="#ln-95"></a><span class="w">    </span><span class="n">minValue</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">check_value</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="nb">epsilon</span><span class="p">(</span><span class="n">check_value</span><span class="p">)</span><span class="w"> </span><span class="c">! initialize to some value</span>
+<a id="ln-96" name="ln-96" href="#ln-96"></a><span class="w">    </span><span class="c">!$omp target teams map(to:array) &amp;</span>
+<a id="ln-97" name="ln-97" href="#ln-97"></a><span class="w">    </span><span class="c">!$omp defaultmap(tofrom:scalar) reduction(min:minValue)</span>
+<a id="ln-98" name="ln-98" href="#ln-98"></a><span class="w">    </span><span class="c">!$omp distribute parallel do simd reduction(min:minValue)</span>
+<a id="ln-99" name="ln-99" href="#ln-99"></a><span class="w">    </span><span class="k">do </span><span class="n">i</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">dim1</span><span class="w"></span>
+<a id="ln-100" name="ln-100" href="#ln-100"></a><span class="w">       </span><span class="k">do </span><span class="n">j</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">dim2</span><span class="w"></span>
+<a id="ln-101" name="ln-101" href="#ln-101"></a><span class="w">          </span><span class="k">do </span><span class="n">k</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">dim3</span><span class="w"></span>
+<a id="ln-102" name="ln-102" href="#ln-102"></a><span class="w">             </span><span class="n">minValue</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">min</span><span class="p">(</span><span class="n">minValue</span><span class="p">,</span><span class="k">array</span><span class="p">(</span><span class="n">i</span><span class="p">,</span><span class="n">j</span><span class="p">,</span><span class="n">k</span><span class="p">))</span><span class="w"></span>
+<a id="ln-103" name="ln-103" href="#ln-103"></a><span class="w">          </span><span class="k">enddo</span>
+<a id="ln-104" name="ln-104" href="#ln-104"></a><span class="k">       enddo</span>
+<a id="ln-105" name="ln-105" href="#ln-105"></a><span class="k">    enddo</span><span class="w"></span>
+<a id="ln-106" name="ln-106" href="#ln-106"></a><span class="w">    </span><span class="c">!$omp end target teams</span>
+<a id="ln-107" name="ln-107" href="#ln-107"></a><span class="cp">#else</span>
+<a id="ln-108" name="ln-108" href="#ln-108"></a><span class="w">    </span><span class="c">!$acc kernels copyin(array)</span>
+<a id="ln-109" name="ln-109" href="#ln-109"></a><span class="w">    </span><span class="n">minValue</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">minval</span><span class="p">(</span><span class="k">array</span><span class="p">)</span><span class="w"></span>
+<a id="ln-110" name="ln-110" href="#ln-110"></a><span class="w">    </span><span class="c">!$acc end kernels</span>
+<a id="ln-111" name="ln-111" href="#ln-111"></a><span class="cp">#endif</span>
+<a id="ln-112" name="ln-112" href="#ln-112"></a>
+<a id="ln-113" name="ln-113" href="#ln-113"></a><span class="w">    </span><span class="n">any_vals_less_than_3D</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">(</span><span class="n">minValue</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">check_value</span><span class="p">)</span><span class="w"></span>
+<a id="ln-114" name="ln-114" href="#ln-114"></a>
+<a id="ln-115" name="ln-115" href="#ln-115"></a><span class="w">  </span><span class="k">end function </span><span class="n">any_vals_less_than_3D</span><span class="w"></span>
+<a id="ln-116" name="ln-116" href="#ln-116"></a><span class="w">  </span><span class="c">!-------------------------------------------------------------------------------------------------</span>
+<a id="ln-117" name="ln-117" href="#ln-117"></a><span class="w">  </span><span class="c">! Masked versions</span>
+<a id="ln-118" name="ln-118" href="#ln-118"></a><span class="w">  </span><span class="c">!-------------------------------------------------------------------------------------------------</span>
+<a id="ln-119" name="ln-119" href="#ln-119"></a><span class="w">  </span><span class="kt">logical </span><span class="k">function </span><span class="n">any_vals_less_than_1D_masked</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">mask</span><span class="p">,</span><span class="w"> </span><span class="n">check_value</span><span class="p">)</span><span class="w"></span>
+<a id="ln-120" name="ln-120" href="#ln-120"></a><span class="w">    </span><span class="kt">real</span><span class="w">   </span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="k">array</span>
+<a id="ln-121" name="ln-121" href="#ln-121"></a><span class="k">    </span><span class="kt">logical</span><span class="p">(</span><span class="n">wl</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">mask</span><span class="w"></span>
+<a id="ln-122" name="ln-122" href="#ln-122"></a><span class="w">    </span><span class="kt">real</span><span class="w">   </span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w">               </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">check_value</span><span class="w"></span>
+<a id="ln-123" name="ln-123" href="#ln-123"></a>
+<a id="ln-124" name="ln-124" href="#ln-124"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">minValue</span><span class="w"></span>
+<a id="ln-125" name="ln-125" href="#ln-125"></a>
+<a id="ln-126" name="ln-126" href="#ln-126"></a><span class="w">    </span><span class="c">!$acc kernels copyin(array, mask)</span>
+<a id="ln-127" name="ln-127" href="#ln-127"></a><span class="w">    </span><span class="c">!$omp target map(to: array, mask) map(from:minValue)</span>
+<a id="ln-128" name="ln-128" href="#ln-128"></a><span class="w">    </span><span class="n">minValue</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">minval</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">mask</span><span class="o">=</span><span class="n">mask</span><span class="p">)</span><span class="w"></span>
+<a id="ln-129" name="ln-129" href="#ln-129"></a><span class="w">    </span><span class="c">!$acc end kernels</span>
+<a id="ln-130" name="ln-130" href="#ln-130"></a><span class="w">    </span><span class="c">!$omp end target</span>
+<a id="ln-131" name="ln-131" href="#ln-131"></a>
+<a id="ln-132" name="ln-132" href="#ln-132"></a><span class="w">    </span><span class="n">any_vals_less_than_1D_masked</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">(</span><span class="n">minValue</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">check_value</span><span class="p">)</span><span class="w"></span>
+<a id="ln-133" name="ln-133" href="#ln-133"></a>
+<a id="ln-134" name="ln-134" href="#ln-134"></a><span class="w">  </span><span class="k">end function </span><span class="n">any_vals_less_than_1D_masked</span><span class="w"></span>
+<a id="ln-135" name="ln-135" href="#ln-135"></a><span class="w">  </span><span class="c">!-------------------------------------------------------------------------------------------------</span>
+<a id="ln-136" name="ln-136" href="#ln-136"></a><span class="w">  </span><span class="kt">logical </span><span class="k">function </span><span class="n">any_vals_less_than_2D_masked</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">mask</span><span class="p">,</span><span class="w"> </span><span class="n">check_value</span><span class="p">)</span><span class="w"></span>
+<a id="ln-137" name="ln-137" href="#ln-137"></a><span class="w">    </span><span class="kt">real</span><span class="w">   </span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="k">array</span>
+<a id="ln-138" name="ln-138" href="#ln-138"></a><span class="k">    </span><span class="kt">logical</span><span class="p">(</span><span class="n">wl</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">mask</span><span class="w"></span>
+<a id="ln-139" name="ln-139" href="#ln-139"></a><span class="w">    </span><span class="kt">real</span><span class="w">   </span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w">                 </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">check_value</span><span class="w"></span>
+<a id="ln-140" name="ln-140" href="#ln-140"></a>
+<a id="ln-141" name="ln-141" href="#ln-141"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">minValue</span><span class="w"></span>
+<a id="ln-142" name="ln-142" href="#ln-142"></a>
+<a id="ln-143" name="ln-143" href="#ln-143"></a><span class="w">    </span><span class="c">!$acc kernels copyin(array, mask)</span>
+<a id="ln-144" name="ln-144" href="#ln-144"></a><span class="w">    </span><span class="c">!$omp target map(to: array, mask) map(from:minValue)</span>
+<a id="ln-145" name="ln-145" href="#ln-145"></a><span class="w">    </span><span class="n">minValue</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">minval</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">mask</span><span class="o">=</span><span class="n">mask</span><span class="p">)</span><span class="w"></span>
+<a id="ln-146" name="ln-146" href="#ln-146"></a><span class="w">    </span><span class="c">!$acc end kernels</span>
+<a id="ln-147" name="ln-147" href="#ln-147"></a><span class="w">    </span><span class="c">!$omp end target</span>
+<a id="ln-148" name="ln-148" href="#ln-148"></a>
+<a id="ln-149" name="ln-149" href="#ln-149"></a><span class="w">    </span><span class="n">any_vals_less_than_2D_masked</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">(</span><span class="n">minValue</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">check_value</span><span class="p">)</span><span class="w"></span>
+<a id="ln-150" name="ln-150" href="#ln-150"></a>
+<a id="ln-151" name="ln-151" href="#ln-151"></a><span class="w">  </span><span class="k">end function </span><span class="n">any_vals_less_than_2D_masked</span><span class="w"></span>
+<a id="ln-152" name="ln-152" href="#ln-152"></a><span class="w">  </span><span class="c">!-------------------------------------------------------------------------------------------------</span>
+<a id="ln-153" name="ln-153" href="#ln-153"></a><span class="w">  </span><span class="kt">logical </span><span class="k">function </span><span class="n">any_vals_less_than_3D_masked</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">mask</span><span class="p">,</span><span class="w"> </span><span class="n">check_value</span><span class="p">)</span><span class="w"></span>
+<a id="ln-154" name="ln-154" href="#ln-154"></a><span class="w">    </span><span class="kt">real</span><span class="w">   </span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="k">array</span>
+<a id="ln-155" name="ln-155" href="#ln-155"></a><span class="k">    </span><span class="kt">logical</span><span class="p">(</span><span class="n">wl</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">mask</span><span class="w"></span>
+<a id="ln-156" name="ln-156" href="#ln-156"></a><span class="w">    </span><span class="kt">real</span><span class="w">   </span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w">                   </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">check_value</span><span class="w"></span>
+<a id="ln-157" name="ln-157" href="#ln-157"></a>
+<a id="ln-158" name="ln-158" href="#ln-158"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">minValue</span><span class="w"></span>
+<a id="ln-159" name="ln-159" href="#ln-159"></a>
+<a id="ln-160" name="ln-160" href="#ln-160"></a><span class="w">    </span><span class="c">!$acc kernels copyin(array, mask)</span>
+<a id="ln-161" name="ln-161" href="#ln-161"></a><span class="w">    </span><span class="c">!$omp target map(to: array, mask) map(from:minValue)</span>
+<a id="ln-162" name="ln-162" href="#ln-162"></a><span class="w">    </span><span class="n">minValue</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">minval</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">mask</span><span class="o">=</span><span class="n">mask</span><span class="p">)</span><span class="w"></span>
+<a id="ln-163" name="ln-163" href="#ln-163"></a><span class="w">    </span><span class="c">!$acc end kernels</span>
+<a id="ln-164" name="ln-164" href="#ln-164"></a><span class="w">    </span><span class="c">!$omp end target</span>
+<a id="ln-165" name="ln-165" href="#ln-165"></a>
+<a id="ln-166" name="ln-166" href="#ln-166"></a><span class="w">    </span><span class="n">any_vals_less_than_3D_masked</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">(</span><span class="n">minValue</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">check_value</span><span class="p">)</span><span class="w"></span>
+<a id="ln-167" name="ln-167" href="#ln-167"></a>
+<a id="ln-168" name="ln-168" href="#ln-168"></a><span class="w">  </span><span class="k">end function </span><span class="n">any_vals_less_than_3D_masked</span><span class="w"></span>
+<a id="ln-169" name="ln-169" href="#ln-169"></a><span class="w">  </span><span class="c">!-------------------------------------------------------------------------------------------------</span>
+<a id="ln-170" name="ln-170" href="#ln-170"></a><span class="w">  </span><span class="c">! Values outside a range</span>
+<a id="ln-171" name="ln-171" href="#ln-171"></a><span class="w">  </span><span class="c">!-------------------------------------------------------------------------------------------------</span>
+<a id="ln-172" name="ln-172" href="#ln-172"></a><span class="w">  </span><span class="kt">logical </span><span class="k">function </span><span class="n">any_vals_outside_1D</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">checkMin</span><span class="p">,</span><span class="w"> </span><span class="n">checkMax</span><span class="p">)</span><span class="w"></span>
+<a id="ln-173" name="ln-173" href="#ln-173"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="k">array</span>
+<a id="ln-174" name="ln-174" href="#ln-174"></a><span class="k">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w">               </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">checkMin</span><span class="p">,</span><span class="w"> </span><span class="n">checkMax</span><span class="w"></span>
+<a id="ln-175" name="ln-175" href="#ln-175"></a>
+<a id="ln-176" name="ln-176" href="#ln-176"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">minValue</span><span class="p">,</span><span class="w"> </span><span class="n">maxValue</span><span class="w"></span>
+<a id="ln-177" name="ln-177" href="#ln-177"></a>
+<a id="ln-178" name="ln-178" href="#ln-178"></a><span class="w">    </span><span class="c">!$acc kernels copyin(array)</span>
+<a id="ln-179" name="ln-179" href="#ln-179"></a><span class="w">    </span><span class="c">!$omp target map(to:array) map(from:minValue, maxValue)</span>
+<a id="ln-180" name="ln-180" href="#ln-180"></a><span class="w">    </span><span class="n">minValue</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">minval</span><span class="p">(</span><span class="k">array</span><span class="p">)</span><span class="w"></span>
+<a id="ln-181" name="ln-181" href="#ln-181"></a><span class="w">    </span><span class="n">maxValue</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">maxval</span><span class="p">(</span><span class="k">array</span><span class="p">)</span><span class="w"></span>
+<a id="ln-182" name="ln-182" href="#ln-182"></a><span class="w">    </span><span class="c">!$acc end kernels</span>
+<a id="ln-183" name="ln-183" href="#ln-183"></a><span class="w">    </span><span class="c">!$omp end target</span>
+<a id="ln-184" name="ln-184" href="#ln-184"></a><span class="w">    </span><span class="n">any_vals_outside_1D</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">minValue</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">checkMin</span><span class="w"> </span><span class="p">.</span><span class="nb">or</span><span class="p">.</span><span class="w"> </span><span class="n">maxValue</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="n">checkMax</span><span class="w"></span>
+<a id="ln-185" name="ln-185" href="#ln-185"></a>
+<a id="ln-186" name="ln-186" href="#ln-186"></a><span class="w">  </span><span class="k">end function </span><span class="n">any_vals_outside_1D</span><span class="w"></span>
+<a id="ln-187" name="ln-187" href="#ln-187"></a><span class="c">! ----------------------------------------------------------</span>
+<a id="ln-188" name="ln-188" href="#ln-188"></a><span class="w">  </span><span class="kt">logical </span><span class="k">function </span><span class="n">any_vals_outside_2D</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">checkMin</span><span class="p">,</span><span class="w"> </span><span class="n">checkMax</span><span class="p">)</span><span class="w"></span>
+<a id="ln-189" name="ln-189" href="#ln-189"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="k">array</span>
+<a id="ln-190" name="ln-190" href="#ln-190"></a><span class="k">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w">                 </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">checkMin</span><span class="p">,</span><span class="w"> </span><span class="n">checkMax</span><span class="w"></span>
+<a id="ln-191" name="ln-191" href="#ln-191"></a>
+<a id="ln-192" name="ln-192" href="#ln-192"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">minValue</span><span class="p">,</span><span class="w"> </span><span class="n">maxValue</span><span class="w"></span>
+<a id="ln-193" name="ln-193" href="#ln-193"></a>
+<a id="ln-194" name="ln-194" href="#ln-194"></a><span class="w">    </span><span class="c">!$acc kernels copyin(array)</span>
+<a id="ln-195" name="ln-195" href="#ln-195"></a><span class="w">    </span><span class="c">!$omp target map(to:array) map(from:minValue, maxValue)</span>
+<a id="ln-196" name="ln-196" href="#ln-196"></a><span class="w">    </span><span class="n">minValue</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">minval</span><span class="p">(</span><span class="k">array</span><span class="p">)</span><span class="w"></span>
+<a id="ln-197" name="ln-197" href="#ln-197"></a><span class="w">    </span><span class="n">maxValue</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">maxval</span><span class="p">(</span><span class="k">array</span><span class="p">)</span><span class="w"></span>
+<a id="ln-198" name="ln-198" href="#ln-198"></a><span class="w">    </span><span class="c">!$acc end kernels</span>
+<a id="ln-199" name="ln-199" href="#ln-199"></a><span class="w">    </span><span class="c">!$omp end target</span>
+<a id="ln-200" name="ln-200" href="#ln-200"></a><span class="w">    </span><span class="n">any_vals_outside_2D</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">minValue</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">checkMin</span><span class="w"> </span><span class="p">.</span><span class="nb">or</span><span class="p">.</span><span class="w"> </span><span class="n">maxValue</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="n">checkMax</span><span class="w"></span>
+<a id="ln-201" name="ln-201" href="#ln-201"></a>
+<a id="ln-202" name="ln-202" href="#ln-202"></a><span class="w">  </span><span class="k">end function </span><span class="n">any_vals_outside_2D</span><span class="w"></span>
+<a id="ln-203" name="ln-203" href="#ln-203"></a><span class="c">! ----------------------------------------------------------</span>
+<a id="ln-204" name="ln-204" href="#ln-204"></a><span class="w">  </span><span class="kt">logical </span><span class="k">function </span><span class="n">any_vals_outside_3D</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">checkMin</span><span class="p">,</span><span class="w"> </span><span class="n">checkMax</span><span class="p">)</span><span class="w"></span>
+<a id="ln-205" name="ln-205" href="#ln-205"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="k">array</span>
+<a id="ln-206" name="ln-206" href="#ln-206"></a><span class="k">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w">                   </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">checkMin</span><span class="p">,</span><span class="w"> </span><span class="n">checkMax</span><span class="w"></span>
+<a id="ln-207" name="ln-207" href="#ln-207"></a>
+<a id="ln-208" name="ln-208" href="#ln-208"></a><span class="w">      </span><span class="c">! Compact version using intrinsics below</span>
+<a id="ln-209" name="ln-209" href="#ln-209"></a><span class="w">      </span><span class="c">! but an explicit loop is the only current solution on GPUs</span>
+<a id="ln-210" name="ln-210" href="#ln-210"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">minValue</span><span class="p">,</span><span class="w"> </span><span class="n">maxValue</span><span class="w"></span>
+<a id="ln-211" name="ln-211" href="#ln-211"></a>
+<a id="ln-212" name="ln-212" href="#ln-212"></a>
+<a id="ln-213" name="ln-213" href="#ln-213"></a><span class="cp">#ifdef _OPENMP</span>
+<a id="ln-214" name="ln-214" href="#ln-214"></a><span class="w">    </span><span class="kt">integer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">dim1</span><span class="p">,</span><span class="w"> </span><span class="n">dim2</span><span class="p">,</span><span class="w"> </span><span class="n">dim3</span><span class="p">,</span><span class="w"> </span><span class="n">i</span><span class="p">,</span><span class="w"> </span><span class="n">j</span><span class="p">,</span><span class="w"> </span><span class="n">k</span><span class="w"></span>
+<a id="ln-215" name="ln-215" href="#ln-215"></a><span class="w">    </span><span class="n">dim1</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">1</span><span class="p">)</span><span class="w"></span>
+<a id="ln-216" name="ln-216" href="#ln-216"></a><span class="w">    </span><span class="n">dim2</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">2</span><span class="p">)</span><span class="w"></span>
+<a id="ln-217" name="ln-217" href="#ln-217"></a><span class="w">    </span><span class="n">dim3</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">3</span><span class="p">)</span><span class="w"></span>
+<a id="ln-218" name="ln-218" href="#ln-218"></a><span class="w">    </span><span class="n">minValue</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">checkMin</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="nb">epsilon</span><span class="p">(</span><span class="n">checkMin</span><span class="p">)</span><span class="w"> </span><span class="c">! initialize to some value</span>
+<a id="ln-219" name="ln-219" href="#ln-219"></a><span class="w">    </span><span class="n">maxValue</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">checkMax</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="nb">epsilon</span><span class="p">(</span><span class="n">checkMax</span><span class="p">)</span><span class="w"> </span><span class="c">! initialize to some value</span>
+<a id="ln-220" name="ln-220" href="#ln-220"></a><span class="w">    </span><span class="c">!$omp target teams map(to:array) &amp;</span>
+<a id="ln-221" name="ln-221" href="#ln-221"></a><span class="w">    </span><span class="c">!$omp defaultmap(tofrom:scalar) reduction(min:minValue) reduction(max:maxValue)</span>
+<a id="ln-222" name="ln-222" href="#ln-222"></a><span class="w">    </span><span class="c">!$omp distribute parallel do simd reduction(min:minValue) reduction(max:maxValue)</span>
+<a id="ln-223" name="ln-223" href="#ln-223"></a><span class="w">    </span><span class="k">do </span><span class="n">i</span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">dim1</span><span class="w"></span>
+<a id="ln-224" name="ln-224" href="#ln-224"></a><span class="w">       </span><span class="k">do </span><span class="n">j</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">dim2</span><span class="w"></span>
+<a id="ln-225" name="ln-225" href="#ln-225"></a><span class="w">          </span><span class="k">do </span><span class="n">k</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">dim3</span><span class="w"></span>
+<a id="ln-226" name="ln-226" href="#ln-226"></a><span class="w">             </span><span class="n">minValue</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">min</span><span class="p">(</span><span class="n">minValue</span><span class="p">,</span><span class="k">array</span><span class="p">(</span><span class="n">i</span><span class="p">,</span><span class="n">j</span><span class="p">,</span><span class="n">k</span><span class="p">))</span><span class="w"></span>
+<a id="ln-227" name="ln-227" href="#ln-227"></a><span class="w">             </span><span class="n">maxValue</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">max</span><span class="p">(</span><span class="n">maxValue</span><span class="p">,</span><span class="k">array</span><span class="p">(</span><span class="n">i</span><span class="p">,</span><span class="n">j</span><span class="p">,</span><span class="n">k</span><span class="p">))</span><span class="w"></span>
+<a id="ln-228" name="ln-228" href="#ln-228"></a><span class="w">          </span><span class="k">enddo</span>
+<a id="ln-229" name="ln-229" href="#ln-229"></a><span class="k">       enddo</span>
+<a id="ln-230" name="ln-230" href="#ln-230"></a><span class="k">    enddo</span><span class="w"></span>
+<a id="ln-231" name="ln-231" href="#ln-231"></a><span class="w">    </span><span class="c">!$omp end target teams</span>
+<a id="ln-232" name="ln-232" href="#ln-232"></a><span class="cp">#else</span>
+<a id="ln-233" name="ln-233" href="#ln-233"></a><span class="w">    </span><span class="c">!$acc kernels copyin(array)</span>
+<a id="ln-234" name="ln-234" href="#ln-234"></a><span class="w">    </span><span class="n">minValue</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">minval</span><span class="p">(</span><span class="k">array</span><span class="p">)</span><span class="w"></span>
+<a id="ln-235" name="ln-235" href="#ln-235"></a><span class="w">    </span><span class="n">maxValue</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">maxval</span><span class="p">(</span><span class="k">array</span><span class="p">)</span><span class="w"></span>
+<a id="ln-236" name="ln-236" href="#ln-236"></a><span class="w">    </span><span class="c">!$acc end kernels</span>
+<a id="ln-237" name="ln-237" href="#ln-237"></a><span class="cp">#endif</span>
+<a id="ln-238" name="ln-238" href="#ln-238"></a>
+<a id="ln-239" name="ln-239" href="#ln-239"></a><span class="w">    </span><span class="n">any_vals_outside_3D</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">minValue</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">checkMin</span><span class="w"> </span><span class="p">.</span><span class="nb">or</span><span class="p">.</span><span class="w"> </span><span class="n">maxValue</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="n">checkMax</span><span class="w"></span>
+<a id="ln-240" name="ln-240" href="#ln-240"></a>
+<a id="ln-241" name="ln-241" href="#ln-241"></a><span class="w">  </span><span class="k">end function </span><span class="n">any_vals_outside_3D</span><span class="w"></span>
+<a id="ln-242" name="ln-242" href="#ln-242"></a><span class="w">  </span><span class="c">! ----------------------------------------------------------</span>
+<a id="ln-243" name="ln-243" href="#ln-243"></a><span class="w">  </span><span class="c">! Masked versions</span>
+<a id="ln-244" name="ln-244" href="#ln-244"></a><span class="w">  </span><span class="c">! ----------------------------------------------------------</span>
+<a id="ln-245" name="ln-245" href="#ln-245"></a><span class="w">  </span><span class="kt">logical </span><span class="k">function </span><span class="n">any_vals_outside_1D_masked</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">mask</span><span class="p">,</span><span class="w"> </span><span class="n">checkMin</span><span class="p">,</span><span class="w"> </span><span class="n">checkMax</span><span class="p">)</span><span class="w"></span>
+<a id="ln-246" name="ln-246" href="#ln-246"></a><span class="w">    </span><span class="kt">real</span><span class="w">   </span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="k">array</span>
+<a id="ln-247" name="ln-247" href="#ln-247"></a><span class="k">    </span><span class="kt">logical</span><span class="p">(</span><span class="n">wl</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">mask</span><span class="w"></span>
+<a id="ln-248" name="ln-248" href="#ln-248"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w">                  </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">checkMin</span><span class="p">,</span><span class="w"> </span><span class="n">checkMax</span><span class="w"></span>
+<a id="ln-249" name="ln-249" href="#ln-249"></a>
+<a id="ln-250" name="ln-250" href="#ln-250"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">minValue</span><span class="p">,</span><span class="w"> </span><span class="n">maxValue</span><span class="w"></span>
+<a id="ln-251" name="ln-251" href="#ln-251"></a>
+<a id="ln-252" name="ln-252" href="#ln-252"></a><span class="w">    </span><span class="c">!$acc kernels copyin(array, mask)</span>
+<a id="ln-253" name="ln-253" href="#ln-253"></a><span class="w">    </span><span class="c">!$omp target map(to: array, mask) map(from:minValue, maxValue)</span>
+<a id="ln-254" name="ln-254" href="#ln-254"></a><span class="w">    </span><span class="n">minValue</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">minval</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">mask</span><span class="o">=</span><span class="n">mask</span><span class="p">)</span><span class="w"></span>
+<a id="ln-255" name="ln-255" href="#ln-255"></a><span class="w">    </span><span class="n">maxValue</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">maxval</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">mask</span><span class="o">=</span><span class="n">mask</span><span class="p">)</span><span class="w"></span>
+<a id="ln-256" name="ln-256" href="#ln-256"></a><span class="w">    </span><span class="c">!$acc end kernels</span>
+<a id="ln-257" name="ln-257" href="#ln-257"></a><span class="w">    </span><span class="c">!$omp end target</span>
+<a id="ln-258" name="ln-258" href="#ln-258"></a><span class="w">    </span><span class="n">any_vals_outside_1D_masked</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">minValue</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">checkMin</span><span class="w"> </span><span class="p">.</span><span class="nb">or</span><span class="p">.</span><span class="w"> </span><span class="n">maxValue</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="n">checkMax</span><span class="w"></span>
+<a id="ln-259" name="ln-259" href="#ln-259"></a>
+<a id="ln-260" name="ln-260" href="#ln-260"></a><span class="w">  </span><span class="k">end function </span><span class="n">any_vals_outside_1D_masked</span><span class="w"></span>
+<a id="ln-261" name="ln-261" href="#ln-261"></a><span class="c">! ----------------------------------------------------------</span>
+<a id="ln-262" name="ln-262" href="#ln-262"></a><span class="w">  </span><span class="kt">logical </span><span class="k">function </span><span class="n">any_vals_outside_2D_masked</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">mask</span><span class="p">,</span><span class="w"> </span><span class="n">checkMin</span><span class="p">,</span><span class="w"> </span><span class="n">checkMax</span><span class="p">)</span><span class="w"></span>
+<a id="ln-263" name="ln-263" href="#ln-263"></a><span class="w">    </span><span class="kt">real</span><span class="w">   </span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="k">array</span>
+<a id="ln-264" name="ln-264" href="#ln-264"></a><span class="k">    </span><span class="kt">logical</span><span class="p">(</span><span class="n">wl</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">mask</span><span class="w"></span>
+<a id="ln-265" name="ln-265" href="#ln-265"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w">                    </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">checkMin</span><span class="p">,</span><span class="w"> </span><span class="n">checkMax</span><span class="w"></span>
+<a id="ln-266" name="ln-266" href="#ln-266"></a>
+<a id="ln-267" name="ln-267" href="#ln-267"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">minValue</span><span class="p">,</span><span class="w"> </span><span class="n">maxValue</span><span class="w"></span>
+<a id="ln-268" name="ln-268" href="#ln-268"></a>
+<a id="ln-269" name="ln-269" href="#ln-269"></a><span class="w">    </span><span class="c">!$acc kernels copyin(array, mask)</span>
+<a id="ln-270" name="ln-270" href="#ln-270"></a><span class="w">    </span><span class="c">!$omp target map(to: array, mask) map(from:minValue, maxValue)</span>
+<a id="ln-271" name="ln-271" href="#ln-271"></a><span class="w">    </span><span class="n">minValue</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">minval</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">mask</span><span class="o">=</span><span class="n">mask</span><span class="p">)</span><span class="w"></span>
+<a id="ln-272" name="ln-272" href="#ln-272"></a><span class="w">    </span><span class="n">maxValue</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">maxval</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">mask</span><span class="o">=</span><span class="n">mask</span><span class="p">)</span><span class="w"></span>
+<a id="ln-273" name="ln-273" href="#ln-273"></a><span class="w">    </span><span class="c">!$acc end kernels</span>
+<a id="ln-274" name="ln-274" href="#ln-274"></a><span class="w">    </span><span class="c">!$omp end target</span>
+<a id="ln-275" name="ln-275" href="#ln-275"></a><span class="w">    </span><span class="n">any_vals_outside_2D_masked</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">minValue</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">checkMin</span><span class="w"> </span><span class="p">.</span><span class="nb">or</span><span class="p">.</span><span class="w"> </span><span class="n">maxValue</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="n">checkMax</span><span class="w"></span>
+<a id="ln-276" name="ln-276" href="#ln-276"></a>
+<a id="ln-277" name="ln-277" href="#ln-277"></a><span class="w">  </span><span class="k">end function </span><span class="n">any_vals_outside_2D_masked</span><span class="w"></span>
+<a id="ln-278" name="ln-278" href="#ln-278"></a><span class="c">! ----------------------------------------------------------</span>
+<a id="ln-279" name="ln-279" href="#ln-279"></a><span class="w">  </span><span class="kt">logical </span><span class="k">function </span><span class="n">any_vals_outside_3D_masked</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">mask</span><span class="p">,</span><span class="w"> </span><span class="n">checkMin</span><span class="p">,</span><span class="w"> </span><span class="n">checkMax</span><span class="p">)</span><span class="w"></span>
+<a id="ln-280" name="ln-280" href="#ln-280"></a><span class="w">    </span><span class="kt">real</span><span class="w">   </span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="k">array</span>
+<a id="ln-281" name="ln-281" href="#ln-281"></a><span class="k">    </span><span class="kt">logical</span><span class="p">(</span><span class="n">wl</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">mask</span><span class="w"></span>
+<a id="ln-282" name="ln-282" href="#ln-282"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w">                      </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">checkMin</span><span class="p">,</span><span class="w"> </span><span class="n">checkMax</span><span class="w"></span>
+<a id="ln-283" name="ln-283" href="#ln-283"></a>
+<a id="ln-284" name="ln-284" href="#ln-284"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">minValue</span><span class="p">,</span><span class="w"> </span><span class="n">maxValue</span><span class="w"></span>
+<a id="ln-285" name="ln-285" href="#ln-285"></a>
+<a id="ln-286" name="ln-286" href="#ln-286"></a><span class="w">    </span><span class="c">!$acc kernels copyin(array, mask)</span>
+<a id="ln-287" name="ln-287" href="#ln-287"></a><span class="w">    </span><span class="c">!$omp target map(to: array, mask) map(from:minValue, maxValue)</span>
+<a id="ln-288" name="ln-288" href="#ln-288"></a><span class="w">    </span><span class="n">minValue</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">minval</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">mask</span><span class="o">=</span><span class="n">mask</span><span class="p">)</span><span class="w"></span>
+<a id="ln-289" name="ln-289" href="#ln-289"></a><span class="w">    </span><span class="n">maxValue</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">maxval</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">mask</span><span class="o">=</span><span class="n">mask</span><span class="p">)</span><span class="w"></span>
+<a id="ln-290" name="ln-290" href="#ln-290"></a><span class="w">    </span><span class="c">!$acc end kernels</span>
+<a id="ln-291" name="ln-291" href="#ln-291"></a><span class="w">    </span><span class="c">!$omp end target</span>
+<a id="ln-292" name="ln-292" href="#ln-292"></a><span class="w">    </span><span class="n">any_vals_outside_3D_masked</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">minValue</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">checkMin</span><span class="w"> </span><span class="p">.</span><span class="nb">or</span><span class="p">.</span><span class="w"> </span><span class="n">maxValue</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="n">checkMax</span><span class="w"></span>
+<a id="ln-293" name="ln-293" href="#ln-293"></a>
+<a id="ln-294" name="ln-294" href="#ln-294"></a><span class="w">  </span><span class="k">end function </span><span class="n">any_vals_outside_3D_masked</span><span class="w"></span>
+<a id="ln-295" name="ln-295" href="#ln-295"></a><span class="w">  </span><span class="c">!--------------------------------------------------------------------------------------------------------------------</span>
+<a id="ln-296" name="ln-296" href="#ln-296"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-297" name="ln-297" href="#ln-297"></a><span class="w">  </span><span class="c">! Extents</span>
+<a id="ln-298" name="ln-298" href="#ln-298"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-299" name="ln-299" href="#ln-299"></a><span class="w">  </span><span class="c">! --------------------------------------------------------------------------------------</span>
+<a id="ln-300" name="ln-300" href="#ln-300"></a><span class="w">  </span><span class="k">function </span><span class="n">extents_are_1d</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">n1</span><span class="p">)</span><span class="w"></span>
+<a id="ln-301" name="ln-301" href="#ln-301"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:</span><span class="w">          </span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="k">array</span>
+<a id="ln-302" name="ln-302" href="#ln-302"></a><span class="k">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">                          </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">n1</span><span class="w"></span>
+<a id="ln-303" name="ln-303" href="#ln-303"></a><span class="w">    </span><span class="kt">logical</span><span class="p">(</span><span class="n">wl</span><span class="p">)</span><span class="w">                                  </span><span class="kd">::</span><span class="w"> </span><span class="n">extents_are_1d</span><span class="w"></span>
+<a id="ln-304" name="ln-304" href="#ln-304"></a>
+<a id="ln-305" name="ln-305" href="#ln-305"></a><span class="w">    </span><span class="n">extents_are_1d</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">n1</span><span class="p">)</span><span class="w"></span>
+<a id="ln-306" name="ln-306" href="#ln-306"></a><span class="w">  </span><span class="k">end function </span><span class="n">extents_are_1d</span><span class="w"></span>
+<a id="ln-307" name="ln-307" href="#ln-307"></a><span class="w">  </span><span class="c">! --------------------------------------------------------------------------------------</span>
+<a id="ln-308" name="ln-308" href="#ln-308"></a><span class="w">  </span><span class="k">function </span><span class="n">extents_are_2d</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">n1</span><span class="p">,</span><span class="w"> </span><span class="n">n2</span><span class="p">)</span><span class="w"></span>
+<a id="ln-309" name="ln-309" href="#ln-309"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:</span><span class="w">        </span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="k">array</span>
+<a id="ln-310" name="ln-310" href="#ln-310"></a><span class="k">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">                          </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">n1</span><span class="p">,</span><span class="w"> </span><span class="n">n2</span><span class="w"></span>
+<a id="ln-311" name="ln-311" href="#ln-311"></a><span class="w">    </span><span class="kt">logical</span><span class="p">(</span><span class="n">wl</span><span class="p">)</span><span class="w">                                  </span><span class="kd">::</span><span class="w"> </span><span class="n">extents_are_2d</span><span class="w"></span>
+<a id="ln-312" name="ln-312" href="#ln-312"></a>
+<a id="ln-313" name="ln-313" href="#ln-313"></a><span class="w">    </span><span class="n">extents_are_2d</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">n1</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-314" name="ln-314" href="#ln-314"></a><span class="w">                      </span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">2</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">n2</span><span class="w"> </span><span class="p">)</span><span class="w"></span>
+<a id="ln-315" name="ln-315" href="#ln-315"></a><span class="w">  </span><span class="k">end function </span><span class="n">extents_are_2d</span><span class="w"></span>
+<a id="ln-316" name="ln-316" href="#ln-316"></a><span class="w">  </span><span class="c">! --------------------------------------------------------------------------------------</span>
+<a id="ln-317" name="ln-317" href="#ln-317"></a><span class="w">  </span><span class="k">function </span><span class="n">extents_are_3d</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">n1</span><span class="p">,</span><span class="w"> </span><span class="n">n2</span><span class="p">,</span><span class="w"> </span><span class="n">n3</span><span class="p">)</span><span class="w"></span>
+<a id="ln-318" name="ln-318" href="#ln-318"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:</span><span class="w">      </span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="k">array</span>
+<a id="ln-319" name="ln-319" href="#ln-319"></a><span class="k">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">                          </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">n1</span><span class="p">,</span><span class="w"> </span><span class="n">n2</span><span class="p">,</span><span class="w"> </span><span class="n">n3</span><span class="w"></span>
+<a id="ln-320" name="ln-320" href="#ln-320"></a><span class="w">    </span><span class="kt">logical</span><span class="p">(</span><span class="n">wl</span><span class="p">)</span><span class="w">                                  </span><span class="kd">::</span><span class="w"> </span><span class="n">extents_are_3d</span><span class="w"></span>
+<a id="ln-321" name="ln-321" href="#ln-321"></a>
+<a id="ln-322" name="ln-322" href="#ln-322"></a><span class="w">    </span><span class="n">extents_are_3d</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">n1</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-323" name="ln-323" href="#ln-323"></a><span class="w">                      </span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">2</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">n2</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-324" name="ln-324" href="#ln-324"></a><span class="w">                      </span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">3</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">n3</span><span class="p">)</span><span class="w"></span>
+<a id="ln-325" name="ln-325" href="#ln-325"></a><span class="w">  </span><span class="k">end function </span><span class="n">extents_are_3d</span><span class="w"></span>
+<a id="ln-326" name="ln-326" href="#ln-326"></a><span class="w">  </span><span class="c">! --------------------------------------------------------------------------------------</span>
+<a id="ln-327" name="ln-327" href="#ln-327"></a><span class="w">  </span><span class="k">function </span><span class="n">extents_are_4d</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">n1</span><span class="p">,</span><span class="w"> </span><span class="n">n2</span><span class="p">,</span><span class="w"> </span><span class="n">n3</span><span class="p">,</span><span class="w"> </span><span class="n">n4</span><span class="p">)</span><span class="w"></span>
+<a id="ln-328" name="ln-328" href="#ln-328"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:,:</span><span class="w">    </span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="k">array</span>
+<a id="ln-329" name="ln-329" href="#ln-329"></a><span class="k">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">                          </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">n1</span><span class="p">,</span><span class="w"> </span><span class="n">n2</span><span class="p">,</span><span class="w"> </span><span class="n">n3</span><span class="p">,</span><span class="w"> </span><span class="n">n4</span><span class="w"></span>
+<a id="ln-330" name="ln-330" href="#ln-330"></a><span class="w">    </span><span class="kt">logical</span><span class="p">(</span><span class="n">wl</span><span class="p">)</span><span class="w">                                  </span><span class="kd">::</span><span class="w"> </span><span class="n">extents_are_4d</span><span class="w"></span>
+<a id="ln-331" name="ln-331" href="#ln-331"></a>
+<a id="ln-332" name="ln-332" href="#ln-332"></a><span class="w">    </span><span class="n">extents_are_4d</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">n1</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-333" name="ln-333" href="#ln-333"></a><span class="w">                      </span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">2</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">n2</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-334" name="ln-334" href="#ln-334"></a><span class="w">                      </span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">3</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">n3</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-335" name="ln-335" href="#ln-335"></a><span class="w">                      </span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">4</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">n4</span><span class="p">)</span><span class="w"></span>
+<a id="ln-336" name="ln-336" href="#ln-336"></a><span class="w">  </span><span class="k">end function </span><span class="n">extents_are_4d</span><span class="w"></span>
+<a id="ln-337" name="ln-337" href="#ln-337"></a><span class="w">  </span><span class="c">! --------------------------------------------------------------------------------------</span>
+<a id="ln-338" name="ln-338" href="#ln-338"></a><span class="w">  </span><span class="k">function </span><span class="n">extents_are_5d</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">n1</span><span class="p">,</span><span class="w"> </span><span class="n">n2</span><span class="p">,</span><span class="w"> </span><span class="n">n3</span><span class="p">,</span><span class="w"> </span><span class="n">n4</span><span class="p">,</span><span class="w"> </span><span class="n">n5</span><span class="p">)</span><span class="w"></span>
+<a id="ln-339" name="ln-339" href="#ln-339"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:,:,:</span><span class="w">  </span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="k">array</span>
+<a id="ln-340" name="ln-340" href="#ln-340"></a><span class="k">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">                          </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">n1</span><span class="p">,</span><span class="w"> </span><span class="n">n2</span><span class="p">,</span><span class="w"> </span><span class="n">n3</span><span class="p">,</span><span class="w"> </span><span class="n">n4</span><span class="p">,</span><span class="w"> </span><span class="n">n5</span><span class="w"></span>
+<a id="ln-341" name="ln-341" href="#ln-341"></a><span class="w">    </span><span class="kt">logical</span><span class="p">(</span><span class="n">wl</span><span class="p">)</span><span class="w">                                  </span><span class="kd">::</span><span class="w"> </span><span class="n">extents_are_5d</span><span class="w"></span>
+<a id="ln-342" name="ln-342" href="#ln-342"></a>
+<a id="ln-343" name="ln-343" href="#ln-343"></a><span class="w">    </span><span class="n">extents_are_5d</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">n1</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-344" name="ln-344" href="#ln-344"></a><span class="w">                      </span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">2</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">n2</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-345" name="ln-345" href="#ln-345"></a><span class="w">                      </span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">3</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">n3</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-346" name="ln-346" href="#ln-346"></a><span class="w">                      </span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">4</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">n4</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-347" name="ln-347" href="#ln-347"></a><span class="w">                      </span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">5</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">n5</span><span class="w"> </span><span class="p">)</span><span class="w"></span>
+<a id="ln-348" name="ln-348" href="#ln-348"></a><span class="w">  </span><span class="k">end function </span><span class="n">extents_are_5d</span><span class="w"></span>
+<a id="ln-349" name="ln-349" href="#ln-349"></a><span class="w">  </span><span class="c">! --------------------------------------------------------------------------------------</span>
+<a id="ln-350" name="ln-350" href="#ln-350"></a><span class="w">  </span><span class="k">function </span><span class="n">extents_are_6d</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">n1</span><span class="p">,</span><span class="w"> </span><span class="n">n2</span><span class="p">,</span><span class="w"> </span><span class="n">n3</span><span class="p">,</span><span class="w"> </span><span class="n">n4</span><span class="p">,</span><span class="w"> </span><span class="n">n5</span><span class="p">,</span><span class="w"> </span><span class="n">n6</span><span class="p">)</span><span class="w"></span>
+<a id="ln-351" name="ln-351" href="#ln-351"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:,:,:,:),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="k">array</span>
+<a id="ln-352" name="ln-352" href="#ln-352"></a><span class="k">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">                          </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">n1</span><span class="p">,</span><span class="w"> </span><span class="n">n2</span><span class="p">,</span><span class="w"> </span><span class="n">n3</span><span class="p">,</span><span class="w"> </span><span class="n">n4</span><span class="p">,</span><span class="w"> </span><span class="n">n5</span><span class="p">,</span><span class="w"> </span><span class="n">n6</span><span class="w"></span>
+<a id="ln-353" name="ln-353" href="#ln-353"></a><span class="w">    </span><span class="kt">logical</span><span class="p">(</span><span class="n">wl</span><span class="p">)</span><span class="w">                                  </span><span class="kd">::</span><span class="w"> </span><span class="n">extents_are_6d</span><span class="w"></span>
+<a id="ln-354" name="ln-354" href="#ln-354"></a>
+<a id="ln-355" name="ln-355" href="#ln-355"></a><span class="w">    </span><span class="n">extents_are_6d</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">n1</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-356" name="ln-356" href="#ln-356"></a><span class="w">                      </span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">2</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">n2</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-357" name="ln-357" href="#ln-357"></a><span class="w">                      </span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">3</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">n3</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-358" name="ln-358" href="#ln-358"></a><span class="w">                      </span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">4</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">n4</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-359" name="ln-359" href="#ln-359"></a><span class="w">                      </span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">5</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">n5</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-360" name="ln-360" href="#ln-360"></a><span class="w">                      </span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">6</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">n6</span><span class="w"> </span><span class="p">)</span><span class="w"></span>
+<a id="ln-361" name="ln-361" href="#ln-361"></a><span class="w">  </span><span class="k">end function </span><span class="n">extents_are_6d</span><span class="w"></span>
+<a id="ln-362" name="ln-362" href="#ln-362"></a><span class="w">  </span><span class="c">! --------------------------------------------------------------------------------------</span>
+<a id="ln-363" name="ln-363" href="#ln-363"></a><span class="w">  </span><span class="k">function </span><span class="n">extents_are_2d_int</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="w"> </span><span class="n">n1</span><span class="p">,</span><span class="w"> </span><span class="n">n2</span><span class="p">)</span><span class="w"></span>
+<a id="ln-364" name="ln-364" href="#ln-364"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">  </span><span class="k">dimension</span><span class="p">(:,:</span><span class="w">        </span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="k">array</span>
+<a id="ln-365" name="ln-365" href="#ln-365"></a><span class="k">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">                          </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">n1</span><span class="p">,</span><span class="w"> </span><span class="n">n2</span><span class="w"></span>
+<a id="ln-366" name="ln-366" href="#ln-366"></a><span class="w">    </span><span class="kt">logical</span><span class="p">(</span><span class="n">wl</span><span class="p">)</span><span class="w">                                  </span><span class="kd">::</span><span class="w"> </span><span class="n">extents_are_2d_int</span><span class="w"></span>
+<a id="ln-367" name="ln-367" href="#ln-367"></a>
+<a id="ln-368" name="ln-368" href="#ln-368"></a><span class="w">    </span><span class="n">extents_are_2d_int</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">n1</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-369" name="ln-369" href="#ln-369"></a><span class="w">                          </span><span class="n">size</span><span class="p">(</span><span class="k">array</span><span class="p">,</span><span class="mi">2</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">n2</span><span class="w"> </span><span class="p">)</span><span class="w"></span>
+<a id="ln-370" name="ln-370" href="#ln-370"></a><span class="w">  </span><span class="k">end function </span><span class="n">extents_are_2d_int</span><span class="w"></span>
+<a id="ln-371" name="ln-371" href="#ln-371"></a><span class="w"> </span>
+<a id="ln-372" name="ln-372" href="#ln-372"></a><span class="k">end module </span><span class="n">mo_rte_util_array_validation</span><span class="w"></span>
+</pre></div>
+
+    </section>
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/sourcefile/mo_source_functions.f90.html b/reference/rte-fortran-interface/sourcefile/mo_source_functions.f90.html
new file mode 100644
index 000000000..18c119b1d
--- /dev/null
+++ b/reference/rte-fortran-interface/sourcefile/mo_source_functions.f90.html
@@ -0,0 +1,713 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>mo_source_functions.F90 &ndash; RTE-Fortran</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>mo_source_functions.F90
+    <small>Source File</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title="11.3% of total for source files.">180 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_source_functions.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li class="active">mo_source_functions.F90</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#mods-0">Modules</a></h3></div>
+  <div id="mods-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_source_functions.html">mo_source_functions</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title">Source Code</h3></div>
+  <div class="list-group">
+    <a class="list-group-item" href="../sourcefile/mo_source_functions.f90.html#src">mo_source_functions.F90</a>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    <div class="col-md-9" id='text'>
+      
+      <br>
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">This file depends on</h3>
+      </div>
+      <div class="panel-body">
+  <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: sourcefile~~mo_source_functions.f90~~EfferentGraph Pages: 1 -->
+<svg id="sourcefilemo_source_functionsf90EfferentGraph" width="641pt" height="98pt"
+ viewBox="0.00 0.00 641.00 98.47" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~mo_source_functions.f90~~EfferentGraph" class="graph" transform="scale(1.06 1.06) rotate(0) translate(4 100)">
+<title>sourcefile~~mo_source_functions.f90~~EfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-100 673,-100 673,4 -4,4"/>
+<!-- sourcefile~mo_source_functions.f90 -->
+<g id="sourcefile~~mo_source_functions.f90~~EfferentGraph_node1" class="node">
+<title>sourcefile~mo_source_functions.f90</title>
+<polygon fill="none" stroke="black" points="669,-86 522,-86 522,-62 669,-62 669,-86"/>
+<text text-anchor="middle" x="595.5" y="-71.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_source_functions.F90</text>
+</g>
+<!-- sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_source_functions.f90~~EfferentGraph_node2" class="node">
+<title>sourcefile~mo_rte_kind.f90</title>
+<g id="a_sourcefile~~mo_source_functions.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/mo_rte_kind.f90.html" xlink:title="mo_rte_kind.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="100,-66 0,-66 0,-42 100,-42 100,-66"/>
+<text text-anchor="middle" x="50" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_source_functions.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_source_functions.f90~~EfferentGraph_edge1" class="edge">
+<title>sourcefile~mo_source_functions.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M521.88,-82.82C448.31,-90.62 331.23,-99.91 230,-94"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_source_functions.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~mo_optical_props.f90</title>
+<g id="a_sourcefile~~mo_source_functions.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/mo_optical_props.f90.html" xlink:title="mo_optical_props.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="486,-66 358,-66 358,-42 486,-42 486,-66"/>
+<text text-anchor="middle" x="422" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_source_functions.f90&#45;&gt;sourcefile~mo_optical_props.f90 -->
+<g id="sourcefile~~mo_source_functions.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~mo_source_functions.f90&#45;&gt;sourcefile~mo_optical_props.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M521.77,-65.52C513.33,-64.53 504.72,-63.53 496.28,-62.55"/>
+<polygon fill="#000000" stroke="#000000" points="496.42,-59.04 486.08,-61.36 495.61,-65.99 496.42,-59.04"/>
+</g>
+<!-- sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_source_functions.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.95,-66.11C351.32,-79.05 286.82,-97.32 230,-94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M228,-94C183.06,-91.38 133.14,-79.22 97.8,-68.99"/>
+<polygon fill="#000000" stroke="#000000" points="98.37,-65.51 87.79,-66.03 96.38,-72.22 98.37,-65.51"/>
+</g>
+<!-- sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_source_functions.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~mo_rte_config.f90</title>
+<g id="a_sourcefile~~mo_source_functions.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/mo_rte_config.f90.html" xlink:title="mo_rte_config.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="284.5,-66 173.5,-66 173.5,-42 284.5,-42 284.5,-66"/>
+<text text-anchor="middle" x="229" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_config.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_config.f90 -->
+<g id="sourcefile~~mo_source_functions.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_config.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M357.93,-54C337.67,-54 315.19,-54 294.8,-54"/>
+<polygon fill="#000000" stroke="#000000" points="294.67,-50.5 284.67,-54 294.67,-57.5 294.67,-50.5"/>
+</g>
+<!-- sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_source_functions.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~mo_rte_util_array_validation.f90</title>
+<g id="a_sourcefile~~mo_source_functions.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/mo_rte_util_array_validation.f90.html" xlink:title="mo_rte_util_array_validation.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="322,-24 136,-24 136,0 322,0 322,-24"/>
+<text text-anchor="middle" x="229" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array_validation.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90 -->
+<g id="sourcefile~~mo_source_functions.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~mo_optical_props.f90&#45;&gt;sourcefile~mo_rte_util_array_validation.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.27,-41.96C343.89,-37.04 317.84,-31.31 294.54,-26.19"/>
+<polygon fill="#000000" stroke="#000000" points="295.26,-22.77 284.74,-24.04 293.76,-29.6 295.26,-22.77"/>
+</g>
+<!-- sourcefile~mo_rte_config.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_source_functions.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~mo_rte_config.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M173.45,-54C153.46,-54 130.76,-54 110.37,-54"/>
+<polygon fill="#000000" stroke="#000000" points="110.26,-50.5 100.26,-54 110.26,-57.5 110.26,-50.5"/>
+</g>
+<!-- sourcefile~mo_rte_util_array_validation.f90&#45;&gt;sourcefile~mo_rte_kind.f90 -->
+<g id="sourcefile~~mo_source_functions.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~mo_rte_util_array_validation.f90&#45;&gt;sourcefile~mo_rte_kind.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.45,-24.05C161.83,-26.94 148.43,-30.05 136,-33 127.2,-35.09 117.9,-37.34 108.81,-39.57"/>
+<polygon fill="#000000" stroke="#000000" points="107.94,-36.18 99.06,-41.97 109.61,-42.98 107.94,-36.18"/>
+</g>
+</g>
+</svg>
+</div><script>var pansourcefilemo_source_functionsf90EfferentGraph = svgPanZoom('#sourcefilemo_source_functionsf90EfferentGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="202pt" height="32pt"
+ viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<!-- Source File -->
+<g id="node1" class="node">
+<title>Source File</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
+<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node2" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
+<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a file to a file which it depends on. A file
+    is dependent upon another if the latter must be compiled before the former
+    can be.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Files dependent on this one</h3>
+      </div>
+      <div class="panel-body">
+  <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: sourcefile~~mo_source_functions.f90~~AfferentGraph Pages: 1 -->
+<svg id="sourcefilemo_source_functionsf90AfferentGraph" width="279pt" height="32pt"
+ viewBox="0.00 0.00 279.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~mo_source_functions.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>sourcefile~~mo_source_functions.f90~~AfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 275,-28 275,4 -4,4"/>
+<!-- sourcefile~mo_source_functions.f90 -->
+<g id="sourcefile~~mo_source_functions.f90~~AfferentGraph_node1" class="node">
+<title>sourcefile~mo_source_functions.f90</title>
+<polygon fill="none" stroke="black" points="147,-24 0,-24 0,0 147,0 147,-24"/>
+<text text-anchor="middle" x="73.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_source_functions.F90</text>
+</g>
+<!-- sourcefile~mo_rte_lw.f90 -->
+<g id="sourcefile~~mo_source_functions.f90~~AfferentGraph_node2" class="node">
+<title>sourcefile~mo_rte_lw.f90</title>
+<g id="a_sourcefile~~mo_source_functions.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/mo_rte_lw.f90.html" xlink:title="mo_rte_lw.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="271,-24 183,-24 183,0 271,0 271,-24"/>
+<text text-anchor="middle" x="227" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_lw.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_source_functions.f90 -->
+<g id="sourcefile~~mo_source_functions.f90~~AfferentGraph_edge1" class="edge">
+<title>sourcefile~mo_rte_lw.f90&#45;&gt;sourcefile~mo_source_functions.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M182.99,-12C174.86,-12 166.1,-12 157.21,-12"/>
+<polygon fill="#000000" stroke="#000000" points="157.14,-8.5 147.14,-12 157.14,-15.5 157.14,-8.5"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="202pt" height="32pt"
+ viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<!-- Source File -->
+<g id="node1" class="node">
+<title>Source File</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
+<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node2" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
+<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a file to a file which it depends on. A file
+    is dependent upon another if the latter must be compiled before the former
+    can be.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+<br>
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#mods-1">Modules</a></h3></div>
+  <div id="mods-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../module/mo_source_functions.html">mo_source_functions</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title">Source Code</h3></div>
+  <div class="list-group">
+    <a class="list-group-item" href="../sourcefile/mo_source_functions.f90.html#src">mo_source_functions.F90</a>
+  </div>
+</div>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    <section>
+      <h2><span class="anchor" id="src"></span>Source Code</h2>
+    <div class="hl"><pre><span></span><a id="ln-1" name="ln-1" href="#ln-1"></a><span class="c">! This code is part of Radiative Transfer for Energetics (RTE)</span>
+<a id="ln-2" name="ln-2" href="#ln-2"></a><span class="c">!</span>
+<a id="ln-3" name="ln-3" href="#ln-3"></a><span class="c">! Contacts: Robert Pincus and Eli Mlawer</span>
+<a id="ln-4" name="ln-4" href="#ln-4"></a><span class="c">! email:  rrtmgp@aer.com</span>
+<a id="ln-5" name="ln-5" href="#ln-5"></a><span class="c">!</span>
+<a id="ln-6" name="ln-6" href="#ln-6"></a><span class="c">! Copyright 2015-  Atmospheric and Environmental Research,</span>
+<a id="ln-7" name="ln-7" href="#ln-7"></a><span class="c">!    Regents of the University of Colorado,</span>
+<a id="ln-8" name="ln-8" href="#ln-8"></a><span class="c">!    Trustees of Columbia University in the City of New York</span>
+<a id="ln-9" name="ln-9" href="#ln-9"></a><span class="c">! All right reserved.</span>
+<a id="ln-10" name="ln-10" href="#ln-10"></a><span class="c">!</span>
+<a id="ln-11" name="ln-11" href="#ln-11"></a><span class="c">! Use and duplication is permitted under the terms of the</span>
+<a id="ln-12" name="ln-12" href="#ln-12"></a><span class="c">!    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause</span>
+<a id="ln-13" name="ln-13" href="#ln-13"></a><span class="c">! -------------------------------------------------------------------------------------------------</span>
+<a id="ln-14" name="ln-14" href="#ln-14"></a><span class="c">!</span>
+<a id="ln-15" name="ln-15" href="#ln-15"></a><span class="c">!&gt; Encapsulate source function arrays for longwave/lw/internal sources</span>
+<a id="ln-16" name="ln-16" href="#ln-16"></a><span class="c">!    and shortwave/sw/external source.</span>
+<a id="ln-17" name="ln-17" href="#ln-17"></a><span class="c">!</span>
+<a id="ln-18" name="ln-18" href="#ln-18"></a><span class="c">! -------------------------------------------------------------------------------------------------</span>
+<a id="ln-19" name="ln-19" href="#ln-19"></a><span class="k">module </span><span class="n">mo_source_functions</span><span class="w"></span>
+<a id="ln-20" name="ln-20" href="#ln-20"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_rte_kind</span><span class="p">,</span><span class="w">      </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">wp</span><span class="w"></span>
+<a id="ln-21" name="ln-21" href="#ln-21"></a><span class="w">  </span><span class="k">use </span><span class="n">mo_optical_props</span><span class="p">,</span><span class="w"> </span><span class="k">only</span><span class="p">:</span><span class="w"> </span><span class="n">ty_optical_props</span><span class="w"></span>
+<a id="ln-22" name="ln-22" href="#ln-22"></a><span class="w">  </span><span class="k">implicit none</span>
+<a id="ln-23" name="ln-23" href="#ln-23"></a><span class="k">  private</span><span class="w"></span>
+<a id="ln-24" name="ln-24" href="#ln-24"></a><span class="w">  </span><span class="c">! -------------------------------------------------------------------------------------------------</span>
+<a id="ln-25" name="ln-25" href="#ln-25"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-26" name="ln-26" href="#ln-26"></a><span class="w">  </span><span class="c">!&gt; Type representing Planck source functions in \(W/m^2\)</span>
+<a id="ln-27" name="ln-27" href="#ln-27"></a><span class="w">  </span><span class="c">!&gt;   computed at layer center, at layer edges using</span>
+<a id="ln-28" name="ln-28" href="#ln-28"></a><span class="w">  </span><span class="c">!&gt;   spectral mapping in each direction separately, and at the surface</span>
+<a id="ln-29" name="ln-29" href="#ln-29"></a><span class="w">  </span><span class="c">!&gt;</span>
+<a id="ln-30" name="ln-30" href="#ln-30"></a><span class="w">  </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="p">),</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ty_source_func_lw</span><span class="w"></span>
+<a id="ln-31" name="ln-31" href="#ln-31"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">allocatable</span><span class="p">,</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">lay_source</span><span class="w"></span>
+<a id="ln-32" name="ln-32" href="#ln-32"></a><span class="w">        </span><span class="c">!! Planck source at layer average temperature (ncol, nlay, ngpt)</span>
+<a id="ln-33" name="ln-33" href="#ln-33"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">allocatable</span><span class="p">,</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">lev_source_inc</span><span class="w"></span>
+<a id="ln-34" name="ln-34" href="#ln-34"></a><span class="w">        </span><span class="c">!! Planck source at layer edge in increasing ilay direction (ncol, nlay+1, ngpt)</span>
+<a id="ln-35" name="ln-35" href="#ln-35"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">allocatable</span><span class="p">,</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:,:)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">lev_source_dec</span><span class="w"></span>
+<a id="ln-36" name="ln-36" href="#ln-36"></a><span class="w">        </span><span class="c">!! Planck source at layer edge in decreasing ilay direction (ncol, nlay+1, ngpt)</span>
+<a id="ln-37" name="ln-37" href="#ln-37"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">allocatable</span><span class="p">,</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:</span><span class="w">  </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">sfc_source</span><span class="w"></span>
+<a id="ln-38" name="ln-38" href="#ln-38"></a><span class="w">        </span><span class="c">!! Planck function at surface temperature</span>
+<a id="ln-39" name="ln-39" href="#ln-39"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">allocatable</span><span class="p">,</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:</span><span class="w">  </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">sfc_source_Jac</span><span class="w"></span>
+<a id="ln-40" name="ln-40" href="#ln-40"></a><span class="w">        </span><span class="c">!! surface source Jacobian</span>
+<a id="ln-41" name="ln-41" href="#ln-41"></a><span class="w">  </span><span class="k">contains</span>
+<a id="ln-42" name="ln-42" href="#ln-42"></a><span class="k">    generic</span><span class="p">,</span><span class="w">   </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">alloc</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">alloc_lw</span><span class="p">,</span><span class="w"> </span><span class="n">copy_and_alloc_lw</span><span class="w"></span>
+<a id="ln-43" name="ln-43" href="#ln-43"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="kd">::</span><span class="w"> </span><span class="n">alloc_lw</span><span class="w"></span>
+<a id="ln-44" name="ln-44" href="#ln-44"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="kd">::</span><span class="w"> </span><span class="n">copy_and_alloc_lw</span><span class="w"></span>
+<a id="ln-45" name="ln-45" href="#ln-45"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">is_allocated</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">is_allocated_lw</span><span class="w"></span>
+<a id="ln-46" name="ln-46" href="#ln-46"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">finalize</span><span class="w">     </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">finalize_lw</span><span class="w"></span>
+<a id="ln-47" name="ln-47" href="#ln-47"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_subset</span><span class="w">   </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">get_subset_range_lw</span><span class="w"></span>
+<a id="ln-48" name="ln-48" href="#ln-48"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_ncol</span><span class="w">     </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">get_ncol_lw</span><span class="w"></span>
+<a id="ln-49" name="ln-49" href="#ln-49"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_nlay</span><span class="w">     </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">get_nlay_lw</span><span class="w"></span>
+<a id="ln-50" name="ln-50" href="#ln-50"></a><span class="w">    </span><span class="c">! validate?</span>
+<a id="ln-51" name="ln-51" href="#ln-51"></a><span class="w">  </span><span class="k">end type </span><span class="n">ty_source_func_lw</span><span class="w"></span>
+<a id="ln-52" name="ln-52" href="#ln-52"></a><span class="w">  </span><span class="c">! -------------------------------------------------------------------------------------------------</span>
+<a id="ln-53" name="ln-53" href="#ln-53"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-54" name="ln-54" href="#ln-54"></a><span class="w">  </span><span class="c">! Type for shortave sources: top-of-domain spectrally-resolved flux</span>
+<a id="ln-55" name="ln-55" href="#ln-55"></a><span class="w">  </span><span class="c">!   The type isn&#39;t used at this time, so it&#39;s declared as private.</span>
+<a id="ln-56" name="ln-56" href="#ln-56"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-57" name="ln-57" href="#ln-57"></a><span class="w">  </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="p">),</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ty_source_func_sw</span><span class="w"></span>
+<a id="ln-58" name="ln-58" href="#ln-58"></a><span class="w">    </span><span class="kt">real</span><span class="p">(</span><span class="n">wp</span><span class="p">),</span><span class="w"> </span><span class="k">allocatable</span><span class="p">,</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:,:</span><span class="w">  </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">toa_source</span><span class="w"></span>
+<a id="ln-59" name="ln-59" href="#ln-59"></a><span class="w">  </span><span class="k">contains</span>
+<a id="ln-60" name="ln-60" href="#ln-60"></a><span class="k">    generic</span><span class="p">,</span><span class="w">   </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">alloc</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">alloc_sw</span><span class="p">,</span><span class="w"> </span><span class="n">copy_and_alloc_sw</span><span class="w"></span>
+<a id="ln-61" name="ln-61" href="#ln-61"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="kd">::</span><span class="w"> </span><span class="n">alloc_sw</span><span class="w"></span>
+<a id="ln-62" name="ln-62" href="#ln-62"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="kd">::</span><span class="w"> </span><span class="n">copy_and_alloc_sw</span><span class="w"></span>
+<a id="ln-63" name="ln-63" href="#ln-63"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">is_allocated</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">is_allocated_sw</span><span class="w"></span>
+<a id="ln-64" name="ln-64" href="#ln-64"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">finalize</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">finalize_sw</span><span class="w"></span>
+<a id="ln-65" name="ln-65" href="#ln-65"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_subset</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">get_subset_range_sw</span><span class="w"></span>
+<a id="ln-66" name="ln-66" href="#ln-66"></a><span class="w">    </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_ncol</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">get_ncol_sw</span><span class="w"></span>
+<a id="ln-67" name="ln-67" href="#ln-67"></a><span class="w">    </span><span class="c">! validate?</span>
+<a id="ln-68" name="ln-68" href="#ln-68"></a><span class="w">  </span><span class="k">end type </span><span class="n">ty_source_func_sw</span><span class="w"></span>
+<a id="ln-69" name="ln-69" href="#ln-69"></a><span class="w">  </span><span class="c">! -------------------------------------------------------------------------------------------------</span>
+<a id="ln-70" name="ln-70" href="#ln-70"></a><span class="k">contains</span><span class="w"></span>
+<a id="ln-71" name="ln-71" href="#ln-71"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-72" name="ln-72" href="#ln-72"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-73" name="ln-73" href="#ln-73"></a><span class="w">  </span><span class="c">!  Routines for initialization, validity checking, finalization</span>
+<a id="ln-74" name="ln-74" href="#ln-74"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-75" name="ln-75" href="#ln-75"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-76" name="ln-76" href="#ln-76"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-77" name="ln-77" href="#ln-77"></a><span class="w">  </span><span class="c">! Longwave</span>
+<a id="ln-78" name="ln-78" href="#ln-78"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-79" name="ln-79" href="#ln-79"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-80" name="ln-80" href="#ln-80"></a><span class="w">  </span><span class="k">pure function </span><span class="n">is_allocated_lw</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"></span>
+<a id="ln-81" name="ln-81" href="#ln-81"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_source_func_lw</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-82" name="ln-82" href="#ln-82"></a><span class="w">    </span><span class="kt">logical</span><span class="w">                              </span><span class="kd">::</span><span class="w"> </span><span class="n">is_allocated_lw</span><span class="w"></span>
+<a id="ln-83" name="ln-83" href="#ln-83"></a>
+<a id="ln-84" name="ln-84" href="#ln-84"></a><span class="w">    </span><span class="n">is_allocated_lw</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">()</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-85" name="ln-85" href="#ln-85"></a><span class="w">                      </span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">sfc_source</span><span class="p">)</span><span class="w"></span>
+<a id="ln-86" name="ln-86" href="#ln-86"></a><span class="w">  </span><span class="k">end function </span><span class="n">is_allocated_lw</span><span class="w"></span>
+<a id="ln-87" name="ln-87" href="#ln-87"></a><span class="w">  </span><span class="c">! --------------------------------------------------------------</span>
+<a id="ln-88" name="ln-88" href="#ln-88"></a><span class="w">  </span><span class="k">function </span><span class="n">alloc_lw</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-89" name="ln-89" href="#ln-89"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_source_func_lw</span><span class="p">),</span><span class="w">    </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-90" name="ln-90" href="#ln-90"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">                     </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="w"></span>
+<a id="ln-91" name="ln-91" href="#ln-91"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">128</span><span class="p">)</span><span class="w">                       </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-92" name="ln-92" href="#ln-92"></a>
+<a id="ln-93" name="ln-93" href="#ln-93"></a><span class="w">    </span><span class="kt">integer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ngpt</span><span class="w"></span>
+<a id="ln-94" name="ln-94" href="#ln-94"></a>
+<a id="ln-95" name="ln-95" href="#ln-95"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-96" name="ln-96" href="#ln-96"></a><span class="w">    </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-97" name="ln-97" href="#ln-97"></a><span class="w">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;source_func_lw%alloc: not initialized so can&#39;t allocate&quot;</span><span class="w"></span>
+<a id="ln-98" name="ln-98" href="#ln-98"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">any</span><span class="p">([</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">]</span><span class="w"> </span><span class="o">&lt;=</span><span class="w"> </span><span class="mi">0</span><span class="p">))</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-99" name="ln-99" href="#ln-99"></a><span class="w">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;source_func_lw%alloc: must provide positive extents for ncol, nlay&quot;</span><span class="w"></span>
+<a id="ln-100" name="ln-100" href="#ln-100"></a><span class="w">    </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-101" name="ln-101" href="#ln-101"></a>
+<a id="ln-102" name="ln-102" href="#ln-102"></a><span class="k">    if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">sfc_source</span><span class="p">))</span><span class="w">     </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">sfc_source</span><span class="p">)</span><span class="w"></span>
+<a id="ln-103" name="ln-103" href="#ln-103"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">sfc_source_Jac</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">sfc_source_Jac</span><span class="p">)</span><span class="w"></span>
+<a id="ln-104" name="ln-104" href="#ln-104"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">lay_source</span><span class="p">))</span><span class="w">     </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">lay_source</span><span class="p">)</span><span class="w"></span>
+<a id="ln-105" name="ln-105" href="#ln-105"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">lev_source_inc</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">lev_source_inc</span><span class="p">)</span><span class="w"></span>
+<a id="ln-106" name="ln-106" href="#ln-106"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">lev_source_dec</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">lev_source_dec</span><span class="p">)</span><span class="w"></span>
+<a id="ln-107" name="ln-107" href="#ln-107"></a>
+<a id="ln-108" name="ln-108" href="#ln-108"></a><span class="w">    </span><span class="n">ngpt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_ngpt</span><span class="p">()</span><span class="w"></span>
+<a id="ln-109" name="ln-109" href="#ln-109"></a><span class="w">    </span><span class="k">allocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">sfc_source</span><span class="w">    </span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w">     </span><span class="n">ngpt</span><span class="p">),</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">lay_source</span><span class="w">    </span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="n">nlay</span><span class="p">,</span><span class="n">ngpt</span><span class="p">),</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-110" name="ln-110" href="#ln-110"></a><span class="w">             </span><span class="n">this</span><span class="p">%</span><span class="n">lev_source_inc</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="n">nlay</span><span class="p">,</span><span class="n">ngpt</span><span class="p">),</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">lev_source_dec</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="n">nlay</span><span class="p">,</span><span class="n">ngpt</span><span class="p">))</span><span class="w"></span>
+<a id="ln-111" name="ln-111" href="#ln-111"></a><span class="w">    </span><span class="k">allocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">sfc_source_Jac</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w">     </span><span class="n">ngpt</span><span class="p">))</span><span class="w"></span>
+<a id="ln-112" name="ln-112" href="#ln-112"></a><span class="w">  </span><span class="k">end function </span><span class="n">alloc_lw</span><span class="w"></span>
+<a id="ln-113" name="ln-113" href="#ln-113"></a><span class="w">  </span><span class="c">! --------------------------------------------------------------</span>
+<a id="ln-114" name="ln-114" href="#ln-114"></a><span class="w">  </span><span class="k">function </span><span class="n">copy_and_alloc_lw</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="p">,</span><span class="w"> </span><span class="n">spectral_desc</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-115" name="ln-115" href="#ln-115"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_source_func_lw</span><span class="p">),</span><span class="w">    </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-116" name="ln-116" href="#ln-116"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">                     </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">nlay</span><span class="w"></span>
+<a id="ln-117" name="ln-117" href="#ln-117"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="w"> </span><span class="p">),</span><span class="w">    </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">spectral_desc</span><span class="w"></span>
+<a id="ln-118" name="ln-118" href="#ln-118"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">128</span><span class="p">)</span><span class="w">                       </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-119" name="ln-119" href="#ln-119"></a>
+<a id="ln-120" name="ln-120" href="#ln-120"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-121" name="ln-121" href="#ln-121"></a><span class="w">    </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">spectral_desc</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-122" name="ln-122" href="#ln-122"></a><span class="k">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;source_func_lw%alloc: spectral_desc not initialized&quot;</span><span class="w"></span>
+<a id="ln-123" name="ln-123" href="#ln-123"></a><span class="w">      </span><span class="k">return</span>
+<a id="ln-124" name="ln-124" href="#ln-124"></a><span class="k">    end if</span>
+<a id="ln-125" name="ln-125" href="#ln-125"></a><span class="k">    call </span><span class="n">this</span><span class="p">%</span><span class="n">finalize</span><span class="p">()</span><span class="w"></span>
+<a id="ln-126" name="ln-126" href="#ln-126"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">init</span><span class="p">(</span><span class="n">spectral_desc</span><span class="p">)</span><span class="w"></span>
+<a id="ln-127" name="ln-127" href="#ln-127"></a><span class="w">    </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-128" name="ln-128" href="#ln-128"></a><span class="k">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">alloc</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="n">nlay</span><span class="p">)</span><span class="w"></span>
+<a id="ln-129" name="ln-129" href="#ln-129"></a><span class="w">  </span><span class="k">end function </span><span class="n">copy_and_alloc_lw</span><span class="w"></span>
+<a id="ln-130" name="ln-130" href="#ln-130"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-131" name="ln-131" href="#ln-131"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-132" name="ln-132" href="#ln-132"></a><span class="w">  </span><span class="c">! Shortwave</span>
+<a id="ln-133" name="ln-133" href="#ln-133"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-134" name="ln-134" href="#ln-134"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-135" name="ln-135" href="#ln-135"></a><span class="w">  </span><span class="k">pure function </span><span class="n">is_allocated_sw</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"></span>
+<a id="ln-136" name="ln-136" href="#ln-136"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_source_func_sw</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-137" name="ln-137" href="#ln-137"></a><span class="w">    </span><span class="kt">logical</span><span class="w">                              </span><span class="kd">::</span><span class="w"> </span><span class="n">is_allocated_sw</span><span class="w"></span>
+<a id="ln-138" name="ln-138" href="#ln-138"></a>
+<a id="ln-139" name="ln-139" href="#ln-139"></a><span class="w">    </span><span class="n">is_allocated_sw</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">ty_optical_props</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">()</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-140" name="ln-140" href="#ln-140"></a><span class="w">                      </span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">toa_source</span><span class="p">)</span><span class="w"></span>
+<a id="ln-141" name="ln-141" href="#ln-141"></a><span class="w">  </span><span class="k">end function </span><span class="n">is_allocated_sw</span><span class="w"></span>
+<a id="ln-142" name="ln-142" href="#ln-142"></a><span class="w">  </span><span class="c">! --------------------------------------------------------------</span>
+<a id="ln-143" name="ln-143" href="#ln-143"></a><span class="w">  </span><span class="k">function </span><span class="n">alloc_sw</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-144" name="ln-144" href="#ln-144"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_source_func_sw</span><span class="p">),</span><span class="w">    </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-145" name="ln-145" href="#ln-145"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">                     </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ncol</span><span class="w"></span>
+<a id="ln-146" name="ln-146" href="#ln-146"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">128</span><span class="p">)</span><span class="w">                       </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-147" name="ln-147" href="#ln-147"></a>
+<a id="ln-148" name="ln-148" href="#ln-148"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-149" name="ln-149" href="#ln-149"></a><span class="w">    </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-150" name="ln-150" href="#ln-150"></a><span class="w">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;source_func_sw%alloc: not initialized so can&#39;t allocate&quot;</span><span class="w"></span>
+<a id="ln-151" name="ln-151" href="#ln-151"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">ncol</span><span class="w"> </span><span class="o">&lt;=</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-152" name="ln-152" href="#ln-152"></a><span class="w">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;source_func_sw%alloc: must provide positive extents for ncol&quot;</span><span class="w"></span>
+<a id="ln-153" name="ln-153" href="#ln-153"></a><span class="w">    </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-154" name="ln-154" href="#ln-154"></a>
+<a id="ln-155" name="ln-155" href="#ln-155"></a><span class="k">    if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">toa_source</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">toa_source</span><span class="p">)</span><span class="w"></span>
+<a id="ln-156" name="ln-156" href="#ln-156"></a>
+<a id="ln-157" name="ln-157" href="#ln-157"></a><span class="w">    </span><span class="k">allocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">toa_source</span><span class="p">(</span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_ngpt</span><span class="p">()))</span><span class="w"></span>
+<a id="ln-158" name="ln-158" href="#ln-158"></a><span class="w">  </span><span class="k">end function </span><span class="n">alloc_sw</span><span class="w"></span>
+<a id="ln-159" name="ln-159" href="#ln-159"></a><span class="w">  </span><span class="c">! --------------------------------------------------------------</span>
+<a id="ln-160" name="ln-160" href="#ln-160"></a><span class="w">  </span><span class="k">function </span><span class="n">copy_and_alloc_sw</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">ncol</span><span class="p">,</span><span class="w"> </span><span class="n">spectral_desc</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-161" name="ln-161" href="#ln-161"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_source_func_sw</span><span class="p">),</span><span class="w">    </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-162" name="ln-162" href="#ln-162"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">                     </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ncol</span><span class="w"></span>
+<a id="ln-163" name="ln-163" href="#ln-163"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_optical_props</span><span class="w"> </span><span class="p">),</span><span class="w">    </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">spectral_desc</span><span class="w"></span>
+<a id="ln-164" name="ln-164" href="#ln-164"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">128</span><span class="p">)</span><span class="w">                       </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-165" name="ln-165" href="#ln-165"></a>
+<a id="ln-166" name="ln-166" href="#ln-166"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-167" name="ln-167" href="#ln-167"></a><span class="w">    </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">spectral_desc</span><span class="p">%</span><span class="n">is_initialized</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-168" name="ln-168" href="#ln-168"></a><span class="k">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;source_func_sw%alloc: spectral_desc not initialized&quot;</span><span class="w"></span>
+<a id="ln-169" name="ln-169" href="#ln-169"></a><span class="w">      </span><span class="k">return</span>
+<a id="ln-170" name="ln-170" href="#ln-170"></a><span class="k">    end if</span>
+<a id="ln-171" name="ln-171" href="#ln-171"></a><span class="k">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">init</span><span class="p">(</span><span class="n">spectral_desc</span><span class="p">)</span><span class="w"></span>
+<a id="ln-172" name="ln-172" href="#ln-172"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-173" name="ln-173" href="#ln-173"></a><span class="k">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">alloc</span><span class="p">(</span><span class="n">ncol</span><span class="p">)</span><span class="w"></span>
+<a id="ln-174" name="ln-174" href="#ln-174"></a><span class="w">  </span><span class="k">end function </span><span class="n">copy_and_alloc_sw</span><span class="w"></span>
+<a id="ln-175" name="ln-175" href="#ln-175"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-176" name="ln-176" href="#ln-176"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-177" name="ln-177" href="#ln-177"></a><span class="w">  </span><span class="c">! Finalization (memory deallocation)</span>
+<a id="ln-178" name="ln-178" href="#ln-178"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-179" name="ln-179" href="#ln-179"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-180" name="ln-180" href="#ln-180"></a><span class="w">  </span><span class="k">subroutine </span><span class="n">finalize_lw</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"></span>
+<a id="ln-181" name="ln-181" href="#ln-181"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_source_func_lw</span><span class="p">),</span><span class="w">    </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-182" name="ln-182" href="#ln-182"></a>
+<a id="ln-183" name="ln-183" href="#ln-183"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">lay_source</span><span class="w">    </span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">lay_source</span><span class="p">)</span><span class="w"></span>
+<a id="ln-184" name="ln-184" href="#ln-184"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">lev_source_inc</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">lev_source_inc</span><span class="p">)</span><span class="w"></span>
+<a id="ln-185" name="ln-185" href="#ln-185"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">lev_source_dec</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">lev_source_dec</span><span class="p">)</span><span class="w"></span>
+<a id="ln-186" name="ln-186" href="#ln-186"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">sfc_source</span><span class="w">    </span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">sfc_source</span><span class="p">)</span><span class="w"></span>
+<a id="ln-187" name="ln-187" href="#ln-187"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">sfc_source_Jac</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">sfc_source_Jac</span><span class="p">)</span><span class="w"></span>
+<a id="ln-188" name="ln-188" href="#ln-188"></a><span class="w">    </span><span class="k">call </span><span class="n">this</span><span class="p">%</span><span class="n">ty_optical_props</span><span class="p">%</span><span class="n">finalize</span><span class="p">()</span><span class="w"></span>
+<a id="ln-189" name="ln-189" href="#ln-189"></a><span class="w">  </span><span class="k">end subroutine </span><span class="n">finalize_lw</span><span class="w"></span>
+<a id="ln-190" name="ln-190" href="#ln-190"></a><span class="w">  </span><span class="c">! --------------------------------------------------------------</span>
+<a id="ln-191" name="ln-191" href="#ln-191"></a><span class="w">  </span><span class="k">subroutine </span><span class="n">finalize_sw</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"></span>
+<a id="ln-192" name="ln-192" href="#ln-192"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_source_func_sw</span><span class="p">),</span><span class="w">    </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-193" name="ln-193" href="#ln-193"></a>
+<a id="ln-194" name="ln-194" href="#ln-194"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">toa_source</span><span class="w">    </span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">toa_source</span><span class="p">)</span><span class="w"></span>
+<a id="ln-195" name="ln-195" href="#ln-195"></a><span class="w">    </span><span class="k">call </span><span class="n">this</span><span class="p">%</span><span class="n">ty_optical_props</span><span class="p">%</span><span class="n">finalize</span><span class="p">()</span><span class="w"></span>
+<a id="ln-196" name="ln-196" href="#ln-196"></a><span class="w">  </span><span class="k">end subroutine </span><span class="n">finalize_sw</span><span class="w"></span>
+<a id="ln-197" name="ln-197" href="#ln-197"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-198" name="ln-198" href="#ln-198"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-199" name="ln-199" href="#ln-199"></a><span class="w">  </span><span class="c">!  Routines for finding the problem size</span>
+<a id="ln-200" name="ln-200" href="#ln-200"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-201" name="ln-201" href="#ln-201"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-202" name="ln-202" href="#ln-202"></a><span class="w">  </span><span class="k">pure function </span><span class="n">get_ncol_lw</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"></span>
+<a id="ln-203" name="ln-203" href="#ln-203"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_source_func_lw</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-204" name="ln-204" href="#ln-204"></a><span class="w">    </span><span class="kt">integer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_ncol_lw</span><span class="w"></span>
+<a id="ln-205" name="ln-205" href="#ln-205"></a>
+<a id="ln-206" name="ln-206" href="#ln-206"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">is_allocated</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-207" name="ln-207" href="#ln-207"></a><span class="k">      </span><span class="n">get_ncol_lw</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">lay_source</span><span class="p">,</span><span class="mi">1</span><span class="p">)</span><span class="w"></span>
+<a id="ln-208" name="ln-208" href="#ln-208"></a><span class="w">    </span><span class="k">else</span>
+<a id="ln-209" name="ln-209" href="#ln-209"></a><span class="k">      </span><span class="n">get_ncol_lw</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">0</span><span class="w"></span>
+<a id="ln-210" name="ln-210" href="#ln-210"></a><span class="w">    </span><span class="k">end if</span>
+<a id="ln-211" name="ln-211" href="#ln-211"></a><span class="k">  end function </span><span class="n">get_ncol_lw</span><span class="w"></span>
+<a id="ln-212" name="ln-212" href="#ln-212"></a><span class="w">  </span><span class="c">! --------------------------------------------------------------</span>
+<a id="ln-213" name="ln-213" href="#ln-213"></a><span class="w">  </span><span class="k">pure function </span><span class="n">get_nlay_lw</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"></span>
+<a id="ln-214" name="ln-214" href="#ln-214"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_source_func_lw</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-215" name="ln-215" href="#ln-215"></a><span class="w">    </span><span class="kt">integer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_nlay_lw</span><span class="w"></span>
+<a id="ln-216" name="ln-216" href="#ln-216"></a>
+<a id="ln-217" name="ln-217" href="#ln-217"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">is_allocated</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-218" name="ln-218" href="#ln-218"></a><span class="k">      </span><span class="n">get_nlay_lw</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">lay_source</span><span class="p">,</span><span class="mi">2</span><span class="p">)</span><span class="w"></span>
+<a id="ln-219" name="ln-219" href="#ln-219"></a><span class="w">    </span><span class="k">else</span>
+<a id="ln-220" name="ln-220" href="#ln-220"></a><span class="k">      </span><span class="n">get_nlay_lw</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">0</span><span class="w"></span>
+<a id="ln-221" name="ln-221" href="#ln-221"></a><span class="w">    </span><span class="k">end if</span>
+<a id="ln-222" name="ln-222" href="#ln-222"></a><span class="k">  end function </span><span class="n">get_nlay_lw</span><span class="w"></span>
+<a id="ln-223" name="ln-223" href="#ln-223"></a><span class="w">  </span><span class="c">! --------------------------------------------------------------</span>
+<a id="ln-224" name="ln-224" href="#ln-224"></a><span class="w">  </span><span class="k">pure function </span><span class="n">get_ncol_sw</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"></span>
+<a id="ln-225" name="ln-225" href="#ln-225"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_source_func_sw</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span><span class="w"></span>
+<a id="ln-226" name="ln-226" href="#ln-226"></a><span class="w">    </span><span class="kt">integer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_ncol_sw</span><span class="w"></span>
+<a id="ln-227" name="ln-227" href="#ln-227"></a>
+<a id="ln-228" name="ln-228" href="#ln-228"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">is_allocated</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-229" name="ln-229" href="#ln-229"></a><span class="k">      </span><span class="n">get_ncol_sw</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">toa_source</span><span class="p">,</span><span class="mi">1</span><span class="p">)</span><span class="w"></span>
+<a id="ln-230" name="ln-230" href="#ln-230"></a><span class="w">    </span><span class="k">else</span>
+<a id="ln-231" name="ln-231" href="#ln-231"></a><span class="k">      </span><span class="n">get_ncol_sw</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">0</span><span class="w"></span>
+<a id="ln-232" name="ln-232" href="#ln-232"></a><span class="w">    </span><span class="k">end if</span>
+<a id="ln-233" name="ln-233" href="#ln-233"></a><span class="k">  end function </span><span class="n">get_ncol_sw</span><span class="w"></span>
+<a id="ln-234" name="ln-234" href="#ln-234"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-235" name="ln-235" href="#ln-235"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-236" name="ln-236" href="#ln-236"></a><span class="w">  </span><span class="c">!  Routines for subsetting</span>
+<a id="ln-237" name="ln-237" href="#ln-237"></a><span class="w">  </span><span class="c">!</span>
+<a id="ln-238" name="ln-238" href="#ln-238"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-239" name="ln-239" href="#ln-239"></a><span class="w">  </span><span class="k">function </span><span class="n">get_subset_range_lw</span><span class="p">(</span><span class="n">full</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">subset</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-240" name="ln-240" href="#ln-240"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_source_func_lw</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">full</span><span class="w"></span>
+<a id="ln-241" name="ln-241" href="#ln-241"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">                  </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">start</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="w"></span>
+<a id="ln-242" name="ln-242" href="#ln-242"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_source_func_lw</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">subset</span><span class="w"></span>
+<a id="ln-243" name="ln-243" href="#ln-243"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="mi">128</span><span class="p">)</span><span class="w">                          </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-244" name="ln-244" href="#ln-244"></a>
+<a id="ln-245" name="ln-245" href="#ln-245"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-246" name="ln-246" href="#ln-246"></a><span class="w">    </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">is_allocated</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-247" name="ln-247" href="#ln-247"></a><span class="k">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;source_func_lw%subset: Asking for a subset of unallocated data&quot;</span><span class="w"></span>
+<a id="ln-248" name="ln-248" href="#ln-248"></a><span class="w">      </span><span class="k">return</span>
+<a id="ln-249" name="ln-249" href="#ln-249"></a><span class="k">    end if</span>
+<a id="ln-250" name="ln-250" href="#ln-250"></a><span class="k">    if</span><span class="p">(</span><span class="n">start</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="mi">1</span><span class="w"> </span><span class="p">.</span><span class="nb">or</span><span class="p">.</span><span class="w"> </span><span class="n">start</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">get_ncol</span><span class="p">())</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-251" name="ln-251" href="#ln-251"></a><span class="w">       </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;optical_props%subset: Asking for columns outside range&quot;</span><span class="w"></span>
+<a id="ln-252" name="ln-252" href="#ln-252"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span><span class="w"></span>
+<a id="ln-253" name="ln-253" href="#ln-253"></a>
+<a id="ln-254" name="ln-254" href="#ln-254"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-255" name="ln-255" href="#ln-255"></a><span class="w">    </span><span class="c">! Could check to see if subset is correctly sized, has consistent spectral discretization</span>
+<a id="ln-256" name="ln-256" href="#ln-256"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-257" name="ln-257" href="#ln-257"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">is_allocated</span><span class="p">())</span><span class="w"> </span><span class="k">call </span><span class="n">subset</span><span class="p">%</span><span class="n">finalize</span><span class="p">()</span><span class="w"></span>
+<a id="ln-258" name="ln-258" href="#ln-258"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">alloc</span><span class="p">(</span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">get_nlay</span><span class="p">(),</span><span class="w"> </span><span class="n">full</span><span class="p">)</span><span class="w"></span>
+<a id="ln-259" name="ln-259" href="#ln-259"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-260" name="ln-260" href="#ln-260"></a><span class="k">    </span><span class="n">subset</span><span class="p">%</span><span class="n">sfc_source</span><span class="w">    </span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">,</span><span class="w">  </span><span class="p">:)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">sfc_source</span><span class="w">    </span><span class="p">(</span><span class="n">start</span><span class="p">:</span><span class="n">start</span><span class="o">+</span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="p">,</span><span class="w">  </span><span class="p">:)</span><span class="w"></span>
+<a id="ln-261" name="ln-261" href="#ln-261"></a><span class="w">    </span><span class="n">subset</span><span class="p">%</span><span class="n">sfc_source_Jac</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">,</span><span class="w">  </span><span class="p">:)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">sfc_source_Jac</span><span class="p">(</span><span class="n">start</span><span class="p">:</span><span class="n">start</span><span class="o">+</span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="p">,</span><span class="w">  </span><span class="p">:)</span><span class="w"></span>
+<a id="ln-262" name="ln-262" href="#ln-262"></a><span class="w">    </span><span class="n">subset</span><span class="p">%</span><span class="n">lay_source</span><span class="w">    </span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">,:,:)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">lay_source</span><span class="w">    </span><span class="p">(</span><span class="n">start</span><span class="p">:</span><span class="n">start</span><span class="o">+</span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="p">,:,:)</span><span class="w"></span>
+<a id="ln-263" name="ln-263" href="#ln-263"></a><span class="w">    </span><span class="n">subset</span><span class="p">%</span><span class="n">lev_source_inc</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">,:,:)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">lev_source_inc</span><span class="p">(</span><span class="n">start</span><span class="p">:</span><span class="n">start</span><span class="o">+</span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="p">,:,:)</span><span class="w"></span>
+<a id="ln-264" name="ln-264" href="#ln-264"></a><span class="w">    </span><span class="n">subset</span><span class="p">%</span><span class="n">lev_source_dec</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">,:,:)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">lev_source_dec</span><span class="p">(</span><span class="n">start</span><span class="p">:</span><span class="n">start</span><span class="o">+</span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="p">,:,:)</span><span class="w"></span>
+<a id="ln-265" name="ln-265" href="#ln-265"></a><span class="w">  </span><span class="k">end function </span><span class="n">get_subset_range_lw</span><span class="w"></span>
+<a id="ln-266" name="ln-266" href="#ln-266"></a><span class="w">  </span><span class="c">! ------------------------------------------------------------------------------------------</span>
+<a id="ln-267" name="ln-267" href="#ln-267"></a><span class="w">  </span><span class="k">function </span><span class="n">get_subset_range_sw</span><span class="p">(</span><span class="n">full</span><span class="p">,</span><span class="w"> </span><span class="n">start</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">subset</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">err_message</span><span class="p">)</span><span class="w"></span>
+<a id="ln-268" name="ln-268" href="#ln-268"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_source_func_sw</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">full</span><span class="w"></span>
+<a id="ln-269" name="ln-269" href="#ln-269"></a><span class="w">    </span><span class="kt">integer</span><span class="p">,</span><span class="w">                  </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="w">   </span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">start</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="w"></span>
+<a id="ln-270" name="ln-270" href="#ln-270"></a><span class="w">    </span><span class="k">class</span><span class="p">(</span><span class="n">ty_source_func_sw</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">subset</span><span class="w"></span>
+<a id="ln-271" name="ln-271" href="#ln-271"></a><span class="w">    </span><span class="kt">character</span><span class="p">(</span><span class="mi">128</span><span class="p">)</span><span class="w">                          </span><span class="kd">::</span><span class="w"> </span><span class="n">err_message</span><span class="w"></span>
+<a id="ln-272" name="ln-272" href="#ln-272"></a>
+<a id="ln-273" name="ln-273" href="#ln-273"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="w"></span>
+<a id="ln-274" name="ln-274" href="#ln-274"></a><span class="w">    </span><span class="k">if</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">is_allocated</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-275" name="ln-275" href="#ln-275"></a><span class="k">      </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;source_func_sw%subset: Asking for a subset of unallocated data&quot;</span><span class="w"></span>
+<a id="ln-276" name="ln-276" href="#ln-276"></a><span class="w">      </span><span class="k">return</span>
+<a id="ln-277" name="ln-277" href="#ln-277"></a><span class="k">    end if</span>
+<a id="ln-278" name="ln-278" href="#ln-278"></a><span class="k">    if</span><span class="p">(</span><span class="n">start</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="mi">1</span><span class="w"> </span><span class="p">.</span><span class="nb">or</span><span class="p">.</span><span class="w"> </span><span class="n">start</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">get_ncol</span><span class="p">())</span><span class="w"> </span><span class="p">&amp;</span><span class="w"></span>
+<a id="ln-279" name="ln-279" href="#ln-279"></a><span class="w">       </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;optical_props%subset: Asking for columns outside range&quot;</span><span class="w"></span>
+<a id="ln-280" name="ln-280" href="#ln-280"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">err_message</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="s2">&quot;&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">return</span><span class="w"></span>
+<a id="ln-281" name="ln-281" href="#ln-281"></a>
+<a id="ln-282" name="ln-282" href="#ln-282"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-283" name="ln-283" href="#ln-283"></a><span class="w">    </span><span class="c">! Could check to see if subset is correctly sized, has consistent spectral discretization</span>
+<a id="ln-284" name="ln-284" href="#ln-284"></a><span class="w">    </span><span class="c">!</span>
+<a id="ln-285" name="ln-285" href="#ln-285"></a><span class="w">    </span><span class="k">if</span><span class="p">(</span><span class="n">subset</span><span class="p">%</span><span class="n">is_allocated</span><span class="p">())</span><span class="w"> </span><span class="k">call </span><span class="n">subset</span><span class="p">%</span><span class="n">finalize</span><span class="p">()</span><span class="w"></span>
+<a id="ln-286" name="ln-286" href="#ln-286"></a><span class="w">    </span><span class="c">! Seems like I should be able to call &quot;alloc&quot; generically but the compilers are complaining</span>
+<a id="ln-287" name="ln-287" href="#ln-287"></a><span class="w">    </span><span class="n">err_message</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">subset</span><span class="p">%</span><span class="n">copy_and_alloc_sw</span><span class="p">(</span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">full</span><span class="p">)</span><span class="w"></span>
+<a id="ln-288" name="ln-288" href="#ln-288"></a>
+<a id="ln-289" name="ln-289" href="#ln-289"></a><span class="w">    </span><span class="n">subset</span><span class="p">%</span><span class="n">toa_source</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">,</span><span class="w">  </span><span class="p">:)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">full</span><span class="p">%</span><span class="n">toa_source</span><span class="p">(</span><span class="n">start</span><span class="p">:</span><span class="n">start</span><span class="o">+</span><span class="n">n</span><span class="o">-</span><span class="mi">1</span><span class="p">,</span><span class="w">  </span><span class="p">:)</span><span class="w"></span>
+<a id="ln-290" name="ln-290" href="#ln-290"></a><span class="w">  </span><span class="k">end function </span><span class="n">get_subset_range_sw</span><span class="w"></span>
+<a id="ln-291" name="ln-291" href="#ln-291"></a><span class="k">end module </span><span class="n">mo_source_functions</span><span class="w"></span>
+</pre></div>
+
+    </section>
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/src/mo_fluxes.F90 b/reference/rte-fortran-interface/src/mo_fluxes.F90
new file mode 100644
index 000000000..b6778c6fc
--- /dev/null
+++ b/reference/rte-fortran-interface/src/mo_fluxes.F90
@@ -0,0 +1,194 @@
+! This code is part of Radiative Transfer for Energetics (RTE)
+!
+! Contacts: Robert Pincus and Eli Mlawer
+! email:  rrtmgp@aer.com
+!
+! Copyright 2015-  Atmospheric and Environmental Research and
+! Regents of the University of Colorado.  All right reserved.
+!
+! Use and duplication is permitted under the terms of the
+!    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause
+! -------------------------------------------------------------------------------------------------
+!
+!> ## Compute output quantities from spectrally-resolved flux profiles
+!>
+!>    This module contains an abstract class and a broadband implmentation that sums over all spectral points
+!>    The abstract base class defines the routines that extenstions must implement: `reduce()` and `are_desired()`
+!>    The intent is for users to extend it as required, using mo_flxues_broadband as an example
+!
+! -------------------------------------------------------------------------------------------------
+module mo_fluxes
+  use mo_rte_kind,       only: wp
+  use mo_rte_config,     only: check_extents
+  use mo_rte_util_array_validation, only: extents_are
+  use mo_optical_props,  only: ty_optical_props
+  use mo_fluxes_broadband_kernels, &
+                         only: sum_broadband, net_broadband
+  implicit none
+  private
+  ! -----------------------------------------------------------------------------------------------
+  !
+  !> Abstract base class:
+  !>   `reduce()` function accepts spectral flux profiles, computes desired outputs
+  !>   `are_desired()` returns a logical
+  !
+  ! -----------------------------------------------------------------------------------------------
+  type, abstract, public :: ty_fluxes
+  contains
+    procedure(reduce_abstract),      deferred, public :: reduce
+    procedure(are_desired_abstract), deferred, public :: are_desired
+  end type ty_fluxes
+  ! -----------------------------------------------------------------------------------------------
+  !
+  !> Class implementing broadband integration for the complete flux profile.
+  !>   Data components are pointers so results can be written directly into memory
+  !
+  ! -----------------------------------------------------------------------------------------------
+  type, extends(ty_fluxes), public :: ty_fluxes_broadband
+    real(wp), dimension(:,:), pointer :: flux_up => NULL(), flux_dn => NULL()
+    real(wp), dimension(:,:), pointer :: flux_net => NULL()    ! Net (down - up)
+    real(wp), dimension(:,:), pointer :: flux_dn_dir => NULL() ! Direct flux down
+  contains
+    procedure, public :: reduce      => reduce_broadband
+    procedure, public :: are_desired => are_desired_broadband
+  end type ty_fluxes_broadband
+  ! -----------------------------------------------------------------------------------------------
+
+  ! -----------------------------------------------------------------------------------------------
+  !
+  ! Abstract interfaces: any implemntation has to provide routines with these interfaces
+  !
+  abstract interface
+    ! -------------------
+    !
+    !> This routine takes the fully resolved calculation (detailed in spectral and vertical dimensions) and
+    !>   computes desired outputs. Output values will normally be data components of the derived type.
+    !
+    function reduce_abstract(this, gpt_flux_up, gpt_flux_dn, spectral_disc, top_at_1, gpt_flux_dn_dir) result(error_msg)
+      import ty_fluxes, ty_optical_props
+      import wp
+      class(ty_fluxes),                  intent(inout) :: this
+      real(kind=wp), dimension(:,:,:),   intent(in   ) :: gpt_flux_up ! Fluxes by gpoint [W/m2](ncol, nlay+1, ngpt)
+      real(kind=wp), dimension(:,:,:),   intent(in   ) :: gpt_flux_dn ! Fluxes by gpoint [W/m2](ncol, nlay+1, ngpt)
+      class(ty_optical_props),           intent(in   ) :: spectral_disc  !< derived type with spectral information
+      logical,                           intent(in   ) :: top_at_1
+      real(kind=wp), dimension(:,:,:), optional, &
+                                         intent(in   ) :: gpt_flux_dn_dir! Direct flux down
+      character(len=128)                               :: error_msg
+    end function reduce_abstract
+    ! -------------------
+    !
+    ! This routine determines if the reduction should proceed - it's useful in ensuring
+    !   that space has been allocated for the results, for example.
+    !
+    function are_desired_abstract(this)
+      import ty_fluxes
+      class(ty_fluxes), intent(in   ) :: this
+      logical                         :: are_desired_abstract
+    end function are_desired_abstract
+    ! ----------------------
+  end interface
+contains
+  ! --------------------------------------------------------------------------------------
+  !
+  !> Broadband fluxes -- simply sum over the spectral dimension and report the whole profile
+  !
+  ! --------------------------------------------------------------------------------------
+  function reduce_broadband(this, gpt_flux_up, gpt_flux_dn, spectral_disc, top_at_1, gpt_flux_dn_dir) result(error_msg)
+    class(ty_fluxes_broadband),        intent(inout) :: this
+    real(kind=wp), dimension(:,:,:),   intent(in   ) :: gpt_flux_up ! Fluxes by gpoint [W/m2](ncol, nlay+1, ngpt)
+    real(kind=wp), dimension(:,:,:),   intent(in   ) :: gpt_flux_dn ! Fluxes by gpoint [W/m2](ncol, nlay+1, ngpt)
+    class(ty_optical_props),           intent(in   ) :: spectral_disc  !< derived type with spectral information
+    logical,                           intent(in   ) :: top_at_1
+    real(kind=wp), dimension(:,:,:), optional, &
+                                       intent(in   ) :: gpt_flux_dn_dir! Direct flux down
+    character(len=128)                               :: error_msg
+    ! ------
+    integer :: ncol, nlev, ngpt
+
+    ! ------
+    ncol = size(gpt_flux_up, DIM=1)
+    nlev = size(gpt_flux_up, DIM=2)
+    ngpt = size(gpt_flux_up, DIM=3)
+    error_msg = ""
+
+    if(check_extents) then
+      !
+      ! Check array sizes
+      !  Input arrays
+      !
+      if(.not. extents_are(gpt_flux_dn, ncol, nlev, ngpt)) &
+        error_msg = "reduce: gpt_flux_dn array incorrectly sized"
+
+      if(present(gpt_flux_dn_dir)) then
+        if(.not. extents_are(gpt_flux_dn_dir, ncol, nlev, ngpt)) &
+          error_msg = "reduce: gpt_flux_dn_dir array incorrectly sized"
+      end if
+      !
+      ! Output arrays
+      !
+      if(associated(this%flux_up)) then
+        if(.not. extents_are(this%flux_up, ncol, nlev)) &
+          error_msg = 'reduce: flux_up array incorrectly sized'
+      end if
+      if(associated(this%flux_dn)) then
+        if(.not. extents_are(this%flux_dn, ncol, nlev)) &
+          error_msg = 'reduce: flux_dn array incorrectly sized'
+      end if
+      if(associated(this%flux_net)) then
+        if(.not. extents_are(this%flux_net, ncol, nlev)) &
+          error_msg = 'reduce: flux_net array incorrectly sized'
+      end if
+      if(associated(this%flux_dn_dir)) then
+        if(.not. extents_are(this%flux_dn_dir, ncol, nlev)) &
+          error_msg = 'reduce: flux_dn_dir array incorrectly sized'
+      end if
+
+      if(error_msg /= "") return
+    end if
+    !
+    ! Self-consistency -- shouldn't be asking for direct beam flux if it isn't supplied
+    !
+    if(associated(this%flux_dn_dir) .and. .not. present(gpt_flux_dn_dir)) then
+      error_msg = "reduce: requesting direct downward flux but this hasn't been supplied"
+      return
+    end if
+
+    !
+    ! Broadband fluxes - call the kernels
+    !
+    if(associated(this%flux_up    )) &
+      call sum_broadband(ncol, nlev, ngpt, gpt_flux_up,     this%flux_up)
+    if(associated(this%flux_dn    )) &
+      call sum_broadband(ncol, nlev, ngpt, gpt_flux_dn,     this%flux_dn)
+    if(associated(this%flux_dn_dir)) &
+      call sum_broadband(ncol, nlev, ngpt, gpt_flux_dn_dir, this%flux_dn_dir)
+
+    if(associated(this%flux_net)) then
+      !
+      !  Reuse down and up results if possible
+      !
+      if(associated(this%flux_dn) .and. associated(this%flux_up)) then
+        call net_broadband(ncol, nlev,      this%flux_dn, this%flux_up, this%flux_net)
+      else
+        call net_broadband(ncol, nlev, ngpt, gpt_flux_dn,  gpt_flux_up, this%flux_net)
+      end if
+    end if
+  end function reduce_broadband
+  ! --------------------------------------------------------------------------------------
+  !
+  !> Are any fluxes desired from this set of g-point fluxes? We can tell because memory will
+  !>   be allocated for output
+  !
+  ! --------------------------------------------------------------------------------------
+  function are_desired_broadband(this)
+    class(ty_fluxes_broadband), intent(in   ) :: this
+    logical                                   :: are_desired_broadband
+
+    are_desired_broadband = any( [associated(this%flux_up),     &
+                                  associated(this%flux_dn),     &
+                                  associated(this%flux_dn_dir), &
+                                  associated(this%flux_net)] )
+  end function are_desired_broadband
+  ! --------------------------------------------------------------------------------------
+end module mo_fluxes
diff --git a/reference/rte-fortran-interface/src/mo_optical_props.F90 b/reference/rte-fortran-interface/src/mo_optical_props.F90
new file mode 100644
index 000000000..c49fd5dc8
--- /dev/null
+++ b/reference/rte-fortran-interface/src/mo_optical_props.F90
@@ -0,0 +1,1245 @@
+! This code is part of Radiative Transfer for Energetics (RTE)
+!
+! Contacts: Robert Pincus and Eli Mlawer
+! email:  rrtmgp@aer.com
+!
+! Copyright 2015-  Atmospheric and Environmental Research,
+!    Regents of the University of Colorado,
+!    Trustees of Columbia University in the City of New York
+! All right reserved.
+!
+! Use and duplication is permitted under the terms of the
+!    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause
+! -------------------------------------------------------------------------------------------------
+!>
+!> ## Encapsulate optical properties defined on a spectral grid of N bands.
+!>
+!>   The bands are described by their limiting wavenumbers. They need not be contiguous or complete.
+!>   A band may contain more than one spectral sub-point (g-point) in which case a mapping must be supplied.
+!>   A name may be provided and will be prepended to error messages.
+!>   The base class (ty_optical_props) encapsulates only this spectral discretization and must be initialized
+!>      with the spectral information before use.
+!>
+!>   Optical properties may be represented as arrays with dimensions ncol, nlay, ngpt
+!>   (abstract class ty_optical_props_arry).
+!>   The type holds arrays depending on how much information is needed
+!>   There are three possibilites
+!>
+!> - ty_optical_props_1scl holds absorption optical depth tau, used in calculations accounting for extinction and emission
+!> - ty_optical_props_2str holds extincion optical depth tau, single-scattering albedo ssa, and
+!>        asymmetry parameter g. These fields are what's needed for two-stream calculations.
+!> - ty_optical_props_nstr holds extincion optical depth tau, single-scattering albedo ssa, and
+!>        phase function moments p with leading dimension nmom. These fields are what's needed for multi-stream calculations.
+!>
+!>   These classes must be allocated before use. Initialization and allocation can be combined.
+!>   The classes have a validate() function that checks all arrays for valid values (e.g. tau > 0.)
+!>
+!> Optical properties can be delta-scaled (though this is currently implemented only for two-stream arrays)
+!>
+!> Optical properties can increment or "add themselves to" a set of properties represented with arrays
+!>   as long as both sets have the same underlying band structure. Properties defined by band
+!>   may be added to properties defined by g-point; the same value is assumed for all g-points with each band.
+!>
+!> Subsets of optical properties held as arrays may be extracted along the column dimension.
+!>
+! Making the documentation below visible in ford, by replace ! with !>, messes up Markdown parsing above
+!@note
+!example of a note with links to other modules and variables
+!
+! 1. [[mo_rte_config(module):check_extents(variable)]] in module [[mo_rte_config]]
+!>
+!@endnote
+!> -------------------------------------------------------------------------------------------------
+module mo_optical_props
+  use mo_rte_kind,              only: wp
+  use mo_rte_config,            only: check_extents, check_values
+  use mo_rte_util_array_validation, & 
+                                only: any_vals_less_than, any_vals_outside, extents_are
+  use mo_optical_props_kernels, only: &
+        increment_1scalar_by_1scalar, increment_1scalar_by_2stream, increment_1scalar_by_nstream, &
+        increment_2stream_by_1scalar, increment_2stream_by_2stream, increment_2stream_by_nstream, &
+        increment_nstream_by_1scalar, increment_nstream_by_2stream, increment_nstream_by_nstream, &
+        inc_1scalar_by_1scalar_bybnd, inc_1scalar_by_2stream_bybnd, inc_1scalar_by_nstream_bybnd, &
+        inc_2stream_by_1scalar_bybnd, inc_2stream_by_2stream_bybnd, inc_2stream_by_nstream_bybnd, &
+        inc_nstream_by_1scalar_bybnd, inc_nstream_by_2stream_bybnd, inc_nstream_by_nstream_bybnd, &
+        delta_scale_2str_kernel, &
+        extract_subset
+  implicit none
+  private
+  integer, parameter, public :: name_len = 32
+  ! -------------------------------------------------------------------------------------------------
+  !
+  !> ### Base class for optical properties
+  !>   Describes the spectral discretization including the wavenumber limits
+  !>   of each band (spectral region) and the mapping between g-points and bands
+  !
+  ! -------------------------------------------------------------------------------------------------
+  type, public :: ty_optical_props
+    integer,  dimension(:,:), allocatable, private :: band2gpt      ! (begin g-point, end g-point) = band2gpt(2,band)
+    integer,  dimension(:),   allocatable, private :: gpt2band      ! band = gpt2band(g-point)
+    real(wp), dimension(:,:), allocatable, private :: band_lims_wvn ! (upper and lower wavenumber by band) = band_lims_wvn(2,band)
+    character(len=name_len),               private :: name = ""
+  contains
+    generic,   public  :: init => init_base, init_base_from_copy
+    procedure, private :: init_base
+    procedure, private :: init_base_from_copy
+    procedure, public  :: is_initialized => is_initialized_base
+    procedure, private :: is_initialized_base
+    procedure, public  :: finalize => finalize_base
+    procedure, private :: finalize_base
+    procedure, public  :: get_nband
+    procedure, public  :: get_ngpt
+    procedure, public  :: get_gpoint_bands
+    procedure, public  :: convert_band2gpt
+    procedure, public  :: convert_gpt2band
+    procedure, public  :: get_band_lims_gpoint
+    procedure, public  :: get_band_lims_wavenumber
+    procedure, public  :: get_band_lims_wavelength
+    procedure, public  :: bands_are_equal
+    procedure, public  :: gpoints_are_equal
+    procedure, public  :: expand
+    procedure, public  :: set_name
+    procedure, public  :: get_name
+  end type ty_optical_props
+  !----------------------------------------------------------------------------------------
+  !
+  !>### Optical properties as arrays, normally dimensioned ncol, nlay, ngpt/nbnd
+  !>   The abstract base class for arrays defines what procedures will be available
+  !
+  ! -------------------------------------------------------------------------------------------------
+  type, extends(ty_optical_props), abstract, public :: ty_optical_props_arry
+    real(wp), dimension(:,:,:), allocatable :: tau !! optical depth (ncol, nlay, ngpt)
+  contains
+    procedure, public  :: get_ncol
+    procedure, public  :: get_nlay
+    !>
+    !> Increment another set of values
+    !>
+    procedure, public  :: increment
+
+    !>
+    !> Deferred procedures -- each must be implemented in each child class with
+    !>   arguments following the abstract interface (defined below)
+    !>
+    procedure(validate_abstract),     deferred, public  :: validate
+    procedure(delta_scale_abstract),  deferred, public  :: delta_scale
+    procedure(subset_range_abstract), deferred, public  :: get_subset
+  end type ty_optical_props_arry
+  !
+  ! Interfaces for the methods to be implemented
+  !
+  abstract interface
+    !>
+    !> Validation function looks only at internal data
+    !>
+    function validate_abstract(this) result(err_message)
+      import ty_optical_props_arry
+      class(ty_optical_props_arry),  intent(in) :: this
+      character(len=128)  :: err_message
+    end function validate_abstract
+
+    !>
+    !> Delta-scaling
+    !>
+    function delta_scale_abstract(this, for) result(err_message)
+      import ty_optical_props_arry
+      import wp
+      class(ty_optical_props_arry),  intent(inout) :: this
+      real(wp), dimension(:,:,:), optional, &
+                                     intent(in   ) :: for
+      !> Forward scattering fraction; g**2 if not provided
+      character(len=128)  :: err_message
+    end function delta_scale_abstract
+
+    !>
+    !> Subsetting -- currently there are only routines with start col and count
+    !>
+    function subset_range_abstract(full, start, n, subset) result(err_message)
+      import ty_optical_props_arry
+      class(ty_optical_props_arry), intent(inout) :: full
+      integer,                      intent(in   ) :: start, n
+      class(ty_optical_props_arry), intent(inout) :: subset
+      character(128)                              :: err_message
+    end function subset_range_abstract
+  end interface
+  !>----------------------------------------------------------------------------------------
+  !>
+  !>   ty_optical_props_arry represents optical properties as arrays with dimensions
+  !>      column, height, spectral point
+  !>  - Class 1-scalar only (extinction) optical depth
+  !>  -  Class two-stream adds arrays for single scattering albedo ssa and
+  !>     asymmetry parameter needed in two-stream methods
+  !>  - Class n-stream adds arrays for single scattering albedo ssa and
+  !>     phase function moments (index 1 = g) for use with discrete ordinate methods
+  !>
+  !> -------------------------------------------------------------------------------------------------
+  type, public, extends(ty_optical_props_arry) :: ty_optical_props_1scl
+  contains
+    procedure, public  :: validate => validate_1scalar
+    procedure, public  :: get_subset => subset_1scl_range
+    procedure, public  :: delta_scale => delta_scale_1scl
+    procedure, public  :: finalize_1scl
+
+    procedure, private :: alloc_only_1scl
+    procedure, private :: init_and_alloc_1scl
+    procedure, private :: copy_and_alloc_1scl
+    generic,   public  :: alloc_1scl => alloc_only_1scl, init_and_alloc_1scl, copy_and_alloc_1scl
+  end type ty_optical_props_1scl
+
+  ! --- 2 stream ------------------------------------------------------------------------
+  type, public, extends(ty_optical_props_arry) :: ty_optical_props_2str
+    real(wp), dimension(:,:,:), allocatable :: ssa !! single-scattering albedo (ncol, nlay, ngpt)
+    real(wp), dimension(:,:,:), allocatable :: g   !! asymmetry parameter (ncol, nlay, ngpt)
+  contains
+    procedure, public  :: validate => validate_2stream
+    procedure, public  :: get_subset => subset_2str_range
+    procedure, public  :: delta_scale => delta_scale_2str
+    procedure, public  :: finalize_2str
+
+    procedure, private :: alloc_only_2str
+    procedure, private :: init_and_alloc_2str
+    procedure, private :: copy_and_alloc_2str
+    generic,   public  :: alloc_2str => alloc_only_2str, init_and_alloc_2str, copy_and_alloc_2str
+  end type ty_optical_props_2str
+
+  ! --- n stream ------------------------------------------------------------------------
+  type, public, extends(ty_optical_props_arry) :: ty_optical_props_nstr
+    real(wp), dimension(:,:,:),   allocatable :: ssa !! single-scattering albedo (ncol, nlay, ngpt)
+    real(wp), dimension(:,:,:,:), allocatable :: p   !! phase-function moments (nmom, ncol, nlay, ngpt)
+  contains
+    procedure, public :: validate => validate_nstream
+    procedure, public :: get_subset => subset_nstr_range
+    procedure, public :: delta_scale => delta_scale_nstr
+    procedure, public :: get_nmom
+    procedure, public :: finalize_nstr
+
+    procedure, private :: alloc_only_nstr
+    procedure, private :: init_and_alloc_nstr
+    procedure, private :: copy_and_alloc_nstr
+    generic,   public  :: alloc_nstr => alloc_only_nstr, init_and_alloc_nstr, copy_and_alloc_nstr
+  end type ty_optical_props_nstr
+  ! -------------------------------------------------------------------------------------------------
+contains
+  ! -------------------------------------------------------------------------------------------------
+  !
+  !  Routines for the base class: initialization, validity checking, finalization
+  !
+  !> -------------------------------------------------------------------------------------------------
+  !>
+  !> Base class: Initialization
+  !>   Values are assumed to be defined in bands a mapping between bands and g-points is provided
+  !>
+  !> -------------------------------------------------------------------------------------------------
+  function init_base(this, band_lims_wvn, band_lims_gpt, name) result(err_message)
+    class(ty_optical_props),    intent(inout) :: this
+    real(wp), dimension(:,:),   intent(in   ) :: band_lims_wvn
+    integer,  dimension(:,:), &
+                      optional, intent(in   ) :: band_lims_gpt
+    character(len=*), optional, intent(in   ) :: name
+    character(len = 128)                      :: err_message
+
+    integer :: iband
+    integer, dimension(2, size(band_lims_wvn, 2)) :: band_lims_gpt_lcl
+    ! -------------------------
+    !
+    ! Error checking -- are the arrays the size we expect, contain positive values?
+    !
+    err_message = ""
+    if(size(band_lims_wvn,1) /= 2) &
+      err_message = "optical_props%init(): band_lims_wvn 1st dim should be 2"
+    if (check_values) then
+      if(any_vals_less_than(band_lims_wvn, 0._wp) ) &
+        err_message = "optical_props%init(): band_lims_wvn has values <  0., respectively"
+    end if
+    if(err_message /="") return
+    if(present(band_lims_gpt)) then
+      if (check_extents) then
+        if(.not. extents_are(band_lims_gpt, 2, size(band_lims_wvn,2))) &
+          err_message = "optical_props%init(): band_lims_gpt size inconsistent with band_lims_wvn"
+      end if
+      if (check_values) then
+        if(any(band_lims_gpt < 1) ) &
+          err_message = "optical_props%init(): band_lims_gpt has values < 1"
+      end if
+      if(err_message /= "") return
+
+      band_lims_gpt_lcl(:,:) = band_lims_gpt(:,:)
+    else
+      !
+      ! Assume that values are defined by band, one g-point per band
+      !
+      do iband = 1, size(band_lims_wvn, 2)
+        band_lims_gpt_lcl(1:2,iband) = iband
+      end do
+    end if
+    !
+    ! Assignment
+    !
+    if(allocated(this%band2gpt     )) deallocate(this%band2gpt)
+    if(allocated(this%band_lims_wvn)) deallocate(this%band_lims_wvn)
+    allocate(this%band2gpt     (2,size(band_lims_wvn,2)), &
+             this%band_lims_wvn(2,size(band_lims_wvn,2)))
+    this%band2gpt      = band_lims_gpt_lcl
+    this%band_lims_wvn = band_lims_wvn
+    if(present(name)) this%name = trim(name)
+
+    !
+    ! Make a map between g-points and bands
+    !   Efficient only when g-point indexes start at 1 and are contiguous.
+    !
+    if(allocated(this%gpt2band)) deallocate(this%gpt2band)
+    allocate(this%gpt2band(maxval(band_lims_gpt_lcl)))
+    do iband=1,size(band_lims_gpt_lcl,dim=2)
+      this%gpt2band(band_lims_gpt_lcl(1,iband):band_lims_gpt_lcl(2,iband)) = iband
+    end do
+  end function init_base
+  !-------------------------------------------------------------------------------------------------
+  function init_base_from_copy(this, spectral_desc) result(err_message)
+    class(ty_optical_props),    intent(inout) :: this
+    class(ty_optical_props),    intent(in   ) :: spectral_desc
+  character(len = 128)                        :: err_message
+
+    if(.not. spectral_desc%is_initialized()) then
+      err_message = "optical_props%init(): can't initialize based on un-initialized input"
+      return
+    else
+      err_message = this%init(spectral_desc%get_band_lims_wavenumber(), &
+                              spectral_desc%get_band_lims_gpoint())
+    end if
+  end function init_base_from_copy
+  !>-------------------------------------------------------------------------------------------------
+  !>
+  !> Base class: return true if initialized, false otherwise
+  !>
+  !> -------------------------------------------------------------------------------------------------
+  pure function is_initialized_base(this)
+    class(ty_optical_props), intent(in) :: this
+    logical                             :: is_initialized_base
+
+    is_initialized_base = allocated(this%band2gpt)
+  end function is_initialized_base
+  !>-------------------------------------------------------------------------------------------------
+  !>
+  !> Base class: finalize (deallocate memory)
+  !>
+  !> -------------------------------------------------------------------------------------------------
+  subroutine finalize_base(this)
+    class(ty_optical_props),    intent(inout) :: this
+
+    if(allocated(this%band2gpt)) deallocate(this%band2gpt)
+    if(allocated(this%gpt2band)) deallocate(this%gpt2band)
+    if(allocated(this%band_lims_wvn)) &
+                                 deallocate(this%band_lims_wvn)
+    this%name = ""
+  end subroutine finalize_base
+  ! ------------------------------------------------------------------------------------------
+  !
+  !  Routines for array classes: initialization, allocation, and finalization
+  !    Initialization and allocation can be combined by supplying either
+  !
+  !> ------------------------------------------------------------------------------------------
+  !>
+  !> Straight allocation routines
+  !>
+  !> --- 1 scalar ------------------------------------------------------------------------
+  function alloc_only_1scl(this, ncol, nlay) result(err_message)
+    class(ty_optical_props_1scl) :: this
+    integer,          intent(in) :: ncol, nlay
+    character(len=128)           :: err_message
+
+    err_message = ""
+    if(.not. this%is_initialized()) then
+      err_message = "optical_props%alloc: spectral discretization hasn't been provided"
+      return
+    end if
+    if(any([ncol, nlay] <= 0)) then
+      err_message = "optical_props%alloc: must provide positive extents for ncol, nlay"
+    else
+      if(allocated(this%tau)) deallocate(this%tau)
+      allocate(this%tau(ncol,nlay,this%get_ngpt()))
+    end if
+  end function alloc_only_1scl
+
+  !> --- 2 stream ------------------------------------------------------------------------
+  function alloc_only_2str(this, ncol, nlay) result(err_message)
+    class(ty_optical_props_2str)    :: this
+    integer,             intent(in) :: ncol, nlay
+    character(len=128)              :: err_message
+
+    err_message = ""
+    if(.not. this%is_initialized()) &
+      err_message = "optical_props%alloc: spectral discretization hasn't been provided"
+    if(any([ncol, nlay] <= 0)) &
+      err_message = "optical_props%alloc: must provide positive extents for ncol, nlay"
+    if(err_message /= "") return
+
+    if(allocated(this%tau)) deallocate(this%tau)
+    allocate(this%tau(ncol,nlay,this%get_ngpt()))
+    if(allocated(this%ssa)) deallocate(this%ssa)
+    if(allocated(this%g  )) deallocate(this%g  )
+    allocate(this%ssa(ncol,nlay,this%get_ngpt()), this%g(ncol,nlay,this%get_ngpt()))
+  end function alloc_only_2str
+
+  !> --- n stream ------------------------------------------------------------------------
+  function alloc_only_nstr(this, nmom, ncol, nlay) result(err_message)
+    class(ty_optical_props_nstr)    :: this
+    integer,             intent(in) :: nmom ! number of moments
+    integer,             intent(in) :: ncol, nlay
+    character(len=128)              :: err_message
+
+    err_message = ""
+    if(.not. this%is_initialized()) &
+      err_message = "optical_props%alloc: spectral discretization hasn't been provided"
+    if(any([ncol, nlay] <= 0)) &
+      err_message = "optical_props%alloc: must provide positive extents for ncol, nlay"
+    if(err_message /= "") return
+
+    if(allocated(this%tau)) deallocate(this%tau)
+    allocate(this%tau(ncol,nlay,this%get_ngpt()))
+    if(allocated(this%ssa)) deallocate(this%ssa)
+    if(allocated(this%p  )) deallocate(this%p  )
+    allocate(this%ssa(ncol,nlay,this%get_ngpt()), this%p(nmom,ncol,nlay,this%get_ngpt()))
+  end function alloc_only_nstr
+  ! ------------------------------------------------------------------------------------------
+  !
+  ! Combined allocation/initialization routines
+  !
+  !> ------------------------------------------------------------------------------------------
+  !>
+  !> Initialization by specifying band limits and possibly g-point/band mapping
+  !>
+  !> ---------------------------------------------------------------------------
+  function init_and_alloc_1scl(this, ncol, nlay, band_lims_wvn, band_lims_gpt, name) result(err_message)
+    class(ty_optical_props_1scl)             :: this
+    integer,                      intent(in) :: ncol, nlay
+    real(wp), dimension(:,:),     intent(in) :: band_lims_wvn
+    integer,  dimension(:,:), &
+                      optional,   intent(in) :: band_lims_gpt
+    character(len=*), optional,   intent(in) :: name
+    character(len=128)                       :: err_message
+
+    err_message = this%ty_optical_props%init(band_lims_wvn, &
+                                             band_lims_gpt, name)
+    if(err_message /= "") return
+    err_message = this%alloc_1scl(ncol, nlay)
+  end function init_and_alloc_1scl
+  ! ---------------------------------------------------------------------------
+  function init_and_alloc_2str(this, ncol, nlay, band_lims_wvn, band_lims_gpt, name) result(err_message)
+    class(ty_optical_props_2str)             :: this
+    integer,                      intent(in) :: ncol, nlay
+    real(wp), dimension(:,:),     intent(in) :: band_lims_wvn
+    integer,  dimension(:,:), &
+                      optional,   intent(in) :: band_lims_gpt
+    character(len=*), optional,   intent(in) :: name
+    character(len=128)                       :: err_message
+
+    err_message = this%ty_optical_props%init(band_lims_wvn, &
+                                             band_lims_gpt, name)
+    if(err_message /= "") return
+    err_message = this%alloc_2str(ncol, nlay)
+  end function init_and_alloc_2str
+  ! ---------------------------------------------------------------------------
+  function init_and_alloc_nstr(this, nmom, ncol, nlay, band_lims_wvn, band_lims_gpt, name) result(err_message)
+    class(ty_optical_props_nstr)             :: this
+    integer,                      intent(in) :: nmom, ncol, nlay
+    real(wp), dimension(:,:),     intent(in) :: band_lims_wvn
+    integer,  dimension(:,:), &
+                      optional,   intent(in) :: band_lims_gpt
+    character(len=*), optional,   intent(in) :: name
+    character(len=128)                       :: err_message
+
+    err_message = this%ty_optical_props%init(band_lims_wvn, &
+                                             band_lims_gpt, name)
+    if(err_message /= "") return
+    err_message = this%alloc_nstr(nmom, ncol, nlay)
+  end function init_and_alloc_nstr
+  !>-------------------------------------------------------------------------------------------------
+  !>
+  !> Initialization from an existing spectral discretization/ty_optical_props
+  !>
+  !>-------------------------------------------------------------------------------------------------
+  function copy_and_alloc_1scl(this, ncol, nlay, spectral_desc, name) result(err_message)
+    class(ty_optical_props_1scl)             :: this
+    integer,                      intent(in) :: ncol, nlay
+    class(ty_optical_props     ), intent(in) :: spectral_desc
+    character(len=*), optional,   intent(in) :: name
+    character(len=128)                       :: err_message
+
+    err_message = ""
+    if(this%ty_optical_props%is_initialized()) call this%ty_optical_props%finalize()
+    err_message = this%ty_optical_props%init(spectral_desc%get_band_lims_wavenumber(), &
+                                             spectral_desc%get_band_lims_gpoint(), name)
+    if(err_message /= "") return
+    err_message = this%alloc_1scl(ncol, nlay)
+  end function copy_and_alloc_1scl
+  ! ---------------------------------------------------------------------------
+  function copy_and_alloc_2str(this, ncol, nlay, spectral_desc, name) result(err_message)
+    class(ty_optical_props_2str)             :: this
+    integer,                      intent(in) :: ncol, nlay
+    class(ty_optical_props     ), intent(in) :: spectral_desc
+    character(len=*), optional,   intent(in) :: name
+    character(len=128)                       :: err_message
+
+    err_message = ""
+    if(this%ty_optical_props%is_initialized()) call this%ty_optical_props%finalize()
+    err_message = this%ty_optical_props%init(spectral_desc%get_band_lims_wavenumber(), &
+                                             spectral_desc%get_band_lims_gpoint(), name)
+    if(err_message /= "") return
+    err_message = this%alloc_2str(ncol, nlay)
+  end function copy_and_alloc_2str
+  ! ---------------------------------------------------------------------------
+  function copy_and_alloc_nstr(this, nmom, ncol, nlay, spectral_desc, name) result(err_message)
+    class(ty_optical_props_nstr)             :: this
+    integer,                      intent(in) :: nmom, ncol, nlay
+    class(ty_optical_props     ), intent(in) :: spectral_desc
+    character(len=*), optional,   intent(in) :: name
+    character(len=128)                       :: err_message
+
+    err_message = ""
+    if(this%ty_optical_props%is_initialized()) call this%ty_optical_props%finalize()
+    err_message = this%ty_optical_props%init(spectral_desc%get_band_lims_wavenumber(), &
+                                             spectral_desc%get_band_lims_gpoint(), name)
+    if(err_message /= "") return
+    err_message = this%alloc_nstr(nmom, ncol, nlay)
+  end function copy_and_alloc_nstr
+  !> ------------------------------------------------------------------------------------------
+  !>
+  !> Finalize routines
+  !>
+  !> ------------------------------------------------------------------------------------------
+  function finalize_1scl(this) result(err_message)
+    class(ty_optical_props_1scl) :: this
+    character(len=128)           :: err_message
+
+    if(allocated(this%tau)) deallocate(this%tau)
+    err_message = ""
+  end function finalize_1scl
+  ! ---------------------------------------------------------------------------
+  function finalize_2str(this) result(err_message)
+    class(ty_optical_props_2str) :: this
+    character(len=128)           :: err_message
+
+    if(allocated(this%tau)) deallocate(this%tau)
+    if(allocated(this%ssa)) deallocate(this%ssa)
+    if(allocated(this%g  )) deallocate(this%g  )
+    err_message = ""
+  end function finalize_2str
+  ! ---------------------------------------------------------------------------
+  function finalize_nstr(this) result(err_message)
+    class(ty_optical_props_nstr) :: this
+    character(len=128)           :: err_message
+
+    if(allocated(this%tau)) deallocate(this%tau)
+    if(allocated(this%ssa)) deallocate(this%ssa)
+    if(allocated(this%p  )) deallocate(this%p  )
+    err_message = ""
+  end function finalize_nstr
+  ! ------------------------------------------------------------------------------------------
+  !
+  !  Routines for array classes: delta-scaling, validation (ensuring all values can be used )
+  !
+  !> ------------------------------------------------------------------------------------------
+  !> --- delta scaling
+  !> ------------------------------------------------------------------------------------------
+  function delta_scale_1scl(this, for) result(err_message)
+    class(ty_optical_props_1scl), intent(inout) :: this
+    real(wp), dimension(:,:,:), optional, &
+                                  intent(in   ) :: for
+    character(128)                              :: err_message
+    !
+    ! Nothing to do
+    !
+    err_message = ""
+  end function delta_scale_1scl
+  ! ------------------------------------------------------------------------------------------
+  function delta_scale_2str(this, for) result(err_message)
+    class(ty_optical_props_2str), intent(inout) :: this
+    real(wp), dimension(:,:,:), optional, &
+                                  intent(in   ) :: for
+    !! Forward scattering fraction; g**2 if not provided
+    character(128)                              :: err_message
+
+    integer :: ncol, nlay, ngpt
+    ! --------------------------------
+    ncol = this%get_ncol()
+    nlay = this%get_nlay()
+    ngpt = this%get_ngpt()
+    err_message = ""
+
+    if(present(for)) then
+      if (check_extents) then
+        if(.not. extents_are(for, ncol, nlay, ngpt)) then
+        err_message = "delta_scale: dimension of 'for' don't match optical properties arrays"
+        return
+      end if
+    end if
+    if (check_values) then
+      if(any_vals_outside(for, 0._wp, 1._wp)) then
+        err_message = "delta_scale: values of 'for' out of bounds [0,1]"
+        return
+      end if
+    end if
+      call delta_scale_2str_kernel(ncol, nlay, ngpt, this%tau, this%ssa, this%g, for)
+    else
+      call delta_scale_2str_kernel(ncol, nlay, ngpt, this%tau, this%ssa, this%g)
+    end if
+
+  end function delta_scale_2str
+  ! ------------------------------------------------------------------------------------------
+  function delta_scale_nstr(this, for) result(err_message)
+    class(ty_optical_props_nstr), intent(inout) :: this
+    real(wp), dimension(:,:,:), optional, &
+                                 intent(in   ) :: for
+    character(128)                             :: err_message
+
+    err_message = 'delta_scale_nstr: Not yet implemented'
+  end function delta_scale_nstr
+  !> ------------------------------------------------------------------------------------------
+  !>
+  !> --- Validation
+  !>
+  !> ------------------------------------------------------------------------------------------
+  function validate_1scalar(this) result(err_message)
+    class(ty_optical_props_1scl), intent(in) :: this
+    character(len=128)                       :: err_message
+
+    err_message = ''
+    if(.not. allocated(this%tau)) then
+      err_message = "validate: tau not allocated/initialized"
+      return
+    end if
+    if (check_values) then
+      if(any_vals_less_than(this%tau, 0._wp)) &
+      err_message = "validate: tau values out of range"
+    end if
+    if(len_trim(err_message) > 0 .and. len_trim(this%get_name()) > 0) &
+      err_message = trim(this%get_name()) // ': ' // trim(err_message)
+
+  end function validate_1scalar
+  ! ------------------------------------------------------------------------------------------
+  function validate_2stream(this) result(err_message)
+    class(ty_optical_props_2str), intent(in) :: this
+    character(len=128)                       :: err_message
+
+    integer :: d1, d2, d3
+
+    err_message = ''
+    !
+    ! Array allocation status, sizing
+    !
+    if(check_extents) then
+      if(.not. all([allocated(this%tau), allocated(this%ssa), allocated(this%g)])) then
+        err_message = "validate: arrays not allocated/initialized"
+        return
+      end if
+      d1 = size(this%tau, 1)
+      d2 = size(this%tau, 2)
+      d3 = size(this%tau, 3)
+      if(.not. extents_are(this%ssa, d1, d2, d3) .or. &
+        .not. extents_are(this%g  , d1, d2, d3))     &
+      err_message = "validate: arrays not sized consistently"
+    end if
+    !
+    ! Valid values
+    !
+    if (check_values) then
+      if(any_vals_less_than(this%tau,  0._wp)) &
+        err_message = "validate: tau values out of range"
+      if(any_vals_outside  (this%ssa,  0._wp, 1._wp)) &
+        err_message = "validate: ssa values out of range"
+      if(any_vals_outside  (this%g  , -1._wp, 1._wp)) &
+        err_message = "validate: g values out of range"
+    end if
+
+    if(len_trim(err_message) > 0 .and. len_trim(this%get_name()) > 0) &
+      err_message = trim(this%get_name()) // ': ' // trim(err_message)
+
+  end function validate_2stream
+
+  ! ------------------------------------------------------------------------------------------
+  function validate_nstream(this) result(err_message)
+    class(ty_optical_props_nstr), intent(in) :: this
+    character(len=128)                       :: err_message
+
+    integer :: d1, d2, d3, d4
+
+    err_message = ''
+    !
+    ! Array allocation status, sizing
+    !
+    if(.not. all([allocated(this%tau), allocated(this%ssa), allocated(this%p)])) then
+      err_message = "validate: arrays not allocated/initialized"
+      return
+    end if
+    d1 = size(this%tau, 1)
+    d2 = size(this%tau, 2)
+    d3 = size(this%tau, 3)
+    d4 = size(this%p,   1)
+    if (check_extents) then
+      if(.not. extents_are(this%ssa, d1, d2, d3) .or. &
+        .not. extents_are(this%p  , d4, d1, d2, d3))     &
+      err_message = "validate: arrays not sized consistently"
+    end if
+    !
+    ! Valid values
+    !
+    if (check_values) then
+      if(any_vals_less_than(this%tau,  0._wp)) &
+        err_message = "validate: tau values out of range"
+      if(any_vals_outside  (this%ssa,  0._wp, 1._wp)) &
+        err_message = "validate: ssa values out of range"
+      if(any_vals_outside  (this%p(1,:,:,:), -1._wp, 1._wp)) &
+        err_message = "validate: p(1,:,:,:)  = g values out of range"
+    end if
+
+    if(len_trim(err_message) > 0 .and. len_trim(this%get_name()) > 0) &
+        err_message = trim(this%get_name()) // ': ' // trim(err_message)
+  end function validate_nstream
+
+  ! ------------------------------------------------------------------------------------------
+  !
+  !  Routines for array classes: subsetting of optical properties arrays along x (col) direction
+  !
+  ! Allocate class, then arrays; copy. Could probably be more efficient if
+  !   classes used pointers internally.
+  !
+  ! This set takes start position and number as scalars
+  !
+  ! ------------------------------------------------------------------------------------------
+
+  function subset_1scl_range(full, start, n, subset) result(err_message)
+    class(ty_optical_props_1scl), intent(inout) :: full
+    integer,                      intent(in   ) :: start, n
+    class(ty_optical_props_arry), intent(inout) :: subset
+    character(128)                              :: err_message
+
+    integer :: ncol, nlay, ngpt, nmom
+
+    err_message = ""
+    if(.not. full%is_initialized()) then
+      err_message = "optical_props%subset: Asking for a subset of uninitialized data"
+      return
+    end if
+    ncol = full%get_ncol()
+    nlay = full%get_nlay()
+    ngpt = full%get_ngpt()
+    if(start < 1 .or. start + n-1 > full%get_ncol()) &
+       err_message = "optical_props%subset: Asking for columns outside range"
+    if(err_message /= "") return
+
+    if(subset%is_initialized()) call subset%finalize()
+    err_message = subset%init(full)
+    ! Seems like the deallocation statements should be needed under Fortran 2003
+    !   but Intel compiler doesn't run without them
+    if(allocated(subset%tau)) deallocate(subset%tau)
+    select type (subset)
+      class is (ty_optical_props_1scl)
+        err_message = subset%alloc_1scl(n, nlay)
+        if(err_message /= "") return
+      class is (ty_optical_props_2str)
+        if(allocated(subset%ssa)) deallocate(subset%ssa)
+        if(allocated(subset%g  )) deallocate(subset%g  )
+        err_message = subset%alloc_2str(n, nlay)
+        if(err_message /= "") return
+        subset%ssa(1:n,:,:) = 0._wp
+        subset%g  (1:n,:,:) = 0._wp
+      class is (ty_optical_props_nstr)
+        if(allocated(subset%ssa)) deallocate(subset%ssa)
+        if(allocated(subset%p  )) then
+          nmom = subset%get_nmom()
+          deallocate(subset%p  )
+        else
+          nmom = 1
+        end if
+        err_message = subset%alloc_nstr(nmom, n, nlay)
+        if(err_message /= "") return
+        subset%ssa(1:n,:,:) = 0._wp
+        subset%p(:,1:n,:,:) = 0._wp
+    end select
+    call extract_subset(ncol, nlay, ngpt, full%tau, start, start+n-1, subset%tau)
+
+  end function subset_1scl_range
+  ! ------------------------------------------------------------------------------------------
+  function subset_2str_range(full, start, n, subset) result(err_message)
+    class(ty_optical_props_2str), intent(inout) :: full
+    integer,                      intent(in   ) :: start, n
+    class(ty_optical_props_arry), intent(inout) :: subset
+    character(128)                              :: err_message
+
+    integer :: ncol, nlay, ngpt, nmom
+
+    err_message = ""
+    if(.not. full%is_initialized()) then
+      err_message = "optical_props%subset: Asking for a subset of uninitialized data"
+      return
+    end if
+    ncol = full%get_ncol()
+    nlay = full%get_nlay()
+    ngpt = full%get_ngpt()
+    if(start < 1 .or. start + n-1 > full%get_ncol()) &
+       err_message = "optical_props%subset: Asking for columns outside range"
+    if(err_message /= "") return
+
+    if(subset%is_initialized()) call subset%finalize()
+    err_message = subset%init(full)
+    select type (subset)
+      class is (ty_optical_props_1scl)
+        err_message = subset%alloc_1scl(n, nlay)
+        if(err_message /= "") return
+        call extract_subset(ncol, nlay, ngpt, full%tau, full%ssa, start, start+n-1, subset%tau)
+      class is (ty_optical_props_2str)
+        if(allocated(subset%ssa)) deallocate(subset%ssa)
+        if(allocated(subset%g  )) deallocate(subset%g  )
+        err_message = subset%alloc_2str(n, nlay)
+        if(err_message /= "") return
+        call extract_subset(ncol, nlay, ngpt, full%tau, start, start+n-1, subset%tau)
+        call extract_subset(ncol, nlay, ngpt, full%ssa, start, start+n-1, subset%ssa)
+        call extract_subset(ncol, nlay, ngpt, full%g  , start, start+n-1, subset%g  )
+      class is (ty_optical_props_nstr)
+        if(allocated(subset%ssa)) deallocate(subset%ssa)
+        if(allocated(subset%p  )) then
+          nmom = subset%get_nmom()
+          deallocate(subset%p  )
+        else
+          nmom = 1
+        end if
+        err_message = subset%alloc_nstr(nmom, n, nlay)
+        if(err_message /= "") return
+        call extract_subset(ncol, nlay, ngpt, full%tau, start, start+n-1, subset%tau)
+        call extract_subset(ncol, nlay, ngpt, full%ssa, start, start+n-1, subset%ssa)
+        subset%p(1,1:n,:,:) = full%g  (start:start+n-1,:,:)
+        subset%p(2:,:, :,:) = 0._wp
+    end select
+
+  end function subset_2str_range
+  ! ------------------------------------------------------------------------------------------
+  function subset_nstr_range(full, start, n, subset) result(err_message)
+    class(ty_optical_props_nstr), intent(inout) :: full
+    integer,                      intent(in   ) :: start, n
+    class(ty_optical_props_arry), intent(inout) :: subset
+    character(128)                              :: err_message
+
+    integer :: ncol, nlay, ngpt, nmom
+
+    err_message = ""
+    if(.not. full%is_initialized()) then
+      err_message = "optical_props%subset: Asking for a subset of uninitialized data"
+      return
+    end if
+    ncol = full%get_ncol()
+    nlay = full%get_nlay()
+    ngpt = full%get_ngpt()
+    if(start < 1 .or. start + n-1 > full%get_ncol()) &
+       err_message = "optical_props%subset: Asking for columns outside range"
+    if(err_message /= "") return
+
+    if(subset%is_initialized()) call subset%finalize()
+    err_message = subset%init(full)
+    if(allocated(subset%tau)) deallocate(subset%tau)
+    select type (subset)
+      class is (ty_optical_props_1scl)
+        err_message = subset%alloc_1scl(n, nlay)
+        if(err_message /= "") return
+        call extract_subset(ncol, nlay, ngpt, full%tau, full%ssa, start, start+n-1, subset%tau)
+      class is (ty_optical_props_2str)
+        if(allocated(subset%ssa)) deallocate(subset%ssa)
+        if(allocated(subset%g  )) deallocate(subset%g  )
+        err_message = subset%alloc_2str(n, nlay)
+        if(err_message /= "") return
+        call extract_subset(ncol, nlay, ngpt, full%tau, start, start+n-1, subset%tau)
+        call extract_subset(ncol, nlay, ngpt, full%ssa, start, start+n-1, subset%ssa)
+        subset%g  (1:n,:,:) = full%p(1,start:start+n-1,:,:)
+      class is (ty_optical_props_nstr)
+        if(allocated(subset%ssa)) deallocate(subset%ssa)
+        if(allocated(subset%p  )) deallocate(subset%p  )
+        err_message = subset%alloc_nstr(nmom, n, nlay)
+        if(err_message /= "") return
+        call extract_subset(      ncol, nlay, ngpt, full%tau, start, start+n-1, subset%tau)
+        call extract_subset(      ncol, nlay, ngpt, full%ssa, start, start+n-1, subset%ssa)
+        call extract_subset(nmom, ncol, nlay, ngpt, full%p  , start, start+n-1, subset%p  )
+    end select
+  end function subset_nstr_range
+
+  !> ------------------------------------------------------------------------------------------
+  !>
+  !>  Routines for array classes: incrementing
+  !>   a%increment(b) adds the values of a to b, changing b and leaving a untouched
+  !>
+  !> -----------------------------------------------------------------------------------------
+  function increment(op_in, op_io) result(err_message)
+    class(ty_optical_props_arry), intent(in   ) :: op_in
+    class(ty_optical_props_arry), intent(inout) :: op_io
+    character(128)                              :: err_message
+    ! -----
+    integer :: ncol, nlay, ngpt
+    ! -----
+    err_message = ""
+    if(.not. op_in%is_initialized()) &
+      err_message = "ty_optical_props%increment: Incrementing optical properties aren't initialized"
+    if(.not. op_in%is_initialized()) &
+      err_message = "ty_optical_props%increment: optical properties to be incremented aren't initialized"
+    if(err_message /= "")  return
+
+    ncol = op_io%get_ncol()
+    nlay = op_io%get_nlay()
+    ngpt = op_io%get_ngpt()
+    if(.not. op_in%bands_are_equal(op_io)) &
+      err_message = "ty_optical_props%increment: optical properties objects have different band structures"
+    if(.not. all([op_in%get_ncol(), op_in%get_nlay()] == [ncol, nlay])) &
+      err_message = "ty_optical_props%increment: optical properties objects have different ncol and/or nlay"
+    if(err_message /= "")  return
+
+    if(op_in%gpoints_are_equal(op_io)) then
+      !
+      ! Increment by gpoint
+      !   (or by band if both op_in and op_io are defined that way)
+      !
+      select type (op_io)
+      class is (ty_optical_props_1scl)
+          select type (op_in)
+           class is (ty_optical_props_1scl)
+             call increment_1scalar_by_1scalar(ncol, nlay, ngpt, &
+                                               op_io%tau,          &
+                                               op_in%tau)
+           class is (ty_optical_props_2str)
+             call increment_1scalar_by_2stream(ncol, nlay, ngpt, &
+                                               op_io%tau,          &
+                                               op_in%tau, op_in%ssa)
+
+           class is (ty_optical_props_nstr)
+             call increment_1scalar_by_nstream(ncol, nlay, ngpt, &
+                                               op_io%tau,          &
+                                               op_in%tau, op_in%ssa)
+          end select
+      class is (ty_optical_props_2str)
+        select type (op_in)
+          class is (ty_optical_props_1scl)
+            call increment_2stream_by_1scalar(ncol, nlay, ngpt,   &
+                                              op_io%tau, op_io%ssa,&
+                                              op_in%tau)
+          class is (ty_optical_props_2str)
+            call increment_2stream_by_2stream(ncol, nlay, ngpt,        &
+                                              op_io%tau, op_io%ssa, op_io%g, &
+                                              op_in%tau, op_in%ssa, op_in%g)
+          class is (ty_optical_props_nstr)
+            call increment_2stream_by_nstream(ncol, nlay, ngpt, op_in%get_nmom(), &
+                                              op_io%tau, op_io%ssa, op_io%g, &
+                                              op_in%tau, op_in%ssa, op_in%p)
+        end select
+
+      class is (ty_optical_props_nstr)
+        select type (op_in)
+          class is (ty_optical_props_1scl)
+            call increment_nstream_by_1scalar(ncol, nlay, ngpt, &
+                                              op_io%tau, op_io%ssa, &
+                                              op_in%tau)
+          class is (ty_optical_props_2str)
+            call increment_nstream_by_2stream(ncol, nlay, ngpt, op_io%get_nmom(), &
+                                              op_io%tau, op_io%ssa, op_io%p, &
+                                              op_in%tau, op_in%ssa, op_in%g)
+          class is (ty_optical_props_nstr)
+            call increment_nstream_by_nstream(ncol, nlay, ngpt, op_io%get_nmom(), op_in%get_nmom(), &
+                                              op_io%tau, op_io%ssa, op_io%p, &
+                                              op_in%tau, op_in%ssa, op_in%p)
+        end select
+      end select
+    else
+      !
+      ! Values defined by-band will have ngpt() = nband()
+      ! We can use values by band in op_in to increment op_io
+      !   Anything else is an error
+      !
+      if(op_in%get_ngpt() /= op_io%get_nband()) then
+        err_message = "ty_optical_props%increment: optical properties objects have incompatible g-point structures"
+        return
+      end if
+      !
+      ! Increment by band
+      !
+      select type (op_io)
+        class is (ty_optical_props_1scl)
+          select type (op_in)
+          class is (ty_optical_props_1scl)
+              call inc_1scalar_by_1scalar_bybnd(ncol, nlay, ngpt, &
+                                                op_io%tau,          &
+                                                op_in%tau,          &
+                                                op_io%get_nband(), op_io%get_band_lims_gpoint())
+            class is (ty_optical_props_2str)
+              call inc_1scalar_by_2stream_bybnd(ncol, nlay, ngpt, &
+                                                op_io%tau,          &
+                                                op_in%tau, op_in%ssa, &
+                                                op_io%get_nband(), op_io%get_band_lims_gpoint())
+            class is (ty_optical_props_nstr)
+              call inc_1scalar_by_nstream_bybnd(ncol, nlay, ngpt, &
+                                                op_io%tau,          &
+                                                op_in%tau, op_in%ssa, &
+                                                op_io%get_nband(), op_io%get_band_lims_gpoint())
+          end select
+
+        class is (ty_optical_props_2str)
+          select type (op_in)
+            class is (ty_optical_props_1scl)
+              call inc_2stream_by_1scalar_bybnd(ncol, nlay, ngpt, &
+                                                op_io%tau, op_io%ssa, &
+                                                op_in%tau,          &
+                                                op_io%get_nband(), op_io%get_band_lims_gpoint())
+            class is (ty_optical_props_2str)
+              call inc_2stream_by_2stream_bybnd(ncol, nlay, ngpt,        &
+                                                op_io%tau, op_io%ssa, op_io%g, &
+                                                op_in%tau, op_in%ssa, op_in%g, &
+                                                op_io%get_nband(), op_io%get_band_lims_gpoint())
+            class is (ty_optical_props_nstr)
+              call inc_2stream_by_nstream_bybnd(ncol, nlay, ngpt, op_in%get_nmom(), &
+                                                op_io%tau, op_io%ssa, op_io%g, &
+                                                op_in%tau, op_in%ssa, op_in%p, &
+                                                op_io%get_nband(), op_io%get_band_lims_gpoint())
+          end select
+
+        class is (ty_optical_props_nstr)
+          select type (op_in)
+            class is (ty_optical_props_1scl)
+              call inc_nstream_by_1scalar_bybnd(ncol, nlay, ngpt, &
+                                                op_io%tau, op_io%ssa, &
+                                                op_in%tau,          &
+                                                op_io%get_nband(), op_io%get_band_lims_gpoint())
+            class is (ty_optical_props_2str)
+              call inc_nstream_by_2stream_bybnd(ncol, nlay, ngpt, op_io%get_nmom(), &
+                                                op_io%tau, op_io%ssa, op_io%p, &
+                                                op_in%tau, op_in%ssa, op_in%g, &
+                                                op_io%get_nband(), op_io%get_band_lims_gpoint())
+            class is (ty_optical_props_nstr)
+              call inc_nstream_by_nstream_bybnd(ncol, nlay, ngpt, op_io%get_nmom(), op_in%get_nmom(), &
+                                                op_io%tau, op_io%ssa, op_io%p, &
+                                                op_in%tau, op_in%ssa, op_in%p, &
+                                                op_io%get_nband(), op_io%get_band_lims_gpoint())
+          end select
+      end select
+    end if
+  end function increment
+  !> -----------------------------------------------------------------------------------------------
+  !>
+  !>  Routines for array classes: problem sizes
+  !>
+  !> -----------------------------------------------------------------------------------------------
+  pure function get_arry_extent(this, dim)
+    class(ty_optical_props_arry), intent(in   ) :: this
+    integer,                      intent(in   ) :: dim
+    integer                                     :: get_arry_extent
+
+    if(allocated(this%tau)) then
+      get_arry_extent = size(this%tau, dim)
+    else
+      get_arry_extent = 0
+    end if
+  end function get_arry_extent
+  ! ------------------------------------------------------------------------------------------
+  pure function get_ncol(this)
+    class(ty_optical_props_arry), intent(in   ) :: this
+    integer                                     :: get_ncol
+
+    get_ncol = get_arry_extent(this, 1)
+  end function get_ncol
+  ! ------------------------------------------------------------------------------------------
+  pure function get_nlay(this)
+    class(ty_optical_props_arry), intent(in   ) :: this
+    integer                                     :: get_nlay
+
+    get_nlay = get_arry_extent(this, 2)
+  end function get_nlay
+  ! ------------------------------------------------------------------------------------------
+  pure function get_nmom(this)
+    class(ty_optical_props_nstr), intent(in   ) :: this
+    integer                                     :: get_nmom
+
+    if(allocated(this%p)) then
+      get_nmom = size(this%p, 1)
+    else
+      get_nmom = 0
+    end if
+  end function get_nmom
+  ! -----------------------------------------------------------------------------------------------
+  !
+  !  Routines for base class: spectral discretization
+  !
+  !> -----------------------------------------------------------------------------------------------
+  !>
+  !> Number of bands
+  !>
+  pure function get_nband(this)
+    class(ty_optical_props), intent(in) :: this
+    integer                             :: get_nband
+
+    if(this%is_initialized()) then
+      get_nband = size(this%band2gpt,dim=2)
+    else
+      get_nband = 0
+    end if
+  end function get_nband
+  !> -----------------------------------------------------------------------------------------------
+  !>
+  !> Number of g-points
+  !>
+  pure function get_ngpt(this)
+    class(ty_optical_props), intent(in) :: this
+    integer                             :: get_ngpt
+
+    if(this%is_initialized()) then
+      get_ngpt = maxval(this%band2gpt)
+    else
+      get_ngpt = 0
+    end if
+  end function get_ngpt
+  !>--------------------------------------------------------------------------------------------------------------------
+  !>
+  !> The first and last g-point of all bands at once
+  !> dimension (2, nbands)
+  !>
+  pure function get_band_lims_gpoint(this)
+    class(ty_optical_props), intent(in) :: this
+    integer, dimension(size(this%band2gpt,dim=1), size(this%band2gpt,dim=2)) &
+                                        :: get_band_lims_gpoint
+
+    get_band_lims_gpoint = this%band2gpt
+  end function get_band_lims_gpoint
+  !>--------------------------------------------------------------------------------------------------------------------
+  !>
+  !> First and last g-point of a specific band
+  !>
+  pure function convert_band2gpt(this, band)
+    class(ty_optical_props), intent(in) :: this
+    integer,                 intent(in) :: band
+    integer, dimension(2)               :: convert_band2gpt
+
+    if(this%is_initialized()) then
+      convert_band2gpt(:) = this%band2gpt(:,band)
+    else
+      convert_band2gpt(:) = 0
+    end if
+  end function convert_band2gpt
+  !>--------------------------------------------------------------------------------------------------------------------
+  !>
+  !> Lower and upper wavenumber of all bands
+  !> (upper and lower wavenumber by band) = band_lims_wvn(2,band)
+  !>
+  pure function get_band_lims_wavenumber(this)
+    class(ty_optical_props), intent(in) :: this
+    real(wp), dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2)) &
+                                        :: get_band_lims_wavenumber
+
+    if(this%is_initialized()) then
+      get_band_lims_wavenumber(:,:) = this%band_lims_wvn(:,:)
+    else
+      get_band_lims_wavenumber(:,:) = 0._wp
+    end if
+  end function get_band_lims_wavenumber
+  !>--------------------------------------------------------------------------------------------------------------------
+  !>
+  !> Lower and upper wavelength of all bands
+  !>
+  pure function get_band_lims_wavelength(this)
+    class(ty_optical_props), intent(in) :: this
+    real(wp), dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2)) &
+                                        :: get_band_lims_wavelength
+
+    if(this%is_initialized()) then
+      get_band_lims_wavelength(:,:) = 1._wp/this%band_lims_wvn(:,:)
+    else
+      get_band_lims_wavelength(:,:) = 0._wp
+    end if
+  end function get_band_lims_wavelength
+  !>--------------------------------------------------------------------------------------------------------------------
+  !> Bands for all the g-points at once
+  !> dimension (ngpt)
+  !>
+  pure function get_gpoint_bands(this)
+    class(ty_optical_props), intent(in) :: this
+    integer, dimension(size(this%gpt2band,dim=1)) &
+                                        :: get_gpoint_bands
+
+    if(this%is_initialized()) then
+      get_gpoint_bands(:) = this%gpt2band(:)
+    else
+      get_gpoint_bands(:) = 0
+    end if
+  end function get_gpoint_bands
+  !>--------------------------------------------------------------------------------------------------------------------
+  !>
+  !> Band associated with a specific g-point
+  !>
+  pure function convert_gpt2band(this, gpt)
+    class(ty_optical_props), intent(in) :: this
+    integer,                            intent(in) :: gpt
+    integer                             :: convert_gpt2band
+
+    if(this%is_initialized()) then
+      convert_gpt2band = this%gpt2band(gpt)
+    else
+      convert_gpt2band = 0
+    end if
+  end function convert_gpt2band
+  !>--------------------------------------------------------------------------------------------------------------------
+  !>
+  !> Expand an array of dimension arr_in(nband) to dimension arr_out(ngpt)
+  !>
+  pure function expand(this, arr_in) result(arr_out)
+    class(ty_optical_props), intent(in) :: this
+    real(wp), dimension(:),  intent(in) :: arr_in ! (nband)
+    real(wp), dimension(size(this%gpt2band)) :: arr_out
+
+    integer :: iband
+
+    do iband=1,this%get_nband()
+      arr_out(this%band2gpt(1,iband):this%band2gpt(2,iband)) = arr_in(iband)
+    end do
+  end function expand
+  !>--------------------------------------------------------------------------------------------------------------------
+  !>
+  !> Are the bands of two objects the same? (same number, same wavelength limits)
+  !>
+  pure function bands_are_equal(this, that)
+    class(ty_optical_props), intent(in) :: this, that
+    logical                             :: bands_are_equal
+
+    bands_are_equal = this%get_nband() == that%get_nband() .and. &
+                      this%get_nband() > 0
+    if(.not. bands_are_equal) return
+    bands_are_equal = &
+      all(abs(this%get_band_lims_wavenumber() - that%get_band_lims_wavenumber()) < &
+          5._wp * spacing(this%get_band_lims_wavenumber()))
+  end function bands_are_equal
+  !>--------------------------------------------------------------------------------------------------------------------
+  !>
+  !> Is the g-point structure of two objects the same?
+  !>   (same bands, same number of g-points, same mapping between bands and g-points)
+  !>
+  pure function gpoints_are_equal(this, that)
+    class(ty_optical_props), intent(in) :: this, that
+    logical                             :: gpoints_are_equal
+
+    gpoints_are_equal = this%bands_are_equal(that) .and. &
+                        this%get_ngpt() == that%get_ngpt()
+    if(.not. gpoints_are_equal) return
+    gpoints_are_equal = &
+      all(this%get_gpoint_bands() == that%get_gpoint_bands())
+  end function gpoints_are_equal
+  !> -----------------------------------------------------------------------------------------------
+  !>
+  !> --- Setting/getting the name
+  !>
+  !> -----------------------------------------------------------------------------------------------
+  subroutine set_name(this, name)
+    class(ty_optical_props),  intent(inout) :: this
+    character(len=*),         intent(in   ) :: name
+
+    this%name = trim(name)
+  end subroutine set_name
+  ! --------------------------------------------------------
+  function get_name(this)
+    class(ty_optical_props),  intent(in   ) :: this
+    character(len=name_len)                 :: get_name
+
+      get_name = trim(this%name)
+  end function get_name
+  ! ------------------------------------------------------------------------------------------
+
+end module mo_optical_props
diff --git a/reference/rte-fortran-interface/src/mo_rte_config.F90 b/reference/rte-fortran-interface/src/mo_rte_config.F90
new file mode 100644
index 000000000..4b7a17fd2
--- /dev/null
+++ b/reference/rte-fortran-interface/src/mo_rte_config.F90
@@ -0,0 +1,51 @@
+! This code is part of RRTM for GCM Applications - Parallel (RRTMGP)
+!
+! Contacts: Robert Pincus and Eli Mlawer
+! email:  rrtmgp@aer.com
+!
+! Copyright 2020-  Atmospheric and Environmental Research,
+!    Regents of the University of Colorado,
+!    Trustees of Columbia University in the City of New York
+! All right reserved.
+!
+! Use and duplication is permitted under the terms of the
+!    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause
+
+!> -------------------------------------------------------------------------------------------------
+!>
+!> ## Control input sanitization in Fortan front-end
+!>   Provides public access to two proteced module variables
+!>
+!> -------------------------------------------------------------------------------------------------
+module mo_rte_config
+  use mo_rte_kind, only: wl
+  implicit none
+  private
+
+  logical(wl), protected, public :: check_extents = .true.
+  logical(wl), protected, public :: check_values  = .true.
+
+  !> Specify checking of extents and values individually, or all checks together
+  interface rte_config_checks
+    module procedure rte_config_checks_each, rte_config_checks_all
+  end interface
+  public :: rte_config_checks
+contains
+  ! --------------------------------------------------------------
+  !> Do extents and/or values checks within RTE+RRTMGP Fortran classes
+  subroutine rte_config_checks_each(extents, values)
+    logical(wl), intent(in) :: extents, values
+
+    check_extents = extents
+    check_values  = values
+  end subroutine rte_config_checks_each
+  ! --------------------------------------------------------------
+  !> Do all checks within RTE+RRTMGP Fortran classes
+  subroutine rte_config_checks_all(do_checks)
+    logical(wl), intent(in) :: do_checks
+
+    check_extents = do_checks
+    check_values  = do_checks
+  end subroutine rte_config_checks_all
+  ! --------------------------------------------------------------
+end module mo_rte_config
diff --git a/reference/rte-fortran-interface/src/mo_rte_kind.F90 b/reference/rte-fortran-interface/src/mo_rte_kind.F90
new file mode 100644
index 000000000..50f75b451
--- /dev/null
+++ b/reference/rte-fortran-interface/src/mo_rte_kind.F90
@@ -0,0 +1,49 @@
+! This code is part of Radiative Transfer for Energetics (RTE)
+!
+! Contacts: Robert Pincus and Eli Mlawer
+! email:  rrtmgp@aer.com
+!
+! Copyright 2015-  Atmospheric and Environmental Research,
+!    Regents of the University of Colorado,
+!    Trustees of Columbia University in the City of New York
+! All right reserved.
+!
+! Use and duplication is permitted under the terms of the
+!    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause
+! -------------------------------------------------------------------------------------------------
+!>
+!> ## Provide the Fortran KIND parameters for REAL and INTEGER variables.
+!>   By default kind parameters come from the ISO C binding and use double precision for working.
+!
+!   If the host model in which RRTGMP is embedded has defined these constants elsewhere
+!   the model definitions can be used instead by renaming. For example,
+! use  mo_model_kind, only wp => dp, ...
+!   where the syntax is local_name => original_name
+!   and all the local names need to be defined
+
+module mo_rte_kind
+  use, intrinsic :: iso_c_binding, only: c_float, c_double, c_long, c_int, c_bool
+  implicit none
+  public
+  integer, parameter :: dp = c_double, sp = c_float, i8 = c_long, i4 = c_int
+  !
+  ! Floating point working precision
+  !
+#ifdef RTE_USE_SP
+  integer, parameter :: wp = sp
+#else
+  integer, parameter :: wp = dp
+#endif
+
+  !
+  ! Logical - for use with kernels
+  !
+  ! Note that c_boolians don't work with PGI compiler currently
+  !
+#ifdef RTE_USE_CBOOL
+  integer, parameter :: wl = c_bool
+#else
+  integer, parameter :: wl = kind(.true.)
+#endif
+
+end module mo_rte_kind
diff --git a/reference/rte-fortran-interface/src/mo_rte_lw.F90 b/reference/rte-fortran-interface/src/mo_rte_lw.F90
new file mode 100644
index 000000000..2ff0f9382
--- /dev/null
+++ b/reference/rte-fortran-interface/src/mo_rte_lw.F90
@@ -0,0 +1,486 @@
+! This code is part of Radiative Transfer for Energetics (RTE)
+!
+! Contacts: Robert Pincus and Eli Mlawer
+! email:  rrtmgp@aer.com
+!
+! Copyright 2015-  Atmospheric and Environmental Research,
+!    Regents of the University of Colorado,
+!    Trustees of Columbia University in the City of New York
+! All right reserved.
+!
+! Use and duplication is permitted under the terms of the
+!    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause
+! -------------------------------------------------------------------------------------------------
+!
+!> Compute longwave radiative fluxes
+!>
+!>  Contains a single routine to compute direct and diffuse fluxes of solar radiation given
+!>
+!> - atmospheric optical properties, spectrally-resolved via one of the sub-classes of
+!>     [[mo_optical_props(module):ty_optical_props_arry(type)]] in module [[mo_optical_props]]
+!      (ty_optical_props_arry in module mo_optical_props)
+!> - information about vertical ordering
+!> - internal Planck source functions, defined per g-point on the same spectral grid at the atmosphere,
+!>     via [[mo_source_functions(module):ty_source_func_lw(type)]] in module [[mo_source_functions]]
+!      (ty_source_func_lw in module mo_source_functions)
+!> -  boundary conditions: surface emissivity defined per band
+!> -  optionally, a boundary condition for incident diffuse radiation
+!> -  optionally, an integer number of angles at which to do Gaussian quadrature if scattering is neglected
+!>
+!> If optical properties are supplied via class ty_optical_props_1scl (absorption optical thickenss only)
+!>    ([[mo_optical_props(module):ty_optical_props_1scl(type)]] in module [[mo_optical_props]])
+!>    then an emission/absorption solver is called.
+!>    If optical properties are supplied via class ty_optical_props_2str
+!>    ([[mo_optical_props(module):ty_optical_props_2str(type)]] in module [[mo_optical_props]])
+!>    fluxes are computed via a rescaling by default or, optionally, using two-stream calculations and adding.
+!>
+!> Users must ensure that emissivity is on the same spectral grid as the optical properties.
+!>
+!> Final output is via user-extensible ty_fluxes
+!> ([[mo_fluxes(module):ty_fluxes(type)]] in module [[mo_fluxes]])
+!> which must reduce the detailed spectral fluxes to whatever summary the user needs
+!
+!> The routine does error checking and choses which lower-level kernel to invoke based on
+!>   what kinds of optical properties are supplied
+!
+! -------------------------------------------------------------------------------------------------
+module mo_rte_lw
+  use mo_rte_kind,      only: wp, wl
+  use mo_rte_config,    only: check_extents, check_values
+  use mo_rte_util_array,only: zero_array
+  use mo_rte_util_array_validation, & 
+                        only: any_vals_less_than, any_vals_outside, extents_are
+  use mo_optical_props, only: ty_optical_props, &
+                              ty_optical_props_arry, ty_optical_props_1scl, ty_optical_props_2str, ty_optical_props_nstr
+  use mo_source_functions,   &
+                        only: ty_source_func_lw
+  use mo_fluxes,        only: ty_fluxes, ty_fluxes_broadband
+  use mo_rte_solver_kernels, &
+                        only: lw_solver_noscat, lw_solver_2stream
+  implicit none
+  private
+
+  public :: rte_lw
+contains
+  ! --------------------------------------------------
+  !
+  ! Interface using only optical properties and source functions as inputs; fluxes as outputs.
+  !
+  ! --------------------------------------------------
+  function rte_lw(optical_props, top_at_1, &
+                  sources, sfc_emis,       &
+                  fluxes,                  &
+                  inc_flux, n_gauss_angles, use_2stream, &
+                  lw_Ds, flux_up_Jac) result(error_msg)
+    class(ty_optical_props_arry), intent(in   ) :: optical_props
+      !! Set of optical properties as one or more arrays
+    logical,                      intent(in   ) :: top_at_1
+      !! Is the top of the domain at index 1? (if not, ordering is bottom-to-top)
+    type(ty_source_func_lw),      intent(in   ) :: sources
+      !! Derived type with Planck source functions
+    real(wp), dimension(:,:),     intent(in   ) :: sfc_emis
+      !! emissivity at surface [] (nband, ncol)
+    class(ty_fluxes),             intent(inout) :: fluxes
+      !! Dervied type for computing spectral integrals from g-point fluxes.
+      !! Default computes broadband fluxes at all levels if output arrays are defined. Can be extended per user desires.
+    real(wp), dimension(:,:),   &
+                target, optional, intent(in   ) :: inc_flux
+      !! incident flux at domain top [W/m2] (ncol, ngpts)
+    integer,            optional, intent(in   ) :: n_gauss_angles
+      !! Number of angles used in Gaussian quadrature (max 3, no-scattering solution)
+    logical,            optional, intent(in   ) :: use_2stream
+      !! When 2-stream parameters (tau/ssa/g) are provided, use 2-stream methods
+      !! Default is to use re-scaled longwave transport
+    real(wp), dimension(:,:),   &
+                      optional,   intent(in   ) :: lw_Ds
+      !! User-specifed 1/cos of transport angle per col, g-point
+    real(wp), dimension(:,:), target,  &
+                      optional,   intent(inout) :: flux_up_Jac
+      !! surface temperature flux  Jacobian [W/m2/K] (ncol, nlay+1)
+    character(len=128)                          :: error_msg
+      !! If empty, calculation was successful
+    ! --------------------------------
+    !
+    ! Local variables
+    !
+    integer      :: ncol, nlay, ngpt, nband
+    integer      :: icol, ilev, igpt,       imu
+    integer      :: n_quad_angs
+    logical(wl)  :: using_2stream, do_Jacobians, do_broadband
+    real(wp), dimension(:,:),   allocatable   :: sfc_emis_gpt
+    real(wp), dimension(:,:,:), allocatable   :: secants
+    real(wp), dimension(:,:),   pointer       :: jacobian
+    real(wp), dimension(optical_props%get_ncol(),           &
+                        optical_props%get_nlay()+1), target &
+                                            :: decoy2D ! Used for optional outputs - needs to be full size.
+    ! Memory needs to be allocated for the full g-point fluxes even if they aren't
+    !    used later because a) the GPU kernels use this memory to work in parallel and
+    !    b) the fluxes are intent(out) in the solvers
+    ! Shortwave solver takes a different approach since three fields are needed
+    real(wp), dimension(optical_props%get_ncol(),   &
+                        optical_props%get_nlay()+1, &
+                        optical_props%get_ngpt())   &
+                                            :: gpt_flux_up, gpt_flux_dn
+    real(wp), dimension(:,:),   pointer     :: flux_dn_loc, flux_up_loc
+    real(wp), dimension(:,:),   pointer     :: inc_flux_diffuse
+    ! --------------------------------------------------
+    !
+    ! Weights and angle secants for first order (k=1) Gaussian quadrature.
+    !   Values from Table 2, Clough et al, 1992, doi:10.1029/92JD01419
+    !   after Abramowitz & Stegun 1972, page 921
+    !
+    integer,  parameter :: max_gauss_pts = 4
+    real(wp), parameter,                         &
+      dimension(max_gauss_pts, max_gauss_pts) :: &
+        gauss_Ds  = RESHAPE([1.66_wp,               0._wp,         0._wp,         0._wp, &  ! Diffusivity angle, not Gaussian angle
+                             1.18350343_wp, 2.81649655_wp,         0._wp,         0._wp, &
+                             1.09719858_wp, 1.69338507_wp, 4.70941630_wp,         0._wp, &
+                             1.06056257_wp, 1.38282560_wp, 2.40148179_wp, 7.15513024_wp], &
+                            [max_gauss_pts, max_gauss_pts]),              &
+        gauss_wts = RESHAPE([0.5_wp,          0._wp,           0._wp,           0._wp, &
+                             0.3180413817_wp, 0.1819586183_wp, 0._wp,           0._wp, &
+                             0.2009319137_wp, 0.2292411064_wp, 0.0698269799_wp, 0._wp, &
+                             0.1355069134_wp, 0.2034645680_wp, 0.1298475476_wp, 0.0311809710_wp], &
+                             [max_gauss_pts, max_gauss_pts])
+    ! ------------------------------------------------------------------------------------
+    ncol  = optical_props%get_ncol()
+    nlay  = optical_props%get_nlay()
+    ngpt  = optical_props%get_ngpt()
+    nband = optical_props%get_nband()
+    do_Jacobians = present(flux_up_Jac)
+    error_msg = ""
+
+    ! ------------------------------------------------------------------------------------
+    !
+    ! Error checking -- input consistency of sizes and validity of values
+
+    if(.not. fluxes%are_desired()) &
+      error_msg = "rte_lw: no space allocated for fluxes"
+
+    if (do_Jacobians .and. check_extents) then
+      if( .not. extents_are(flux_up_Jac, ncol, nlay+1)) &
+        error_msg = "rte_lw: flux Jacobian inconsistently sized"
+    endif
+
+    if (check_extents) then
+      !
+      ! Source functions
+      !
+      if(any([sources%get_ncol(), sources%get_nlay(), sources%get_ngpt()]  /= [ncol, nlay, ngpt])) &
+        error_msg = "rte_lw: sources and optical properties inconsistently sized"
+      !
+      ! Surface emissivity
+      !
+      if(.not. extents_are(sfc_emis, nband, ncol)) &
+        error_msg = "rte_lw: sfc_emis inconsistently sized"
+      !
+      ! Incident flux, if present
+      !
+      if(present(inc_flux)) then
+        if(.not. extents_are(inc_flux, ncol, ngpt)) &
+          error_msg = "rte_lw: inc_flux inconsistently sized"
+      end if
+      if (present(lw_Ds)) then
+        if(.not. extents_are(lw_Ds, ncol, ngpt)) &
+          error_msg = "rte_lw: lw_Ds inconsistently sized"
+      end if
+    end if
+
+    if(check_values) then
+      if(any_vals_outside(sfc_emis, 0._wp, 1._wp)) &
+        error_msg = "rte_lw: sfc_emis has values < 0 or > 1"
+
+      if(present(inc_flux)) then
+        if(any_vals_less_than(inc_flux, 0._wp)) &
+          error_msg = "rte_lw: inc_flux has values < 0"
+      end if
+
+      if (present(lw_Ds)) then
+        if(any_vals_less_than(lw_Ds, 1._wp)) &
+          error_msg = "rte_lw: one or more values of lw_Ds < 1."
+      end if
+
+      if(present(n_gauss_angles)) then
+        if(n_gauss_angles > max_gauss_pts) &
+          error_msg = "rte_lw: asking for too many quadrature points for no-scattering calculation"
+        if(n_gauss_angles < 1) &
+          error_msg = "rte_lw: have to ask for at least one quadrature point for no-scattering calculation"
+      end if
+    end if
+    if(len_trim(error_msg) > 0) return
+
+    !
+    ! Number of quadrature points for no-scattering calculation
+    !
+    n_quad_angs = 1
+    if(present(n_gauss_angles)) n_quad_angs = n_gauss_angles
+    !
+    ! Optionally - use 2-stream methods when low-order scattering properties are provided?
+    !
+    using_2stream = .false.
+    if(present(use_2stream)) using_2stream = use_2stream
+
+    !
+    ! Checking that optional arguments are consistent with one another and with optical properties
+    !
+    select type (optical_props)
+      class is (ty_optical_props_1scl)
+        if (using_2stream) &
+          error_msg = "rte_lw: can't use two-stream methods with only absorption optical depth"
+        if(present(lw_Ds) .and. n_quad_angs /= 1) &
+            error_msg = "rte_lw: providing lw_Ds incompatible with specifying n_gauss_angles"
+      class is (ty_optical_props_2str)
+        if (present(lw_Ds)) &
+          error_msg = "rte_lw: lw_Ds not valid when providing scattering optical properties"
+        if (using_2stream .and. n_quad_angs /= 1) &
+          error_msg = "rte_lw: using_2stream=true incompatible with specifying n_gauss_angles"
+        if (using_2stream .and. do_Jacobians) &
+          error_msg = "rte_lw: can't provide Jacobian of fluxes w.r.t surface temperature with 2-stream"
+      class default
+        error_msg =  "rte_lw: lw_solver(...ty_optical_props_nstr...) not yet implemented"
+    end select
+
+    if(len_trim(error_msg) > 0) then
+      if(len_trim(optical_props%get_name()) > 0) &
+        error_msg = trim(optical_props%get_name()) // ': ' // trim(error_msg)
+      return
+    end if
+
+    ! ------------------------------------------------------------------------------------
+    !  Boundary conditions
+    !    Lower boundary condition -- expand surface emissivity by band to gpoints
+    !
+    allocate(sfc_emis_gpt(ncol,         ngpt))
+
+    !   Upper boundary condition -  use values in optional arg or be set to 0
+    !
+    if (present(inc_flux)) then
+      inc_flux_diffuse => inc_flux
+      !$acc        enter data copyin(   inc_flux_diffuse)
+      !$omp target enter data map(to:   inc_flux_diffuse)
+    else
+      allocate(inc_flux_diffuse(ncol, ngpt))
+      !$acc        enter data create(   inc_flux_diffuse)
+      !$omp target enter data map(alloc:inc_flux_diffuse)
+      call zero_array(ncol, ngpt, inc_flux_diffuse)
+    end if
+
+    ! ------------------------------------------------------------------------------------
+    if(do_Jacobians) then
+      jacobian => flux_up_Jac
+    else
+      jacobian => decoy2D
+    end if
+
+    select type(fluxes)
+      !
+      ! Broadband fluxes are treated as a special case within the solvers; memory
+      !   for both up and down fluxes needs to be available even if the user doesn't
+      !   want one of them
+      !
+      type is (ty_fluxes_broadband)
+        do_broadband = .true._wl
+        !
+        ! Broadband fluxes class has three possible outputs; allocate memory for local use
+        !   if one or more haven't been requested
+        !
+        if(associated(fluxes%flux_up)) then
+          flux_up_loc => fluxes%flux_up
+        else
+          allocate(flux_up_loc(ncol, nlay+1))
+        end if
+        if(associated(fluxes%flux_dn)) then
+          flux_dn_loc => fluxes%flux_dn
+        else
+          allocate(flux_dn_loc(ncol, nlay+1))
+        end if
+        !$acc        enter data create(   flux_up_loc, flux_dn_loc)
+        !$omp target enter data map(alloc:flux_up_loc, flux_dn_loc)
+      class default
+        !
+        ! If broadband integrals aren't being computed, allocate working space
+        !   and decoy addresses for spectrally-integrated fields
+        !
+        do_broadband = .false._wl
+        flux_up_loc  => decoy2D
+        flux_dn_loc  => decoy2D
+    end select
+
+    !
+    ! Compute the radiative transfer...
+    !
+    !$acc        data create(   sfc_emis_gpt, flux_up_loc, flux_dn_loc, gpt_flux_up, gpt_flux_dn)
+    !$omp target data map(alloc:sfc_emis_gpt, flux_up_loc, flux_dn_loc, gpt_flux_up, gpt_flux_dn)
+    call expand_and_transpose(optical_props, sfc_emis, sfc_emis_gpt)
+    if(check_values) error_msg =  optical_props%validate()
+    if(len_trim(error_msg) == 0) then ! Can't do an early return within OpenACC/MP data regions
+      select type (optical_props)
+        class is (ty_optical_props_1scl)
+          !
+          ! No scattering two-stream calculation
+          !
+          !
+          ! Secant of radiation angle - either user-supplied, one per g-point, or
+          !   taken from first-order Gaussian quadrate and applied to all columns a g-points
+          !
+          allocate(secants(ncol, ngpt, n_quad_angs))
+          !$acc        data create(   secants)
+          !$omp target data map(alloc:secants)
+          if (present(lw_Ds)) then
+            !$acc                         parallel loop    collapse(2) copyin(lw_Ds)
+            !$omp target teams distribute parallel do simd collapse(2)
+            ! nmu is 1
+            do igpt = 1, ngpt
+              do icol = 1, ncol
+                secants(icol,igpt,1) = lw_Ds(icol,igpt)
+              end do
+            end do
+          else
+            !
+            !   Is there an alternative to making ncol x ngpt copies of each value?
+            !
+            !$acc                         parallel loop    collapse(3)
+            !$omp target teams distribute parallel do simd collapse(3)
+            do imu = 1, n_quad_angs
+              do igpt = 1, ngpt
+                do icol = 1, ncol
+                  secants(icol,igpt,imu) = gauss_Ds(imu,n_quad_angs)
+                end do
+              end do
+            end do
+          end if
+          call lw_solver_noscat(ncol, nlay, ngpt,                 &
+                                logical(top_at_1, wl), n_quad_angs,         &
+                                secants, gauss_wts(1:n_quad_angs,n_quad_angs), &
+                                optical_props%tau,                 &
+                                sources%lay_source, sources%lev_source_inc, &
+                                sources%lev_source_dec,            &
+                                sfc_emis_gpt, sources%sfc_source,  &
+                                inc_flux_diffuse,                  &
+                                gpt_flux_up, gpt_flux_dn,          &
+                                do_broadband, flux_up_loc, flux_dn_loc,     &
+                                logical(do_Jacobians, wl), sources%sfc_source_Jac, jacobian, &
+                                logical(.false., wl),  optical_props%tau, optical_props%tau)
+                                                      ! The last two arguments won't be used since the
+                                                      ! third-to-last is .false. but need valid addresses
+          !$acc        end data
+          !$omp end target data
+        class is (ty_optical_props_2str)
+          if (using_2stream) then
+            !
+            ! two-stream calculation with scattering
+            !
+            call lw_solver_2stream(ncol, nlay, ngpt, logical(top_at_1, wl), &
+                                   optical_props%tau, optical_props%ssa, optical_props%g,              &
+                                   sources%lay_source, sources%lev_source_inc, sources%lev_source_dec, &
+                                   sfc_emis_gpt, sources%sfc_source,       &
+                                   inc_flux_diffuse,                       &
+                                   gpt_flux_up, gpt_flux_dn)
+          else
+            allocate(secants(ncol, ngpt, n_quad_angs))
+            !$acc        data create(   secants)
+            !$omp target data map(alloc:secants)
+            !$acc                         parallel loop    collapse(3)
+            !$omp target teams distribute parallel do simd collapse(3)
+            do imu = 1, n_quad_angs
+              do igpt = 1, ngpt
+                do icol = 1, ncol
+                  secants(icol,igpt,imu) = gauss_Ds(imu,n_quad_angs)
+                end do
+              end do
+            end do
+            !
+            ! Re-scaled solution to account for scattering
+            !
+            call lw_solver_noscat(ncol, nlay, ngpt,                 &
+                                  logical(top_at_1, wl), n_quad_angs,         &
+                                  secants, gauss_wts(1:n_quad_angs,n_quad_angs), &
+                                  optical_props%tau,                 &
+                                  sources%lay_source, sources%lev_source_inc, &
+                                  sources%lev_source_dec,            &
+                                  sfc_emis_gpt, sources%sfc_source,  &
+                                  inc_flux_diffuse,                  &
+                                  gpt_flux_up, gpt_flux_dn,          &
+                                  do_broadband, flux_up_loc, flux_dn_loc,     &
+                                  logical(do_Jacobians, wl), sources%sfc_source_Jac, jacobian, &
+                                  logical(.true., wl),  optical_props%ssa, optical_props%g)
+            !$acc        end data
+            !$omp end target data
+          endif
+        class is (ty_optical_props_nstr)
+          !
+          ! n-stream calculation
+          !
+          error_msg = 'lw_solver(...ty_optical_props_nstr...) not yet implemented'
+      end select
+
+      select type(fluxes)
+        !
+        ! Tidy up memory for broadband fluxes on GPUs
+        !
+        type is (ty_fluxes_broadband)
+          if(associated(fluxes%flux_net)) then
+            !
+            ! FIXME: Do we need the create/copyout here?
+            !
+            !$acc parallel loop    collapse(2) copyin(fluxes) copyout( fluxes%flux_net)
+            !$omp target teams distribute parallel do simd collapse(2) map(from:fluxes%flux_net)
+            do ilev = 1, nlay+1
+              do icol = 1, ncol
+                fluxes%flux_net(icol,ilev) = flux_dn_loc(icol,ilev) - flux_up_loc(icol,ilev)
+              end do
+            end do
+          end if
+        class default
+          !
+          ! ...or reduce spectral fluxes to desired output quantities
+          !
+          error_msg = fluxes%reduce(gpt_flux_up, gpt_flux_dn, optical_props, top_at_1)
+      end select
+    end if ! no error message from validation
+    !$acc        end data
+    !$omp end target data
+
+    if(.not. present(inc_flux)) then
+      !$acc        exit data delete(     inc_flux_diffuse)
+      !$omp target exit data map(release:inc_flux_diffuse)
+      deallocate(inc_flux_diffuse)
+    end if
+    select type(fluxes)
+      type is (ty_fluxes_broadband)
+        !$acc        exit data copyout( flux_up_loc, flux_dn_loc)
+        !$omp target exit data map(from:flux_up_loc, flux_dn_loc)
+        if(.not. associated(flux_up_loc, fluxes%flux_up)) deallocate(flux_up_loc)
+        if(.not. associated(flux_dn_loc, fluxes%flux_dn)) deallocate(flux_dn_loc)
+    end select
+  end function rte_lw
+  !--------------------------------------------------------------------------------------------------------------------
+  !
+  ! Expand from band to g-point dimension, transpose dimensions (nband, ncol) -> (ncol,ngpt)
+  !
+  subroutine expand_and_transpose(ops,arr_in,arr_out)
+    class(ty_optical_props),  intent(in ) :: ops
+    real(wp), dimension(:,:), intent(in ) :: arr_in  ! (nband, ncol)
+    real(wp), dimension(:,:), intent(out) :: arr_out ! (ncol, igpt)
+    ! -------------
+    integer :: ncol, nband, ngpt
+    integer :: icol, iband, igpt
+    integer, dimension(2,ops%get_nband()) :: limits
+
+    ncol  = size(arr_in, 2)
+    nband = ops%get_nband()
+    ngpt  = ops%get_ngpt()
+    limits = ops%get_band_lims_gpoint()
+    !$acc                         parallel loop    collapse(2) copyin(arr_in, limits)
+    !$omp target teams distribute parallel do simd collapse(2) map(to:arr_in, limits)
+    do iband = 1, nband
+      do icol = 1, ncol
+        do igpt = limits(1, iband), limits(2, iband)
+          arr_out(icol, igpt) = arr_in(iband,icol)
+        end do
+      end do
+    end do
+
+  end subroutine expand_and_transpose
+  !--------------------------------------------------------------------------------------------------------------------
+end module mo_rte_lw
diff --git a/reference/rte-fortran-interface/src/mo_rte_sw.F90 b/reference/rte-fortran-interface/src/mo_rte_sw.F90
new file mode 100644
index 000000000..961209543
--- /dev/null
+++ b/reference/rte-fortran-interface/src/mo_rte_sw.F90
@@ -0,0 +1,414 @@
+! This code is part of Radiative Transfer for Energetics (RTE)
+!
+! Contacts: Robert Pincus and Eli Mlawer
+! email:  rrtmgp@aer.com
+!
+! Copyright 2015-,  Atmospheric and Environmental Research,
+! Regents of the University of Colorado, Trustees of Columbia University.  All right reserved.
+!
+! Use and duplication is permitted under the terms of the
+!    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause
+! -------------------------------------------------------------------------------------------------
+!
+!> Compute shortwave radiative fluxes
+
+!>  Contains a single routine to compute direct and diffuse fluxes of solar radiation given
+!>
+!>  - atmospheric optical properties on a spectral grid
+!>  - information about vertical ordering
+!>  - boundary conditions
+!>    - solar zenith angle, spectrally-resolved incident colimated flux, surface albedos for direct and diffuse radiation
+!>    - optionally, a boundary condition for incident diffuse radiation
+!>
+!> It is the user's responsibility to ensure that boundary conditions (incident fluxes, surface albedos) are on the same
+!>   spectral grid as the optical properties.
+!>
+!> Final output is via user-extensible ty_fluxes
+!> ([[mo_fluxes(module):ty_fluxes(type)]] in module [[mo_fluxes]])
+!> which must reduce the detailed spectral fluxes to whatever summary the user needs
+!>
+!>
+!> The routine does error checking and choses which lower-level kernel to invoke based on
+!>   what kinds of optical properties are supplied
+!
+! -------------------------------------------------------------------------------------------------
+module mo_rte_sw
+  use mo_rte_kind,      only: wp, wl
+  use mo_rte_config,    only: check_extents, check_values
+  use mo_rte_util_array,only: zero_array
+  use mo_rte_util_array_validation, & 
+                        only: any_vals_less_than, any_vals_outside, extents_are
+  use mo_optical_props, only: ty_optical_props, &
+                              ty_optical_props_arry, ty_optical_props_1scl, ty_optical_props_2str, ty_optical_props_nstr
+  use mo_fluxes,        only: ty_fluxes, ty_fluxes_broadband
+  use mo_rte_solver_kernels, &
+                        only: sw_solver_noscat, sw_solver_2stream
+  implicit none
+  private
+
+  interface rte_sw
+    module procedure rte_sw_mu0_bycol, rte_sw_mu0_full
+  end interface rte_sw
+  public :: rte_sw
+
+contains
+  ! -------------------------------------------------------------------------------------------------
+  function rte_sw_mu0_bycol(atmos, top_at_1, &
+                  mu0, inc_flux,             &
+                  sfc_alb_dir, sfc_alb_dif,  &
+                  fluxes, inc_flux_dif) result(error_msg)
+    class(ty_optical_props_arry), intent(in   ) :: atmos
+      !! Optical properties provided as arrays
+    logical,                      intent(in   ) :: top_at_1
+      !! Is the top of the domain at index 1? (if not, ordering is bottom-to-top)
+    real(wp), dimension(:),       intent(in   ) :: mu0
+      !! cosine of solar zenith angle (ncol) - will be assumed constant with height
+    real(wp), dimension(:,:),     intent(in   ) :: inc_flux
+      !! incident flux at top of domain [W/m2] (ncol, ngpt)
+    real(wp), dimension(:,:),     intent(in   ) :: sfc_alb_dir
+      !! surface albedo for direct and
+    real(wp), dimension(:,:),     intent(in   ) :: sfc_alb_dif
+      !! diffuse radiation (nband, ncol)
+    class(ty_fluxes),             intent(inout) :: fluxes
+      !! Class describing output calculations
+    real(wp), dimension(:,:), optional, target, &
+                                  intent(in   ) :: inc_flux_dif
+      !! incident diffuse flux at top of domain [W/m2] (ncol, ngpt)
+    character(len=128)                          :: error_msg
+      !! If empty, calculation was successful
+    ! --------------------------------
+    real(wp), dimension(size(mu0), atmos%get_nlay()) :: mu0_bylay
+    integer :: i, j, ncol, nlay
+
+    ncol = size(mu0)
+    nlay = atmos%get_nlay()
+    ! Solar zenith angle cosine is constant with height
+    !$acc        data copyin(mu0)    create(mu0_bylay)
+    !$omp target data map(to:mu0) map(alloc:mu0_bylay)
+
+    !$acc                         parallel loop    collapse(2)
+    !$omp target teams distribute parallel do simd collapse(2)
+    do j = 1, nlay
+      do i = 1, ncol
+        mu0_bylay(i,j) = mu0(i)
+      end do
+    end do
+
+    error_msg = rte_sw_mu0_full(atmos, top_at_1, &
+                    mu0_bylay, inc_flux,         &
+                    sfc_alb_dir, sfc_alb_dif,    &
+                    fluxes, inc_flux_dif)
+    !$acc end data
+    !$omp end target data
+  end function rte_sw_mu0_bycol
+  ! -------------------------------------------------------------------------------------------------
+  function rte_sw_mu0_full(atmos, top_at_1, &
+                  mu0, inc_flux,            &
+                  sfc_alb_dir, sfc_alb_dif, &
+                  fluxes, inc_flux_dif) result(error_msg)
+    class(ty_optical_props_arry), intent(in   ) :: atmos
+      !! Optical properties provided as arrays
+    logical,                      intent(in   ) :: top_at_1
+      !! Is the top of the domain at index 1? (if not, ordering is bottom-to-top)
+    real(wp), dimension(:,:),     intent(in   ) :: mu0
+      !! cosine of solar zenith angle (ncol, nlay)
+    real(wp), dimension(:,:),     intent(in   ) :: inc_flux
+      !! incident flux at top of domain [W/m2] (ncol, ngpt)
+    real(wp), dimension(:,:),     intent(in   ) :: sfc_alb_dir
+      !! surface albedo for direct and
+    real(wp), dimension(:,:),     intent(in   ) :: sfc_alb_dif
+      !! diffuse radiation (nband, ncol)
+    class(ty_fluxes),             intent(inout) :: fluxes
+      !! Class describing output calculations
+    real(wp), dimension(:,:), optional, target, &
+                                  intent(in   ) :: inc_flux_dif
+      !! incident diffuse flux at top of domain [W/m2] (ncol, ngpt)
+    character(len=128)                          :: error_msg
+      !! If empty, calculation was successful
+    ! --------------------------------
+    !
+    ! Local variables
+    !
+    integer     :: ncol, nlay, ngpt, nband
+    integer     :: icol, ilev
+    logical(wl) :: has_dif_bc, do_broadband
+
+    real(wp), dimension(:,:,:), pointer             :: gpt_flux_up, gpt_flux_dn, gpt_flux_dir
+    real(wp), dimension(:,:),   allocatable         :: sfc_alb_dir_gpt, sfc_alb_dif_gpt
+    real(wp), dimension(:,:),   pointer             :: flux_dn_loc, flux_up_loc, flux_dir_loc
+    real(wp), dimension(:,:),   pointer             :: inc_flux_diffuse
+    real(wp), dimension(:,:,:), allocatable, target :: decoy3D
+    real(wp), dimension(:,:),   allocatable, target :: decoy2D
+
+    ! ------------------------------------------------------------------------------------
+    ncol  = atmos%get_ncol()
+    nlay  = atmos%get_nlay()
+    ngpt  = atmos%get_ngpt()
+    nband = atmos%get_nband()
+    error_msg = ""
+    ! ------------------------------------------------------------------------------------
+    !
+    ! Error checking -- consistency of sizes and validity of values
+    !
+    ! --------------------------------
+    if(.not. fluxes%are_desired()) &
+      error_msg = "rte_sw: no space allocated for fluxes"
+
+    has_dif_bc = logical(present(inc_flux_dif), wl)
+
+    !
+    ! Sizes of input arrays
+    !
+    ! Copy variables whose sizes and values are checked to the GPU so the checks can happen there.
+    !   No harm done if checks are not performed  (?)
+    !$acc        data copyin(mu0, inc_flux, sfc_alb_dir, sfc_alb_dif)
+    !$omp target data map(to:mu0, inc_flux, sfc_alb_dir, sfc_alb_dif)
+    !$acc        data copyin(inc_flux_dif) if (has_dif_bc)
+    !$omp target data map(to:inc_flux_dif) if (has_dif_bc)
+    if(check_extents) then
+      if(.not. extents_are(mu0, ncol, nlay)) &
+        error_msg = "rte_sw: mu0 inconsistently sized"
+      if(.not. extents_are(inc_flux, ncol, ngpt)) &
+        error_msg = "rte_sw: inc_flux inconsistently sized"
+      if(.not. extents_are(sfc_alb_dir, nband, ncol)) &
+        error_msg = "rte_sw: sfc_alb_dir inconsistently sized"
+      if(.not. extents_are(sfc_alb_dif, nband, ncol)) &
+        error_msg = "rte_sw: sfc_alb_dif inconsistently sized"
+      if(has_dif_bc) then
+        if(.not. extents_are(inc_flux_dif, ncol, ngpt)) &
+          error_msg = "rte_sw: inc_flux_dif inconsistently sized"
+      end if
+    end if
+    !
+    ! Values of input arrays
+    !
+    if(check_values) then
+      if(any_vals_outside(mu0, -1._wp, 1._wp)) &
+        error_msg = "rte_sw: one or more mu0 < -1 or > 1"
+      if(any_vals_less_than(inc_flux, 0._wp)) &
+        error_msg = "rte_sw: one or more inc_flux < 0"
+      if(any_vals_outside(sfc_alb_dir,  0._wp, 1._wp)) &
+        error_msg = "rte_sw: sfc_alb_dir out of bounds [0,1]"
+      if(any_vals_outside(sfc_alb_dif,  0._wp, 1._wp)) &
+        error_msg = "rte_sw: sfc_alb_dif out of bounds [0,1]"
+      if(has_dif_bc) then
+        if(any_vals_less_than(inc_flux_dif, 0._wp)) &
+          error_msg = "rte_sw: one or more inc_flux_dif < 0"
+      end if
+    end if
+
+    ! ------------------------------------------------------------------------------------
+    select type(fluxes)
+      type is (ty_fluxes_broadband)
+        do_broadband = .true._wl
+        !
+        ! Solvers will integrate in place (one g-point at a time on CPUs)
+        !   so won't need big working arrays
+        !
+        allocate(decoy3D(ncol, nlay+1, ngpt))
+        gpt_flux_up  => decoy3D
+        gpt_flux_dn  => decoy3D
+        gpt_flux_dir => decoy3D
+        !
+        ! Broadband fluxes class has three possible outputs; allocate memory for local use
+        !   if one or more haven't been requested
+        !
+        if(associated(fluxes%flux_up)) then
+          flux_up_loc => fluxes%flux_up
+        else
+          allocate(flux_up_loc(ncol, nlay+1))
+        end if
+        if(associated(fluxes%flux_dn)) then
+          flux_dn_loc => fluxes%flux_dn
+        else
+          allocate(flux_dn_loc(ncol, nlay+1))
+        end if
+        if(associated(fluxes%flux_dn_dir)) then
+          flux_dir_loc => fluxes%flux_dn_dir
+        else
+          allocate(flux_dir_loc(ncol, nlay+1))
+        end if
+        !$acc        enter data create(   flux_up_loc, flux_dn_loc, flux_dir_loc)
+        !$omp target enter data map(alloc:flux_up_loc, flux_dn_loc, flux_dir_loc)
+      class default
+        !
+        ! If broadband integrals aren't being computed, allocate working space
+        !   and decoy addresses for spectrally-integrated fields
+        !
+        do_broadband = .false._wl
+        allocate(decoy2D(ncol, nlay+1))
+        flux_up_loc  => decoy2D
+        flux_dn_loc  => decoy2D
+        flux_dir_loc => decoy2D
+        allocate(gpt_flux_up (ncol,nlay+1,ngpt), &
+                 gpt_flux_dn (ncol,nlay+1,ngpt), &
+                 gpt_flux_dir(ncol,nlay+1,ngpt))
+    end select
+
+    allocate(sfc_alb_dir_gpt(ncol, ngpt), sfc_alb_dif_gpt(ncol, ngpt))
+    if(len_trim(error_msg) > 0) then
+      if(len_trim(atmos%get_name()) > 0) &
+        error_msg = trim(atmos%get_name()) // ': ' // trim(error_msg)
+    end if
+
+    ! Fluxes need to be copied out only if do_broadband is .true.
+    !$acc        data copyin(   flux_up_loc,flux_dn_loc,flux_dir_loc) if (      do_broadband)
+    !$omp target data map(to:   flux_up_loc,flux_dn_loc,flux_dir_loc) if (      do_broadband)
+    !$acc        data create(   flux_up_loc,flux_dn_loc,flux_dir_loc) if (.not. do_broadband)
+    !$omp target data map(alloc:flux_up_loc,flux_dn_loc,flux_dir_loc) if (.not. do_broadband)
+
+    !$acc        data create(   gpt_flux_up,gpt_flux_dn,gpt_flux_dir) &
+    !$acc             create(   sfc_alb_dir_gpt, sfc_alb_dif_gpt)
+    !$omp target data map(alloc:gpt_flux_up,gpt_flux_dn,gpt_flux_dir) &
+    !$omp             map(alloc:sfc_alb_dir_gpt, sfc_alb_dif_gpt)
+
+
+    ! ------------------------------------------------------------------------------------
+    ! Boundary conditions
+    !   Lower boundary condition -- expand surface albedos by band to gpoints
+    !     and switch dimension ordering
+    call expand_and_transpose(atmos, sfc_alb_dir, sfc_alb_dir_gpt)
+    call expand_and_transpose(atmos, sfc_alb_dif, sfc_alb_dif_gpt)
+    !
+    !   Diffuse flux boundary condition - will use values in optional arg or be set to 0
+    !
+    if (has_dif_bc) then
+      inc_flux_diffuse => inc_flux_dif
+      !$acc        enter data copyin(   inc_flux_diffuse)
+      !$omp target enter data map(to:   inc_flux_diffuse)
+    else
+      allocate(inc_flux_diffuse(ncol, ngpt))
+      !$acc        enter data create(   inc_flux_diffuse)
+      !$omp target enter data map(alloc:inc_flux_diffuse)
+      call zero_array(ncol, ngpt, inc_flux_diffuse)
+    end if
+    ! ------------------------------------------------------------------------------------
+    if(check_values) error_msg =  atmos%validate()
+    !
+    ! Compute the radiative transfer...
+    !
+    if(len_trim(error_msg) == 0) then
+      select type (atmos)
+        class is (ty_optical_props_1scl)
+          !
+          ! Direct beam only - for completeness, unlikely to be used in practice
+          !
+          call sw_solver_noscat(ncol, nlay, ngpt, logical(top_at_1, wl), &
+                                atmos%tau, mu0, inc_flux,                &
+                                gpt_flux_dir)
+          call zero_array(ncol, nlay+1, ngpt, gpt_flux_up)
+          !
+          !$acc kernels
+          !$omp target
+          gpt_flux_dn(:,:,:) = gpt_flux_dir(:,:,:)
+          !$acc end kernels
+          !$omp end target
+
+        class is (ty_optical_props_2str)
+          !
+          ! two-stream calculation with scattering
+          !
+          call sw_solver_2stream(ncol, nlay, ngpt, logical(top_at_1, wl), &
+                                 atmos%tau, atmos%ssa, atmos%g, mu0,      &
+                                 sfc_alb_dir_gpt, sfc_alb_dif_gpt,        &
+                                             inc_flux,                    &
+                                 gpt_flux_up, gpt_flux_dn, gpt_flux_dir,  &
+                                 has_dif_bc, inc_flux_diffuse,            &
+                                 do_broadband, flux_up_loc, flux_dn_loc, flux_dir_loc)
+        class is (ty_optical_props_nstr)
+          !
+          ! n-stream calculation
+          !
+          ! not yet implemented so fail
+          !
+          error_msg = 'sw_solver(...ty_optical_props_nstr...) not yet implemented'
+      end select
+      if(len_trim(error_msg) > 0) then
+        if(len_trim(atmos%get_name()) > 0) &
+          error_msg = trim(atmos%get_name()) // ': ' // trim(error_msg)
+      end if
+      !
+      ! Flux reduction (summarizing for output)
+      !
+      select type(fluxes)
+        !
+        ! Tidy up memory for broadband fluxes
+        !
+        type is (ty_fluxes_broadband)
+          if(associated(fluxes%flux_net)) then
+            !$acc                         parallel loop    collapse(2) copyout(fluxes%flux_net)
+            !$omp target teams distribute parallel do simd collapse(2)
+            do ilev = 1, nlay+1
+              do icol = 1, ncol
+                fluxes%flux_net(icol,ilev) = flux_dn_loc(icol,ilev) - flux_up_loc(icol,ilev)
+              end do
+            end do
+          end if
+        class default
+          !
+          ! ...or reduce spectral fluxes to desired output quantities
+          !
+          error_msg = fluxes%reduce(gpt_flux_up, gpt_flux_dn, atmos, top_at_1, gpt_flux_dir)
+      end select
+    end if ! In case of an error we exit here
+
+    !$acc        end data
+    !$omp end target data
+    !$acc        end data
+    !$omp end target data
+    !$acc        end data
+    !$omp end target data
+    !$acc        end data
+    !$omp end target data
+    !$acc        end data
+    !$omp end target data
+
+    !
+    ! Deallocate any memory allocated locally to pointer variables
+    !
+    select type(fluxes)
+      type is (ty_fluxes_broadband)
+        !$acc        exit data copyout( flux_up_loc, flux_dn_loc, flux_dir_loc)
+        !$omp target exit data map(from:flux_up_loc, flux_dn_loc, flux_dir_loc)
+        if(.not. associated(fluxes%flux_up    )) deallocate(flux_up_loc)
+        if(.not. associated(fluxes%flux_dn    )) deallocate(flux_dn_loc)
+        if(.not. associated(fluxes%flux_dn_dir)) deallocate(flux_dir_loc)
+      class default
+        deallocate(gpt_flux_up, gpt_flux_dn, gpt_flux_dir)
+    end select
+    if(.not. has_dif_bc) then
+      !$acc        exit data delete(     inc_flux_diffuse)
+      !$omp target exit data map(release:inc_flux_diffuse)
+      deallocate(inc_flux_diffuse)
+    end if
+
+  end function rte_sw_mu0_full
+  !--------------------------------------------------------------------------------------------------------------------
+  !
+  ! Expand from band to g-point dimension, transpose dimensions (nband, ncol) -> (ncol,ngpt)
+  !
+  subroutine expand_and_transpose(ops,arr_in,arr_out)
+    class(ty_optical_props),  intent(in ) :: ops
+    real(wp), dimension(:,:), intent(in ) :: arr_in  ! (nband, ncol)
+    real(wp), dimension(:,:), intent(out) :: arr_out ! (ncol, igpt)
+    ! -------------
+    integer :: ncol, nband, ngpt
+    integer :: icol, iband, igpt
+    integer, dimension(2,ops%get_nband()) :: limits
+
+    ncol  = size(arr_in, 2)
+    nband = ops%get_nband()
+    ngpt  = ops%get_ngpt()
+    limits = ops%get_band_lims_gpoint()
+    !$acc                         parallel loop    collapse(2) copyin(arr_in, limits)
+    !$omp target teams distribute parallel do simd collapse(2) map(to:arr_in, limits)
+    do iband = 1, nband
+      do icol = 1, ncol
+        do igpt = limits(1, iband), limits(2, iband)
+          arr_out(icol, igpt) = arr_in(iband,icol)
+        end do
+      end do
+    end do
+
+  end subroutine expand_and_transpose
+end module mo_rte_sw
diff --git a/reference/rte-fortran-interface/src/mo_rte_util_array_validation.F90 b/reference/rte-fortran-interface/src/mo_rte_util_array_validation.F90
new file mode 100644
index 000000000..79584efe3
--- /dev/null
+++ b/reference/rte-fortran-interface/src/mo_rte_util_array_validation.F90
@@ -0,0 +1,372 @@
+! This code is part of Radiative Transfer for Energetics (RTE)
+!
+! Contacts: Robert Pincus and Eli Mlawer
+! email:  rrtmgp@aer.com
+!
+! Copyright 2015-  Atmospheric and Environmental Research,
+!    Regents of the University of Colorado,
+!    Trustees of Columbia University in the City of New York
+! All right reserved.
+!
+! Use and duplication is permitted under the terms of the
+!    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause
+! -------------------------------------------------------------------------------------------------
+module mo_rte_util_array_validation
+!
+!> Provide utilites for sanitizing input arrays:
+!    checking values and sizes
+! These are in a module so code can be written for both CPUs and GPUs
+! Used only by Fortran classes so routines don't need C bindings and can use assumed-shape
+!
+  use mo_rte_kind,      only: wp, wl
+  implicit none
+  !>
+  !> Values less than a floor (including masked versions)
+  !>
+  interface any_vals_less_than
+    module procedure any_vals_less_than_1D,        any_vals_less_than_2D,        any_vals_less_than_3D
+    module procedure any_vals_less_than_1D_masked, any_vals_less_than_2D_masked, any_vals_less_than_3D_masked
+  end interface
+  !>
+  !> Values outside a range (including masked versions)
+  !>
+  interface any_vals_outside
+    module procedure any_vals_outside_1D,        any_vals_outside_2D,        any_vals_outside_3D
+    module procedure any_vals_outside_1D_masked, any_vals_outside_2D_masked, any_vals_outside_3D_masked
+  end interface
+  !>
+  !> Find the extents of an array
+  !>
+  interface extents_are
+    module procedure extents_are_1D, extents_are_2D, extents_are_3D
+    module procedure extents_are_4D, extents_are_5D, extents_are_6D
+    module procedure extents_are_2d_int
+  end interface extents_are
+
+  private
+  public :: any_vals_less_than, any_vals_outside, extents_are
+contains
+  !-------------------------------------------------------------------------------------------------
+  ! Values less than a floor
+  !-------------------------------------------------------------------------------------------------
+  logical function any_vals_less_than_1D(array, check_value)
+    real(wp), dimension(:), intent(in) :: array
+    real(wp),               intent(in) :: check_value
+
+    real(wp) :: minValue
+
+    !$acc kernels copyin(array)
+    !$omp target map(to:array) map(from:minValue)
+    minValue = minval(array)
+    !$acc end kernels
+    !$omp end target
+
+    any_vals_less_than_1D = (minValue < check_value)
+
+  end function any_vals_less_than_1D
+!-------------------------------------------------------------------------------------------------
+  logical function any_vals_less_than_2D(array, check_value)
+    real(wp), dimension(:,:), intent(in) :: array
+    real(wp),                 intent(in) :: check_value
+
+    real(wp) :: minValue
+
+    !$acc kernels copyin(array)
+    !$omp target map(to:array) map(from:minValue)
+    minValue = minval(array)
+    !$acc end kernels
+    !$omp end target
+
+    any_vals_less_than_2D = (minValue < check_value)
+
+  end function any_vals_less_than_2D
+!-------------------------------------------------------------------------------------------------
+  logical function any_vals_less_than_3D(array, check_value)
+    real(wp), dimension(:,:,:), intent(in) :: array
+    real(wp),                   intent(in) :: check_value
+
+    real(wp) :: minValue
+
+#ifdef _OPENMP
+    integer :: dim1, dim2, dim3, i, j, k
+    dim1 = size(array,1)
+    dim2 = size(array,2)
+    dim3 = size(array,3)
+    minValue = check_value + epsilon(check_value) ! initialize to some value
+    !$omp target teams map(to:array) &
+    !$omp defaultmap(tofrom:scalar) reduction(min:minValue)
+    !$omp distribute parallel do simd reduction(min:minValue)
+    do i = 1, dim1
+       do j = 1, dim2
+          do k = 1, dim3
+             minValue = min(minValue,array(i,j,k))
+          enddo
+       enddo
+    enddo
+    !$omp end target teams
+#else
+    !$acc kernels copyin(array)
+    minValue = minval(array)
+    !$acc end kernels
+#endif
+
+    any_vals_less_than_3D = (minValue < check_value)
+
+  end function any_vals_less_than_3D
+  !-------------------------------------------------------------------------------------------------
+  ! Masked versions
+  !-------------------------------------------------------------------------------------------------
+  logical function any_vals_less_than_1D_masked(array, mask, check_value)
+    real   (wp), dimension(:), intent(in) :: array
+    logical(wl), dimension(:), intent(in) :: mask
+    real   (wp),               intent(in) :: check_value
+
+    real(wp) :: minValue
+
+    !$acc kernels copyin(array, mask)
+    !$omp target map(to: array, mask) map(from:minValue)
+    minValue = minval(array, mask=mask)
+    !$acc end kernels
+    !$omp end target
+
+    any_vals_less_than_1D_masked = (minValue < check_value)
+
+  end function any_vals_less_than_1D_masked
+  !-------------------------------------------------------------------------------------------------
+  logical function any_vals_less_than_2D_masked(array, mask, check_value)
+    real   (wp), dimension(:,:), intent(in) :: array
+    logical(wl), dimension(:,:), intent(in) :: mask
+    real   (wp),                 intent(in) :: check_value
+
+    real(wp) :: minValue
+
+    !$acc kernels copyin(array, mask)
+    !$omp target map(to: array, mask) map(from:minValue)
+    minValue = minval(array, mask=mask)
+    !$acc end kernels
+    !$omp end target
+
+    any_vals_less_than_2D_masked = (minValue < check_value)
+
+  end function any_vals_less_than_2D_masked
+  !-------------------------------------------------------------------------------------------------
+  logical function any_vals_less_than_3D_masked(array, mask, check_value)
+    real   (wp), dimension(:,:,:), intent(in) :: array
+    logical(wl), dimension(:,:,:), intent(in) :: mask
+    real   (wp),                   intent(in) :: check_value
+
+    real(wp) :: minValue
+
+    !$acc kernels copyin(array, mask)
+    !$omp target map(to: array, mask) map(from:minValue)
+    minValue = minval(array, mask=mask)
+    !$acc end kernels
+    !$omp end target
+
+    any_vals_less_than_3D_masked = (minValue < check_value)
+
+  end function any_vals_less_than_3D_masked
+  !-------------------------------------------------------------------------------------------------
+  ! Values outside a range
+  !-------------------------------------------------------------------------------------------------
+  logical function any_vals_outside_1D(array, checkMin, checkMax)
+    real(wp), dimension(:), intent(in) :: array
+    real(wp),               intent(in) :: checkMin, checkMax
+
+    real(wp) :: minValue, maxValue
+
+    !$acc kernels copyin(array)
+    !$omp target map(to:array) map(from:minValue, maxValue)
+    minValue = minval(array)
+    maxValue = maxval(array)
+    !$acc end kernels
+    !$omp end target
+    any_vals_outside_1D = minValue < checkMin .or. maxValue > checkMax
+
+  end function any_vals_outside_1D
+! ----------------------------------------------------------
+  logical function any_vals_outside_2D(array, checkMin, checkMax)
+    real(wp), dimension(:,:), intent(in) :: array
+    real(wp),                 intent(in) :: checkMin, checkMax
+
+    real(wp) :: minValue, maxValue
+
+    !$acc kernels copyin(array)
+    !$omp target map(to:array) map(from:minValue, maxValue)
+    minValue = minval(array)
+    maxValue = maxval(array)
+    !$acc end kernels
+    !$omp end target
+    any_vals_outside_2D = minValue < checkMin .or. maxValue > checkMax
+
+  end function any_vals_outside_2D
+! ----------------------------------------------------------
+  logical function any_vals_outside_3D(array, checkMin, checkMax)
+    real(wp), dimension(:,:,:), intent(in) :: array
+    real(wp),                   intent(in) :: checkMin, checkMax
+
+      ! Compact version using intrinsics below
+      ! but an explicit loop is the only current solution on GPUs
+    real(wp) :: minValue, maxValue
+
+
+#ifdef _OPENMP
+    integer :: dim1, dim2, dim3, i, j, k
+    dim1 = size(array,1)
+    dim2 = size(array,2)
+    dim3 = size(array,3)
+    minValue = checkMin + epsilon(checkMin) ! initialize to some value
+    maxValue = checkMax - epsilon(checkMax) ! initialize to some value
+    !$omp target teams map(to:array) &
+    !$omp defaultmap(tofrom:scalar) reduction(min:minValue) reduction(max:maxValue)
+    !$omp distribute parallel do simd reduction(min:minValue) reduction(max:maxValue)
+    do i= 1, dim1
+       do j = 1, dim2
+          do k = 1, dim3
+             minValue = min(minValue,array(i,j,k))
+             maxValue = max(maxValue,array(i,j,k))
+          enddo
+       enddo
+    enddo
+    !$omp end target teams
+#else
+    !$acc kernels copyin(array)
+    minValue = minval(array)
+    maxValue = maxval(array)
+    !$acc end kernels
+#endif
+
+    any_vals_outside_3D = minValue < checkMin .or. maxValue > checkMax
+
+  end function any_vals_outside_3D
+  ! ----------------------------------------------------------
+  ! Masked versions
+  ! ----------------------------------------------------------
+  logical function any_vals_outside_1D_masked(array, mask, checkMin, checkMax)
+    real   (wp), dimension(:), intent(in) :: array
+    logical(wl), dimension(:), intent(in) :: mask
+    real(wp),                  intent(in) :: checkMin, checkMax
+
+    real(wp) :: minValue, maxValue
+
+    !$acc kernels copyin(array, mask)
+    !$omp target map(to: array, mask) map(from:minValue, maxValue)
+    minValue = minval(array, mask=mask)
+    maxValue = maxval(array, mask=mask)
+    !$acc end kernels
+    !$omp end target
+    any_vals_outside_1D_masked = minValue < checkMin .or. maxValue > checkMax
+
+  end function any_vals_outside_1D_masked
+! ----------------------------------------------------------
+  logical function any_vals_outside_2D_masked(array, mask, checkMin, checkMax)
+    real   (wp), dimension(:,:), intent(in) :: array
+    logical(wl), dimension(:,:), intent(in) :: mask
+    real(wp),                    intent(in) :: checkMin, checkMax
+
+    real(wp) :: minValue, maxValue
+
+    !$acc kernels copyin(array, mask)
+    !$omp target map(to: array, mask) map(from:minValue, maxValue)
+    minValue = minval(array, mask=mask)
+    maxValue = maxval(array, mask=mask)
+    !$acc end kernels
+    !$omp end target
+    any_vals_outside_2D_masked = minValue < checkMin .or. maxValue > checkMax
+
+  end function any_vals_outside_2D_masked
+! ----------------------------------------------------------
+  logical function any_vals_outside_3D_masked(array, mask, checkMin, checkMax)
+    real   (wp), dimension(:,:,:), intent(in) :: array
+    logical(wl), dimension(:,:,:), intent(in) :: mask
+    real(wp),                      intent(in) :: checkMin, checkMax
+
+    real(wp) :: minValue, maxValue
+
+    !$acc kernels copyin(array, mask)
+    !$omp target map(to: array, mask) map(from:minValue, maxValue)
+    minValue = minval(array, mask=mask)
+    maxValue = maxval(array, mask=mask)
+    !$acc end kernels
+    !$omp end target
+    any_vals_outside_3D_masked = minValue < checkMin .or. maxValue > checkMax
+
+  end function any_vals_outside_3D_masked
+  !--------------------------------------------------------------------------------------------------------------------
+  !
+  ! Extents
+  !
+  ! --------------------------------------------------------------------------------------
+  function extents_are_1d(array, n1)
+    real(wp), dimension(:          ), intent(in) :: array
+    integer,                          intent(in) :: n1
+    logical(wl)                                  :: extents_are_1d
+
+    extents_are_1d = (size(array,1) == n1)
+  end function extents_are_1d
+  ! --------------------------------------------------------------------------------------
+  function extents_are_2d(array, n1, n2)
+    real(wp), dimension(:,:        ), intent(in) :: array
+    integer,                          intent(in) :: n1, n2
+    logical(wl)                                  :: extents_are_2d
+
+    extents_are_2d = (size(array,1) == n1 .and. &
+                      size(array,2) == n2 )
+  end function extents_are_2d
+  ! --------------------------------------------------------------------------------------
+  function extents_are_3d(array, n1, n2, n3)
+    real(wp), dimension(:,:,:      ), intent(in) :: array
+    integer,                          intent(in) :: n1, n2, n3
+    logical(wl)                                  :: extents_are_3d
+
+    extents_are_3d = (size(array,1) == n1 .and. &
+                      size(array,2) == n2 .and. &
+                      size(array,3) == n3)
+  end function extents_are_3d
+  ! --------------------------------------------------------------------------------------
+  function extents_are_4d(array, n1, n2, n3, n4)
+    real(wp), dimension(:,:,:,:    ), intent(in) :: array
+    integer,                          intent(in) :: n1, n2, n3, n4
+    logical(wl)                                  :: extents_are_4d
+
+    extents_are_4d = (size(array,1) == n1 .and. &
+                      size(array,2) == n2 .and. &
+                      size(array,3) == n3 .and. &
+                      size(array,4) == n4)
+  end function extents_are_4d
+  ! --------------------------------------------------------------------------------------
+  function extents_are_5d(array, n1, n2, n3, n4, n5)
+    real(wp), dimension(:,:,:,:,:  ), intent(in) :: array
+    integer,                          intent(in) :: n1, n2, n3, n4, n5
+    logical(wl)                                  :: extents_are_5d
+
+    extents_are_5d = (size(array,1) == n1 .and. &
+                      size(array,2) == n2 .and. &
+                      size(array,3) == n3 .and. &
+                      size(array,4) == n4 .and. &
+                      size(array,5) == n5 )
+  end function extents_are_5d
+  ! --------------------------------------------------------------------------------------
+  function extents_are_6d(array, n1, n2, n3, n4, n5, n6)
+    real(wp), dimension(:,:,:,:,:,:), intent(in) :: array
+    integer,                          intent(in) :: n1, n2, n3, n4, n5, n6
+    logical(wl)                                  :: extents_are_6d
+
+    extents_are_6d = (size(array,1) == n1 .and. &
+                      size(array,2) == n2 .and. &
+                      size(array,3) == n3 .and. &
+                      size(array,4) == n4 .and. &
+                      size(array,5) == n5 .and. &
+                      size(array,6) == n6 )
+  end function extents_are_6d
+  ! --------------------------------------------------------------------------------------
+  function extents_are_2d_int(array, n1, n2)
+    integer,  dimension(:,:        ), intent(in) :: array
+    integer,                          intent(in) :: n1, n2
+    logical(wl)                                  :: extents_are_2d_int
+
+    extents_are_2d_int = (size(array,1) == n1 .and. &
+                          size(array,2) == n2 )
+  end function extents_are_2d_int
+ 
+end module mo_rte_util_array_validation
diff --git a/reference/rte-fortran-interface/src/mo_source_functions.F90 b/reference/rte-fortran-interface/src/mo_source_functions.F90
new file mode 100644
index 000000000..d242a9e83
--- /dev/null
+++ b/reference/rte-fortran-interface/src/mo_source_functions.F90
@@ -0,0 +1,291 @@
+! This code is part of Radiative Transfer for Energetics (RTE)
+!
+! Contacts: Robert Pincus and Eli Mlawer
+! email:  rrtmgp@aer.com
+!
+! Copyright 2015-  Atmospheric and Environmental Research,
+!    Regents of the University of Colorado,
+!    Trustees of Columbia University in the City of New York
+! All right reserved.
+!
+! Use and duplication is permitted under the terms of the
+!    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause
+! -------------------------------------------------------------------------------------------------
+!
+!> Encapsulate source function arrays for longwave/lw/internal sources
+!    and shortwave/sw/external source.
+!
+! -------------------------------------------------------------------------------------------------
+module mo_source_functions
+  use mo_rte_kind,      only: wp
+  use mo_optical_props, only: ty_optical_props
+  implicit none
+  private
+  ! -------------------------------------------------------------------------------------------------
+  !
+  !> Type representing Planck source functions in \(W/m^2\)
+  !>   computed at layer center, at layer edges using
+  !>   spectral mapping in each direction separately, and at the surface
+  !>
+  type, extends(ty_optical_props), public :: ty_source_func_lw
+    real(wp), allocatable, dimension(:,:,:) :: lay_source
+        !! Planck source at layer average temperature (ncol, nlay, ngpt)
+    real(wp), allocatable, dimension(:,:,:) :: lev_source_inc
+        !! Planck source at layer edge in increasing ilay direction (ncol, nlay+1, ngpt)
+    real(wp), allocatable, dimension(:,:,:) :: lev_source_dec
+        !! Planck source at layer edge in decreasing ilay direction (ncol, nlay+1, ngpt)
+    real(wp), allocatable, dimension(:,:  ) :: sfc_source
+        !! Planck function at surface temperature
+    real(wp), allocatable, dimension(:,:  ) :: sfc_source_Jac
+        !! surface source Jacobian
+  contains
+    generic,   public :: alloc => alloc_lw, copy_and_alloc_lw
+    procedure, private:: alloc_lw
+    procedure, private:: copy_and_alloc_lw
+    procedure, public :: is_allocated => is_allocated_lw
+    procedure, public :: finalize     => finalize_lw
+    procedure, public :: get_subset   => get_subset_range_lw
+    procedure, public :: get_ncol     => get_ncol_lw
+    procedure, public :: get_nlay     => get_nlay_lw
+    ! validate?
+  end type ty_source_func_lw
+  ! -------------------------------------------------------------------------------------------------
+  !
+  ! Type for shortave sources: top-of-domain spectrally-resolved flux
+  !   The type isn't used at this time, so it's declared as private.
+  !
+  type, extends(ty_optical_props), private :: ty_source_func_sw
+    real(wp), allocatable, dimension(:,:  ) :: toa_source
+  contains
+    generic,   public :: alloc => alloc_sw, copy_and_alloc_sw
+    procedure, private:: alloc_sw
+    procedure, private:: copy_and_alloc_sw
+    procedure, public :: is_allocated => is_allocated_sw
+    procedure, public :: finalize => finalize_sw
+    procedure, public :: get_subset => get_subset_range_sw
+    procedure, public :: get_ncol => get_ncol_sw
+    ! validate?
+  end type ty_source_func_sw
+  ! -------------------------------------------------------------------------------------------------
+contains
+  ! ------------------------------------------------------------------------------------------
+  !
+  !  Routines for initialization, validity checking, finalization
+  !
+  ! ------------------------------------------------------------------------------------------
+  !
+  ! Longwave
+  !
+  ! ------------------------------------------------------------------------------------------
+  pure function is_allocated_lw(this)
+    class(ty_source_func_lw), intent(in) :: this
+    logical                              :: is_allocated_lw
+
+    is_allocated_lw = this%is_initialized() .and. &
+                      allocated(this%sfc_source)
+  end function is_allocated_lw
+  ! --------------------------------------------------------------
+  function alloc_lw(this, ncol, nlay) result(err_message)
+    class(ty_source_func_lw),    intent(inout) :: this
+    integer,                     intent(in   ) :: ncol, nlay
+    character(len = 128)                       :: err_message
+
+    integer :: ngpt
+
+    err_message = ""
+    if(.not. this%is_initialized()) &
+      err_message = "source_func_lw%alloc: not initialized so can't allocate"
+    if(any([ncol, nlay] <= 0)) &
+      err_message = "source_func_lw%alloc: must provide positive extents for ncol, nlay"
+    if (err_message /= "") return
+
+    if(allocated(this%sfc_source))     deallocate(this%sfc_source)
+    if(allocated(this%sfc_source_Jac)) deallocate(this%sfc_source_Jac)
+    if(allocated(this%lay_source))     deallocate(this%lay_source)
+    if(allocated(this%lev_source_inc)) deallocate(this%lev_source_inc)
+    if(allocated(this%lev_source_dec)) deallocate(this%lev_source_dec)
+
+    ngpt = this%get_ngpt()
+    allocate(this%sfc_source    (ncol,     ngpt), this%lay_source    (ncol,nlay,ngpt), &
+             this%lev_source_inc(ncol,nlay,ngpt), this%lev_source_dec(ncol,nlay,ngpt))
+    allocate(this%sfc_source_Jac(ncol,     ngpt))
+  end function alloc_lw
+  ! --------------------------------------------------------------
+  function copy_and_alloc_lw(this, ncol, nlay, spectral_desc) result(err_message)
+    class(ty_source_func_lw),    intent(inout) :: this
+    integer,                     intent(in   ) :: ncol, nlay
+    class(ty_optical_props ),    intent(in   ) :: spectral_desc
+    character(len = 128)                       :: err_message
+
+    err_message = ""
+    if(.not. spectral_desc%is_initialized()) then
+      err_message = "source_func_lw%alloc: spectral_desc not initialized"
+      return
+    end if
+    call this%finalize()
+    err_message = this%init(spectral_desc)
+    if (err_message /= "") return
+    err_message = this%alloc(ncol,nlay)
+  end function copy_and_alloc_lw
+  ! ------------------------------------------------------------------------------------------
+  !
+  ! Shortwave
+  !
+  ! ------------------------------------------------------------------------------------------
+  pure function is_allocated_sw(this)
+    class(ty_source_func_sw), intent(in) :: this
+    logical                              :: is_allocated_sw
+
+    is_allocated_sw = this%ty_optical_props%is_initialized() .and. &
+                      allocated(this%toa_source)
+  end function is_allocated_sw
+  ! --------------------------------------------------------------
+  function alloc_sw(this, ncol) result(err_message)
+    class(ty_source_func_sw),    intent(inout) :: this
+    integer,                     intent(in   ) :: ncol
+    character(len = 128)                       :: err_message
+
+    err_message = ""
+    if(.not. this%is_initialized()) &
+      err_message = "source_func_sw%alloc: not initialized so can't allocate"
+    if(ncol <= 0) &
+      err_message = "source_func_sw%alloc: must provide positive extents for ncol"
+    if (err_message /= "") return
+
+    if(allocated(this%toa_source)) deallocate(this%toa_source)
+
+    allocate(this%toa_source(ncol, this%get_ngpt()))
+  end function alloc_sw
+  ! --------------------------------------------------------------
+  function copy_and_alloc_sw(this, ncol, spectral_desc) result(err_message)
+    class(ty_source_func_sw),    intent(inout) :: this
+    integer,                     intent(in   ) :: ncol
+    class(ty_optical_props ),    intent(in   ) :: spectral_desc
+    character(len = 128)                       :: err_message
+
+    err_message = ""
+    if(.not. spectral_desc%is_initialized()) then
+      err_message = "source_func_sw%alloc: spectral_desc not initialized"
+      return
+    end if
+    err_message = this%init(spectral_desc)
+    if(err_message /= "") return
+    err_message = this%alloc(ncol)
+  end function copy_and_alloc_sw
+  ! ------------------------------------------------------------------------------------------
+  !
+  ! Finalization (memory deallocation)
+  !
+  ! ------------------------------------------------------------------------------------------
+  subroutine finalize_lw(this)
+    class(ty_source_func_lw),    intent(inout) :: this
+
+    if(allocated(this%lay_source    )) deallocate(this%lay_source)
+    if(allocated(this%lev_source_inc)) deallocate(this%lev_source_inc)
+    if(allocated(this%lev_source_dec)) deallocate(this%lev_source_dec)
+    if(allocated(this%sfc_source    )) deallocate(this%sfc_source)
+    if(allocated(this%sfc_source_Jac)) deallocate(this%sfc_source_Jac)
+    call this%ty_optical_props%finalize()
+  end subroutine finalize_lw
+  ! --------------------------------------------------------------
+  subroutine finalize_sw(this)
+    class(ty_source_func_sw),    intent(inout) :: this
+
+    if(allocated(this%toa_source    )) deallocate(this%toa_source)
+    call this%ty_optical_props%finalize()
+  end subroutine finalize_sw
+  ! ------------------------------------------------------------------------------------------
+  !
+  !  Routines for finding the problem size
+  !
+  ! ------------------------------------------------------------------------------------------
+  pure function get_ncol_lw(this)
+    class(ty_source_func_lw), intent(in) :: this
+    integer :: get_ncol_lw
+
+    if(this%is_allocated()) then
+      get_ncol_lw = size(this%lay_source,1)
+    else
+      get_ncol_lw = 0
+    end if
+  end function get_ncol_lw
+  ! --------------------------------------------------------------
+  pure function get_nlay_lw(this)
+    class(ty_source_func_lw), intent(in) :: this
+    integer :: get_nlay_lw
+
+    if(this%is_allocated()) then
+      get_nlay_lw = size(this%lay_source,2)
+    else
+      get_nlay_lw = 0
+    end if
+  end function get_nlay_lw
+  ! --------------------------------------------------------------
+  pure function get_ncol_sw(this)
+    class(ty_source_func_sw), intent(in) :: this
+    integer :: get_ncol_sw
+
+    if(this%is_allocated()) then
+      get_ncol_sw = size(this%toa_source,1)
+    else
+      get_ncol_sw = 0
+    end if
+  end function get_ncol_sw
+  ! ------------------------------------------------------------------------------------------
+  !
+  !  Routines for subsetting
+  !
+  ! ------------------------------------------------------------------------------------------
+  function get_subset_range_lw(full, start, n, subset) result(err_message)
+    class(ty_source_func_lw), intent(inout) :: full
+    integer,                  intent(in   ) :: start, n
+    class(ty_source_func_lw), intent(inout) :: subset
+    character(128)                          :: err_message
+
+    err_message = ""
+    if(.not. full%is_allocated()) then
+      err_message = "source_func_lw%subset: Asking for a subset of unallocated data"
+      return
+    end if
+    if(start < 1 .or. start + n-1 > full%get_ncol()) &
+       err_message = "optical_props%subset: Asking for columns outside range"
+    if(err_message /= "") return
+
+    !
+    ! Could check to see if subset is correctly sized, has consistent spectral discretization
+    !
+    if(subset%is_allocated()) call subset%finalize()
+    err_message = subset%alloc(n, full%get_nlay(), full)
+    if(err_message /= "") return
+    subset%sfc_source    (1:n,  :) = full%sfc_source    (start:start+n-1,  :)
+    subset%sfc_source_Jac(1:n,  :) = full%sfc_source_Jac(start:start+n-1,  :)
+    subset%lay_source    (1:n,:,:) = full%lay_source    (start:start+n-1,:,:)
+    subset%lev_source_inc(1:n,:,:) = full%lev_source_inc(start:start+n-1,:,:)
+    subset%lev_source_dec(1:n,:,:) = full%lev_source_dec(start:start+n-1,:,:)
+  end function get_subset_range_lw
+  ! ------------------------------------------------------------------------------------------
+  function get_subset_range_sw(full, start, n, subset) result(err_message)
+    class(ty_source_func_sw), intent(inout) :: full
+    integer,                  intent(in   ) :: start, n
+    class(ty_source_func_sw), intent(inout) :: subset
+    character(128)                          :: err_message
+
+    err_message = ""
+    if(.not. full%is_allocated()) then
+      err_message = "source_func_sw%subset: Asking for a subset of unallocated data"
+      return
+    end if
+    if(start < 1 .or. start + n-1 > full%get_ncol()) &
+       err_message = "optical_props%subset: Asking for columns outside range"
+    if(err_message /= "") return
+
+    !
+    ! Could check to see if subset is correctly sized, has consistent spectral discretization
+    !
+    if(subset%is_allocated()) call subset%finalize()
+    ! Seems like I should be able to call "alloc" generically but the compilers are complaining
+    err_message = subset%copy_and_alloc_sw(n, full)
+
+    subset%toa_source(1:n,  :) = full%toa_source(start:start+n-1,  :)
+  end function get_subset_range_sw
+end module mo_source_functions
diff --git a/reference/rte-fortran-interface/tipuesearch/.DS_Store b/reference/rte-fortran-interface/tipuesearch/.DS_Store
new file mode 100644
index 000000000..c087f26fc
Binary files /dev/null and b/reference/rte-fortran-interface/tipuesearch/.DS_Store differ
diff --git a/reference/rte-fortran-interface/tipuesearch/img/.DS_Store b/reference/rte-fortran-interface/tipuesearch/img/.DS_Store
new file mode 100644
index 000000000..ed47b307b
Binary files /dev/null and b/reference/rte-fortran-interface/tipuesearch/img/.DS_Store differ
diff --git a/reference/rte-fortran-interface/tipuesearch/img/loader.gif b/reference/rte-fortran-interface/tipuesearch/img/loader.gif
new file mode 100644
index 000000000..9c97738a2
Binary files /dev/null and b/reference/rte-fortran-interface/tipuesearch/img/loader.gif differ
diff --git a/reference/rte-fortran-interface/tipuesearch/img/search.png b/reference/rte-fortran-interface/tipuesearch/img/search.png
new file mode 100644
index 000000000..8c6943d42
Binary files /dev/null and b/reference/rte-fortran-interface/tipuesearch/img/search.png differ
diff --git a/reference/rte-fortran-interface/tipuesearch/tipuesearch.css b/reference/rte-fortran-interface/tipuesearch/tipuesearch.css
new file mode 100644
index 000000000..5a94440f9
--- /dev/null
+++ b/reference/rte-fortran-interface/tipuesearch/tipuesearch.css
@@ -0,0 +1,158 @@
+
+/*
+Tipue Search 4.0
+Copyright (c) 2014 Tipue
+Tipue Search is released under the MIT License
+http://www.tipue.com/search
+*/
+
+
+/*
+#tipue_search_input
+{
+     font: 13px/1.6 'open sans', sans-serif;
+	color: #333;
+	padding: 12px 12px 12px 40px;
+	width: 170px;
+	border: 1px solid #e2e2e2;
+	border-radius: 0;
+	-moz-appearance: none;
+	-webkit-appearance: none;
+     box-shadow: none; 
+	outline: 0;
+	margin: 0;
+	background: #fff url('img/search.png') no-repeat 15px 15px;
+}
+*/
+
+#tipue_search_content
+{
+     max-width: 650px;
+	padding-top: 15px;
+	margin: 0;
+}
+#tipue_search_loading
+{
+     padding-top: 60px;     
+     background: #fff url('img/loader.gif') no-repeat left;
+}
+
+#tipue_search_warning_head
+{
+     font: 300 15px/1.6 'Open Sans', sans-serif;
+	color: #555;
+}
+#tipue_search_warning
+{
+     font: 300 13px/1.6 'Open Sans', sans-serif;
+	color: #333;
+	margin: 7px 0;
+}
+#tipue_search_warning a
+{
+     color: #36c;
+     font-weight: 300;
+     text-decoration: none;
+}
+#tipue_search_warning a:hover
+{
+     color: #333;  
+}
+#tipue_search_results_count
+{
+     font: 300 13px/1.6 'Open Sans', sans-serif;
+	color: #333;
+}
+.tipue_search_content_title
+{
+     font: 300 25px/1.7 'Open Sans', sans-serif;
+     text-rendering: optimizelegibility;
+	margin-top: 23px;
+}
+.tipue_search_content_title a
+{
+     color: #333;
+     text-decoration: none;
+}
+.tipue_search_content_title a:hover
+{
+     color: #555;
+}
+.tipue_search_content_url
+{
+     font: 300 13px/1.7 'Open Sans', sans-serif;
+     word-break: break-all;
+     word-break: break-word;
+     -webkit-hyphens: auto;
+     -moz-hyphens: auto;
+     hyphens: auto;
+}
+.tipue_search_content_url a
+{
+     color: #06c;
+     text-decoration: none;
+}
+.tipue_search_content_url a:hover
+{
+     color: #333;   
+}
+.tipue_search_content_text
+{
+     font: 300 15px/1.6 'Open Sans', sans-serif;
+	color: #555;
+     word-break: break-all;
+     word-break: break-word;
+     -webkit-hyphens: auto;
+     -moz-hyphens: auto;
+     hyphens: auto;
+     margin-top: 3px;
+}
+.h01
+{
+     color: #333;
+     font-weight: 400;
+}
+
+#tipue_search_foot
+{
+     margin: 51px 0 21px 0;
+}
+#tipue_search_foot_boxes
+{
+	padding: 0;
+	margin: 0;
+     font: 12px/1 'Open Sans', sans-serif;
+}
+#tipue_search_foot_boxes li
+{
+	list-style: none;
+	margin: 0;
+	padding: 0;
+	display: inline;
+}
+#tipue_search_foot_boxes li a
+{
+	padding: 9px 15px 10px 15px;
+     background-color: #f1f1f1;
+     border: 1px solid #dcdcdc;
+     border-radius: 1px;
+	color: #333;
+	margin-right: 7px;
+	text-decoration: none;
+	text-align: center;
+}
+#tipue_search_foot_boxes li.current
+{
+	padding: 9px 15px 10px 15px;
+     background: #fff;
+     border: 1px solid #dcdcdc;
+     border-radius: 1px;
+	color: #333;
+	margin-right: 7px;
+	text-align: center;
+}
+#tipue_search_foot_boxes li a:hover
+{
+	border: 1px solid #ccc;
+	background-color: #f3f3f3;
+}
diff --git a/reference/rte-fortran-interface/tipuesearch/tipuesearch.js b/reference/rte-fortran-interface/tipuesearch/tipuesearch.js
new file mode 100644
index 000000000..b411af5d3
--- /dev/null
+++ b/reference/rte-fortran-interface/tipuesearch/tipuesearch.js
@@ -0,0 +1,452 @@
+
+/*
+Tipue Search 4.0
+Copyright (c) 2014 Tipue
+Tipue Search is released under the MIT License
+http://www.tipue.com/search
+*/ 
+
+
+(function($) {
+
+     $.fn.tipuesearch = function(options) {
+
+          var set = $.extend( {
+          
+               'show'                   : 7,
+               'newWindow'              : false,
+               'showURL'                : true,
+               'minimumLength'          : 3,
+               'descriptiveWords'       : 25,
+               'highlightTerms'         : true,
+               'highlightEveryTerm'     : false,
+               'mode'                   : 'static',
+               'liveDescription'        : '*',
+               'liveContent'            : '*',
+               'contentLocation'        : 'tipuesearch/tipuesearch_content.json'
+          
+          }, options);
+          
+          return this.each(function() {
+
+               var tipuesearch_in = {
+                    pages: []
+               };
+               $.ajaxSetup({
+                    async: false
+               });
+
+               if (set.mode == 'live')
+               {
+                    for (var i = 0; i < tipuesearch_pages.length; i++)
+                    {
+                         $.get(tipuesearch_pages[i], '',
+                              function (html)
+                              {
+                                   var cont = $(set.liveContent, html).text();
+                                   cont = cont.replace(/\s+/g, ' ');
+                                   var desc = $(set.liveDescription, html).text();
+                                   desc = desc.replace(/\s+/g, ' ');
+                                                                      
+                                   var t_1 = html.toLowerCase().indexOf('<title>');
+                                   var t_2 = html.toLowerCase().indexOf('</title>', t_1 + 7);
+                                   if (t_1 != -1 && t_2 != -1)
+                                   {
+                                        var tit = html.slice(t_1 + 7, t_2);
+                                   }
+                                   else
+                                   {
+                                        var tit = 'No title';
+                                   }
+
+                                   tipuesearch_in.pages.push({
+                                        "title": tit,
+                                        "text": desc,
+                                        "tags": cont,
+                                        "loc": tipuesearch_pages[i] 
+                                   });    
+                              }
+                         );
+                    }
+               }
+               
+               if (set.mode == 'json')
+               {
+                    $.getJSON(set.contentLocation,
+                         function(json)
+                         {
+                              tipuesearch_in = $.extend({}, json);
+                         }
+                    );
+               }
+
+               if (set.mode == 'static')
+               {
+                    tipuesearch_in = $.extend({}, tipuesearch);
+               }                              
+               
+               var tipue_search_w = '';
+               if (set.newWindow)
+               {
+                    tipue_search_w = ' target="_blank"';      
+               }
+
+               function getURLP(name)
+               {
+                    return decodeURIComponent((new RegExp('[?|&]' + name + '=' + '([^&;]+?)(&|#|;|$)').exec(location.search)||[,""])[1].replace(/\+/g, '%20')) || null;
+               }
+               if (getURLP('q'))
+               {
+                    $('#tipue_search_input').val(getURLP('q'));
+                    getTipueSearch(0, true);
+               }               
+               
+               $(this).keyup(function(event)
+               {
+                    if(event.keyCode == '13')
+                    {
+                         getTipueSearch(0, true);
+                    }
+               });
+
+               function getTipueSearch(start, replace)
+               {
+                    $('#tipue_search_content').hide();
+                    var out = '';
+                    var results = '';
+                    var show_replace = false;
+                    var show_stop = false;
+                    var standard = true;
+                    var c = 0;
+                    found = new Array();
+                    
+                    var d = $('#tipue_search_input').val().toLowerCase();
+                    d = $.trim(d);
+                    
+                    if ((d.match("^\"") && d.match("\"$")) || (d.match("^'") && d.match("'$")))
+                    {
+                         standard = false;
+                    }
+                    
+                    if (standard)
+                    {
+                         var d_w = d.split(' ');
+                         d = '';
+                         for (var i = 0; i < d_w.length; i++)
+                         {
+                              var a_w = true;
+                              for (var f = 0; f < tipuesearch_stop_words.length; f++)
+                              {
+                                   if (d_w[i] == tipuesearch_stop_words[f])
+                                   {
+                                        a_w = false;
+                                        show_stop = true;          
+                                   }
+                              }
+                              if (a_w)
+                              {
+                                   d = d + ' ' + d_w[i];
+                              }
+                         }
+                         d = $.trim(d);
+                         d_w = d.split(' ');
+                    }
+                    else
+                    {
+                         d = d.substring(1, d.length - 1);
+                    }
+               
+                    if (d.length >= set.minimumLength)
+                    {
+                         if (standard)
+                         {
+                              if (replace)
+                              {
+                                   var d_r = d;
+                                   for (var i = 0; i < d_w.length; i++)
+                                   {
+                                        for (var f = 0; f < tipuesearch_replace.words.length; f++)
+                                        {
+                                             if (d_w[i] == tipuesearch_replace.words[f].word)
+                                             {
+                                                  d = d.replace(d_w[i], tipuesearch_replace.words[f].replace_with);
+                                                  show_replace = true;
+                                             }
+                                        }
+                                   }
+                                   d_w = d.split(' ');
+                              }                   
+                    
+                              var d_t = d;
+                              for (var i = 0; i < d_w.length; i++)
+                              {
+                                   for (var f = 0; f < tipuesearch_stem.words.length; f++)
+                                   {
+                                        if (d_w[i] == tipuesearch_stem.words[f].word)
+                                        {
+                                             d_t = d_t + ' ' + tipuesearch_stem.words[f].stem;
+                                        }
+                                   }
+                              }
+                              d_w = d_t.split(' ');
+
+                              for (var i = 0; i < tipuesearch_in.pages.length; i++)
+                              {
+                                   var score = 1000000000;
+                                   var s_t = tipuesearch_in.pages[i].text;
+                                   for (var f = 0; f < d_w.length; f++)
+                                   {
+                                        var pat = new RegExp(d_w[f], 'i');
+                                        if (tipuesearch_in.pages[i].title.search(pat) != -1)
+                                        {
+                                             score -= (200000 - i);
+                                        }
+                                        if (tipuesearch_in.pages[i].text.search(pat) != -1)
+                                        {
+                                             score -= (150000 - i);
+                                        }
+                                        
+                                        if (set.highlightTerms)
+                                        {
+                                             if (set.highlightEveryTerm) 
+                                             {
+                                                  var patr = new RegExp('(' + d_w[f] + ')', 'gi');
+                                             }
+                                             else
+                                             {
+                                                  var patr = new RegExp('(' + d_w[f] + ')', 'i');
+                                             }
+                                             s_t = s_t.replace(patr, "<span class=\"h01\">$1</span>");
+                                        }
+                                        if (tipuesearch_in.pages[i].tags.search(pat) != -1)
+                                        {
+                                             score -= (100000 - i);
+                                        }
+                                        
+                                        if (d_w[f].match("^-"))
+                                        {
+                                             pat = new RegExp(d_w[f].substring(1), 'i');
+                                             if (tipuesearch_in.pages[i].title.search(pat) != -1 || tipuesearch_in.pages[i].text.search(pat) != -1 || tipuesearch_in.pages[i].tags.search(pat) != -1)
+                                             {
+                                                  score = 1000000000;     
+                                             }    
+                                        }
+                                   }
+                                   
+                                   if (score < 1000000000)
+                                   {
+                                        found[c++] = score + '^' + tipuesearch_in.pages[i].title + '^' + s_t + '^' + tipuesearch_in.pages[i].loc;                                                                   
+                                   }
+                              }
+                         }
+                         else
+                         {
+                              for (var i = 0; i < tipuesearch_in.pages.length; i++)
+                              {
+                                   var score = 1000000000;
+                                   var s_t = tipuesearch_in.pages[i].text;
+                                   var pat = new RegExp(d, 'i');
+                                   if (tipuesearch_in.pages[i].title.search(pat) != -1)
+                                   {
+                                        score -= (200000 - i);
+                                   }
+                                   if (tipuesearch_in.pages[i].text.search(pat) != -1)
+                                   {
+                                        score -= (150000 - i);
+                                   }
+                                   
+                                   if (set.highlightTerms)
+                                   {
+                                        if (set.highlightEveryTerm) 
+                                        {
+                                             var patr = new RegExp('(' + d + ')', 'gi');
+                                        }
+                                        else
+                                        {
+                                             var patr = new RegExp('(' + d + ')', 'i');
+                                        }
+                                        s_t = s_t.replace(patr, "<span class=\"h01\">$1</span>");
+                                   }
+                                   if (tipuesearch_in.pages[i].tags.search(pat) != -1)
+                                   {
+                                        score -= (100000 - i);
+                                   }
+                              
+                                   if (score < 1000000000)
+                                   {
+                                        found[c++] = score + '^' + tipuesearch_in.pages[i].title + '^' + s_t + '^' + tipuesearch_in.pages[i].loc;                                                                   
+                                   }                              
+                              }
+                         }                         
+                         
+                         if (c != 0)
+                         {
+                              if (show_replace == 1)
+                              {
+                                   out += '<div id="tipue_search_warning_head">Showing results for ' + d + '</div>';
+                                   out += '<div id="tipue_search_warning">Search instead for <a href="javascript:void(0)" id="tipue_search_replaced">' + d_r + '</a></div>'; 
+                              }
+                              if (c == 1)
+                              {
+                                   out += '<div id="tipue_search_results_count">1 result</div>';
+                              }
+                              else
+                              {
+                                   c_c = c.toString().replace(/\B(?=(\d{3})+(?!\d))/g, ",");
+                                   out += '<div id="tipue_search_results_count">' + c_c + ' results</div>';
+                              }
+                              
+                              found.sort();
+                              var l_o = 0;
+                              for (var i = 0; i < found.length; i++)
+                              {
+                                   var fo = found[i].split('^');
+                                   if (l_o >= start && l_o < set.show + start)
+                                   {                                   
+                                        out += '<div class="tipue_search_content_title"><a href="' + fo[3] + '"' + tipue_search_w + '>' +  fo[1] + '</a></div>';
+ 
+                                        if (set.showURL)
+                                        {  
+                                             out += '<div class="tipue_search_content_url"><a href="' + fo[3] + '"' + tipue_search_w + '>' + fo[3] + '</a></div>';
+                                        }
+                                                                                
+                                        var t = fo[2];
+                                        var t_d = '';
+                                        var t_w = t.split(' ');
+                                        if (t_w.length < set.descriptiveWords)
+                                        {
+                                             t_d = t;
+                                        }
+                                        else
+                                        {
+                                             for (var f = 0; f < set.descriptiveWords; f++)
+                                             {
+                                                  t_d += t_w[f] + ' '; 	
+                                             }
+                                        }
+                                        t_d = $.trim(t_d);
+                                        if (t_d.charAt(t_d.length - 1) != '.')
+                                        {
+                                             t_d += ' ...';
+                                        }
+                                        out += '<div class="tipue_search_content_text">' + t_d + '</div>';
+                                   }
+                                   l_o++;     
+                              }
+                              
+                              if (c > set.show)
+                              {
+                                   var pages = Math.ceil(c / set.show);
+                                   var page = (start / set.show);
+                                   out += '<nav><ul class="pagination">';
+                                   
+                                   if (start > 0)
+                                   {
+                                       out += '<li><a href="javascript:void(0)" class="tipue_search_foot_box" id="' + (start - set.show) + '_' + replace + '"><span aria-hidden="true">&laquo;</span></a></li>'; 
+                                   }
+                                   else
+                                   {
+                                       out += '<li class="disabled"><span aria-hidden="true">&laquo;</span></li>';
+                                   }
+                                                       
+                                   if (page <= 2)
+                                   {
+                                        var p_b = pages;
+                                        if (pages > 3)
+                                        {
+                                             p_b = 3;
+                                        }                    
+                                        for (var f = 0; f < p_b; f++)
+                                        {
+                                             if (f == page)
+                                             {
+                                                  out += '<li class="active"><a href="#">' + (f + 1) + '<span class="sr-only">(current)</span></a></li>';
+                                             }
+                                             else
+                                             {
+                                                  out += '<li><a href="javascript:void(0)" class="tipue_search_foot_box" id="' + (f * set.show) + '_' + replace + '">' + (f + 1) + '</a></li>';
+                                             }
+                                        }
+                                   }
+                                   else
+                                   {
+                                        var p_b = page + 2;
+                                        if (p_b > pages)
+                                        {
+                                             p_b = pages; 
+                                        }
+                                        for (var f = page - 1; f < p_b; f++)
+                                        {
+                                             if (f == page)
+                                             {
+                                                  out += '<li class="active"><a href="#">' + (f + 1) + '<span class="sr-only">(current)</span></a></li>';
+                                             }
+                                             else
+                                             {
+                                                  out += '<li><a href="javascript:void(0)" class="tipue_search_foot_box" id="' + (f * set.show) + '_' + replace + '">' + (f + 1) + '</a></li>';
+                                             }
+                                        }
+                                   }                         
+                                                      
+                                   if (page + 1 != pages)
+                                   {
+                                       out += '<li><a href="javascript:void(0)" class="tipue_search_foot_box" id="' + (start + set.show) + '_' + replace + '"><span aria-hidden="true">&raquo;</span></a></li>'; 
+                                   }
+                                   else
+                                   {
+                                       out += '<li class="disabled"><span aria-hidden="true">&raquo;</span></li>'; 
+                                   }                    
+                                   
+                                   out += '</ul></div>';
+                              }                        
+                         }
+                         else
+                         {
+                              out += '<div id="tipue_search_warning_head">Nothing found</div>'; 
+                         }
+                    }
+                    else
+                    {
+                         if (show_stop)
+                         {
+                              out += '<div id="tipue_search_warning_head">Nothing found</div><div id="tipue_search_warning">Common words are largely ignored</div>';     
+                         }
+                         else
+                         {
+                              out += '<div id="tipue_search_warning_head">Search too short</div>';
+                              if (set.minimumLength == 1)
+                              {
+                                   out += '<div id="tipue_search_warning">Should be one character or more</div>';
+                              }
+                              else
+                              {
+                                   out += '<div id="tipue_search_warning">Should be ' + set.minimumLength + ' characters or more</div>';
+                              }
+                         }
+                    }
+               
+                    $('#tipue_search_content').html(out);
+                    $('#tipue_search_content').slideDown(200);
+                    
+                    $('#tipue_search_replaced').click(function()
+                    {
+                         getTipueSearch(0, false);
+                    });                
+               
+                    $('.tipue_search_foot_box').click(function()
+                    {
+                         var id_v = $(this).attr('id');
+                         var id_a = id_v.split('_');
+                    
+                         getTipueSearch(parseInt(id_a[0]), id_a[1]);
+                    });                                                       
+               }          
+          
+          });
+     };
+   
+})(jQuery);
+
+
+
+
diff --git a/reference/rte-fortran-interface/tipuesearch/tipuesearch.min.js b/reference/rte-fortran-interface/tipuesearch/tipuesearch.min.js
new file mode 100644
index 000000000..f6cd2b4e7
--- /dev/null
+++ b/reference/rte-fortran-interface/tipuesearch/tipuesearch.min.js
@@ -0,0 +1,14 @@
+(function($){$.fn.tipuesearch=function(options){var set=$.extend({"show":7,"newWindow":false,"showURL":true,"minimumLength":3,"descriptiveWords":25,"highlightTerms":true,"highlightEveryTerm":false,"mode":"static","liveDescription":"*","liveContent":"*","contentLocation":"tipuesearch/tipuesearch_content.json"},options);return this.each(function(){var tipuesearch_in={pages:[]};$.ajaxSetup({async:false});if(set.mode=="live")for(var i=0;i<tipuesearch_pages.length;i++)$.get(tipuesearch_pages[i],"",function(html){var cont=
+$(set.liveContent,html).text();cont=cont.replace(/\s+/g," ");var desc=$(set.liveDescription,html).text();desc=desc.replace(/\s+/g," ");var t_1=html.toLowerCase().indexOf("<title>");var t_2=html.toLowerCase().indexOf("</title>",t_1+7);if(t_1!=-1&&t_2!=-1)var tit=html.slice(t_1+7,t_2);else var tit="No title";tipuesearch_in.pages.push({"title":tit,"text":desc,"tags":cont,"loc":tipuesearch_pages[i]})});if(set.mode=="json")$.getJSON(set.contentLocation,function(json){tipuesearch_in=$.extend({},json)});
+if(set.mode=="static")tipuesearch_in=$.extend({},tipuesearch);var tipue_search_w="";if(set.newWindow)tipue_search_w=' target="_blank"';function getURLP(name){return decodeURIComponent(((new RegExp("[?|&]"+name+"="+"([^&;]+?)(&|#|;|$)")).exec(location.search)||[,""])[1].replace(/\+/g,"%20"))||null}if(getURLP("q")){$("#tipue_search_input").val(getURLP("q"));getTipueSearch(0,true)}$(this).keyup(function(event){if(event.keyCode=="13")getTipueSearch(0,true)});function getTipueSearch(start,replace){$("#tipue_search_content").hide();
+var out="";var results="";var show_replace=false;var show_stop=false;var standard=true;var c=0;found=new Array;var d=$("#tipue_search_input").val().toLowerCase();d=$.trim(d);if(d.match('^"')&&d.match('"$')||d.match("^'")&&d.match("'$"))standard=false;if(standard){var d_w=d.split(" ");d="";for(var i=0;i<d_w.length;i++){var a_w=true;for(var f=0;f<tipuesearch_stop_words.length;f++)if(d_w[i]==tipuesearch_stop_words[f]){a_w=false;show_stop=true}if(a_w)d=d+" "+d_w[i]}d=$.trim(d);d_w=d.split(" ")}else d=
+d.substring(1,d.length-1);if(d.length>=set.minimumLength){if(standard){if(replace){var d_r=d;for(var i=0;i<d_w.length;i++)for(var f=0;f<tipuesearch_replace.words.length;f++)if(d_w[i]==tipuesearch_replace.words[f].word){d=d.replace(d_w[i],tipuesearch_replace.words[f].replace_with);show_replace=true}d_w=d.split(" ")}var d_t=d;for(var i=0;i<d_w.length;i++)for(var f=0;f<tipuesearch_stem.words.length;f++)if(d_w[i]==tipuesearch_stem.words[f].word)d_t=d_t+" "+tipuesearch_stem.words[f].stem;d_w=d_t.split(" ");
+for(var i=0;i<tipuesearch_in.pages.length;i++){var score=1E9;var s_t=tipuesearch_in.pages[i].text;for(var f=0;f<d_w.length;f++){var pat=new RegExp(d_w[f],"i");if(tipuesearch_in.pages[i].title.search(pat)!=-1)score-=2E5-i;if(tipuesearch_in.pages[i].text.search(pat)!=-1)score-=15E4-i;if(set.highlightTerms){if(set.highlightEveryTerm)var patr=new RegExp("("+d_w[f]+")","gi");else var patr=new RegExp("("+d_w[f]+")","i");s_t=s_t.replace(patr,'<span class="h01">$1</span>')}if(tipuesearch_in.pages[i].tags.search(pat)!=
+-1)score-=1E5-i;if(d_w[f].match("^-")){pat=new RegExp(d_w[f].substring(1),"i");if(tipuesearch_in.pages[i].title.search(pat)!=-1||tipuesearch_in.pages[i].text.search(pat)!=-1||tipuesearch_in.pages[i].tags.search(pat)!=-1)score=1E9}}if(score<1E9)found[c++]=score+"^"+tipuesearch_in.pages[i].title+"^"+s_t+"^"+tipuesearch_in.pages[i].loc}}else for(var i=0;i<tipuesearch_in.pages.length;i++){var score=1E9;var s_t=tipuesearch_in.pages[i].text;var pat=new RegExp(d,"i");if(tipuesearch_in.pages[i].title.search(pat)!=
+-1)score-=2E5-i;if(tipuesearch_in.pages[i].text.search(pat)!=-1)score-=15E4-i;if(set.highlightTerms){if(set.highlightEveryTerm)var patr=new RegExp("("+d+")","gi");else var patr=new RegExp("("+d+")","i");s_t=s_t.replace(patr,'<span class="h01">$1</span>')}if(tipuesearch_in.pages[i].tags.search(pat)!=-1)score-=1E5-i;if(score<1E9)found[c++]=score+"^"+tipuesearch_in.pages[i].title+"^"+s_t+"^"+tipuesearch_in.pages[i].loc}if(c!=0){if(show_replace==1){out+='<div id="tipue_search_warning_head">Showing results for '+
+d+"</div>";out+='<div id="tipue_search_warning">Search instead for <a href="javascript:void(0)" id="tipue_search_replaced">'+d_r+"</a></div>"}if(c==1)out+='<div id="tipue_search_results_count">1 result</div>';else{c_c=c.toString().replace(/\B(?=(\d{3})+(?!\d))/g,",");out+='<div id="tipue_search_results_count">'+c_c+" results</div>"}found.sort();var l_o=0;for(var i=0;i<found.length;i++){var fo=found[i].split("^");if(l_o>=start&&l_o<set.show+start){out+='<div class="tipue_search_content_title"><a href="'+
+fo[3]+'"'+tipue_search_w+">"+fo[1]+"</a></div>";if(set.showURL)out+='<div class="tipue_search_content_url"><a href="'+fo[3]+'"'+tipue_search_w+">"+fo[3]+"</a></div>";var t=fo[2];var t_d="";var t_w=t.split(" ");if(t_w.length<set.descriptiveWords)t_d=t;else for(var f=0;f<set.descriptiveWords;f++)t_d+=t_w[f]+" ";t_d=$.trim(t_d);if(t_d.charAt(t_d.length-1)!=".")t_d+=" ...";out+='<div class="tipue_search_content_text">'+t_d+"</div>"}l_o++}if(c>set.show){var pages=Math.ceil(c/set.show);var page=start/set.show;
+out+='<div id="tipue_search_foot"><ul id="tipue_search_foot_boxes">';if(start>0)out+='<li><a href="javascript:void(0)" class="tipue_search_foot_box" id="'+(start-set.show)+"_"+replace+'">Prev</a></li>';if(page<=2){var p_b=pages;if(pages>3)p_b=3;for(var f=0;f<p_b;f++)if(f==page)out+='<li class="current">'+(f+1)+"</li>";else out+='<li><a href="javascript:void(0)" class="tipue_search_foot_box" id="'+f*set.show+"_"+replace+'">'+(f+1)+"</a></li>"}else{var p_b=page+2;if(p_b>pages)p_b=pages;for(var f=page-
+1;f<p_b;f++)if(f==page)out+='<li class="current">'+(f+1)+"</li>";else out+='<li><a href="javascript:void(0)" class="tipue_search_foot_box" id="'+f*set.show+"_"+replace+'">'+(f+1)+"</a></li>"}if(page+1!=pages)out+='<li><a href="javascript:void(0)" class="tipue_search_foot_box" id="'+(start+set.show)+"_"+replace+'">Next</a></li>';out+="</ul></div>"}}else out+='<div id="tipue_search_warning_head">Nothing found</div>'}else if(show_stop)out+='<div id="tipue_search_warning_head">Nothing found</div><div id="tipue_search_warning">Common words are largely ignored</div>';
+else{out+='<div id="tipue_search_warning_head">Search too short</div>';if(set.minimumLength==1)out+='<div id="tipue_search_warning">Should be one character or more</div>';else out+='<div id="tipue_search_warning">Should be '+set.minimumLength+" characters or more</div>"}$("#tipue_search_content").html(out);$("#tipue_search_content").slideDown(200);$("#tipue_search_replaced").click(function(){getTipueSearch(0,false)});$(".tipue_search_foot_box").click(function(){var id_v=$(this).attr("id");var id_a=
+id_v.split("_");getTipueSearch(parseInt(id_a[0]),id_a[1])})}})}})(jQuery);
diff --git a/reference/rte-fortran-interface/tipuesearch/tipuesearch_content.js b/reference/rte-fortran-interface/tipuesearch/tipuesearch_content.js
new file mode 100644
index 000000000..a5209a0cb
--- /dev/null
+++ b/reference/rte-fortran-interface/tipuesearch/tipuesearch_content.js
@@ -0,0 +1 @@
+var tipuesearch = {"pages":[{"title":" RTE-Fortran ","text":"RTE-Fortran These pages provide a programmer's view of the Fortran user interface to RTE. Procedures in the two solvers ( rte_lw , rte_sw )\nrequire problems specified as sets of optical properties along with boundary conditions and/or internal sources of radiation.\nThe reduction of spectrally- and spatially-detailed calculations that specifies the output\nis defined in a flux output type The optical properties module provides a way to specify the spectrally-dependent\noptical properties of the atmosphere consistent with calculations neglecting scattering,\nusing two-stream scattering, or using n-stream scattering. init() routines to specify e.g. the spectral discretization load() routines to provide data (e.g. lookup tables) needed to do a calculation alloc() routines to allocate memory once the problem size is known finalize() routines to reset variables to an un-initialized state Some classes have get_ncol() and get_nlay() methods to report the problem size Some classes have get_subset() methods to extract values along the column dimension The listings below may not be exhaustive.\nTo see the full listings use the links at the top of the page.\nThere is a search bar in the top right. Return to the Documentation overview or the reference overview . Developer Info The RTE+RRTTMGP consortium","tags":"home","loc":"index.html"},{"title":"ty_source_func_lw – RTE-Fortran ","text":"type, public, extends( ty_optical_props ) :: ty_source_func_lw Type representing Planck source functions in computed at layer center, at layer edges using\n  spectral mapping in each direction separately, and at the surface Inherits type~~ty_source_func_lw~~InheritsGraph type~ty_source_func_lw ty_source_func_lw type~ty_optical_props ty_optical_props type~ty_source_func_lw->type~ty_optical_props Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lay_source lev_source_dec lev_source_inc sfc_source sfc_source_Jac Type-Bound Procedures alloc bands_are_equal convert_band2gpt convert_gpt2band expand finalize get_band_lims_gpoint get_band_lims_wavelength get_band_lims_wavenumber get_gpoint_bands get_name get_nband get_ncol get_ngpt get_nlay get_subset gpoints_are_equal init is_allocated is_initialized set_name Components Type Visibility Attributes Name Initial real(kind=wp), public, allocatable, dimension(:,:,:) :: lay_source Planck source at layer average temperature (ncol, nlay, ngpt) real(kind=wp), public, allocatable, dimension(:,:,:) :: lev_source_dec Planck source at layer edge in decreasing ilay direction (ncol, nlay+1, ngpt) real(kind=wp), public, allocatable, dimension(:,:,:) :: lev_source_inc Planck source at layer edge in increasing ilay direction (ncol, nlay+1, ngpt) real(kind=wp), public, allocatable, dimension(:,:  ) :: sfc_source Planck function at surface temperature real(kind=wp), public, allocatable, dimension(:,:  ) :: sfc_source_Jac surface source Jacobian Type-Bound Procedures generic, public :: alloc => alloc_lw, copy_and_alloc_lw private function alloc_lw(this, ncol, nlay) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_source_func_lw ), intent(inout) :: this integer, intent(in) :: ncol integer, intent(in) :: nlay Return Value character(len=128) private function copy_and_alloc_lw(this, ncol, nlay, spectral_desc) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_source_func_lw ), intent(inout) :: this integer, intent(in) :: ncol integer, intent(in) :: nlay class( ty_optical_props ), intent(in) :: spectral_desc Return Value character(len=128) procedure, public :: bands_are_equal private pure function bands_are_equal(this, that) Are the bands of two objects the same? (same number, same wavelength limits) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this class( ty_optical_props ), intent(in) :: that Return Value logical procedure, public :: convert_band2gpt private pure function convert_band2gpt(this, band) First and last g-point of a specific band Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this integer, intent(in) :: band Return Value integer,dimension(2) procedure, public :: convert_gpt2band private pure function convert_gpt2band(this, gpt) Band associated with a specific g-point Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this integer, intent(in) :: gpt Return Value integer procedure, public :: expand private pure function expand(this, arr_in) result(arr_out) Expand an array of dimension arr_in(nband) to dimension arr_out(ngpt) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this real(kind=wp), intent(in), dimension(:) :: arr_in Return Value real(kind=wp),dimension(size(this%gpt2band)) procedure, public :: finalize => finalize_lw private subroutine finalize_lw(this) Arguments Type Intent Optional Attributes Name class( ty_source_func_lw ), intent(inout) :: this procedure, public :: get_band_lims_gpoint private pure function get_band_lims_gpoint(this) The first and last g-point of all bands at once\n dimension (2, nbands) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer,dimension(size(this%band2gpt,dim=1), size(this%band2gpt,dim=2)) procedure, public :: get_band_lims_wavelength private pure function get_band_lims_wavelength(this) Lower and upper wavelength of all bands Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2)) procedure, public :: get_band_lims_wavenumber private pure function get_band_lims_wavenumber(this) Lower and upper wavenumber of all bands\n (upper and lower wavenumber by band) = band_lims_wvn(2,band) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2)) procedure, public :: get_gpoint_bands private pure function get_gpoint_bands(this) Bands for all the g-points at once\n dimension (ngpt) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer,dimension(size(this%gpt2band,dim=1)) procedure, public :: get_name private function get_name(this) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value character(len=name_len) procedure, public :: get_nband private pure function get_nband(this) Number of bands Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer procedure, public :: get_ncol => get_ncol_lw private pure function get_ncol_lw(this) Arguments Type Intent Optional Attributes Name class( ty_source_func_lw ), intent(in) :: this Return Value integer procedure, public :: get_ngpt private pure function get_ngpt(this) Number of g-points Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer procedure, public :: get_nlay => get_nlay_lw private pure function get_nlay_lw(this) Arguments Type Intent Optional Attributes Name class( ty_source_func_lw ), intent(in) :: this Return Value integer procedure, public :: get_subset => get_subset_range_lw private function get_subset_range_lw(full, start, n, subset) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_source_func_lw ), intent(inout) :: full integer, intent(in) :: start integer, intent(in) :: n class( ty_source_func_lw ), intent(inout) :: subset Return Value character(len=128) procedure, public :: gpoints_are_equal private pure function gpoints_are_equal(this, that) Is the g-point structure of two objects the same?\n   (same bands, same number of g-points, same mapping between bands and g-points) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this class( ty_optical_props ), intent(in) :: that Return Value logical generic, public :: init => init_base, init_base_from_copy private function init_base(this, band_lims_wvn, band_lims_gpt, name) result(err_message) Base class: Initialization\n  Values are assumed to be defined in bands a mapping between bands and g-points is provided Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this real(kind=wp), intent(in), dimension(:,:) :: band_lims_wvn integer, intent(in), optional dimension(:,:) :: band_lims_gpt character(len=*), intent(in), optional :: name Return Value character(len=128) private function init_base_from_copy(this, spectral_desc) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this class( ty_optical_props ), intent(in) :: spectral_desc Return Value character(len=128) procedure, public :: is_allocated => is_allocated_lw private pure function is_allocated_lw(this) Arguments Type Intent Optional Attributes Name class( ty_source_func_lw ), intent(in) :: this Return Value logical procedure, public :: is_initialized => is_initialized_base private pure function is_initialized_base(this) Base class: return true if initialized, false otherwise Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value logical procedure, public :: set_name private subroutine set_name(this, name) --- Setting/getting the name Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this character(len=*), intent(in) :: name","tags":"","loc":"type/ty_source_func_lw.html"},{"title":"ty_source_func_sw – RTE-Fortran ","text":"type, public, extends( ty_optical_props ) :: ty_source_func_sw Inherits type~~ty_source_func_sw~~InheritsGraph type~ty_source_func_sw ty_source_func_sw type~ty_optical_props ty_optical_props type~ty_source_func_sw->type~ty_optical_props Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Type-Bound Procedures alloc bands_are_equal convert_band2gpt convert_gpt2band expand finalize get_band_lims_gpoint get_band_lims_wavelength get_band_lims_wavenumber get_gpoint_bands get_name get_nband get_ncol get_ngpt get_subset gpoints_are_equal init is_allocated is_initialized set_name Type-Bound Procedures generic, public :: alloc => alloc_sw, copy_and_alloc_sw private function alloc_sw(this, ncol) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_source_func_sw ), intent(inout) :: this integer, intent(in) :: ncol Return Value character(len=128) private function copy_and_alloc_sw(this, ncol, spectral_desc) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_source_func_sw ), intent(inout) :: this integer, intent(in) :: ncol class( ty_optical_props ), intent(in) :: spectral_desc Return Value character(len=128) procedure, public :: bands_are_equal private pure function bands_are_equal(this, that) Are the bands of two objects the same? (same number, same wavelength limits) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this class( ty_optical_props ), intent(in) :: that Return Value logical procedure, public :: convert_band2gpt private pure function convert_band2gpt(this, band) First and last g-point of a specific band Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this integer, intent(in) :: band Return Value integer,dimension(2) procedure, public :: convert_gpt2band private pure function convert_gpt2band(this, gpt) Band associated with a specific g-point Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this integer, intent(in) :: gpt Return Value integer procedure, public :: expand private pure function expand(this, arr_in) result(arr_out) Expand an array of dimension arr_in(nband) to dimension arr_out(ngpt) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this real(kind=wp), intent(in), dimension(:) :: arr_in Return Value real(kind=wp),dimension(size(this%gpt2band)) procedure, public :: finalize => finalize_sw private subroutine finalize_sw(this) Arguments Type Intent Optional Attributes Name class( ty_source_func_sw ), intent(inout) :: this procedure, public :: get_band_lims_gpoint private pure function get_band_lims_gpoint(this) The first and last g-point of all bands at once\n dimension (2, nbands) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer,dimension(size(this%band2gpt,dim=1), size(this%band2gpt,dim=2)) procedure, public :: get_band_lims_wavelength private pure function get_band_lims_wavelength(this) Lower and upper wavelength of all bands Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2)) procedure, public :: get_band_lims_wavenumber private pure function get_band_lims_wavenumber(this) Lower and upper wavenumber of all bands\n (upper and lower wavenumber by band) = band_lims_wvn(2,band) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2)) procedure, public :: get_gpoint_bands private pure function get_gpoint_bands(this) Bands for all the g-points at once\n dimension (ngpt) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer,dimension(size(this%gpt2band,dim=1)) procedure, public :: get_name private function get_name(this) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value character(len=name_len) procedure, public :: get_nband private pure function get_nband(this) Number of bands Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer procedure, public :: get_ncol => get_ncol_sw private pure function get_ncol_sw(this) Arguments Type Intent Optional Attributes Name class( ty_source_func_sw ), intent(in) :: this Return Value integer procedure, public :: get_ngpt private pure function get_ngpt(this) Number of g-points Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer procedure, public :: get_subset => get_subset_range_sw private function get_subset_range_sw(full, start, n, subset) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_source_func_sw ), intent(inout) :: full integer, intent(in) :: start integer, intent(in) :: n class( ty_source_func_sw ), intent(inout) :: subset Return Value character(len=128) procedure, public :: gpoints_are_equal private pure function gpoints_are_equal(this, that) Is the g-point structure of two objects the same?\n   (same bands, same number of g-points, same mapping between bands and g-points) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this class( ty_optical_props ), intent(in) :: that Return Value logical generic, public :: init => init_base, init_base_from_copy private function init_base(this, band_lims_wvn, band_lims_gpt, name) result(err_message) Base class: Initialization\n  Values are assumed to be defined in bands a mapping between bands and g-points is provided Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this real(kind=wp), intent(in), dimension(:,:) :: band_lims_wvn integer, intent(in), optional dimension(:,:) :: band_lims_gpt character(len=*), intent(in), optional :: name Return Value character(len=128) private function init_base_from_copy(this, spectral_desc) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this class( ty_optical_props ), intent(in) :: spectral_desc Return Value character(len=128) procedure, public :: is_allocated => is_allocated_sw private pure function is_allocated_sw(this) Arguments Type Intent Optional Attributes Name class( ty_source_func_sw ), intent(in) :: this Return Value logical procedure, public :: is_initialized => is_initialized_base private pure function is_initialized_base(this) Base class: return true if initialized, false otherwise Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value logical procedure, public :: set_name private subroutine set_name(this, name) --- Setting/getting the name Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this character(len=*), intent(in) :: name","tags":"","loc":"type/ty_source_func_sw.html"},{"title":"ty_optical_props – RTE-Fortran ","text":"type, public :: ty_optical_props Base class for optical properties Describes the spectral discretization including the wavenumber limits\n  of each band (spectral region) and the mapping between g-points and bands Inherited by type~~ty_optical_props~~InheritedByGraph type~ty_optical_props ty_optical_props type~ty_source_func_lw ty_source_func_lw type~ty_source_func_lw->type~ty_optical_props type~ty_optical_props_arry ty_optical_props_arry type~ty_optical_props_arry->type~ty_optical_props type~ty_source_func_sw ty_source_func_sw type~ty_source_func_sw->type~ty_optical_props type~ty_optical_props_1scl ty_optical_props_1scl type~ty_optical_props_1scl->type~ty_optical_props_arry type~ty_optical_props_2str ty_optical_props_2str type~ty_optical_props_2str->type~ty_optical_props_arry type~ty_optical_props_nstr ty_optical_props_nstr type~ty_optical_props_nstr->type~ty_optical_props_arry Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Type-Bound Procedures bands_are_equal convert_band2gpt convert_gpt2band expand finalize get_band_lims_gpoint get_band_lims_wavelength get_band_lims_wavenumber get_gpoint_bands get_name get_nband get_ngpt gpoints_are_equal init is_initialized set_name Type-Bound Procedures procedure, public :: bands_are_equal private pure function bands_are_equal(this, that) Are the bands of two objects the same? (same number, same wavelength limits) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this class( ty_optical_props ), intent(in) :: that Return Value logical procedure, public :: convert_band2gpt private pure function convert_band2gpt(this, band) First and last g-point of a specific band Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this integer, intent(in) :: band Return Value integer,dimension(2) procedure, public :: convert_gpt2band private pure function convert_gpt2band(this, gpt) Band associated with a specific g-point Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this integer, intent(in) :: gpt Return Value integer procedure, public :: expand private pure function expand(this, arr_in) result(arr_out) Expand an array of dimension arr_in(nband) to dimension arr_out(ngpt) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this real(kind=wp), intent(in), dimension(:) :: arr_in Return Value real(kind=wp),dimension(size(this%gpt2band)) procedure, public :: finalize => finalize_base private subroutine finalize_base(this) Base class: finalize (deallocate memory) Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this procedure, public :: get_band_lims_gpoint private pure function get_band_lims_gpoint(this) The first and last g-point of all bands at once\n dimension (2, nbands) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer,dimension(size(this%band2gpt,dim=1), size(this%band2gpt,dim=2)) procedure, public :: get_band_lims_wavelength private pure function get_band_lims_wavelength(this) Lower and upper wavelength of all bands Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2)) procedure, public :: get_band_lims_wavenumber private pure function get_band_lims_wavenumber(this) Lower and upper wavenumber of all bands\n (upper and lower wavenumber by band) = band_lims_wvn(2,band) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2)) procedure, public :: get_gpoint_bands private pure function get_gpoint_bands(this) Bands for all the g-points at once\n dimension (ngpt) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer,dimension(size(this%gpt2band,dim=1)) procedure, public :: get_name private function get_name(this) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value character(len=name_len) procedure, public :: get_nband private pure function get_nband(this) Number of bands Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer procedure, public :: get_ngpt private pure function get_ngpt(this) Number of g-points Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer procedure, public :: gpoints_are_equal private pure function gpoints_are_equal(this, that) Is the g-point structure of two objects the same?\n   (same bands, same number of g-points, same mapping between bands and g-points) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this class( ty_optical_props ), intent(in) :: that Return Value logical generic, public :: init => init_base, init_base_from_copy private function init_base(this, band_lims_wvn, band_lims_gpt, name) result(err_message) Base class: Initialization\n  Values are assumed to be defined in bands a mapping between bands and g-points is provided Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this real(kind=wp), intent(in), dimension(:,:) :: band_lims_wvn integer, intent(in), optional dimension(:,:) :: band_lims_gpt character(len=*), intent(in), optional :: name Return Value character(len=128) private function init_base_from_copy(this, spectral_desc) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this class( ty_optical_props ), intent(in) :: spectral_desc Return Value character(len=128) procedure, public :: is_initialized => is_initialized_base private pure function is_initialized_base(this) Base class: return true if initialized, false otherwise Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value logical procedure, public :: set_name private subroutine set_name(this, name) --- Setting/getting the name Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this character(len=*), intent(in) :: name","tags":"","loc":"type/ty_optical_props.html"},{"title":"ty_optical_props_1scl – RTE-Fortran ","text":"type, public, extends( ty_optical_props_arry ) :: ty_optical_props_1scl ty_optical_props_arry represents optical properties as arrays with dimensions\n      column, height, spectral point\n  - Class 1-scalar only (extinction) optical depth\n  -  Class two-stream adds arrays for single scattering albedo ssa and\n     asymmetry parameter needed in two-stream methods\n  - Class n-stream adds arrays for single scattering albedo ssa and\n     phase function moments (index 1 = g) for use with discrete ordinate methods Inherits type~~ty_optical_props_1scl~~InheritsGraph type~ty_optical_props_1scl ty_optical_props_1scl type~ty_optical_props_arry ty_optical_props_arry type~ty_optical_props_1scl->type~ty_optical_props_arry type~ty_optical_props ty_optical_props type~ty_optical_props_arry->type~ty_optical_props Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables tau Type-Bound Procedures alloc_1scl bands_are_equal convert_band2gpt convert_gpt2band delta_scale expand finalize finalize_1scl get_band_lims_gpoint get_band_lims_wavelength get_band_lims_wavenumber get_gpoint_bands get_name get_nband get_ncol get_ngpt get_nlay get_subset gpoints_are_equal increment init is_initialized set_name validate Components Type Visibility Attributes Name Initial real(kind=wp), public, dimension(:,:,:), allocatable :: tau optical depth (ncol, nlay, ngpt) Type-Bound Procedures generic, public :: alloc_1scl => alloc_only_1scl, init_and_alloc_1scl, copy_and_alloc_1scl private function alloc_only_1scl(this, ncol, nlay) result(err_message) Straight allocation routines Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props_1scl ) :: this integer, intent(in) :: ncol integer, intent(in) :: nlay Return Value character(len=128) private function init_and_alloc_1scl(this, ncol, nlay, band_lims_wvn, band_lims_gpt, name) result(err_message) Initialization by specifying band limits and possibly g-point/band mapping Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props_1scl ) :: this integer, intent(in) :: ncol integer, intent(in) :: nlay real(kind=wp), intent(in), dimension(:,:) :: band_lims_wvn integer, intent(in), optional dimension(:,:) :: band_lims_gpt character(len=*), intent(in), optional :: name Return Value character(len=128) private function copy_and_alloc_1scl(this, ncol, nlay, spectral_desc, name) result(err_message) Initialization from an existing spectral discretization/ty_optical_props Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props_1scl ) :: this integer, intent(in) :: ncol integer, intent(in) :: nlay class( ty_optical_props ), intent(in) :: spectral_desc character(len=*), intent(in), optional :: name Return Value character(len=128) procedure, public :: bands_are_equal private pure function bands_are_equal(this, that) Are the bands of two objects the same? (same number, same wavelength limits) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this class( ty_optical_props ), intent(in) :: that Return Value logical procedure, public :: convert_band2gpt private pure function convert_band2gpt(this, band) First and last g-point of a specific band Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this integer, intent(in) :: band Return Value integer,dimension(2) procedure, public :: convert_gpt2band private pure function convert_gpt2band(this, gpt) Band associated with a specific g-point Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this integer, intent(in) :: gpt Return Value integer procedure, public :: delta_scale => delta_scale_1scl private function delta_scale_1scl(this, for) result(err_message) Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props_1scl ), intent(inout) :: this real(kind=wp), intent(in), optional dimension(:,:,:) :: for Return Value character(len=128) procedure, public :: expand private pure function expand(this, arr_in) result(arr_out) Expand an array of dimension arr_in(nband) to dimension arr_out(ngpt) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this real(kind=wp), intent(in), dimension(:) :: arr_in Return Value real(kind=wp),dimension(size(this%gpt2band)) procedure, public :: finalize => finalize_base private subroutine finalize_base(this) Base class: finalize (deallocate memory) Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this procedure, public :: finalize_1scl private function finalize_1scl(this) result(err_message) Finalize routines Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props_1scl ) :: this Return Value character(len=128) procedure, public :: get_band_lims_gpoint private pure function get_band_lims_gpoint(this) The first and last g-point of all bands at once\n dimension (2, nbands) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer,dimension(size(this%band2gpt,dim=1), size(this%band2gpt,dim=2)) procedure, public :: get_band_lims_wavelength private pure function get_band_lims_wavelength(this) Lower and upper wavelength of all bands Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2)) procedure, public :: get_band_lims_wavenumber private pure function get_band_lims_wavenumber(this) Lower and upper wavenumber of all bands\n (upper and lower wavenumber by band) = band_lims_wvn(2,band) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2)) procedure, public :: get_gpoint_bands private pure function get_gpoint_bands(this) Bands for all the g-points at once\n dimension (ngpt) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer,dimension(size(this%gpt2band,dim=1)) procedure, public :: get_name private function get_name(this) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value character(len=name_len) procedure, public :: get_nband private pure function get_nband(this) Number of bands Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer procedure, public :: get_ncol private pure function get_ncol(this) Arguments Type Intent Optional Attributes Name class( ty_optical_props_arry ), intent(in) :: this Return Value integer procedure, public :: get_ngpt private pure function get_ngpt(this) Number of g-points Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer procedure, public :: get_nlay private pure function get_nlay(this) Arguments Type Intent Optional Attributes Name class( ty_optical_props_arry ), intent(in) :: this Return Value integer procedure, public :: get_subset => subset_1scl_range private function subset_1scl_range(full, start, n, subset) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_optical_props_1scl ), intent(inout) :: full integer, intent(in) :: start integer, intent(in) :: n class( ty_optical_props_arry ), intent(inout) :: subset Return Value character(len=128) procedure, public :: gpoints_are_equal private pure function gpoints_are_equal(this, that) Is the g-point structure of two objects the same?\n   (same bands, same number of g-points, same mapping between bands and g-points) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this class( ty_optical_props ), intent(in) :: that Return Value logical procedure, public :: increment Increment another set of values private function increment(op_in, op_io) result(err_message) Routines for array classes: incrementing\n  a%increment(b) adds the values of a to b, changing b and leaving a untouched Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props_arry ), intent(in) :: op_in class( ty_optical_props_arry ), intent(inout) :: op_io Return Value character(len=128) generic, public :: init => init_base, init_base_from_copy private function init_base(this, band_lims_wvn, band_lims_gpt, name) result(err_message) Base class: Initialization\n  Values are assumed to be defined in bands a mapping between bands and g-points is provided Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this real(kind=wp), intent(in), dimension(:,:) :: band_lims_wvn integer, intent(in), optional dimension(:,:) :: band_lims_gpt character(len=*), intent(in), optional :: name Return Value character(len=128) private function init_base_from_copy(this, spectral_desc) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this class( ty_optical_props ), intent(in) :: spectral_desc Return Value character(len=128) procedure, public :: is_initialized => is_initialized_base private pure function is_initialized_base(this) Base class: return true if initialized, false otherwise Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value logical procedure, public :: set_name private subroutine set_name(this, name) --- Setting/getting the name Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this character(len=*), intent(in) :: name procedure, public :: validate => validate_1scalar private function validate_1scalar(this) result(err_message) --- Validation Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props_1scl ), intent(in) :: this Return Value character(len=128)","tags":"","loc":"type/ty_optical_props_1scl.html"},{"title":"ty_optical_props_2str – RTE-Fortran ","text":"type, public, extends( ty_optical_props_arry ) :: ty_optical_props_2str Inherits type~~ty_optical_props_2str~~InheritsGraph type~ty_optical_props_2str ty_optical_props_2str type~ty_optical_props_arry ty_optical_props_arry type~ty_optical_props_2str->type~ty_optical_props_arry type~ty_optical_props ty_optical_props type~ty_optical_props_arry->type~ty_optical_props Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables g ssa tau Type-Bound Procedures alloc_2str bands_are_equal convert_band2gpt convert_gpt2band delta_scale expand finalize finalize_2str get_band_lims_gpoint get_band_lims_wavelength get_band_lims_wavenumber get_gpoint_bands get_name get_nband get_ncol get_ngpt get_nlay get_subset gpoints_are_equal increment init is_initialized set_name validate Components Type Visibility Attributes Name Initial real(kind=wp), public, dimension(:,:,:), allocatable :: g asymmetry parameter (ncol, nlay, ngpt) real(kind=wp), public, dimension(:,:,:), allocatable :: ssa single-scattering albedo (ncol, nlay, ngpt) real(kind=wp), public, dimension(:,:,:), allocatable :: tau optical depth (ncol, nlay, ngpt) Type-Bound Procedures generic, public :: alloc_2str => alloc_only_2str, init_and_alloc_2str, copy_and_alloc_2str private function alloc_only_2str(this, ncol, nlay) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_optical_props_2str ) :: this integer, intent(in) :: ncol integer, intent(in) :: nlay Return Value character(len=128) private function init_and_alloc_2str(this, ncol, nlay, band_lims_wvn, band_lims_gpt, name) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_optical_props_2str ) :: this integer, intent(in) :: ncol integer, intent(in) :: nlay real(kind=wp), intent(in), dimension(:,:) :: band_lims_wvn integer, intent(in), optional dimension(:,:) :: band_lims_gpt character(len=*), intent(in), optional :: name Return Value character(len=128) private function copy_and_alloc_2str(this, ncol, nlay, spectral_desc, name) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_optical_props_2str ) :: this integer, intent(in) :: ncol integer, intent(in) :: nlay class( ty_optical_props ), intent(in) :: spectral_desc character(len=*), intent(in), optional :: name Return Value character(len=128) procedure, public :: bands_are_equal private pure function bands_are_equal(this, that) Are the bands of two objects the same? (same number, same wavelength limits) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this class( ty_optical_props ), intent(in) :: that Return Value logical procedure, public :: convert_band2gpt private pure function convert_band2gpt(this, band) First and last g-point of a specific band Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this integer, intent(in) :: band Return Value integer,dimension(2) procedure, public :: convert_gpt2band private pure function convert_gpt2band(this, gpt) Band associated with a specific g-point Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this integer, intent(in) :: gpt Return Value integer procedure, public :: delta_scale => delta_scale_2str private function delta_scale_2str(this, for) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_optical_props_2str ), intent(inout) :: this real(kind=wp), intent(in), optional dimension(:,:,:) :: for Forward scattering fraction; g**2 if not provided Return Value character(len=128) procedure, public :: expand private pure function expand(this, arr_in) result(arr_out) Expand an array of dimension arr_in(nband) to dimension arr_out(ngpt) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this real(kind=wp), intent(in), dimension(:) :: arr_in Return Value real(kind=wp),dimension(size(this%gpt2band)) procedure, public :: finalize => finalize_base private subroutine finalize_base(this) Base class: finalize (deallocate memory) Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this procedure, public :: finalize_2str private function finalize_2str(this) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_optical_props_2str ) :: this Return Value character(len=128) procedure, public :: get_band_lims_gpoint private pure function get_band_lims_gpoint(this) The first and last g-point of all bands at once\n dimension (2, nbands) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer,dimension(size(this%band2gpt,dim=1), size(this%band2gpt,dim=2)) procedure, public :: get_band_lims_wavelength private pure function get_band_lims_wavelength(this) Lower and upper wavelength of all bands Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2)) procedure, public :: get_band_lims_wavenumber private pure function get_band_lims_wavenumber(this) Lower and upper wavenumber of all bands\n (upper and lower wavenumber by band) = band_lims_wvn(2,band) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2)) procedure, public :: get_gpoint_bands private pure function get_gpoint_bands(this) Bands for all the g-points at once\n dimension (ngpt) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer,dimension(size(this%gpt2band,dim=1)) procedure, public :: get_name private function get_name(this) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value character(len=name_len) procedure, public :: get_nband private pure function get_nband(this) Number of bands Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer procedure, public :: get_ncol private pure function get_ncol(this) Arguments Type Intent Optional Attributes Name class( ty_optical_props_arry ), intent(in) :: this Return Value integer procedure, public :: get_ngpt private pure function get_ngpt(this) Number of g-points Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer procedure, public :: get_nlay private pure function get_nlay(this) Arguments Type Intent Optional Attributes Name class( ty_optical_props_arry ), intent(in) :: this Return Value integer procedure, public :: get_subset => subset_2str_range private function subset_2str_range(full, start, n, subset) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_optical_props_2str ), intent(inout) :: full integer, intent(in) :: start integer, intent(in) :: n class( ty_optical_props_arry ), intent(inout) :: subset Return Value character(len=128) procedure, public :: gpoints_are_equal private pure function gpoints_are_equal(this, that) Is the g-point structure of two objects the same?\n   (same bands, same number of g-points, same mapping between bands and g-points) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this class( ty_optical_props ), intent(in) :: that Return Value logical procedure, public :: increment Increment another set of values private function increment(op_in, op_io) result(err_message) Routines for array classes: incrementing\n  a%increment(b) adds the values of a to b, changing b and leaving a untouched Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props_arry ), intent(in) :: op_in class( ty_optical_props_arry ), intent(inout) :: op_io Return Value character(len=128) generic, public :: init => init_base, init_base_from_copy private function init_base(this, band_lims_wvn, band_lims_gpt, name) result(err_message) Base class: Initialization\n  Values are assumed to be defined in bands a mapping between bands and g-points is provided Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this real(kind=wp), intent(in), dimension(:,:) :: band_lims_wvn integer, intent(in), optional dimension(:,:) :: band_lims_gpt character(len=*), intent(in), optional :: name Return Value character(len=128) private function init_base_from_copy(this, spectral_desc) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this class( ty_optical_props ), intent(in) :: spectral_desc Return Value character(len=128) procedure, public :: is_initialized => is_initialized_base private pure function is_initialized_base(this) Base class: return true if initialized, false otherwise Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value logical procedure, public :: set_name private subroutine set_name(this, name) --- Setting/getting the name Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this character(len=*), intent(in) :: name procedure, public :: validate => validate_2stream private function validate_2stream(this) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_optical_props_2str ), intent(in) :: this Return Value character(len=128)","tags":"","loc":"type/ty_optical_props_2str.html"},{"title":"ty_optical_props_arry – RTE-Fortran ","text":"type, public, abstract, extends( ty_optical_props ) :: ty_optical_props_arry Optical properties as arrays, normally dimensioned ncol, nlay, ngpt/nbnd The abstract base class for arrays defines what procedures will be available Inherits type~~ty_optical_props_arry~~InheritsGraph type~ty_optical_props_arry ty_optical_props_arry type~ty_optical_props ty_optical_props type~ty_optical_props_arry->type~ty_optical_props Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~ty_optical_props_arry~~InheritedByGraph type~ty_optical_props_arry ty_optical_props_arry type~ty_optical_props_1scl ty_optical_props_1scl type~ty_optical_props_1scl->type~ty_optical_props_arry type~ty_optical_props_2str ty_optical_props_2str type~ty_optical_props_2str->type~ty_optical_props_arry type~ty_optical_props_nstr ty_optical_props_nstr type~ty_optical_props_nstr->type~ty_optical_props_arry Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables tau Type-Bound Procedures bands_are_equal convert_band2gpt convert_gpt2band delta_scale expand finalize get_band_lims_gpoint get_band_lims_wavelength get_band_lims_wavenumber get_gpoint_bands get_name get_nband get_ncol get_ngpt get_nlay get_subset gpoints_are_equal increment init is_initialized set_name validate Components Type Visibility Attributes Name Initial real(kind=wp), public, dimension(:,:,:), allocatable :: tau optical depth (ncol, nlay, ngpt) Type-Bound Procedures procedure, public :: bands_are_equal private pure function bands_are_equal(this, that) Are the bands of two objects the same? (same number, same wavelength limits) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this class( ty_optical_props ), intent(in) :: that Return Value logical procedure, public :: convert_band2gpt private pure function convert_band2gpt(this, band) First and last g-point of a specific band Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this integer, intent(in) :: band Return Value integer,dimension(2) procedure, public :: convert_gpt2band private pure function convert_gpt2band(this, gpt) Band associated with a specific g-point Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this integer, intent(in) :: gpt Return Value integer procedure(delta_scale_abstract), public, deferred :: delta_scale function delta_scale_abstract(this, for) result(err_message) Prototype Delta-scaling Arguments Type Intent Optional Attributes Name class( ty_optical_props_arry ), intent(inout) :: this real(kind=wp), intent(in), optional dimension(:,:,:) :: for Return Value character(len=128) Forward scattering fraction; g**2 if not provided procedure, public :: expand private pure function expand(this, arr_in) result(arr_out) Expand an array of dimension arr_in(nband) to dimension arr_out(ngpt) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this real(kind=wp), intent(in), dimension(:) :: arr_in Return Value real(kind=wp),dimension(size(this%gpt2band)) procedure, public :: finalize => finalize_base private subroutine finalize_base(this) Base class: finalize (deallocate memory) Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this procedure, public :: get_band_lims_gpoint private pure function get_band_lims_gpoint(this) The first and last g-point of all bands at once\n dimension (2, nbands) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer,dimension(size(this%band2gpt,dim=1), size(this%band2gpt,dim=2)) procedure, public :: get_band_lims_wavelength private pure function get_band_lims_wavelength(this) Lower and upper wavelength of all bands Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2)) procedure, public :: get_band_lims_wavenumber private pure function get_band_lims_wavenumber(this) Lower and upper wavenumber of all bands\n (upper and lower wavenumber by band) = band_lims_wvn(2,band) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2)) procedure, public :: get_gpoint_bands private pure function get_gpoint_bands(this) Bands for all the g-points at once\n dimension (ngpt) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer,dimension(size(this%gpt2band,dim=1)) procedure, public :: get_name private function get_name(this) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value character(len=name_len) procedure, public :: get_nband private pure function get_nband(this) Number of bands Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer procedure, public :: get_ncol private pure function get_ncol(this) Arguments Type Intent Optional Attributes Name class( ty_optical_props_arry ), intent(in) :: this Return Value integer procedure, public :: get_ngpt private pure function get_ngpt(this) Number of g-points Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer procedure, public :: get_nlay private pure function get_nlay(this) Arguments Type Intent Optional Attributes Name class( ty_optical_props_arry ), intent(in) :: this Return Value integer procedure(subset_range_abstract), public, deferred :: get_subset function subset_range_abstract(full, start, n, subset) result(err_message) Prototype Subsetting -- currently there are only routines with start col and count Arguments Type Intent Optional Attributes Name class( ty_optical_props_arry ), intent(inout) :: full integer, intent(in) :: start integer, intent(in) :: n class( ty_optical_props_arry ), intent(inout) :: subset Return Value character(len=128) procedure, public :: gpoints_are_equal private pure function gpoints_are_equal(this, that) Is the g-point structure of two objects the same?\n   (same bands, same number of g-points, same mapping between bands and g-points) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this class( ty_optical_props ), intent(in) :: that Return Value logical procedure, public :: increment Increment another set of values private function increment(op_in, op_io) result(err_message) Routines for array classes: incrementing\n  a%increment(b) adds the values of a to b, changing b and leaving a untouched Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props_arry ), intent(in) :: op_in class( ty_optical_props_arry ), intent(inout) :: op_io Return Value character(len=128) generic, public :: init => init_base, init_base_from_copy private function init_base(this, band_lims_wvn, band_lims_gpt, name) result(err_message) Base class: Initialization\n  Values are assumed to be defined in bands a mapping between bands and g-points is provided Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this real(kind=wp), intent(in), dimension(:,:) :: band_lims_wvn integer, intent(in), optional dimension(:,:) :: band_lims_gpt character(len=*), intent(in), optional :: name Return Value character(len=128) private function init_base_from_copy(this, spectral_desc) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this class( ty_optical_props ), intent(in) :: spectral_desc Return Value character(len=128) procedure, public :: is_initialized => is_initialized_base private pure function is_initialized_base(this) Base class: return true if initialized, false otherwise Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value logical procedure, public :: set_name private subroutine set_name(this, name) --- Setting/getting the name Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this character(len=*), intent(in) :: name procedure(validate_abstract), public, deferred :: validate Deferred procedures -- each must be implemented in each child class with\n  arguments following the abstract interface (defined below) function validate_abstract(this) result(err_message) Prototype Validation function looks only at internal data Arguments Type Intent Optional Attributes Name class( ty_optical_props_arry ), intent(in) :: this Return Value character(len=128)","tags":"","loc":"type/ty_optical_props_arry.html"},{"title":"ty_optical_props_nstr – RTE-Fortran ","text":"type, public, extends( ty_optical_props_arry ) :: ty_optical_props_nstr Inherits type~~ty_optical_props_nstr~~InheritsGraph type~ty_optical_props_nstr ty_optical_props_nstr type~ty_optical_props_arry ty_optical_props_arry type~ty_optical_props_nstr->type~ty_optical_props_arry type~ty_optical_props ty_optical_props type~ty_optical_props_arry->type~ty_optical_props Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables p ssa tau Type-Bound Procedures alloc_nstr bands_are_equal convert_band2gpt convert_gpt2band delta_scale expand finalize finalize_nstr get_band_lims_gpoint get_band_lims_wavelength get_band_lims_wavenumber get_gpoint_bands get_name get_nband get_ncol get_ngpt get_nlay get_nmom get_subset gpoints_are_equal increment init is_initialized set_name validate Components Type Visibility Attributes Name Initial real(kind=wp), public, dimension(:,:,:,:), allocatable :: p phase-function moments (nmom, ncol, nlay, ngpt) real(kind=wp), public, dimension(:,:,:), allocatable :: ssa single-scattering albedo (ncol, nlay, ngpt) real(kind=wp), public, dimension(:,:,:), allocatable :: tau optical depth (ncol, nlay, ngpt) Type-Bound Procedures generic, public :: alloc_nstr => alloc_only_nstr, init_and_alloc_nstr, copy_and_alloc_nstr private function alloc_only_nstr(this, nmom, ncol, nlay) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_optical_props_nstr ) :: this integer, intent(in) :: nmom integer, intent(in) :: ncol integer, intent(in) :: nlay Return Value character(len=128) private function init_and_alloc_nstr(this, nmom, ncol, nlay, band_lims_wvn, band_lims_gpt, name) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_optical_props_nstr ) :: this integer, intent(in) :: nmom integer, intent(in) :: ncol integer, intent(in) :: nlay real(kind=wp), intent(in), dimension(:,:) :: band_lims_wvn integer, intent(in), optional dimension(:,:) :: band_lims_gpt character(len=*), intent(in), optional :: name Return Value character(len=128) private function copy_and_alloc_nstr(this, nmom, ncol, nlay, spectral_desc, name) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_optical_props_nstr ) :: this integer, intent(in) :: nmom integer, intent(in) :: ncol integer, intent(in) :: nlay class( ty_optical_props ), intent(in) :: spectral_desc character(len=*), intent(in), optional :: name Return Value character(len=128) procedure, public :: bands_are_equal private pure function bands_are_equal(this, that) Are the bands of two objects the same? (same number, same wavelength limits) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this class( ty_optical_props ), intent(in) :: that Return Value logical procedure, public :: convert_band2gpt private pure function convert_band2gpt(this, band) First and last g-point of a specific band Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this integer, intent(in) :: band Return Value integer,dimension(2) procedure, public :: convert_gpt2band private pure function convert_gpt2band(this, gpt) Band associated with a specific g-point Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this integer, intent(in) :: gpt Return Value integer procedure, public :: delta_scale => delta_scale_nstr private function delta_scale_nstr(this, for) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_optical_props_nstr ), intent(inout) :: this real(kind=wp), intent(in), optional dimension(:,:,:) :: for Return Value character(len=128) procedure, public :: expand private pure function expand(this, arr_in) result(arr_out) Expand an array of dimension arr_in(nband) to dimension arr_out(ngpt) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this real(kind=wp), intent(in), dimension(:) :: arr_in Return Value real(kind=wp),dimension(size(this%gpt2band)) procedure, public :: finalize => finalize_base private subroutine finalize_base(this) Base class: finalize (deallocate memory) Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this procedure, public :: finalize_nstr private function finalize_nstr(this) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_optical_props_nstr ) :: this Return Value character(len=128) procedure, public :: get_band_lims_gpoint private pure function get_band_lims_gpoint(this) The first and last g-point of all bands at once\n dimension (2, nbands) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer,dimension(size(this%band2gpt,dim=1), size(this%band2gpt,dim=2)) procedure, public :: get_band_lims_wavelength private pure function get_band_lims_wavelength(this) Lower and upper wavelength of all bands Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2)) procedure, public :: get_band_lims_wavenumber private pure function get_band_lims_wavenumber(this) Lower and upper wavenumber of all bands\n (upper and lower wavenumber by band) = band_lims_wvn(2,band) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2)) procedure, public :: get_gpoint_bands private pure function get_gpoint_bands(this) Bands for all the g-points at once\n dimension (ngpt) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer,dimension(size(this%gpt2band,dim=1)) procedure, public :: get_name private function get_name(this) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value character(len=name_len) procedure, public :: get_nband private pure function get_nband(this) Number of bands Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer procedure, public :: get_ncol private pure function get_ncol(this) Arguments Type Intent Optional Attributes Name class( ty_optical_props_arry ), intent(in) :: this Return Value integer procedure, public :: get_ngpt private pure function get_ngpt(this) Number of g-points Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value integer procedure, public :: get_nlay private pure function get_nlay(this) Arguments Type Intent Optional Attributes Name class( ty_optical_props_arry ), intent(in) :: this Return Value integer procedure, public :: get_nmom private pure function get_nmom(this) Arguments Type Intent Optional Attributes Name class( ty_optical_props_nstr ), intent(in) :: this Return Value integer procedure, public :: get_subset => subset_nstr_range private function subset_nstr_range(full, start, n, subset) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_optical_props_nstr ), intent(inout) :: full integer, intent(in) :: start integer, intent(in) :: n class( ty_optical_props_arry ), intent(inout) :: subset Return Value character(len=128) procedure, public :: gpoints_are_equal private pure function gpoints_are_equal(this, that) Is the g-point structure of two objects the same?\n   (same bands, same number of g-points, same mapping between bands and g-points) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this class( ty_optical_props ), intent(in) :: that Return Value logical procedure, public :: increment Increment another set of values private function increment(op_in, op_io) result(err_message) Routines for array classes: incrementing\n  a%increment(b) adds the values of a to b, changing b and leaving a untouched Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props_arry ), intent(in) :: op_in class( ty_optical_props_arry ), intent(inout) :: op_io Return Value character(len=128) generic, public :: init => init_base, init_base_from_copy private function init_base(this, band_lims_wvn, band_lims_gpt, name) result(err_message) Base class: Initialization\n  Values are assumed to be defined in bands a mapping between bands and g-points is provided Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this real(kind=wp), intent(in), dimension(:,:) :: band_lims_wvn integer, intent(in), optional dimension(:,:) :: band_lims_gpt character(len=*), intent(in), optional :: name Return Value character(len=128) private function init_base_from_copy(this, spectral_desc) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this class( ty_optical_props ), intent(in) :: spectral_desc Return Value character(len=128) procedure, public :: is_initialized => is_initialized_base private pure function is_initialized_base(this) Base class: return true if initialized, false otherwise Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(in) :: this Return Value logical procedure, public :: set_name private subroutine set_name(this, name) --- Setting/getting the name Read more… Arguments Type Intent Optional Attributes Name class( ty_optical_props ), intent(inout) :: this character(len=*), intent(in) :: name procedure, public :: validate => validate_nstream private function validate_nstream(this) result(err_message) Arguments Type Intent Optional Attributes Name class( ty_optical_props_nstr ), intent(in) :: this Return Value character(len=128)","tags":"","loc":"type/ty_optical_props_nstr.html"},{"title":"ty_fluxes – RTE-Fortran ","text":"type, public, abstract :: ty_fluxes Abstract base class: reduce() function accepts spectral flux profiles, computes desired outputs are_desired() returns a logical Inherited by type~~ty_fluxes~~InheritedByGraph type~ty_fluxes ty_fluxes type~ty_fluxes_broadband ty_fluxes_broadband type~ty_fluxes_broadband->type~ty_fluxes Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Type-Bound Procedures are_desired reduce Type-Bound Procedures procedure(are_desired_abstract), public, deferred :: are_desired function are_desired_abstract(this) Prototype Arguments Type Intent Optional Attributes Name class( ty_fluxes ), intent(in) :: this Return Value logical procedure(reduce_abstract), public, deferred :: reduce function reduce_abstract(this, gpt_flux_up, gpt_flux_dn, spectral_disc, top_at_1, gpt_flux_dn_dir) result(error_msg) Prototype This routine takes the fully resolved calculation (detailed in spectral and vertical dimensions) and\n  computes desired outputs. Output values will normally be data components of the derived type. Arguments Type Intent Optional Attributes Name class( ty_fluxes ), intent(inout) :: this real(kind=wp), intent(in), dimension(:,:,:) :: gpt_flux_up real(kind=wp), intent(in), dimension(:,:,:) :: gpt_flux_dn class( ty_optical_props ), intent(in) :: spectral_disc logical, intent(in) :: top_at_1 real(kind=wp), intent(in), optional dimension(:,:,:) :: gpt_flux_dn_dir Return Value character(len=128)","tags":"","loc":"type/ty_fluxes.html"},{"title":"ty_fluxes_broadband – RTE-Fortran ","text":"type, public, extends( ty_fluxes ) :: ty_fluxes_broadband Class implementing broadband integration for the complete flux profile.\n  Data components are pointers so results can be written directly into memory Inherits type~~ty_fluxes_broadband~~InheritsGraph type~ty_fluxes_broadband ty_fluxes_broadband type~ty_fluxes ty_fluxes type~ty_fluxes_broadband->type~ty_fluxes Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables flux_dn flux_dn_dir flux_net flux_up Type-Bound Procedures are_desired reduce Components Type Visibility Attributes Name Initial real(kind=wp), public, dimension(:,:), pointer :: flux_dn => NULL() real(kind=wp), public, dimension(:,:), pointer :: flux_dn_dir => NULL() real(kind=wp), public, dimension(:,:), pointer :: flux_net => NULL() real(kind=wp), public, dimension(:,:), pointer :: flux_up => NULL() Type-Bound Procedures procedure, public :: are_desired => are_desired_broadband private function are_desired_broadband(this) Are any fluxes desired from this set of g-point fluxes? We can tell because memory will\n  be allocated for output Arguments Type Intent Optional Attributes Name class( ty_fluxes_broadband ), intent(in) :: this Return Value logical procedure, public :: reduce => reduce_broadband private function reduce_broadband(this, gpt_flux_up, gpt_flux_dn, spectral_disc, top_at_1, gpt_flux_dn_dir) result(error_msg) Broadband fluxes -- simply sum over the spectral dimension and report the whole profile Arguments Type Intent Optional Attributes Name class( ty_fluxes_broadband ), intent(inout) :: this real(kind=wp), intent(in), dimension(:,:,:) :: gpt_flux_up real(kind=wp), intent(in), dimension(:,:,:) :: gpt_flux_dn class( ty_optical_props ), intent(in) :: spectral_disc logical, intent(in) :: top_at_1 real(kind=wp), intent(in), optional dimension(:,:,:) :: gpt_flux_dn_dir Return Value character(len=128)","tags":"","loc":"type/ty_fluxes_broadband.html"},{"title":"rte_sw – RTE-Fortran","text":"public interface rte_sw Contents Module Procedures rte_sw_mu0_bycol rte_sw_mu0_full Module Procedures private function rte_sw_mu0_bycol(atmos, top_at_1, mu0, inc_flux, sfc_alb_dir, sfc_alb_dif, fluxes, inc_flux_dif) result(error_msg) Arguments Type Intent Optional Attributes Name class( ty_optical_props_arry ), intent(in) :: atmos Optical properties provided as arrays logical, intent(in) :: top_at_1 Is the top of the domain at index 1? (if not, ordering is bottom-to-top) real(kind=wp), intent(in), dimension(:) :: mu0 cosine of solar zenith angle (ncol) - will be assumed constant with height real(kind=wp), intent(in), dimension(:,:) :: inc_flux incident flux at top of domain [W/m2] (ncol, ngpt) real(kind=wp), intent(in), dimension(:,:) :: sfc_alb_dir surface albedo for direct and real(kind=wp), intent(in), dimension(:,:) :: sfc_alb_dif diffuse radiation (nband, ncol) class( ty_fluxes ), intent(inout) :: fluxes Class describing output calculations real(kind=wp), intent(in), optional dimension(:,:), target :: inc_flux_dif incident diffuse flux at top of domain [W/m2] (ncol, ngpt) Return Value character(len=128) If empty, calculation was successful private function rte_sw_mu0_full(atmos, top_at_1, mu0, inc_flux, sfc_alb_dir, sfc_alb_dif, fluxes, inc_flux_dif) result(error_msg) Arguments Type Intent Optional Attributes Name class( ty_optical_props_arry ), intent(in) :: atmos Optical properties provided as arrays logical, intent(in) :: top_at_1 Is the top of the domain at index 1? (if not, ordering is bottom-to-top) real(kind=wp), intent(in), dimension(:,:) :: mu0 cosine of solar zenith angle (ncol, nlay) real(kind=wp), intent(in), dimension(:,:) :: inc_flux incident flux at top of domain [W/m2] (ncol, ngpt) real(kind=wp), intent(in), dimension(:,:) :: sfc_alb_dir surface albedo for direct and real(kind=wp), intent(in), dimension(:,:) :: sfc_alb_dif diffuse radiation (nband, ncol) class( ty_fluxes ), intent(inout) :: fluxes Class describing output calculations real(kind=wp), intent(in), optional dimension(:,:), target :: inc_flux_dif incident diffuse flux at top of domain [W/m2] (ncol, ngpt) Return Value character(len=128) If empty, calculation was successful","tags":"","loc":"interface/rte_sw.html"},{"title":"any_vals_less_than – RTE-Fortran","text":"public interface any_vals_less_than Values less than a floor (including masked versions) Called by interface~~any_vals_less_than~~CalledByGraph interface~any_vals_less_than any_vals_less_than proc~rte_lw rte_lw proc~rte_lw->interface~any_vals_less_than Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Module Procedures any_vals_less_than_1D any_vals_less_than_2D any_vals_less_than_3D any_vals_less_than_1D_masked any_vals_less_than_2D_masked any_vals_less_than_3D_masked Module Procedures private function any_vals_less_than_1D(array, check_value) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:) :: array real(kind=wp), intent(in) :: check_value Return Value logical private function any_vals_less_than_2D(array, check_value) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:) :: array real(kind=wp), intent(in) :: check_value Return Value logical private function any_vals_less_than_3D(array, check_value) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:,:) :: array real(kind=wp), intent(in) :: check_value Return Value logical private function any_vals_less_than_1D_masked(array, mask, check_value) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:) :: array logical(kind=wl), intent(in), dimension(:) :: mask real(kind=wp), intent(in) :: check_value Return Value logical private function any_vals_less_than_2D_masked(array, mask, check_value) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:) :: array logical(kind=wl), intent(in), dimension(:,:) :: mask real(kind=wp), intent(in) :: check_value Return Value logical private function any_vals_less_than_3D_masked(array, mask, check_value) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:,:) :: array logical(kind=wl), intent(in), dimension(:,:,:) :: mask real(kind=wp), intent(in) :: check_value Return Value logical","tags":"","loc":"interface/any_vals_less_than.html"},{"title":"any_vals_outside – RTE-Fortran","text":"public interface any_vals_outside Values outside a range (including masked versions) Called by interface~~any_vals_outside~~CalledByGraph interface~any_vals_outside any_vals_outside proc~rte_lw rte_lw proc~rte_lw->interface~any_vals_outside Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Module Procedures any_vals_outside_1D any_vals_outside_2D any_vals_outside_3D any_vals_outside_1D_masked any_vals_outside_2D_masked any_vals_outside_3D_masked Module Procedures private function any_vals_outside_1D(array, checkMin, checkMax) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:) :: array real(kind=wp), intent(in) :: checkMin real(kind=wp), intent(in) :: checkMax Return Value logical private function any_vals_outside_2D(array, checkMin, checkMax) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:) :: array real(kind=wp), intent(in) :: checkMin real(kind=wp), intent(in) :: checkMax Return Value logical private function any_vals_outside_3D(array, checkMin, checkMax) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:,:) :: array real(kind=wp), intent(in) :: checkMin real(kind=wp), intent(in) :: checkMax Return Value logical private function any_vals_outside_1D_masked(array, mask, checkMin, checkMax) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:) :: array logical(kind=wl), intent(in), dimension(:) :: mask real(kind=wp), intent(in) :: checkMin real(kind=wp), intent(in) :: checkMax Return Value logical private function any_vals_outside_2D_masked(array, mask, checkMin, checkMax) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:) :: array logical(kind=wl), intent(in), dimension(:,:) :: mask real(kind=wp), intent(in) :: checkMin real(kind=wp), intent(in) :: checkMax Return Value logical private function any_vals_outside_3D_masked(array, mask, checkMin, checkMax) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:,:) :: array logical(kind=wl), intent(in), dimension(:,:,:) :: mask real(kind=wp), intent(in) :: checkMin real(kind=wp), intent(in) :: checkMax Return Value logical","tags":"","loc":"interface/any_vals_outside.html"},{"title":"extents_are – RTE-Fortran","text":"public interface extents_are Find the extents of an array Called by interface~~extents_are~~CalledByGraph interface~extents_are extents_are proc~rte_lw rte_lw proc~rte_lw->interface~extents_are Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Module Procedures extents_are_1D extents_are_2D extents_are_3D extents_are_4D extents_are_5D extents_are_6D extents_are_2d_int Module Procedures private function extents_are_1d(array, n1) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:          ) :: array integer, intent(in) :: n1 Return Value logical(kind=wl) private function extents_are_2d(array, n1, n2) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:        ) :: array integer, intent(in) :: n1 integer, intent(in) :: n2 Return Value logical(kind=wl) private function extents_are_3d(array, n1, n2, n3) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:,:      ) :: array integer, intent(in) :: n1 integer, intent(in) :: n2 integer, intent(in) :: n3 Return Value logical(kind=wl) private function extents_are_4d(array, n1, n2, n3, n4) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:,:,:    ) :: array integer, intent(in) :: n1 integer, intent(in) :: n2 integer, intent(in) :: n3 integer, intent(in) :: n4 Return Value logical(kind=wl) private function extents_are_5d(array, n1, n2, n3, n4, n5) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:,:,:,:  ) :: array integer, intent(in) :: n1 integer, intent(in) :: n2 integer, intent(in) :: n3 integer, intent(in) :: n4 integer, intent(in) :: n5 Return Value logical(kind=wl) private function extents_are_6d(array, n1, n2, n3, n4, n5, n6) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:,:,:,:,:) :: array integer, intent(in) :: n1 integer, intent(in) :: n2 integer, intent(in) :: n3 integer, intent(in) :: n4 integer, intent(in) :: n5 integer, intent(in) :: n6 Return Value logical(kind=wl) private function extents_are_2d_int(array, n1, n2) Arguments Type Intent Optional Attributes Name integer, intent(in), dimension(:,:        ) :: array integer, intent(in) :: n1 integer, intent(in) :: n2 Return Value logical(kind=wl)","tags":"","loc":"interface/extents_are.html"},{"title":"rte_config_checks – RTE-Fortran","text":"public interface rte_config_checks Specify checking of extents and values individually, or all checks together Contents Module Procedures rte_config_checks_each rte_config_checks_all Module Procedures private subroutine rte_config_checks_each(extents, values) Do extents and/or values checks within RTE+RRTMGP Fortran classes Arguments Type Intent Optional Attributes Name logical(kind=wl), intent(in) :: extents logical(kind=wl), intent(in) :: values private subroutine rte_config_checks_all(do_checks) Do all checks within RTE+RRTMGP Fortran classes Arguments Type Intent Optional Attributes Name logical(kind=wl), intent(in) :: do_checks","tags":"","loc":"interface/rte_config_checks.html"},{"title":"rte_lw – RTE-Fortran","text":"public function rte_lw(optical_props, top_at_1, sources, sfc_emis, fluxes, inc_flux, n_gauss_angles, use_2stream, lw_Ds, flux_up_Jac) result(error_msg) Arguments Type Intent Optional Attributes Name class( ty_optical_props_arry ), intent(in) :: optical_props Set of optical properties as one or more arrays logical, intent(in) :: top_at_1 Is the top of the domain at index 1? (if not, ordering is bottom-to-top) type( ty_source_func_lw ), intent(in) :: sources Derived type with Planck source functions real(kind=wp), intent(in), dimension(:,:) :: sfc_emis emissivity at surface [] (nband, ncol) class( ty_fluxes ), intent(inout) :: fluxes Dervied type for computing spectral integrals from g-point fluxes.\nDefault computes broadband fluxes at all levels if output arrays are defined. Can be extended per user desires. real(kind=wp), intent(in), optional dimension(:,:), target :: inc_flux incident flux at domain top [W/m2] (ncol, ngpts) integer, intent(in), optional :: n_gauss_angles Number of angles used in Gaussian quadrature (max 3, no-scattering solution) logical, intent(in), optional :: use_2stream When 2-stream parameters (tau/ssa/g) are provided, use 2-stream methods\nDefault is to use re-scaled longwave transport real(kind=wp), intent(in), optional dimension(:,:) :: lw_Ds User-specifed 1/cos of transport angle per col, g-point real(kind=wp), intent(inout), optional dimension(:,:), target :: flux_up_Jac surface temperature flux  Jacobian [W/m2/K] (ncol, nlay+1) Return Value character(len=128) If empty, calculation was successful Calls proc~~rte_lw~~CallsGraph proc~rte_lw rte_lw zero_array zero_array proc~rte_lw->zero_array lw_solver_2stream lw_solver_2stream proc~rte_lw->lw_solver_2stream interface~any_vals_outside any_vals_outside proc~rte_lw->interface~any_vals_outside lw_solver_noscat lw_solver_noscat proc~rte_lw->lw_solver_noscat interface~any_vals_less_than any_vals_less_than proc~rte_lw->interface~any_vals_less_than interface~extents_are extents_are proc~rte_lw->interface~extents_are Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rte_lw.html"},{"title":"mo_rte_sw – RTE-Fortran","text":"Compute shortwave radiative fluxes\n Contains a single routine to compute direct and diffuse fluxes of solar radiation given atmospheric optical properties on a spectral grid information about vertical ordering boundary conditions solar zenith angle, spectrally-resolved incident colimated flux, surface albedos for direct and diffuse radiation optionally, a boundary condition for incident diffuse radiation It is the user's responsibility to ensure that boundary conditions (incident fluxes, surface albedos) are on the same\n  spectral grid as the optical properties. Final output is via user-extensible ty_fluxes\n( ty_fluxes in module mo_fluxes )\nwhich must reduce the detailed spectral fluxes to whatever summary the user needs The routine does error checking and choses which lower-level kernel to invoke based on\n  what kinds of optical properties are supplied Uses mo_rte_util_array mo_rte_solver_kernels mo_rte_util_array_validation mo_rte_kind mo_optical_props mo_rte_config mo_fluxes module~~mo_rte_sw~~UsesGraph module~mo_rte_sw mo_rte_sw mo_rte_util_array mo_rte_util_array module~mo_rte_sw->mo_rte_util_array module~mo_optical_props mo_optical_props module~mo_rte_sw->module~mo_optical_props module~mo_rte_util_array_validation mo_rte_util_array_validation module~mo_rte_sw->module~mo_rte_util_array_validation mo_rte_solver_kernels mo_rte_solver_kernels module~mo_rte_sw->mo_rte_solver_kernels module~mo_rte_kind mo_rte_kind module~mo_rte_sw->module~mo_rte_kind module~mo_rte_config mo_rte_config module~mo_rte_sw->module~mo_rte_config module~mo_fluxes mo_fluxes module~mo_rte_sw->module~mo_fluxes module~mo_optical_props->module~mo_rte_util_array_validation module~mo_optical_props->module~mo_rte_kind module~mo_optical_props->module~mo_rte_config mo_optical_props_kernels mo_optical_props_kernels module~mo_optical_props->mo_optical_props_kernels module~mo_rte_util_array_validation->module~mo_rte_kind iso_c_binding iso_c_binding module~mo_rte_kind->iso_c_binding module~mo_rte_config->module~mo_rte_kind module~mo_fluxes->module~mo_optical_props module~mo_fluxes->module~mo_rte_util_array_validation module~mo_fluxes->module~mo_rte_kind module~mo_fluxes->module~mo_rte_config mo_fluxes_broadband_kernels mo_fluxes_broadband_kernels module~mo_fluxes->mo_fluxes_broadband_kernels Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Interfaces rte_sw Interfaces public interface rte_sw private function rte_sw_mu0_bycol(atmos, top_at_1, mu0, inc_flux, sfc_alb_dir, sfc_alb_dif, fluxes, inc_flux_dif) result(error_msg) Arguments Type Intent Optional Attributes Name class( ty_optical_props_arry ), intent(in) :: atmos Optical properties provided as arrays logical, intent(in) :: top_at_1 Is the top of the domain at index 1? (if not, ordering is bottom-to-top) real(kind=wp), intent(in), dimension(:) :: mu0 cosine of solar zenith angle (ncol) - will be assumed constant with height real(kind=wp), intent(in), dimension(:,:) :: inc_flux incident flux at top of domain [W/m2] (ncol, ngpt) real(kind=wp), intent(in), dimension(:,:) :: sfc_alb_dir surface albedo for direct and real(kind=wp), intent(in), dimension(:,:) :: sfc_alb_dif diffuse radiation (nband, ncol) class( ty_fluxes ), intent(inout) :: fluxes Class describing output calculations real(kind=wp), intent(in), optional dimension(:,:), target :: inc_flux_dif incident diffuse flux at top of domain [W/m2] (ncol, ngpt) Return Value character(len=128) If empty, calculation was successful private function rte_sw_mu0_full(atmos, top_at_1, mu0, inc_flux, sfc_alb_dir, sfc_alb_dif, fluxes, inc_flux_dif) result(error_msg) Arguments Type Intent Optional Attributes Name class( ty_optical_props_arry ), intent(in) :: atmos Optical properties provided as arrays logical, intent(in) :: top_at_1 Is the top of the domain at index 1? (if not, ordering is bottom-to-top) real(kind=wp), intent(in), dimension(:,:) :: mu0 cosine of solar zenith angle (ncol, nlay) real(kind=wp), intent(in), dimension(:,:) :: inc_flux incident flux at top of domain [W/m2] (ncol, ngpt) real(kind=wp), intent(in), dimension(:,:) :: sfc_alb_dir surface albedo for direct and real(kind=wp), intent(in), dimension(:,:) :: sfc_alb_dif diffuse radiation (nband, ncol) class( ty_fluxes ), intent(inout) :: fluxes Class describing output calculations real(kind=wp), intent(in), optional dimension(:,:), target :: inc_flux_dif incident diffuse flux at top of domain [W/m2] (ncol, ngpt) Return Value character(len=128) If empty, calculation was successful","tags":"","loc":"module/mo_rte_sw.html"},{"title":"mo_rte_util_array_validation – RTE-Fortran","text":"Provide utilites for sanitizing input arrays: Uses mo_rte_kind module~~mo_rte_util_array_validation~~UsesGraph module~mo_rte_util_array_validation mo_rte_util_array_validation module~mo_rte_kind mo_rte_kind module~mo_rte_util_array_validation->module~mo_rte_kind iso_c_binding iso_c_binding module~mo_rte_kind->iso_c_binding Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Used by module~~mo_rte_util_array_validation~~UsedByGraph module~mo_rte_util_array_validation mo_rte_util_array_validation module~mo_rte_sw mo_rte_sw module~mo_rte_sw->module~mo_rte_util_array_validation module~mo_optical_props mo_optical_props module~mo_rte_sw->module~mo_optical_props module~mo_fluxes mo_fluxes module~mo_rte_sw->module~mo_fluxes module~mo_optical_props->module~mo_rte_util_array_validation module~mo_rte_lw mo_rte_lw module~mo_rte_lw->module~mo_rte_util_array_validation module~mo_rte_lw->module~mo_optical_props module~mo_rte_lw->module~mo_fluxes module~mo_source_functions mo_source_functions module~mo_rte_lw->module~mo_source_functions module~mo_fluxes->module~mo_rte_util_array_validation module~mo_fluxes->module~mo_optical_props module~mo_source_functions->module~mo_optical_props Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Interfaces any_vals_less_than any_vals_outside extents_are Interfaces public interface any_vals_less_than Values less than a floor (including masked versions) private function any_vals_less_than_1D(array, check_value) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:) :: array real(kind=wp), intent(in) :: check_value Return Value logical private function any_vals_less_than_2D(array, check_value) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:) :: array real(kind=wp), intent(in) :: check_value Return Value logical private function any_vals_less_than_3D(array, check_value) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:,:) :: array real(kind=wp), intent(in) :: check_value Return Value logical private function any_vals_less_than_1D_masked(array, mask, check_value) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:) :: array logical(kind=wl), intent(in), dimension(:) :: mask real(kind=wp), intent(in) :: check_value Return Value logical private function any_vals_less_than_2D_masked(array, mask, check_value) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:) :: array logical(kind=wl), intent(in), dimension(:,:) :: mask real(kind=wp), intent(in) :: check_value Return Value logical private function any_vals_less_than_3D_masked(array, mask, check_value) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:,:) :: array logical(kind=wl), intent(in), dimension(:,:,:) :: mask real(kind=wp), intent(in) :: check_value Return Value logical public interface any_vals_outside Values outside a range (including masked versions) private function any_vals_outside_1D(array, checkMin, checkMax) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:) :: array real(kind=wp), intent(in) :: checkMin real(kind=wp), intent(in) :: checkMax Return Value logical private function any_vals_outside_2D(array, checkMin, checkMax) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:) :: array real(kind=wp), intent(in) :: checkMin real(kind=wp), intent(in) :: checkMax Return Value logical private function any_vals_outside_3D(array, checkMin, checkMax) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:,:) :: array real(kind=wp), intent(in) :: checkMin real(kind=wp), intent(in) :: checkMax Return Value logical private function any_vals_outside_1D_masked(array, mask, checkMin, checkMax) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:) :: array logical(kind=wl), intent(in), dimension(:) :: mask real(kind=wp), intent(in) :: checkMin real(kind=wp), intent(in) :: checkMax Return Value logical private function any_vals_outside_2D_masked(array, mask, checkMin, checkMax) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:) :: array logical(kind=wl), intent(in), dimension(:,:) :: mask real(kind=wp), intent(in) :: checkMin real(kind=wp), intent(in) :: checkMax Return Value logical private function any_vals_outside_3D_masked(array, mask, checkMin, checkMax) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:,:) :: array logical(kind=wl), intent(in), dimension(:,:,:) :: mask real(kind=wp), intent(in) :: checkMin real(kind=wp), intent(in) :: checkMax Return Value logical public interface extents_are Find the extents of an array private function extents_are_1d(array, n1) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:          ) :: array integer, intent(in) :: n1 Return Value logical(kind=wl) private function extents_are_2d(array, n1, n2) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:        ) :: array integer, intent(in) :: n1 integer, intent(in) :: n2 Return Value logical(kind=wl) private function extents_are_3d(array, n1, n2, n3) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:,:      ) :: array integer, intent(in) :: n1 integer, intent(in) :: n2 integer, intent(in) :: n3 Return Value logical(kind=wl) private function extents_are_4d(array, n1, n2, n3, n4) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:,:,:    ) :: array integer, intent(in) :: n1 integer, intent(in) :: n2 integer, intent(in) :: n3 integer, intent(in) :: n4 Return Value logical(kind=wl) private function extents_are_5d(array, n1, n2, n3, n4, n5) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:,:,:,:  ) :: array integer, intent(in) :: n1 integer, intent(in) :: n2 integer, intent(in) :: n3 integer, intent(in) :: n4 integer, intent(in) :: n5 Return Value logical(kind=wl) private function extents_are_6d(array, n1, n2, n3, n4, n5, n6) Arguments Type Intent Optional Attributes Name real(kind=wp), intent(in), dimension(:,:,:,:,:,:) :: array integer, intent(in) :: n1 integer, intent(in) :: n2 integer, intent(in) :: n3 integer, intent(in) :: n4 integer, intent(in) :: n5 integer, intent(in) :: n6 Return Value logical(kind=wl) private function extents_are_2d_int(array, n1, n2) Arguments Type Intent Optional Attributes Name integer, intent(in), dimension(:,:        ) :: array integer, intent(in) :: n1 integer, intent(in) :: n2 Return Value logical(kind=wl)","tags":"","loc":"module/mo_rte_util_array_validation.html"},{"title":"mo_rte_kind – RTE-Fortran","text":"Provide the Fortran KIND parameters for REAL and INTEGER variables. By default kind parameters come from the ISO C binding and use double precision for working. Uses iso_c_binding module~~mo_rte_kind~~UsesGraph module~mo_rte_kind mo_rte_kind iso_c_binding iso_c_binding module~mo_rte_kind->iso_c_binding Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Used by module~~mo_rte_kind~~UsedByGraph module~mo_rte_kind mo_rte_kind module~mo_rte_util_array_validation mo_rte_util_array_validation module~mo_rte_util_array_validation->module~mo_rte_kind module~mo_optical_props mo_optical_props module~mo_optical_props->module~mo_rte_kind module~mo_optical_props->module~mo_rte_util_array_validation module~mo_rte_config mo_rte_config module~mo_optical_props->module~mo_rte_config module~mo_fluxes mo_fluxes module~mo_fluxes->module~mo_rte_kind module~mo_fluxes->module~mo_rte_util_array_validation module~mo_fluxes->module~mo_optical_props module~mo_fluxes->module~mo_rte_config module~mo_rte_config->module~mo_rte_kind module~mo_rte_sw mo_rte_sw module~mo_rte_sw->module~mo_rte_kind module~mo_rte_sw->module~mo_rte_util_array_validation module~mo_rte_sw->module~mo_optical_props module~mo_rte_sw->module~mo_fluxes module~mo_rte_sw->module~mo_rte_config module~mo_source_functions mo_source_functions module~mo_source_functions->module~mo_rte_kind module~mo_source_functions->module~mo_optical_props module~mo_rte_lw mo_rte_lw module~mo_rte_lw->module~mo_rte_kind module~mo_rte_lw->module~mo_rte_util_array_validation module~mo_rte_lw->module~mo_optical_props module~mo_rte_lw->module~mo_fluxes module~mo_rte_lw->module~mo_rte_config module~mo_rte_lw->module~mo_source_functions Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Variables dp i4 i8 sp wl wp Variables Type Visibility Attributes Name Initial integer, public, parameter :: dp = c_double integer, public, parameter :: i4 = c_int integer, public, parameter :: i8 = c_long integer, public, parameter :: sp = c_float integer, public, parameter :: wl = kind(.true.) integer, public, parameter :: wp = dp","tags":"","loc":"module/mo_rte_kind.html"},{"title":"mo_source_functions – RTE-Fortran","text":"Encapsulate source function arrays for longwave/lw/internal sources Uses mo_rte_kind mo_optical_props module~~mo_source_functions~~UsesGraph module~mo_source_functions mo_source_functions module~mo_rte_kind mo_rte_kind module~mo_source_functions->module~mo_rte_kind module~mo_optical_props mo_optical_props module~mo_source_functions->module~mo_optical_props iso_c_binding iso_c_binding module~mo_rte_kind->iso_c_binding module~mo_optical_props->module~mo_rte_kind module~mo_rte_util_array_validation mo_rte_util_array_validation module~mo_optical_props->module~mo_rte_util_array_validation mo_optical_props_kernels mo_optical_props_kernels module~mo_optical_props->mo_optical_props_kernels module~mo_rte_config mo_rte_config module~mo_optical_props->module~mo_rte_config module~mo_rte_util_array_validation->module~mo_rte_kind module~mo_rte_config->module~mo_rte_kind Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Used by module~~mo_source_functions~~UsedByGraph module~mo_source_functions mo_source_functions module~mo_rte_lw mo_rte_lw module~mo_rte_lw->module~mo_source_functions Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Derived Types ty_source_func_lw ty_source_func_sw Derived Types type, public, extends( ty_optical_props ) :: ty_source_func_lw Type representing Planck source functions in computed at layer center, at layer edges using\n  spectral mapping in each direction separately, and at the surface Components Type Visibility Attributes Name Initial real(kind=wp), public, allocatable, dimension(:,:,:) :: lay_source Planck source at layer average temperature (ncol, nlay, ngpt) real(kind=wp), public, allocatable, dimension(:,:,:) :: lev_source_dec Planck source at layer edge in decreasing ilay direction (ncol, nlay+1, ngpt) real(kind=wp), public, allocatable, dimension(:,:,:) :: lev_source_inc Planck source at layer edge in increasing ilay direction (ncol, nlay+1, ngpt) real(kind=wp), public, allocatable, dimension(:,:  ) :: sfc_source Planck function at surface temperature real(kind=wp), public, allocatable, dimension(:,:  ) :: sfc_source_Jac surface source Jacobian Type-Bound Procedures generic, public :: alloc => alloc_lw, copy_and_alloc_lw procedure, public :: bands_are_equal procedure, public :: convert_band2gpt procedure, public :: convert_gpt2band procedure, public :: expand procedure, public :: finalize => finalize_lw procedure, public :: get_band_lims_gpoint procedure, public :: get_band_lims_wavelength procedure, public :: get_band_lims_wavenumber procedure, public :: get_gpoint_bands procedure, public :: get_name procedure, public :: get_nband procedure, public :: get_ncol => get_ncol_lw procedure, public :: get_ngpt procedure, public :: get_nlay => get_nlay_lw procedure, public :: get_subset => get_subset_range_lw procedure, public :: gpoints_are_equal generic, public :: init => init_base, init_base_from_copy procedure, public :: is_allocated => is_allocated_lw procedure, public :: is_initialized => is_initialized_base procedure, public :: set_name type, public, extends( ty_optical_props ) :: ty_source_func_sw Type-Bound Procedures generic, public :: alloc => alloc_sw, copy_and_alloc_sw procedure, public :: bands_are_equal procedure, public :: convert_band2gpt procedure, public :: convert_gpt2band procedure, public :: expand procedure, public :: finalize => finalize_sw procedure, public :: get_band_lims_gpoint procedure, public :: get_band_lims_wavelength procedure, public :: get_band_lims_wavenumber procedure, public :: get_gpoint_bands procedure, public :: get_name procedure, public :: get_nband procedure, public :: get_ncol => get_ncol_sw procedure, public :: get_ngpt procedure, public :: get_subset => get_subset_range_sw procedure, public :: gpoints_are_equal generic, public :: init => init_base, init_base_from_copy procedure, public :: is_allocated => is_allocated_sw procedure, public :: is_initialized => is_initialized_base procedure, public :: set_name","tags":"","loc":"module/mo_source_functions.html"},{"title":"mo_rte_config – RTE-Fortran","text":"Control input sanitization in Fortan front-end Provides public access to two proteced module variables Uses mo_rte_kind module~~mo_rte_config~~UsesGraph module~mo_rte_config mo_rte_config module~mo_rte_kind mo_rte_kind module~mo_rte_config->module~mo_rte_kind iso_c_binding iso_c_binding module~mo_rte_kind->iso_c_binding Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Used by module~~mo_rte_config~~UsedByGraph module~mo_rte_config mo_rte_config module~mo_optical_props mo_optical_props module~mo_optical_props->module~mo_rte_config module~mo_fluxes mo_fluxes module~mo_fluxes->module~mo_rte_config module~mo_fluxes->module~mo_optical_props module~mo_rte_lw mo_rte_lw module~mo_rte_lw->module~mo_rte_config module~mo_rte_lw->module~mo_optical_props module~mo_rte_lw->module~mo_fluxes module~mo_source_functions mo_source_functions module~mo_rte_lw->module~mo_source_functions module~mo_rte_sw mo_rte_sw module~mo_rte_sw->module~mo_rte_config module~mo_rte_sw->module~mo_optical_props module~mo_rte_sw->module~mo_fluxes module~mo_source_functions->module~mo_optical_props Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Variables check_extents check_values Interfaces rte_config_checks Variables Type Visibility Attributes Name Initial logical(kind=wl), public :: check_extents = .true. logical(kind=wl), public :: check_values = .true. Interfaces public interface rte_config_checks Specify checking of extents and values individually, or all checks together private subroutine rte_config_checks_each(extents, values) Do extents and/or values checks within RTE+RRTMGP Fortran classes Arguments Type Intent Optional Attributes Name logical(kind=wl), intent(in) :: extents logical(kind=wl), intent(in) :: values private subroutine rte_config_checks_all(do_checks) Do all checks within RTE+RRTMGP Fortran classes Arguments Type Intent Optional Attributes Name logical(kind=wl), intent(in) :: do_checks","tags":"","loc":"module/mo_rte_config.html"},{"title":"mo_rte_lw – RTE-Fortran","text":"Compute longwave radiative fluxes Contains a single routine to compute direct and diffuse fluxes of solar radiation given atmospheric optical properties, spectrally-resolved via one of the sub-classes of ty_optical_props_arry in module mo_optical_props information about vertical ordering internal Planck source functions, defined per g-point on the same spectral grid at the atmosphere,\n    via ty_source_func_lw in module mo_source_functions boundary conditions: surface emissivity defined per band optionally, a boundary condition for incident diffuse radiation optionally, an integer number of angles at which to do Gaussian quadrature if scattering is neglected If optical properties are supplied via class ty_optical_props_1scl (absorption optical thickenss only)\n   ( ty_optical_props_1scl in module mo_optical_props )\n   then an emission/absorption solver is called.\n   If optical properties are supplied via class ty_optical_props_2str\n   ( ty_optical_props_2str in module mo_optical_props )\n   fluxes are computed via a rescaling by default or, optionally, using two-stream calculations and adding. Users must ensure that emissivity is on the same spectral grid as the optical properties. Final output is via user-extensible ty_fluxes\n( ty_fluxes in module mo_fluxes )\nwhich must reduce the detailed spectral fluxes to whatever summary the user needs\nThe routine does error checking and choses which lower-level kernel to invoke based on\n  what kinds of optical properties are supplied Uses mo_rte_util_array mo_rte_solver_kernels mo_source_functions mo_rte_util_array_validation mo_rte_kind mo_optical_props mo_rte_config mo_fluxes module~~mo_rte_lw~~UsesGraph module~mo_rte_lw mo_rte_lw mo_rte_util_array mo_rte_util_array module~mo_rte_lw->mo_rte_util_array module~mo_source_functions mo_source_functions module~mo_rte_lw->module~mo_source_functions module~mo_rte_util_array_validation mo_rte_util_array_validation module~mo_rte_lw->module~mo_rte_util_array_validation mo_rte_solver_kernels mo_rte_solver_kernels module~mo_rte_lw->mo_rte_solver_kernels module~mo_rte_kind mo_rte_kind module~mo_rte_lw->module~mo_rte_kind module~mo_optical_props mo_optical_props module~mo_rte_lw->module~mo_optical_props module~mo_rte_config mo_rte_config module~mo_rte_lw->module~mo_rte_config module~mo_fluxes mo_fluxes module~mo_rte_lw->module~mo_fluxes module~mo_source_functions->module~mo_rte_kind module~mo_source_functions->module~mo_optical_props module~mo_rte_util_array_validation->module~mo_rte_kind iso_c_binding iso_c_binding module~mo_rte_kind->iso_c_binding module~mo_optical_props->module~mo_rte_util_array_validation module~mo_optical_props->module~mo_rte_kind module~mo_optical_props->module~mo_rte_config mo_optical_props_kernels mo_optical_props_kernels module~mo_optical_props->mo_optical_props_kernels module~mo_rte_config->module~mo_rte_kind module~mo_fluxes->module~mo_rte_util_array_validation module~mo_fluxes->module~mo_rte_kind module~mo_fluxes->module~mo_optical_props module~mo_fluxes->module~mo_rte_config mo_fluxes_broadband_kernels mo_fluxes_broadband_kernels module~mo_fluxes->mo_fluxes_broadband_kernels Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Functions rte_lw Functions public function rte_lw (optical_props, top_at_1, sources, sfc_emis, fluxes, inc_flux, n_gauss_angles, use_2stream, lw_Ds, flux_up_Jac) result(error_msg) Arguments Type Intent Optional Attributes Name class( ty_optical_props_arry ), intent(in) :: optical_props Set of optical properties as one or more arrays logical, intent(in) :: top_at_1 Is the top of the domain at index 1? (if not, ordering is bottom-to-top) type( ty_source_func_lw ), intent(in) :: sources Derived type with Planck source functions real(kind=wp), intent(in), dimension(:,:) :: sfc_emis emissivity at surface [] (nband, ncol) class( ty_fluxes ), intent(inout) :: fluxes Dervied type for computing spectral integrals from g-point fluxes.\nDefault computes broadband fluxes at all levels if output arrays are defined. Can be extended per user desires. real(kind=wp), intent(in), optional dimension(:,:), target :: inc_flux incident flux at domain top [W/m2] (ncol, ngpts) integer, intent(in), optional :: n_gauss_angles Number of angles used in Gaussian quadrature (max 3, no-scattering solution) logical, intent(in), optional :: use_2stream When 2-stream parameters (tau/ssa/g) are provided, use 2-stream methods\nDefault is to use re-scaled longwave transport real(kind=wp), intent(in), optional dimension(:,:) :: lw_Ds User-specifed 1/cos of transport angle per col, g-point real(kind=wp), intent(inout), optional dimension(:,:), target :: flux_up_Jac surface temperature flux  Jacobian [W/m2/K] (ncol, nlay+1) Return Value character(len=128) If empty, calculation was successful","tags":"","loc":"module/mo_rte_lw.html"},{"title":"mo_optical_props – RTE-Fortran","text":"Encapsulate optical properties defined on a spectral grid of N bands. The bands are described by their limiting wavenumbers. They need not be contiguous or complete.\n  A band may contain more than one spectral sub-point (g-point) in which case a mapping must be supplied.\n  A name may be provided and will be prepended to error messages.\n  The base class (ty_optical_props) encapsulates only this spectral discretization and must be initialized\n     with the spectral information before use. Optical properties may be represented as arrays with dimensions ncol, nlay, ngpt\n  (abstract class ty_optical_props_arry).\n  The type holds arrays depending on how much information is needed\n  There are three possibilites ty_optical_props_1scl holds absorption optical depth tau, used in calculations accounting for extinction and emission ty_optical_props_2str holds extincion optical depth tau, single-scattering albedo ssa, and\n       asymmetry parameter g. These fields are what's needed for two-stream calculations. ty_optical_props_nstr holds extincion optical depth tau, single-scattering albedo ssa, and\n       phase function moments p with leading dimension nmom. These fields are what's needed for multi-stream calculations. These classes must be allocated before use. Initialization and allocation can be combined.\n  The classes have a validate() function that checks all arrays for valid values (e.g. tau > 0.) Optical properties can be delta-scaled (though this is currently implemented only for two-stream arrays) Optical properties can increment or \"add themselves to\" a set of properties represented with arrays\n  as long as both sets have the same underlying band structure. Properties defined by band\n  may be added to properties defined by g-point; the same value is assumed for all g-points with each band. Subsets of optical properties held as arrays may be extracted along the column dimension. Uses mo_rte_util_array_validation mo_rte_kind mo_rte_config mo_optical_props_kernels module~~mo_optical_props~~UsesGraph module~mo_optical_props mo_optical_props module~mo_rte_util_array_validation mo_rte_util_array_validation module~mo_optical_props->module~mo_rte_util_array_validation mo_optical_props_kernels mo_optical_props_kernels module~mo_optical_props->mo_optical_props_kernels module~mo_rte_config mo_rte_config module~mo_optical_props->module~mo_rte_config module~mo_rte_kind mo_rte_kind module~mo_optical_props->module~mo_rte_kind module~mo_rte_util_array_validation->module~mo_rte_kind module~mo_rte_config->module~mo_rte_kind iso_c_binding iso_c_binding module~mo_rte_kind->iso_c_binding Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Used by module~~mo_optical_props~~UsedByGraph module~mo_optical_props mo_optical_props module~mo_rte_sw mo_rte_sw module~mo_rte_sw->module~mo_optical_props module~mo_fluxes mo_fluxes module~mo_rte_sw->module~mo_fluxes module~mo_fluxes->module~mo_optical_props module~mo_source_functions mo_source_functions module~mo_source_functions->module~mo_optical_props module~mo_rte_lw mo_rte_lw module~mo_rte_lw->module~mo_optical_props module~mo_rte_lw->module~mo_fluxes module~mo_rte_lw->module~mo_source_functions Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Variables name_len Derived Types ty_optical_props ty_optical_props_1scl ty_optical_props_2str ty_optical_props_arry ty_optical_props_nstr Variables Type Visibility Attributes Name Initial integer, public, parameter :: name_len = 32 Derived Types type, public :: ty_optical_props Describes the spectral discretization including the wavenumber limits\n  of each band (spectral region) and the mapping between g-points and bands Read more… Type-Bound Procedures procedure, public :: bands_are_equal procedure, public :: convert_band2gpt procedure, public :: convert_gpt2band procedure, public :: expand procedure, public :: finalize => finalize_base procedure, public :: get_band_lims_gpoint procedure, public :: get_band_lims_wavelength procedure, public :: get_band_lims_wavenumber procedure, public :: get_gpoint_bands procedure, public :: get_name procedure, public :: get_nband procedure, public :: get_ngpt procedure, public :: gpoints_are_equal generic, public :: init => init_base, init_base_from_copy procedure, public :: is_initialized => is_initialized_base procedure, public :: set_name type, public, extends( ty_optical_props_arry ) :: ty_optical_props_1scl ty_optical_props_arry represents optical properties as arrays with dimensions\n      column, height, spectral point\n  - Class 1-scalar only (extinction) optical depth\n  -  Class two-stream adds arrays for single scattering albedo ssa and\n     asymmetry parameter needed in two-stream methods\n  - Class n-stream adds arrays for single scattering albedo ssa and\n     phase function moments (index 1 = g) for use with discrete ordinate methods Read more… Components Type Visibility Attributes Name Initial real(kind=wp), public, dimension(:,:,:), allocatable :: tau optical depth (ncol, nlay, ngpt) Type-Bound Procedures generic, public :: alloc_1scl => alloc_only_1scl, init_and_alloc_1scl, copy_and_alloc_1scl procedure, public :: bands_are_equal procedure, public :: convert_band2gpt procedure, public :: convert_gpt2band procedure, public :: delta_scale => delta_scale_1scl procedure, public :: expand procedure, public :: finalize => finalize_base procedure, public :: finalize_1scl procedure, public :: get_band_lims_gpoint procedure, public :: get_band_lims_wavelength procedure, public :: get_band_lims_wavenumber procedure, public :: get_gpoint_bands procedure, public :: get_name procedure, public :: get_nband procedure, public :: get_ncol procedure, public :: get_ngpt procedure, public :: get_nlay procedure, public :: get_subset => subset_1scl_range procedure, public :: gpoints_are_equal procedure, public :: increment Increment another set of values generic, public :: init => init_base, init_base_from_copy procedure, public :: is_initialized => is_initialized_base procedure, public :: set_name procedure, public :: validate => validate_1scalar type, public, extends( ty_optical_props_arry ) :: ty_optical_props_2str Components Type Visibility Attributes Name Initial real(kind=wp), public, dimension(:,:,:), allocatable :: g asymmetry parameter (ncol, nlay, ngpt) real(kind=wp), public, dimension(:,:,:), allocatable :: ssa single-scattering albedo (ncol, nlay, ngpt) real(kind=wp), public, dimension(:,:,:), allocatable :: tau optical depth (ncol, nlay, ngpt) Type-Bound Procedures generic, public :: alloc_2str => alloc_only_2str, init_and_alloc_2str, copy_and_alloc_2str procedure, public :: bands_are_equal procedure, public :: convert_band2gpt procedure, public :: convert_gpt2band procedure, public :: delta_scale => delta_scale_2str procedure, public :: expand procedure, public :: finalize => finalize_base procedure, public :: finalize_2str procedure, public :: get_band_lims_gpoint procedure, public :: get_band_lims_wavelength procedure, public :: get_band_lims_wavenumber procedure, public :: get_gpoint_bands procedure, public :: get_name procedure, public :: get_nband procedure, public :: get_ncol procedure, public :: get_ngpt procedure, public :: get_nlay procedure, public :: get_subset => subset_2str_range procedure, public :: gpoints_are_equal procedure, public :: increment Increment another set of values generic, public :: init => init_base, init_base_from_copy procedure, public :: is_initialized => is_initialized_base procedure, public :: set_name procedure, public :: validate => validate_2stream type, public, abstract, extends( ty_optical_props ) :: ty_optical_props_arry The abstract base class for arrays defines what procedures will be available Read more… Components Type Visibility Attributes Name Initial real(kind=wp), public, dimension(:,:,:), allocatable :: tau optical depth (ncol, nlay, ngpt) Type-Bound Procedures procedure, public :: bands_are_equal procedure, public :: convert_band2gpt procedure, public :: convert_gpt2band procedure(delta_scale_abstract), public :: delta_scale procedure, public :: expand procedure, public :: finalize => finalize_base procedure, public :: get_band_lims_gpoint procedure, public :: get_band_lims_wavelength procedure, public :: get_band_lims_wavenumber procedure, public :: get_gpoint_bands procedure, public :: get_name procedure, public :: get_nband procedure, public :: get_ncol procedure, public :: get_ngpt procedure, public :: get_nlay procedure(subset_range_abstract), public :: get_subset procedure, public :: gpoints_are_equal procedure, public :: increment Increment another set of values generic, public :: init => init_base, init_base_from_copy procedure, public :: is_initialized => is_initialized_base procedure, public :: set_name procedure(validate_abstract), public :: validate Deferred procedures -- each must be implemented in each child class with\n  arguments following the abstract interface (defined below) type, public, extends( ty_optical_props_arry ) :: ty_optical_props_nstr Components Type Visibility Attributes Name Initial real(kind=wp), public, dimension(:,:,:,:), allocatable :: p phase-function moments (nmom, ncol, nlay, ngpt) real(kind=wp), public, dimension(:,:,:), allocatable :: ssa single-scattering albedo (ncol, nlay, ngpt) real(kind=wp), public, dimension(:,:,:), allocatable :: tau optical depth (ncol, nlay, ngpt) Type-Bound Procedures generic, public :: alloc_nstr => alloc_only_nstr, init_and_alloc_nstr, copy_and_alloc_nstr procedure, public :: bands_are_equal procedure, public :: convert_band2gpt procedure, public :: convert_gpt2band procedure, public :: delta_scale => delta_scale_nstr procedure, public :: expand procedure, public :: finalize => finalize_base procedure, public :: finalize_nstr procedure, public :: get_band_lims_gpoint procedure, public :: get_band_lims_wavelength procedure, public :: get_band_lims_wavenumber procedure, public :: get_gpoint_bands procedure, public :: get_name procedure, public :: get_nband procedure, public :: get_ncol procedure, public :: get_ngpt procedure, public :: get_nlay procedure, public :: get_nmom procedure, public :: get_subset => subset_nstr_range procedure, public :: gpoints_are_equal procedure, public :: increment Increment another set of values generic, public :: init => init_base, init_base_from_copy procedure, public :: is_initialized => is_initialized_base procedure, public :: set_name procedure, public :: validate => validate_nstream","tags":"","loc":"module/mo_optical_props.html"},{"title":"mo_fluxes – RTE-Fortran","text":"Compute output quantities from spectrally-resolved flux profiles This module contains an abstract class and a broadband implmentation that sums over all spectral points\n   The abstract base class defines the routines that extenstions must implement: reduce() and are_desired() The intent is for users to extend it as required, using mo_flxues_broadband as an example Uses mo_fluxes_broadband_kernels mo_rte_util_array_validation mo_rte_kind mo_optical_props mo_rte_config module~~mo_fluxes~~UsesGraph module~mo_fluxes mo_fluxes mo_fluxes_broadband_kernels mo_fluxes_broadband_kernels module~mo_fluxes->mo_fluxes_broadband_kernels module~mo_optical_props mo_optical_props module~mo_fluxes->module~mo_optical_props module~mo_rte_util_array_validation mo_rte_util_array_validation module~mo_fluxes->module~mo_rte_util_array_validation module~mo_rte_config mo_rte_config module~mo_fluxes->module~mo_rte_config module~mo_rte_kind mo_rte_kind module~mo_fluxes->module~mo_rte_kind module~mo_optical_props->module~mo_rte_util_array_validation module~mo_optical_props->module~mo_rte_config module~mo_optical_props->module~mo_rte_kind mo_optical_props_kernels mo_optical_props_kernels module~mo_optical_props->mo_optical_props_kernels module~mo_rte_util_array_validation->module~mo_rte_kind module~mo_rte_config->module~mo_rte_kind iso_c_binding iso_c_binding module~mo_rte_kind->iso_c_binding Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Used by module~~mo_fluxes~~UsedByGraph module~mo_fluxes mo_fluxes module~mo_rte_sw mo_rte_sw module~mo_rte_sw->module~mo_fluxes module~mo_rte_lw mo_rte_lw module~mo_rte_lw->module~mo_fluxes Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Derived Types ty_fluxes ty_fluxes_broadband Derived Types type, public, abstract :: ty_fluxes Abstract base class: reduce() function accepts spectral flux profiles, computes desired outputs are_desired() returns a logical Type-Bound Procedures procedure(are_desired_abstract), public :: are_desired procedure(reduce_abstract), public :: reduce type, public, extends( ty_fluxes ) :: ty_fluxes_broadband Class implementing broadband integration for the complete flux profile.\n  Data components are pointers so results can be written directly into memory Components Type Visibility Attributes Name Initial real(kind=wp), public, dimension(:,:), pointer :: flux_dn => NULL() real(kind=wp), public, dimension(:,:), pointer :: flux_dn_dir => NULL() real(kind=wp), public, dimension(:,:), pointer :: flux_net => NULL() real(kind=wp), public, dimension(:,:), pointer :: flux_up => NULL() Type-Bound Procedures procedure, public :: are_desired => are_desired_broadband procedure, public :: reduce => reduce_broadband","tags":"","loc":"module/mo_fluxes.html"},{"title":"mo_rte_sw.F90 – RTE-Fortran","text":"This file depends on sourcefile~~mo_rte_sw.f90~~EfferentGraph sourcefile~mo_rte_sw.f90 mo_rte_sw.F90 sourcefile~mo_rte_kind.f90 mo_rte_kind.F90 sourcefile~mo_rte_sw.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_fluxes.f90 mo_fluxes.F90 sourcefile~mo_rte_sw.f90->sourcefile~mo_fluxes.f90 sourcefile~mo_rte_config.f90 mo_rte_config.F90 sourcefile~mo_rte_sw.f90->sourcefile~mo_rte_config.f90 sourcefile~mo_rte_util_array_validation.f90 mo_rte_util_array_validation.F90 sourcefile~mo_rte_sw.f90->sourcefile~mo_rte_util_array_validation.f90 sourcefile~mo_optical_props.f90 mo_optical_props.F90 sourcefile~mo_rte_sw.f90->sourcefile~mo_optical_props.f90 sourcefile~mo_fluxes.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_fluxes.f90->sourcefile~mo_rte_config.f90 sourcefile~mo_fluxes.f90->sourcefile~mo_rte_util_array_validation.f90 sourcefile~mo_fluxes.f90->sourcefile~mo_optical_props.f90 sourcefile~mo_rte_config.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_rte_util_array_validation.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_optical_props.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_optical_props.f90->sourcefile~mo_rte_config.f90 sourcefile~mo_optical_props.f90->sourcefile~mo_rte_util_array_validation.f90 Help × Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules mo_rte_sw Source Code mo_rte_sw.F90 Source Code ! This code is part of Radiative Transfer for Energetics (RTE) ! ! Contacts: Robert Pincus and Eli Mlawer ! email:  rrtmgp@aer.com ! ! Copyright 2015-,  Atmospheric and Environmental Research, ! Regents of the University of Colorado, Trustees of Columbia University.  All right reserved. ! ! Use and duplication is permitted under the terms of the !    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause ! ------------------------------------------------------------------------------------------------- ! !> Compute shortwave radiative fluxes !>  Contains a single routine to compute direct and diffuse fluxes of solar radiation given !> !>  - atmospheric optical properties on a spectral grid !>  - information about vertical ordering !>  - boundary conditions !>    - solar zenith angle, spectrally-resolved incident colimated flux, surface albedos for direct and diffuse radiation !>    - optionally, a boundary condition for incident diffuse radiation !> !> It is the user's responsibility to ensure that boundary conditions (incident fluxes, surface albedos) are on the same !>   spectral grid as the optical properties. !> !> Final output is via user-extensible ty_fluxes !> ([[mo_fluxes(module):ty_fluxes(type)]] in module [[mo_fluxes]]) !> which must reduce the detailed spectral fluxes to whatever summary the user needs !> !> !> The routine does error checking and choses which lower-level kernel to invoke based on !>   what kinds of optical properties are supplied ! ! ------------------------------------------------------------------------------------------------- module mo_rte_sw use mo_rte_kind , only : wp , wl use mo_rte_config , only : check_extents , check_values use mo_rte_util_array , only : zero_array use mo_rte_util_array_validation , & only : any_vals_less_than , any_vals_outside , extents_are use mo_optical_props , only : ty_optical_props , & ty_optical_props_arry , ty_optical_props_1scl , ty_optical_props_2str , ty_optical_props_nstr use mo_fluxes , only : ty_fluxes , ty_fluxes_broadband use mo_rte_solver_kernels , & only : sw_solver_noscat , sw_solver_2stream implicit none private interface rte_sw module procedure rte_sw_mu0_bycol , rte_sw_mu0_full end interface rte_sw public :: rte_sw contains ! ------------------------------------------------------------------------------------------------- function rte_sw_mu0_bycol ( atmos , top_at_1 , & mu0 , inc_flux , & sfc_alb_dir , sfc_alb_dif , & fluxes , inc_flux_dif ) result ( error_msg ) class ( ty_optical_props_arry ), intent ( in ) :: atmos !! Optical properties provided as arrays logical , intent ( in ) :: top_at_1 !! Is the top of the domain at index 1? (if not, ordering is bottom-to-top) real ( wp ), dimension (:), intent ( in ) :: mu0 !! cosine of solar zenith angle (ncol) - will be assumed constant with height real ( wp ), dimension (:,:), intent ( in ) :: inc_flux !! incident flux at top of domain [W/m2] (ncol, ngpt) real ( wp ), dimension (:,:), intent ( in ) :: sfc_alb_dir !! surface albedo for direct and real ( wp ), dimension (:,:), intent ( in ) :: sfc_alb_dif !! diffuse radiation (nband, ncol) class ( ty_fluxes ), intent ( inout ) :: fluxes !! Class describing output calculations real ( wp ), dimension (:,:), optional , target , & intent ( in ) :: inc_flux_dif !! incident diffuse flux at top of domain [W/m2] (ncol, ngpt) character ( len = 128 ) :: error_msg !! If empty, calculation was successful ! -------------------------------- real ( wp ), dimension ( size ( mu0 ), atmos % get_nlay ()) :: mu0_bylay integer :: i , j , ncol , nlay ncol = size ( mu0 ) nlay = atmos % get_nlay () ! Solar zenith angle cosine is constant with height !$acc        data copyin(mu0)    create(mu0_bylay) !$omp target data map(to:mu0) map(alloc:mu0_bylay) !$acc                         parallel loop    collapse(2) !$omp target teams distribute parallel do simd collapse(2) do j = 1 , nlay do i = 1 , ncol mu0_bylay ( i , j ) = mu0 ( i ) end do end do error_msg = rte_sw_mu0_full ( atmos , top_at_1 , & mu0_bylay , inc_flux , & sfc_alb_dir , sfc_alb_dif , & fluxes , inc_flux_dif ) !$acc end data !$omp end target data end function rte_sw_mu0_bycol ! ------------------------------------------------------------------------------------------------- function rte_sw_mu0_full ( atmos , top_at_1 , & mu0 , inc_flux , & sfc_alb_dir , sfc_alb_dif , & fluxes , inc_flux_dif ) result ( error_msg ) class ( ty_optical_props_arry ), intent ( in ) :: atmos !! Optical properties provided as arrays logical , intent ( in ) :: top_at_1 !! Is the top of the domain at index 1? (if not, ordering is bottom-to-top) real ( wp ), dimension (:,:), intent ( in ) :: mu0 !! cosine of solar zenith angle (ncol, nlay) real ( wp ), dimension (:,:), intent ( in ) :: inc_flux !! incident flux at top of domain [W/m2] (ncol, ngpt) real ( wp ), dimension (:,:), intent ( in ) :: sfc_alb_dir !! surface albedo for direct and real ( wp ), dimension (:,:), intent ( in ) :: sfc_alb_dif !! diffuse radiation (nband, ncol) class ( ty_fluxes ), intent ( inout ) :: fluxes !! Class describing output calculations real ( wp ), dimension (:,:), optional , target , & intent ( in ) :: inc_flux_dif !! incident diffuse flux at top of domain [W/m2] (ncol, ngpt) character ( len = 128 ) :: error_msg !! If empty, calculation was successful ! -------------------------------- ! ! Local variables ! integer :: ncol , nlay , ngpt , nband integer :: icol , ilev logical ( wl ) :: has_dif_bc , do_broadband real ( wp ), dimension (:,:,:), pointer :: gpt_flux_up , gpt_flux_dn , gpt_flux_dir real ( wp ), dimension (:,:), allocatable :: sfc_alb_dir_gpt , sfc_alb_dif_gpt real ( wp ), dimension (:,:), pointer :: flux_dn_loc , flux_up_loc , flux_dir_loc real ( wp ), dimension (:,:), pointer :: inc_flux_diffuse real ( wp ), dimension (:,:,:), allocatable , target :: decoy3D real ( wp ), dimension (:,:), allocatable , target :: decoy2D ! ------------------------------------------------------------------------------------ ncol = atmos % get_ncol () nlay = atmos % get_nlay () ngpt = atmos % get_ngpt () nband = atmos % get_nband () error_msg = \"\" ! ------------------------------------------------------------------------------------ ! ! Error checking -- consistency of sizes and validity of values ! ! -------------------------------- if (. not . fluxes % are_desired ()) & error_msg = \"rte_sw: no space allocated for fluxes\" has_dif_bc = logical ( present ( inc_flux_dif ), wl ) ! ! Sizes of input arrays ! ! Copy variables whose sizes and values are checked to the GPU so the checks can happen there. !   No harm done if checks are not performed  (?) !$acc        data copyin(mu0, inc_flux, sfc_alb_dir, sfc_alb_dif) !$omp target data map(to:mu0, inc_flux, sfc_alb_dir, sfc_alb_dif) !$acc        data copyin(inc_flux_dif) if (has_dif_bc) !$omp target data map(to:inc_flux_dif) if (has_dif_bc) if ( check_extents ) then if (. not . extents_are ( mu0 , ncol , nlay )) & error_msg = \"rte_sw: mu0 inconsistently sized\" if (. not . extents_are ( inc_flux , ncol , ngpt )) & error_msg = \"rte_sw: inc_flux inconsistently sized\" if (. not . extents_are ( sfc_alb_dir , nband , ncol )) & error_msg = \"rte_sw: sfc_alb_dir inconsistently sized\" if (. not . extents_are ( sfc_alb_dif , nband , ncol )) & error_msg = \"rte_sw: sfc_alb_dif inconsistently sized\" if ( has_dif_bc ) then if (. not . extents_are ( inc_flux_dif , ncol , ngpt )) & error_msg = \"rte_sw: inc_flux_dif inconsistently sized\" end if end if ! ! Values of input arrays ! if ( check_values ) then if ( any_vals_outside ( mu0 , - 1._wp , 1._wp )) & error_msg = \"rte_sw: one or more mu0 < -1 or > 1\" if ( any_vals_less_than ( inc_flux , 0._wp )) & error_msg = \"rte_sw: one or more inc_flux < 0\" if ( any_vals_outside ( sfc_alb_dir , 0._wp , 1._wp )) & error_msg = \"rte_sw: sfc_alb_dir out of bounds [0,1]\" if ( any_vals_outside ( sfc_alb_dif , 0._wp , 1._wp )) & error_msg = \"rte_sw: sfc_alb_dif out of bounds [0,1]\" if ( has_dif_bc ) then if ( any_vals_less_than ( inc_flux_dif , 0._wp )) & error_msg = \"rte_sw: one or more inc_flux_dif < 0\" end if end if ! ------------------------------------------------------------------------------------ select type ( fluxes ) type is ( ty_fluxes_broadband ) do_broadband = . true . _ wl ! ! Solvers will integrate in place (one g-point at a time on CPUs) !   so won't need big working arrays ! allocate ( decoy3D ( ncol , nlay + 1 , ngpt )) gpt_flux_up => decoy3D gpt_flux_dn => decoy3D gpt_flux_dir => decoy3D ! ! Broadband fluxes class has three possible outputs; allocate memory for local use !   if one or more haven't been requested ! if ( associated ( fluxes % flux_up )) then flux_up_loc => fluxes % flux_up else allocate ( flux_up_loc ( ncol , nlay + 1 )) end if if ( associated ( fluxes % flux_dn )) then flux_dn_loc => fluxes % flux_dn else allocate ( flux_dn_loc ( ncol , nlay + 1 )) end if if ( associated ( fluxes % flux_dn_dir )) then flux_dir_loc => fluxes % flux_dn_dir else allocate ( flux_dir_loc ( ncol , nlay + 1 )) end if !$acc        enter data create(   flux_up_loc, flux_dn_loc, flux_dir_loc) !$omp target enter data map(alloc:flux_up_loc, flux_dn_loc, flux_dir_loc) class default ! ! If broadband integrals aren't being computed, allocate working space !   and decoy addresses for spectrally-integrated fields ! do_broadband = . false . _ wl allocate ( decoy2D ( ncol , nlay + 1 )) flux_up_loc => decoy2D flux_dn_loc => decoy2D flux_dir_loc => decoy2D allocate ( gpt_flux_up ( ncol , nlay + 1 , ngpt ), & gpt_flux_dn ( ncol , nlay + 1 , ngpt ), & gpt_flux_dir ( ncol , nlay + 1 , ngpt )) end select allocate ( sfc_alb_dir_gpt ( ncol , ngpt ), sfc_alb_dif_gpt ( ncol , ngpt )) if ( len_trim ( error_msg ) > 0 ) then if ( len_trim ( atmos % get_name ()) > 0 ) & error_msg = trim ( atmos % get_name ()) // ': ' // trim ( error_msg ) end if ! Fluxes need to be copied out only if do_broadband is .true. !$acc        data copyin(   flux_up_loc,flux_dn_loc,flux_dir_loc) if (      do_broadband) !$omp target data map(to:   flux_up_loc,flux_dn_loc,flux_dir_loc) if (      do_broadband) !$acc        data create(   flux_up_loc,flux_dn_loc,flux_dir_loc) if (.not. do_broadband) !$omp target data map(alloc:flux_up_loc,flux_dn_loc,flux_dir_loc) if (.not. do_broadband) !$acc        data create(   gpt_flux_up,gpt_flux_dn,gpt_flux_dir) & !$acc             create(   sfc_alb_dir_gpt, sfc_alb_dif_gpt) !$omp target data map(alloc:gpt_flux_up,gpt_flux_dn,gpt_flux_dir) & !$omp             map(alloc:sfc_alb_dir_gpt, sfc_alb_dif_gpt) ! ------------------------------------------------------------------------------------ ! Boundary conditions !   Lower boundary condition -- expand surface albedos by band to gpoints !     and switch dimension ordering call expand_and_transpose ( atmos , sfc_alb_dir , sfc_alb_dir_gpt ) call expand_and_transpose ( atmos , sfc_alb_dif , sfc_alb_dif_gpt ) ! !   Diffuse flux boundary condition - will use values in optional arg or be set to 0 ! if ( has_dif_bc ) then inc_flux_diffuse => inc_flux_dif !$acc        enter data copyin(   inc_flux_diffuse) !$omp target enter data map(to:   inc_flux_diffuse) else allocate ( inc_flux_diffuse ( ncol , ngpt )) !$acc        enter data create(   inc_flux_diffuse) !$omp target enter data map(alloc:inc_flux_diffuse) call zero_array ( ncol , ngpt , inc_flux_diffuse ) end if ! ------------------------------------------------------------------------------------ if ( check_values ) error_msg = atmos % validate () ! ! Compute the radiative transfer... ! if ( len_trim ( error_msg ) == 0 ) then select type ( atmos ) class is ( ty_optical_props_1scl ) ! ! Direct beam only - for completeness, unlikely to be used in practice ! call sw_solver_noscat ( ncol , nlay , ngpt , logical ( top_at_1 , wl ), & atmos % tau , mu0 , inc_flux , & gpt_flux_dir ) call zero_array ( ncol , nlay + 1 , ngpt , gpt_flux_up ) ! !$acc kernels !$omp target gpt_flux_dn (:,:,:) = gpt_flux_dir (:,:,:) !$acc end kernels !$omp end target class is ( ty_optical_props_2str ) ! ! two-stream calculation with scattering ! call sw_solver_2stream ( ncol , nlay , ngpt , logical ( top_at_1 , wl ), & atmos % tau , atmos % ssa , atmos % g , mu0 , & sfc_alb_dir_gpt , sfc_alb_dif_gpt , & inc_flux , & gpt_flux_up , gpt_flux_dn , gpt_flux_dir , & has_dif_bc , inc_flux_diffuse , & do_broadband , flux_up_loc , flux_dn_loc , flux_dir_loc ) class is ( ty_optical_props_nstr ) ! ! n-stream calculation ! ! not yet implemented so fail ! error_msg = 'sw_solver(...ty_optical_props_nstr...) not yet implemented' end select if ( len_trim ( error_msg ) > 0 ) then if ( len_trim ( atmos % get_name ()) > 0 ) & error_msg = trim ( atmos % get_name ()) // ': ' // trim ( error_msg ) end if ! ! Flux reduction (summarizing for output) ! select type ( fluxes ) ! ! Tidy up memory for broadband fluxes ! type is ( ty_fluxes_broadband ) if ( associated ( fluxes % flux_net )) then !$acc                         parallel loop    collapse(2) copyout(fluxes%flux_net) !$omp target teams distribute parallel do simd collapse(2) do ilev = 1 , nlay + 1 do icol = 1 , ncol fluxes % flux_net ( icol , ilev ) = flux_dn_loc ( icol , ilev ) - flux_up_loc ( icol , ilev ) end do end do end if class default ! ! ...or reduce spectral fluxes to desired output quantities ! error_msg = fluxes % reduce ( gpt_flux_up , gpt_flux_dn , atmos , top_at_1 , gpt_flux_dir ) end select end if ! In case of an error we exit here !$acc        end data !$omp end target data !$acc        end data !$omp end target data !$acc        end data !$omp end target data !$acc        end data !$omp end target data !$acc        end data !$omp end target data ! ! Deallocate any memory allocated locally to pointer variables ! select type ( fluxes ) type is ( ty_fluxes_broadband ) !$acc        exit data copyout( flux_up_loc, flux_dn_loc, flux_dir_loc) !$omp target exit data map(from:flux_up_loc, flux_dn_loc, flux_dir_loc) if (. not . associated ( fluxes % flux_up )) deallocate ( flux_up_loc ) if (. not . associated ( fluxes % flux_dn )) deallocate ( flux_dn_loc ) if (. not . associated ( fluxes % flux_dn_dir )) deallocate ( flux_dir_loc ) class default deallocate ( gpt_flux_up , gpt_flux_dn , gpt_flux_dir ) end select if (. not . has_dif_bc ) then !$acc        exit data delete(     inc_flux_diffuse) !$omp target exit data map(release:inc_flux_diffuse) deallocate ( inc_flux_diffuse ) end if end function rte_sw_mu0_full !-------------------------------------------------------------------------------------------------------------------- ! ! Expand from band to g-point dimension, transpose dimensions (nband, ncol) -> (ncol,ngpt) ! subroutine expand_and_transpose ( ops , arr_in , arr_out ) class ( ty_optical_props ), intent ( in ) :: ops real ( wp ), dimension (:,:), intent ( in ) :: arr_in ! (nband, ncol) real ( wp ), dimension (:,:), intent ( out ) :: arr_out ! (ncol, igpt) ! ------------- integer :: ncol , nband , ngpt integer :: icol , iband , igpt integer , dimension ( 2 , ops % get_nband ()) :: limits ncol = size ( arr_in , 2 ) nband = ops % get_nband () ngpt = ops % get_ngpt () limits = ops % get_band_lims_gpoint () !$acc                         parallel loop    collapse(2) copyin(arr_in, limits) !$omp target teams distribute parallel do simd collapse(2) map(to:arr_in, limits) do iband = 1 , nband do icol = 1 , ncol do igpt = limits ( 1 , iband ), limits ( 2 , iband ) arr_out ( icol , igpt ) = arr_in ( iband , icol ) end do end do end do end subroutine expand_and_transpose end module mo_rte_sw","tags":"","loc":"sourcefile/mo_rte_sw.f90.html"},{"title":"mo_rte_util_array_validation.F90 – RTE-Fortran","text":"This file depends on sourcefile~~mo_rte_util_array_validation.f90~~EfferentGraph sourcefile~mo_rte_util_array_validation.f90 mo_rte_util_array_validation.F90 sourcefile~mo_rte_kind.f90 mo_rte_kind.F90 sourcefile~mo_rte_util_array_validation.f90->sourcefile~mo_rte_kind.f90 Help × Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\n    is dependent upon another if the latter must be compiled before the former\n    can be. Files dependent on this one sourcefile~~mo_rte_util_array_validation.f90~~AfferentGraph sourcefile~mo_rte_util_array_validation.f90 mo_rte_util_array_validation.F90 sourcefile~mo_rte_sw.f90 mo_rte_sw.F90 sourcefile~mo_rte_sw.f90->sourcefile~mo_rte_util_array_validation.f90 sourcefile~mo_fluxes.f90 mo_fluxes.F90 sourcefile~mo_rte_sw.f90->sourcefile~mo_fluxes.f90 sourcefile~mo_optical_props.f90 mo_optical_props.F90 sourcefile~mo_rte_sw.f90->sourcefile~mo_optical_props.f90 sourcefile~mo_fluxes.f90->sourcefile~mo_rte_util_array_validation.f90 sourcefile~mo_fluxes.f90->sourcefile~mo_optical_props.f90 sourcefile~mo_rte_lw.f90 mo_rte_lw.F90 sourcefile~mo_rte_lw.f90->sourcefile~mo_rte_util_array_validation.f90 sourcefile~mo_rte_lw.f90->sourcefile~mo_fluxes.f90 sourcefile~mo_rte_lw.f90->sourcefile~mo_optical_props.f90 sourcefile~mo_source_functions.f90 mo_source_functions.F90 sourcefile~mo_rte_lw.f90->sourcefile~mo_source_functions.f90 sourcefile~mo_optical_props.f90->sourcefile~mo_rte_util_array_validation.f90 sourcefile~mo_source_functions.f90->sourcefile~mo_optical_props.f90 Help × Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules mo_rte_util_array_validation Source Code mo_rte_util_array_validation.F90 Source Code ! This code is part of Radiative Transfer for Energetics (RTE) ! ! Contacts: Robert Pincus and Eli Mlawer ! email:  rrtmgp@aer.com ! ! Copyright 2015-  Atmospheric and Environmental Research, !    Regents of the University of Colorado, !    Trustees of Columbia University in the City of New York ! All right reserved. ! ! Use and duplication is permitted under the terms of the !    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause ! ------------------------------------------------------------------------------------------------- module mo_rte_util_array_validation ! !> Provide utilites for sanitizing input arrays: !    checking values and sizes ! These are in a module so code can be written for both CPUs and GPUs ! Used only by Fortran classes so routines don't need C bindings and can use assumed-shape ! use mo_rte_kind , only : wp , wl implicit none !> !> Values less than a floor (including masked versions) !> interface any_vals_less_than module procedure any_vals_less_than_1D , any_vals_less_than_2D , any_vals_less_than_3D module procedure any_vals_less_than_1D_masked , any_vals_less_than_2D_masked , any_vals_less_than_3D_masked end interface !> !> Values outside a range (including masked versions) !> interface any_vals_outside module procedure any_vals_outside_1D , any_vals_outside_2D , any_vals_outside_3D module procedure any_vals_outside_1D_masked , any_vals_outside_2D_masked , any_vals_outside_3D_masked end interface !> !> Find the extents of an array !> interface extents_are module procedure extents_are_1D , extents_are_2D , extents_are_3D module procedure extents_are_4D , extents_are_5D , extents_are_6D module procedure extents_are_2d_int end interface extents_are private public :: any_vals_less_than , any_vals_outside , extents_are contains !------------------------------------------------------------------------------------------------- ! Values less than a floor !------------------------------------------------------------------------------------------------- logical function any_vals_less_than_1D ( array , check_value ) real ( wp ), dimension (:), intent ( in ) :: array real ( wp ), intent ( in ) :: check_value real ( wp ) :: minValue !$acc kernels copyin(array) !$omp target map(to:array) map(from:minValue) minValue = minval ( array ) !$acc end kernels !$omp end target any_vals_less_than_1D = ( minValue < check_value ) end function any_vals_less_than_1D !------------------------------------------------------------------------------------------------- logical function any_vals_less_than_2D ( array , check_value ) real ( wp ), dimension (:,:), intent ( in ) :: array real ( wp ), intent ( in ) :: check_value real ( wp ) :: minValue !$acc kernels copyin(array) !$omp target map(to:array) map(from:minValue) minValue = minval ( array ) !$acc end kernels !$omp end target any_vals_less_than_2D = ( minValue < check_value ) end function any_vals_less_than_2D !------------------------------------------------------------------------------------------------- logical function any_vals_less_than_3D ( array , check_value ) real ( wp ), dimension (:,:,:), intent ( in ) :: array real ( wp ), intent ( in ) :: check_value real ( wp ) :: minValue #ifdef _OPENMP integer :: dim1 , dim2 , dim3 , i , j , k dim1 = size ( array , 1 ) dim2 = size ( array , 2 ) dim3 = size ( array , 3 ) minValue = check_value + epsilon ( check_value ) ! initialize to some value !$omp target teams map(to:array) & !$omp defaultmap(tofrom:scalar) reduction(min:minValue) !$omp distribute parallel do simd reduction(min:minValue) do i = 1 , dim1 do j = 1 , dim2 do k = 1 , dim3 minValue = min ( minValue , array ( i , j , k )) enddo enddo enddo !$omp end target teams #else !$acc kernels copyin(array) minValue = minval ( array ) !$acc end kernels #endif any_vals_less_than_3D = ( minValue < check_value ) end function any_vals_less_than_3D !------------------------------------------------------------------------------------------------- ! Masked versions !------------------------------------------------------------------------------------------------- logical function any_vals_less_than_1D_masked ( array , mask , check_value ) real ( wp ), dimension (:), intent ( in ) :: array logical ( wl ), dimension (:), intent ( in ) :: mask real ( wp ), intent ( in ) :: check_value real ( wp ) :: minValue !$acc kernels copyin(array, mask) !$omp target map(to: array, mask) map(from:minValue) minValue = minval ( array , mask = mask ) !$acc end kernels !$omp end target any_vals_less_than_1D_masked = ( minValue < check_value ) end function any_vals_less_than_1D_masked !------------------------------------------------------------------------------------------------- logical function any_vals_less_than_2D_masked ( array , mask , check_value ) real ( wp ), dimension (:,:), intent ( in ) :: array logical ( wl ), dimension (:,:), intent ( in ) :: mask real ( wp ), intent ( in ) :: check_value real ( wp ) :: minValue !$acc kernels copyin(array, mask) !$omp target map(to: array, mask) map(from:minValue) minValue = minval ( array , mask = mask ) !$acc end kernels !$omp end target any_vals_less_than_2D_masked = ( minValue < check_value ) end function any_vals_less_than_2D_masked !------------------------------------------------------------------------------------------------- logical function any_vals_less_than_3D_masked ( array , mask , check_value ) real ( wp ), dimension (:,:,:), intent ( in ) :: array logical ( wl ), dimension (:,:,:), intent ( in ) :: mask real ( wp ), intent ( in ) :: check_value real ( wp ) :: minValue !$acc kernels copyin(array, mask) !$omp target map(to: array, mask) map(from:minValue) minValue = minval ( array , mask = mask ) !$acc end kernels !$omp end target any_vals_less_than_3D_masked = ( minValue < check_value ) end function any_vals_less_than_3D_masked !------------------------------------------------------------------------------------------------- ! Values outside a range !------------------------------------------------------------------------------------------------- logical function any_vals_outside_1D ( array , checkMin , checkMax ) real ( wp ), dimension (:), intent ( in ) :: array real ( wp ), intent ( in ) :: checkMin , checkMax real ( wp ) :: minValue , maxValue !$acc kernels copyin(array) !$omp target map(to:array) map(from:minValue, maxValue) minValue = minval ( array ) maxValue = maxval ( array ) !$acc end kernels !$omp end target any_vals_outside_1D = minValue < checkMin . or . maxValue > checkMax end function any_vals_outside_1D ! ---------------------------------------------------------- logical function any_vals_outside_2D ( array , checkMin , checkMax ) real ( wp ), dimension (:,:), intent ( in ) :: array real ( wp ), intent ( in ) :: checkMin , checkMax real ( wp ) :: minValue , maxValue !$acc kernels copyin(array) !$omp target map(to:array) map(from:minValue, maxValue) minValue = minval ( array ) maxValue = maxval ( array ) !$acc end kernels !$omp end target any_vals_outside_2D = minValue < checkMin . or . maxValue > checkMax end function any_vals_outside_2D ! ---------------------------------------------------------- logical function any_vals_outside_3D ( array , checkMin , checkMax ) real ( wp ), dimension (:,:,:), intent ( in ) :: array real ( wp ), intent ( in ) :: checkMin , checkMax ! Compact version using intrinsics below ! but an explicit loop is the only current solution on GPUs real ( wp ) :: minValue , maxValue #ifdef _OPENMP integer :: dim1 , dim2 , dim3 , i , j , k dim1 = size ( array , 1 ) dim2 = size ( array , 2 ) dim3 = size ( array , 3 ) minValue = checkMin + epsilon ( checkMin ) ! initialize to some value maxValue = checkMax - epsilon ( checkMax ) ! initialize to some value !$omp target teams map(to:array) & !$omp defaultmap(tofrom:scalar) reduction(min:minValue) reduction(max:maxValue) !$omp distribute parallel do simd reduction(min:minValue) reduction(max:maxValue) do i = 1 , dim1 do j = 1 , dim2 do k = 1 , dim3 minValue = min ( minValue , array ( i , j , k )) maxValue = max ( maxValue , array ( i , j , k )) enddo enddo enddo !$omp end target teams #else !$acc kernels copyin(array) minValue = minval ( array ) maxValue = maxval ( array ) !$acc end kernels #endif any_vals_outside_3D = minValue < checkMin . or . maxValue > checkMax end function any_vals_outside_3D ! ---------------------------------------------------------- ! Masked versions ! ---------------------------------------------------------- logical function any_vals_outside_1D_masked ( array , mask , checkMin , checkMax ) real ( wp ), dimension (:), intent ( in ) :: array logical ( wl ), dimension (:), intent ( in ) :: mask real ( wp ), intent ( in ) :: checkMin , checkMax real ( wp ) :: minValue , maxValue !$acc kernels copyin(array, mask) !$omp target map(to: array, mask) map(from:minValue, maxValue) minValue = minval ( array , mask = mask ) maxValue = maxval ( array , mask = mask ) !$acc end kernels !$omp end target any_vals_outside_1D_masked = minValue < checkMin . or . maxValue > checkMax end function any_vals_outside_1D_masked ! ---------------------------------------------------------- logical function any_vals_outside_2D_masked ( array , mask , checkMin , checkMax ) real ( wp ), dimension (:,:), intent ( in ) :: array logical ( wl ), dimension (:,:), intent ( in ) :: mask real ( wp ), intent ( in ) :: checkMin , checkMax real ( wp ) :: minValue , maxValue !$acc kernels copyin(array, mask) !$omp target map(to: array, mask) map(from:minValue, maxValue) minValue = minval ( array , mask = mask ) maxValue = maxval ( array , mask = mask ) !$acc end kernels !$omp end target any_vals_outside_2D_masked = minValue < checkMin . or . maxValue > checkMax end function any_vals_outside_2D_masked ! ---------------------------------------------------------- logical function any_vals_outside_3D_masked ( array , mask , checkMin , checkMax ) real ( wp ), dimension (:,:,:), intent ( in ) :: array logical ( wl ), dimension (:,:,:), intent ( in ) :: mask real ( wp ), intent ( in ) :: checkMin , checkMax real ( wp ) :: minValue , maxValue !$acc kernels copyin(array, mask) !$omp target map(to: array, mask) map(from:minValue, maxValue) minValue = minval ( array , mask = mask ) maxValue = maxval ( array , mask = mask ) !$acc end kernels !$omp end target any_vals_outside_3D_masked = minValue < checkMin . or . maxValue > checkMax end function any_vals_outside_3D_masked !-------------------------------------------------------------------------------------------------------------------- ! ! Extents ! ! -------------------------------------------------------------------------------------- function extents_are_1d ( array , n1 ) real ( wp ), dimension (: ), intent ( in ) :: array integer , intent ( in ) :: n1 logical ( wl ) :: extents_are_1d extents_are_1d = ( size ( array , 1 ) == n1 ) end function extents_are_1d ! -------------------------------------------------------------------------------------- function extents_are_2d ( array , n1 , n2 ) real ( wp ), dimension (:,: ), intent ( in ) :: array integer , intent ( in ) :: n1 , n2 logical ( wl ) :: extents_are_2d extents_are_2d = ( size ( array , 1 ) == n1 . and . & size ( array , 2 ) == n2 ) end function extents_are_2d ! -------------------------------------------------------------------------------------- function extents_are_3d ( array , n1 , n2 , n3 ) real ( wp ), dimension (:,:,: ), intent ( in ) :: array integer , intent ( in ) :: n1 , n2 , n3 logical ( wl ) :: extents_are_3d extents_are_3d = ( size ( array , 1 ) == n1 . and . & size ( array , 2 ) == n2 . and . & size ( array , 3 ) == n3 ) end function extents_are_3d ! -------------------------------------------------------------------------------------- function extents_are_4d ( array , n1 , n2 , n3 , n4 ) real ( wp ), dimension (:,:,:,: ), intent ( in ) :: array integer , intent ( in ) :: n1 , n2 , n3 , n4 logical ( wl ) :: extents_are_4d extents_are_4d = ( size ( array , 1 ) == n1 . and . & size ( array , 2 ) == n2 . and . & size ( array , 3 ) == n3 . and . & size ( array , 4 ) == n4 ) end function extents_are_4d ! -------------------------------------------------------------------------------------- function extents_are_5d ( array , n1 , n2 , n3 , n4 , n5 ) real ( wp ), dimension (:,:,:,:,: ), intent ( in ) :: array integer , intent ( in ) :: n1 , n2 , n3 , n4 , n5 logical ( wl ) :: extents_are_5d extents_are_5d = ( size ( array , 1 ) == n1 . and . & size ( array , 2 ) == n2 . and . & size ( array , 3 ) == n3 . and . & size ( array , 4 ) == n4 . and . & size ( array , 5 ) == n5 ) end function extents_are_5d ! -------------------------------------------------------------------------------------- function extents_are_6d ( array , n1 , n2 , n3 , n4 , n5 , n6 ) real ( wp ), dimension (:,:,:,:,:,:), intent ( in ) :: array integer , intent ( in ) :: n1 , n2 , n3 , n4 , n5 , n6 logical ( wl ) :: extents_are_6d extents_are_6d = ( size ( array , 1 ) == n1 . and . & size ( array , 2 ) == n2 . and . & size ( array , 3 ) == n3 . and . & size ( array , 4 ) == n4 . and . & size ( array , 5 ) == n5 . and . & size ( array , 6 ) == n6 ) end function extents_are_6d ! -------------------------------------------------------------------------------------- function extents_are_2d_int ( array , n1 , n2 ) integer , dimension (:,: ), intent ( in ) :: array integer , intent ( in ) :: n1 , n2 logical ( wl ) :: extents_are_2d_int extents_are_2d_int = ( size ( array , 1 ) == n1 . and . & size ( array , 2 ) == n2 ) end function extents_are_2d_int end module mo_rte_util_array_validation","tags":"","loc":"sourcefile/mo_rte_util_array_validation.f90.html"},{"title":"mo_rte_kind.F90 – RTE-Fortran","text":"Files dependent on this one sourcefile~~mo_rte_kind.f90~~AfferentGraph sourcefile~mo_rte_kind.f90 mo_rte_kind.F90 sourcefile~mo_rte_sw.f90 mo_rte_sw.F90 sourcefile~mo_rte_sw.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_fluxes.f90 mo_fluxes.F90 sourcefile~mo_rte_sw.f90->sourcefile~mo_fluxes.f90 sourcefile~mo_rte_config.f90 mo_rte_config.F90 sourcefile~mo_rte_sw.f90->sourcefile~mo_rte_config.f90 sourcefile~mo_rte_util_array_validation.f90 mo_rte_util_array_validation.F90 sourcefile~mo_rte_sw.f90->sourcefile~mo_rte_util_array_validation.f90 sourcefile~mo_optical_props.f90 mo_optical_props.F90 sourcefile~mo_rte_sw.f90->sourcefile~mo_optical_props.f90 sourcefile~mo_fluxes.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_fluxes.f90->sourcefile~mo_rte_config.f90 sourcefile~mo_fluxes.f90->sourcefile~mo_rte_util_array_validation.f90 sourcefile~mo_fluxes.f90->sourcefile~mo_optical_props.f90 sourcefile~mo_rte_config.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_rte_util_array_validation.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_optical_props.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_optical_props.f90->sourcefile~mo_rte_config.f90 sourcefile~mo_optical_props.f90->sourcefile~mo_rte_util_array_validation.f90 sourcefile~mo_source_functions.f90 mo_source_functions.F90 sourcefile~mo_source_functions.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_source_functions.f90->sourcefile~mo_optical_props.f90 sourcefile~mo_rte_lw.f90 mo_rte_lw.F90 sourcefile~mo_rte_lw.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_rte_lw.f90->sourcefile~mo_fluxes.f90 sourcefile~mo_rte_lw.f90->sourcefile~mo_rte_config.f90 sourcefile~mo_rte_lw.f90->sourcefile~mo_rte_util_array_validation.f90 sourcefile~mo_rte_lw.f90->sourcefile~mo_optical_props.f90 sourcefile~mo_rte_lw.f90->sourcefile~mo_source_functions.f90 Help × Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules mo_rte_kind Source Code mo_rte_kind.F90 Source Code ! This code is part of Radiative Transfer for Energetics (RTE) ! ! Contacts: Robert Pincus and Eli Mlawer ! email:  rrtmgp@aer.com ! ! Copyright 2015-  Atmospheric and Environmental Research, !    Regents of the University of Colorado, !    Trustees of Columbia University in the City of New York ! All right reserved. ! ! Use and duplication is permitted under the terms of the !    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause ! ------------------------------------------------------------------------------------------------- !> !> ## Provide the Fortran KIND parameters for REAL and INTEGER variables. !>   By default kind parameters come from the ISO C binding and use double precision for working. ! !   If the host model in which RRTGMP is embedded has defined these constants elsewhere !   the model definitions can be used instead by renaming. For example, ! use  mo_model_kind, only wp => dp, ... !   where the syntax is local_name => original_name !   and all the local names need to be defined module mo_rte_kind use , intrinsic :: iso_c_binding , only : c_float , c_double , c_long , c_int , c_bool implicit none public integer , parameter :: dp = c_double , sp = c_float , i8 = c_long , i4 = c_int ! ! Floating point working precision ! #ifdef RTE_USE_SP integer , parameter :: wp = sp #else integer , parameter :: wp = dp #endif ! ! Logical - for use with kernels ! ! Note that c_boolians don't work with PGI compiler currently ! #ifdef RTE_USE_CBOOL integer , parameter :: wl = c_bool #else integer , parameter :: wl = kind (. true .) #endif end module mo_rte_kind","tags":"","loc":"sourcefile/mo_rte_kind.f90.html"},{"title":"mo_source_functions.F90 – RTE-Fortran","text":"This file depends on sourcefile~~mo_source_functions.f90~~EfferentGraph sourcefile~mo_source_functions.f90 mo_source_functions.F90 sourcefile~mo_rte_kind.f90 mo_rte_kind.F90 sourcefile~mo_source_functions.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_optical_props.f90 mo_optical_props.F90 sourcefile~mo_source_functions.f90->sourcefile~mo_optical_props.f90 sourcefile~mo_optical_props.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_rte_config.f90 mo_rte_config.F90 sourcefile~mo_optical_props.f90->sourcefile~mo_rte_config.f90 sourcefile~mo_rte_util_array_validation.f90 mo_rte_util_array_validation.F90 sourcefile~mo_optical_props.f90->sourcefile~mo_rte_util_array_validation.f90 sourcefile~mo_rte_config.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_rte_util_array_validation.f90->sourcefile~mo_rte_kind.f90 Help × Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\n    is dependent upon another if the latter must be compiled before the former\n    can be. Files dependent on this one sourcefile~~mo_source_functions.f90~~AfferentGraph sourcefile~mo_source_functions.f90 mo_source_functions.F90 sourcefile~mo_rte_lw.f90 mo_rte_lw.F90 sourcefile~mo_rte_lw.f90->sourcefile~mo_source_functions.f90 Help × Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules mo_source_functions Source Code mo_source_functions.F90 Source Code ! This code is part of Radiative Transfer for Energetics (RTE) ! ! Contacts: Robert Pincus and Eli Mlawer ! email:  rrtmgp@aer.com ! ! Copyright 2015-  Atmospheric and Environmental Research, !    Regents of the University of Colorado, !    Trustees of Columbia University in the City of New York ! All right reserved. ! ! Use and duplication is permitted under the terms of the !    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause ! ------------------------------------------------------------------------------------------------- ! !> Encapsulate source function arrays for longwave/lw/internal sources !    and shortwave/sw/external source. ! ! ------------------------------------------------------------------------------------------------- module mo_source_functions use mo_rte_kind , only : wp use mo_optical_props , only : ty_optical_props implicit none private ! ------------------------------------------------------------------------------------------------- ! !> Type representing Planck source functions in W/m&#94;2 !>   computed at layer center, at layer edges using !>   spectral mapping in each direction separately, and at the surface !> type , extends ( ty_optical_props ), public :: ty_source_func_lw real ( wp ), allocatable , dimension (:,:,:) :: lay_source !! Planck source at layer average temperature (ncol, nlay, ngpt) real ( wp ), allocatable , dimension (:,:,:) :: lev_source_inc !! Planck source at layer edge in increasing ilay direction (ncol, nlay+1, ngpt) real ( wp ), allocatable , dimension (:,:,:) :: lev_source_dec !! Planck source at layer edge in decreasing ilay direction (ncol, nlay+1, ngpt) real ( wp ), allocatable , dimension (:,: ) :: sfc_source !! Planck function at surface temperature real ( wp ), allocatable , dimension (:,: ) :: sfc_source_Jac !! surface source Jacobian contains generic , public :: alloc => alloc_lw , copy_and_alloc_lw procedure , private :: alloc_lw procedure , private :: copy_and_alloc_lw procedure , public :: is_allocated => is_allocated_lw procedure , public :: finalize => finalize_lw procedure , public :: get_subset => get_subset_range_lw procedure , public :: get_ncol => get_ncol_lw procedure , public :: get_nlay => get_nlay_lw ! validate? end type ty_source_func_lw ! ------------------------------------------------------------------------------------------------- ! ! Type for shortave sources: top-of-domain spectrally-resolved flux !   The type isn't used at this time, so it's declared as private. ! type , extends ( ty_optical_props ), private :: ty_source_func_sw real ( wp ), allocatable , dimension (:,: ) :: toa_source contains generic , public :: alloc => alloc_sw , copy_and_alloc_sw procedure , private :: alloc_sw procedure , private :: copy_and_alloc_sw procedure , public :: is_allocated => is_allocated_sw procedure , public :: finalize => finalize_sw procedure , public :: get_subset => get_subset_range_sw procedure , public :: get_ncol => get_ncol_sw ! validate? end type ty_source_func_sw ! ------------------------------------------------------------------------------------------------- contains ! ------------------------------------------------------------------------------------------ ! !  Routines for initialization, validity checking, finalization ! ! ------------------------------------------------------------------------------------------ ! ! Longwave ! ! ------------------------------------------------------------------------------------------ pure function is_allocated_lw ( this ) class ( ty_source_func_lw ), intent ( in ) :: this logical :: is_allocated_lw is_allocated_lw = this % is_initialized () . and . & allocated ( this % sfc_source ) end function is_allocated_lw ! -------------------------------------------------------------- function alloc_lw ( this , ncol , nlay ) result ( err_message ) class ( ty_source_func_lw ), intent ( inout ) :: this integer , intent ( in ) :: ncol , nlay character ( len = 128 ) :: err_message integer :: ngpt err_message = \"\" if (. not . this % is_initialized ()) & err_message = \"source_func_lw%alloc: not initialized so can't allocate\" if ( any ([ ncol , nlay ] <= 0 )) & err_message = \"source_func_lw%alloc: must provide positive extents for ncol, nlay\" if ( err_message /= \"\" ) return if ( allocated ( this % sfc_source )) deallocate ( this % sfc_source ) if ( allocated ( this % sfc_source_Jac )) deallocate ( this % sfc_source_Jac ) if ( allocated ( this % lay_source )) deallocate ( this % lay_source ) if ( allocated ( this % lev_source_inc )) deallocate ( this % lev_source_inc ) if ( allocated ( this % lev_source_dec )) deallocate ( this % lev_source_dec ) ngpt = this % get_ngpt () allocate ( this % sfc_source ( ncol , ngpt ), this % lay_source ( ncol , nlay , ngpt ), & this % lev_source_inc ( ncol , nlay , ngpt ), this % lev_source_dec ( ncol , nlay , ngpt )) allocate ( this % sfc_source_Jac ( ncol , ngpt )) end function alloc_lw ! -------------------------------------------------------------- function copy_and_alloc_lw ( this , ncol , nlay , spectral_desc ) result ( err_message ) class ( ty_source_func_lw ), intent ( inout ) :: this integer , intent ( in ) :: ncol , nlay class ( ty_optical_props ), intent ( in ) :: spectral_desc character ( len = 128 ) :: err_message err_message = \"\" if (. not . spectral_desc % is_initialized ()) then err_message = \"source_func_lw%alloc: spectral_desc not initialized\" return end if call this % finalize () err_message = this % init ( spectral_desc ) if ( err_message /= \"\" ) return err_message = this % alloc ( ncol , nlay ) end function copy_and_alloc_lw ! ------------------------------------------------------------------------------------------ ! ! Shortwave ! ! ------------------------------------------------------------------------------------------ pure function is_allocated_sw ( this ) class ( ty_source_func_sw ), intent ( in ) :: this logical :: is_allocated_sw is_allocated_sw = this % ty_optical_props % is_initialized () . and . & allocated ( this % toa_source ) end function is_allocated_sw ! -------------------------------------------------------------- function alloc_sw ( this , ncol ) result ( err_message ) class ( ty_source_func_sw ), intent ( inout ) :: this integer , intent ( in ) :: ncol character ( len = 128 ) :: err_message err_message = \"\" if (. not . this % is_initialized ()) & err_message = \"source_func_sw%alloc: not initialized so can't allocate\" if ( ncol <= 0 ) & err_message = \"source_func_sw%alloc: must provide positive extents for ncol\" if ( err_message /= \"\" ) return if ( allocated ( this % toa_source )) deallocate ( this % toa_source ) allocate ( this % toa_source ( ncol , this % get_ngpt ())) end function alloc_sw ! -------------------------------------------------------------- function copy_and_alloc_sw ( this , ncol , spectral_desc ) result ( err_message ) class ( ty_source_func_sw ), intent ( inout ) :: this integer , intent ( in ) :: ncol class ( ty_optical_props ), intent ( in ) :: spectral_desc character ( len = 128 ) :: err_message err_message = \"\" if (. not . spectral_desc % is_initialized ()) then err_message = \"source_func_sw%alloc: spectral_desc not initialized\" return end if err_message = this % init ( spectral_desc ) if ( err_message /= \"\" ) return err_message = this % alloc ( ncol ) end function copy_and_alloc_sw ! ------------------------------------------------------------------------------------------ ! ! Finalization (memory deallocation) ! ! ------------------------------------------------------------------------------------------ subroutine finalize_lw ( this ) class ( ty_source_func_lw ), intent ( inout ) :: this if ( allocated ( this % lay_source )) deallocate ( this % lay_source ) if ( allocated ( this % lev_source_inc )) deallocate ( this % lev_source_inc ) if ( allocated ( this % lev_source_dec )) deallocate ( this % lev_source_dec ) if ( allocated ( this % sfc_source )) deallocate ( this % sfc_source ) if ( allocated ( this % sfc_source_Jac )) deallocate ( this % sfc_source_Jac ) call this % ty_optical_props % finalize () end subroutine finalize_lw ! -------------------------------------------------------------- subroutine finalize_sw ( this ) class ( ty_source_func_sw ), intent ( inout ) :: this if ( allocated ( this % toa_source )) deallocate ( this % toa_source ) call this % ty_optical_props % finalize () end subroutine finalize_sw ! ------------------------------------------------------------------------------------------ ! !  Routines for finding the problem size ! ! ------------------------------------------------------------------------------------------ pure function get_ncol_lw ( this ) class ( ty_source_func_lw ), intent ( in ) :: this integer :: get_ncol_lw if ( this % is_allocated ()) then get_ncol_lw = size ( this % lay_source , 1 ) else get_ncol_lw = 0 end if end function get_ncol_lw ! -------------------------------------------------------------- pure function get_nlay_lw ( this ) class ( ty_source_func_lw ), intent ( in ) :: this integer :: get_nlay_lw if ( this % is_allocated ()) then get_nlay_lw = size ( this % lay_source , 2 ) else get_nlay_lw = 0 end if end function get_nlay_lw ! -------------------------------------------------------------- pure function get_ncol_sw ( this ) class ( ty_source_func_sw ), intent ( in ) :: this integer :: get_ncol_sw if ( this % is_allocated ()) then get_ncol_sw = size ( this % toa_source , 1 ) else get_ncol_sw = 0 end if end function get_ncol_sw ! ------------------------------------------------------------------------------------------ ! !  Routines for subsetting ! ! ------------------------------------------------------------------------------------------ function get_subset_range_lw ( full , start , n , subset ) result ( err_message ) class ( ty_source_func_lw ), intent ( inout ) :: full integer , intent ( in ) :: start , n class ( ty_source_func_lw ), intent ( inout ) :: subset character ( 128 ) :: err_message err_message = \"\" if (. not . full % is_allocated ()) then err_message = \"source_func_lw%subset: Asking for a subset of unallocated data\" return end if if ( start < 1 . or . start + n - 1 > full % get_ncol ()) & err_message = \"optical_props%subset: Asking for columns outside range\" if ( err_message /= \"\" ) return ! ! Could check to see if subset is correctly sized, has consistent spectral discretization ! if ( subset % is_allocated ()) call subset % finalize () err_message = subset % alloc ( n , full % get_nlay (), full ) if ( err_message /= \"\" ) return subset % sfc_source ( 1 : n , :) = full % sfc_source ( start : start + n - 1 , :) subset % sfc_source_Jac ( 1 : n , :) = full % sfc_source_Jac ( start : start + n - 1 , :) subset % lay_source ( 1 : n ,:,:) = full % lay_source ( start : start + n - 1 ,:,:) subset % lev_source_inc ( 1 : n ,:,:) = full % lev_source_inc ( start : start + n - 1 ,:,:) subset % lev_source_dec ( 1 : n ,:,:) = full % lev_source_dec ( start : start + n - 1 ,:,:) end function get_subset_range_lw ! ------------------------------------------------------------------------------------------ function get_subset_range_sw ( full , start , n , subset ) result ( err_message ) class ( ty_source_func_sw ), intent ( inout ) :: full integer , intent ( in ) :: start , n class ( ty_source_func_sw ), intent ( inout ) :: subset character ( 128 ) :: err_message err_message = \"\" if (. not . full % is_allocated ()) then err_message = \"source_func_sw%subset: Asking for a subset of unallocated data\" return end if if ( start < 1 . or . start + n - 1 > full % get_ncol ()) & err_message = \"optical_props%subset: Asking for columns outside range\" if ( err_message /= \"\" ) return ! ! Could check to see if subset is correctly sized, has consistent spectral discretization ! if ( subset % is_allocated ()) call subset % finalize () ! Seems like I should be able to call \"alloc\" generically but the compilers are complaining err_message = subset % copy_and_alloc_sw ( n , full ) subset % toa_source ( 1 : n , :) = full % toa_source ( start : start + n - 1 , :) end function get_subset_range_sw end module mo_source_functions","tags":"","loc":"sourcefile/mo_source_functions.f90.html"},{"title":"mo_rte_config.F90 – RTE-Fortran","text":"This file depends on sourcefile~~mo_rte_config.f90~~EfferentGraph sourcefile~mo_rte_config.f90 mo_rte_config.F90 sourcefile~mo_rte_kind.f90 mo_rte_kind.F90 sourcefile~mo_rte_config.f90->sourcefile~mo_rte_kind.f90 Help × Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\n    is dependent upon another if the latter must be compiled before the former\n    can be. Files dependent on this one sourcefile~~mo_rte_config.f90~~AfferentGraph sourcefile~mo_rte_config.f90 mo_rte_config.F90 sourcefile~mo_rte_sw.f90 mo_rte_sw.F90 sourcefile~mo_rte_sw.f90->sourcefile~mo_rte_config.f90 sourcefile~mo_fluxes.f90 mo_fluxes.F90 sourcefile~mo_rte_sw.f90->sourcefile~mo_fluxes.f90 sourcefile~mo_optical_props.f90 mo_optical_props.F90 sourcefile~mo_rte_sw.f90->sourcefile~mo_optical_props.f90 sourcefile~mo_fluxes.f90->sourcefile~mo_rte_config.f90 sourcefile~mo_fluxes.f90->sourcefile~mo_optical_props.f90 sourcefile~mo_rte_lw.f90 mo_rte_lw.F90 sourcefile~mo_rte_lw.f90->sourcefile~mo_rte_config.f90 sourcefile~mo_rte_lw.f90->sourcefile~mo_fluxes.f90 sourcefile~mo_rte_lw.f90->sourcefile~mo_optical_props.f90 sourcefile~mo_source_functions.f90 mo_source_functions.F90 sourcefile~mo_rte_lw.f90->sourcefile~mo_source_functions.f90 sourcefile~mo_optical_props.f90->sourcefile~mo_rte_config.f90 sourcefile~mo_source_functions.f90->sourcefile~mo_optical_props.f90 Help × Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules mo_rte_config Source Code mo_rte_config.F90 Source Code ! This code is part of RRTM for GCM Applications - Parallel (RRTMGP) ! ! Contacts: Robert Pincus and Eli Mlawer ! email:  rrtmgp@aer.com ! ! Copyright 2020-  Atmospheric and Environmental Research, !    Regents of the University of Colorado, !    Trustees of Columbia University in the City of New York ! All right reserved. ! ! Use and duplication is permitted under the terms of the !    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause !> ------------------------------------------------------------------------------------------------- !> !> ## Control input sanitization in Fortan front-end !>   Provides public access to two proteced module variables !> !> ------------------------------------------------------------------------------------------------- module mo_rte_config use mo_rte_kind , only : wl implicit none private logical ( wl ), protected , public :: check_extents = . true . logical ( wl ), protected , public :: check_values = . true . !> Specify checking of extents and values individually, or all checks together interface rte_config_checks module procedure rte_config_checks_each , rte_config_checks_all end interface public :: rte_config_checks contains ! -------------------------------------------------------------- !> Do extents and/or values checks within RTE+RRTMGP Fortran classes subroutine rte_config_checks_each ( extents , values ) logical ( wl ), intent ( in ) :: extents , values check_extents = extents check_values = values end subroutine rte_config_checks_each ! -------------------------------------------------------------- !> Do all checks within RTE+RRTMGP Fortran classes subroutine rte_config_checks_all ( do_checks ) logical ( wl ), intent ( in ) :: do_checks check_extents = do_checks check_values = do_checks end subroutine rte_config_checks_all ! -------------------------------------------------------------- end module mo_rte_config","tags":"","loc":"sourcefile/mo_rte_config.f90.html"},{"title":"mo_rte_lw.F90 – RTE-Fortran","text":"This file depends on sourcefile~~mo_rte_lw.f90~~EfferentGraph sourcefile~mo_rte_lw.f90 mo_rte_lw.F90 sourcefile~mo_rte_kind.f90 mo_rte_kind.F90 sourcefile~mo_rte_lw.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_rte_config.f90 mo_rte_config.F90 sourcefile~mo_rte_lw.f90->sourcefile~mo_rte_config.f90 sourcefile~mo_rte_util_array_validation.f90 mo_rte_util_array_validation.F90 sourcefile~mo_rte_lw.f90->sourcefile~mo_rte_util_array_validation.f90 sourcefile~mo_source_functions.f90 mo_source_functions.F90 sourcefile~mo_rte_lw.f90->sourcefile~mo_source_functions.f90 sourcefile~mo_optical_props.f90 mo_optical_props.F90 sourcefile~mo_rte_lw.f90->sourcefile~mo_optical_props.f90 sourcefile~mo_fluxes.f90 mo_fluxes.F90 sourcefile~mo_rte_lw.f90->sourcefile~mo_fluxes.f90 sourcefile~mo_rte_config.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_rte_util_array_validation.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_source_functions.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_source_functions.f90->sourcefile~mo_optical_props.f90 sourcefile~mo_optical_props.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_optical_props.f90->sourcefile~mo_rte_config.f90 sourcefile~mo_optical_props.f90->sourcefile~mo_rte_util_array_validation.f90 sourcefile~mo_fluxes.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_fluxes.f90->sourcefile~mo_rte_config.f90 sourcefile~mo_fluxes.f90->sourcefile~mo_rte_util_array_validation.f90 sourcefile~mo_fluxes.f90->sourcefile~mo_optical_props.f90 Help × Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules mo_rte_lw Source Code mo_rte_lw.F90 Source Code ! This code is part of Radiative Transfer for Energetics (RTE) ! ! Contacts: Robert Pincus and Eli Mlawer ! email:  rrtmgp@aer.com ! ! Copyright 2015-  Atmospheric and Environmental Research, !    Regents of the University of Colorado, !    Trustees of Columbia University in the City of New York ! All right reserved. ! ! Use and duplication is permitted under the terms of the !    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause ! ------------------------------------------------------------------------------------------------- ! !> Compute longwave radiative fluxes !> !>  Contains a single routine to compute direct and diffuse fluxes of solar radiation given !> !> - atmospheric optical properties, spectrally-resolved via one of the sub-classes of !>     [[mo_optical_props(module):ty_optical_props_arry(type)]] in module [[mo_optical_props]] !      (ty_optical_props_arry in module mo_optical_props) !> - information about vertical ordering !> - internal Planck source functions, defined per g-point on the same spectral grid at the atmosphere, !>     via [[mo_source_functions(module):ty_source_func_lw(type)]] in module [[mo_source_functions]] !      (ty_source_func_lw in module mo_source_functions) !> -  boundary conditions: surface emissivity defined per band !> -  optionally, a boundary condition for incident diffuse radiation !> -  optionally, an integer number of angles at which to do Gaussian quadrature if scattering is neglected !> !> If optical properties are supplied via class ty_optical_props_1scl (absorption optical thickenss only) !>    ([[mo_optical_props(module):ty_optical_props_1scl(type)]] in module [[mo_optical_props]]) !>    then an emission/absorption solver is called. !>    If optical properties are supplied via class ty_optical_props_2str !>    ([[mo_optical_props(module):ty_optical_props_2str(type)]] in module [[mo_optical_props]]) !>    fluxes are computed via a rescaling by default or, optionally, using two-stream calculations and adding. !> !> Users must ensure that emissivity is on the same spectral grid as the optical properties. !> !> Final output is via user-extensible ty_fluxes !> ([[mo_fluxes(module):ty_fluxes(type)]] in module [[mo_fluxes]]) !> which must reduce the detailed spectral fluxes to whatever summary the user needs ! !> The routine does error checking and choses which lower-level kernel to invoke based on !>   what kinds of optical properties are supplied ! ! ------------------------------------------------------------------------------------------------- module mo_rte_lw use mo_rte_kind , only : wp , wl use mo_rte_config , only : check_extents , check_values use mo_rte_util_array , only : zero_array use mo_rte_util_array_validation , & only : any_vals_less_than , any_vals_outside , extents_are use mo_optical_props , only : ty_optical_props , & ty_optical_props_arry , ty_optical_props_1scl , ty_optical_props_2str , ty_optical_props_nstr use mo_source_functions , & only : ty_source_func_lw use mo_fluxes , only : ty_fluxes , ty_fluxes_broadband use mo_rte_solver_kernels , & only : lw_solver_noscat , lw_solver_2stream implicit none private public :: rte_lw contains ! -------------------------------------------------- ! ! Interface using only optical properties and source functions as inputs; fluxes as outputs. ! ! -------------------------------------------------- function rte_lw ( optical_props , top_at_1 , & sources , sfc_emis , & fluxes , & inc_flux , n_gauss_angles , use_2stream , & lw_Ds , flux_up_Jac ) result ( error_msg ) class ( ty_optical_props_arry ), intent ( in ) :: optical_props !! Set of optical properties as one or more arrays logical , intent ( in ) :: top_at_1 !! Is the top of the domain at index 1? (if not, ordering is bottom-to-top) type ( ty_source_func_lw ), intent ( in ) :: sources !! Derived type with Planck source functions real ( wp ), dimension (:,:), intent ( in ) :: sfc_emis !! emissivity at surface [] (nband, ncol) class ( ty_fluxes ), intent ( inout ) :: fluxes !! Dervied type for computing spectral integrals from g-point fluxes. !! Default computes broadband fluxes at all levels if output arrays are defined. Can be extended per user desires. real ( wp ), dimension (:,:), & target , optional , intent ( in ) :: inc_flux !! incident flux at domain top [W/m2] (ncol, ngpts) integer , optional , intent ( in ) :: n_gauss_angles !! Number of angles used in Gaussian quadrature (max 3, no-scattering solution) logical , optional , intent ( in ) :: use_2stream !! When 2-stream parameters (tau/ssa/g) are provided, use 2-stream methods !! Default is to use re-scaled longwave transport real ( wp ), dimension (:,:), & optional , intent ( in ) :: lw_Ds !! User-specifed 1/cos of transport angle per col, g-point real ( wp ), dimension (:,:), target , & optional , intent ( inout ) :: flux_up_Jac !! surface temperature flux  Jacobian [W/m2/K] (ncol, nlay+1) character ( len = 128 ) :: error_msg !! If empty, calculation was successful ! -------------------------------- ! ! Local variables ! integer :: ncol , nlay , ngpt , nband integer :: icol , ilev , igpt , imu integer :: n_quad_angs logical ( wl ) :: using_2stream , do_Jacobians , do_broadband real ( wp ), dimension (:,:), allocatable :: sfc_emis_gpt real ( wp ), dimension (:,:,:), allocatable :: secants real ( wp ), dimension (:,:), pointer :: jacobian real ( wp ), dimension ( optical_props % get_ncol (), & optical_props % get_nlay () + 1 ), target & :: decoy2D ! Used for optional outputs - needs to be full size. ! Memory needs to be allocated for the full g-point fluxes even if they aren't !    used later because a) the GPU kernels use this memory to work in parallel and !    b) the fluxes are intent(out) in the solvers ! Shortwave solver takes a different approach since three fields are needed real ( wp ), dimension ( optical_props % get_ncol (), & optical_props % get_nlay () + 1 , & optical_props % get_ngpt ()) & :: gpt_flux_up , gpt_flux_dn real ( wp ), dimension (:,:), pointer :: flux_dn_loc , flux_up_loc real ( wp ), dimension (:,:), pointer :: inc_flux_diffuse ! -------------------------------------------------- ! ! Weights and angle secants for first order (k=1) Gaussian quadrature. !   Values from Table 2, Clough et al, 1992, doi:10.1029/92JD01419 !   after Abramowitz & Stegun 1972, page 921 ! integer , parameter :: max_gauss_pts = 4 real ( wp ), parameter , & dimension ( max_gauss_pts , max_gauss_pts ) :: & gauss_Ds = RESHAPE ([ 1.66_wp , 0._wp , 0._wp , 0._wp , & ! Diffusivity angle, not Gaussian angle 1.18350343_wp , 2.81649655_wp , 0._wp , 0._wp , & 1.09719858_wp , 1.69338507_wp , 4.70941630_wp , 0._wp , & 1.06056257_wp , 1.38282560_wp , 2.40148179_wp , 7.15513024_wp ], & [ max_gauss_pts , max_gauss_pts ]), & gauss_wts = RESHAPE ([ 0.5_wp , 0._wp , 0._wp , 0._wp , & 0.3180413817_wp , 0.1819586183_wp , 0._wp , 0._wp , & 0.2009319137_wp , 0.2292411064_wp , 0.0698269799_wp , 0._wp , & 0.1355069134_wp , 0.2034645680_wp , 0.1298475476_wp , 0.0311809710_wp ], & [ max_gauss_pts , max_gauss_pts ]) ! ------------------------------------------------------------------------------------ ncol = optical_props % get_ncol () nlay = optical_props % get_nlay () ngpt = optical_props % get_ngpt () nband = optical_props % get_nband () do_Jacobians = present ( flux_up_Jac ) error_msg = \"\" ! ------------------------------------------------------------------------------------ ! ! Error checking -- input consistency of sizes and validity of values if (. not . fluxes % are_desired ()) & error_msg = \"rte_lw: no space allocated for fluxes\" if ( do_Jacobians . and . check_extents ) then if ( . not . extents_are ( flux_up_Jac , ncol , nlay + 1 )) & error_msg = \"rte_lw: flux Jacobian inconsistently sized\" endif if ( check_extents ) then ! ! Source functions ! if ( any ([ sources % get_ncol (), sources % get_nlay (), sources % get_ngpt ()] /= [ ncol , nlay , ngpt ])) & error_msg = \"rte_lw: sources and optical properties inconsistently sized\" ! ! Surface emissivity ! if (. not . extents_are ( sfc_emis , nband , ncol )) & error_msg = \"rte_lw: sfc_emis inconsistently sized\" ! ! Incident flux, if present ! if ( present ( inc_flux )) then if (. not . extents_are ( inc_flux , ncol , ngpt )) & error_msg = \"rte_lw: inc_flux inconsistently sized\" end if if ( present ( lw_Ds )) then if (. not . extents_are ( lw_Ds , ncol , ngpt )) & error_msg = \"rte_lw: lw_Ds inconsistently sized\" end if end if if ( check_values ) then if ( any_vals_outside ( sfc_emis , 0._wp , 1._wp )) & error_msg = \"rte_lw: sfc_emis has values < 0 or > 1\" if ( present ( inc_flux )) then if ( any_vals_less_than ( inc_flux , 0._wp )) & error_msg = \"rte_lw: inc_flux has values < 0\" end if if ( present ( lw_Ds )) then if ( any_vals_less_than ( lw_Ds , 1._wp )) & error_msg = \"rte_lw: one or more values of lw_Ds < 1.\" end if if ( present ( n_gauss_angles )) then if ( n_gauss_angles > max_gauss_pts ) & error_msg = \"rte_lw: asking for too many quadrature points for no-scattering calculation\" if ( n_gauss_angles < 1 ) & error_msg = \"rte_lw: have to ask for at least one quadrature point for no-scattering calculation\" end if end if if ( len_trim ( error_msg ) > 0 ) return ! ! Number of quadrature points for no-scattering calculation ! n_quad_angs = 1 if ( present ( n_gauss_angles )) n_quad_angs = n_gauss_angles ! ! Optionally - use 2-stream methods when low-order scattering properties are provided? ! using_2stream = . false . if ( present ( use_2stream )) using_2stream = use_2stream ! ! Checking that optional arguments are consistent with one another and with optical properties ! select type ( optical_props ) class is ( ty_optical_props_1scl ) if ( using_2stream ) & error_msg = \"rte_lw: can't use two-stream methods with only absorption optical depth\" if ( present ( lw_Ds ) . and . n_quad_angs /= 1 ) & error_msg = \"rte_lw: providing lw_Ds incompatible with specifying n_gauss_angles\" class is ( ty_optical_props_2str ) if ( present ( lw_Ds )) & error_msg = \"rte_lw: lw_Ds not valid when providing scattering optical properties\" if ( using_2stream . and . n_quad_angs /= 1 ) & error_msg = \"rte_lw: using_2stream=true incompatible with specifying n_gauss_angles\" if ( using_2stream . and . do_Jacobians ) & error_msg = \"rte_lw: can't provide Jacobian of fluxes w.r.t surface temperature with 2-stream\" class default error_msg = \"rte_lw: lw_solver(...ty_optical_props_nstr...) not yet implemented\" end select if ( len_trim ( error_msg ) > 0 ) then if ( len_trim ( optical_props % get_name ()) > 0 ) & error_msg = trim ( optical_props % get_name ()) // ': ' // trim ( error_msg ) return end if ! ------------------------------------------------------------------------------------ !  Boundary conditions !    Lower boundary condition -- expand surface emissivity by band to gpoints ! allocate ( sfc_emis_gpt ( ncol , ngpt )) !   Upper boundary condition -  use values in optional arg or be set to 0 ! if ( present ( inc_flux )) then inc_flux_diffuse => inc_flux !$acc        enter data copyin(   inc_flux_diffuse) !$omp target enter data map(to:   inc_flux_diffuse) else allocate ( inc_flux_diffuse ( ncol , ngpt )) !$acc        enter data create(   inc_flux_diffuse) !$omp target enter data map(alloc:inc_flux_diffuse) call zero_array ( ncol , ngpt , inc_flux_diffuse ) end if ! ------------------------------------------------------------------------------------ if ( do_Jacobians ) then jacobian => flux_up_Jac else jacobian => decoy2D end if select type ( fluxes ) ! ! Broadband fluxes are treated as a special case within the solvers; memory !   for both up and down fluxes needs to be available even if the user doesn't !   want one of them ! type is ( ty_fluxes_broadband ) do_broadband = . true . _ wl ! ! Broadband fluxes class has three possible outputs; allocate memory for local use !   if one or more haven't been requested ! if ( associated ( fluxes % flux_up )) then flux_up_loc => fluxes % flux_up else allocate ( flux_up_loc ( ncol , nlay + 1 )) end if if ( associated ( fluxes % flux_dn )) then flux_dn_loc => fluxes % flux_dn else allocate ( flux_dn_loc ( ncol , nlay + 1 )) end if !$acc        enter data create(   flux_up_loc, flux_dn_loc) !$omp target enter data map(alloc:flux_up_loc, flux_dn_loc) class default ! ! If broadband integrals aren't being computed, allocate working space !   and decoy addresses for spectrally-integrated fields ! do_broadband = . false . _ wl flux_up_loc => decoy2D flux_dn_loc => decoy2D end select ! ! Compute the radiative transfer... ! !$acc        data create(   sfc_emis_gpt, flux_up_loc, flux_dn_loc, gpt_flux_up, gpt_flux_dn) !$omp target data map(alloc:sfc_emis_gpt, flux_up_loc, flux_dn_loc, gpt_flux_up, gpt_flux_dn) call expand_and_transpose ( optical_props , sfc_emis , sfc_emis_gpt ) if ( check_values ) error_msg = optical_props % validate () if ( len_trim ( error_msg ) == 0 ) then ! Can't do an early return within OpenACC/MP data regions select type ( optical_props ) class is ( ty_optical_props_1scl ) ! ! No scattering two-stream calculation ! ! ! Secant of radiation angle - either user-supplied, one per g-point, or !   taken from first-order Gaussian quadrate and applied to all columns a g-points ! allocate ( secants ( ncol , ngpt , n_quad_angs )) !$acc        data create(   secants) !$omp target data map(alloc:secants) if ( present ( lw_Ds )) then !$acc                         parallel loop    collapse(2) copyin(lw_Ds) !$omp target teams distribute parallel do simd collapse(2) ! nmu is 1 do igpt = 1 , ngpt do icol = 1 , ncol secants ( icol , igpt , 1 ) = lw_Ds ( icol , igpt ) end do end do else ! !   Is there an alternative to making ncol x ngpt copies of each value? ! !$acc                         parallel loop    collapse(3) !$omp target teams distribute parallel do simd collapse(3) do imu = 1 , n_quad_angs do igpt = 1 , ngpt do icol = 1 , ncol secants ( icol , igpt , imu ) = gauss_Ds ( imu , n_quad_angs ) end do end do end do end if call lw_solver_noscat ( ncol , nlay , ngpt , & logical ( top_at_1 , wl ), n_quad_angs , & secants , gauss_wts ( 1 : n_quad_angs , n_quad_angs ), & optical_props % tau , & sources % lay_source , sources % lev_source_inc , & sources % lev_source_dec , & sfc_emis_gpt , sources % sfc_source , & inc_flux_diffuse , & gpt_flux_up , gpt_flux_dn , & do_broadband , flux_up_loc , flux_dn_loc , & logical ( do_Jacobians , wl ), sources % sfc_source_Jac , jacobian , & logical (. false ., wl ), optical_props % tau , optical_props % tau ) ! The last two arguments won't be used since the ! third-to-last is .false. but need valid addresses !$acc        end data !$omp end target data class is ( ty_optical_props_2str ) if ( using_2stream ) then ! ! two-stream calculation with scattering ! call lw_solver_2stream ( ncol , nlay , ngpt , logical ( top_at_1 , wl ), & optical_props % tau , optical_props % ssa , optical_props % g , & sources % lay_source , sources % lev_source_inc , sources % lev_source_dec , & sfc_emis_gpt , sources % sfc_source , & inc_flux_diffuse , & gpt_flux_up , gpt_flux_dn ) else allocate ( secants ( ncol , ngpt , n_quad_angs )) !$acc        data create(   secants) !$omp target data map(alloc:secants) !$acc                         parallel loop    collapse(3) !$omp target teams distribute parallel do simd collapse(3) do imu = 1 , n_quad_angs do igpt = 1 , ngpt do icol = 1 , ncol secants ( icol , igpt , imu ) = gauss_Ds ( imu , n_quad_angs ) end do end do end do ! ! Re-scaled solution to account for scattering ! call lw_solver_noscat ( ncol , nlay , ngpt , & logical ( top_at_1 , wl ), n_quad_angs , & secants , gauss_wts ( 1 : n_quad_angs , n_quad_angs ), & optical_props % tau , & sources % lay_source , sources % lev_source_inc , & sources % lev_source_dec , & sfc_emis_gpt , sources % sfc_source , & inc_flux_diffuse , & gpt_flux_up , gpt_flux_dn , & do_broadband , flux_up_loc , flux_dn_loc , & logical ( do_Jacobians , wl ), sources % sfc_source_Jac , jacobian , & logical (. true ., wl ), optical_props % ssa , optical_props % g ) !$acc        end data !$omp end target data endif class is ( ty_optical_props_nstr ) ! ! n-stream calculation ! error_msg = 'lw_solver(...ty_optical_props_nstr...) not yet implemented' end select select type ( fluxes ) ! ! Tidy up memory for broadband fluxes on GPUs ! type is ( ty_fluxes_broadband ) if ( associated ( fluxes % flux_net )) then ! ! FIXME: Do we need the create/copyout here? ! !$acc parallel loop    collapse(2) copyin(fluxes) copyout( fluxes%flux_net) !$omp target teams distribute parallel do simd collapse(2) map(from:fluxes%flux_net) do ilev = 1 , nlay + 1 do icol = 1 , ncol fluxes % flux_net ( icol , ilev ) = flux_dn_loc ( icol , ilev ) - flux_up_loc ( icol , ilev ) end do end do end if class default ! ! ...or reduce spectral fluxes to desired output quantities ! error_msg = fluxes % reduce ( gpt_flux_up , gpt_flux_dn , optical_props , top_at_1 ) end select end if ! no error message from validation !$acc        end data !$omp end target data if (. not . present ( inc_flux )) then !$acc        exit data delete(     inc_flux_diffuse) !$omp target exit data map(release:inc_flux_diffuse) deallocate ( inc_flux_diffuse ) end if select type ( fluxes ) type is ( ty_fluxes_broadband ) !$acc        exit data copyout( flux_up_loc, flux_dn_loc) !$omp target exit data map(from:flux_up_loc, flux_dn_loc) if (. not . associated ( flux_up_loc , fluxes % flux_up )) deallocate ( flux_up_loc ) if (. not . associated ( flux_dn_loc , fluxes % flux_dn )) deallocate ( flux_dn_loc ) end select end function rte_lw !-------------------------------------------------------------------------------------------------------------------- ! ! Expand from band to g-point dimension, transpose dimensions (nband, ncol) -> (ncol,ngpt) ! subroutine expand_and_transpose ( ops , arr_in , arr_out ) class ( ty_optical_props ), intent ( in ) :: ops real ( wp ), dimension (:,:), intent ( in ) :: arr_in ! (nband, ncol) real ( wp ), dimension (:,:), intent ( out ) :: arr_out ! (ncol, igpt) ! ------------- integer :: ncol , nband , ngpt integer :: icol , iband , igpt integer , dimension ( 2 , ops % get_nband ()) :: limits ncol = size ( arr_in , 2 ) nband = ops % get_nband () ngpt = ops % get_ngpt () limits = ops % get_band_lims_gpoint () !$acc                         parallel loop    collapse(2) copyin(arr_in, limits) !$omp target teams distribute parallel do simd collapse(2) map(to:arr_in, limits) do iband = 1 , nband do icol = 1 , ncol do igpt = limits ( 1 , iband ), limits ( 2 , iband ) arr_out ( icol , igpt ) = arr_in ( iband , icol ) end do end do end do end subroutine expand_and_transpose !-------------------------------------------------------------------------------------------------------------------- end module mo_rte_lw","tags":"","loc":"sourcefile/mo_rte_lw.f90.html"},{"title":"mo_optical_props.F90 – RTE-Fortran","text":"This file depends on sourcefile~~mo_optical_props.f90~~EfferentGraph sourcefile~mo_optical_props.f90 mo_optical_props.F90 sourcefile~mo_rte_kind.f90 mo_rte_kind.F90 sourcefile~mo_optical_props.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_rte_config.f90 mo_rte_config.F90 sourcefile~mo_optical_props.f90->sourcefile~mo_rte_config.f90 sourcefile~mo_rte_util_array_validation.f90 mo_rte_util_array_validation.F90 sourcefile~mo_optical_props.f90->sourcefile~mo_rte_util_array_validation.f90 sourcefile~mo_rte_config.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_rte_util_array_validation.f90->sourcefile~mo_rte_kind.f90 Help × Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\n    is dependent upon another if the latter must be compiled before the former\n    can be. Files dependent on this one sourcefile~~mo_optical_props.f90~~AfferentGraph sourcefile~mo_optical_props.f90 mo_optical_props.F90 sourcefile~mo_rte_sw.f90 mo_rte_sw.F90 sourcefile~mo_rte_sw.f90->sourcefile~mo_optical_props.f90 sourcefile~mo_fluxes.f90 mo_fluxes.F90 sourcefile~mo_rte_sw.f90->sourcefile~mo_fluxes.f90 sourcefile~mo_fluxes.f90->sourcefile~mo_optical_props.f90 sourcefile~mo_source_functions.f90 mo_source_functions.F90 sourcefile~mo_source_functions.f90->sourcefile~mo_optical_props.f90 sourcefile~mo_rte_lw.f90 mo_rte_lw.F90 sourcefile~mo_rte_lw.f90->sourcefile~mo_optical_props.f90 sourcefile~mo_rte_lw.f90->sourcefile~mo_fluxes.f90 sourcefile~mo_rte_lw.f90->sourcefile~mo_source_functions.f90 Help × Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules mo_optical_props Source Code mo_optical_props.F90 Source Code ! This code is part of Radiative Transfer for Energetics (RTE) ! ! Contacts: Robert Pincus and Eli Mlawer ! email:  rrtmgp@aer.com ! ! Copyright 2015-  Atmospheric and Environmental Research, !    Regents of the University of Colorado, !    Trustees of Columbia University in the City of New York ! All right reserved. ! ! Use and duplication is permitted under the terms of the !    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause ! ------------------------------------------------------------------------------------------------- !> !> ## Encapsulate optical properties defined on a spectral grid of N bands. !> !>   The bands are described by their limiting wavenumbers. They need not be contiguous or complete. !>   A band may contain more than one spectral sub-point (g-point) in which case a mapping must be supplied. !>   A name may be provided and will be prepended to error messages. !>   The base class (ty_optical_props) encapsulates only this spectral discretization and must be initialized !>      with the spectral information before use. !> !>   Optical properties may be represented as arrays with dimensions ncol, nlay, ngpt !>   (abstract class ty_optical_props_arry). !>   The type holds arrays depending on how much information is needed !>   There are three possibilites !> !> - ty_optical_props_1scl holds absorption optical depth tau, used in calculations accounting for extinction and emission !> - ty_optical_props_2str holds extincion optical depth tau, single-scattering albedo ssa, and !>        asymmetry parameter g. These fields are what's needed for two-stream calculations. !> - ty_optical_props_nstr holds extincion optical depth tau, single-scattering albedo ssa, and !>        phase function moments p with leading dimension nmom. These fields are what's needed for multi-stream calculations. !> !>   These classes must be allocated before use. Initialization and allocation can be combined. !>   The classes have a validate() function that checks all arrays for valid values (e.g. tau > 0.) !> !> Optical properties can be delta-scaled (though this is currently implemented only for two-stream arrays) !> !> Optical properties can increment or \"add themselves to\" a set of properties represented with arrays !>   as long as both sets have the same underlying band structure. Properties defined by band !>   may be added to properties defined by g-point; the same value is assumed for all g-points with each band. !> !> Subsets of optical properties held as arrays may be extracted along the column dimension. !> ! Making the documentation below visible in ford, by replace ! with !>, messes up Markdown parsing above !@note !example of a note with links to other modules and variables ! ! 1. [[mo_rte_config(module):check_extents(variable)]] in module [[mo_rte_config]] !> !@endnote !> ------------------------------------------------------------------------------------------------- module mo_optical_props use mo_rte_kind , only : wp use mo_rte_config , only : check_extents , check_values use mo_rte_util_array_validation , & only : any_vals_less_than , any_vals_outside , extents_are use mo_optical_props_kernels , only : & increment_1scalar_by_1scalar , increment_1scalar_by_2stream , increment_1scalar_by_nstream , & increment_2stream_by_1scalar , increment_2stream_by_2stream , increment_2stream_by_nstream , & increment_nstream_by_1scalar , increment_nstream_by_2stream , increment_nstream_by_nstream , & inc_1scalar_by_1scalar_bybnd , inc_1scalar_by_2stream_bybnd , inc_1scalar_by_nstream_bybnd , & inc_2stream_by_1scalar_bybnd , inc_2stream_by_2stream_bybnd , inc_2stream_by_nstream_bybnd , & inc_nstream_by_1scalar_bybnd , inc_nstream_by_2stream_bybnd , inc_nstream_by_nstream_bybnd , & delta_scale_2str_kernel , & extract_subset implicit none private integer , parameter , public :: name_len = 32 ! ------------------------------------------------------------------------------------------------- ! !> ### Base class for optical properties !>   Describes the spectral discretization including the wavenumber limits !>   of each band (spectral region) and the mapping between g-points and bands ! ! ------------------------------------------------------------------------------------------------- type , public :: ty_optical_props integer , dimension (:,:), allocatable , private :: band2gpt ! (begin g-point, end g-point) = band2gpt(2,band) integer , dimension (:), allocatable , private :: gpt2band ! band = gpt2band(g-point) real ( wp ), dimension (:,:), allocatable , private :: band_lims_wvn ! (upper and lower wavenumber by band) = band_lims_wvn(2,band) character ( len = name_len ), private :: name = \"\" contains generic , public :: init => init_base , init_base_from_copy procedure , private :: init_base procedure , private :: init_base_from_copy procedure , public :: is_initialized => is_initialized_base procedure , private :: is_initialized_base procedure , public :: finalize => finalize_base procedure , private :: finalize_base procedure , public :: get_nband procedure , public :: get_ngpt procedure , public :: get_gpoint_bands procedure , public :: convert_band2gpt procedure , public :: convert_gpt2band procedure , public :: get_band_lims_gpoint procedure , public :: get_band_lims_wavenumber procedure , public :: get_band_lims_wavelength procedure , public :: bands_are_equal procedure , public :: gpoints_are_equal procedure , public :: expand procedure , public :: set_name procedure , public :: get_name end type ty_optical_props !---------------------------------------------------------------------------------------- ! !>### Optical properties as arrays, normally dimensioned ncol, nlay, ngpt/nbnd !>   The abstract base class for arrays defines what procedures will be available ! ! ------------------------------------------------------------------------------------------------- type , extends ( ty_optical_props ), abstract , public :: ty_optical_props_arry real ( wp ), dimension (:,:,:), allocatable :: tau !! optical depth (ncol, nlay, ngpt) contains procedure , public :: get_ncol procedure , public :: get_nlay !> !> Increment another set of values !> procedure , public :: increment !> !> Deferred procedures -- each must be implemented in each child class with !>   arguments following the abstract interface (defined below) !> procedure ( validate_abstract ), deferred , public :: validate procedure ( delta_scale_abstract ), deferred , public :: delta_scale procedure ( subset_range_abstract ), deferred , public :: get_subset end type ty_optical_props_arry ! ! Interfaces for the methods to be implemented ! abstract interface !> !> Validation function looks only at internal data !> function validate_abstract ( this ) result ( err_message ) import ty_optical_props_arry class ( ty_optical_props_arry ), intent ( in ) :: this character ( len = 128 ) :: err_message end function validate_abstract !> !> Delta-scaling !> function delta_scale_abstract ( this , for ) result ( err_message ) import ty_optical_props_arry import wp class ( ty_optical_props_arry ), intent ( inout ) :: this real ( wp ), dimension (:,:,:), optional , & intent ( in ) :: for !> Forward scattering fraction; g**2 if not provided character ( len = 128 ) :: err_message end function delta_scale_abstract !> !> Subsetting -- currently there are only routines with start col and count !> function subset_range_abstract ( full , start , n , subset ) result ( err_message ) import ty_optical_props_arry class ( ty_optical_props_arry ), intent ( inout ) :: full integer , intent ( in ) :: start , n class ( ty_optical_props_arry ), intent ( inout ) :: subset character ( 128 ) :: err_message end function subset_range_abstract end interface !>---------------------------------------------------------------------------------------- !> !>   ty_optical_props_arry represents optical properties as arrays with dimensions !>      column, height, spectral point !>  - Class 1-scalar only (extinction) optical depth !>  -  Class two-stream adds arrays for single scattering albedo ssa and !>     asymmetry parameter needed in two-stream methods !>  - Class n-stream adds arrays for single scattering albedo ssa and !>     phase function moments (index 1 = g) for use with discrete ordinate methods !> !> ------------------------------------------------------------------------------------------------- type , public , extends ( ty_optical_props_arry ) :: ty_optical_props_1scl contains procedure , public :: validate => validate_1scalar procedure , public :: get_subset => subset_1scl_range procedure , public :: delta_scale => delta_scale_1scl procedure , public :: finalize_1scl procedure , private :: alloc_only_1scl procedure , private :: init_and_alloc_1scl procedure , private :: copy_and_alloc_1scl generic , public :: alloc_1scl => alloc_only_1scl , init_and_alloc_1scl , copy_and_alloc_1scl end type ty_optical_props_1scl ! --- 2 stream ------------------------------------------------------------------------ type , public , extends ( ty_optical_props_arry ) :: ty_optical_props_2str real ( wp ), dimension (:,:,:), allocatable :: ssa !! single-scattering albedo (ncol, nlay, ngpt) real ( wp ), dimension (:,:,:), allocatable :: g !! asymmetry parameter (ncol, nlay, ngpt) contains procedure , public :: validate => validate_2stream procedure , public :: get_subset => subset_2str_range procedure , public :: delta_scale => delta_scale_2str procedure , public :: finalize_2str procedure , private :: alloc_only_2str procedure , private :: init_and_alloc_2str procedure , private :: copy_and_alloc_2str generic , public :: alloc_2str => alloc_only_2str , init_and_alloc_2str , copy_and_alloc_2str end type ty_optical_props_2str ! --- n stream ------------------------------------------------------------------------ type , public , extends ( ty_optical_props_arry ) :: ty_optical_props_nstr real ( wp ), dimension (:,:,:), allocatable :: ssa !! single-scattering albedo (ncol, nlay, ngpt) real ( wp ), dimension (:,:,:,:), allocatable :: p !! phase-function moments (nmom, ncol, nlay, ngpt) contains procedure , public :: validate => validate_nstream procedure , public :: get_subset => subset_nstr_range procedure , public :: delta_scale => delta_scale_nstr procedure , public :: get_nmom procedure , public :: finalize_nstr procedure , private :: alloc_only_nstr procedure , private :: init_and_alloc_nstr procedure , private :: copy_and_alloc_nstr generic , public :: alloc_nstr => alloc_only_nstr , init_and_alloc_nstr , copy_and_alloc_nstr end type ty_optical_props_nstr ! ------------------------------------------------------------------------------------------------- contains ! ------------------------------------------------------------------------------------------------- ! !  Routines for the base class: initialization, validity checking, finalization ! !> ------------------------------------------------------------------------------------------------- !> !> Base class: Initialization !>   Values are assumed to be defined in bands a mapping between bands and g-points is provided !> !> ------------------------------------------------------------------------------------------------- function init_base ( this , band_lims_wvn , band_lims_gpt , name ) result ( err_message ) class ( ty_optical_props ), intent ( inout ) :: this real ( wp ), dimension (:,:), intent ( in ) :: band_lims_wvn integer , dimension (:,:), & optional , intent ( in ) :: band_lims_gpt character ( len =* ), optional , intent ( in ) :: name character ( len = 128 ) :: err_message integer :: iband integer , dimension ( 2 , size ( band_lims_wvn , 2 )) :: band_lims_gpt_lcl ! ------------------------- ! ! Error checking -- are the arrays the size we expect, contain positive values? ! err_message = \"\" if ( size ( band_lims_wvn , 1 ) /= 2 ) & err_message = \"optical_props%init(): band_lims_wvn 1st dim should be 2\" if ( check_values ) then if ( any_vals_less_than ( band_lims_wvn , 0._wp ) ) & err_message = \"optical_props%init(): band_lims_wvn has values <  0., respectively\" end if if ( err_message /= \"\" ) return if ( present ( band_lims_gpt )) then if ( check_extents ) then if (. not . extents_are ( band_lims_gpt , 2 , size ( band_lims_wvn , 2 ))) & err_message = \"optical_props%init(): band_lims_gpt size inconsistent with band_lims_wvn\" end if if ( check_values ) then if ( any ( band_lims_gpt < 1 ) ) & err_message = \"optical_props%init(): band_lims_gpt has values < 1\" end if if ( err_message /= \"\" ) return band_lims_gpt_lcl (:,:) = band_lims_gpt (:,:) else ! ! Assume that values are defined by band, one g-point per band ! do iband = 1 , size ( band_lims_wvn , 2 ) band_lims_gpt_lcl ( 1 : 2 , iband ) = iband end do end if ! ! Assignment ! if ( allocated ( this % band2gpt )) deallocate ( this % band2gpt ) if ( allocated ( this % band_lims_wvn )) deallocate ( this % band_lims_wvn ) allocate ( this % band2gpt ( 2 , size ( band_lims_wvn , 2 )), & this % band_lims_wvn ( 2 , size ( band_lims_wvn , 2 ))) this % band2gpt = band_lims_gpt_lcl this % band_lims_wvn = band_lims_wvn if ( present ( name )) this % name = trim ( name ) ! ! Make a map between g-points and bands !   Efficient only when g-point indexes start at 1 and are contiguous. ! if ( allocated ( this % gpt2band )) deallocate ( this % gpt2band ) allocate ( this % gpt2band ( maxval ( band_lims_gpt_lcl ))) do iband = 1 , size ( band_lims_gpt_lcl , dim = 2 ) this % gpt2band ( band_lims_gpt_lcl ( 1 , iband ): band_lims_gpt_lcl ( 2 , iband )) = iband end do end function init_base !------------------------------------------------------------------------------------------------- function init_base_from_copy ( this , spectral_desc ) result ( err_message ) class ( ty_optical_props ), intent ( inout ) :: this class ( ty_optical_props ), intent ( in ) :: spectral_desc character ( len = 128 ) :: err_message if (. not . spectral_desc % is_initialized ()) then err_message = \"optical_props%init(): can't initialize based on un-initialized input\" return else err_message = this % init ( spectral_desc % get_band_lims_wavenumber (), & spectral_desc % get_band_lims_gpoint ()) end if end function init_base_from_copy !>------------------------------------------------------------------------------------------------- !> !> Base class: return true if initialized, false otherwise !> !> ------------------------------------------------------------------------------------------------- pure function is_initialized_base ( this ) class ( ty_optical_props ), intent ( in ) :: this logical :: is_initialized_base is_initialized_base = allocated ( this % band2gpt ) end function is_initialized_base !>------------------------------------------------------------------------------------------------- !> !> Base class: finalize (deallocate memory) !> !> ------------------------------------------------------------------------------------------------- subroutine finalize_base ( this ) class ( ty_optical_props ), intent ( inout ) :: this if ( allocated ( this % band2gpt )) deallocate ( this % band2gpt ) if ( allocated ( this % gpt2band )) deallocate ( this % gpt2band ) if ( allocated ( this % band_lims_wvn )) & deallocate ( this % band_lims_wvn ) this % name = \"\" end subroutine finalize_base ! ------------------------------------------------------------------------------------------ ! !  Routines for array classes: initialization, allocation, and finalization !    Initialization and allocation can be combined by supplying either ! !> ------------------------------------------------------------------------------------------ !> !> Straight allocation routines !> !> --- 1 scalar ------------------------------------------------------------------------ function alloc_only_1scl ( this , ncol , nlay ) result ( err_message ) class ( ty_optical_props_1scl ) :: this integer , intent ( in ) :: ncol , nlay character ( len = 128 ) :: err_message err_message = \"\" if (. not . this % is_initialized ()) then err_message = \"optical_props%alloc: spectral discretization hasn't been provided\" return end if if ( any ([ ncol , nlay ] <= 0 )) then err_message = \"optical_props%alloc: must provide positive extents for ncol, nlay\" else if ( allocated ( this % tau )) deallocate ( this % tau ) allocate ( this % tau ( ncol , nlay , this % get_ngpt ())) end if end function alloc_only_1scl !> --- 2 stream ------------------------------------------------------------------------ function alloc_only_2str ( this , ncol , nlay ) result ( err_message ) class ( ty_optical_props_2str ) :: this integer , intent ( in ) :: ncol , nlay character ( len = 128 ) :: err_message err_message = \"\" if (. not . this % is_initialized ()) & err_message = \"optical_props%alloc: spectral discretization hasn't been provided\" if ( any ([ ncol , nlay ] <= 0 )) & err_message = \"optical_props%alloc: must provide positive extents for ncol, nlay\" if ( err_message /= \"\" ) return if ( allocated ( this % tau )) deallocate ( this % tau ) allocate ( this % tau ( ncol , nlay , this % get_ngpt ())) if ( allocated ( this % ssa )) deallocate ( this % ssa ) if ( allocated ( this % g )) deallocate ( this % g ) allocate ( this % ssa ( ncol , nlay , this % get_ngpt ()), this % g ( ncol , nlay , this % get_ngpt ())) end function alloc_only_2str !> --- n stream ------------------------------------------------------------------------ function alloc_only_nstr ( this , nmom , ncol , nlay ) result ( err_message ) class ( ty_optical_props_nstr ) :: this integer , intent ( in ) :: nmom ! number of moments integer , intent ( in ) :: ncol , nlay character ( len = 128 ) :: err_message err_message = \"\" if (. not . this % is_initialized ()) & err_message = \"optical_props%alloc: spectral discretization hasn't been provided\" if ( any ([ ncol , nlay ] <= 0 )) & err_message = \"optical_props%alloc: must provide positive extents for ncol, nlay\" if ( err_message /= \"\" ) return if ( allocated ( this % tau )) deallocate ( this % tau ) allocate ( this % tau ( ncol , nlay , this % get_ngpt ())) if ( allocated ( this % ssa )) deallocate ( this % ssa ) if ( allocated ( this % p )) deallocate ( this % p ) allocate ( this % ssa ( ncol , nlay , this % get_ngpt ()), this % p ( nmom , ncol , nlay , this % get_ngpt ())) end function alloc_only_nstr ! ------------------------------------------------------------------------------------------ ! ! Combined allocation/initialization routines ! !> ------------------------------------------------------------------------------------------ !> !> Initialization by specifying band limits and possibly g-point/band mapping !> !> --------------------------------------------------------------------------- function init_and_alloc_1scl ( this , ncol , nlay , band_lims_wvn , band_lims_gpt , name ) result ( err_message ) class ( ty_optical_props_1scl ) :: this integer , intent ( in ) :: ncol , nlay real ( wp ), dimension (:,:), intent ( in ) :: band_lims_wvn integer , dimension (:,:), & optional , intent ( in ) :: band_lims_gpt character ( len =* ), optional , intent ( in ) :: name character ( len = 128 ) :: err_message err_message = this % ty_optical_props % init ( band_lims_wvn , & band_lims_gpt , name ) if ( err_message /= \"\" ) return err_message = this % alloc_1scl ( ncol , nlay ) end function init_and_alloc_1scl ! --------------------------------------------------------------------------- function init_and_alloc_2str ( this , ncol , nlay , band_lims_wvn , band_lims_gpt , name ) result ( err_message ) class ( ty_optical_props_2str ) :: this integer , intent ( in ) :: ncol , nlay real ( wp ), dimension (:,:), intent ( in ) :: band_lims_wvn integer , dimension (:,:), & optional , intent ( in ) :: band_lims_gpt character ( len =* ), optional , intent ( in ) :: name character ( len = 128 ) :: err_message err_message = this % ty_optical_props % init ( band_lims_wvn , & band_lims_gpt , name ) if ( err_message /= \"\" ) return err_message = this % alloc_2str ( ncol , nlay ) end function init_and_alloc_2str ! --------------------------------------------------------------------------- function init_and_alloc_nstr ( this , nmom , ncol , nlay , band_lims_wvn , band_lims_gpt , name ) result ( err_message ) class ( ty_optical_props_nstr ) :: this integer , intent ( in ) :: nmom , ncol , nlay real ( wp ), dimension (:,:), intent ( in ) :: band_lims_wvn integer , dimension (:,:), & optional , intent ( in ) :: band_lims_gpt character ( len =* ), optional , intent ( in ) :: name character ( len = 128 ) :: err_message err_message = this % ty_optical_props % init ( band_lims_wvn , & band_lims_gpt , name ) if ( err_message /= \"\" ) return err_message = this % alloc_nstr ( nmom , ncol , nlay ) end function init_and_alloc_nstr !>------------------------------------------------------------------------------------------------- !> !> Initialization from an existing spectral discretization/ty_optical_props !> !>------------------------------------------------------------------------------------------------- function copy_and_alloc_1scl ( this , ncol , nlay , spectral_desc , name ) result ( err_message ) class ( ty_optical_props_1scl ) :: this integer , intent ( in ) :: ncol , nlay class ( ty_optical_props ), intent ( in ) :: spectral_desc character ( len =* ), optional , intent ( in ) :: name character ( len = 128 ) :: err_message err_message = \"\" if ( this % ty_optical_props % is_initialized ()) call this % ty_optical_props % finalize () err_message = this % ty_optical_props % init ( spectral_desc % get_band_lims_wavenumber (), & spectral_desc % get_band_lims_gpoint (), name ) if ( err_message /= \"\" ) return err_message = this % alloc_1scl ( ncol , nlay ) end function copy_and_alloc_1scl ! --------------------------------------------------------------------------- function copy_and_alloc_2str ( this , ncol , nlay , spectral_desc , name ) result ( err_message ) class ( ty_optical_props_2str ) :: this integer , intent ( in ) :: ncol , nlay class ( ty_optical_props ), intent ( in ) :: spectral_desc character ( len =* ), optional , intent ( in ) :: name character ( len = 128 ) :: err_message err_message = \"\" if ( this % ty_optical_props % is_initialized ()) call this % ty_optical_props % finalize () err_message = this % ty_optical_props % init ( spectral_desc % get_band_lims_wavenumber (), & spectral_desc % get_band_lims_gpoint (), name ) if ( err_message /= \"\" ) return err_message = this % alloc_2str ( ncol , nlay ) end function copy_and_alloc_2str ! --------------------------------------------------------------------------- function copy_and_alloc_nstr ( this , nmom , ncol , nlay , spectral_desc , name ) result ( err_message ) class ( ty_optical_props_nstr ) :: this integer , intent ( in ) :: nmom , ncol , nlay class ( ty_optical_props ), intent ( in ) :: spectral_desc character ( len =* ), optional , intent ( in ) :: name character ( len = 128 ) :: err_message err_message = \"\" if ( this % ty_optical_props % is_initialized ()) call this % ty_optical_props % finalize () err_message = this % ty_optical_props % init ( spectral_desc % get_band_lims_wavenumber (), & spectral_desc % get_band_lims_gpoint (), name ) if ( err_message /= \"\" ) return err_message = this % alloc_nstr ( nmom , ncol , nlay ) end function copy_and_alloc_nstr !> ------------------------------------------------------------------------------------------ !> !> Finalize routines !> !> ------------------------------------------------------------------------------------------ function finalize_1scl ( this ) result ( err_message ) class ( ty_optical_props_1scl ) :: this character ( len = 128 ) :: err_message if ( allocated ( this % tau )) deallocate ( this % tau ) err_message = \"\" end function finalize_1scl ! --------------------------------------------------------------------------- function finalize_2str ( this ) result ( err_message ) class ( ty_optical_props_2str ) :: this character ( len = 128 ) :: err_message if ( allocated ( this % tau )) deallocate ( this % tau ) if ( allocated ( this % ssa )) deallocate ( this % ssa ) if ( allocated ( this % g )) deallocate ( this % g ) err_message = \"\" end function finalize_2str ! --------------------------------------------------------------------------- function finalize_nstr ( this ) result ( err_message ) class ( ty_optical_props_nstr ) :: this character ( len = 128 ) :: err_message if ( allocated ( this % tau )) deallocate ( this % tau ) if ( allocated ( this % ssa )) deallocate ( this % ssa ) if ( allocated ( this % p )) deallocate ( this % p ) err_message = \"\" end function finalize_nstr ! ------------------------------------------------------------------------------------------ ! !  Routines for array classes: delta-scaling, validation (ensuring all values can be used ) ! !> ------------------------------------------------------------------------------------------ !> --- delta scaling !> ------------------------------------------------------------------------------------------ function delta_scale_1scl ( this , for ) result ( err_message ) class ( ty_optical_props_1scl ), intent ( inout ) :: this real ( wp ), dimension (:,:,:), optional , & intent ( in ) :: for character ( 128 ) :: err_message ! ! Nothing to do ! err_message = \"\" end function delta_scale_1scl ! ------------------------------------------------------------------------------------------ function delta_scale_2str ( this , for ) result ( err_message ) class ( ty_optical_props_2str ), intent ( inout ) :: this real ( wp ), dimension (:,:,:), optional , & intent ( in ) :: for !! Forward scattering fraction; g**2 if not provided character ( 128 ) :: err_message integer :: ncol , nlay , ngpt ! -------------------------------- ncol = this % get_ncol () nlay = this % get_nlay () ngpt = this % get_ngpt () err_message = \"\" if ( present ( for )) then if ( check_extents ) then if (. not . extents_are ( for , ncol , nlay , ngpt )) then err_message = \"delta_scale: dimension of 'for' don't match optical properties arrays\" return end if end if if ( check_values ) then if ( any_vals_outside ( for , 0._wp , 1._wp )) then err_message = \"delta_scale: values of 'for' out of bounds [0,1]\" return end if end if call delta_scale_2str_kernel ( ncol , nlay , ngpt , this % tau , this % ssa , this % g , for ) else call delta_scale_2str_kernel ( ncol , nlay , ngpt , this % tau , this % ssa , this % g ) end if end function delta_scale_2str ! ------------------------------------------------------------------------------------------ function delta_scale_nstr ( this , for ) result ( err_message ) class ( ty_optical_props_nstr ), intent ( inout ) :: this real ( wp ), dimension (:,:,:), optional , & intent ( in ) :: for character ( 128 ) :: err_message err_message = 'delta_scale_nstr: Not yet implemented' end function delta_scale_nstr !> ------------------------------------------------------------------------------------------ !> !> --- Validation !> !> ------------------------------------------------------------------------------------------ function validate_1scalar ( this ) result ( err_message ) class ( ty_optical_props_1scl ), intent ( in ) :: this character ( len = 128 ) :: err_message err_message = '' if (. not . allocated ( this % tau )) then err_message = \"validate: tau not allocated/initialized\" return end if if ( check_values ) then if ( any_vals_less_than ( this % tau , 0._wp )) & err_message = \"validate: tau values out of range\" end if if ( len_trim ( err_message ) > 0 . and . len_trim ( this % get_name ()) > 0 ) & err_message = trim ( this % get_name ()) // ': ' // trim ( err_message ) end function validate_1scalar ! ------------------------------------------------------------------------------------------ function validate_2stream ( this ) result ( err_message ) class ( ty_optical_props_2str ), intent ( in ) :: this character ( len = 128 ) :: err_message integer :: d1 , d2 , d3 err_message = '' ! ! Array allocation status, sizing ! if ( check_extents ) then if (. not . all ([ allocated ( this % tau ), allocated ( this % ssa ), allocated ( this % g )])) then err_message = \"validate: arrays not allocated/initialized\" return end if d1 = size ( this % tau , 1 ) d2 = size ( this % tau , 2 ) d3 = size ( this % tau , 3 ) if (. not . extents_are ( this % ssa , d1 , d2 , d3 ) . or . & . not . extents_are ( this % g , d1 , d2 , d3 )) & err_message = \"validate: arrays not sized consistently\" end if ! ! Valid values ! if ( check_values ) then if ( any_vals_less_than ( this % tau , 0._wp )) & err_message = \"validate: tau values out of range\" if ( any_vals_outside ( this % ssa , 0._wp , 1._wp )) & err_message = \"validate: ssa values out of range\" if ( any_vals_outside ( this % g , - 1._wp , 1._wp )) & err_message = \"validate: g values out of range\" end if if ( len_trim ( err_message ) > 0 . and . len_trim ( this % get_name ()) > 0 ) & err_message = trim ( this % get_name ()) // ': ' // trim ( err_message ) end function validate_2stream ! ------------------------------------------------------------------------------------------ function validate_nstream ( this ) result ( err_message ) class ( ty_optical_props_nstr ), intent ( in ) :: this character ( len = 128 ) :: err_message integer :: d1 , d2 , d3 , d4 err_message = '' ! ! Array allocation status, sizing ! if (. not . all ([ allocated ( this % tau ), allocated ( this % ssa ), allocated ( this % p )])) then err_message = \"validate: arrays not allocated/initialized\" return end if d1 = size ( this % tau , 1 ) d2 = size ( this % tau , 2 ) d3 = size ( this % tau , 3 ) d4 = size ( this % p , 1 ) if ( check_extents ) then if (. not . extents_are ( this % ssa , d1 , d2 , d3 ) . or . & . not . extents_are ( this % p , d4 , d1 , d2 , d3 )) & err_message = \"validate: arrays not sized consistently\" end if ! ! Valid values ! if ( check_values ) then if ( any_vals_less_than ( this % tau , 0._wp )) & err_message = \"validate: tau values out of range\" if ( any_vals_outside ( this % ssa , 0._wp , 1._wp )) & err_message = \"validate: ssa values out of range\" if ( any_vals_outside ( this % p ( 1 ,:,:,:), - 1._wp , 1._wp )) & err_message = \"validate: p(1,:,:,:)  = g values out of range\" end if if ( len_trim ( err_message ) > 0 . and . len_trim ( this % get_name ()) > 0 ) & err_message = trim ( this % get_name ()) // ': ' // trim ( err_message ) end function validate_nstream ! ------------------------------------------------------------------------------------------ ! !  Routines for array classes: subsetting of optical properties arrays along x (col) direction ! ! Allocate class, then arrays; copy. Could probably be more efficient if !   classes used pointers internally. ! ! This set takes start position and number as scalars ! ! ------------------------------------------------------------------------------------------ function subset_1scl_range ( full , start , n , subset ) result ( err_message ) class ( ty_optical_props_1scl ), intent ( inout ) :: full integer , intent ( in ) :: start , n class ( ty_optical_props_arry ), intent ( inout ) :: subset character ( 128 ) :: err_message integer :: ncol , nlay , ngpt , nmom err_message = \"\" if (. not . full % is_initialized ()) then err_message = \"optical_props%subset: Asking for a subset of uninitialized data\" return end if ncol = full % get_ncol () nlay = full % get_nlay () ngpt = full % get_ngpt () if ( start < 1 . or . start + n - 1 > full % get_ncol ()) & err_message = \"optical_props%subset: Asking for columns outside range\" if ( err_message /= \"\" ) return if ( subset % is_initialized ()) call subset % finalize () err_message = subset % init ( full ) ! Seems like the deallocation statements should be needed under Fortran 2003 !   but Intel compiler doesn't run without them if ( allocated ( subset % tau )) deallocate ( subset % tau ) select type ( subset ) class is ( ty_optical_props_1scl ) err_message = subset % alloc_1scl ( n , nlay ) if ( err_message /= \"\" ) return class is ( ty_optical_props_2str ) if ( allocated ( subset % ssa )) deallocate ( subset % ssa ) if ( allocated ( subset % g )) deallocate ( subset % g ) err_message = subset % alloc_2str ( n , nlay ) if ( err_message /= \"\" ) return subset % ssa ( 1 : n ,:,:) = 0._wp subset % g ( 1 : n ,:,:) = 0._wp class is ( ty_optical_props_nstr ) if ( allocated ( subset % ssa )) deallocate ( subset % ssa ) if ( allocated ( subset % p )) then nmom = subset % get_nmom () deallocate ( subset % p ) else nmom = 1 end if err_message = subset % alloc_nstr ( nmom , n , nlay ) if ( err_message /= \"\" ) return subset % ssa ( 1 : n ,:,:) = 0._wp subset % p (:, 1 : n ,:,:) = 0._wp end select call extract_subset ( ncol , nlay , ngpt , full % tau , start , start + n - 1 , subset % tau ) end function subset_1scl_range ! ------------------------------------------------------------------------------------------ function subset_2str_range ( full , start , n , subset ) result ( err_message ) class ( ty_optical_props_2str ), intent ( inout ) :: full integer , intent ( in ) :: start , n class ( ty_optical_props_arry ), intent ( inout ) :: subset character ( 128 ) :: err_message integer :: ncol , nlay , ngpt , nmom err_message = \"\" if (. not . full % is_initialized ()) then err_message = \"optical_props%subset: Asking for a subset of uninitialized data\" return end if ncol = full % get_ncol () nlay = full % get_nlay () ngpt = full % get_ngpt () if ( start < 1 . or . start + n - 1 > full % get_ncol ()) & err_message = \"optical_props%subset: Asking for columns outside range\" if ( err_message /= \"\" ) return if ( subset % is_initialized ()) call subset % finalize () err_message = subset % init ( full ) select type ( subset ) class is ( ty_optical_props_1scl ) err_message = subset % alloc_1scl ( n , nlay ) if ( err_message /= \"\" ) return call extract_subset ( ncol , nlay , ngpt , full % tau , full % ssa , start , start + n - 1 , subset % tau ) class is ( ty_optical_props_2str ) if ( allocated ( subset % ssa )) deallocate ( subset % ssa ) if ( allocated ( subset % g )) deallocate ( subset % g ) err_message = subset % alloc_2str ( n , nlay ) if ( err_message /= \"\" ) return call extract_subset ( ncol , nlay , ngpt , full % tau , start , start + n - 1 , subset % tau ) call extract_subset ( ncol , nlay , ngpt , full % ssa , start , start + n - 1 , subset % ssa ) call extract_subset ( ncol , nlay , ngpt , full % g , start , start + n - 1 , subset % g ) class is ( ty_optical_props_nstr ) if ( allocated ( subset % ssa )) deallocate ( subset % ssa ) if ( allocated ( subset % p )) then nmom = subset % get_nmom () deallocate ( subset % p ) else nmom = 1 end if err_message = subset % alloc_nstr ( nmom , n , nlay ) if ( err_message /= \"\" ) return call extract_subset ( ncol , nlay , ngpt , full % tau , start , start + n - 1 , subset % tau ) call extract_subset ( ncol , nlay , ngpt , full % ssa , start , start + n - 1 , subset % ssa ) subset % p ( 1 , 1 : n ,:,:) = full % g ( start : start + n - 1 ,:,:) subset % p ( 2 :,:, :,:) = 0._wp end select end function subset_2str_range ! ------------------------------------------------------------------------------------------ function subset_nstr_range ( full , start , n , subset ) result ( err_message ) class ( ty_optical_props_nstr ), intent ( inout ) :: full integer , intent ( in ) :: start , n class ( ty_optical_props_arry ), intent ( inout ) :: subset character ( 128 ) :: err_message integer :: ncol , nlay , ngpt , nmom err_message = \"\" if (. not . full % is_initialized ()) then err_message = \"optical_props%subset: Asking for a subset of uninitialized data\" return end if ncol = full % get_ncol () nlay = full % get_nlay () ngpt = full % get_ngpt () if ( start < 1 . or . start + n - 1 > full % get_ncol ()) & err_message = \"optical_props%subset: Asking for columns outside range\" if ( err_message /= \"\" ) return if ( subset % is_initialized ()) call subset % finalize () err_message = subset % init ( full ) if ( allocated ( subset % tau )) deallocate ( subset % tau ) select type ( subset ) class is ( ty_optical_props_1scl ) err_message = subset % alloc_1scl ( n , nlay ) if ( err_message /= \"\" ) return call extract_subset ( ncol , nlay , ngpt , full % tau , full % ssa , start , start + n - 1 , subset % tau ) class is ( ty_optical_props_2str ) if ( allocated ( subset % ssa )) deallocate ( subset % ssa ) if ( allocated ( subset % g )) deallocate ( subset % g ) err_message = subset % alloc_2str ( n , nlay ) if ( err_message /= \"\" ) return call extract_subset ( ncol , nlay , ngpt , full % tau , start , start + n - 1 , subset % tau ) call extract_subset ( ncol , nlay , ngpt , full % ssa , start , start + n - 1 , subset % ssa ) subset % g ( 1 : n ,:,:) = full % p ( 1 , start : start + n - 1 ,:,:) class is ( ty_optical_props_nstr ) if ( allocated ( subset % ssa )) deallocate ( subset % ssa ) if ( allocated ( subset % p )) deallocate ( subset % p ) err_message = subset % alloc_nstr ( nmom , n , nlay ) if ( err_message /= \"\" ) return call extract_subset ( ncol , nlay , ngpt , full % tau , start , start + n - 1 , subset % tau ) call extract_subset ( ncol , nlay , ngpt , full % ssa , start , start + n - 1 , subset % ssa ) call extract_subset ( nmom , ncol , nlay , ngpt , full % p , start , start + n - 1 , subset % p ) end select end function subset_nstr_range !> ------------------------------------------------------------------------------------------ !> !>  Routines for array classes: incrementing !>   a%increment(b) adds the values of a to b, changing b and leaving a untouched !> !> ----------------------------------------------------------------------------------------- function increment ( op_in , op_io ) result ( err_message ) class ( ty_optical_props_arry ), intent ( in ) :: op_in class ( ty_optical_props_arry ), intent ( inout ) :: op_io character ( 128 ) :: err_message ! ----- integer :: ncol , nlay , ngpt ! ----- err_message = \"\" if (. not . op_in % is_initialized ()) & err_message = \"ty_optical_props%increment: Incrementing optical properties aren't initialized\" if (. not . op_in % is_initialized ()) & err_message = \"ty_optical_props%increment: optical properties to be incremented aren't initialized\" if ( err_message /= \"\" ) return ncol = op_io % get_ncol () nlay = op_io % get_nlay () ngpt = op_io % get_ngpt () if (. not . op_in % bands_are_equal ( op_io )) & err_message = \"ty_optical_props%increment: optical properties objects have different band structures\" if (. not . all ([ op_in % get_ncol (), op_in % get_nlay ()] == [ ncol , nlay ])) & err_message = \"ty_optical_props%increment: optical properties objects have different ncol and/or nlay\" if ( err_message /= \"\" ) return if ( op_in % gpoints_are_equal ( op_io )) then ! ! Increment by gpoint !   (or by band if both op_in and op_io are defined that way) ! select type ( op_io ) class is ( ty_optical_props_1scl ) select type ( op_in ) class is ( ty_optical_props_1scl ) call increment_1scalar_by_1scalar ( ncol , nlay , ngpt , & op_io % tau , & op_in % tau ) class is ( ty_optical_props_2str ) call increment_1scalar_by_2stream ( ncol , nlay , ngpt , & op_io % tau , & op_in % tau , op_in % ssa ) class is ( ty_optical_props_nstr ) call increment_1scalar_by_nstream ( ncol , nlay , ngpt , & op_io % tau , & op_in % tau , op_in % ssa ) end select class is ( ty_optical_props_2str ) select type ( op_in ) class is ( ty_optical_props_1scl ) call increment_2stream_by_1scalar ( ncol , nlay , ngpt , & op_io % tau , op_io % ssa ,& op_in % tau ) class is ( ty_optical_props_2str ) call increment_2stream_by_2stream ( ncol , nlay , ngpt , & op_io % tau , op_io % ssa , op_io % g , & op_in % tau , op_in % ssa , op_in % g ) class is ( ty_optical_props_nstr ) call increment_2stream_by_nstream ( ncol , nlay , ngpt , op_in % get_nmom (), & op_io % tau , op_io % ssa , op_io % g , & op_in % tau , op_in % ssa , op_in % p ) end select class is ( ty_optical_props_nstr ) select type ( op_in ) class is ( ty_optical_props_1scl ) call increment_nstream_by_1scalar ( ncol , nlay , ngpt , & op_io % tau , op_io % ssa , & op_in % tau ) class is ( ty_optical_props_2str ) call increment_nstream_by_2stream ( ncol , nlay , ngpt , op_io % get_nmom (), & op_io % tau , op_io % ssa , op_io % p , & op_in % tau , op_in % ssa , op_in % g ) class is ( ty_optical_props_nstr ) call increment_nstream_by_nstream ( ncol , nlay , ngpt , op_io % get_nmom (), op_in % get_nmom (), & op_io % tau , op_io % ssa , op_io % p , & op_in % tau , op_in % ssa , op_in % p ) end select end select else ! ! Values defined by-band will have ngpt() = nband() ! We can use values by band in op_in to increment op_io !   Anything else is an error ! if ( op_in % get_ngpt () /= op_io % get_nband ()) then err_message = \"ty_optical_props%increment: optical properties objects have incompatible g-point structures\" return end if ! ! Increment by band ! select type ( op_io ) class is ( ty_optical_props_1scl ) select type ( op_in ) class is ( ty_optical_props_1scl ) call inc_1scalar_by_1scalar_bybnd ( ncol , nlay , ngpt , & op_io % tau , & op_in % tau , & op_io % get_nband (), op_io % get_band_lims_gpoint ()) class is ( ty_optical_props_2str ) call inc_1scalar_by_2stream_bybnd ( ncol , nlay , ngpt , & op_io % tau , & op_in % tau , op_in % ssa , & op_io % get_nband (), op_io % get_band_lims_gpoint ()) class is ( ty_optical_props_nstr ) call inc_1scalar_by_nstream_bybnd ( ncol , nlay , ngpt , & op_io % tau , & op_in % tau , op_in % ssa , & op_io % get_nband (), op_io % get_band_lims_gpoint ()) end select class is ( ty_optical_props_2str ) select type ( op_in ) class is ( ty_optical_props_1scl ) call inc_2stream_by_1scalar_bybnd ( ncol , nlay , ngpt , & op_io % tau , op_io % ssa , & op_in % tau , & op_io % get_nband (), op_io % get_band_lims_gpoint ()) class is ( ty_optical_props_2str ) call inc_2stream_by_2stream_bybnd ( ncol , nlay , ngpt , & op_io % tau , op_io % ssa , op_io % g , & op_in % tau , op_in % ssa , op_in % g , & op_io % get_nband (), op_io % get_band_lims_gpoint ()) class is ( ty_optical_props_nstr ) call inc_2stream_by_nstream_bybnd ( ncol , nlay , ngpt , op_in % get_nmom (), & op_io % tau , op_io % ssa , op_io % g , & op_in % tau , op_in % ssa , op_in % p , & op_io % get_nband (), op_io % get_band_lims_gpoint ()) end select class is ( ty_optical_props_nstr ) select type ( op_in ) class is ( ty_optical_props_1scl ) call inc_nstream_by_1scalar_bybnd ( ncol , nlay , ngpt , & op_io % tau , op_io % ssa , & op_in % tau , & op_io % get_nband (), op_io % get_band_lims_gpoint ()) class is ( ty_optical_props_2str ) call inc_nstream_by_2stream_bybnd ( ncol , nlay , ngpt , op_io % get_nmom (), & op_io % tau , op_io % ssa , op_io % p , & op_in % tau , op_in % ssa , op_in % g , & op_io % get_nband (), op_io % get_band_lims_gpoint ()) class is ( ty_optical_props_nstr ) call inc_nstream_by_nstream_bybnd ( ncol , nlay , ngpt , op_io % get_nmom (), op_in % get_nmom (), & op_io % tau , op_io % ssa , op_io % p , & op_in % tau , op_in % ssa , op_in % p , & op_io % get_nband (), op_io % get_band_lims_gpoint ()) end select end select end if end function increment !> ----------------------------------------------------------------------------------------------- !> !>  Routines for array classes: problem sizes !> !> ----------------------------------------------------------------------------------------------- pure function get_arry_extent ( this , dim ) class ( ty_optical_props_arry ), intent ( in ) :: this integer , intent ( in ) :: dim integer :: get_arry_extent if ( allocated ( this % tau )) then get_arry_extent = size ( this % tau , dim ) else get_arry_extent = 0 end if end function get_arry_extent ! ------------------------------------------------------------------------------------------ pure function get_ncol ( this ) class ( ty_optical_props_arry ), intent ( in ) :: this integer :: get_ncol get_ncol = get_arry_extent ( this , 1 ) end function get_ncol ! ------------------------------------------------------------------------------------------ pure function get_nlay ( this ) class ( ty_optical_props_arry ), intent ( in ) :: this integer :: get_nlay get_nlay = get_arry_extent ( this , 2 ) end function get_nlay ! ------------------------------------------------------------------------------------------ pure function get_nmom ( this ) class ( ty_optical_props_nstr ), intent ( in ) :: this integer :: get_nmom if ( allocated ( this % p )) then get_nmom = size ( this % p , 1 ) else get_nmom = 0 end if end function get_nmom ! ----------------------------------------------------------------------------------------------- ! !  Routines for base class: spectral discretization ! !> ----------------------------------------------------------------------------------------------- !> !> Number of bands !> pure function get_nband ( this ) class ( ty_optical_props ), intent ( in ) :: this integer :: get_nband if ( this % is_initialized ()) then get_nband = size ( this % band2gpt , dim = 2 ) else get_nband = 0 end if end function get_nband !> ----------------------------------------------------------------------------------------------- !> !> Number of g-points !> pure function get_ngpt ( this ) class ( ty_optical_props ), intent ( in ) :: this integer :: get_ngpt if ( this % is_initialized ()) then get_ngpt = maxval ( this % band2gpt ) else get_ngpt = 0 end if end function get_ngpt !>-------------------------------------------------------------------------------------------------------------------- !> !> The first and last g-point of all bands at once !> dimension (2, nbands) !> pure function get_band_lims_gpoint ( this ) class ( ty_optical_props ), intent ( in ) :: this integer , dimension ( size ( this % band2gpt , dim = 1 ), size ( this % band2gpt , dim = 2 )) & :: get_band_lims_gpoint get_band_lims_gpoint = this % band2gpt end function get_band_lims_gpoint !>-------------------------------------------------------------------------------------------------------------------- !> !> First and last g-point of a specific band !> pure function convert_band2gpt ( this , band ) class ( ty_optical_props ), intent ( in ) :: this integer , intent ( in ) :: band integer , dimension ( 2 ) :: convert_band2gpt if ( this % is_initialized ()) then convert_band2gpt (:) = this % band2gpt (:, band ) else convert_band2gpt (:) = 0 end if end function convert_band2gpt !>-------------------------------------------------------------------------------------------------------------------- !> !> Lower and upper wavenumber of all bands !> (upper and lower wavenumber by band) = band_lims_wvn(2,band) !> pure function get_band_lims_wavenumber ( this ) class ( ty_optical_props ), intent ( in ) :: this real ( wp ), dimension ( size ( this % band_lims_wvn , 1 ), size ( this % band_lims_wvn , 2 )) & :: get_band_lims_wavenumber if ( this % is_initialized ()) then get_band_lims_wavenumber (:,:) = this % band_lims_wvn (:,:) else get_band_lims_wavenumber (:,:) = 0._wp end if end function get_band_lims_wavenumber !>-------------------------------------------------------------------------------------------------------------------- !> !> Lower and upper wavelength of all bands !> pure function get_band_lims_wavelength ( this ) class ( ty_optical_props ), intent ( in ) :: this real ( wp ), dimension ( size ( this % band_lims_wvn , 1 ), size ( this % band_lims_wvn , 2 )) & :: get_band_lims_wavelength if ( this % is_initialized ()) then get_band_lims_wavelength (:,:) = 1._wp / this % band_lims_wvn (:,:) else get_band_lims_wavelength (:,:) = 0._wp end if end function get_band_lims_wavelength !>-------------------------------------------------------------------------------------------------------------------- !> Bands for all the g-points at once !> dimension (ngpt) !> pure function get_gpoint_bands ( this ) class ( ty_optical_props ), intent ( in ) :: this integer , dimension ( size ( this % gpt2band , dim = 1 )) & :: get_gpoint_bands if ( this % is_initialized ()) then get_gpoint_bands (:) = this % gpt2band (:) else get_gpoint_bands (:) = 0 end if end function get_gpoint_bands !>-------------------------------------------------------------------------------------------------------------------- !> !> Band associated with a specific g-point !> pure function convert_gpt2band ( this , gpt ) class ( ty_optical_props ), intent ( in ) :: this integer , intent ( in ) :: gpt integer :: convert_gpt2band if ( this % is_initialized ()) then convert_gpt2band = this % gpt2band ( gpt ) else convert_gpt2band = 0 end if end function convert_gpt2band !>-------------------------------------------------------------------------------------------------------------------- !> !> Expand an array of dimension arr_in(nband) to dimension arr_out(ngpt) !> pure function expand ( this , arr_in ) result ( arr_out ) class ( ty_optical_props ), intent ( in ) :: this real ( wp ), dimension (:), intent ( in ) :: arr_in ! (nband) real ( wp ), dimension ( size ( this % gpt2band )) :: arr_out integer :: iband do iband = 1 , this % get_nband () arr_out ( this % band2gpt ( 1 , iband ): this % band2gpt ( 2 , iband )) = arr_in ( iband ) end do end function expand !>-------------------------------------------------------------------------------------------------------------------- !> !> Are the bands of two objects the same? (same number, same wavelength limits) !> pure function bands_are_equal ( this , that ) class ( ty_optical_props ), intent ( in ) :: this , that logical :: bands_are_equal bands_are_equal = this % get_nband () == that % get_nband () . and . & this % get_nband () > 0 if (. not . bands_are_equal ) return bands_are_equal = & all ( abs ( this % get_band_lims_wavenumber () - that % get_band_lims_wavenumber ()) < & 5._wp * spacing ( this % get_band_lims_wavenumber ())) end function bands_are_equal !>-------------------------------------------------------------------------------------------------------------------- !> !> Is the g-point structure of two objects the same? !>   (same bands, same number of g-points, same mapping between bands and g-points) !> pure function gpoints_are_equal ( this , that ) class ( ty_optical_props ), intent ( in ) :: this , that logical :: gpoints_are_equal gpoints_are_equal = this % bands_are_equal ( that ) . and . & this % get_ngpt () == that % get_ngpt () if (. not . gpoints_are_equal ) return gpoints_are_equal = & all ( this % get_gpoint_bands () == that % get_gpoint_bands ()) end function gpoints_are_equal !> ----------------------------------------------------------------------------------------------- !> !> --- Setting/getting the name !> !> ----------------------------------------------------------------------------------------------- subroutine set_name ( this , name ) class ( ty_optical_props ), intent ( inout ) :: this character ( len =* ), intent ( in ) :: name this % name = trim ( name ) end subroutine set_name ! -------------------------------------------------------- function get_name ( this ) class ( ty_optical_props ), intent ( in ) :: this character ( len = name_len ) :: get_name get_name = trim ( this % name ) end function get_name ! ------------------------------------------------------------------------------------------ end module mo_optical_props","tags":"","loc":"sourcefile/mo_optical_props.f90.html"},{"title":"mo_fluxes.F90 – RTE-Fortran","text":"This file depends on sourcefile~~mo_fluxes.f90~~EfferentGraph sourcefile~mo_fluxes.f90 mo_fluxes.F90 sourcefile~mo_rte_kind.f90 mo_rte_kind.F90 sourcefile~mo_fluxes.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_rte_config.f90 mo_rte_config.F90 sourcefile~mo_fluxes.f90->sourcefile~mo_rte_config.f90 sourcefile~mo_rte_util_array_validation.f90 mo_rte_util_array_validation.F90 sourcefile~mo_fluxes.f90->sourcefile~mo_rte_util_array_validation.f90 sourcefile~mo_optical_props.f90 mo_optical_props.F90 sourcefile~mo_fluxes.f90->sourcefile~mo_optical_props.f90 sourcefile~mo_rte_config.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_rte_util_array_validation.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_optical_props.f90->sourcefile~mo_rte_kind.f90 sourcefile~mo_optical_props.f90->sourcefile~mo_rte_config.f90 sourcefile~mo_optical_props.f90->sourcefile~mo_rte_util_array_validation.f90 Help × Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\n    is dependent upon another if the latter must be compiled before the former\n    can be. Files dependent on this one sourcefile~~mo_fluxes.f90~~AfferentGraph sourcefile~mo_fluxes.f90 mo_fluxes.F90 sourcefile~mo_rte_sw.f90 mo_rte_sw.F90 sourcefile~mo_rte_sw.f90->sourcefile~mo_fluxes.f90 sourcefile~mo_rte_lw.f90 mo_rte_lw.F90 sourcefile~mo_rte_lw.f90->sourcefile~mo_fluxes.f90 Help × Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules mo_fluxes Source Code mo_fluxes.F90 Source Code ! This code is part of Radiative Transfer for Energetics (RTE) ! ! Contacts: Robert Pincus and Eli Mlawer ! email:  rrtmgp@aer.com ! ! Copyright 2015-  Atmospheric and Environmental Research and ! Regents of the University of Colorado.  All right reserved. ! ! Use and duplication is permitted under the terms of the !    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause ! ------------------------------------------------------------------------------------------------- ! !> ## Compute output quantities from spectrally-resolved flux profiles !> !>    This module contains an abstract class and a broadband implmentation that sums over all spectral points !>    The abstract base class defines the routines that extenstions must implement: `reduce()` and `are_desired()` !>    The intent is for users to extend it as required, using mo_flxues_broadband as an example ! ! ------------------------------------------------------------------------------------------------- module mo_fluxes use mo_rte_kind , only : wp use mo_rte_config , only : check_extents use mo_rte_util_array_validation , only : extents_are use mo_optical_props , only : ty_optical_props use mo_fluxes_broadband_kernels , & only : sum_broadband , net_broadband implicit none private ! ----------------------------------------------------------------------------------------------- ! !> Abstract base class: !>   `reduce()` function accepts spectral flux profiles, computes desired outputs !>   `are_desired()` returns a logical ! ! ----------------------------------------------------------------------------------------------- type , abstract , public :: ty_fluxes contains procedure ( reduce_abstract ), deferred , public :: reduce procedure ( are_desired_abstract ), deferred , public :: are_desired end type ty_fluxes ! ----------------------------------------------------------------------------------------------- ! !> Class implementing broadband integration for the complete flux profile. !>   Data components are pointers so results can be written directly into memory ! ! ----------------------------------------------------------------------------------------------- type , extends ( ty_fluxes ), public :: ty_fluxes_broadband real ( wp ), dimension (:,:), pointer :: flux_up => NULL (), flux_dn => NULL () real ( wp ), dimension (:,:), pointer :: flux_net => NULL () ! Net (down - up) real ( wp ), dimension (:,:), pointer :: flux_dn_dir => NULL () ! Direct flux down contains procedure , public :: reduce => reduce_broadband procedure , public :: are_desired => are_desired_broadband end type ty_fluxes_broadband ! ----------------------------------------------------------------------------------------------- ! ----------------------------------------------------------------------------------------------- ! ! Abstract interfaces: any implemntation has to provide routines with these interfaces ! abstract interface ! ------------------- ! !> This routine takes the fully resolved calculation (detailed in spectral and vertical dimensions) and !>   computes desired outputs. Output values will normally be data components of the derived type. ! function reduce_abstract ( this , gpt_flux_up , gpt_flux_dn , spectral_disc , top_at_1 , gpt_flux_dn_dir ) result ( error_msg ) import ty_fluxes , ty_optical_props import wp class ( ty_fluxes ), intent ( inout ) :: this real ( kind = wp ), dimension (:,:,:), intent ( in ) :: gpt_flux_up ! Fluxes by gpoint [W/m2](ncol, nlay+1, ngpt) real ( kind = wp ), dimension (:,:,:), intent ( in ) :: gpt_flux_dn ! Fluxes by gpoint [W/m2](ncol, nlay+1, ngpt) class ( ty_optical_props ), intent ( in ) :: spectral_disc !< derived type with spectral information logical , intent ( in ) :: top_at_1 real ( kind = wp ), dimension (:,:,:), optional , & intent ( in ) :: gpt_flux_dn_dir ! Direct flux down character ( len = 128 ) :: error_msg end function reduce_abstract ! ------------------- ! ! This routine determines if the reduction should proceed - it's useful in ensuring !   that space has been allocated for the results, for example. ! function are_desired_abstract ( this ) import ty_fluxes class ( ty_fluxes ), intent ( in ) :: this logical :: are_desired_abstract end function are_desired_abstract ! ---------------------- end interface contains ! -------------------------------------------------------------------------------------- ! !> Broadband fluxes -- simply sum over the spectral dimension and report the whole profile ! ! -------------------------------------------------------------------------------------- function reduce_broadband ( this , gpt_flux_up , gpt_flux_dn , spectral_disc , top_at_1 , gpt_flux_dn_dir ) result ( error_msg ) class ( ty_fluxes_broadband ), intent ( inout ) :: this real ( kind = wp ), dimension (:,:,:), intent ( in ) :: gpt_flux_up ! Fluxes by gpoint [W/m2](ncol, nlay+1, ngpt) real ( kind = wp ), dimension (:,:,:), intent ( in ) :: gpt_flux_dn ! Fluxes by gpoint [W/m2](ncol, nlay+1, ngpt) class ( ty_optical_props ), intent ( in ) :: spectral_disc !< derived type with spectral information logical , intent ( in ) :: top_at_1 real ( kind = wp ), dimension (:,:,:), optional , & intent ( in ) :: gpt_flux_dn_dir ! Direct flux down character ( len = 128 ) :: error_msg ! ------ integer :: ncol , nlev , ngpt ! ------ ncol = size ( gpt_flux_up , DIM = 1 ) nlev = size ( gpt_flux_up , DIM = 2 ) ngpt = size ( gpt_flux_up , DIM = 3 ) error_msg = \"\" if ( check_extents ) then ! ! Check array sizes !  Input arrays ! if (. not . extents_are ( gpt_flux_dn , ncol , nlev , ngpt )) & error_msg = \"reduce: gpt_flux_dn array incorrectly sized\" if ( present ( gpt_flux_dn_dir )) then if (. not . extents_are ( gpt_flux_dn_dir , ncol , nlev , ngpt )) & error_msg = \"reduce: gpt_flux_dn_dir array incorrectly sized\" end if ! ! Output arrays ! if ( associated ( this % flux_up )) then if (. not . extents_are ( this % flux_up , ncol , nlev )) & error_msg = 'reduce: flux_up array incorrectly sized' end if if ( associated ( this % flux_dn )) then if (. not . extents_are ( this % flux_dn , ncol , nlev )) & error_msg = 'reduce: flux_dn array incorrectly sized' end if if ( associated ( this % flux_net )) then if (. not . extents_are ( this % flux_net , ncol , nlev )) & error_msg = 'reduce: flux_net array incorrectly sized' end if if ( associated ( this % flux_dn_dir )) then if (. not . extents_are ( this % flux_dn_dir , ncol , nlev )) & error_msg = 'reduce: flux_dn_dir array incorrectly sized' end if if ( error_msg /= \"\" ) return end if ! ! Self-consistency -- shouldn't be asking for direct beam flux if it isn't supplied ! if ( associated ( this % flux_dn_dir ) . and . . not . present ( gpt_flux_dn_dir )) then error_msg = \"reduce: requesting direct downward flux but this hasn't been supplied\" return end if ! ! Broadband fluxes - call the kernels ! if ( associated ( this % flux_up )) & call sum_broadband ( ncol , nlev , ngpt , gpt_flux_up , this % flux_up ) if ( associated ( this % flux_dn )) & call sum_broadband ( ncol , nlev , ngpt , gpt_flux_dn , this % flux_dn ) if ( associated ( this % flux_dn_dir )) & call sum_broadband ( ncol , nlev , ngpt , gpt_flux_dn_dir , this % flux_dn_dir ) if ( associated ( this % flux_net )) then ! !  Reuse down and up results if possible ! if ( associated ( this % flux_dn ) . and . associated ( this % flux_up )) then call net_broadband ( ncol , nlev , this % flux_dn , this % flux_up , this % flux_net ) else call net_broadband ( ncol , nlev , ngpt , gpt_flux_dn , gpt_flux_up , this % flux_net ) end if end if end function reduce_broadband ! -------------------------------------------------------------------------------------- ! !> Are any fluxes desired from this set of g-point fluxes? We can tell because memory will !>   be allocated for output ! ! -------------------------------------------------------------------------------------- function are_desired_broadband ( this ) class ( ty_fluxes_broadband ), intent ( in ) :: this logical :: are_desired_broadband are_desired_broadband = any ( [ associated ( this % flux_up ), & associated ( this % flux_dn ), & associated ( this % flux_dn_dir ), & associated ( this % flux_net )] ) end function are_desired_broadband ! -------------------------------------------------------------------------------------- end module mo_fluxes","tags":"","loc":"sourcefile/mo_fluxes.f90.html"}]}
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/tipuesearch/tipuesearch_set.js b/reference/rte-fortran-interface/tipuesearch/tipuesearch_set.js
new file mode 100644
index 000000000..de17a4cd0
--- /dev/null
+++ b/reference/rte-fortran-interface/tipuesearch/tipuesearch_set.js
@@ -0,0 +1,23 @@
+
+/*
+Tipue Search 4.0
+Copyright (c) 2014 Tipue
+Tipue Search is released under the MIT License
+http://www.tipue.com/search
+*/
+
+
+var tipuesearch_stop_words = ["and", "be", "by", "do", "for", "he", "how", "if", "is", "it", "my", "not", "of", "or", "the", "to", "up", "what", "when", "use", "who", "she", "my", "his", "her"];
+
+var tipuesearch_replace = {"words": [
+     {"word": "tipua", "replace_with": "tipue"},
+     {"word": "javscript", "replace_with": "javascript"}
+]};
+
+var tipuesearch_stem = {"words": [
+     {"word": "e-mail", "stem": "email"},
+     {"word": "javascript", "stem": "script"},
+     {"word": "procedure", "stem": "subroutine"},
+     {"word": "procedure", "stem": "function"}
+]};
+
diff --git a/reference/rte-fortran-interface/type/ty_fluxes.html b/reference/rte-fortran-interface/type/ty_fluxes.html
new file mode 100644
index 000000000..5549c372f
--- /dev/null
+++ b/reference/rte-fortran-interface/type/ty_fluxes.html
@@ -0,0 +1,364 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>ty_fluxes &ndash; RTE-Fortran </title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>ty_fluxes
+    <small>Derived Type</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title="<p> 4.3% of total for derived types.</p>Including implementation: 5 statements,  0.2% of total for derived types.">5 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_fluxes.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li><a href='../sourcefile/mo_fluxes.f90.html'>mo_fluxes.F90</a></li>
+     <li><a href='../module/mo_fluxes.html'>mo_fluxes</a></li>
+     <li class="active">ty_fluxes</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#boundprocs-0">Type-Bound Procedures</a></h3></div>
+  <div id="boundprocs-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_fluxes.html#boundprocedure-are_desired">are_desired</a>
+      <a class="list-group-item" href="../type/ty_fluxes.html#boundprocedure-reduce">reduce</a>
+    </div>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+      <h2>type, public, abstract :: ty_fluxes</h2>
+    <p>Abstract base class:
+  <code>reduce()</code> function accepts spectral flux profiles, computes desired outputs
+  <code>are_desired()</code> returns a logical</p>
+<br>    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Inherited by</h3>
+      </div>
+      <div class="panel-body">
+     <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: type~~ty_fluxes~~InheritedByGraph Pages: 1 -->
+<svg id="typety_fluxesInheritedByGraph" width="225pt" height="32pt"
+ viewBox="0.00 0.00 225.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~ty_fluxes~~InheritedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>type~~ty_fluxes~~InheritedByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 221,-28 221,4 -4,4"/>
+<!-- type~ty_fluxes -->
+<g id="type~~ty_fluxes~~InheritedByGraph_node1" class="node">
+<title>type~ty_fluxes</title>
+<polygon fill="none" stroke="black" points="59,-24 0,-24 0,0 59,0 59,-24"/>
+<text text-anchor="middle" x="29.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">ty_fluxes</text>
+</g>
+<!-- type~ty_fluxes_broadband -->
+<g id="type~~ty_fluxes~~InheritedByGraph_node2" class="node">
+<title>type~ty_fluxes_broadband</title>
+<g id="a_type~~ty_fluxes~~InheritedByGraph_node2"><a xlink:href=".././type/ty_fluxes_broadband.html" xlink:title="ty_fluxes_broadband">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="217,-24 95,-24 95,0 217,0 217,-24"/>
+<text text-anchor="middle" x="156" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_fluxes_broadband</text>
+</a>
+</g>
+</g>
+<!-- type~ty_fluxes_broadband&#45;&gt;type~ty_fluxes -->
+<g id="type~~ty_fluxes~~InheritedByGraph_edge1" class="edge">
+<title>type~ty_fluxes_broadband&#45;&gt;type~ty_fluxes</title>
+<path fill="none" stroke="#000000" d="M94.94,-12C86.29,-12 77.59,-12 69.5,-12"/>
+<polygon fill="#000000" stroke="#000000" points="69.27,-8.5 59.27,-12 69.27,-15.5 69.27,-8.5"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="186pt" height="32pt"
+ viewBox="0.00 0.00 185.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 181.5,-28 181.5,4 -4,4"/>
+<!-- Type -->
+<g id="node1" class="node">
+<title>Type</title>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node2" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="177.5,-24 72.5,-24 72.5,0 177.5,0 177.5,-24"/>
+<text text-anchor="middle" x="125" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a derived type to the parent type which it
+    extends. Dashed arrows point from a derived type to the other
+    types it contains as a components, with a label listing the name(s) of
+    said component(s).
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+    <br>
+
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#boundprocs-1">Type-Bound Procedures</a></h3></div>
+  <div id="boundprocs-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_fluxes.html#boundprocedure-are_desired">are_desired</a>
+      <a class="list-group-item" href="../type/ty_fluxes.html#boundprocedure-reduce">reduce</a>
+    </div>
+  </div>
+</div>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    
+    
+    
+ 
+    <section>
+    <h2>Type-Bound Procedures</h2>
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-are_desired"></span><h3>procedure(are_desired_abstract), public, deferred :: <strong>are_desired</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+            <h3>function are_desired_abstract(this)<small>Prototype</small></h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_fluxes.html'>ty_fluxes</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-reduce"></span><h3>procedure(reduce_abstract), public, deferred :: <strong>reduce</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+            <h3>function reduce_abstract(this, gpt_flux_up, gpt_flux_dn, spectral_disc, top_at_1, gpt_flux_dn_dir) result(error_msg)<small>Prototype</small></h3><p>This routine takes the fully resolved calculation (detailed in spectral and vertical dimensions) and
+  computes desired outputs. Output values will normally be data components of the derived type.</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_fluxes.html'>ty_fluxes</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:,:)</td><td>::</td>
+  <td><strong>gpt_flux_up</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:,:)</td><td>::</td>
+  <td><strong>gpt_flux_dn</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>spectral_disc</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>logical,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>top_at_1</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td>dimension(:,:,:)</td><td>::</td>
+  <td><strong>gpt_flux_dn_dir</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+    </section>
+    
+    
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/type/ty_fluxes_broadband.html b/reference/rte-fortran-interface/type/ty_fluxes_broadband.html
new file mode 100644
index 000000000..25cb98c74
--- /dev/null
+++ b/reference/rte-fortran-interface/type/ty_fluxes_broadband.html
@@ -0,0 +1,416 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>ty_fluxes_broadband &ndash; RTE-Fortran </title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>ty_fluxes_broadband
+    <small>Derived Type</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title="<p> 7.0% of total for derived types.</p>Including implementation: 60 statements,  2.5% of total for derived types.">8 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_fluxes.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li><a href='../sourcefile/mo_fluxes.f90.html'>mo_fluxes.F90</a></li>
+     <li><a href='../module/mo_fluxes.html'>mo_fluxes</a></li>
+     <li class="active">ty_fluxes_broadband</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#vars-0">Variables</a></h3></div>
+  <div id="vars-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_fluxes_broadband.html#variable-flux_dn">flux_dn</a>
+      <a class="list-group-item" href="../type/ty_fluxes_broadband.html#variable-flux_dn_dir">flux_dn_dir</a>
+      <a class="list-group-item" href="../type/ty_fluxes_broadband.html#variable-flux_net">flux_net</a>
+      <a class="list-group-item" href="../type/ty_fluxes_broadband.html#variable-flux_up">flux_up</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#boundprocs-0">Type-Bound Procedures</a></h3></div>
+  <div id="boundprocs-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_fluxes_broadband.html#boundprocedure-are_desired~2">are_desired</a>
+      <a class="list-group-item" href="../type/ty_fluxes_broadband.html#boundprocedure-reduce~2">reduce</a>
+    </div>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+      <h2>type, public, extends(<a href='../type/ty_fluxes.html'>ty_fluxes</a>) :: ty_fluxes_broadband</h2>
+    <p>Class implementing broadband integration for the complete flux profile.
+  Data components are pointers so results can be written directly into memory</p>
+<br>    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Inherits</h3>
+      </div>
+      <div class="panel-body">
+    <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: type~~ty_fluxes_broadband~~InheritsGraph Pages: 1 -->
+<svg id="typety_fluxes_broadbandInheritsGraph" width="225pt" height="32pt"
+ viewBox="0.00 0.00 225.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~ty_fluxes_broadband~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>type~~ty_fluxes_broadband~~InheritsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 221,-28 221,4 -4,4"/>
+<!-- type~ty_fluxes_broadband -->
+<g id="type~~ty_fluxes_broadband~~InheritsGraph_node1" class="node">
+<title>type~ty_fluxes_broadband</title>
+<polygon fill="none" stroke="black" points="217,-24 95,-24 95,0 217,0 217,-24"/>
+<text text-anchor="middle" x="156" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">ty_fluxes_broadband</text>
+</g>
+<!-- type~ty_fluxes -->
+<g id="type~~ty_fluxes_broadband~~InheritsGraph_node2" class="node">
+<title>type~ty_fluxes</title>
+<g id="a_type~~ty_fluxes_broadband~~InheritsGraph_node2"><a xlink:href=".././type/ty_fluxes.html" xlink:title="ty_fluxes">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="59,-24 0,-24 0,0 59,0 59,-24"/>
+<text text-anchor="middle" x="29.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_fluxes</text>
+</a>
+</g>
+</g>
+<!-- type~ty_fluxes_broadband&#45;&gt;type~ty_fluxes -->
+<g id="type~~ty_fluxes_broadband~~InheritsGraph_edge1" class="edge">
+<title>type~ty_fluxes_broadband&#45;&gt;type~ty_fluxes</title>
+<path fill="none" stroke="#000000" d="M94.94,-12C86.29,-12 77.59,-12 69.5,-12"/>
+<polygon fill="#000000" stroke="#000000" points="69.27,-8.5 59.27,-12 69.27,-15.5 69.27,-8.5"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="186pt" height="32pt"
+ viewBox="0.00 0.00 185.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 181.5,-28 181.5,4 -4,4"/>
+<!-- Type -->
+<g id="node1" class="node">
+<title>Type</title>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node2" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="177.5,-24 72.5,-24 72.5,0 177.5,0 177.5,-24"/>
+<text text-anchor="middle" x="125" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a derived type to the parent type which it
+    extends. Dashed arrows point from a derived type to the other
+    types it contains as a components, with a label listing the name(s) of
+    said component(s).
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+    <br>
+
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#vars-1">Variables</a></h3></div>
+  <div id="vars-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_fluxes_broadband.html#variable-flux_dn">flux_dn</a>
+      <a class="list-group-item" href="../type/ty_fluxes_broadband.html#variable-flux_dn_dir">flux_dn_dir</a>
+      <a class="list-group-item" href="../type/ty_fluxes_broadband.html#variable-flux_net">flux_net</a>
+      <a class="list-group-item" href="../type/ty_fluxes_broadband.html#variable-flux_up">flux_up</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#boundprocs-1">Type-Bound Procedures</a></h3></div>
+  <div id="boundprocs-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_fluxes_broadband.html#boundprocedure-are_desired~2">are_desired</a>
+      <a class="list-group-item" href="../type/ty_fluxes_broadband.html#boundprocedure-reduce~2">reduce</a>
+    </div>
+  </div>
+</div>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    <section>
+    <h2>Components</h2>
+    <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Visibility</th><th>Attributes</th><th></th><th>Name</th><th></th><th>Initial</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" id="variable-flux_dn"></span>real(kind=wp),</td>
+<td>public,</td>  <td>dimension(:,:), pointer</td><td>::</td>
+  <td><strong>flux_dn</strong></td><td>=> </td><td>NULL()</td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-flux_dn_dir"></span>real(kind=wp),</td>
+<td>public,</td>  <td>dimension(:,:), pointer</td><td>::</td>
+  <td><strong>flux_dn_dir</strong></td><td>=> </td><td>NULL()</td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-flux_net"></span>real(kind=wp),</td>
+<td>public,</td>  <td>dimension(:,:), pointer</td><td>::</td>
+  <td><strong>flux_net</strong></td><td>=> </td><td>NULL()</td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-flux_up"></span>real(kind=wp),</td>
+<td>public,</td>  <td>dimension(:,:), pointer</td><td>::</td>
+  <td><strong>flux_up</strong></td><td>=> </td><td>NULL()</td><td></td>
+</tr>
+</tbody>
+</table>
+
+    </section>
+    <br>
+    
+    
+    
+ 
+    <section>
+    <h2>Type-Bound Procedures</h2>
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-are_desired~2"></span><h3>procedure, public :: <strong>are_desired</strong>  => are_desired_broadband   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function are_desired_broadband(this)</h3><p>Are any fluxes desired from this set of g-point fluxes? We can tell because memory will
+  be allocated for output</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_fluxes_broadband.html'>ty_fluxes_broadband</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-reduce~2"></span><h3>procedure, public :: <strong>reduce</strong>  => reduce_broadband   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function reduce_broadband(this, gpt_flux_up, gpt_flux_dn, spectral_disc, top_at_1, gpt_flux_dn_dir) result(error_msg)</h3><p>Broadband fluxes -- simply sum over the spectral dimension and report the whole profile</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_fluxes_broadband.html'>ty_fluxes_broadband</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:,:)</td><td>::</td>
+  <td><strong>gpt_flux_up</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:,:)</td><td>::</td>
+  <td><strong>gpt_flux_dn</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>spectral_disc</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>logical,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>top_at_1</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td>dimension(:,:,:)</td><td>::</td>
+  <td><strong>gpt_flux_dn_dir</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+    </section>
+    
+    
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/type/ty_optical_props.html b/reference/rte-fortran-interface/type/ty_optical_props.html
new file mode 100644
index 000000000..268b5e24d
--- /dev/null
+++ b/reference/rte-fortran-interface/type/ty_optical_props.html
@@ -0,0 +1,852 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>ty_optical_props &ndash; RTE-Fortran </title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>ty_optical_props
+    <small>Derived Type</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title="<p>23.5% of total for derived types.</p>Including implementation: 256 statements, 10.5% of total for derived types.">27 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_optical_props.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li><a href='../sourcefile/mo_optical_props.f90.html'>mo_optical_props.F90</a></li>
+     <li><a href='../module/mo_optical_props.html'>mo_optical_props</a></li>
+     <li class="active">ty_optical_props</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#boundprocs-0">Type-Bound Procedures</a></h3></div>
+  <div id="boundprocs-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-bands_are_equal">bands_are_equal</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-convert_band2gpt">convert_band2gpt</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-convert_gpt2band">convert_gpt2band</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-expand">expand</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-finalize~3">finalize</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-get_band_lims_gpoint">get_band_lims_gpoint</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-get_band_lims_wavelength">get_band_lims_wavelength</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-get_band_lims_wavenumber">get_band_lims_wavenumber</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-get_gpoint_bands">get_gpoint_bands</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-get_name">get_name</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-get_nband">get_nband</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-get_ngpt">get_ngpt</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-gpoints_are_equal">gpoints_are_equal</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-init~3">init</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-is_initialized">is_initialized</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-set_name">set_name</a>
+    </div>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+      <h2>type, public :: ty_optical_props</h2>
+    <h3 id="base-class-for-optical-properties">Base class for optical properties</h3>
+<p>Describes the spectral discretization including the wavenumber limits
+  of each band (spectral region) and the mapping between g-points and bands</p>
+<br>    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Inherited by</h3>
+      </div>
+      <div class="panel-body">
+     <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: type~~ty_optical_props~~InheritedByGraph Pages: 1 -->
+<svg id="typety_optical_propsInheritedByGraph" width="427pt" height="116pt"
+ viewBox="0.00 0.00 427.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~ty_optical_props~~InheritedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
+<title>type~~ty_optical_props~~InheritedByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 423,-112 423,4 -4,4"/>
+<!-- type~ty_optical_props -->
+<g id="type~~ty_optical_props~~InheritedByGraph_node1" class="node">
+<title>type~ty_optical_props</title>
+<polygon fill="none" stroke="black" points="98,-66 0,-66 0,-42 98,-42 98,-66"/>
+<text text-anchor="middle" x="49" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">ty_optical_props</text>
+</g>
+<!-- type~ty_source_func_lw -->
+<g id="type~~ty_optical_props~~InheritedByGraph_node2" class="node">
+<title>type~ty_source_func_lw</title>
+<g id="a_type~~ty_optical_props~~InheritedByGraph_node2"><a xlink:href=".././type/ty_source_func_lw.html" xlink:title="ty_source_func_lw">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="250.5,-108 142.5,-108 142.5,-84 250.5,-84 250.5,-108"/>
+<text text-anchor="middle" x="196.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_source_func_lw</text>
+</a>
+</g>
+</g>
+<!-- type~ty_source_func_lw&#45;&gt;type~ty_optical_props -->
+<g id="type~~ty_optical_props~~InheritedByGraph_edge1" class="edge">
+<title>type~ty_source_func_lw&#45;&gt;type~ty_optical_props</title>
+<path fill="none" stroke="#000000" d="M153.81,-83.96C137.52,-79.26 118.68,-73.82 101.55,-68.88"/>
+<polygon fill="#000000" stroke="#000000" points="102.28,-65.45 91.7,-66.04 100.34,-72.17 102.28,-65.45"/>
+</g>
+<!-- type~ty_optical_props_arry -->
+<g id="type~~ty_optical_props~~InheritedByGraph_node3" class="node">
+<title>type~ty_optical_props_arry</title>
+<g id="a_type~~ty_optical_props~~InheritedByGraph_node3"><a xlink:href=".././type/ty_optical_props_arry.html" xlink:title="ty_optical_props_arry">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="259,-66 134,-66 134,-42 259,-42 259,-66"/>
+<text text-anchor="middle" x="196.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_optical_props_arry</text>
+</a>
+</g>
+</g>
+<!-- type~ty_optical_props_arry&#45;&gt;type~ty_optical_props -->
+<g id="type~~ty_optical_props~~InheritedByGraph_edge2" class="edge">
+<title>type~ty_optical_props_arry&#45;&gt;type~ty_optical_props</title>
+<path fill="none" stroke="#000000" d="M133.79,-54C125.31,-54 116.63,-54 108.22,-54"/>
+<polygon fill="#000000" stroke="#000000" points="108.12,-50.5 98.12,-54 108.12,-57.5 108.12,-50.5"/>
+</g>
+<!-- type~ty_source_func_sw -->
+<g id="type~~ty_optical_props~~InheritedByGraph_node4" class="node">
+<title>type~ty_source_func_sw</title>
+<g id="a_type~~ty_optical_props~~InheritedByGraph_node4"><a xlink:href=".././type/ty_source_func_sw.html" xlink:title="ty_source_func_sw">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="251.5,-24 141.5,-24 141.5,0 251.5,0 251.5,-24"/>
+<text text-anchor="middle" x="196.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_source_func_sw</text>
+</a>
+</g>
+</g>
+<!-- type~ty_source_func_sw&#45;&gt;type~ty_optical_props -->
+<g id="type~~ty_optical_props~~InheritedByGraph_edge3" class="edge">
+<title>type~ty_source_func_sw&#45;&gt;type~ty_optical_props</title>
+<path fill="none" stroke="#000000" d="M153.81,-24.04C137.52,-28.74 118.68,-34.18 101.55,-39.12"/>
+<polygon fill="#000000" stroke="#000000" points="100.34,-35.83 91.7,-41.96 102.28,-42.55 100.34,-35.83"/>
+</g>
+<!-- type~ty_optical_props_1scl -->
+<g id="type~~ty_optical_props~~InheritedByGraph_node5" class="node">
+<title>type~ty_optical_props_1scl</title>
+<g id="a_type~~ty_optical_props~~InheritedByGraph_node5"><a xlink:href=".././type/ty_optical_props_1scl.html" xlink:title="ty_optical_props_1scl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="419,-108 295,-108 295,-84 419,-84 419,-108"/>
+<text text-anchor="middle" x="357" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_optical_props_1scl</text>
+</a>
+</g>
+</g>
+<!-- type~ty_optical_props_1scl&#45;&gt;type~ty_optical_props_arry -->
+<g id="type~~ty_optical_props~~InheritedByGraph_edge4" class="edge">
+<title>type~ty_optical_props_1scl&#45;&gt;type~ty_optical_props_arry</title>
+<path fill="none" stroke="#000000" d="M310.58,-83.96C292.51,-79.18 271.55,-73.62 252.61,-68.6"/>
+<polygon fill="#000000" stroke="#000000" points="253.49,-65.22 242.93,-66.04 251.7,-71.98 253.49,-65.22"/>
+</g>
+<!-- type~ty_optical_props_2str -->
+<g id="type~~ty_optical_props~~InheritedByGraph_node6" class="node">
+<title>type~ty_optical_props_2str</title>
+<g id="a_type~~ty_optical_props~~InheritedByGraph_node6"><a xlink:href=".././type/ty_optical_props_2str.html" xlink:title="ty_optical_props_2str">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="419,-66 295,-66 295,-42 419,-42 419,-66"/>
+<text text-anchor="middle" x="357" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_optical_props_2str</text>
+</a>
+</g>
+</g>
+<!-- type~ty_optical_props_2str&#45;&gt;type~ty_optical_props_arry -->
+<g id="type~~ty_optical_props~~InheritedByGraph_edge5" class="edge">
+<title>type~ty_optical_props_2str&#45;&gt;type~ty_optical_props_arry</title>
+<path fill="none" stroke="#000000" d="M294.72,-54C286.42,-54 277.84,-54 269.38,-54"/>
+<polygon fill="#000000" stroke="#000000" points="269.14,-50.5 259.14,-54 269.14,-57.5 269.14,-50.5"/>
+</g>
+<!-- type~ty_optical_props_nstr -->
+<g id="type~~ty_optical_props~~InheritedByGraph_node7" class="node">
+<title>type~ty_optical_props_nstr</title>
+<g id="a_type~~ty_optical_props~~InheritedByGraph_node7"><a xlink:href=".././type/ty_optical_props_nstr.html" xlink:title="ty_optical_props_nstr">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="419,-24 295,-24 295,0 419,0 419,-24"/>
+<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_optical_props_nstr</text>
+</a>
+</g>
+</g>
+<!-- type~ty_optical_props_nstr&#45;&gt;type~ty_optical_props_arry -->
+<g id="type~~ty_optical_props~~InheritedByGraph_edge6" class="edge">
+<title>type~ty_optical_props_nstr&#45;&gt;type~ty_optical_props_arry</title>
+<path fill="none" stroke="#000000" d="M310.58,-24.04C292.51,-28.82 271.55,-34.38 252.61,-39.4"/>
+<polygon fill="#000000" stroke="#000000" points="251.7,-36.02 242.93,-41.96 253.49,-42.78 251.7,-36.02"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="186pt" height="32pt"
+ viewBox="0.00 0.00 185.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 181.5,-28 181.5,4 -4,4"/>
+<!-- Type -->
+<g id="node1" class="node">
+<title>Type</title>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node2" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="177.5,-24 72.5,-24 72.5,0 177.5,0 177.5,-24"/>
+<text text-anchor="middle" x="125" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a derived type to the parent type which it
+    extends. Dashed arrows point from a derived type to the other
+    types it contains as a components, with a label listing the name(s) of
+    said component(s).
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+    <br>
+
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#boundprocs-1">Type-Bound Procedures</a></h3></div>
+  <div id="boundprocs-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-bands_are_equal">bands_are_equal</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-convert_band2gpt">convert_band2gpt</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-convert_gpt2band">convert_gpt2band</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-expand">expand</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-finalize~3">finalize</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-get_band_lims_gpoint">get_band_lims_gpoint</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-get_band_lims_wavelength">get_band_lims_wavelength</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-get_band_lims_wavenumber">get_band_lims_wavenumber</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-get_gpoint_bands">get_gpoint_bands</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-get_name">get_name</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-get_nband">get_nband</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-get_ngpt">get_ngpt</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-gpoints_are_equal">gpoints_are_equal</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-init~3">init</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-is_initialized">is_initialized</a>
+      <a class="list-group-item" href="../type/ty_optical_props.html#boundprocedure-set_name">set_name</a>
+    </div>
+  </div>
+</div>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    
+    
+    
+ 
+    <section>
+    <h2>Type-Bound Procedures</h2>
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-bands_are_equal"></span><h3>procedure, public :: <strong>bands_are_equal</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function bands_are_equal(this, that)</h3><p>Are the bands of two objects the same? (same number, same wavelength limits)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>that</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-convert_band2gpt"></span><h3>procedure, public :: <strong>convert_band2gpt</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function convert_band2gpt(this, band)</h3><p>First and last g-point of a specific band</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>band</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer,dimension(2)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-convert_gpt2band"></span><h3>procedure, public :: <strong>convert_gpt2band</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function convert_gpt2band(this, gpt)</h3><p>Band associated with a specific g-point</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>gpt</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-expand"></span><h3>procedure, public :: <strong>expand</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function expand(this, arr_in) result(arr_out)</h3><p>Expand an array of dimension arr_in(nband) to dimension arr_out(ngpt)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:)</td><td>::</td>
+  <td><strong>arr_in</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>real(kind=wp),dimension(size(this%gpt2band))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-finalize~3"></span><h3>procedure, public :: <strong>finalize</strong>  => finalize_base   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private subroutine finalize_base(this)</h3><p>Base class: finalize (deallocate memory)</p><a href="../proc/finalize_base.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_band_lims_gpoint"></span><h3>procedure, public :: <strong>get_band_lims_gpoint</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_band_lims_gpoint(this)</h3><p>The first and last g-point of all bands at once
+ dimension (2, nbands)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer,dimension(size(this%band2gpt,dim=1), size(this%band2gpt,dim=2))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_band_lims_wavelength"></span><h3>procedure, public :: <strong>get_band_lims_wavelength</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_band_lims_wavelength(this)</h3><p>Lower and upper wavelength of all bands</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_band_lims_wavenumber"></span><h3>procedure, public :: <strong>get_band_lims_wavenumber</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_band_lims_wavenumber(this)</h3><p>Lower and upper wavenumber of all bands
+ (upper and lower wavenumber by band) = band_lims_wvn(2,band)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_gpoint_bands"></span><h3>procedure, public :: <strong>get_gpoint_bands</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_gpoint_bands(this)</h3><p>Bands for all the g-points at once
+ dimension (ngpt)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer,dimension(size(this%gpt2band,dim=1))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_name"></span><h3>procedure, public :: <strong>get_name</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function get_name(this)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=name_len)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_nband"></span><h3>procedure, public :: <strong>get_nband</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_nband(this)</h3><p>Number of bands</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_ngpt"></span><h3>procedure, public :: <strong>get_ngpt</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_ngpt(this)</h3><p>Number of g-points</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-gpoints_are_equal"></span><h3>procedure, public :: <strong>gpoints_are_equal</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function gpoints_are_equal(this, that)</h3><p>Is the g-point structure of two objects the same?
+   (same bands, same number of g-points, same mapping between bands and g-points)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>that</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-init~3"></span><h3>generic, public :: <strong>init</strong>  => init_base, init_base_from_copy   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+            <h3>private function init_base(this, band_lims_wvn, band_lims_gpt, name) result(err_message)</h3><p>Base class: Initialization
+  Values are assumed to be defined in bands a mapping between bands and g-points is provided</p><a href="../proc/init_base.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>band_lims_wvn</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>band_lims_gpt</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>character(len=*),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td></td><td>::</td>
+  <td><strong>name</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+      <li class="list-group-item">
+            <h3>private function init_base_from_copy(this, spectral_desc) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>spectral_desc</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-is_initialized"></span><h3>procedure, public :: <strong>is_initialized</strong>  => is_initialized_base   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function is_initialized_base(this)</h3><p>Base class: return true if initialized, false otherwise</p><a href="../proc/is_initialized_base.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_name"></span><h3>procedure, public :: <strong>set_name</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private subroutine set_name(this, name)</h3><p>--- Setting/getting the name</p><a href="../proc/set_name.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>character(len=*),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>name</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+
+      </li>
+  </ul>
+</div>
+
+    </section>
+    
+    
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/type/ty_optical_props_1scl.html b/reference/rte-fortran-interface/type/ty_optical_props_1scl.html
new file mode 100644
index 000000000..06f489b4b
--- /dev/null
+++ b/reference/rte-fortran-interface/type/ty_optical_props_1scl.html
@@ -0,0 +1,1170 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>ty_optical_props_1scl &ndash; RTE-Fortran </title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>ty_optical_props_1scl
+    <small>Derived Type</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title="<p> 9.6% of total for derived types.</p>Including implementation: 416 statements, 17.1% of total for derived types.">11 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_optical_props.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li><a href='../sourcefile/mo_optical_props.f90.html'>mo_optical_props.F90</a></li>
+     <li><a href='../module/mo_optical_props.html'>mo_optical_props</a></li>
+     <li class="active">ty_optical_props_1scl</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#vars-0">Variables</a></h3></div>
+  <div id="vars-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#variable-tau">tau</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#boundprocs-0">Type-Bound Procedures</a></h3></div>
+  <div id="boundprocs-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-alloc_1scl">alloc_1scl</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-bands_are_equal">bands_are_equal</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-convert_band2gpt">convert_band2gpt</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-convert_gpt2band">convert_gpt2band</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-delta_scale">delta_scale</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-expand">expand</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-finalize~3">finalize</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-finalize_1scl">finalize_1scl</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-get_band_lims_gpoint">get_band_lims_gpoint</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-get_band_lims_wavelength">get_band_lims_wavelength</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-get_band_lims_wavenumber">get_band_lims_wavenumber</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-get_gpoint_bands">get_gpoint_bands</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-get_name">get_name</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-get_nband">get_nband</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-get_ncol~3">get_ncol</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-get_ngpt">get_ngpt</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-get_nlay~2">get_nlay</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-get_subset~3">get_subset</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-gpoints_are_equal">gpoints_are_equal</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-increment">increment</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-init~4">init</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-is_initialized">is_initialized</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-set_name">set_name</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-validate~2">validate</a>
+    </div>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+      <h2>type, public, extends(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>) :: ty_optical_props_1scl</h2>
+    <p>ty_optical_props_arry represents optical properties as arrays with dimensions
+      column, height, spectral point
+  - Class 1-scalar only (extinction) optical depth
+  -  Class two-stream adds arrays for single scattering albedo ssa and
+     asymmetry parameter needed in two-stream methods
+  - Class n-stream adds arrays for single scattering albedo ssa and
+     phase function moments (index 1 = g) for use with discrete ordinate methods</p>
+<hr>
+<br>    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Inherits</h3>
+      </div>
+      <div class="panel-body">
+    <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: type~~ty_optical_props_1scl~~InheritsGraph Pages: 1 -->
+<svg id="typety_optical_props_1sclInheritsGraph" width="427pt" height="32pt"
+ viewBox="0.00 0.00 427.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~ty_optical_props_1scl~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>type~~ty_optical_props_1scl~~InheritsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 423,-28 423,4 -4,4"/>
+<!-- type~ty_optical_props_1scl -->
+<g id="type~~ty_optical_props_1scl~~InheritsGraph_node1" class="node">
+<title>type~ty_optical_props_1scl</title>
+<polygon fill="none" stroke="black" points="419,-24 295,-24 295,0 419,0 419,-24"/>
+<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">ty_optical_props_1scl</text>
+</g>
+<!-- type~ty_optical_props_arry -->
+<g id="type~~ty_optical_props_1scl~~InheritsGraph_node2" class="node">
+<title>type~ty_optical_props_arry</title>
+<g id="a_type~~ty_optical_props_1scl~~InheritsGraph_node2"><a xlink:href=".././type/ty_optical_props_arry.html" xlink:title="ty_optical_props_arry">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="259,-24 134,-24 134,0 259,0 259,-24"/>
+<text text-anchor="middle" x="196.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_optical_props_arry</text>
+</a>
+</g>
+</g>
+<!-- type~ty_optical_props_1scl&#45;&gt;type~ty_optical_props_arry -->
+<g id="type~~ty_optical_props_1scl~~InheritsGraph_edge1" class="edge">
+<title>type~ty_optical_props_1scl&#45;&gt;type~ty_optical_props_arry</title>
+<path fill="none" stroke="#000000" d="M294.72,-12C286.42,-12 277.84,-12 269.38,-12"/>
+<polygon fill="#000000" stroke="#000000" points="269.14,-8.5 259.14,-12 269.14,-15.5 269.14,-8.5"/>
+</g>
+<!-- type~ty_optical_props -->
+<g id="type~~ty_optical_props_1scl~~InheritsGraph_node3" class="node">
+<title>type~ty_optical_props</title>
+<g id="a_type~~ty_optical_props_1scl~~InheritsGraph_node3"><a xlink:href=".././type/ty_optical_props.html" xlink:title="ty_optical_props">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="98,-24 0,-24 0,0 98,0 98,-24"/>
+<text text-anchor="middle" x="49" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_optical_props</text>
+</a>
+</g>
+</g>
+<!-- type~ty_optical_props_arry&#45;&gt;type~ty_optical_props -->
+<g id="type~~ty_optical_props_1scl~~InheritsGraph_edge2" class="edge">
+<title>type~ty_optical_props_arry&#45;&gt;type~ty_optical_props</title>
+<path fill="none" stroke="#000000" d="M133.79,-12C125.31,-12 116.63,-12 108.22,-12"/>
+<polygon fill="#000000" stroke="#000000" points="108.12,-8.5 98.12,-12 108.12,-15.5 108.12,-8.5"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="186pt" height="32pt"
+ viewBox="0.00 0.00 185.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 181.5,-28 181.5,4 -4,4"/>
+<!-- Type -->
+<g id="node1" class="node">
+<title>Type</title>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node2" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="177.5,-24 72.5,-24 72.5,0 177.5,0 177.5,-24"/>
+<text text-anchor="middle" x="125" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a derived type to the parent type which it
+    extends. Dashed arrows point from a derived type to the other
+    types it contains as a components, with a label listing the name(s) of
+    said component(s).
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+    <br>
+
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#vars-1">Variables</a></h3></div>
+  <div id="vars-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#variable-tau">tau</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#boundprocs-1">Type-Bound Procedures</a></h3></div>
+  <div id="boundprocs-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-alloc_1scl">alloc_1scl</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-bands_are_equal">bands_are_equal</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-convert_band2gpt">convert_band2gpt</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-convert_gpt2band">convert_gpt2band</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-delta_scale">delta_scale</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-expand">expand</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-finalize~3">finalize</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-finalize_1scl">finalize_1scl</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-get_band_lims_gpoint">get_band_lims_gpoint</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-get_band_lims_wavelength">get_band_lims_wavelength</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-get_band_lims_wavenumber">get_band_lims_wavenumber</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-get_gpoint_bands">get_gpoint_bands</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-get_name">get_name</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-get_nband">get_nband</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-get_ncol~3">get_ncol</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-get_ngpt">get_ngpt</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-get_nlay~2">get_nlay</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-get_subset~3">get_subset</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-gpoints_are_equal">gpoints_are_equal</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-increment">increment</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-init~4">init</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-is_initialized">is_initialized</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-set_name">set_name</a>
+      <a class="list-group-item" href="../type/ty_optical_props_1scl.html#boundprocedure-validate~2">validate</a>
+    </div>
+  </div>
+</div>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    <section>
+    <h2>Components</h2>
+    <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Visibility</th><th>Attributes</th><th></th><th>Name</th><th></th><th>Initial</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" id="variable-tau"></span>real(kind=wp),</td>
+<td>public,</td>  <td>dimension(:,:,:), allocatable</td><td>::</td>
+  <td><strong>tau</strong></td><td></td><td></td><td><p>optical depth (ncol, nlay, ngpt)</p></td>
+</tr>
+</tbody>
+</table>
+
+    </section>
+    <br>
+    
+    
+    
+ 
+    <section>
+    <h2>Type-Bound Procedures</h2>
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-alloc_1scl"></span><h3>generic, public :: <strong>alloc_1scl</strong>  => alloc_only_1scl, init_and_alloc_1scl, copy_and_alloc_1scl   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+            <h3>private function alloc_only_1scl(this, ncol, nlay) result(err_message)</h3><p>Straight allocation routines</p><a href="../proc/alloc_only_1scl.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_1scl.html'>ty_optical_props_1scl</a>)</td>
+<td></td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>ncol</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>nlay</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+      <li class="list-group-item">
+            <h3>private function init_and_alloc_1scl(this, ncol, nlay, band_lims_wvn, band_lims_gpt, name) result(err_message)</h3><p>Initialization by specifying band limits and possibly g-point/band mapping</p><a href="../proc/init_and_alloc_1scl.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_1scl.html'>ty_optical_props_1scl</a>)</td>
+<td></td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>ncol</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>nlay</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>band_lims_wvn</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>band_lims_gpt</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>character(len=*),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td></td><td>::</td>
+  <td><strong>name</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+      <li class="list-group-item">
+            <h3>private function copy_and_alloc_1scl(this, ncol, nlay, spectral_desc, name) result(err_message)</h3><p>Initialization from an existing spectral discretization/ty_optical_props</p><a href="../proc/copy_and_alloc_1scl.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_1scl.html'>ty_optical_props_1scl</a>)</td>
+<td></td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>ncol</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>nlay</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>spectral_desc</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>character(len=*),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td></td><td>::</td>
+  <td><strong>name</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-bands_are_equal"></span><h3>procedure, public :: <strong>bands_are_equal</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function bands_are_equal(this, that)</h3><p>Are the bands of two objects the same? (same number, same wavelength limits)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>that</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-convert_band2gpt"></span><h3>procedure, public :: <strong>convert_band2gpt</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function convert_band2gpt(this, band)</h3><p>First and last g-point of a specific band</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>band</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer,dimension(2)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-convert_gpt2band"></span><h3>procedure, public :: <strong>convert_gpt2band</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function convert_gpt2band(this, gpt)</h3><p>Band associated with a specific g-point</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>gpt</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-delta_scale"></span><h3>procedure, public :: <strong>delta_scale</strong>  => delta_scale_1scl   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function delta_scale_1scl(this, for) result(err_message)</h3><a href="../proc/delta_scale_1scl.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_1scl.html'>ty_optical_props_1scl</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td>dimension(:,:,:)</td><td>::</td>
+  <td><strong>for</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-expand"></span><h3>procedure, public :: <strong>expand</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function expand(this, arr_in) result(arr_out)</h3><p>Expand an array of dimension arr_in(nband) to dimension arr_out(ngpt)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:)</td><td>::</td>
+  <td><strong>arr_in</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>real(kind=wp),dimension(size(this%gpt2band))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-finalize~3"></span><h3>procedure, public :: <strong>finalize</strong>  => finalize_base   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private subroutine finalize_base(this)</h3><p>Base class: finalize (deallocate memory)</p><a href="../proc/finalize_base.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-finalize_1scl"></span><h3>procedure, public :: <strong>finalize_1scl</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function finalize_1scl(this) result(err_message)</h3><p>Finalize routines</p><a href="../proc/finalize_1scl.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_1scl.html'>ty_optical_props_1scl</a>)</td>
+<td></td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_band_lims_gpoint"></span><h3>procedure, public :: <strong>get_band_lims_gpoint</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_band_lims_gpoint(this)</h3><p>The first and last g-point of all bands at once
+ dimension (2, nbands)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer,dimension(size(this%band2gpt,dim=1), size(this%band2gpt,dim=2))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_band_lims_wavelength"></span><h3>procedure, public :: <strong>get_band_lims_wavelength</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_band_lims_wavelength(this)</h3><p>Lower and upper wavelength of all bands</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_band_lims_wavenumber"></span><h3>procedure, public :: <strong>get_band_lims_wavenumber</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_band_lims_wavenumber(this)</h3><p>Lower and upper wavenumber of all bands
+ (upper and lower wavenumber by band) = band_lims_wvn(2,band)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_gpoint_bands"></span><h3>procedure, public :: <strong>get_gpoint_bands</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_gpoint_bands(this)</h3><p>Bands for all the g-points at once
+ dimension (ngpt)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer,dimension(size(this%gpt2band,dim=1))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_name"></span><h3>procedure, public :: <strong>get_name</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function get_name(this)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=name_len)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_nband"></span><h3>procedure, public :: <strong>get_nband</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_nband(this)</h3><p>Number of bands</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_ncol~3"></span><h3>procedure, public :: <strong>get_ncol</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_ncol(this)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_ngpt"></span><h3>procedure, public :: <strong>get_ngpt</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_ngpt(this)</h3><p>Number of g-points</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_nlay~2"></span><h3>procedure, public :: <strong>get_nlay</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_nlay(this)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_subset~3"></span><h3>procedure, public :: <strong>get_subset</strong>  => subset_1scl_range   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function subset_1scl_range(full, start, n, subset) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_1scl.html'>ty_optical_props_1scl</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>full</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>start</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>subset</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-gpoints_are_equal"></span><h3>procedure, public :: <strong>gpoints_are_equal</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function gpoints_are_equal(this, that)</h3><p>Is the g-point structure of two objects the same?
+   (same bands, same number of g-points, same mapping between bands and g-points)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>that</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-increment"></span><h3>procedure, public :: <strong>increment</strong>    </h3></div>
+  <div class="panel-body">
+    
+    <p>Increment another set of values</p>
+  </div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function increment(op_in, op_io) result(err_message)</h3><p>Routines for array classes: incrementing
+  a%increment(b) adds the values of a to b, changing b and leaving a untouched</p><a href="../proc/increment.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>op_in</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>op_io</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-init~4"></span><h3>generic, public :: <strong>init</strong>  => init_base, init_base_from_copy   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+            <h3>private function init_base(this, band_lims_wvn, band_lims_gpt, name) result(err_message)</h3><p>Base class: Initialization
+  Values are assumed to be defined in bands a mapping between bands and g-points is provided</p><a href="../proc/init_base.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>band_lims_wvn</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>band_lims_gpt</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>character(len=*),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td></td><td>::</td>
+  <td><strong>name</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+      <li class="list-group-item">
+            <h3>private function init_base_from_copy(this, spectral_desc) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>spectral_desc</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-is_initialized"></span><h3>procedure, public :: <strong>is_initialized</strong>  => is_initialized_base   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function is_initialized_base(this)</h3><p>Base class: return true if initialized, false otherwise</p><a href="../proc/is_initialized_base.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_name"></span><h3>procedure, public :: <strong>set_name</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private subroutine set_name(this, name)</h3><p>--- Setting/getting the name</p><a href="../proc/set_name.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>character(len=*),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>name</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-validate~2"></span><h3>procedure, public :: <strong>validate</strong>  => validate_1scalar   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function validate_1scalar(this) result(err_message)</h3><p>--- Validation</p><a href="../proc/validate_1scalar.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_1scl.html'>ty_optical_props_1scl</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+    </section>
+    
+    
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/type/ty_optical_props_2str.html b/reference/rte-fortran-interface/type/ty_optical_props_2str.html
new file mode 100644
index 000000000..1f4681c0b
--- /dev/null
+++ b/reference/rte-fortran-interface/type/ty_optical_props_2str.html
@@ -0,0 +1,1171 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>ty_optical_props_2str &ndash; RTE-Fortran </title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>ty_optical_props_2str
+    <small>Derived Type</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title="<p>11.3% of total for derived types.</p>Including implementation: 448 statements, 18.4% of total for derived types.">13 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_optical_props.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li><a href='../sourcefile/mo_optical_props.f90.html'>mo_optical_props.F90</a></li>
+     <li><a href='../module/mo_optical_props.html'>mo_optical_props</a></li>
+     <li class="active">ty_optical_props_2str</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#vars-0">Variables</a></h3></div>
+  <div id="vars-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#variable-g">g</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#variable-ssa">ssa</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#variable-tau">tau</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#boundprocs-0">Type-Bound Procedures</a></h3></div>
+  <div id="boundprocs-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-alloc_2str">alloc_2str</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-bands_are_equal">bands_are_equal</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-convert_band2gpt">convert_band2gpt</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-convert_gpt2band">convert_gpt2band</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-delta_scale~2">delta_scale</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-expand">expand</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-finalize~3">finalize</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-finalize_2str">finalize_2str</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-get_band_lims_gpoint">get_band_lims_gpoint</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-get_band_lims_wavelength">get_band_lims_wavelength</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-get_band_lims_wavenumber">get_band_lims_wavenumber</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-get_gpoint_bands">get_gpoint_bands</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-get_name">get_name</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-get_nband">get_nband</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-get_ncol~3">get_ncol</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-get_ngpt">get_ngpt</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-get_nlay~2">get_nlay</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-get_subset~4">get_subset</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-gpoints_are_equal">gpoints_are_equal</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-increment">increment</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-init~5">init</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-is_initialized">is_initialized</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-set_name">set_name</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-validate~3">validate</a>
+    </div>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+      <h2>type, public, extends(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>) :: ty_optical_props_2str</h2>
+    
+<br>    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Inherits</h3>
+      </div>
+      <div class="panel-body">
+    <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: type~~ty_optical_props_2str~~InheritsGraph Pages: 1 -->
+<svg id="typety_optical_props_2strInheritsGraph" width="427pt" height="32pt"
+ viewBox="0.00 0.00 427.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~ty_optical_props_2str~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>type~~ty_optical_props_2str~~InheritsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 423,-28 423,4 -4,4"/>
+<!-- type~ty_optical_props_2str -->
+<g id="type~~ty_optical_props_2str~~InheritsGraph_node1" class="node">
+<title>type~ty_optical_props_2str</title>
+<polygon fill="none" stroke="black" points="419,-24 295,-24 295,0 419,0 419,-24"/>
+<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">ty_optical_props_2str</text>
+</g>
+<!-- type~ty_optical_props_arry -->
+<g id="type~~ty_optical_props_2str~~InheritsGraph_node2" class="node">
+<title>type~ty_optical_props_arry</title>
+<g id="a_type~~ty_optical_props_2str~~InheritsGraph_node2"><a xlink:href=".././type/ty_optical_props_arry.html" xlink:title="ty_optical_props_arry">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="259,-24 134,-24 134,0 259,0 259,-24"/>
+<text text-anchor="middle" x="196.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_optical_props_arry</text>
+</a>
+</g>
+</g>
+<!-- type~ty_optical_props_2str&#45;&gt;type~ty_optical_props_arry -->
+<g id="type~~ty_optical_props_2str~~InheritsGraph_edge1" class="edge">
+<title>type~ty_optical_props_2str&#45;&gt;type~ty_optical_props_arry</title>
+<path fill="none" stroke="#000000" d="M294.72,-12C286.42,-12 277.84,-12 269.38,-12"/>
+<polygon fill="#000000" stroke="#000000" points="269.14,-8.5 259.14,-12 269.14,-15.5 269.14,-8.5"/>
+</g>
+<!-- type~ty_optical_props -->
+<g id="type~~ty_optical_props_2str~~InheritsGraph_node3" class="node">
+<title>type~ty_optical_props</title>
+<g id="a_type~~ty_optical_props_2str~~InheritsGraph_node3"><a xlink:href=".././type/ty_optical_props.html" xlink:title="ty_optical_props">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="98,-24 0,-24 0,0 98,0 98,-24"/>
+<text text-anchor="middle" x="49" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_optical_props</text>
+</a>
+</g>
+</g>
+<!-- type~ty_optical_props_arry&#45;&gt;type~ty_optical_props -->
+<g id="type~~ty_optical_props_2str~~InheritsGraph_edge2" class="edge">
+<title>type~ty_optical_props_arry&#45;&gt;type~ty_optical_props</title>
+<path fill="none" stroke="#000000" d="M133.79,-12C125.31,-12 116.63,-12 108.22,-12"/>
+<polygon fill="#000000" stroke="#000000" points="108.12,-8.5 98.12,-12 108.12,-15.5 108.12,-8.5"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="186pt" height="32pt"
+ viewBox="0.00 0.00 185.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 181.5,-28 181.5,4 -4,4"/>
+<!-- Type -->
+<g id="node1" class="node">
+<title>Type</title>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node2" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="177.5,-24 72.5,-24 72.5,0 177.5,0 177.5,-24"/>
+<text text-anchor="middle" x="125" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a derived type to the parent type which it
+    extends. Dashed arrows point from a derived type to the other
+    types it contains as a components, with a label listing the name(s) of
+    said component(s).
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+    <br>
+
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#vars-1">Variables</a></h3></div>
+  <div id="vars-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#variable-g">g</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#variable-ssa">ssa</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#variable-tau">tau</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#boundprocs-1">Type-Bound Procedures</a></h3></div>
+  <div id="boundprocs-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-alloc_2str">alloc_2str</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-bands_are_equal">bands_are_equal</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-convert_band2gpt">convert_band2gpt</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-convert_gpt2band">convert_gpt2band</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-delta_scale~2">delta_scale</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-expand">expand</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-finalize~3">finalize</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-finalize_2str">finalize_2str</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-get_band_lims_gpoint">get_band_lims_gpoint</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-get_band_lims_wavelength">get_band_lims_wavelength</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-get_band_lims_wavenumber">get_band_lims_wavenumber</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-get_gpoint_bands">get_gpoint_bands</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-get_name">get_name</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-get_nband">get_nband</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-get_ncol~3">get_ncol</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-get_ngpt">get_ngpt</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-get_nlay~2">get_nlay</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-get_subset~4">get_subset</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-gpoints_are_equal">gpoints_are_equal</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-increment">increment</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-init~5">init</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-is_initialized">is_initialized</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-set_name">set_name</a>
+      <a class="list-group-item" href="../type/ty_optical_props_2str.html#boundprocedure-validate~3">validate</a>
+    </div>
+  </div>
+</div>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    <section>
+    <h2>Components</h2>
+    <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Visibility</th><th>Attributes</th><th></th><th>Name</th><th></th><th>Initial</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" id="variable-g"></span>real(kind=wp),</td>
+<td>public,</td>  <td>dimension(:,:,:), allocatable</td><td>::</td>
+  <td><strong>g</strong></td><td></td><td></td><td><p>asymmetry parameter (ncol, nlay, ngpt)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-ssa"></span>real(kind=wp),</td>
+<td>public,</td>  <td>dimension(:,:,:), allocatable</td><td>::</td>
+  <td><strong>ssa</strong></td><td></td><td></td><td><p>single-scattering albedo (ncol, nlay, ngpt)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-tau"></span>real(kind=wp),</td>
+<td>public,</td>  <td>dimension(:,:,:), allocatable</td><td>::</td>
+  <td><strong>tau</strong></td><td></td><td></td><td><p>optical depth (ncol, nlay, ngpt)</p></td>
+</tr>
+</tbody>
+</table>
+
+    </section>
+    <br>
+    
+    
+    
+ 
+    <section>
+    <h2>Type-Bound Procedures</h2>
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-alloc_2str"></span><h3>generic, public :: <strong>alloc_2str</strong>  => alloc_only_2str, init_and_alloc_2str, copy_and_alloc_2str   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+            <h3>private function alloc_only_2str(this, ncol, nlay) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_2str.html'>ty_optical_props_2str</a>)</td>
+<td></td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>ncol</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>nlay</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+      <li class="list-group-item">
+            <h3>private function init_and_alloc_2str(this, ncol, nlay, band_lims_wvn, band_lims_gpt, name) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_2str.html'>ty_optical_props_2str</a>)</td>
+<td></td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>ncol</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>nlay</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>band_lims_wvn</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>band_lims_gpt</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>character(len=*),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td></td><td>::</td>
+  <td><strong>name</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+      <li class="list-group-item">
+            <h3>private function copy_and_alloc_2str(this, ncol, nlay, spectral_desc, name) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_2str.html'>ty_optical_props_2str</a>)</td>
+<td></td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>ncol</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>nlay</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>spectral_desc</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>character(len=*),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td></td><td>::</td>
+  <td><strong>name</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-bands_are_equal"></span><h3>procedure, public :: <strong>bands_are_equal</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function bands_are_equal(this, that)</h3><p>Are the bands of two objects the same? (same number, same wavelength limits)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>that</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-convert_band2gpt"></span><h3>procedure, public :: <strong>convert_band2gpt</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function convert_band2gpt(this, band)</h3><p>First and last g-point of a specific band</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>band</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer,dimension(2)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-convert_gpt2band"></span><h3>procedure, public :: <strong>convert_gpt2band</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function convert_gpt2band(this, gpt)</h3><p>Band associated with a specific g-point</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>gpt</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-delta_scale~2"></span><h3>procedure, public :: <strong>delta_scale</strong>  => delta_scale_2str   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function delta_scale_2str(this, for) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_2str.html'>ty_optical_props_2str</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td>dimension(:,:,:)</td><td>::</td>
+  <td><strong>for</strong></td><td><p>Forward scattering fraction; g**2 if not provided</p></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-expand"></span><h3>procedure, public :: <strong>expand</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function expand(this, arr_in) result(arr_out)</h3><p>Expand an array of dimension arr_in(nband) to dimension arr_out(ngpt)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:)</td><td>::</td>
+  <td><strong>arr_in</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>real(kind=wp),dimension(size(this%gpt2band))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-finalize~3"></span><h3>procedure, public :: <strong>finalize</strong>  => finalize_base   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private subroutine finalize_base(this)</h3><p>Base class: finalize (deallocate memory)</p><a href="../proc/finalize_base.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-finalize_2str"></span><h3>procedure, public :: <strong>finalize_2str</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function finalize_2str(this) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_2str.html'>ty_optical_props_2str</a>)</td>
+<td></td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_band_lims_gpoint"></span><h3>procedure, public :: <strong>get_band_lims_gpoint</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_band_lims_gpoint(this)</h3><p>The first and last g-point of all bands at once
+ dimension (2, nbands)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer,dimension(size(this%band2gpt,dim=1), size(this%band2gpt,dim=2))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_band_lims_wavelength"></span><h3>procedure, public :: <strong>get_band_lims_wavelength</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_band_lims_wavelength(this)</h3><p>Lower and upper wavelength of all bands</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_band_lims_wavenumber"></span><h3>procedure, public :: <strong>get_band_lims_wavenumber</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_band_lims_wavenumber(this)</h3><p>Lower and upper wavenumber of all bands
+ (upper and lower wavenumber by band) = band_lims_wvn(2,band)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_gpoint_bands"></span><h3>procedure, public :: <strong>get_gpoint_bands</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_gpoint_bands(this)</h3><p>Bands for all the g-points at once
+ dimension (ngpt)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer,dimension(size(this%gpt2band,dim=1))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_name"></span><h3>procedure, public :: <strong>get_name</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function get_name(this)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=name_len)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_nband"></span><h3>procedure, public :: <strong>get_nband</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_nband(this)</h3><p>Number of bands</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_ncol~3"></span><h3>procedure, public :: <strong>get_ncol</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_ncol(this)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_ngpt"></span><h3>procedure, public :: <strong>get_ngpt</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_ngpt(this)</h3><p>Number of g-points</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_nlay~2"></span><h3>procedure, public :: <strong>get_nlay</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_nlay(this)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_subset~4"></span><h3>procedure, public :: <strong>get_subset</strong>  => subset_2str_range   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function subset_2str_range(full, start, n, subset) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_2str.html'>ty_optical_props_2str</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>full</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>start</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>subset</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-gpoints_are_equal"></span><h3>procedure, public :: <strong>gpoints_are_equal</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function gpoints_are_equal(this, that)</h3><p>Is the g-point structure of two objects the same?
+   (same bands, same number of g-points, same mapping between bands and g-points)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>that</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-increment"></span><h3>procedure, public :: <strong>increment</strong>    </h3></div>
+  <div class="panel-body">
+    
+    <p>Increment another set of values</p>
+  </div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function increment(op_in, op_io) result(err_message)</h3><p>Routines for array classes: incrementing
+  a%increment(b) adds the values of a to b, changing b and leaving a untouched</p><a href="../proc/increment.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>op_in</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>op_io</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-init~5"></span><h3>generic, public :: <strong>init</strong>  => init_base, init_base_from_copy   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+            <h3>private function init_base(this, band_lims_wvn, band_lims_gpt, name) result(err_message)</h3><p>Base class: Initialization
+  Values are assumed to be defined in bands a mapping between bands and g-points is provided</p><a href="../proc/init_base.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>band_lims_wvn</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>band_lims_gpt</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>character(len=*),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td></td><td>::</td>
+  <td><strong>name</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+      <li class="list-group-item">
+            <h3>private function init_base_from_copy(this, spectral_desc) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>spectral_desc</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-is_initialized"></span><h3>procedure, public :: <strong>is_initialized</strong>  => is_initialized_base   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function is_initialized_base(this)</h3><p>Base class: return true if initialized, false otherwise</p><a href="../proc/is_initialized_base.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_name"></span><h3>procedure, public :: <strong>set_name</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private subroutine set_name(this, name)</h3><p>--- Setting/getting the name</p><a href="../proc/set_name.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>character(len=*),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>name</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-validate~3"></span><h3>procedure, public :: <strong>validate</strong>  => validate_2stream   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function validate_2stream(this) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_2str.html'>ty_optical_props_2str</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+    </section>
+    
+    
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/type/ty_optical_props_arry.html b/reference/rte-fortran-interface/type/ty_optical_props_arry.html
new file mode 100644
index 000000000..97748586d
--- /dev/null
+++ b/reference/rte-fortran-interface/type/ty_optical_props_arry.html
@@ -0,0 +1,1107 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>ty_optical_props_arry &ndash; RTE-Fortran </title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>ty_optical_props_arry
+    <small>Derived Type</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title="<p> 8.7% of total for derived types.</p>Including implementation: 267 statements, 11.0% of total for derived types.">10 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_optical_props.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li><a href='../sourcefile/mo_optical_props.f90.html'>mo_optical_props.F90</a></li>
+     <li><a href='../module/mo_optical_props.html'>mo_optical_props</a></li>
+     <li class="active">ty_optical_props_arry</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#vars-0">Variables</a></h3></div>
+  <div id="vars-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#variable-tau">tau</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#boundprocs-0">Type-Bound Procedures</a></h3></div>
+  <div id="boundprocs-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-bands_are_equal">bands_are_equal</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-convert_band2gpt">convert_band2gpt</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-convert_gpt2band">convert_gpt2band</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-delta_scale~3">delta_scale</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-expand">expand</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-finalize~3">finalize</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-get_band_lims_gpoint">get_band_lims_gpoint</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-get_band_lims_wavelength">get_band_lims_wavelength</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-get_band_lims_wavenumber">get_band_lims_wavenumber</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-get_gpoint_bands">get_gpoint_bands</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-get_name">get_name</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-get_nband">get_nband</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-get_ncol~3">get_ncol</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-get_ngpt">get_ngpt</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-get_nlay~2">get_nlay</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-get_subset~5">get_subset</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-gpoints_are_equal">gpoints_are_equal</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-increment">increment</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-init~6">init</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-is_initialized">is_initialized</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-set_name">set_name</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-validate">validate</a>
+    </div>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+      <h2>type, public, abstract, extends(<a href='../type/ty_optical_props.html'>ty_optical_props</a>) :: ty_optical_props_arry</h2>
+    <h3 id="optical-properties-as-arrays-normally-dimensioned-ncol-nlay-ngptnbnd">Optical properties as arrays, normally dimensioned ncol, nlay, ngpt/nbnd</h3>
+<p>The abstract base class for arrays defines what procedures will be available</p>
+<br>    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Inherits</h3>
+      </div>
+      <div class="panel-body">
+    <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: type~~ty_optical_props_arry~~InheritsGraph Pages: 1 -->
+<svg id="typety_optical_props_arryInheritsGraph" width="267pt" height="32pt"
+ viewBox="0.00 0.00 267.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~ty_optical_props_arry~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>type~~ty_optical_props_arry~~InheritsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 263,-28 263,4 -4,4"/>
+<!-- type~ty_optical_props_arry -->
+<g id="type~~ty_optical_props_arry~~InheritsGraph_node1" class="node">
+<title>type~ty_optical_props_arry</title>
+<polygon fill="none" stroke="black" points="259,-24 134,-24 134,0 259,0 259,-24"/>
+<text text-anchor="middle" x="196.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">ty_optical_props_arry</text>
+</g>
+<!-- type~ty_optical_props -->
+<g id="type~~ty_optical_props_arry~~InheritsGraph_node2" class="node">
+<title>type~ty_optical_props</title>
+<g id="a_type~~ty_optical_props_arry~~InheritsGraph_node2"><a xlink:href=".././type/ty_optical_props.html" xlink:title="ty_optical_props">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="98,-24 0,-24 0,0 98,0 98,-24"/>
+<text text-anchor="middle" x="49" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_optical_props</text>
+</a>
+</g>
+</g>
+<!-- type~ty_optical_props_arry&#45;&gt;type~ty_optical_props -->
+<g id="type~~ty_optical_props_arry~~InheritsGraph_edge1" class="edge">
+<title>type~ty_optical_props_arry&#45;&gt;type~ty_optical_props</title>
+<path fill="none" stroke="#000000" d="M133.79,-12C125.31,-12 116.63,-12 108.22,-12"/>
+<polygon fill="#000000" stroke="#000000" points="108.12,-8.5 98.12,-12 108.12,-15.5 108.12,-8.5"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="186pt" height="32pt"
+ viewBox="0.00 0.00 185.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 181.5,-28 181.5,4 -4,4"/>
+<!-- Type -->
+<g id="node1" class="node">
+<title>Type</title>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node2" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="177.5,-24 72.5,-24 72.5,0 177.5,0 177.5,-24"/>
+<text text-anchor="middle" x="125" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a derived type to the parent type which it
+    extends. Dashed arrows point from a derived type to the other
+    types it contains as a components, with a label listing the name(s) of
+    said component(s).
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Inherited by</h3>
+      </div>
+      <div class="panel-body">
+     <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: type~~ty_optical_props_arry~~InheritedByGraph Pages: 1 -->
+<svg id="typety_optical_props_arryInheritedByGraph" width="293pt" height="116pt"
+ viewBox="0.00 0.00 293.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~ty_optical_props_arry~~InheritedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
+<title>type~~ty_optical_props_arry~~InheritedByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 289,-112 289,4 -4,4"/>
+<!-- type~ty_optical_props_arry -->
+<g id="type~~ty_optical_props_arry~~InheritedByGraph_node1" class="node">
+<title>type~ty_optical_props_arry</title>
+<polygon fill="none" stroke="black" points="125,-66 0,-66 0,-42 125,-42 125,-66"/>
+<text text-anchor="middle" x="62.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">ty_optical_props_arry</text>
+</g>
+<!-- type~ty_optical_props_1scl -->
+<g id="type~~ty_optical_props_arry~~InheritedByGraph_node2" class="node">
+<title>type~ty_optical_props_1scl</title>
+<g id="a_type~~ty_optical_props_arry~~InheritedByGraph_node2"><a xlink:href=".././type/ty_optical_props_1scl.html" xlink:title="ty_optical_props_1scl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="285,-108 161,-108 161,-84 285,-84 285,-108"/>
+<text text-anchor="middle" x="223" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_optical_props_1scl</text>
+</a>
+</g>
+</g>
+<!-- type~ty_optical_props_1scl&#45;&gt;type~ty_optical_props_arry -->
+<g id="type~~ty_optical_props_arry~~InheritedByGraph_edge1" class="edge">
+<title>type~ty_optical_props_1scl&#45;&gt;type~ty_optical_props_arry</title>
+<path fill="none" stroke="#000000" d="M176.58,-83.96C158.51,-79.18 137.55,-73.62 118.61,-68.6"/>
+<polygon fill="#000000" stroke="#000000" points="119.49,-65.22 108.93,-66.04 117.7,-71.98 119.49,-65.22"/>
+</g>
+<!-- type~ty_optical_props_2str -->
+<g id="type~~ty_optical_props_arry~~InheritedByGraph_node3" class="node">
+<title>type~ty_optical_props_2str</title>
+<g id="a_type~~ty_optical_props_arry~~InheritedByGraph_node3"><a xlink:href=".././type/ty_optical_props_2str.html" xlink:title="ty_optical_props_2str">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="285,-66 161,-66 161,-42 285,-42 285,-66"/>
+<text text-anchor="middle" x="223" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_optical_props_2str</text>
+</a>
+</g>
+</g>
+<!-- type~ty_optical_props_2str&#45;&gt;type~ty_optical_props_arry -->
+<g id="type~~ty_optical_props_arry~~InheritedByGraph_edge2" class="edge">
+<title>type~ty_optical_props_2str&#45;&gt;type~ty_optical_props_arry</title>
+<path fill="none" stroke="#000000" d="M160.72,-54C152.42,-54 143.84,-54 135.38,-54"/>
+<polygon fill="#000000" stroke="#000000" points="135.14,-50.5 125.14,-54 135.14,-57.5 135.14,-50.5"/>
+</g>
+<!-- type~ty_optical_props_nstr -->
+<g id="type~~ty_optical_props_arry~~InheritedByGraph_node4" class="node">
+<title>type~ty_optical_props_nstr</title>
+<g id="a_type~~ty_optical_props_arry~~InheritedByGraph_node4"><a xlink:href=".././type/ty_optical_props_nstr.html" xlink:title="ty_optical_props_nstr">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="285,-24 161,-24 161,0 285,0 285,-24"/>
+<text text-anchor="middle" x="223" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_optical_props_nstr</text>
+</a>
+</g>
+</g>
+<!-- type~ty_optical_props_nstr&#45;&gt;type~ty_optical_props_arry -->
+<g id="type~~ty_optical_props_arry~~InheritedByGraph_edge3" class="edge">
+<title>type~ty_optical_props_nstr&#45;&gt;type~ty_optical_props_arry</title>
+<path fill="none" stroke="#000000" d="M176.58,-24.04C158.51,-28.82 137.55,-34.38 118.61,-39.4"/>
+<polygon fill="#000000" stroke="#000000" points="117.7,-36.02 108.93,-41.96 119.49,-42.78 117.7,-36.02"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="186pt" height="32pt"
+ viewBox="0.00 0.00 185.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 181.5,-28 181.5,4 -4,4"/>
+<!-- Type -->
+<g id="node1" class="node">
+<title>Type</title>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node2" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="177.5,-24 72.5,-24 72.5,0 177.5,0 177.5,-24"/>
+<text text-anchor="middle" x="125" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a derived type to the parent type which it
+    extends. Dashed arrows point from a derived type to the other
+    types it contains as a components, with a label listing the name(s) of
+    said component(s).
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+    <br>
+
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#vars-1">Variables</a></h3></div>
+  <div id="vars-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#variable-tau">tau</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#boundprocs-1">Type-Bound Procedures</a></h3></div>
+  <div id="boundprocs-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-bands_are_equal">bands_are_equal</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-convert_band2gpt">convert_band2gpt</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-convert_gpt2band">convert_gpt2band</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-delta_scale~3">delta_scale</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-expand">expand</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-finalize~3">finalize</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-get_band_lims_gpoint">get_band_lims_gpoint</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-get_band_lims_wavelength">get_band_lims_wavelength</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-get_band_lims_wavenumber">get_band_lims_wavenumber</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-get_gpoint_bands">get_gpoint_bands</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-get_name">get_name</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-get_nband">get_nband</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-get_ncol~3">get_ncol</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-get_ngpt">get_ngpt</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-get_nlay~2">get_nlay</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-get_subset~5">get_subset</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-gpoints_are_equal">gpoints_are_equal</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-increment">increment</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-init~6">init</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-is_initialized">is_initialized</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-set_name">set_name</a>
+      <a class="list-group-item" href="../type/ty_optical_props_arry.html#boundprocedure-validate">validate</a>
+    </div>
+  </div>
+</div>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    <section>
+    <h2>Components</h2>
+    <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Visibility</th><th>Attributes</th><th></th><th>Name</th><th></th><th>Initial</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" id="variable-tau"></span>real(kind=wp),</td>
+<td>public,</td>  <td>dimension(:,:,:), allocatable</td><td>::</td>
+  <td><strong>tau</strong></td><td></td><td></td><td><p>optical depth (ncol, nlay, ngpt)</p></td>
+</tr>
+</tbody>
+</table>
+
+    </section>
+    <br>
+    
+    
+    
+ 
+    <section>
+    <h2>Type-Bound Procedures</h2>
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-bands_are_equal"></span><h3>procedure, public :: <strong>bands_are_equal</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function bands_are_equal(this, that)</h3><p>Are the bands of two objects the same? (same number, same wavelength limits)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>that</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-convert_band2gpt"></span><h3>procedure, public :: <strong>convert_band2gpt</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function convert_band2gpt(this, band)</h3><p>First and last g-point of a specific band</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>band</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer,dimension(2)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-convert_gpt2band"></span><h3>procedure, public :: <strong>convert_gpt2band</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function convert_gpt2band(this, gpt)</h3><p>Band associated with a specific g-point</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>gpt</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-delta_scale~3"></span><h3>procedure(delta_scale_abstract), public, deferred :: <strong>delta_scale</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+            <h3>function delta_scale_abstract(this, for) result(err_message)<small>Prototype</small></h3><p>Delta-scaling</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td>dimension(:,:,:)</td><td>::</td>
+  <td><strong>for</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  <p>Forward scattering fraction; g**2 if not provided</p>
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-expand"></span><h3>procedure, public :: <strong>expand</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function expand(this, arr_in) result(arr_out)</h3><p>Expand an array of dimension arr_in(nband) to dimension arr_out(ngpt)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:)</td><td>::</td>
+  <td><strong>arr_in</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>real(kind=wp),dimension(size(this%gpt2band))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-finalize~3"></span><h3>procedure, public :: <strong>finalize</strong>  => finalize_base   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private subroutine finalize_base(this)</h3><p>Base class: finalize (deallocate memory)</p><a href="../proc/finalize_base.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_band_lims_gpoint"></span><h3>procedure, public :: <strong>get_band_lims_gpoint</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_band_lims_gpoint(this)</h3><p>The first and last g-point of all bands at once
+ dimension (2, nbands)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer,dimension(size(this%band2gpt,dim=1), size(this%band2gpt,dim=2))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_band_lims_wavelength"></span><h3>procedure, public :: <strong>get_band_lims_wavelength</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_band_lims_wavelength(this)</h3><p>Lower and upper wavelength of all bands</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_band_lims_wavenumber"></span><h3>procedure, public :: <strong>get_band_lims_wavenumber</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_band_lims_wavenumber(this)</h3><p>Lower and upper wavenumber of all bands
+ (upper and lower wavenumber by band) = band_lims_wvn(2,band)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_gpoint_bands"></span><h3>procedure, public :: <strong>get_gpoint_bands</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_gpoint_bands(this)</h3><p>Bands for all the g-points at once
+ dimension (ngpt)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer,dimension(size(this%gpt2band,dim=1))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_name"></span><h3>procedure, public :: <strong>get_name</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function get_name(this)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=name_len)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_nband"></span><h3>procedure, public :: <strong>get_nband</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_nband(this)</h3><p>Number of bands</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_ncol~3"></span><h3>procedure, public :: <strong>get_ncol</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_ncol(this)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_ngpt"></span><h3>procedure, public :: <strong>get_ngpt</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_ngpt(this)</h3><p>Number of g-points</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_nlay~2"></span><h3>procedure, public :: <strong>get_nlay</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_nlay(this)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_subset~5"></span><h3>procedure(subset_range_abstract), public, deferred :: <strong>get_subset</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+            <h3>function subset_range_abstract(full, start, n, subset) result(err_message)<small>Prototype</small></h3><p>Subsetting -- currently there are only routines with start col and count</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>full</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>start</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>subset</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-gpoints_are_equal"></span><h3>procedure, public :: <strong>gpoints_are_equal</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function gpoints_are_equal(this, that)</h3><p>Is the g-point structure of two objects the same?
+   (same bands, same number of g-points, same mapping between bands and g-points)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>that</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-increment"></span><h3>procedure, public :: <strong>increment</strong>    </h3></div>
+  <div class="panel-body">
+    
+    <p>Increment another set of values</p>
+  </div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function increment(op_in, op_io) result(err_message)</h3><p>Routines for array classes: incrementing
+  a%increment(b) adds the values of a to b, changing b and leaving a untouched</p><a href="../proc/increment.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>op_in</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>op_io</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-init~6"></span><h3>generic, public :: <strong>init</strong>  => init_base, init_base_from_copy   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+            <h3>private function init_base(this, band_lims_wvn, band_lims_gpt, name) result(err_message)</h3><p>Base class: Initialization
+  Values are assumed to be defined in bands a mapping between bands and g-points is provided</p><a href="../proc/init_base.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>band_lims_wvn</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>band_lims_gpt</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>character(len=*),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td></td><td>::</td>
+  <td><strong>name</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+      <li class="list-group-item">
+            <h3>private function init_base_from_copy(this, spectral_desc) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>spectral_desc</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-is_initialized"></span><h3>procedure, public :: <strong>is_initialized</strong>  => is_initialized_base   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function is_initialized_base(this)</h3><p>Base class: return true if initialized, false otherwise</p><a href="../proc/is_initialized_base.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_name"></span><h3>procedure, public :: <strong>set_name</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private subroutine set_name(this, name)</h3><p>--- Setting/getting the name</p><a href="../proc/set_name.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>character(len=*),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>name</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-validate"></span><h3>procedure(validate_abstract), public, deferred :: <strong>validate</strong>    </h3></div>
+  <div class="panel-body">
+    
+    <p>Deferred procedures -- each must be implemented in each child class with
+  arguments following the abstract interface (defined below)</p>
+  </div>
+  <ul class="list-group">
+      <li class="list-group-item">
+            <h3>function validate_abstract(this) result(err_message)<small>Prototype</small></h3><p>Validation function looks only at internal data</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+    </section>
+    
+    
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/type/ty_optical_props_nstr.html b/reference/rte-fortran-interface/type/ty_optical_props_nstr.html
new file mode 100644
index 000000000..c19324565
--- /dev/null
+++ b/reference/rte-fortran-interface/type/ty_optical_props_nstr.html
@@ -0,0 +1,1214 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>ty_optical_props_nstr &ndash; RTE-Fortran </title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>ty_optical_props_nstr
+    <small>Derived Type</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title="<p>12.2% of total for derived types.</p>Including implementation: 435 statements, 17.9% of total for derived types.">14 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_optical_props.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li><a href='../sourcefile/mo_optical_props.f90.html'>mo_optical_props.F90</a></li>
+     <li><a href='../module/mo_optical_props.html'>mo_optical_props</a></li>
+     <li class="active">ty_optical_props_nstr</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#vars-0">Variables</a></h3></div>
+  <div id="vars-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#variable-p">p</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#variable-ssa~2">ssa</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#variable-tau">tau</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#boundprocs-0">Type-Bound Procedures</a></h3></div>
+  <div id="boundprocs-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-alloc_nstr">alloc_nstr</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-bands_are_equal">bands_are_equal</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-convert_band2gpt">convert_band2gpt</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-convert_gpt2band">convert_gpt2band</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-delta_scale~4">delta_scale</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-expand">expand</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-finalize~3">finalize</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-finalize_nstr">finalize_nstr</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-get_band_lims_gpoint">get_band_lims_gpoint</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-get_band_lims_wavelength">get_band_lims_wavelength</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-get_band_lims_wavenumber">get_band_lims_wavenumber</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-get_gpoint_bands">get_gpoint_bands</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-get_name">get_name</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-get_nband">get_nband</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-get_ncol~3">get_ncol</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-get_ngpt">get_ngpt</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-get_nlay~2">get_nlay</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-get_nmom">get_nmom</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-get_subset~6">get_subset</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-gpoints_are_equal">gpoints_are_equal</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-increment">increment</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-init~7">init</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-is_initialized">is_initialized</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-set_name">set_name</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-validate~4">validate</a>
+    </div>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+      <h2>type, public, extends(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>) :: ty_optical_props_nstr</h2>
+    
+<br>    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Inherits</h3>
+      </div>
+      <div class="panel-body">
+    <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: type~~ty_optical_props_nstr~~InheritsGraph Pages: 1 -->
+<svg id="typety_optical_props_nstrInheritsGraph" width="427pt" height="32pt"
+ viewBox="0.00 0.00 427.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~ty_optical_props_nstr~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>type~~ty_optical_props_nstr~~InheritsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 423,-28 423,4 -4,4"/>
+<!-- type~ty_optical_props_nstr -->
+<g id="type~~ty_optical_props_nstr~~InheritsGraph_node1" class="node">
+<title>type~ty_optical_props_nstr</title>
+<polygon fill="none" stroke="black" points="419,-24 295,-24 295,0 419,0 419,-24"/>
+<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">ty_optical_props_nstr</text>
+</g>
+<!-- type~ty_optical_props_arry -->
+<g id="type~~ty_optical_props_nstr~~InheritsGraph_node2" class="node">
+<title>type~ty_optical_props_arry</title>
+<g id="a_type~~ty_optical_props_nstr~~InheritsGraph_node2"><a xlink:href=".././type/ty_optical_props_arry.html" xlink:title="ty_optical_props_arry">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="259,-24 134,-24 134,0 259,0 259,-24"/>
+<text text-anchor="middle" x="196.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_optical_props_arry</text>
+</a>
+</g>
+</g>
+<!-- type~ty_optical_props_nstr&#45;&gt;type~ty_optical_props_arry -->
+<g id="type~~ty_optical_props_nstr~~InheritsGraph_edge1" class="edge">
+<title>type~ty_optical_props_nstr&#45;&gt;type~ty_optical_props_arry</title>
+<path fill="none" stroke="#000000" d="M294.72,-12C286.42,-12 277.84,-12 269.38,-12"/>
+<polygon fill="#000000" stroke="#000000" points="269.14,-8.5 259.14,-12 269.14,-15.5 269.14,-8.5"/>
+</g>
+<!-- type~ty_optical_props -->
+<g id="type~~ty_optical_props_nstr~~InheritsGraph_node3" class="node">
+<title>type~ty_optical_props</title>
+<g id="a_type~~ty_optical_props_nstr~~InheritsGraph_node3"><a xlink:href=".././type/ty_optical_props.html" xlink:title="ty_optical_props">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="98,-24 0,-24 0,0 98,0 98,-24"/>
+<text text-anchor="middle" x="49" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_optical_props</text>
+</a>
+</g>
+</g>
+<!-- type~ty_optical_props_arry&#45;&gt;type~ty_optical_props -->
+<g id="type~~ty_optical_props_nstr~~InheritsGraph_edge2" class="edge">
+<title>type~ty_optical_props_arry&#45;&gt;type~ty_optical_props</title>
+<path fill="none" stroke="#000000" d="M133.79,-12C125.31,-12 116.63,-12 108.22,-12"/>
+<polygon fill="#000000" stroke="#000000" points="108.12,-8.5 98.12,-12 108.12,-15.5 108.12,-8.5"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="186pt" height="32pt"
+ viewBox="0.00 0.00 185.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 181.5,-28 181.5,4 -4,4"/>
+<!-- Type -->
+<g id="node1" class="node">
+<title>Type</title>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node2" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="177.5,-24 72.5,-24 72.5,0 177.5,0 177.5,-24"/>
+<text text-anchor="middle" x="125" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a derived type to the parent type which it
+    extends. Dashed arrows point from a derived type to the other
+    types it contains as a components, with a label listing the name(s) of
+    said component(s).
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+    <br>
+
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#vars-1">Variables</a></h3></div>
+  <div id="vars-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#variable-p">p</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#variable-ssa~2">ssa</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#variable-tau">tau</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#boundprocs-1">Type-Bound Procedures</a></h3></div>
+  <div id="boundprocs-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-alloc_nstr">alloc_nstr</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-bands_are_equal">bands_are_equal</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-convert_band2gpt">convert_band2gpt</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-convert_gpt2band">convert_gpt2band</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-delta_scale~4">delta_scale</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-expand">expand</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-finalize~3">finalize</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-finalize_nstr">finalize_nstr</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-get_band_lims_gpoint">get_band_lims_gpoint</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-get_band_lims_wavelength">get_band_lims_wavelength</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-get_band_lims_wavenumber">get_band_lims_wavenumber</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-get_gpoint_bands">get_gpoint_bands</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-get_name">get_name</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-get_nband">get_nband</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-get_ncol~3">get_ncol</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-get_ngpt">get_ngpt</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-get_nlay~2">get_nlay</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-get_nmom">get_nmom</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-get_subset~6">get_subset</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-gpoints_are_equal">gpoints_are_equal</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-increment">increment</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-init~7">init</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-is_initialized">is_initialized</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-set_name">set_name</a>
+      <a class="list-group-item" href="../type/ty_optical_props_nstr.html#boundprocedure-validate~4">validate</a>
+    </div>
+  </div>
+</div>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    <section>
+    <h2>Components</h2>
+    <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Visibility</th><th>Attributes</th><th></th><th>Name</th><th></th><th>Initial</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" id="variable-p"></span>real(kind=wp),</td>
+<td>public,</td>  <td>dimension(:,:,:,:), allocatable</td><td>::</td>
+  <td><strong>p</strong></td><td></td><td></td><td><p>phase-function moments (nmom, ncol, nlay, ngpt)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-ssa~2"></span>real(kind=wp),</td>
+<td>public,</td>  <td>dimension(:,:,:), allocatable</td><td>::</td>
+  <td><strong>ssa</strong></td><td></td><td></td><td><p>single-scattering albedo (ncol, nlay, ngpt)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-tau"></span>real(kind=wp),</td>
+<td>public,</td>  <td>dimension(:,:,:), allocatable</td><td>::</td>
+  <td><strong>tau</strong></td><td></td><td></td><td><p>optical depth (ncol, nlay, ngpt)</p></td>
+</tr>
+</tbody>
+</table>
+
+    </section>
+    <br>
+    
+    
+    
+ 
+    <section>
+    <h2>Type-Bound Procedures</h2>
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-alloc_nstr"></span><h3>generic, public :: <strong>alloc_nstr</strong>  => alloc_only_nstr, init_and_alloc_nstr, copy_and_alloc_nstr   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+            <h3>private function alloc_only_nstr(this, nmom, ncol, nlay) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_nstr.html'>ty_optical_props_nstr</a>)</td>
+<td></td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>nmom</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>ncol</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>nlay</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+      <li class="list-group-item">
+            <h3>private function init_and_alloc_nstr(this, nmom, ncol, nlay, band_lims_wvn, band_lims_gpt, name) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_nstr.html'>ty_optical_props_nstr</a>)</td>
+<td></td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>nmom</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>ncol</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>nlay</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>band_lims_wvn</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>band_lims_gpt</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>character(len=*),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td></td><td>::</td>
+  <td><strong>name</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+      <li class="list-group-item">
+            <h3>private function copy_and_alloc_nstr(this, nmom, ncol, nlay, spectral_desc, name) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_nstr.html'>ty_optical_props_nstr</a>)</td>
+<td></td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>nmom</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>ncol</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>nlay</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>spectral_desc</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>character(len=*),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td></td><td>::</td>
+  <td><strong>name</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-bands_are_equal"></span><h3>procedure, public :: <strong>bands_are_equal</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function bands_are_equal(this, that)</h3><p>Are the bands of two objects the same? (same number, same wavelength limits)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>that</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-convert_band2gpt"></span><h3>procedure, public :: <strong>convert_band2gpt</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function convert_band2gpt(this, band)</h3><p>First and last g-point of a specific band</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>band</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer,dimension(2)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-convert_gpt2band"></span><h3>procedure, public :: <strong>convert_gpt2band</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function convert_gpt2band(this, gpt)</h3><p>Band associated with a specific g-point</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>gpt</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-delta_scale~4"></span><h3>procedure, public :: <strong>delta_scale</strong>  => delta_scale_nstr   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function delta_scale_nstr(this, for) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_nstr.html'>ty_optical_props_nstr</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td>dimension(:,:,:)</td><td>::</td>
+  <td><strong>for</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-expand"></span><h3>procedure, public :: <strong>expand</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function expand(this, arr_in) result(arr_out)</h3><p>Expand an array of dimension arr_in(nband) to dimension arr_out(ngpt)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:)</td><td>::</td>
+  <td><strong>arr_in</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>real(kind=wp),dimension(size(this%gpt2band))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-finalize~3"></span><h3>procedure, public :: <strong>finalize</strong>  => finalize_base   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private subroutine finalize_base(this)</h3><p>Base class: finalize (deallocate memory)</p><a href="../proc/finalize_base.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-finalize_nstr"></span><h3>procedure, public :: <strong>finalize_nstr</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function finalize_nstr(this) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_nstr.html'>ty_optical_props_nstr</a>)</td>
+<td></td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_band_lims_gpoint"></span><h3>procedure, public :: <strong>get_band_lims_gpoint</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_band_lims_gpoint(this)</h3><p>The first and last g-point of all bands at once
+ dimension (2, nbands)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer,dimension(size(this%band2gpt,dim=1), size(this%band2gpt,dim=2))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_band_lims_wavelength"></span><h3>procedure, public :: <strong>get_band_lims_wavelength</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_band_lims_wavelength(this)</h3><p>Lower and upper wavelength of all bands</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_band_lims_wavenumber"></span><h3>procedure, public :: <strong>get_band_lims_wavenumber</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_band_lims_wavenumber(this)</h3><p>Lower and upper wavenumber of all bands
+ (upper and lower wavenumber by band) = band_lims_wvn(2,band)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_gpoint_bands"></span><h3>procedure, public :: <strong>get_gpoint_bands</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_gpoint_bands(this)</h3><p>Bands for all the g-points at once
+ dimension (ngpt)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer,dimension(size(this%gpt2band,dim=1))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_name"></span><h3>procedure, public :: <strong>get_name</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function get_name(this)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=name_len)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_nband"></span><h3>procedure, public :: <strong>get_nband</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_nband(this)</h3><p>Number of bands</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_ncol~3"></span><h3>procedure, public :: <strong>get_ncol</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_ncol(this)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_ngpt"></span><h3>procedure, public :: <strong>get_ngpt</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_ngpt(this)</h3><p>Number of g-points</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_nlay~2"></span><h3>procedure, public :: <strong>get_nlay</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_nlay(this)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_nmom"></span><h3>procedure, public :: <strong>get_nmom</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_nmom(this)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_nstr.html'>ty_optical_props_nstr</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_subset~6"></span><h3>procedure, public :: <strong>get_subset</strong>  => subset_nstr_range   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function subset_nstr_range(full, start, n, subset) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_nstr.html'>ty_optical_props_nstr</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>full</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>start</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>subset</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-gpoints_are_equal"></span><h3>procedure, public :: <strong>gpoints_are_equal</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function gpoints_are_equal(this, that)</h3><p>Is the g-point structure of two objects the same?
+   (same bands, same number of g-points, same mapping between bands and g-points)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>that</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-increment"></span><h3>procedure, public :: <strong>increment</strong>    </h3></div>
+  <div class="panel-body">
+    
+    <p>Increment another set of values</p>
+  </div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function increment(op_in, op_io) result(err_message)</h3><p>Routines for array classes: incrementing
+  a%increment(b) adds the values of a to b, changing b and leaving a untouched</p><a href="../proc/increment.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>op_in</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_arry.html'>ty_optical_props_arry</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>op_io</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-init~7"></span><h3>generic, public :: <strong>init</strong>  => init_base, init_base_from_copy   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+            <h3>private function init_base(this, band_lims_wvn, band_lims_gpt, name) result(err_message)</h3><p>Base class: Initialization
+  Values are assumed to be defined in bands a mapping between bands and g-points is provided</p><a href="../proc/init_base.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>band_lims_wvn</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>band_lims_gpt</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>character(len=*),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td></td><td>::</td>
+  <td><strong>name</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+      <li class="list-group-item">
+            <h3>private function init_base_from_copy(this, spectral_desc) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>spectral_desc</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-is_initialized"></span><h3>procedure, public :: <strong>is_initialized</strong>  => is_initialized_base   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function is_initialized_base(this)</h3><p>Base class: return true if initialized, false otherwise</p><a href="../proc/is_initialized_base.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_name"></span><h3>procedure, public :: <strong>set_name</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private subroutine set_name(this, name)</h3><p>--- Setting/getting the name</p><a href="../proc/set_name.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>character(len=*),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>name</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-validate~4"></span><h3>procedure, public :: <strong>validate</strong>  => validate_nstream   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function validate_nstream(this) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props_nstr.html'>ty_optical_props_nstr</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+    </section>
+    
+    
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/type/ty_source_func_lw.html b/reference/rte-fortran-interface/type/ty_source_func_lw.html
new file mode 100644
index 000000000..931712ec4
--- /dev/null
+++ b/reference/rte-fortran-interface/type/ty_source_func_lw.html
@@ -0,0 +1,1025 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>ty_source_func_lw &ndash; RTE-Fortran </title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>ty_source_func_lw
+    <small>Derived Type</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title="<p>13.9% of total for derived types.</p>Including implementation: 294 statements, 12.1% of total for derived types.">16 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_source_functions.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li><a href='../sourcefile/mo_source_functions.f90.html'>mo_source_functions.F90</a></li>
+     <li><a href='../module/mo_source_functions.html'>mo_source_functions</a></li>
+     <li class="active">ty_source_func_lw</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#vars-0">Variables</a></h3></div>
+  <div id="vars-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#variable-lay_source">lay_source</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#variable-lev_source_dec">lev_source_dec</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#variable-lev_source_inc">lev_source_inc</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#variable-sfc_source">sfc_source</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#variable-sfc_source_jac">sfc_source_Jac</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#boundprocs-0">Type-Bound Procedures</a></h3></div>
+  <div id="boundprocs-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-alloc">alloc</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-bands_are_equal">bands_are_equal</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-convert_band2gpt">convert_band2gpt</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-convert_gpt2band">convert_gpt2band</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-expand">expand</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-finalize">finalize</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-get_band_lims_gpoint">get_band_lims_gpoint</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-get_band_lims_wavelength">get_band_lims_wavelength</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-get_band_lims_wavenumber">get_band_lims_wavenumber</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-get_gpoint_bands">get_gpoint_bands</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-get_name">get_name</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-get_nband">get_nband</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-get_ncol">get_ncol</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-get_ngpt">get_ngpt</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-get_nlay">get_nlay</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-get_subset">get_subset</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-gpoints_are_equal">gpoints_are_equal</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-init">init</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-is_allocated">is_allocated</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-is_initialized">is_initialized</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-set_name">set_name</a>
+    </div>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+      <h2>type, public, extends(<a href='../type/ty_optical_props.html'>ty_optical_props</a>) :: ty_source_func_lw</h2>
+    <p>Type representing Planck source functions in <script type="math/tex">W/m^2</script>
+  computed at layer center, at layer edges using
+  spectral mapping in each direction separately, and at the surface</p>
+<br>    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Inherits</h3>
+      </div>
+      <div class="panel-body">
+    <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: type~~ty_source_func_lw~~InheritsGraph Pages: 1 -->
+<svg id="typety_source_func_lwInheritsGraph" width="250pt" height="32pt"
+ viewBox="0.00 0.00 250.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~ty_source_func_lw~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>type~~ty_source_func_lw~~InheritsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 246,-28 246,4 -4,4"/>
+<!-- type~ty_source_func_lw -->
+<g id="type~~ty_source_func_lw~~InheritsGraph_node1" class="node">
+<title>type~ty_source_func_lw</title>
+<polygon fill="none" stroke="black" points="242,-24 134,-24 134,0 242,0 242,-24"/>
+<text text-anchor="middle" x="188" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">ty_source_func_lw</text>
+</g>
+<!-- type~ty_optical_props -->
+<g id="type~~ty_source_func_lw~~InheritsGraph_node2" class="node">
+<title>type~ty_optical_props</title>
+<g id="a_type~~ty_source_func_lw~~InheritsGraph_node2"><a xlink:href=".././type/ty_optical_props.html" xlink:title="ty_optical_props">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="98,-24 0,-24 0,0 98,0 98,-24"/>
+<text text-anchor="middle" x="49" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_optical_props</text>
+</a>
+</g>
+</g>
+<!-- type~ty_source_func_lw&#45;&gt;type~ty_optical_props -->
+<g id="type~~ty_source_func_lw~~InheritsGraph_edge1" class="edge">
+<title>type~ty_source_func_lw&#45;&gt;type~ty_optical_props</title>
+<path fill="none" stroke="#000000" d="M133.64,-12C125.31,-12 116.66,-12 108.23,-12"/>
+<polygon fill="#000000" stroke="#000000" points="108.08,-8.5 98.08,-12 108.08,-15.5 108.08,-8.5"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="186pt" height="32pt"
+ viewBox="0.00 0.00 185.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 181.5,-28 181.5,4 -4,4"/>
+<!-- Type -->
+<g id="node1" class="node">
+<title>Type</title>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node2" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="177.5,-24 72.5,-24 72.5,0 177.5,0 177.5,-24"/>
+<text text-anchor="middle" x="125" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a derived type to the parent type which it
+    extends. Dashed arrows point from a derived type to the other
+    types it contains as a components, with a label listing the name(s) of
+    said component(s).
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+    <br>
+
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#vars-1">Variables</a></h3></div>
+  <div id="vars-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#variable-lay_source">lay_source</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#variable-lev_source_dec">lev_source_dec</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#variable-lev_source_inc">lev_source_inc</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#variable-sfc_source">sfc_source</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#variable-sfc_source_jac">sfc_source_Jac</a>
+    </div>
+  </div>
+</div>
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#boundprocs-1">Type-Bound Procedures</a></h3></div>
+  <div id="boundprocs-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-alloc">alloc</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-bands_are_equal">bands_are_equal</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-convert_band2gpt">convert_band2gpt</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-convert_gpt2band">convert_gpt2band</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-expand">expand</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-finalize">finalize</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-get_band_lims_gpoint">get_band_lims_gpoint</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-get_band_lims_wavelength">get_band_lims_wavelength</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-get_band_lims_wavenumber">get_band_lims_wavenumber</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-get_gpoint_bands">get_gpoint_bands</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-get_name">get_name</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-get_nband">get_nband</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-get_ncol">get_ncol</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-get_ngpt">get_ngpt</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-get_nlay">get_nlay</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-get_subset">get_subset</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-gpoints_are_equal">gpoints_are_equal</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-init">init</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-is_allocated">is_allocated</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-is_initialized">is_initialized</a>
+      <a class="list-group-item" href="../type/ty_source_func_lw.html#boundprocedure-set_name">set_name</a>
+    </div>
+  </div>
+</div>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    <section>
+    <h2>Components</h2>
+    <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Visibility</th><th>Attributes</th><th></th><th>Name</th><th></th><th>Initial</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" id="variable-lay_source"></span>real(kind=wp),</td>
+<td>public,</td>  <td>allocatable, dimension(:,:,:)</td><td>::</td>
+  <td><strong>lay_source</strong></td><td></td><td></td><td><p>Planck source at layer average temperature (ncol, nlay, ngpt)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-lev_source_dec"></span>real(kind=wp),</td>
+<td>public,</td>  <td>allocatable, dimension(:,:,:)</td><td>::</td>
+  <td><strong>lev_source_dec</strong></td><td></td><td></td><td><p>Planck source at layer edge in decreasing ilay direction (ncol, nlay+1, ngpt)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-lev_source_inc"></span>real(kind=wp),</td>
+<td>public,</td>  <td>allocatable, dimension(:,:,:)</td><td>::</td>
+  <td><strong>lev_source_inc</strong></td><td></td><td></td><td><p>Planck source at layer edge in increasing ilay direction (ncol, nlay+1, ngpt)</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-sfc_source"></span>real(kind=wp),</td>
+<td>public,</td>  <td>allocatable, dimension(:,:  )</td><td>::</td>
+  <td><strong>sfc_source</strong></td><td></td><td></td><td><p>Planck function at surface temperature</p></td>
+</tr>
+<tr>
+  <td><span class="anchor" id="variable-sfc_source_jac"></span>real(kind=wp),</td>
+<td>public,</td>  <td>allocatable, dimension(:,:  )</td><td>::</td>
+  <td><strong>sfc_source_Jac</strong></td><td></td><td></td><td><p>surface source Jacobian</p></td>
+</tr>
+</tbody>
+</table>
+
+    </section>
+    <br>
+    
+    
+    
+ 
+    <section>
+    <h2>Type-Bound Procedures</h2>
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-alloc"></span><h3>generic, public :: <strong>alloc</strong>  => alloc_lw, copy_and_alloc_lw   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+            <h3>private function alloc_lw(this, ncol, nlay) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_source_func_lw.html'>ty_source_func_lw</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>ncol</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>nlay</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+      <li class="list-group-item">
+            <h3>private function copy_and_alloc_lw(this, ncol, nlay, spectral_desc) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_source_func_lw.html'>ty_source_func_lw</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>ncol</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>nlay</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>spectral_desc</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-bands_are_equal"></span><h3>procedure, public :: <strong>bands_are_equal</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function bands_are_equal(this, that)</h3><p>Are the bands of two objects the same? (same number, same wavelength limits)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>that</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-convert_band2gpt"></span><h3>procedure, public :: <strong>convert_band2gpt</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function convert_band2gpt(this, band)</h3><p>First and last g-point of a specific band</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>band</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer,dimension(2)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-convert_gpt2band"></span><h3>procedure, public :: <strong>convert_gpt2band</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function convert_gpt2band(this, gpt)</h3><p>Band associated with a specific g-point</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>gpt</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-expand"></span><h3>procedure, public :: <strong>expand</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function expand(this, arr_in) result(arr_out)</h3><p>Expand an array of dimension arr_in(nband) to dimension arr_out(ngpt)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:)</td><td>::</td>
+  <td><strong>arr_in</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>real(kind=wp),dimension(size(this%gpt2band))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-finalize"></span><h3>procedure, public :: <strong>finalize</strong>  => finalize_lw   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private subroutine finalize_lw(this)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_source_func_lw.html'>ty_source_func_lw</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_band_lims_gpoint"></span><h3>procedure, public :: <strong>get_band_lims_gpoint</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_band_lims_gpoint(this)</h3><p>The first and last g-point of all bands at once
+ dimension (2, nbands)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer,dimension(size(this%band2gpt,dim=1), size(this%band2gpt,dim=2))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_band_lims_wavelength"></span><h3>procedure, public :: <strong>get_band_lims_wavelength</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_band_lims_wavelength(this)</h3><p>Lower and upper wavelength of all bands</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_band_lims_wavenumber"></span><h3>procedure, public :: <strong>get_band_lims_wavenumber</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_band_lims_wavenumber(this)</h3><p>Lower and upper wavenumber of all bands
+ (upper and lower wavenumber by band) = band_lims_wvn(2,band)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_gpoint_bands"></span><h3>procedure, public :: <strong>get_gpoint_bands</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_gpoint_bands(this)</h3><p>Bands for all the g-points at once
+ dimension (ngpt)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer,dimension(size(this%gpt2band,dim=1))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_name"></span><h3>procedure, public :: <strong>get_name</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function get_name(this)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=name_len)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_nband"></span><h3>procedure, public :: <strong>get_nband</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_nband(this)</h3><p>Number of bands</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_ncol"></span><h3>procedure, public :: <strong>get_ncol</strong>  => get_ncol_lw   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_ncol_lw(this)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_source_func_lw.html'>ty_source_func_lw</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_ngpt"></span><h3>procedure, public :: <strong>get_ngpt</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_ngpt(this)</h3><p>Number of g-points</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_nlay"></span><h3>procedure, public :: <strong>get_nlay</strong>  => get_nlay_lw   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_nlay_lw(this)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_source_func_lw.html'>ty_source_func_lw</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_subset"></span><h3>procedure, public :: <strong>get_subset</strong>  => get_subset_range_lw   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function get_subset_range_lw(full, start, n, subset) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_source_func_lw.html'>ty_source_func_lw</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>full</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>start</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_source_func_lw.html'>ty_source_func_lw</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>subset</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-gpoints_are_equal"></span><h3>procedure, public :: <strong>gpoints_are_equal</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function gpoints_are_equal(this, that)</h3><p>Is the g-point structure of two objects the same?
+   (same bands, same number of g-points, same mapping between bands and g-points)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>that</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-init"></span><h3>generic, public :: <strong>init</strong>  => init_base, init_base_from_copy   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+            <h3>private function init_base(this, band_lims_wvn, band_lims_gpt, name) result(err_message)</h3><p>Base class: Initialization
+  Values are assumed to be defined in bands a mapping between bands and g-points is provided</p><a href="../proc/init_base.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>band_lims_wvn</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>band_lims_gpt</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>character(len=*),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td></td><td>::</td>
+  <td><strong>name</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+      <li class="list-group-item">
+            <h3>private function init_base_from_copy(this, spectral_desc) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>spectral_desc</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-is_allocated"></span><h3>procedure, public :: <strong>is_allocated</strong>  => is_allocated_lw   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function is_allocated_lw(this)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_source_func_lw.html'>ty_source_func_lw</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-is_initialized"></span><h3>procedure, public :: <strong>is_initialized</strong>  => is_initialized_base   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function is_initialized_base(this)</h3><p>Base class: return true if initialized, false otherwise</p><a href="../proc/is_initialized_base.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_name"></span><h3>procedure, public :: <strong>set_name</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private subroutine set_name(this, name)</h3><p>--- Setting/getting the name</p><a href="../proc/set_name.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>character(len=*),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>name</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+
+      </li>
+  </ul>
+</div>
+
+    </section>
+    
+    
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-fortran-interface/type/ty_source_func_sw.html b/reference/rte-fortran-interface/type/ty_source_func_sw.html
new file mode 100644
index 000000000..ed58da4f8
--- /dev/null
+++ b/reference/rte-fortran-interface/type/ty_source_func_sw.html
@@ -0,0 +1,927 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   <meta name="description" content="RTE describes radiation problems in planetary atmospheres and computes radiative fluxes.">
+    <meta name="author" content="The RTE+RRTTMGP consortium" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>ty_source_func_sw &ndash; RTE-Fortran </title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">RTE-Fortran </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+            <li><a href="../lists/files.html">Source Files</a></li>
+            <li><a href="../lists/modules.html">Modules</a></li>
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+                   <li><a href="../lists/types.html">Derived Types</a></li>
+       
+            </ul>
+        
+            </li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+                             <li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+          </ul>
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+  <div class="row">
+    <h1>ty_source_func_sw
+    <small>Derived Type</small>
+    </h1>
+    <div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+    <li><i class="fa fa-legal"></i> <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a></li> 
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title="<p> 9.6% of total for derived types.</p>Including implementation: 255 statements, 10.5% of total for derived types.">11 statements</a>
+     </li> 
+    <li><i class="fa fa-code"></i><a href="../src/mo_source_functions.F90"> Source File</a></li>
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+     <li><a href='../sourcefile/mo_source_functions.f90.html'>mo_source_functions.F90</a></li>
+     <li><a href='../module/mo_source_functions.html'>mo_source_functions</a></li>
+     <li class="active">ty_source_func_sw</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    <div id="sidebar">
+  <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#boundprocs-0">Type-Bound Procedures</a></h3></div>
+  <div id="boundprocs-0" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-alloc~2">alloc</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-bands_are_equal">bands_are_equal</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-convert_band2gpt">convert_band2gpt</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-convert_gpt2band">convert_gpt2band</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-expand">expand</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-finalize~2">finalize</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-get_band_lims_gpoint">get_band_lims_gpoint</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-get_band_lims_wavelength">get_band_lims_wavelength</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-get_band_lims_wavenumber">get_band_lims_wavenumber</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-get_gpoint_bands">get_gpoint_bands</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-get_name">get_name</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-get_nband">get_nband</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-get_ncol~2">get_ncol</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-get_ngpt">get_ngpt</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-get_subset~2">get_subset</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-gpoints_are_equal">gpoints_are_equal</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-init~2">init</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-is_allocated~2">is_allocated</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-is_initialized">is_initialized</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-set_name">set_name</a>
+    </div>
+  </div>
+</div>
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+      <h2>type, public, extends(<a href='../type/ty_optical_props.html'>ty_optical_props</a>) :: ty_source_func_sw</h2>
+    
+<br>    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Inherits</h3>
+      </div>
+      <div class="panel-body">
+    <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: type~~ty_source_func_sw~~InheritsGraph Pages: 1 -->
+<svg id="typety_source_func_swInheritsGraph" width="252pt" height="32pt"
+ viewBox="0.00 0.00 252.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~ty_source_func_sw~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>type~~ty_source_func_sw~~InheritsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 248,-28 248,4 -4,4"/>
+<!-- type~ty_source_func_sw -->
+<g id="type~~ty_source_func_sw~~InheritsGraph_node1" class="node">
+<title>type~ty_source_func_sw</title>
+<polygon fill="none" stroke="black" points="244,-24 134,-24 134,0 244,0 244,-24"/>
+<text text-anchor="middle" x="189" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">ty_source_func_sw</text>
+</g>
+<!-- type~ty_optical_props -->
+<g id="type~~ty_source_func_sw~~InheritsGraph_node2" class="node">
+<title>type~ty_optical_props</title>
+<g id="a_type~~ty_source_func_sw~~InheritsGraph_node2"><a xlink:href=".././type/ty_optical_props.html" xlink:title="ty_optical_props">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="98,-24 0,-24 0,0 98,0 98,-24"/>
+<text text-anchor="middle" x="49" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ty_optical_props</text>
+</a>
+</g>
+</g>
+<!-- type~ty_source_func_sw&#45;&gt;type~ty_optical_props -->
+<g id="type~~ty_source_func_sw~~InheritsGraph_edge1" class="edge">
+<title>type~ty_source_func_sw&#45;&gt;type~ty_optical_props</title>
+<path fill="none" stroke="#000000" d="M133.85,-12C125.48,-12 116.8,-12 108.34,-12"/>
+<polygon fill="#000000" stroke="#000000" points="108.16,-8.5 98.16,-12 108.16,-15.5 108.16,-8.5"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.43.0 (0)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="186pt" height="32pt"
+ viewBox="0.00 0.00 185.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 181.5,-28 181.5,4 -4,4"/>
+<!-- Type -->
+<g id="node1" class="node">
+<title>Type</title>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="54,-24 0,-24 0,0 54,0 54,-24"/>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type</text>
+</g>
+<!-- This Page&#39;s Entity -->
+<g id="node2" class="node">
+<title>This Page&#39;s Entity</title>
+<polygon fill="none" stroke="black" points="177.5,-24 72.5,-24 72.5,0 177.5,0 177.5,-24"/>
+<text text-anchor="middle" x="125" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a derived type to the parent type which it
+    extends. Dashed arrows point from a derived type to the other
+    types it contains as a components, with a label listing the name(s) of
+    said component(s).
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+    <br>
+
+    <section class="visible-xs visible-sm hidden-md">
+      <h3>Contents</h3>
+ 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#boundprocs-1">Type-Bound Procedures</a></h3></div>
+  <div id="boundprocs-1" class="panel-collapse collapse">
+    <div class="list-group">
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-alloc~2">alloc</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-bands_are_equal">bands_are_equal</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-convert_band2gpt">convert_band2gpt</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-convert_gpt2band">convert_gpt2band</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-expand">expand</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-finalize~2">finalize</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-get_band_lims_gpoint">get_band_lims_gpoint</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-get_band_lims_wavelength">get_band_lims_wavelength</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-get_band_lims_wavenumber">get_band_lims_wavenumber</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-get_gpoint_bands">get_gpoint_bands</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-get_name">get_name</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-get_nband">get_nband</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-get_ncol~2">get_ncol</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-get_ngpt">get_ngpt</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-get_subset~2">get_subset</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-gpoints_are_equal">gpoints_are_equal</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-init~2">init</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-is_allocated~2">is_allocated</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-is_initialized">is_initialized</a>
+      <a class="list-group-item" href="../type/ty_source_func_sw.html#boundprocedure-set_name">set_name</a>
+    </div>
+  </div>
+</div>
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    
+    
+    
+ 
+    <section>
+    <h2>Type-Bound Procedures</h2>
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-alloc~2"></span><h3>generic, public :: <strong>alloc</strong>  => alloc_sw, copy_and_alloc_sw   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+            <h3>private function alloc_sw(this, ncol) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_source_func_sw.html'>ty_source_func_sw</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>ncol</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+      <li class="list-group-item">
+            <h3>private function copy_and_alloc_sw(this, ncol, spectral_desc) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_source_func_sw.html'>ty_source_func_sw</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>ncol</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>spectral_desc</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-bands_are_equal"></span><h3>procedure, public :: <strong>bands_are_equal</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function bands_are_equal(this, that)</h3><p>Are the bands of two objects the same? (same number, same wavelength limits)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>that</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-convert_band2gpt"></span><h3>procedure, public :: <strong>convert_band2gpt</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function convert_band2gpt(this, band)</h3><p>First and last g-point of a specific band</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>band</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer,dimension(2)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-convert_gpt2band"></span><h3>procedure, public :: <strong>convert_gpt2band</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function convert_gpt2band(this, gpt)</h3><p>Band associated with a specific g-point</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>gpt</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-expand"></span><h3>procedure, public :: <strong>expand</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function expand(this, arr_in) result(arr_out)</h3><p>Expand an array of dimension arr_in(nband) to dimension arr_out(ngpt)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:)</td><td>::</td>
+  <td><strong>arr_in</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>real(kind=wp),dimension(size(this%gpt2band))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-finalize~2"></span><h3>procedure, public :: <strong>finalize</strong>  => finalize_sw   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private subroutine finalize_sw(this)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_source_func_sw.html'>ty_source_func_sw</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_band_lims_gpoint"></span><h3>procedure, public :: <strong>get_band_lims_gpoint</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_band_lims_gpoint(this)</h3><p>The first and last g-point of all bands at once
+ dimension (2, nbands)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer,dimension(size(this%band2gpt,dim=1), size(this%band2gpt,dim=2))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_band_lims_wavelength"></span><h3>procedure, public :: <strong>get_band_lims_wavelength</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_band_lims_wavelength(this)</h3><p>Lower and upper wavelength of all bands</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_band_lims_wavenumber"></span><h3>procedure, public :: <strong>get_band_lims_wavenumber</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_band_lims_wavenumber(this)</h3><p>Lower and upper wavenumber of all bands
+ (upper and lower wavenumber by band) = band_lims_wvn(2,band)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>real(kind=wp),dimension(size(this%band_lims_wvn,1), size(this%band_lims_wvn,2))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_gpoint_bands"></span><h3>procedure, public :: <strong>get_gpoint_bands</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_gpoint_bands(this)</h3><p>Bands for all the g-points at once
+ dimension (ngpt)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer,dimension(size(this%gpt2band,dim=1))</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_name"></span><h3>procedure, public :: <strong>get_name</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function get_name(this)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=name_len)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_nband"></span><h3>procedure, public :: <strong>get_nband</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_nband(this)</h3><p>Number of bands</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_ncol~2"></span><h3>procedure, public :: <strong>get_ncol</strong>  => get_ncol_sw   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_ncol_sw(this)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_source_func_sw.html'>ty_source_func_sw</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_ngpt"></span><h3>procedure, public :: <strong>get_ngpt</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function get_ngpt(this)</h3><p>Number of g-points</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>integer</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_subset~2"></span><h3>procedure, public :: <strong>get_subset</strong>  => get_subset_range_sw   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private function get_subset_range_sw(full, start, n, subset) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_source_func_sw.html'>ty_source_func_sw</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>full</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>start</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>n</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_source_func_sw.html'>ty_source_func_sw</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>subset</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-gpoints_are_equal"></span><h3>procedure, public :: <strong>gpoints_are_equal</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function gpoints_are_equal(this, that)</h3><p>Is the g-point structure of two objects the same?
+   (same bands, same number of g-points, same mapping between bands and g-points)</p>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>that</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-init~2"></span><h3>generic, public :: <strong>init</strong>  => init_base, init_base_from_copy   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+            <h3>private function init_base(this, band_lims_wvn, band_lims_gpt, name) result(err_message)</h3><p>Base class: Initialization
+  Values are assumed to be defined in bands a mapping between bands and g-points is provided</p><a href="../proc/init_base.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>real(kind=wp),</td>
+<td>intent(in),</td>
+  <td></td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>band_lims_wvn</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>integer,</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>band_lims_gpt</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>character(len=*),</td>
+<td>intent(in),</td>
+  <td>optional</td>  <td></td><td>::</td>
+  <td><strong>name</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+      <li class="list-group-item">
+            <h3>private function init_base_from_copy(this, spectral_desc) result(err_message)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>spectral_desc</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>character(len=128)</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-is_allocated~2"></span><h3>procedure, public :: <strong>is_allocated</strong>  => is_allocated_sw   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function is_allocated_sw(this)</h3>    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_source_func_sw.html'>ty_source_func_sw</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-is_initialized"></span><h3>procedure, public :: <strong>is_initialized</strong>  => is_initialized_base   </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private pure function is_initialized_base(this)</h3><p>Base class: return true if initialized, false otherwise</p><a href="../proc/is_initialized_base.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+<h4>Return Value <small>logical</small></h4>  
+
+      </li>
+  </ul>
+</div>
+
+     <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_name"></span><h3>procedure, public :: <strong>set_name</strong>    </h3></div>
+  <ul class="list-group">
+      <li class="list-group-item">
+          <h3>private subroutine set_name(this, name)</h3><p>--- Setting/getting the name</p><a href="../proc/set_name.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+<h4>Arguments</h4>      <table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Intent</th><th>Optional</th><th>Attributes</th><th></th><th>Name</th><th></th></thead>
+<tbody>
+<tr>
+  <td><span class="anchor" ></span>class(<a href='../type/ty_optical_props.html'>ty_optical_props</a>),</td>
+<td>intent(inout)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>this</strong></td><td></td>
+</tr>
+<tr>
+  <td><span class="anchor" ></span>character(len=*),</td>
+<td>intent(in)</td>
+  <td></td>  <td></td><td>::</td>
+  <td><strong>name</strong></td><td></td>
+</tr>
+</tbody>
+</table>
+
+
+      </li>
+  </ul>
+</div>
+
+    </section>
+    
+    
+    </div>
+  </div>
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-6"><p>RTE-Fortran was developed by The RTE+RRTTMGP consortium<br>&copy; 2023 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+</p>
+        </div>
+        <div class="col-xs-6 col-md-6">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+          </p>
+        </div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/reference/rte-kernels/index.html b/reference/rte-kernels/index.html
index 390c6317f..7c8376ce9 100644
--- a/reference/rte-kernels/index.html
+++ b/reference/rte-kernels/index.html
@@ -86,7 +86,7 @@ <h1>RTE kernels</h1>
 <p>The listings below are not exhaustive.
 To see the full listings use the links at the top of the page.
 There is a search bar in the top right.</p>
-<p>Return to the <a href="../../index.html">Documentation overview</a> or the <a href="../../reference.html">reference overview</a>.</p>
+<p>Return to the <a href="../../index.html">Documentation overview</a> or the <a href="../index.html">reference overview</a>.</p>
         </div>
         <div class="col-md-4">
 	  <div class="well">
diff --git a/reference/rte-kernels/interface/zero_array.html b/reference/rte-kernels/interface/zero_array.html
index 9d3b0e492..8d803c0d5 100644
--- a/reference/rte-kernels/interface/zero_array.html
+++ b/reference/rte-kernels/interface/zero_array.html
@@ -176,7 +176,7 @@ <h3 class="panel-title">Calls</h3>
 </g>
 </g>
 <!-- interface~zero_array&#45;&gt;proc~zero_array_3d -->
-<g id="interface~~zero_array~~CallsGraph_edge3" class="edge">
+<g id="interface~~zero_array~~CallsGraph_edge2" class="edge">
 <title>interface~zero_array&#45;&gt;proc~zero_array_3d</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M69.1,-81.24C77.23,-82.75 86.12,-84.41 94.92,-86.04"/>
 <polygon fill="#000000" stroke="#000000" points="94.29,-89.49 104.76,-87.87 95.57,-82.6 94.29,-89.49"/>
@@ -191,7 +191,7 @@ <h3 class="panel-title">Calls</h3>
 </g>
 </g>
 <!-- interface~zero_array&#45;&gt;proc~zero_array_4d -->
-<g id="interface~~zero_array~~CallsGraph_edge2" class="edge">
+<g id="interface~~zero_array~~CallsGraph_edge3" class="edge">
 <title>interface~zero_array&#45;&gt;proc~zero_array_4d</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M69.1,-68.76C77.23,-67.25 86.12,-65.59 94.92,-63.96"/>
 <polygon fill="#000000" stroke="#000000" points="95.57,-67.4 104.76,-62.13 94.29,-60.51 95.57,-67.4"/>
diff --git a/reference/rte-kernels/lists/files.html b/reference/rte-kernels/lists/files.html
index ae597dd4c..e2fdcc8df 100644
--- a/reference/rte-kernels/lists/files.html
+++ b/reference/rte-kernels/lists/files.html
@@ -96,12 +96,12 @@ <h1>Source Files</h1>
 <g id="file~~graph~~FileGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
 <title>file~~graph~~FileGraph</title>
 <polygon fill="white" stroke="transparent" points="-4,4 -4,-112 390,-112 390,4 -4,4"/>
-<!-- sourcefile~mo_rte_solver_kernels.f90 -->
+<!-- sourcefile~mo_optical_props_kernels.f90 -->
 <g id="file~~graph~~FileGraph_node1" class="node">
-<title>sourcefile~mo_rte_solver_kernels.f90</title>
-<g id="a_file~~graph~~FileGraph_node1"><a xlink:href=".././sourcefile/mo_rte_solver_kernels.f90.html" xlink:title="mo_rte_solver_kernels.F90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="154,-24 0,-24 0,0 154,0 154,-24"/>
-<text text-anchor="middle" x="77" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_solver_kernels.F90</text>
+<title>sourcefile~mo_optical_props_kernels.f90</title>
+<g id="a_file~~graph~~FileGraph_node1"><a xlink:href=".././sourcefile/mo_optical_props_kernels.f90.html" xlink:title="mo_optical_props_kernels.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="374,-24 202,-24 202,0 374,0 374,-24"/>
+<text text-anchor="middle" x="288" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props_kernels.F90</text>
 </a>
 </g>
 </g>
@@ -109,32 +109,32 @@ <h1>Source Files</h1>
 <g id="file~~graph~~FileGraph_node2" class="node">
 <title>sourcefile~mo_rte_util_array.f90</title>
 <g id="a_file~~graph~~FileGraph_node2"><a xlink:href=".././sourcefile/mo_rte_util_array.f90.html" xlink:title="mo_rte_util_array.F90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="351.5,-24 224.5,-24 224.5,0 351.5,0 351.5,-24"/>
-<text text-anchor="middle" x="288" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array.F90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="351.5,-66 224.5,-66 224.5,-42 351.5,-42 351.5,-66"/>
+<text text-anchor="middle" x="288" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array.F90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~mo_rte_solver_kernels.f90 -->
+<g id="file~~graph~~FileGraph_node3" class="node">
+<title>sourcefile~mo_rte_solver_kernels.f90</title>
+<g id="a_file~~graph~~FileGraph_node3"><a xlink:href=".././sourcefile/mo_rte_solver_kernels.f90.html" xlink:title="mo_rte_solver_kernels.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="154,-66 0,-66 0,-42 154,-42 154,-66"/>
+<text text-anchor="middle" x="77" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_solver_kernels.F90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~mo_rte_util_array.f90&#45;&gt;sourcefile~mo_rte_solver_kernels.f90 -->
 <g id="file~~graph~~FileGraph_edge1" class="edge">
 <title>sourcefile~mo_rte_util_array.f90&#45;&gt;sourcefile~mo_rte_solver_kernels.f90</title>
-<path fill="none" stroke="#000000" d="M224.29,-12C205.47,-12 184.48,-12 164.41,-12"/>
-<polygon fill="#000000" stroke="#000000" points="164.33,-8.5 154.33,-12 164.33,-15.5 164.33,-8.5"/>
+<path fill="none" stroke="#000000" d="M224.29,-54C205.47,-54 184.48,-54 164.41,-54"/>
+<polygon fill="#000000" stroke="#000000" points="164.33,-50.5 154.33,-54 164.33,-57.5 164.33,-50.5"/>
 </g>
 <!-- sourcefile~mo_fluxes_broadband_kernels.f90 -->
-<g id="file~~graph~~FileGraph_node3" class="node">
-<title>sourcefile~mo_fluxes_broadband_kernels.f90</title>
-<g id="a_file~~graph~~FileGraph_node3"><a xlink:href=".././sourcefile/mo_fluxes_broadband_kernels.f90.html" xlink:title="mo_fluxes_broadband_kernels.F90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-66 190,-66 190,-42 386,-42 386,-66"/>
-<text text-anchor="middle" x="288" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_fluxes_broadband_kernels.F90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~mo_optical_props_kernels.f90 -->
 <g id="file~~graph~~FileGraph_node4" class="node">
-<title>sourcefile~mo_optical_props_kernels.f90</title>
-<g id="a_file~~graph~~FileGraph_node4"><a xlink:href=".././sourcefile/mo_optical_props_kernels.f90.html" xlink:title="mo_optical_props_kernels.F90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="374,-108 202,-108 202,-84 374,-84 374,-108"/>
-<text text-anchor="middle" x="288" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props_kernels.F90</text>
+<title>sourcefile~mo_fluxes_broadband_kernels.f90</title>
+<g id="a_file~~graph~~FileGraph_node4"><a xlink:href=".././sourcefile/mo_fluxes_broadband_kernels.f90.html" xlink:title="mo_fluxes_broadband_kernels.F90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-108 190,-108 190,-84 386,-84 386,-108"/>
+<text text-anchor="middle" x="288" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_fluxes_broadband_kernels.F90</text>
 </a>
 </g>
 </g>
diff --git a/reference/rte-kernels/lists/modules.html b/reference/rte-kernels/lists/modules.html
index 3004fc4a3..500bcd6a9 100644
--- a/reference/rte-kernels/lists/modules.html
+++ b/reference/rte-kernels/lists/modules.html
@@ -91,109 +91,109 @@ <h1>Modules</h1>
 <!-- Generated by graphviz version 2.43.0 (0)
  -->
 <!-- Title: module~~graph~~ModuleGraph Pages: 1 -->
-<svg id="modulegraphModuleGraph" width="470pt" height="160pt"
- viewBox="0.00 0.00 470.00 159.83" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~graph~~ModuleGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 155.83)">
+<svg id="modulegraphModuleGraph" width="470pt" height="179pt"
+ viewBox="0.00 0.00 470.00 178.52" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~graph~~ModuleGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 174.52)">
 <title>module~~graph~~ModuleGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-155.83 466,-155.83 466,4 -4,4"/>
-<!-- module~mo_rte_solver_kernels -->
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-174.52 466,-174.52 466,4 -4,4"/>
+<!-- module~mo_fluxes_broadband_kernels -->
 <g id="module~~graph~~ModuleGraph_node1" class="node">
-<title>module~mo_rte_solver_kernels</title>
-<g id="a_module~~graph~~ModuleGraph_node1"><a xlink:href=".././module/mo_rte_solver_kernels.html" xlink:title="mo_rte_solver_kernels">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-43.09 330,-43.09 330,-19.09 462,-19.09 462,-43.09"/>
-<text text-anchor="middle" x="396" y="-28.69" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_solver_kernels</text>
+<title>module~mo_fluxes_broadband_kernels</title>
+<g id="a_module~~graph~~ModuleGraph_node1"><a xlink:href=".././module/mo_fluxes_broadband_kernels.html" xlink:title="mo_fluxes_broadband_kernels">
+<polygon fill="#337ab7" stroke="#337ab7" points="294,-48.52 120,-48.52 120,-24.52 294,-24.52 294,-48.52"/>
+<text text-anchor="middle" x="207" y="-34.12" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_fluxes_broadband_kernels</text>
 </a>
 </g>
 </g>
-<!-- module~mo_rte_util_array -->
-<g id="module~~graph~~ModuleGraph_node3" class="node">
-<title>module~mo_rte_util_array</title>
-<g id="a_module~~graph~~ModuleGraph_node3"><a xlink:href=".././module/mo_rte_util_array.html" xlink:title="mo_rte_util_array">
-<polygon fill="#337ab7" stroke="#337ab7" points="260,-43.09 154,-43.09 154,-19.09 260,-19.09 260,-43.09"/>
-<text text-anchor="middle" x="207" y="-28.69" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array</text>
+<!-- iso_c_binding -->
+<g id="module~~graph~~ModuleGraph_node5" class="node">
+<title>iso_c_binding</title>
+<g id="a_module~~graph~~ModuleGraph_node5"><a xlink:href="http://fortranwiki.org/fortran/show/iso_c_binding" xlink:title="iso_c_binding">
+<polygon fill="#337ab7" stroke="#337ab7" points="84,-48.52 0,-48.52 0,-24.52 84,-24.52 84,-48.52"/>
+<text text-anchor="middle" x="42" y="-34.12" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
 </a>
 </g>
 </g>
-<!-- module~mo_rte_solver_kernels&#45;&gt;module~mo_rte_util_array -->
-<g id="module~~graph~~ModuleGraph_edge2" class="edge">
-<title>module~mo_rte_solver_kernels&#45;&gt;module~mo_rte_util_array</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M329.86,-31.09C310.56,-31.09 289.48,-31.09 270.36,-31.09"/>
-<polygon fill="#000000" stroke="#000000" points="270.26,-27.59 260.26,-31.09 270.26,-34.59 270.26,-27.59"/>
+<!-- module~mo_fluxes_broadband_kernels&#45;&gt;iso_c_binding -->
+<g id="module~~graph~~ModuleGraph_edge1" class="edge">
+<title>module~mo_fluxes_broadband_kernels&#45;&gt;iso_c_binding</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M119.73,-36.52C111.03,-36.52 102.4,-36.52 94.25,-36.52"/>
+<polygon fill="#000000" stroke="#000000" points="94.2,-33.02 84.2,-36.52 94.2,-40.02 94.2,-33.02"/>
 </g>
 <!-- mo_rte_kind -->
-<g id="module~~graph~~ModuleGraph_node5" class="node">
+<g id="module~~graph~~ModuleGraph_node6" class="node">
 <title>mo_rte_kind</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="81,-64.09 3,-64.09 3,-40.09 81,-40.09 81,-64.09"/>
-<text text-anchor="middle" x="42" y="-49.69" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="81,-110.52 3,-110.52 3,-86.52 81,-86.52 81,-110.52"/>
+<text text-anchor="middle" x="42" y="-96.12" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind</text>
 </g>
-<!-- module~mo_rte_solver_kernels&#45;&gt;mo_rte_kind -->
-<g id="module~~graph~~ModuleGraph_edge1" class="edge">
-<title>module~mo_rte_solver_kernels&#45;&gt;mo_rte_kind</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M350.42,-19C295.39,-6.03 199.34,10.14 120,-10.09 101.3,-14.86 82.25,-25.2 67.78,-34.42"/>
-<polygon fill="#000000" stroke="#000000" points="65.81,-31.53 59.4,-39.96 69.67,-37.37 65.81,-31.53"/>
+<!-- module~mo_fluxes_broadband_kernels&#45;&gt;mo_rte_kind -->
+<g id="module~~graph~~ModuleGraph_edge2" class="edge">
+<title>module~mo_fluxes_broadband_kernels&#45;&gt;mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.03,-48.57C138.54,-51.14 128.9,-54.13 120,-57.52 103.17,-63.94 85.36,-73.25 71.11,-81.37"/>
+<polygon fill="#000000" stroke="#000000" points="69.18,-78.44 62.3,-86.5 72.71,-84.49 69.18,-78.44"/>
 </g>
-<!-- iso_c_binding -->
-<g id="module~~graph~~ModuleGraph_node6" class="node">
-<title>iso_c_binding</title>
-<g id="a_module~~graph~~ModuleGraph_node6"><a xlink:href="http://fortranwiki.org/fortran/show/iso_c_binding" xlink:title="iso_c_binding">
-<polygon fill="#337ab7" stroke="#337ab7" points="84,-127.09 0,-127.09 0,-103.09 84,-103.09 84,-127.09"/>
-<text text-anchor="middle" x="42" y="-112.69" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
+<!-- module~mo_optical_props_kernels -->
+<g id="module~~graph~~ModuleGraph_node2" class="node">
+<title>module~mo_optical_props_kernels</title>
+<g id="a_module~~graph~~ModuleGraph_node2"><a xlink:href=".././module/mo_optical_props_kernels.html" xlink:title="mo_optical_props_kernels">
+<polygon fill="#337ab7" stroke="#337ab7" points="282,-90.52 132,-90.52 132,-66.52 282,-66.52 282,-90.52"/>
+<text text-anchor="middle" x="207" y="-76.12" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props_kernels</text>
 </a>
 </g>
 </g>
-<!-- module~mo_rte_solver_kernels&#45;&gt;iso_c_binding -->
+<!-- module~mo_optical_props_kernels&#45;&gt;iso_c_binding -->
 <g id="module~~graph~~ModuleGraph_edge3" class="edge">
-<title>module~mo_rte_solver_kernels&#45;&gt;iso_c_binding</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.04,-43.21C373.87,-66.49 339.15,-116.88 294,-136.09 225.35,-165.31 136.71,-146.26 85.22,-130.29"/>
-<polygon fill="#000000" stroke="#000000" points="86.03,-126.88 75.44,-127.16 83.89,-133.54 86.03,-126.88"/>
-</g>
-<!-- module~mo_fluxes_broadband_kernels -->
-<g id="module~~graph~~ModuleGraph_node2" class="node">
-<title>module~mo_fluxes_broadband_kernels</title>
-<g id="a_module~~graph~~ModuleGraph_node2"><a xlink:href=".././module/mo_fluxes_broadband_kernels.html" xlink:title="mo_fluxes_broadband_kernels">
-<polygon fill="#337ab7" stroke="#337ab7" points="294,-85.09 120,-85.09 120,-61.09 294,-61.09 294,-85.09"/>
-<text text-anchor="middle" x="207" y="-70.69" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_fluxes_broadband_kernels</text>
-</a>
-</g>
+<title>module~mo_optical_props_kernels&#45;&gt;iso_c_binding</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M155.47,-66.42C143.8,-63.56 131.46,-60.48 120,-57.52 111.52,-55.33 102.53,-52.94 93.81,-50.58"/>
+<polygon fill="#000000" stroke="#000000" points="94.67,-47.19 84.11,-47.95 92.84,-53.95 94.67,-47.19"/>
 </g>
-<!-- module~mo_fluxes_broadband_kernels&#45;&gt;mo_rte_kind -->
+<!-- module~mo_optical_props_kernels&#45;&gt;mo_rte_kind -->
 <g id="module~~graph~~ModuleGraph_edge4" class="edge">
-<title>module~mo_fluxes_broadband_kernels&#45;&gt;mo_rte_kind</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M119.73,-61.98C109.85,-60.71 100.07,-59.45 90.96,-58.27"/>
-<polygon fill="#000000" stroke="#000000" points="91.37,-54.8 81,-56.99 90.47,-61.74 91.37,-54.8"/>
+<title>module~mo_optical_props_kernels&#45;&gt;mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M131.65,-87.64C118.01,-89.32 104.1,-91.03 91.46,-92.58"/>
+<polygon fill="#000000" stroke="#000000" points="90.68,-89.15 81.18,-93.84 91.53,-96.09 90.68,-89.15"/>
+</g>
+<!-- module~mo_rte_util_array -->
+<g id="module~~graph~~ModuleGraph_node3" class="node">
+<title>module~mo_rte_util_array</title>
+<g id="a_module~~graph~~ModuleGraph_node3"><a xlink:href=".././module/mo_rte_util_array.html" xlink:title="mo_rte_util_array">
+<polygon fill="#337ab7" stroke="#337ab7" points="260,-170.52 154,-170.52 154,-146.52 260,-146.52 260,-170.52"/>
+<text text-anchor="middle" x="207" y="-156.12" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array</text>
+</a>
 </g>
-<!-- module~mo_fluxes_broadband_kernels&#45;&gt;iso_c_binding -->
-<g id="module~~graph~~ModuleGraph_edge5" class="edge">
-<title>module~mo_fluxes_broadband_kernels&#45;&gt;iso_c_binding</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M155.47,-85.19C143.8,-88.05 131.46,-91.13 120,-94.09 111.52,-96.29 102.53,-98.68 93.81,-101.03"/>
-<polygon fill="#000000" stroke="#000000" points="92.84,-97.67 84.11,-103.67 94.67,-104.42 92.84,-97.67"/>
 </g>
 <!-- module~mo_rte_util_array&#45;&gt;mo_rte_kind -->
-<g id="module~~graph~~ModuleGraph_edge6" class="edge">
+<g id="module~~graph~~ModuleGraph_edge5" class="edge">
 <title>module~mo_rte_util_array&#45;&gt;mo_rte_kind</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.98,-37.8C133.83,-40.39 110.89,-43.35 91.13,-45.89"/>
-<polygon fill="#000000" stroke="#000000" points="90.58,-42.44 81.11,-47.18 91.48,-49.38 90.58,-42.44"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M162.35,-146.45C148.67,-142.37 133.6,-137.56 120,-132.52 105.89,-127.29 90.66,-120.77 77.51,-114.84"/>
+<polygon fill="#000000" stroke="#000000" points="78.89,-111.62 68.34,-110.65 75.99,-117.99 78.89,-111.62"/>
 </g>
-<!-- module~mo_optical_props_kernels -->
+<!-- module~mo_rte_solver_kernels -->
 <g id="module~~graph~~ModuleGraph_node4" class="node">
-<title>module~mo_optical_props_kernels</title>
-<g id="a_module~~graph~~ModuleGraph_node4"><a xlink:href=".././module/mo_optical_props_kernels.html" xlink:title="mo_optical_props_kernels">
-<polygon fill="#337ab7" stroke="#337ab7" points="282,-127.09 132,-127.09 132,-103.09 282,-103.09 282,-127.09"/>
-<text text-anchor="middle" x="207" y="-112.69" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_optical_props_kernels</text>
+<title>module~mo_rte_solver_kernels</title>
+<g id="a_module~~graph~~ModuleGraph_node4"><a xlink:href=".././module/mo_rte_solver_kernels.html" xlink:title="mo_rte_solver_kernels">
+<polygon fill="#337ab7" stroke="#337ab7" points="462,-130.52 330,-130.52 330,-106.52 462,-106.52 462,-130.52"/>
+<text text-anchor="middle" x="396" y="-116.12" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_solver_kernels</text>
 </a>
 </g>
 </g>
-<!-- module~mo_optical_props_kernels&#45;&gt;mo_rte_kind -->
-<g id="module~~graph~~ModuleGraph_edge7" class="edge">
-<title>module~mo_optical_props_kernels&#45;&gt;mo_rte_kind</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.54,-103C138.2,-100.44 128.74,-97.48 120,-94.09 102.99,-87.51 85.05,-77.89 70.76,-69.52"/>
-<polygon fill="#000000" stroke="#000000" points="72.33,-66.38 61.95,-64.25 68.73,-72.39 72.33,-66.38"/>
-</g>
-<!-- module~mo_optical_props_kernels&#45;&gt;iso_c_binding -->
+<!-- module~mo_rte_solver_kernels&#45;&gt;module~mo_rte_util_array -->
 <g id="module~~graph~~ModuleGraph_edge8" class="edge">
-<title>module~mo_optical_props_kernels&#45;&gt;iso_c_binding</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M131.65,-115.09C119.06,-115.09 106.23,-115.09 94.39,-115.09"/>
-<polygon fill="#000000" stroke="#000000" points="94.27,-111.59 84.27,-115.09 94.27,-118.59 94.27,-111.59"/>
+<title>module~mo_rte_solver_kernels&#45;&gt;module~mo_rte_util_array</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M338.89,-130.52C317.25,-135.15 292.4,-140.47 270.22,-145.21"/>
+<polygon fill="#000000" stroke="#000000" points="269.28,-141.84 260.23,-147.35 270.74,-148.68 269.28,-141.84"/>
+</g>
+<!-- module~mo_rte_solver_kernels&#45;&gt;iso_c_binding -->
+<g id="module~~graph~~ModuleGraph_edge6" class="edge">
+<title>module~mo_rte_solver_kernels&#45;&gt;iso_c_binding</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M387.76,-106.28C373.34,-83.28 338.57,-34.24 294,-15.52 225.4,13.29 137.1,-5.48 85.6,-21.3"/>
+<polygon fill="#000000" stroke="#000000" points="84.28,-18.05 75.81,-24.41 86.4,-24.72 84.28,-18.05"/>
+</g>
+<!-- module~mo_rte_solver_kernels&#45;&gt;mo_rte_kind -->
+<g id="module~~graph~~ModuleGraph_edge7" class="edge">
+<title>module~mo_rte_solver_kernels&#45;&gt;mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M329.62,-114.81C260.64,-110.89 153.54,-104.8 91.66,-101.29"/>
+<polygon fill="#000000" stroke="#000000" points="91.57,-97.78 81.39,-100.7 91.17,-104.76 91.57,-97.78"/>
 </g>
 </g>
 </svg>
diff --git a/reference/rte-kernels/lists/procedures.html b/reference/rte-kernels/lists/procedures.html
index b7a0d0624..7820b66bc 100644
--- a/reference/rte-kernels/lists/procedures.html
+++ b/reference/rte-kernels/lists/procedures.html
@@ -137,320 +137,305 @@ <h1>Procedures</h1>
 <!-- Generated by graphviz version 2.43.0 (0)
  -->
 <!-- Title: call~~graph~~CallGraph Pages: 1 -->
-<svg id="callgraphCallGraph" width="525pt" height="1208pt"
- viewBox="0.00 0.00 525.00 1208.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="call~~graph~~CallGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 1204)">
+<svg id="callgraphCallGraph" width="525pt" height="1082pt"
+ viewBox="0.00 0.00 525.00 1082.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="call~~graph~~CallGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 1078)">
 <title>call~~graph~~CallGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-1204 521,-1204 521,4 -4,4"/>
-<!-- interface~zero_array -->
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-1078 521,-1078 521,4 -4,4"/>
+<!-- proc~increment_nstream_by_1scalar -->
 <g id="call~~graph~~CallGraph_node1" class="node">
-<title>interface~zero_array</title>
-<g id="a_call~~graph~~CallGraph_node1"><a xlink:href=".././interface/zero_array.html" xlink:title="zero_array">
-<polygon fill="#a7506f" stroke="#a7506f" points="339.5,-87 270.5,-87 270.5,-63 339.5,-63 339.5,-87"/>
-<text text-anchor="middle" x="305" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">zero_array</text>
+<title>proc~increment_nstream_by_1scalar</title>
+<g id="a_call~~graph~~CallGraph_node1"><a xlink:href=".././proc/increment_nstream_by_1scalar.html" xlink:title="increment_nstream_by_1scalar">
+<polygon fill="#d9534f" stroke="#d9534f" points="180,-24 2,-24 2,0 180,0 180,-24"/>
+<text text-anchor="middle" x="91" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">increment_nstream_by_1scalar</text>
 </a>
 </g>
 </g>
-<!-- proc~zero_array_3d -->
-<g id="call~~graph~~CallGraph_node3" class="node">
-<title>proc~zero_array_3d</title>
-<g id="a_call~~graph~~CallGraph_node3"><a xlink:href=".././proc/zero_array_3d.html" xlink:title="zero_array_3D">
-<polygon fill="#d9534f" stroke="#d9534f" points="517,-150 428,-150 428,-126 517,-126 517,-150"/>
-<text text-anchor="middle" x="472.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">zero_array_3D</text>
+<!-- proc~inc_2stream_by_nstream_bybnd -->
+<g id="call~~graph~~CallGraph_node2" class="node">
+<title>proc~inc_2stream_by_nstream_bybnd</title>
+<g id="a_call~~graph~~CallGraph_node2"><a xlink:href=".././proc/inc_2stream_by_nstream_bybnd.html" xlink:title="inc_2stream_by_nstream_bybnd">
+<polygon fill="#d9534f" stroke="#d9534f" points="182,-66 0,-66 0,-42 182,-42 182,-66"/>
+<text text-anchor="middle" x="91" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">inc_2stream_by_nstream_bybnd</text>
 </a>
 </g>
 </g>
-<!-- interface~zero_array&#45;&gt;proc~zero_array_3d -->
-<g id="call~~graph~~CallGraph_edge3" class="edge">
-<title>interface~zero_array&#45;&gt;proc~zero_array_3d</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M337.91,-87.15C364.21,-97.16 401.69,-111.43 430.27,-122.3"/>
-<polygon fill="#000000" stroke="#000000" points="429.38,-125.71 439.97,-126 431.87,-119.17 429.38,-125.71"/>
-</g>
-<!-- proc~zero_array_4d -->
-<g id="call~~graph~~CallGraph_node6" class="node">
-<title>proc~zero_array_4d</title>
-<g id="a_call~~graph~~CallGraph_node6"><a xlink:href=".././proc/zero_array_4d.html" xlink:title="zero_array_4D">
-<polygon fill="#d9534f" stroke="#d9534f" points="517,-108 428,-108 428,-84 517,-84 517,-108"/>
-<text text-anchor="middle" x="472.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">zero_array_4D</text>
+<!-- proc~increment_2stream_by_nstream -->
+<g id="call~~graph~~CallGraph_node3" class="node">
+<title>proc~increment_2stream_by_nstream</title>
+<g id="a_call~~graph~~CallGraph_node3"><a xlink:href=".././proc/increment_2stream_by_nstream.html" xlink:title="increment_2stream_by_nstream">
+<polygon fill="#d9534f" stroke="#d9534f" points="182,-108 0,-108 0,-84 182,-84 182,-108"/>
+<text text-anchor="middle" x="91" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">increment_2stream_by_nstream</text>
 </a>
 </g>
 </g>
-<!-- interface~zero_array&#45;&gt;proc~zero_array_4d -->
-<g id="call~~graph~~CallGraph_edge2" class="edge">
-<title>interface~zero_array&#45;&gt;proc~zero_array_4d</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M339.89,-79.3C362.35,-82.15 392.29,-85.95 417.93,-89.2"/>
-<polygon fill="#000000" stroke="#000000" points="417.53,-92.68 427.89,-90.47 418.41,-85.74 417.53,-92.68"/>
+<!-- proc~inc_1scalar_by_1scalar_bybnd -->
+<g id="call~~graph~~CallGraph_node4" class="node">
+<title>proc~inc_1scalar_by_1scalar_bybnd</title>
+<g id="a_call~~graph~~CallGraph_node4"><a xlink:href=".././proc/inc_1scalar_by_1scalar_bybnd.html" xlink:title="inc_1scalar_by_1scalar_bybnd">
+<polygon fill="#d9534f" stroke="#d9534f" points="177.5,-150 4.5,-150 4.5,-126 177.5,-126 177.5,-150"/>
+<text text-anchor="middle" x="91" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">inc_1scalar_by_1scalar_bybnd</text>
+</a>
 </g>
-<!-- proc~zero_array_1d -->
-<g id="call~~graph~~CallGraph_node34" class="node">
-<title>proc~zero_array_1d</title>
-<g id="a_call~~graph~~CallGraph_node34"><a xlink:href=".././proc/zero_array_1d.html" xlink:title="zero_array_1D">
-<polygon fill="#d9534f" stroke="#d9534f" points="517,-66 428,-66 428,-42 517,-42 517,-66"/>
-<text text-anchor="middle" x="472.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">zero_array_1D</text>
+</g>
+<!-- proc~increment_nstream_by_nstream -->
+<g id="call~~graph~~CallGraph_node5" class="node">
+<title>proc~increment_nstream_by_nstream</title>
+<g id="a_call~~graph~~CallGraph_node5"><a xlink:href=".././proc/increment_nstream_by_nstream.html" xlink:title="increment_nstream_by_nstream">
+<polygon fill="#d9534f" stroke="#d9534f" points="182,-192 0,-192 0,-168 182,-168 182,-192"/>
+<text text-anchor="middle" x="91" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">increment_nstream_by_nstream</text>
 </a>
 </g>
 </g>
-<!-- interface~zero_array&#45;&gt;proc~zero_array_1d -->
-<g id="call~~graph~~CallGraph_edge1" class="edge">
-<title>interface~zero_array&#45;&gt;proc~zero_array_1d</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M339.89,-70.7C362.35,-67.85 392.29,-64.05 417.93,-60.8"/>
-<polygon fill="#000000" stroke="#000000" points="418.41,-64.26 427.89,-59.53 417.53,-57.32 418.41,-64.26"/>
+<!-- proc~lw_solver_noscat -->
+<g id="call~~graph~~CallGraph_node6" class="node">
+<title>proc~lw_solver_noscat</title>
+<g id="a_call~~graph~~CallGraph_node6"><a xlink:href=".././proc/lw_solver_noscat.html" xlink:title="lw_solver_noscat">
+<polygon fill="#d9534f" stroke="#d9534f" points="142,-234 40,-234 40,-210 142,-210 142,-234"/>
+<text text-anchor="middle" x="91" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lw_solver_noscat</text>
+</a>
 </g>
-<!-- proc~zero_array_2d -->
-<g id="call~~graph~~CallGraph_node36" class="node">
-<title>proc~zero_array_2d</title>
-<g id="a_call~~graph~~CallGraph_node36"><a xlink:href=".././proc/zero_array_2d.html" xlink:title="zero_array_2D">
-<polygon fill="#d9534f" stroke="#d9534f" points="517,-24 428,-24 428,0 517,0 517,-24"/>
-<text text-anchor="middle" x="472.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">zero_array_2D</text>
+</g>
+<!-- proc~extract_subset_dim2_4d -->
+<g id="call~~graph~~CallGraph_node7" class="node">
+<title>proc~extract_subset_dim2_4d</title>
+<g id="a_call~~graph~~CallGraph_node7"><a xlink:href=".././proc/extract_subset_dim2_4d.html" xlink:title="extract_subset_dim2_4d">
+<polygon fill="#d9534f" stroke="#d9534f" points="375,-318 235,-318 235,-294 375,-294 375,-318"/>
+<text text-anchor="middle" x="305" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">extract_subset_dim2_4d</text>
 </a>
 </g>
 </g>
-<!-- interface~zero_array&#45;&gt;proc~zero_array_2d -->
-<g id="call~~graph~~CallGraph_edge4" class="edge">
-<title>interface~zero_array&#45;&gt;proc~zero_array_2d</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M337.91,-62.85C364.21,-52.84 401.69,-38.57 430.27,-27.7"/>
-<polygon fill="#000000" stroke="#000000" points="431.87,-30.83 439.97,-24 429.38,-24.29 431.87,-30.83"/>
+<!-- proc~inc_1scalar_by_nstream_bybnd -->
+<g id="call~~graph~~CallGraph_node8" class="node">
+<title>proc~inc_1scalar_by_nstream_bybnd</title>
+<g id="a_call~~graph~~CallGraph_node8"><a xlink:href=".././proc/inc_1scalar_by_nstream_bybnd.html" xlink:title="inc_1scalar_by_nstream_bybnd">
+<polygon fill="#d9534f" stroke="#d9534f" points="180,-318 2,-318 2,-294 180,-294 180,-318"/>
+<text text-anchor="middle" x="91" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">inc_1scalar_by_nstream_bybnd</text>
+</a>
+</g>
 </g>
 <!-- proc~inc_2stream_by_1scalar_bybnd -->
-<g id="call~~graph~~CallGraph_node2" class="node">
+<g id="call~~graph~~CallGraph_node9" class="node">
 <title>proc~inc_2stream_by_1scalar_bybnd</title>
-<g id="a_call~~graph~~CallGraph_node2"><a xlink:href=".././proc/inc_2stream_by_1scalar_bybnd.html" xlink:title="inc_2stream_by_1scalar_bybnd">
-<polygon fill="#d9534f" stroke="#d9534f" points="180,-129 2,-129 2,-105 180,-105 180,-129"/>
-<text text-anchor="middle" x="91" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">inc_2stream_by_1scalar_bybnd</text>
+<g id="a_call~~graph~~CallGraph_node9"><a xlink:href=".././proc/inc_2stream_by_1scalar_bybnd.html" xlink:title="inc_2stream_by_1scalar_bybnd">
+<polygon fill="#d9534f" stroke="#d9534f" points="180,-360 2,-360 2,-336 180,-336 180,-360"/>
+<text text-anchor="middle" x="91" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">inc_2stream_by_1scalar_bybnd</text>
 </a>
 </g>
 </g>
-<!-- proc~inc_2stream_by_2stream_bybnd -->
-<g id="call~~graph~~CallGraph_node4" class="node">
-<title>proc~inc_2stream_by_2stream_bybnd</title>
-<g id="a_call~~graph~~CallGraph_node4"><a xlink:href=".././proc/inc_2stream_by_2stream_bybnd.html" xlink:title="inc_2stream_by_2stream_bybnd">
-<polygon fill="#d9534f" stroke="#d9534f" points="182,-171 0,-171 0,-147 182,-147 182,-171"/>
-<text text-anchor="middle" x="91" y="-156.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">inc_2stream_by_2stream_bybnd</text>
+<!-- interface~net_broadband -->
+<g id="call~~graph~~CallGraph_node10" class="node">
+<title>interface~net_broadband</title>
+<g id="a_call~~graph~~CallGraph_node10"><a xlink:href=".././interface/net_broadband.html" xlink:title="net_broadband">
+<polygon fill="#a7506f" stroke="#a7506f" points="137.5,-402 44.5,-402 44.5,-378 137.5,-378 137.5,-402"/>
+<text text-anchor="middle" x="91" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">net_broadband</text>
 </a>
 </g>
 </g>
-<!-- interface~delta_scale_2str_kernel -->
-<g id="call~~graph~~CallGraph_node5" class="node">
-<title>interface~delta_scale_2str_kernel</title>
-<g id="a_call~~graph~~CallGraph_node5"><a xlink:href=".././interface/delta_scale_2str_kernel.html" xlink:title="delta_scale_2str_kernel">
-<polygon fill="#a7506f" stroke="#a7506f" points="159.5,-213 22.5,-213 22.5,-189 159.5,-189 159.5,-213"/>
-<text text-anchor="middle" x="91" y="-198.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">delta_scale_2str_kernel</text>
+<!-- proc~inc_nstream_by_nstream_bybnd -->
+<g id="call~~graph~~CallGraph_node11" class="node">
+<title>proc~inc_nstream_by_nstream_bybnd</title>
+<g id="a_call~~graph~~CallGraph_node11"><a xlink:href=".././proc/inc_nstream_by_nstream_bybnd.html" xlink:title="inc_nstream_by_nstream_bybnd">
+<polygon fill="#d9534f" stroke="#d9534f" points="182,-444 0,-444 0,-420 182,-420 182,-444"/>
+<text text-anchor="middle" x="91" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">inc_nstream_by_nstream_bybnd</text>
 </a>
 </g>
 </g>
-<!-- proc~delta_scale_2str_k -->
-<g id="call~~graph~~CallGraph_node15" class="node">
-<title>proc~delta_scale_2str_k</title>
-<g id="a_call~~graph~~CallGraph_node15"><a xlink:href=".././proc/delta_scale_2str_k.html" xlink:title="delta_scale_2str_k">
-<polygon fill="#d9534f" stroke="#d9534f" points="359.5,-234 250.5,-234 250.5,-210 359.5,-210 359.5,-234"/>
-<text text-anchor="middle" x="305" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">delta_scale_2str_k</text>
+<!-- proc~sum_broadband -->
+<g id="call~~graph~~CallGraph_node12" class="node">
+<title>proc~sum_broadband</title>
+<g id="a_call~~graph~~CallGraph_node12"><a xlink:href=".././proc/sum_broadband.html" xlink:title="sum_broadband">
+<polygon fill="#d9534f" stroke="#d9534f" points="140,-486 42,-486 42,-462 140,-462 140,-486"/>
+<text text-anchor="middle" x="91" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">sum_broadband</text>
 </a>
 </g>
 </g>
-<!-- interface~delta_scale_2str_kernel&#45;&gt;proc~delta_scale_2str_k -->
-<g id="call~~graph~~CallGraph_edge6" class="edge">
-<title>interface~delta_scale_2str_kernel&#45;&gt;proc~delta_scale_2str_k</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M159.66,-207.7C185.44,-210.26 214.7,-213.15 240.12,-215.67"/>
-<polygon fill="#000000" stroke="#000000" points="240.09,-219.19 250.38,-216.69 240.78,-212.22 240.09,-219.19"/>
-</g>
-<!-- proc~delta_scale_2str_f_k -->
-<g id="call~~graph~~CallGraph_node20" class="node">
-<title>proc~delta_scale_2str_f_k</title>
-<g id="a_call~~graph~~CallGraph_node20"><a xlink:href=".././proc/delta_scale_2str_f_k.html" xlink:title="delta_scale_2str_f_k">
-<polygon fill="#d9534f" stroke="#d9534f" points="364,-192 246,-192 246,-168 364,-168 364,-192"/>
-<text text-anchor="middle" x="305" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">delta_scale_2str_f_k</text>
+<!-- proc~increment_2stream_by_1scalar -->
+<g id="call~~graph~~CallGraph_node13" class="node">
+<title>proc~increment_2stream_by_1scalar</title>
+<g id="a_call~~graph~~CallGraph_node13"><a xlink:href=".././proc/increment_2stream_by_1scalar.html" xlink:title="increment_2stream_by_1scalar">
+<polygon fill="#d9534f" stroke="#d9534f" points="180,-528 2,-528 2,-504 180,-504 180,-528"/>
+<text text-anchor="middle" x="91" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">increment_2stream_by_1scalar</text>
 </a>
 </g>
 </g>
-<!-- interface~delta_scale_2str_kernel&#45;&gt;proc~delta_scale_2str_f_k -->
-<g id="call~~graph~~CallGraph_edge5" class="edge">
-<title>interface~delta_scale_2str_kernel&#45;&gt;proc~delta_scale_2str_f_k</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M159.66,-194.3C183.94,-191.89 211.33,-189.18 235.66,-186.77"/>
-<polygon fill="#000000" stroke="#000000" points="236.28,-190.23 245.89,-185.76 235.59,-183.26 236.28,-190.23"/>
-</g>
-<!-- proc~extract_subset_dim1_3d -->
-<g id="call~~graph~~CallGraph_node7" class="node">
-<title>proc~extract_subset_dim1_3d</title>
-<g id="a_call~~graph~~CallGraph_node7"><a xlink:href=".././proc/extract_subset_dim1_3d.html" xlink:title="extract_subset_dim1_3d">
-<polygon fill="#d9534f" stroke="#d9534f" points="375,-360 235,-360 235,-336 375,-336 375,-360"/>
-<text text-anchor="middle" x="305" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">extract_subset_dim1_3d</text>
+<!-- proc~sw_solver_2stream -->
+<g id="call~~graph~~CallGraph_node14" class="node">
+<title>proc~sw_solver_2stream</title>
+<g id="a_call~~graph~~CallGraph_node14"><a xlink:href=".././proc/sw_solver_2stream.html" xlink:title="sw_solver_2stream">
+<polygon fill="#d9534f" stroke="#d9534f" points="147,-570 35,-570 35,-546 147,-546 147,-570"/>
+<text text-anchor="middle" x="91" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">sw_solver_2stream</text>
 </a>
 </g>
 </g>
-<!-- interface~extract_subset -->
-<g id="call~~graph~~CallGraph_node8" class="node">
-<title>interface~extract_subset</title>
-<g id="a_call~~graph~~CallGraph_node8"><a xlink:href=".././interface/extract_subset.html" xlink:title="extract_subset">
-<polygon fill="#a7506f" stroke="#a7506f" points="135.5,-318 46.5,-318 46.5,-294 135.5,-294 135.5,-318"/>
-<text text-anchor="middle" x="91" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">extract_subset</text>
+<!-- interface~zero_array -->
+<g id="call~~graph~~CallGraph_node34" class="node">
+<title>interface~zero_array</title>
+<g id="a_call~~graph~~CallGraph_node34"><a xlink:href=".././interface/zero_array.html" xlink:title="zero_array">
+<polygon fill="#a7506f" stroke="#a7506f" points="339.5,-570 270.5,-570 270.5,-546 339.5,-546 339.5,-570"/>
+<text text-anchor="middle" x="305" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">zero_array</text>
 </a>
 </g>
 </g>
-<!-- interface~extract_subset&#45;&gt;proc~extract_subset_dim1_3d -->
-<g id="call~~graph~~CallGraph_edge7" class="edge">
-<title>interface~extract_subset&#45;&gt;proc~extract_subset_dim1_3d</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.67,-314.65C163.79,-320.22 200.99,-327.59 233.26,-333.99"/>
-<polygon fill="#000000" stroke="#000000" points="232.62,-337.43 243.11,-335.94 233.98,-330.56 232.62,-337.43"/>
+<!-- proc~sw_solver_2stream&#45;&gt;interface~zero_array -->
+<g id="call~~graph~~CallGraph_edge1" class="edge">
+<title>proc~sw_solver_2stream&#45;&gt;interface~zero_array</title>
+<path fill="none" stroke="#000000" d="M147.15,-558C182.35,-558 227.36,-558 260.13,-558"/>
+<polygon fill="#000000" stroke="#000000" points="260.31,-561.5 270.31,-558 260.31,-554.5 260.31,-561.5"/>
 </g>
-<!-- proc~extract_subset_absorption_tau -->
-<g id="call~~graph~~CallGraph_node10" class="node">
-<title>proc~extract_subset_absorption_tau</title>
-<g id="a_call~~graph~~CallGraph_node10"><a xlink:href=".././proc/extract_subset_absorption_tau.html" xlink:title="extract_subset_absorption_tau">
-<polygon fill="#d9534f" stroke="#d9534f" points="392,-318 218,-318 218,-294 392,-294 392,-318"/>
-<text text-anchor="middle" x="305" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">extract_subset_absorption_tau</text>
+<!-- proc~inc_nstream_by_1scalar_bybnd -->
+<g id="call~~graph~~CallGraph_node15" class="node">
+<title>proc~inc_nstream_by_1scalar_bybnd</title>
+<g id="a_call~~graph~~CallGraph_node15"><a xlink:href=".././proc/inc_nstream_by_1scalar_bybnd.html" xlink:title="inc_nstream_by_1scalar_bybnd">
+<polygon fill="#d9534f" stroke="#d9534f" points="180,-612 2,-612 2,-588 180,-588 180,-612"/>
+<text text-anchor="middle" x="91" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">inc_nstream_by_1scalar_bybnd</text>
 </a>
 </g>
 </g>
-<!-- interface~extract_subset&#45;&gt;proc~extract_subset_absorption_tau -->
-<g id="call~~graph~~CallGraph_edge8" class="edge">
-<title>interface~extract_subset&#45;&gt;proc~extract_subset_absorption_tau</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.67,-306C156.64,-306 182.67,-306 207.93,-306"/>
-<polygon fill="#000000" stroke="#000000" points="207.94,-309.5 217.94,-306 207.94,-302.5 207.94,-309.5"/>
-</g>
-<!-- proc~extract_subset_dim2_4d -->
-<g id="call~~graph~~CallGraph_node26" class="node">
-<title>proc~extract_subset_dim2_4d</title>
-<g id="a_call~~graph~~CallGraph_node26"><a xlink:href=".././proc/extract_subset_dim2_4d.html" xlink:title="extract_subset_dim2_4d">
-<polygon fill="#d9534f" stroke="#d9534f" points="375,-276 235,-276 235,-252 375,-252 375,-276"/>
-<text text-anchor="middle" x="305" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">extract_subset_dim2_4d</text>
+<!-- proc~inc_1scalar_by_2stream_bybnd -->
+<g id="call~~graph~~CallGraph_node16" class="node">
+<title>proc~inc_1scalar_by_2stream_bybnd</title>
+<g id="a_call~~graph~~CallGraph_node16"><a xlink:href=".././proc/inc_1scalar_by_2stream_bybnd.html" xlink:title="inc_1scalar_by_2stream_bybnd">
+<polygon fill="#d9534f" stroke="#d9534f" points="180,-654 2,-654 2,-630 180,-630 180,-654"/>
+<text text-anchor="middle" x="91" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">inc_1scalar_by_2stream_bybnd</text>
 </a>
 </g>
 </g>
-<!-- interface~extract_subset&#45;&gt;proc~extract_subset_dim2_4d -->
-<g id="call~~graph~~CallGraph_edge9" class="edge">
-<title>interface~extract_subset&#45;&gt;proc~extract_subset_dim2_4d</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.67,-297.35C163.79,-291.78 200.99,-284.41 233.26,-278.01"/>
-<polygon fill="#000000" stroke="#000000" points="233.98,-281.44 243.11,-276.06 232.62,-274.57 233.98,-281.44"/>
-</g>
-<!-- proc~increment_1scalar_by_nstream -->
-<g id="call~~graph~~CallGraph_node9" class="node">
-<title>proc~increment_1scalar_by_nstream</title>
-<g id="a_call~~graph~~CallGraph_node9"><a xlink:href=".././proc/increment_1scalar_by_nstream.html" xlink:title="increment_1scalar_by_nstream">
-<polygon fill="#d9534f" stroke="#d9534f" points="180,-360 2,-360 2,-336 180,-336 180,-360"/>
-<text text-anchor="middle" x="91" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">increment_1scalar_by_nstream</text>
+<!-- proc~zero_array_1d -->
+<g id="call~~graph~~CallGraph_node17" class="node">
+<title>proc~zero_array_1d</title>
+<g id="a_call~~graph~~CallGraph_node17"><a xlink:href=".././proc/zero_array_1d.html" xlink:title="zero_array_1D">
+<polygon fill="#d9534f" stroke="#d9534f" points="517,-633 428,-633 428,-609 517,-609 517,-633"/>
+<text text-anchor="middle" x="472.5" y="-618.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">zero_array_1D</text>
 </a>
 </g>
 </g>
 <!-- proc~lw_solver_2stream -->
-<g id="call~~graph~~CallGraph_node11" class="node">
+<g id="call~~graph~~CallGraph_node18" class="node">
 <title>proc~lw_solver_2stream</title>
-<g id="a_call~~graph~~CallGraph_node11"><a xlink:href=".././proc/lw_solver_2stream.html" xlink:title="lw_solver_2stream">
-<polygon fill="#d9534f" stroke="#d9534f" points="146,-402 36,-402 36,-378 146,-378 146,-402"/>
-<text text-anchor="middle" x="91" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lw_solver_2stream</text>
+<g id="a_call~~graph~~CallGraph_node18"><a xlink:href=".././proc/lw_solver_2stream.html" xlink:title="lw_solver_2stream">
+<polygon fill="#d9534f" stroke="#d9534f" points="146,-696 36,-696 36,-672 146,-672 146,-696"/>
+<text text-anchor="middle" x="91" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lw_solver_2stream</text>
 </a>
 </g>
 </g>
-<!-- proc~increment_1scalar_by_1scalar -->
-<g id="call~~graph~~CallGraph_node12" class="node">
-<title>proc~increment_1scalar_by_1scalar</title>
-<g id="a_call~~graph~~CallGraph_node12"><a xlink:href=".././proc/increment_1scalar_by_1scalar.html" xlink:title="increment_1scalar_by_1scalar">
-<polygon fill="#d9534f" stroke="#d9534f" points="177.5,-444 4.5,-444 4.5,-420 177.5,-420 177.5,-444"/>
-<text text-anchor="middle" x="91" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">increment_1scalar_by_1scalar</text>
+<!-- proc~zero_array_2d -->
+<g id="call~~graph~~CallGraph_node19" class="node">
+<title>proc~zero_array_2d</title>
+<g id="a_call~~graph~~CallGraph_node19"><a xlink:href=".././proc/zero_array_2d.html" xlink:title="zero_array_2D">
+<polygon fill="#d9534f" stroke="#d9534f" points="517,-591 428,-591 428,-567 517,-567 517,-591"/>
+<text text-anchor="middle" x="472.5" y="-576.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">zero_array_2D</text>
 </a>
 </g>
 </g>
-<!-- proc~increment_2stream_by_2stream -->
-<g id="call~~graph~~CallGraph_node13" class="node">
-<title>proc~increment_2stream_by_2stream</title>
-<g id="a_call~~graph~~CallGraph_node13"><a xlink:href=".././proc/increment_2stream_by_2stream.html" xlink:title="increment_2stream_by_2stream">
-<polygon fill="#d9534f" stroke="#d9534f" points="182,-486 0,-486 0,-462 182,-462 182,-486"/>
-<text text-anchor="middle" x="91" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">increment_2stream_by_2stream</text>
+<!-- proc~zero_array_3d -->
+<g id="call~~graph~~CallGraph_node20" class="node">
+<title>proc~zero_array_3d</title>
+<g id="a_call~~graph~~CallGraph_node20"><a xlink:href=".././proc/zero_array_3d.html" xlink:title="zero_array_3D">
+<polygon fill="#d9534f" stroke="#d9534f" points="517,-549 428,-549 428,-525 517,-525 517,-549"/>
+<text text-anchor="middle" x="472.5" y="-534.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">zero_array_3D</text>
 </a>
 </g>
 </g>
-<!-- proc~increment_nstream_by_2stream -->
-<g id="call~~graph~~CallGraph_node14" class="node">
-<title>proc~increment_nstream_by_2stream</title>
-<g id="a_call~~graph~~CallGraph_node14"><a xlink:href=".././proc/increment_nstream_by_2stream.html" xlink:title="increment_nstream_by_2stream">
-<polygon fill="#d9534f" stroke="#d9534f" points="182,-528 0,-528 0,-504 182,-504 182,-528"/>
-<text text-anchor="middle" x="91" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">increment_nstream_by_2stream</text>
+<!-- interface~delta_scale_2str_kernel -->
+<g id="call~~graph~~CallGraph_node21" class="node">
+<title>interface~delta_scale_2str_kernel</title>
+<g id="a_call~~graph~~CallGraph_node21"><a xlink:href=".././interface/delta_scale_2str_kernel.html" xlink:title="delta_scale_2str_kernel">
+<polygon fill="#a7506f" stroke="#a7506f" points="159.5,-738 22.5,-738 22.5,-714 159.5,-714 159.5,-738"/>
+<text text-anchor="middle" x="91" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">delta_scale_2str_kernel</text>
 </a>
 </g>
 </g>
-<!-- proc~sw_solver_2stream -->
-<g id="call~~graph~~CallGraph_node16" class="node">
-<title>proc~sw_solver_2stream</title>
-<g id="a_call~~graph~~CallGraph_node16"><a xlink:href=".././proc/sw_solver_2stream.html" xlink:title="sw_solver_2stream">
-<polygon fill="#d9534f" stroke="#d9534f" points="147,-87 35,-87 35,-63 147,-63 147,-87"/>
-<text text-anchor="middle" x="91" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">sw_solver_2stream</text>
+<!-- proc~delta_scale_2str_k -->
+<g id="call~~graph~~CallGraph_node32" class="node">
+<title>proc~delta_scale_2str_k</title>
+<g id="a_call~~graph~~CallGraph_node32"><a xlink:href=".././proc/delta_scale_2str_k.html" xlink:title="delta_scale_2str_k">
+<polygon fill="#d9534f" stroke="#d9534f" points="359.5,-759 250.5,-759 250.5,-735 359.5,-735 359.5,-759"/>
+<text text-anchor="middle" x="305" y="-744.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">delta_scale_2str_k</text>
 </a>
 </g>
 </g>
-<!-- proc~sw_solver_2stream&#45;&gt;interface~zero_array -->
-<g id="call~~graph~~CallGraph_edge10" class="edge">
-<title>proc~sw_solver_2stream&#45;&gt;interface~zero_array</title>
-<path fill="none" stroke="#000000" d="M147.15,-75C182.35,-75 227.36,-75 260.13,-75"/>
-<polygon fill="#000000" stroke="#000000" points="260.31,-78.5 270.31,-75 260.31,-71.5 260.31,-78.5"/>
+<!-- interface~delta_scale_2str_kernel&#45;&gt;proc~delta_scale_2str_k -->
+<g id="call~~graph~~CallGraph_edge3" class="edge">
+<title>interface~delta_scale_2str_kernel&#45;&gt;proc~delta_scale_2str_k</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M159.66,-732.7C185.44,-735.26 214.7,-738.15 240.12,-740.67"/>
+<polygon fill="#000000" stroke="#000000" points="240.09,-744.19 250.38,-741.69 240.78,-737.22 240.09,-744.19"/>
 </g>
-<!-- proc~inc_2stream_by_nstream_bybnd -->
-<g id="call~~graph~~CallGraph_node17" class="node">
-<title>proc~inc_2stream_by_nstream_bybnd</title>
-<g id="a_call~~graph~~CallGraph_node17"><a xlink:href=".././proc/inc_2stream_by_nstream_bybnd.html" xlink:title="inc_2stream_by_nstream_bybnd">
-<polygon fill="#d9534f" stroke="#d9534f" points="182,-570 0,-570 0,-546 182,-546 182,-570"/>
-<text text-anchor="middle" x="91" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">inc_2stream_by_nstream_bybnd</text>
+<!-- proc~delta_scale_2str_f_k -->
+<g id="call~~graph~~CallGraph_node36" class="node">
+<title>proc~delta_scale_2str_f_k</title>
+<g id="a_call~~graph~~CallGraph_node36"><a xlink:href=".././proc/delta_scale_2str_f_k.html" xlink:title="delta_scale_2str_f_k">
+<polygon fill="#d9534f" stroke="#d9534f" points="364,-717 246,-717 246,-693 364,-693 364,-717"/>
+<text text-anchor="middle" x="305" y="-702.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">delta_scale_2str_f_k</text>
 </a>
 </g>
 </g>
-<!-- proc~inc_nstream_by_2stream_bybnd -->
-<g id="call~~graph~~CallGraph_node18" class="node">
-<title>proc~inc_nstream_by_2stream_bybnd</title>
-<g id="a_call~~graph~~CallGraph_node18"><a xlink:href=".././proc/inc_nstream_by_2stream_bybnd.html" xlink:title="inc_nstream_by_2stream_bybnd">
-<polygon fill="#d9534f" stroke="#d9534f" points="182,-612 0,-612 0,-588 182,-588 182,-612"/>
-<text text-anchor="middle" x="91" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">inc_nstream_by_2stream_bybnd</text>
-</a>
-</g>
+<!-- interface~delta_scale_2str_kernel&#45;&gt;proc~delta_scale_2str_f_k -->
+<g id="call~~graph~~CallGraph_edge2" class="edge">
+<title>interface~delta_scale_2str_kernel&#45;&gt;proc~delta_scale_2str_f_k</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M159.66,-719.3C183.94,-716.89 211.33,-714.18 235.66,-711.77"/>
+<polygon fill="#000000" stroke="#000000" points="236.28,-715.23 245.89,-710.76 235.59,-708.26 236.28,-715.23"/>
 </g>
-<!-- proc~increment_1scalar_by_2stream -->
-<g id="call~~graph~~CallGraph_node19" class="node">
-<title>proc~increment_1scalar_by_2stream</title>
-<g id="a_call~~graph~~CallGraph_node19"><a xlink:href=".././proc/increment_1scalar_by_2stream.html" xlink:title="increment_1scalar_by_2stream">
-<polygon fill="#d9534f" stroke="#d9534f" points="180,-654 2,-654 2,-630 180,-630 180,-654"/>
-<text text-anchor="middle" x="91" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">increment_1scalar_by_2stream</text>
+<!-- proc~zero_array_4d -->
+<g id="call~~graph~~CallGraph_node22" class="node">
+<title>proc~zero_array_4d</title>
+<g id="a_call~~graph~~CallGraph_node22"><a xlink:href=".././proc/zero_array_4d.html" xlink:title="zero_array_4D">
+<polygon fill="#d9534f" stroke="#d9534f" points="517,-507 428,-507 428,-483 517,-483 517,-507"/>
+<text text-anchor="middle" x="472.5" y="-492.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">zero_array_4D</text>
 </a>
 </g>
 </g>
-<!-- proc~increment_nstream_by_1scalar -->
-<g id="call~~graph~~CallGraph_node21" class="node">
-<title>proc~increment_nstream_by_1scalar</title>
-<g id="a_call~~graph~~CallGraph_node21"><a xlink:href=".././proc/increment_nstream_by_1scalar.html" xlink:title="increment_nstream_by_1scalar">
-<polygon fill="#d9534f" stroke="#d9534f" points="180,-696 2,-696 2,-672 180,-672 180,-696"/>
-<text text-anchor="middle" x="91" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">increment_nstream_by_1scalar</text>
+<!-- proc~extract_subset_dim1_3d -->
+<g id="call~~graph~~CallGraph_node23" class="node">
+<title>proc~extract_subset_dim1_3d</title>
+<g id="a_call~~graph~~CallGraph_node23"><a xlink:href=".././proc/extract_subset_dim1_3d.html" xlink:title="extract_subset_dim1_3d">
+<polygon fill="#d9534f" stroke="#d9534f" points="375,-276 235,-276 235,-252 375,-252 375,-276"/>
+<text text-anchor="middle" x="305" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">extract_subset_dim1_3d</text>
 </a>
 </g>
 </g>
-<!-- proc~lw_solver_noscat -->
-<g id="call~~graph~~CallGraph_node22" class="node">
-<title>proc~lw_solver_noscat</title>
-<g id="a_call~~graph~~CallGraph_node22"><a xlink:href=".././proc/lw_solver_noscat.html" xlink:title="lw_solver_noscat">
-<polygon fill="#d9534f" stroke="#d9534f" points="142,-738 40,-738 40,-714 142,-714 142,-738"/>
-<text text-anchor="middle" x="91" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lw_solver_noscat</text>
+<!-- interface~extract_subset -->
+<g id="call~~graph~~CallGraph_node24" class="node">
+<title>interface~extract_subset</title>
+<g id="a_call~~graph~~CallGraph_node24"><a xlink:href=".././interface/extract_subset.html" xlink:title="extract_subset">
+<polygon fill="#a7506f" stroke="#a7506f" points="135.5,-276 46.5,-276 46.5,-252 135.5,-252 135.5,-276"/>
+<text text-anchor="middle" x="91" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">extract_subset</text>
 </a>
 </g>
 </g>
-<!-- proc~increment_2stream_by_nstream -->
-<g id="call~~graph~~CallGraph_node23" class="node">
-<title>proc~increment_2stream_by_nstream</title>
-<g id="a_call~~graph~~CallGraph_node23"><a xlink:href=".././proc/increment_2stream_by_nstream.html" xlink:title="increment_2stream_by_nstream">
-<polygon fill="#d9534f" stroke="#d9534f" points="182,-780 0,-780 0,-756 182,-756 182,-780"/>
-<text text-anchor="middle" x="91" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">increment_2stream_by_nstream</text>
-</a>
+<!-- interface~extract_subset&#45;&gt;proc~extract_subset_dim2_4d -->
+<g id="call~~graph~~CallGraph_edge6" class="edge">
+<title>interface~extract_subset&#45;&gt;proc~extract_subset_dim2_4d</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.67,-272.65C163.79,-278.22 200.99,-285.59 233.26,-291.99"/>
+<polygon fill="#000000" stroke="#000000" points="232.62,-295.43 243.11,-293.94 233.98,-288.56 232.62,-295.43"/>
 </g>
+<!-- interface~extract_subset&#45;&gt;proc~extract_subset_dim1_3d -->
+<g id="call~~graph~~CallGraph_edge4" class="edge">
+<title>interface~extract_subset&#45;&gt;proc~extract_subset_dim1_3d</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.67,-264C161.37,-264 194.65,-264 224.83,-264"/>
+<polygon fill="#000000" stroke="#000000" points="224.93,-267.5 234.93,-264 224.93,-260.5 224.93,-267.5"/>
 </g>
-<!-- proc~inc_1scalar_by_1scalar_bybnd -->
-<g id="call~~graph~~CallGraph_node24" class="node">
-<title>proc~inc_1scalar_by_1scalar_bybnd</title>
-<g id="a_call~~graph~~CallGraph_node24"><a xlink:href=".././proc/inc_1scalar_by_1scalar_bybnd.html" xlink:title="inc_1scalar_by_1scalar_bybnd">
-<polygon fill="#d9534f" stroke="#d9534f" points="177.5,-822 4.5,-822 4.5,-798 177.5,-798 177.5,-822"/>
-<text text-anchor="middle" x="91" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">inc_1scalar_by_1scalar_bybnd</text>
+<!-- proc~extract_subset_absorption_tau -->
+<g id="call~~graph~~CallGraph_node26" class="node">
+<title>proc~extract_subset_absorption_tau</title>
+<g id="a_call~~graph~~CallGraph_node26"><a xlink:href=".././proc/extract_subset_absorption_tau.html" xlink:title="extract_subset_absorption_tau">
+<polygon fill="#d9534f" stroke="#d9534f" points="392,-234 218,-234 218,-210 392,-210 392,-234"/>
+<text text-anchor="middle" x="305" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">extract_subset_absorption_tau</text>
 </a>
 </g>
 </g>
-<!-- proc~increment_nstream_by_nstream -->
+<!-- interface~extract_subset&#45;&gt;proc~extract_subset_absorption_tau -->
+<g id="call~~graph~~CallGraph_edge5" class="edge">
+<title>interface~extract_subset&#45;&gt;proc~extract_subset_absorption_tau</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.67,-255.35C163.79,-249.78 200.99,-242.41 233.26,-236.01"/>
+<polygon fill="#000000" stroke="#000000" points="233.98,-239.44 243.11,-234.06 232.62,-232.57 233.98,-239.44"/>
+</g>
+<!-- proc~increment_1scalar_by_nstream -->
 <g id="call~~graph~~CallGraph_node25" class="node">
-<title>proc~increment_nstream_by_nstream</title>
-<g id="a_call~~graph~~CallGraph_node25"><a xlink:href=".././proc/increment_nstream_by_nstream.html" xlink:title="increment_nstream_by_nstream">
-<polygon fill="#d9534f" stroke="#d9534f" points="182,-864 0,-864 0,-840 182,-840 182,-864"/>
-<text text-anchor="middle" x="91" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">increment_nstream_by_nstream</text>
+<title>proc~increment_1scalar_by_nstream</title>
+<g id="a_call~~graph~~CallGraph_node25"><a xlink:href=".././proc/increment_1scalar_by_nstream.html" xlink:title="increment_1scalar_by_nstream">
+<polygon fill="#d9534f" stroke="#d9534f" points="180,-780 2,-780 2,-756 180,-756 180,-780"/>
+<text text-anchor="middle" x="91" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">increment_1scalar_by_nstream</text>
 </a>
 </g>
 </g>
@@ -458,71 +443,86 @@ <h1>Procedures</h1>
 <g id="call~~graph~~CallGraph_node27" class="node">
 <title>proc~sw_solver_noscat</title>
 <g id="a_call~~graph~~CallGraph_node27"><a xlink:href=".././proc/sw_solver_noscat.html" xlink:title="sw_solver_noscat">
-<polygon fill="#d9534f" stroke="#d9534f" points="143,-906 39,-906 39,-882 143,-882 143,-906"/>
-<text text-anchor="middle" x="91" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">sw_solver_noscat</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="143,-822 39,-822 39,-798 143,-798 143,-822"/>
+<text text-anchor="middle" x="91" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">sw_solver_noscat</text>
 </a>
 </g>
 </g>
-<!-- proc~inc_1scalar_by_nstream_bybnd -->
+<!-- proc~increment_1scalar_by_1scalar -->
 <g id="call~~graph~~CallGraph_node28" class="node">
-<title>proc~inc_1scalar_by_nstream_bybnd</title>
-<g id="a_call~~graph~~CallGraph_node28"><a xlink:href=".././proc/inc_1scalar_by_nstream_bybnd.html" xlink:title="inc_1scalar_by_nstream_bybnd">
-<polygon fill="#d9534f" stroke="#d9534f" points="180,-948 2,-948 2,-924 180,-924 180,-948"/>
-<text text-anchor="middle" x="91" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">inc_1scalar_by_nstream_bybnd</text>
+<title>proc~increment_1scalar_by_1scalar</title>
+<g id="a_call~~graph~~CallGraph_node28"><a xlink:href=".././proc/increment_1scalar_by_1scalar.html" xlink:title="increment_1scalar_by_1scalar">
+<polygon fill="#d9534f" stroke="#d9534f" points="177.5,-864 4.5,-864 4.5,-840 177.5,-840 177.5,-864"/>
+<text text-anchor="middle" x="91" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">increment_1scalar_by_1scalar</text>
 </a>
 </g>
 </g>
-<!-- interface~net_broadband -->
+<!-- proc~increment_2stream_by_2stream -->
 <g id="call~~graph~~CallGraph_node29" class="node">
-<title>interface~net_broadband</title>
-<g id="a_call~~graph~~CallGraph_node29"><a xlink:href=".././interface/net_broadband.html" xlink:title="net_broadband">
-<polygon fill="#a7506f" stroke="#a7506f" points="137.5,-990 44.5,-990 44.5,-966 137.5,-966 137.5,-990"/>
-<text text-anchor="middle" x="91" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">net_broadband</text>
+<title>proc~increment_2stream_by_2stream</title>
+<g id="a_call~~graph~~CallGraph_node29"><a xlink:href=".././proc/increment_2stream_by_2stream.html" xlink:title="increment_2stream_by_2stream">
+<polygon fill="#d9534f" stroke="#d9534f" points="182,-906 0,-906 0,-882 182,-882 182,-906"/>
+<text text-anchor="middle" x="91" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">increment_2stream_by_2stream</text>
 </a>
 </g>
 </g>
-<!-- proc~inc_nstream_by_nstream_bybnd -->
+<!-- proc~increment_nstream_by_2stream -->
 <g id="call~~graph~~CallGraph_node30" class="node">
-<title>proc~inc_nstream_by_nstream_bybnd</title>
-<g id="a_call~~graph~~CallGraph_node30"><a xlink:href=".././proc/inc_nstream_by_nstream_bybnd.html" xlink:title="inc_nstream_by_nstream_bybnd">
-<polygon fill="#d9534f" stroke="#d9534f" points="182,-1032 0,-1032 0,-1008 182,-1008 182,-1032"/>
-<text text-anchor="middle" x="91" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">inc_nstream_by_nstream_bybnd</text>
+<title>proc~increment_nstream_by_2stream</title>
+<g id="a_call~~graph~~CallGraph_node30"><a xlink:href=".././proc/increment_nstream_by_2stream.html" xlink:title="increment_nstream_by_2stream">
+<polygon fill="#d9534f" stroke="#d9534f" points="182,-948 0,-948 0,-924 182,-924 182,-948"/>
+<text text-anchor="middle" x="91" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">increment_nstream_by_2stream</text>
 </a>
 </g>
 </g>
-<!-- proc~sum_broadband -->
+<!-- proc~inc_2stream_by_2stream_bybnd -->
 <g id="call~~graph~~CallGraph_node31" class="node">
-<title>proc~sum_broadband</title>
-<g id="a_call~~graph~~CallGraph_node31"><a xlink:href=".././proc/sum_broadband.html" xlink:title="sum_broadband">
-<polygon fill="#d9534f" stroke="#d9534f" points="140,-1074 42,-1074 42,-1050 140,-1050 140,-1074"/>
-<text text-anchor="middle" x="91" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">sum_broadband</text>
+<title>proc~inc_2stream_by_2stream_bybnd</title>
+<g id="a_call~~graph~~CallGraph_node31"><a xlink:href=".././proc/inc_2stream_by_2stream_bybnd.html" xlink:title="inc_2stream_by_2stream_bybnd">
+<polygon fill="#d9534f" stroke="#d9534f" points="182,-990 0,-990 0,-966 182,-966 182,-990"/>
+<text text-anchor="middle" x="91" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">inc_2stream_by_2stream_bybnd</text>
 </a>
 </g>
 </g>
-<!-- proc~increment_2stream_by_1scalar -->
-<g id="call~~graph~~CallGraph_node32" class="node">
-<title>proc~increment_2stream_by_1scalar</title>
-<g id="a_call~~graph~~CallGraph_node32"><a xlink:href=".././proc/increment_2stream_by_1scalar.html" xlink:title="increment_2stream_by_1scalar">
-<polygon fill="#d9534f" stroke="#d9534f" points="180,-1116 2,-1116 2,-1092 180,-1092 180,-1116"/>
-<text text-anchor="middle" x="91" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">increment_2stream_by_1scalar</text>
+<!-- proc~inc_nstream_by_2stream_bybnd -->
+<g id="call~~graph~~CallGraph_node33" class="node">
+<title>proc~inc_nstream_by_2stream_bybnd</title>
+<g id="a_call~~graph~~CallGraph_node33"><a xlink:href=".././proc/inc_nstream_by_2stream_bybnd.html" xlink:title="inc_nstream_by_2stream_bybnd">
+<polygon fill="#d9534f" stroke="#d9534f" points="182,-1032 0,-1032 0,-1008 182,-1008 182,-1032"/>
+<text text-anchor="middle" x="91" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">inc_nstream_by_2stream_bybnd</text>
 </a>
 </g>
 </g>
-<!-- proc~inc_nstream_by_1scalar_bybnd -->
-<g id="call~~graph~~CallGraph_node33" class="node">
-<title>proc~inc_nstream_by_1scalar_bybnd</title>
-<g id="a_call~~graph~~CallGraph_node33"><a xlink:href=".././proc/inc_nstream_by_1scalar_bybnd.html" xlink:title="inc_nstream_by_1scalar_bybnd">
-<polygon fill="#d9534f" stroke="#d9534f" points="180,-1158 2,-1158 2,-1134 180,-1134 180,-1158"/>
-<text text-anchor="middle" x="91" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">inc_nstream_by_1scalar_bybnd</text>
-</a>
+<!-- interface~zero_array&#45;&gt;proc~zero_array_1d -->
+<g id="call~~graph~~CallGraph_edge7" class="edge">
+<title>interface~zero_array&#45;&gt;proc~zero_array_1d</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M337.91,-570.15C364.21,-580.16 401.69,-594.43 430.27,-605.3"/>
+<polygon fill="#000000" stroke="#000000" points="429.38,-608.71 439.97,-609 431.87,-602.17 429.38,-608.71"/>
 </g>
+<!-- interface~zero_array&#45;&gt;proc~zero_array_2d -->
+<g id="call~~graph~~CallGraph_edge10" class="edge">
+<title>interface~zero_array&#45;&gt;proc~zero_array_2d</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M339.89,-562.3C362.35,-565.15 392.29,-568.95 417.93,-572.2"/>
+<polygon fill="#000000" stroke="#000000" points="417.53,-575.68 427.89,-573.47 418.41,-568.74 417.53,-575.68"/>
 </g>
-<!-- proc~inc_1scalar_by_2stream_bybnd -->
+<!-- interface~zero_array&#45;&gt;proc~zero_array_3d -->
+<g id="call~~graph~~CallGraph_edge8" class="edge">
+<title>interface~zero_array&#45;&gt;proc~zero_array_3d</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M339.89,-553.7C362.35,-550.85 392.29,-547.05 417.93,-543.8"/>
+<polygon fill="#000000" stroke="#000000" points="418.41,-547.26 427.89,-542.53 417.53,-540.32 418.41,-547.26"/>
+</g>
+<!-- interface~zero_array&#45;&gt;proc~zero_array_4d -->
+<g id="call~~graph~~CallGraph_edge9" class="edge">
+<title>interface~zero_array&#45;&gt;proc~zero_array_4d</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M337.91,-545.85C364.21,-535.84 401.69,-521.57 430.27,-510.7"/>
+<polygon fill="#000000" stroke="#000000" points="431.87,-513.83 439.97,-507 429.38,-507.29 431.87,-513.83"/>
+</g>
+<!-- proc~increment_1scalar_by_2stream -->
 <g id="call~~graph~~CallGraph_node35" class="node">
-<title>proc~inc_1scalar_by_2stream_bybnd</title>
-<g id="a_call~~graph~~CallGraph_node35"><a xlink:href=".././proc/inc_1scalar_by_2stream_bybnd.html" xlink:title="inc_1scalar_by_2stream_bybnd">
-<polygon fill="#d9534f" stroke="#d9534f" points="180,-1200 2,-1200 2,-1176 180,-1176 180,-1200"/>
-<text text-anchor="middle" x="91" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">inc_1scalar_by_2stream_bybnd</text>
+<title>proc~increment_1scalar_by_2stream</title>
+<g id="a_call~~graph~~CallGraph_node35"><a xlink:href=".././proc/increment_1scalar_by_2stream.html" xlink:title="increment_1scalar_by_2stream">
+<polygon fill="#d9534f" stroke="#d9534f" points="180,-1074 2,-1074 2,-1050 180,-1050 180,-1074"/>
+<text text-anchor="middle" x="91" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">increment_1scalar_by_2stream</text>
 </a>
 </g>
 </g>
diff --git a/reference/rte-kernels/module/mo_fluxes_broadband_kernels.html b/reference/rte-kernels/module/mo_fluxes_broadband_kernels.html
index fc32a7f28..be07ef409 100644
--- a/reference/rte-kernels/module/mo_fluxes_broadband_kernels.html
+++ b/reference/rte-kernels/module/mo_fluxes_broadband_kernels.html
@@ -139,8 +139,8 @@ <h3 class="panel-title">Uses</h3>
       <ul class="list-group">
       <li class="list-group-item">
   <ul class="list-inline">
-    <li>mo_rte_kind</li>
     <li><a href="http://fortranwiki.org/fortran/show/iso_c_binding">iso_c_binding</a></li>
+    <li>mo_rte_kind</li>
   </ul>
       </li>
       <li class="list-group-item">
@@ -161,32 +161,32 @@ <h3 class="panel-title">Uses</h3>
 <polygon fill="none" stroke="black" points="294,-45 120,-45 120,-21 294,-21 294,-45"/>
 <text text-anchor="middle" x="207" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_fluxes_broadband_kernels</text>
 </g>
-<!-- mo_rte_kind -->
-<g id="module~~mo_fluxes_broadband_kernels~~UsesGraph_node2" class="node">
-<title>mo_rte_kind</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="81,-66 3,-66 3,-42 81,-42 81,-66"/>
-<text text-anchor="middle" x="42" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind</text>
-</g>
-<!-- module~mo_fluxes_broadband_kernels&#45;&gt;mo_rte_kind -->
-<g id="module~~mo_fluxes_broadband_kernels~~UsesGraph_edge1" class="edge">
-<title>module~mo_fluxes_broadband_kernels&#45;&gt;mo_rte_kind</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M119.73,-44.11C109.85,-45.39 100.07,-46.65 90.96,-47.82"/>
-<polygon fill="#000000" stroke="#000000" points="90.47,-44.35 81,-49.1 91.37,-51.3 90.47,-44.35"/>
-</g>
 <!-- iso_c_binding -->
-<g id="module~~mo_fluxes_broadband_kernels~~UsesGraph_node3" class="node">
+<g id="module~~mo_fluxes_broadband_kernels~~UsesGraph_node2" class="node">
 <title>iso_c_binding</title>
-<g id="a_module~~mo_fluxes_broadband_kernels~~UsesGraph_node3"><a xlink:href="http://fortranwiki.org/fortran/show/iso_c_binding" xlink:title="iso_c_binding">
-<polygon fill="#337ab7" stroke="#337ab7" points="84,-24 0,-24 0,0 84,0 84,-24"/>
-<text text-anchor="middle" x="42" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
+<g id="a_module~~mo_fluxes_broadband_kernels~~UsesGraph_node2"><a xlink:href="http://fortranwiki.org/fortran/show/iso_c_binding" xlink:title="iso_c_binding">
+<polygon fill="#337ab7" stroke="#337ab7" points="84,-66 0,-66 0,-42 84,-42 84,-66"/>
+<text text-anchor="middle" x="42" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
 </a>
 </g>
 </g>
 <!-- module~mo_fluxes_broadband_kernels&#45;&gt;iso_c_binding -->
-<g id="module~~mo_fluxes_broadband_kernels~~UsesGraph_edge2" class="edge">
+<g id="module~~mo_fluxes_broadband_kernels~~UsesGraph_edge1" class="edge">
 <title>module~mo_fluxes_broadband_kernels&#45;&gt;iso_c_binding</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M119.73,-21.89C111.03,-20.76 102.4,-19.65 94.25,-18.6"/>
-<polygon fill="#000000" stroke="#000000" points="94.57,-15.11 84.2,-17.31 93.67,-22.06 94.57,-15.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M119.73,-44.11C111.03,-45.24 102.4,-46.35 94.25,-47.4"/>
+<polygon fill="#000000" stroke="#000000" points="93.67,-43.94 84.2,-48.69 94.57,-50.89 93.67,-43.94"/>
+</g>
+<!-- mo_rte_kind -->
+<g id="module~~mo_fluxes_broadband_kernels~~UsesGraph_node3" class="node">
+<title>mo_rte_kind</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="81,-24 3,-24 3,0 81,0 81,-24"/>
+<text text-anchor="middle" x="42" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind</text>
+</g>
+<!-- module~mo_fluxes_broadband_kernels&#45;&gt;mo_rte_kind -->
+<g id="module~~mo_fluxes_broadband_kernels~~UsesGraph_edge2" class="edge">
+<title>module~mo_fluxes_broadband_kernels&#45;&gt;mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M119.73,-21.89C109.85,-20.61 100.07,-19.35 90.96,-18.18"/>
+<polygon fill="#000000" stroke="#000000" points="91.37,-14.7 81,-16.9 90.47,-21.65 91.37,-14.7"/>
 </g>
 </g>
 </svg>
diff --git a/reference/rte-kernels/module/mo_optical_props_kernels.html b/reference/rte-kernels/module/mo_optical_props_kernels.html
index 71020b481..109833ec4 100644
--- a/reference/rte-kernels/module/mo_optical_props_kernels.html
+++ b/reference/rte-kernels/module/mo_optical_props_kernels.html
@@ -166,8 +166,8 @@ <h3 class="panel-title">Uses</h3>
       <ul class="list-group">
       <li class="list-group-item">
   <ul class="list-inline">
-    <li>mo_rte_kind</li>
     <li><a href="http://fortranwiki.org/fortran/show/iso_c_binding">iso_c_binding</a></li>
+    <li>mo_rte_kind</li>
   </ul>
       </li>
       <li class="list-group-item">
@@ -188,32 +188,32 @@ <h3 class="panel-title">Uses</h3>
 <polygon fill="none" stroke="black" points="270,-45 120,-45 120,-21 270,-21 270,-45"/>
 <text text-anchor="middle" x="195" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_optical_props_kernels</text>
 </g>
-<!-- mo_rte_kind -->
-<g id="module~~mo_optical_props_kernels~~UsesGraph_node2" class="node">
-<title>mo_rte_kind</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="81,-66 3,-66 3,-42 81,-42 81,-66"/>
-<text text-anchor="middle" x="42" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind</text>
-</g>
-<!-- module~mo_optical_props_kernels&#45;&gt;mo_rte_kind -->
-<g id="module~~mo_optical_props_kernels~~UsesGraph_edge1" class="edge">
-<title>module~mo_optical_props_kernels&#45;&gt;mo_rte_kind</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M119.83,-43.32C110.07,-44.67 100.29,-46.03 91.13,-47.31"/>
-<polygon fill="#000000" stroke="#000000" points="90.5,-43.86 81.08,-48.7 91.47,-50.79 90.5,-43.86"/>
-</g>
 <!-- iso_c_binding -->
-<g id="module~~mo_optical_props_kernels~~UsesGraph_node3" class="node">
+<g id="module~~mo_optical_props_kernels~~UsesGraph_node2" class="node">
 <title>iso_c_binding</title>
-<g id="a_module~~mo_optical_props_kernels~~UsesGraph_node3"><a xlink:href="http://fortranwiki.org/fortran/show/iso_c_binding" xlink:title="iso_c_binding">
-<polygon fill="#337ab7" stroke="#337ab7" points="84,-24 0,-24 0,0 84,0 84,-24"/>
-<text text-anchor="middle" x="42" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
+<g id="a_module~~mo_optical_props_kernels~~UsesGraph_node2"><a xlink:href="http://fortranwiki.org/fortran/show/iso_c_binding" xlink:title="iso_c_binding">
+<polygon fill="#337ab7" stroke="#337ab7" points="84,-66 0,-66 0,-42 84,-42 84,-66"/>
+<text text-anchor="middle" x="42" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
 </a>
 </g>
 </g>
 <!-- module~mo_optical_props_kernels&#45;&gt;iso_c_binding -->
-<g id="module~~mo_optical_props_kernels~~UsesGraph_edge2" class="edge">
+<g id="module~~mo_optical_props_kernels~~UsesGraph_edge1" class="edge">
 <title>module~mo_optical_props_kernels&#45;&gt;iso_c_binding</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M119.83,-22.68C111.23,-21.49 102.6,-20.29 94.4,-19.15"/>
-<polygon fill="#000000" stroke="#000000" points="94.66,-15.65 84.28,-17.74 93.7,-22.58 94.66,-15.65"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M119.83,-43.32C111.23,-44.51 102.6,-45.71 94.4,-46.85"/>
+<polygon fill="#000000" stroke="#000000" points="93.7,-43.42 84.28,-48.26 94.66,-50.35 93.7,-43.42"/>
+</g>
+<!-- mo_rte_kind -->
+<g id="module~~mo_optical_props_kernels~~UsesGraph_node3" class="node">
+<title>mo_rte_kind</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="81,-24 3,-24 3,0 81,0 81,-24"/>
+<text text-anchor="middle" x="42" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind</text>
+</g>
+<!-- module~mo_optical_props_kernels&#45;&gt;mo_rte_kind -->
+<g id="module~~mo_optical_props_kernels~~UsesGraph_edge2" class="edge">
+<title>module~mo_optical_props_kernels&#45;&gt;mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M119.83,-22.68C110.07,-21.33 100.29,-19.97 91.13,-18.69"/>
+<polygon fill="#000000" stroke="#000000" points="91.47,-15.21 81.08,-17.3 90.5,-22.14 91.47,-15.21"/>
 </g>
 </g>
 </svg>
diff --git a/reference/rte-kernels/module/mo_rte_solver_kernels.html b/reference/rte-kernels/module/mo_rte_solver_kernels.html
index 6b68b74bc..b11631cc8 100644
--- a/reference/rte-kernels/module/mo_rte_solver_kernels.html
+++ b/reference/rte-kernels/module/mo_rte_solver_kernels.html
@@ -152,9 +152,9 @@ <h3 class="panel-title">Uses</h3>
       <ul class="list-group">
       <li class="list-group-item">
   <ul class="list-inline">
-    <li>mo_rte_kind</li>
-    <li><a href='../module/mo_rte_util_array.html'>mo_rte_util_array</a></li>
     <li><a href="http://fortranwiki.org/fortran/show/iso_c_binding">iso_c_binding</a></li>
+    <li><a href='../module/mo_rte_util_array.html'>mo_rte_util_array</a></li>
+    <li>mo_rte_kind</li>
   </ul>
       </li>
       <li class="list-group-item">
@@ -164,64 +164,64 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.43.0 (0)
  -->
 <!-- Title: module~~mo_rte_solver_kernels~~UsesGraph Pages: 1 -->
-<svg id="modulemo_rte_solver_kernelsUsesGraph" width="396pt" height="94pt"
- viewBox="0.00 0.00 396.00 94.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~mo_rte_solver_kernels~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 90)">
+<svg id="modulemo_rte_solver_kernelsUsesGraph" width="396pt" height="112pt"
+ viewBox="0.00 0.00 396.00 112.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~mo_rte_solver_kernels~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 108)">
 <title>module~~mo_rte_solver_kernels~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-90 392,-90 392,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-108 392,-108 392,4 -4,4"/>
 <!-- module~mo_rte_solver_kernels -->
 <g id="module~~mo_rte_solver_kernels~~UsesGraph_node1" class="node">
 <title>module~mo_rte_solver_kernels</title>
-<polygon fill="none" stroke="black" points="388,-66 256,-66 256,-42 388,-42 388,-66"/>
-<text text-anchor="middle" x="322" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_rte_solver_kernels</text>
+<polygon fill="none" stroke="black" points="388,-64 256,-64 256,-40 388,-40 388,-64"/>
+<text text-anchor="middle" x="322" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50">mo_rte_solver_kernels</text>
 </g>
-<!-- mo_rte_kind -->
+<!-- iso_c_binding -->
 <g id="module~~mo_rte_solver_kernels~~UsesGraph_node2" class="node">
-<title>mo_rte_kind</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="78,-86 0,-86 0,-62 78,-62 78,-86"/>
-<text text-anchor="middle" x="39" y="-71.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind</text>
+<title>iso_c_binding</title>
+<g id="a_module~~mo_rte_solver_kernels~~UsesGraph_node2"><a xlink:href="http://fortranwiki.org/fortran/show/iso_c_binding" xlink:title="iso_c_binding">
+<polygon fill="#337ab7" stroke="#337ab7" points="209,-104 125,-104 125,-80 209,-80 209,-104"/>
+<text text-anchor="middle" x="167" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
+</a>
 </g>
-<!-- module~mo_rte_solver_kernels&#45;&gt;mo_rte_kind -->
+</g>
+<!-- module~mo_rte_solver_kernels&#45;&gt;iso_c_binding -->
 <g id="module~~mo_rte_solver_kernels~~UsesGraph_edge1" class="edge">
-<title>module~mo_rte_solver_kernels&#45;&gt;mo_rte_kind</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M273.28,-66.02C256.55,-69.67 237.55,-73.19 220,-75 173.14,-79.82 161.11,-75.32 114,-75 105.69,-74.94 96.85,-74.85 88.29,-74.75"/>
-<polygon fill="#000000" stroke="#000000" points="88.07,-71.24 78.03,-74.61 87.98,-78.24 88.07,-71.24"/>
+<title>module~mo_rte_solver_kernels&#45;&gt;iso_c_binding</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.09,-64C257.42,-68.62 237.13,-73.93 219.01,-78.67"/>
+<polygon fill="#000000" stroke="#000000" points="217.98,-75.32 209.19,-81.23 219.75,-82.09 217.98,-75.32"/>
 </g>
-<!-- module~mo_rte_util_array -->
+<!-- mo_rte_kind -->
 <g id="module~~mo_rte_solver_kernels~~UsesGraph_node3" class="node">
-<title>module~mo_rte_util_array</title>
-<g id="a_module~~mo_rte_solver_kernels~~UsesGraph_node3"><a xlink:href=".././module/mo_rte_util_array.html" xlink:title="mo_rte_util_array">
-<polygon fill="#337ab7" stroke="#337ab7" points="220,-66 114,-66 114,-42 220,-42 220,-66"/>
-<text text-anchor="middle" x="167" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array</text>
-</a>
-</g>
+<title>mo_rte_kind</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="78,-44 0,-44 0,-20 78,-20 78,-44"/>
+<text text-anchor="middle" x="39" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_kind</text>
 </g>
-<!-- module~mo_rte_solver_kernels&#45;&gt;module~mo_rte_util_array -->
+<!-- module~mo_rte_solver_kernels&#45;&gt;mo_rte_kind -->
 <g id="module~~mo_rte_solver_kernels~~UsesGraph_edge2" class="edge">
-<title>module~mo_rte_solver_kernels&#45;&gt;module~mo_rte_util_array</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.67,-54C247.24,-54 238.62,-54 230.25,-54"/>
-<polygon fill="#000000" stroke="#000000" points="230.17,-50.5 220.17,-54 230.17,-57.5 230.17,-50.5"/>
+<title>module~mo_rte_solver_kernels&#45;&gt;mo_rte_kind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.83,-47.36C204.58,-43.71 134.35,-38.72 88.1,-35.42"/>
+<polygon fill="#000000" stroke="#000000" points="88.27,-31.93 78.04,-34.71 87.77,-38.91 88.27,-31.93"/>
 </g>
-<!-- iso_c_binding -->
+<!-- module~mo_rte_util_array -->
 <g id="module~~mo_rte_solver_kernels~~UsesGraph_node4" class="node">
-<title>iso_c_binding</title>
-<g id="a_module~~mo_rte_solver_kernels~~UsesGraph_node4"><a xlink:href="http://fortranwiki.org/fortran/show/iso_c_binding" xlink:title="iso_c_binding">
-<polygon fill="#337ab7" stroke="#337ab7" points="209,-24 125,-24 125,0 209,0 209,-24"/>
-<text text-anchor="middle" x="167" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
+<title>module~mo_rte_util_array</title>
+<g id="a_module~~mo_rte_solver_kernels~~UsesGraph_node4"><a xlink:href=".././module/mo_rte_util_array.html" xlink:title="mo_rte_util_array">
+<polygon fill="#337ab7" stroke="#337ab7" points="220,-24 114,-24 114,0 220,0 220,-24"/>
+<text text-anchor="middle" x="167" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mo_rte_util_array</text>
 </a>
 </g>
 </g>
-<!-- module~mo_rte_solver_kernels&#45;&gt;iso_c_binding -->
+<!-- module~mo_rte_solver_kernels&#45;&gt;module~mo_rte_util_array -->
 <g id="module~~mo_rte_solver_kernels~~UsesGraph_edge3" class="edge">
-<title>module~mo_rte_solver_kernels&#45;&gt;iso_c_binding</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M277.16,-41.96C259.04,-36.99 237.92,-31.19 219.11,-26.03"/>
-<polygon fill="#000000" stroke="#000000" points="219.79,-22.59 209.22,-23.32 217.94,-29.34 219.79,-22.59"/>
+<title>module~mo_rte_solver_kernels&#45;&gt;module~mo_rte_util_array</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.09,-40C258.98,-35.79 240.7,-31.01 223.86,-26.6"/>
+<polygon fill="#000000" stroke="#000000" points="224.7,-23.21 214.14,-24.06 222.93,-29.98 224.7,-23.21"/>
 </g>
 <!-- module~mo_rte_util_array&#45;&gt;mo_rte_kind -->
 <g id="module~~mo_rte_solver_kernels~~UsesGraph_edge4" class="edge">
 <title>module~mo_rte_util_array&#45;&gt;mo_rte_kind</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M113.66,-62.31C105.2,-63.65 96.47,-65.04 88.12,-66.36"/>
-<polygon fill="#000000" stroke="#000000" points="87.48,-62.92 78.16,-67.94 88.58,-69.83 87.48,-62.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M113.66,-20.31C105.2,-21.65 96.47,-23.04 88.12,-24.36"/>
+<polygon fill="#000000" stroke="#000000" points="87.48,-20.92 78.16,-25.94 88.58,-27.83 87.48,-20.92"/>
 </g>
 </g>
 </svg>
diff --git a/reference/rte-kernels/proc/sw_solver_2stream.html b/reference/rte-kernels/proc/sw_solver_2stream.html
index 9bdf7b15a..a2b918978 100644
--- a/reference/rte-kernels/proc/sw_solver_2stream.html
+++ b/reference/rte-kernels/proc/sw_solver_2stream.html
@@ -315,7 +315,7 @@ <h3 class="panel-title">Calls</h3>
 </g>
 </g>
 <!-- interface~zero_array&#45;&gt;proc~zero_array_3d -->
-<g id="proc~~sw_solver_2stream~~CallsGraph_edge4" class="edge">
+<g id="proc~~sw_solver_2stream~~CallsGraph_edge3" class="edge">
 <title>interface~zero_array&#45;&gt;proc~zero_array_3d</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M217.1,-81.24C225.23,-82.75 234.12,-84.41 242.92,-86.04"/>
 <polygon fill="#000000" stroke="#000000" points="242.29,-89.49 252.76,-87.87 243.57,-82.6 242.29,-89.49"/>
@@ -330,7 +330,7 @@ <h3 class="panel-title">Calls</h3>
 </g>
 </g>
 <!-- interface~zero_array&#45;&gt;proc~zero_array_4d -->
-<g id="proc~~sw_solver_2stream~~CallsGraph_edge3" class="edge">
+<g id="proc~~sw_solver_2stream~~CallsGraph_edge4" class="edge">
 <title>interface~zero_array&#45;&gt;proc~zero_array_4d</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M217.1,-68.76C225.23,-67.25 234.12,-65.59 242.92,-63.96"/>
 <polygon fill="#000000" stroke="#000000" points="243.57,-67.4 252.76,-62.13 242.29,-60.51 243.57,-67.4"/>
diff --git a/reference/rte-kernels/tipuesearch/tipuesearch_content.js b/reference/rte-kernels/tipuesearch/tipuesearch_content.js
index 2978a4f62..bc72682ce 100644
--- a/reference/rte-kernels/tipuesearch/tipuesearch_content.js
+++ b/reference/rte-kernels/tipuesearch/tipuesearch_content.js
@@ -1 +1 @@
-var tipuesearch = {"pages":[{"title":" RTE kernels ","text":"RTE kernels These pages document the low-level computational kernels used by RRTMGP. The listings below are not exhaustive.\nTo see the full listings use the links at the top of the page.\nThere is a search bar in the top right. Return to the Documentation overview or the reference overview . Developer Info The RTE+RRTTMGP consortium","tags":"home","loc":"index.html"},{"title":"delta_scale_2str_f_k – RTE kernels","text":"public pure subroutine delta_scale_2str_f_k(ncol, nlay, ngpt, tau, ssa, g, f) bind(C, name=\"0\") Delta-scale two-stream optical properties given user-provided value of (forward scattering) Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: tau Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: ssa Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: g Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(in), dimension(ncol, nlay, ngpt) :: f User-provided forward-scattering fraction Called by proc~~delta_scale_2str_f_k~~CalledByGraph proc~delta_scale_2str_f_k delta_scale_2str_f_k interface~delta_scale_2str_kernel delta_scale_2str_kernel interface~delta_scale_2str_kernel->proc~delta_scale_2str_f_k Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/delta_scale_2str_f_k.html"},{"title":"delta_scale_2str_k – RTE kernels","text":"public pure subroutine delta_scale_2str_k(ncol, nlay, ngpt, tau, ssa, g) bind(C, name=\"0\") Delta-scale assuming forward-scatternig fraction is the square of the asymmetry parameter\n   i.e. Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: tau Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: ssa Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: g Optical depth, single-scattering albedo, asymmetry parameter Called by proc~~delta_scale_2str_k~~CalledByGraph proc~delta_scale_2str_k delta_scale_2str_k interface~delta_scale_2str_kernel delta_scale_2str_kernel interface~delta_scale_2str_kernel->proc~delta_scale_2str_k Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/delta_scale_2str_k.html"},{"title":"extract_subset_absorption_tau – RTE kernels","text":"public pure subroutine extract_subset_absorption_tau(ncol, nlay, ngpt, tau_in, ssa_in, colS, colE, tau_out) bind(C, name=\"0\") Extract the absorption optical thickness Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau_in Optical thickness, single scattering albedo real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa_in Optical thickness, single scattering albedo integer, intent(in) :: colS Starting and ending index integer, intent(in) :: colE Starting and ending index real(kind=wp), intent(out), dimension(colE-colS+1, nlay,ngpt) :: tau_out absorption optical thickness subset Called by proc~~extract_subset_absorption_tau~~CalledByGraph proc~extract_subset_absorption_tau extract_subset_absorption_tau interface~extract_subset extract_subset interface~extract_subset->proc~extract_subset_absorption_tau Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/extract_subset_absorption_tau.html"},{"title":"extract_subset_dim1_3d – RTE kernels","text":"public pure subroutine extract_subset_dim1_3d(ncol, nlay, ngpt, array_in, colS, colE, array_out) bind(C, name=\"0\") Extract a subset from the first dimension (normally columns) of a 3D field.\n  Applicable to most variables e.g. tau, ssa, g Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: array_in Array to subset integer, intent(in) :: colS Starting and ending index integer, intent(in) :: colE Starting and ending index real(kind=wp), intent(out), dimension(colE-colS+1, nlay,ngpt) :: array_out subset of the input array Called by proc~~extract_subset_dim1_3d~~CalledByGraph proc~extract_subset_dim1_3d extract_subset_dim1_3d interface~extract_subset extract_subset interface~extract_subset->proc~extract_subset_dim1_3d Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/extract_subset_dim1_3d.html"},{"title":"extract_subset_dim2_4d – RTE kernels","text":"public pure subroutine extract_subset_dim2_4d(nmom, ncol, nlay, ngpt, array_in, colS, colE, array_out) bind(C, name=\"0\") Extract a subset from the second dimension (normally columns) of a 4D field.\n  Applicable to phase function moments, where the first dimension is the moment Arguments Type Intent Optional Attributes Name integer, intent(in) :: nmom Array sizes integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(nmom,ncol,nlay,ngpt) :: array_in Array to subset integer, intent(in) :: colS Starting and ending index integer, intent(in) :: colE Starting and ending index real(kind=wp), intent(out), dimension(nmom,colE-colS+1, nlay,ngpt) :: array_out subset of the input array Called by proc~~extract_subset_dim2_4d~~CalledByGraph proc~extract_subset_dim2_4d extract_subset_dim2_4d interface~extract_subset extract_subset interface~extract_subset->proc~extract_subset_dim2_4d Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/extract_subset_dim2_4d.html"},{"title":"inc_1scalar_by_1scalar_bybnd – RTE kernels","text":"public pure subroutine inc_1scalar_by_1scalar_bybnd(ncol, nlay, ngpt, tau1, tau2, nbnd, gpt_lims) bind(C, name=\"0\") increase one absorption optical depth defined on g-points by a second value defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band Contents None","tags":"","loc":"proc/inc_1scalar_by_1scalar_bybnd.html"},{"title":"inc_1scalar_by_2stream_bybnd – RTE kernels","text":"public pure subroutine inc_1scalar_by_2stream_bybnd(ncol, nlay, ngpt, tau1, tau2, ssa2, nbnd, gpt_lims) bind(C, name=\"0\") increase absorption optical depth defined on g-points  with extinction optical depth (2-stream form) defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: ssa2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band Contents None","tags":"","loc":"proc/inc_1scalar_by_2stream_bybnd.html"},{"title":"inc_1scalar_by_nstream_bybnd – RTE kernels","text":"public pure subroutine inc_1scalar_by_nstream_bybnd(ncol, nlay, ngpt, tau1, tau2, ssa2, nbnd, gpt_lims) bind(C, name=\"0\") increase absorption optical depth defined on g-points  with extinction optical depth (n-stream form) defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: ssa2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band Contents None","tags":"","loc":"proc/inc_1scalar_by_nstream_bybnd.html"},{"title":"inc_2stream_by_1scalar_bybnd – RTE kernels","text":"public pure subroutine inc_2stream_by_1scalar_bybnd(ncol, nlay, ngpt, tau1, ssa1, tau2, nbnd, gpt_lims) bind(C, name=\"0\") increment two-stream optical properties defined on g-points with absorption optical depth defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band Contents None","tags":"","loc":"proc/inc_2stream_by_1scalar_bybnd.html"},{"title":"inc_2stream_by_2stream_bybnd – RTE kernels","text":"public pure subroutine inc_2stream_by_2stream_bybnd(ncol, nlay, ngpt, tau1, ssa1, g1, tau2, ssa2, g2, nbnd, gpt_lims) bind(C, name=\"0\") increment 2-stream optical properties defined on g-points with another set defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: g1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: ssa2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: g2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band Contents None","tags":"","loc":"proc/inc_2stream_by_2stream_bybnd.html"},{"title":"inc_2stream_by_nstream_bybnd – RTE kernels","text":"public pure subroutine inc_2stream_by_nstream_bybnd(ncol, nlay, ngpt, nmom2, tau1, ssa1, g1, tau2, ssa2, p2, nbnd, gpt_lims) bind(C, name=\"0\") increment 2-stream optical properties defined on g-points with n -stream properties set defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes integer, intent(in) :: nmom2 array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: g1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: ssa2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(nmom2, ncol,nlay,nbnd) :: p2 moments of the phase function to be added integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band Contents None","tags":"","loc":"proc/inc_2stream_by_nstream_bybnd.html"},{"title":"inc_nstream_by_1scalar_bybnd – RTE kernels","text":"public pure subroutine inc_nstream_by_1scalar_bybnd(ncol, nlay, ngpt, tau1, ssa1, tau2, nbnd, gpt_lims) bind(C, name=\"0\") increment n -stream optical properties defined on g-points with absorption optical depth defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band Contents None","tags":"","loc":"proc/inc_nstream_by_1scalar_bybnd.html"},{"title":"inc_nstream_by_2stream_bybnd – RTE kernels","text":"public pure subroutine inc_nstream_by_2stream_bybnd(ncol, nlay, ngpt, nmom1, tau1, ssa1, p1, tau2, ssa2, g2, nbnd, gpt_lims) bind(C, name=\"0\") increment n-stream optical properties defined on g-points with 2-stream properties set defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes integer, intent(in) :: nmom1 array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(nmom1, ncol,nlay,ngpt) :: p1 moments of the phase function be modified real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: ssa2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: g2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band Contents None","tags":"","loc":"proc/inc_nstream_by_2stream_bybnd.html"},{"title":"inc_nstream_by_nstream_bybnd – RTE kernels","text":"public pure subroutine inc_nstream_by_nstream_bybnd(ncol, nlay, ngpt, nmom1, nmom2, tau1, ssa1, p1, tau2, ssa2, p2, nbnd, gpt_lims) bind(C, name=\"0\") increment n -stream optical properties defined on g-points with a second set defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes integer, intent(in) :: nmom1 array sizes integer, intent(in) :: nmom2 array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(nmom1, ncol,nlay,ngpt) :: p1 moments of the phase function be modified real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: ssa2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(nmom2, ncol,nlay,nbnd) :: p2 moments of the phase function to be added integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band Contents None","tags":"","loc":"proc/inc_nstream_by_nstream_bybnd.html"},{"title":"increment_1scalar_by_1scalar – RTE kernels","text":"public pure subroutine increment_1scalar_by_1scalar(ncol, nlay, ngpt, tau1, tau2) bind(C, name=\"0\") increase one absorption optical depth by a second value Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original Contents None","tags":"","loc":"proc/increment_1scalar_by_1scalar.html"},{"title":"increment_1scalar_by_2stream – RTE kernels","text":"public pure subroutine increment_1scalar_by_2stream(ncol, nlay, ngpt, tau1, tau2, ssa2) bind(C, name=\"0\") increase absorption optical depth with extinction optical depth (2-stream form) Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa2 optical properties to be added to original Contents None","tags":"","loc":"proc/increment_1scalar_by_2stream.html"},{"title":"increment_1scalar_by_nstream – RTE kernels","text":"public pure subroutine increment_1scalar_by_nstream(ncol, nlay, ngpt, tau1, tau2, ssa2) bind(C, name=\"0\") increase absorption optical depth with extinction optical depth (n-stream form) Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa2 optical properties to be added to original Contents None","tags":"","loc":"proc/increment_1scalar_by_nstream.html"},{"title":"increment_2stream_by_1scalar – RTE kernels","text":"public pure subroutine increment_2stream_by_1scalar(ncol, nlay, ngpt, tau1, ssa1, tau2) bind(C, name=\"0\") increment two-stream optical properties with absorption optical depth Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original Contents None","tags":"","loc":"proc/increment_2stream_by_1scalar.html"},{"title":"increment_2stream_by_2stream – RTE kernels","text":"public pure subroutine increment_2stream_by_2stream(ncol, nlay, ngpt, tau1, ssa1, g1, tau2, ssa2, g2) bind(C, name=\"0\") increment two-stream optical properties with a second set Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: g1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: g2 optical properties to be added to original Contents None","tags":"","loc":"proc/increment_2stream_by_2stream.html"},{"title":"increment_2stream_by_nstream – RTE kernels","text":"public pure subroutine increment_2stream_by_nstream(ncol, nlay, ngpt, nmom2, tau1, ssa1, g1, tau2, ssa2, p2) bind(C, name=\"0\") increment two-stream optical properties with n -stream Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes integer, intent(in) :: nmom2 array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: g1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa2 optical properties to be added to original real(kind=wp), intent(in), dimension(nmom2, ncol,nlay,ngpt) :: p2 moments of the phase function to be added Contents None","tags":"","loc":"proc/increment_2stream_by_nstream.html"},{"title":"increment_nstream_by_1scalar – RTE kernels","text":"public pure subroutine increment_nstream_by_1scalar(ncol, nlay, ngpt, tau1, ssa1, tau2) bind(C, name=\"0\") increment n -stream optical properties with absorption optical depth Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original Contents None","tags":"","loc":"proc/increment_nstream_by_1scalar.html"},{"title":"increment_nstream_by_2stream – RTE kernels","text":"public pure subroutine increment_nstream_by_2stream(ncol, nlay, ngpt, nmom1, tau1, ssa1, p1, tau2, ssa2, g2) bind(C, name=\"0\") increment n -stream optical properties with two-stream values Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes integer, intent(in) :: nmom1 array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified real(kind=wp), intent(inout), dimension(nmom1, ncol,nlay,ngpt) :: p1 moments of the phase function be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: g2 optical properties to be added to original Contents None","tags":"","loc":"proc/increment_nstream_by_2stream.html"},{"title":"increment_nstream_by_nstream – RTE kernels","text":"public pure subroutine increment_nstream_by_nstream(ncol, nlay, ngpt, nmom1, nmom2, tau1, ssa1, p1, tau2, ssa2, p2) bind(C, name=\"0\") increment one set of n -stream optical properties with another set Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes integer, intent(in) :: nmom1 array sizes integer, intent(in) :: nmom2 array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified real(kind=wp), intent(inout), dimension(nmom1, ncol,nlay,ngpt) :: p1 moments of the phase function be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa2 optical properties to be added to original real(kind=wp), intent(in), dimension(nmom2, ncol,nlay,ngpt) :: p2 moments of the phase function to be added Contents None","tags":"","loc":"proc/increment_nstream_by_nstream.html"},{"title":"delta_scale_2str_kernel – RTE kernels","text":"public interface delta_scale_2str_kernel Delta-scale two-stream optical properties Calls interface~~delta_scale_2str_kernel~~CallsGraph interface~delta_scale_2str_kernel delta_scale_2str_kernel proc~delta_scale_2str_f_k delta_scale_2str_f_k interface~delta_scale_2str_kernel->proc~delta_scale_2str_f_k proc~delta_scale_2str_k delta_scale_2str_k interface~delta_scale_2str_kernel->proc~delta_scale_2str_k Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Module Procedures delta_scale_2str_f_k delta_scale_2str_k Module Procedures public pure subroutine delta_scale_2str_f_k (ncol, nlay, ngpt, tau, ssa, g, f) bind(C, name=\"0\") Delta-scale two-stream optical properties given user-provided value of (forward scattering) Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: tau Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: ssa Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: g Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(in), dimension(ncol, nlay, ngpt) :: f User-provided forward-scattering fraction public pure subroutine delta_scale_2str_k (ncol, nlay, ngpt, tau, ssa, g) bind(C, name=\"0\") Delta-scale assuming forward-scatternig fraction is the square of the asymmetry parameter\n   i.e. Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: tau Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: ssa Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: g Optical depth, single-scattering albedo, asymmetry parameter","tags":"","loc":"interface/delta_scale_2str_kernel.html"},{"title":"extract_subset – RTE kernels","text":"public interface extract_subset Subsetting, meaning extracting some portion of the 3D domain Calls interface~~extract_subset~~CallsGraph interface~extract_subset extract_subset proc~extract_subset_dim1_3d extract_subset_dim1_3d interface~extract_subset->proc~extract_subset_dim1_3d proc~extract_subset_absorption_tau extract_subset_absorption_tau interface~extract_subset->proc~extract_subset_absorption_tau proc~extract_subset_dim2_4d extract_subset_dim2_4d interface~extract_subset->proc~extract_subset_dim2_4d Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Module Procedures extract_subset_dim1_3d extract_subset_dim2_4d extract_subset_absorption_tau Module Procedures public pure subroutine extract_subset_dim1_3d (ncol, nlay, ngpt, array_in, colS, colE, array_out) bind(C, name=\"0\") Extract a subset from the first dimension (normally columns) of a 3D field.\n  Applicable to most variables e.g. tau, ssa, g Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: array_in Array to subset integer, intent(in) :: colS Starting and ending index integer, intent(in) :: colE Starting and ending index real(kind=wp), intent(out), dimension(colE-colS+1, nlay,ngpt) :: array_out subset of the input array public pure subroutine extract_subset_dim2_4d (nmom, ncol, nlay, ngpt, array_in, colS, colE, array_out) bind(C, name=\"0\") Extract a subset from the second dimension (normally columns) of a 4D field.\n  Applicable to phase function moments, where the first dimension is the moment Arguments Type Intent Optional Attributes Name integer, intent(in) :: nmom Array sizes integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(nmom,ncol,nlay,ngpt) :: array_in Array to subset integer, intent(in) :: colS Starting and ending index integer, intent(in) :: colE Starting and ending index real(kind=wp), intent(out), dimension(nmom,colE-colS+1, nlay,ngpt) :: array_out subset of the input array public pure subroutine extract_subset_absorption_tau (ncol, nlay, ngpt, tau_in, ssa_in, colS, colE, tau_out) bind(C, name=\"0\") Extract the absorption optical thickness Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau_in Optical thickness, single scattering albedo real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa_in Optical thickness, single scattering albedo integer, intent(in) :: colS Starting and ending index integer, intent(in) :: colE Starting and ending index real(kind=wp), intent(out), dimension(colE-colS+1, nlay,ngpt) :: tau_out absorption optical thickness subset","tags":"","loc":"interface/extract_subset.html"},{"title":"lw_solver_2stream – RTE kernels","text":"public subroutine lw_solver_2stream(ncol, nlay, ngpt, top_at_1, tau, ssa, g, lay_source, lev_source_inc, lev_source_dec, sfc_emis, sfc_src, inc_flux, flux_up, flux_dn) bind(C, name=\"0\") Longwave two-stream calculation:\n  - combine RRTMGP-specific sources at levels\n  - compute layer reflectance, transmittance\n  - compute total source function at levels using linear-in-tau\n  - transport Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Number of columns, layers, g-points integer, intent(in) :: nlay Number of columns, layers, g-points integer, intent(in) :: ngpt Number of columns, layers, g-points logical(kind=wl), intent(in) :: top_at_1 ilay = 1 is the top of the atmosphere? real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: tau Optical thickness, single-scattering albedo, asymmetry parameter [] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: ssa Optical thickness, single-scattering albedo, asymmetry parameter [] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: g Optical thickness, single-scattering albedo, asymmetry parameter [] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: lay_source Planck source at layer average temperature [W/m2] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: lev_source_inc Planck source at layer edge for radiation in increasing ilay direction [W/m2] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: lev_source_dec Planck source at layer edge for radiation in decreasing ilay direction [W/m2] real(kind=wp), intent(in), dimension(ncol,       ngpt) :: sfc_emis Surface emissivity      [] real(kind=wp), intent(in), dimension(ncol,       ngpt) :: sfc_src Surface source function [W/m2] real(kind=wp), intent(in), dimension(ncol,       ngpt) :: inc_flux Incident diffuse flux, probably 0 [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt) :: flux_up Fluxes [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt) :: flux_dn Fluxes [W/m2] Contents None","tags":"","loc":"proc/lw_solver_2stream.html"},{"title":"lw_solver_noscat – RTE kernels","text":"public subroutine lw_solver_noscat(ncol, nlay, ngpt, top_at_1, nmus, Ds, weights, tau, lay_source, lev_source_inc, lev_source_dec, sfc_emis, sfc_src, inc_flux, flux_up, flux_dn, do_broadband, broadband_up, broadband_dn, do_Jacobians, sfc_srcJac, flux_upJac, do_rescaling, ssa, g) bind(C, name=\"0\") LW transport, no scattering, multi-angle quadrature\n  Users provide a set of weights and quadrature angles\n  Routine sums over single-angle solutions for each sets of angles/weights Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Number of columns, layers, g-points integer, intent(in) :: nlay Number of columns, layers, g-points integer, intent(in) :: ngpt Number of columns, layers, g-points logical(kind=wl), intent(in) :: top_at_1 ilay = 1 is the top of the atmosphere? integer, intent(in) :: nmus number of quadrature angles real(kind=wp), intent(in), dimension (ncol,      ngpt, nmus) :: Ds quadrature secants real(kind=wp), intent(in), dimension(nmus) :: weights quadrature weights real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: tau Absorption optical thickness [] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: lay_source Planck source at layer average temperature [W/m2] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: lev_source_inc Planck source at layer edge for radiation in increasing ilay direction [W/m2] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: lev_source_dec Planck source at layer edge for radiation in decreasing ilay direction [W/m2] real(kind=wp), intent(in), dimension(ncol,       ngpt) :: sfc_emis Surface emissivity      [] real(kind=wp), intent(in), dimension(ncol,       ngpt) :: sfc_src Surface source function [W/m2] real(kind=wp), intent(in), dimension(ncol,       ngpt) :: inc_flux Incident diffuse flux, probably 0 [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt), target :: flux_up Fluxes [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt), target :: flux_dn Fluxes [W/m2] logical(kind=wl), intent(in) :: do_broadband real(kind=wp), intent(out), dimension(ncol,nlay+1     ), target :: broadband_up Spectrally-integrated fluxes [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1     ), target :: broadband_dn Spectrally-integrated fluxes [W/m2] logical(kind=wl), intent(in) :: do_Jacobians compute Jacobian with respect to surface temeprature? real(kind=wp), intent(in), dimension(ncol       ,ngpt) :: sfc_srcJac surface temperature Jacobian of surface source function [W/m2/K] real(kind=wp), intent(out), dimension(ncol,nlay+1     ), target :: flux_upJac surface temperature Jacobian of Radiances [W/m2-str / K] logical(kind=wl), intent(in) :: do_rescaling Approximate treatment of scattering (10.1175/JAS-D-18-0014.1) real(kind=wp), intent(in), dimension(ncol,nlay  ,ngpt) :: ssa single-scattering albedo, asymmetry parameter real(kind=wp), intent(in), dimension(ncol,nlay  ,ngpt) :: g single-scattering albedo, asymmetry parameter Contents None","tags":"","loc":"proc/lw_solver_noscat.html"},{"title":"sw_solver_2stream – RTE kernels","text":"public subroutine sw_solver_2stream(ncol, nlay, ngpt, top_at_1, tau, ssa, g, mu0, sfc_alb_dir, sfc_alb_dif, inc_flux_dir, flux_up, flux_dn, flux_dir, has_dif_bc, inc_flux_dif, do_broadband, broadband_up, broadband_dn, broadband_dir) bind(C, name=\"0\") Shortwave two-stream calculation:\n  compute layer reflectance, transmittance\n  compute solar source function for diffuse radiation\n  transport Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Number of columns, layers, g-points integer, intent(in) :: nlay Number of columns, layers, g-points integer, intent(in) :: ngpt Number of columns, layers, g-points logical(kind=wl), intent(in) :: top_at_1 ilay = 1 is the top of the atmosphere? real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: tau Optical thickness, single-scattering albedo, asymmetry parameter [] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: ssa Optical thickness, single-scattering albedo, asymmetry parameter [] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: g Optical thickness, single-scattering albedo, asymmetry parameter [] real(kind=wp), intent(in), dimension(ncol,nlay       ) :: mu0 cosine of solar zenith angle real(kind=wp), intent(in), dimension(ncol,       ngpt) :: sfc_alb_dir Spectral surface albedo for direct and diffuse radiation real(kind=wp), intent(in), dimension(ncol,       ngpt) :: sfc_alb_dif Spectral surface albedo for direct and diffuse radiation real(kind=wp), intent(in), dimension(ncol,       ngpt) :: inc_flux_dir Direct beam incident flux real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt), target :: flux_up Fluxes [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt), target :: flux_dn Fluxes [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt), target :: flux_dir Fluxes [W/m2] logical(kind=wl), intent(in) :: has_dif_bc Is a boundary condition for diffuse flux supplied? real(kind=wp), intent(in), dimension(ncol,       ngpt) :: inc_flux_dif Boundary condition for diffuse flux [W/m2] logical(kind=wl), intent(in) :: do_broadband Provide broadband-integrated, not spectrally-resolved, fluxes? real(kind=wp), intent(out), dimension(ncol,nlay+1     ) :: broadband_up Broadband integrated fluxes real(kind=wp), intent(out), dimension(ncol,nlay+1     ) :: broadband_dn Broadband integrated fluxes real(kind=wp), intent(out), dimension(ncol,nlay+1     ) :: broadband_dir Broadband integrated fluxes Calls proc~~sw_solver_2stream~~CallsGraph proc~sw_solver_2stream sw_solver_2stream interface~zero_array zero_array proc~sw_solver_2stream->interface~zero_array proc~zero_array_1d zero_array_1D interface~zero_array->proc~zero_array_1d proc~zero_array_3d zero_array_3D interface~zero_array->proc~zero_array_3d proc~zero_array_4d zero_array_4D interface~zero_array->proc~zero_array_4d proc~zero_array_2d zero_array_2D interface~zero_array->proc~zero_array_2d Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/sw_solver_2stream.html"},{"title":"sw_solver_noscat – RTE kernels","text":"public pure subroutine sw_solver_noscat(ncol, nlay, ngpt, top_at_1, tau, mu0, inc_flux_dir, flux_dir) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Number of columns, layers, g-points integer, intent(in) :: nlay Number of columns, layers, g-points integer, intent(in) :: ngpt Number of columns, layers, g-points logical(kind=wl), intent(in) :: top_at_1 ilay = 1 is the top of the atmosphere? real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: tau Absorption optical thickness [] real(kind=wp), intent(in), dimension(ncol,nlay       ) :: mu0 cosine of solar zenith angle real(kind=wp), intent(in), dimension(ncol,       ngpt) :: inc_flux_dir Direct beam incident flux [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt) :: flux_dir Direct-beam flux, spectral [W/m2] Contents None","tags":"","loc":"proc/sw_solver_noscat.html"},{"title":"zero_array_1D – RTE kernels","text":"public subroutine zero_array_1D(ni, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni real(kind=wp), intent(out), dimension(ni) :: array Called by proc~~zero_array_1d~~CalledByGraph proc~zero_array_1d zero_array_1D interface~zero_array zero_array interface~zero_array->proc~zero_array_1d proc~sw_solver_2stream sw_solver_2stream proc~sw_solver_2stream->interface~zero_array Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/zero_array_1d.html"},{"title":"zero_array_2D – RTE kernels","text":"public subroutine zero_array_2D(ni, nj, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni integer, intent(in) :: nj real(kind=wp), intent(out), dimension(ni, nj) :: array Called by proc~~zero_array_2d~~CalledByGraph proc~zero_array_2d zero_array_2D interface~zero_array zero_array interface~zero_array->proc~zero_array_2d proc~sw_solver_2stream sw_solver_2stream proc~sw_solver_2stream->interface~zero_array Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/zero_array_2d.html"},{"title":"zero_array_3D – RTE kernels","text":"public subroutine zero_array_3D(ni, nj, nk, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni integer, intent(in) :: nj integer, intent(in) :: nk real(kind=wp), intent(out), dimension(ni, nj, nk) :: array Called by proc~~zero_array_3d~~CalledByGraph proc~zero_array_3d zero_array_3D interface~zero_array zero_array interface~zero_array->proc~zero_array_3d proc~sw_solver_2stream sw_solver_2stream proc~sw_solver_2stream->interface~zero_array Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/zero_array_3d.html"},{"title":"zero_array_4D – RTE kernels","text":"public subroutine zero_array_4D(ni, nj, nk, nl, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni integer, intent(in) :: nj integer, intent(in) :: nk integer, intent(in) :: nl real(kind=wp), intent(out), dimension(ni, nj, nk, nl) :: array Called by proc~~zero_array_4d~~CalledByGraph proc~zero_array_4d zero_array_4D interface~zero_array zero_array interface~zero_array->proc~zero_array_4d proc~sw_solver_2stream sw_solver_2stream proc~sw_solver_2stream->interface~zero_array Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/zero_array_4d.html"},{"title":"zero_array – RTE kernels","text":"public interface zero_array Efficiently set arrays to zero Calls interface~~zero_array~~CallsGraph interface~zero_array zero_array proc~zero_array_1d zero_array_1D interface~zero_array->proc~zero_array_1d proc~zero_array_3d zero_array_3D interface~zero_array->proc~zero_array_3d proc~zero_array_4d zero_array_4D interface~zero_array->proc~zero_array_4d proc~zero_array_2d zero_array_2D interface~zero_array->proc~zero_array_2d Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~zero_array~~CalledByGraph interface~zero_array zero_array proc~sw_solver_2stream sw_solver_2stream proc~sw_solver_2stream->interface~zero_array Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Module Procedures zero_array_1D zero_array_2D zero_array_3D zero_array_4D Module Procedures public subroutine zero_array_1D (ni, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni real(kind=wp), intent(out), dimension(ni) :: array public subroutine zero_array_2D (ni, nj, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni integer, intent(in) :: nj real(kind=wp), intent(out), dimension(ni, nj) :: array public subroutine zero_array_3D (ni, nj, nk, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni integer, intent(in) :: nj integer, intent(in) :: nk real(kind=wp), intent(out), dimension(ni, nj, nk) :: array public subroutine zero_array_4D (ni, nj, nk, nl, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni integer, intent(in) :: nj integer, intent(in) :: nk integer, intent(in) :: nl real(kind=wp), intent(out), dimension(ni, nj, nk, nl) :: array","tags":"","loc":"interface/zero_array.html"},{"title":"sum_broadband – RTE kernels","text":"public subroutine sum_broadband(ncol, nlev, ngpt, spectral_flux, broadband_flux) bind(C, name=\"0\") Spectral reduction over all points Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlev Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(ncol, nlev, ngpt) :: spectral_flux Spectrally-resolved flux real(kind=wp), intent(out), dimension(ncol, nlev) :: broadband_flux Sum of spectrally-resolved flux over ngpt Contents None","tags":"","loc":"proc/sum_broadband.html"},{"title":"net_broadband – RTE kernels","text":"public interface net_broadband Interface for computing net flux Contents Module Procedures net_broadband_full net_broadband_precalc Module Procedures private subroutine net_broadband_full(ncol, nlev, ngpt, spectral_flux_dn, spectral_flux_up, broadband_flux_net) bind(C, name=\"0\") Spectral reduction over all points for net flux Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlev Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(ncol, nlev, ngpt) :: spectral_flux_dn Spectrally-resolved flux up and down real(kind=wp), intent(in), dimension(ncol, nlev, ngpt) :: spectral_flux_up Spectrally-resolved flux up and down real(kind=wp), intent(out), dimension(ncol, nlev) :: broadband_flux_net Net (down minus up) summed over ngpt private subroutine net_broadband_precalc(ncol, nlev, flux_dn, flux_up, broadband_flux_net) bind(C, name=\"0\") Net flux when bradband flux up and down are already available Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlev Array sizes real(kind=wp), intent(in), dimension(ncol, nlev) :: flux_dn Broadband downward and upward fluxes real(kind=wp), intent(in), dimension(ncol, nlev) :: flux_up Broadband downward and upward fluxes real(kind=wp), intent(out), dimension(ncol, nlev) :: broadband_flux_net Net (down minus up)","tags":"","loc":"interface/net_broadband.html"},{"title":"mo_optical_props_kernels – RTE kernels","text":"Kernels for arrays of optical properties: - delta-scaling\n- adding two sets of properties\n- extracting subsets along the column dimension Uses mo_rte_kind iso_c_binding module~~mo_optical_props_kernels~~UsesGraph module~mo_optical_props_kernels mo_optical_props_kernels mo_rte_kind mo_rte_kind module~mo_optical_props_kernels->mo_rte_kind iso_c_binding iso_c_binding module~mo_optical_props_kernels->iso_c_binding Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Interfaces delta_scale_2str_kernel extract_subset Subroutines delta_scale_2str_f_k delta_scale_2str_k extract_subset_absorption_tau extract_subset_dim1_3d extract_subset_dim2_4d inc_1scalar_by_1scalar_bybnd inc_1scalar_by_2stream_bybnd inc_1scalar_by_nstream_bybnd inc_2stream_by_1scalar_bybnd inc_2stream_by_2stream_bybnd inc_2stream_by_nstream_bybnd inc_nstream_by_1scalar_bybnd inc_nstream_by_2stream_bybnd inc_nstream_by_nstream_bybnd increment_1scalar_by_1scalar increment_1scalar_by_2stream increment_1scalar_by_nstream increment_2stream_by_1scalar increment_2stream_by_2stream increment_2stream_by_nstream increment_nstream_by_1scalar increment_nstream_by_2stream increment_nstream_by_nstream Interfaces public interface delta_scale_2str_kernel Delta-scale two-stream optical properties public pure subroutine delta_scale_2str_f_k (ncol, nlay, ngpt, tau, ssa, g, f) bind(C, name=\"0\") Delta-scale two-stream optical properties given user-provided value of (forward scattering) Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: tau Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: ssa Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: g Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(in), dimension(ncol, nlay, ngpt) :: f User-provided forward-scattering fraction public pure subroutine delta_scale_2str_k (ncol, nlay, ngpt, tau, ssa, g) bind(C, name=\"0\") Delta-scale assuming forward-scatternig fraction is the square of the asymmetry parameter\n   i.e. Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: tau Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: ssa Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: g Optical depth, single-scattering albedo, asymmetry parameter public interface extract_subset Subsetting, meaning extracting some portion of the 3D domain public pure subroutine extract_subset_dim1_3d (ncol, nlay, ngpt, array_in, colS, colE, array_out) bind(C, name=\"0\") Extract a subset from the first dimension (normally columns) of a 3D field.\n  Applicable to most variables e.g. tau, ssa, g Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: array_in Array to subset integer, intent(in) :: colS Starting and ending index integer, intent(in) :: colE Starting and ending index real(kind=wp), intent(out), dimension(colE-colS+1, nlay,ngpt) :: array_out subset of the input array public pure subroutine extract_subset_dim2_4d (nmom, ncol, nlay, ngpt, array_in, colS, colE, array_out) bind(C, name=\"0\") Extract a subset from the second dimension (normally columns) of a 4D field.\n  Applicable to phase function moments, where the first dimension is the moment Arguments Type Intent Optional Attributes Name integer, intent(in) :: nmom Array sizes integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(nmom,ncol,nlay,ngpt) :: array_in Array to subset integer, intent(in) :: colS Starting and ending index integer, intent(in) :: colE Starting and ending index real(kind=wp), intent(out), dimension(nmom,colE-colS+1, nlay,ngpt) :: array_out subset of the input array public pure subroutine extract_subset_absorption_tau (ncol, nlay, ngpt, tau_in, ssa_in, colS, colE, tau_out) bind(C, name=\"0\") Extract the absorption optical thickness Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau_in Optical thickness, single scattering albedo real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa_in Optical thickness, single scattering albedo integer, intent(in) :: colS Starting and ending index integer, intent(in) :: colE Starting and ending index real(kind=wp), intent(out), dimension(colE-colS+1, nlay,ngpt) :: tau_out absorption optical thickness subset Subroutines public pure subroutine delta_scale_2str_f_k (ncol, nlay, ngpt, tau, ssa, g, f) bind(C, name=\"0\") Delta-scale two-stream optical properties given user-provided value of (forward scattering) Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: tau Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: ssa Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: g Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(in), dimension(ncol, nlay, ngpt) :: f User-provided forward-scattering fraction public pure subroutine delta_scale_2str_k (ncol, nlay, ngpt, tau, ssa, g) bind(C, name=\"0\") Delta-scale assuming forward-scatternig fraction is the square of the asymmetry parameter\n   i.e. Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: tau Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: ssa Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: g Optical depth, single-scattering albedo, asymmetry parameter public pure subroutine extract_subset_absorption_tau (ncol, nlay, ngpt, tau_in, ssa_in, colS, colE, tau_out) bind(C, name=\"0\") Extract the absorption optical thickness Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau_in Optical thickness, single scattering albedo real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa_in Optical thickness, single scattering albedo integer, intent(in) :: colS Starting and ending index integer, intent(in) :: colE Starting and ending index real(kind=wp), intent(out), dimension(colE-colS+1, nlay,ngpt) :: tau_out absorption optical thickness subset public pure subroutine extract_subset_dim1_3d (ncol, nlay, ngpt, array_in, colS, colE, array_out) bind(C, name=\"0\") Extract a subset from the first dimension (normally columns) of a 3D field.\n  Applicable to most variables e.g. tau, ssa, g Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: array_in Array to subset integer, intent(in) :: colS Starting and ending index integer, intent(in) :: colE Starting and ending index real(kind=wp), intent(out), dimension(colE-colS+1, nlay,ngpt) :: array_out subset of the input array public pure subroutine extract_subset_dim2_4d (nmom, ncol, nlay, ngpt, array_in, colS, colE, array_out) bind(C, name=\"0\") Extract a subset from the second dimension (normally columns) of a 4D field.\n  Applicable to phase function moments, where the first dimension is the moment Arguments Type Intent Optional Attributes Name integer, intent(in) :: nmom Array sizes integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(nmom,ncol,nlay,ngpt) :: array_in Array to subset integer, intent(in) :: colS Starting and ending index integer, intent(in) :: colE Starting and ending index real(kind=wp), intent(out), dimension(nmom,colE-colS+1, nlay,ngpt) :: array_out subset of the input array public pure subroutine inc_1scalar_by_1scalar_bybnd (ncol, nlay, ngpt, tau1, tau2, nbnd, gpt_lims) bind(C, name=\"0\") increase one absorption optical depth defined on g-points by a second value defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band public pure subroutine inc_1scalar_by_2stream_bybnd (ncol, nlay, ngpt, tau1, tau2, ssa2, nbnd, gpt_lims) bind(C, name=\"0\") increase absorption optical depth defined on g-points  with extinction optical depth (2-stream form) defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: ssa2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band public pure subroutine inc_1scalar_by_nstream_bybnd (ncol, nlay, ngpt, tau1, tau2, ssa2, nbnd, gpt_lims) bind(C, name=\"0\") increase absorption optical depth defined on g-points  with extinction optical depth (n-stream form) defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: ssa2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band public pure subroutine inc_2stream_by_1scalar_bybnd (ncol, nlay, ngpt, tau1, ssa1, tau2, nbnd, gpt_lims) bind(C, name=\"0\") increment two-stream optical properties defined on g-points with absorption optical depth defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band public pure subroutine inc_2stream_by_2stream_bybnd (ncol, nlay, ngpt, tau1, ssa1, g1, tau2, ssa2, g2, nbnd, gpt_lims) bind(C, name=\"0\") increment 2-stream optical properties defined on g-points with another set defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: g1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: ssa2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: g2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band public pure subroutine inc_2stream_by_nstream_bybnd (ncol, nlay, ngpt, nmom2, tau1, ssa1, g1, tau2, ssa2, p2, nbnd, gpt_lims) bind(C, name=\"0\") increment 2-stream optical properties defined on g-points with n -stream properties set defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes integer, intent(in) :: nmom2 array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: g1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: ssa2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(nmom2, ncol,nlay,nbnd) :: p2 moments of the phase function to be added integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band public pure subroutine inc_nstream_by_1scalar_bybnd (ncol, nlay, ngpt, tau1, ssa1, tau2, nbnd, gpt_lims) bind(C, name=\"0\") increment n -stream optical properties defined on g-points with absorption optical depth defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band public pure subroutine inc_nstream_by_2stream_bybnd (ncol, nlay, ngpt, nmom1, tau1, ssa1, p1, tau2, ssa2, g2, nbnd, gpt_lims) bind(C, name=\"0\") increment n-stream optical properties defined on g-points with 2-stream properties set defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes integer, intent(in) :: nmom1 array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(nmom1, ncol,nlay,ngpt) :: p1 moments of the phase function be modified real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: ssa2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: g2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band public pure subroutine inc_nstream_by_nstream_bybnd (ncol, nlay, ngpt, nmom1, nmom2, tau1, ssa1, p1, tau2, ssa2, p2, nbnd, gpt_lims) bind(C, name=\"0\") increment n -stream optical properties defined on g-points with a second set defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes integer, intent(in) :: nmom1 array sizes integer, intent(in) :: nmom2 array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(nmom1, ncol,nlay,ngpt) :: p1 moments of the phase function be modified real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: ssa2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(nmom2, ncol,nlay,nbnd) :: p2 moments of the phase function to be added integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band public pure subroutine increment_1scalar_by_1scalar (ncol, nlay, ngpt, tau1, tau2) bind(C, name=\"0\") increase one absorption optical depth by a second value Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original public pure subroutine increment_1scalar_by_2stream (ncol, nlay, ngpt, tau1, tau2, ssa2) bind(C, name=\"0\") increase absorption optical depth with extinction optical depth (2-stream form) Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa2 optical properties to be added to original public pure subroutine increment_1scalar_by_nstream (ncol, nlay, ngpt, tau1, tau2, ssa2) bind(C, name=\"0\") increase absorption optical depth with extinction optical depth (n-stream form) Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa2 optical properties to be added to original public pure subroutine increment_2stream_by_1scalar (ncol, nlay, ngpt, tau1, ssa1, tau2) bind(C, name=\"0\") increment two-stream optical properties with absorption optical depth Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original public pure subroutine increment_2stream_by_2stream (ncol, nlay, ngpt, tau1, ssa1, g1, tau2, ssa2, g2) bind(C, name=\"0\") increment two-stream optical properties with a second set Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: g1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: g2 optical properties to be added to original public pure subroutine increment_2stream_by_nstream (ncol, nlay, ngpt, nmom2, tau1, ssa1, g1, tau2, ssa2, p2) bind(C, name=\"0\") increment two-stream optical properties with n -stream Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes integer, intent(in) :: nmom2 array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: g1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa2 optical properties to be added to original real(kind=wp), intent(in), dimension(nmom2, ncol,nlay,ngpt) :: p2 moments of the phase function to be added public pure subroutine increment_nstream_by_1scalar (ncol, nlay, ngpt, tau1, ssa1, tau2) bind(C, name=\"0\") increment n -stream optical properties with absorption optical depth Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original public pure subroutine increment_nstream_by_2stream (ncol, nlay, ngpt, nmom1, tau1, ssa1, p1, tau2, ssa2, g2) bind(C, name=\"0\") increment n -stream optical properties with two-stream values Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes integer, intent(in) :: nmom1 array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified real(kind=wp), intent(inout), dimension(nmom1, ncol,nlay,ngpt) :: p1 moments of the phase function be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: g2 optical properties to be added to original public pure subroutine increment_nstream_by_nstream (ncol, nlay, ngpt, nmom1, nmom2, tau1, ssa1, p1, tau2, ssa2, p2) bind(C, name=\"0\") increment one set of n -stream optical properties with another set Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes integer, intent(in) :: nmom1 array sizes integer, intent(in) :: nmom2 array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified real(kind=wp), intent(inout), dimension(nmom1, ncol,nlay,ngpt) :: p1 moments of the phase function be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa2 optical properties to be added to original real(kind=wp), intent(in), dimension(nmom2, ncol,nlay,ngpt) :: p2 moments of the phase function to be added","tags":"","loc":"module/mo_optical_props_kernels.html"},{"title":"mo_rte_solver_kernels – RTE kernels","text":"Numeric calculations for radiative transfer solvers Emission/absorption (no-scattering) calculations solver for multi-angle Gaussian quadrature solver for a single angle, calling source function computation (linear-in-tau) transport Extinction-only calculation (direct solar beam) Two-stream calculations:\n    solvers for LW and SW with different boundary conditions and source functions source function calculation for LW, SW two-stream calculations for LW, SW (using different assumtions about phase function) transport (adding) Application of boundary conditions Uses mo_rte_kind mo_rte_util_array iso_c_binding module~~mo_rte_solver_kernels~~UsesGraph module~mo_rte_solver_kernels mo_rte_solver_kernels mo_rte_kind mo_rte_kind module~mo_rte_solver_kernels->mo_rte_kind module~mo_rte_util_array mo_rte_util_array module~mo_rte_solver_kernels->module~mo_rte_util_array iso_c_binding iso_c_binding module~mo_rte_solver_kernels->iso_c_binding module~mo_rte_util_array->mo_rte_kind Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Subroutines lw_solver_2stream lw_solver_noscat sw_solver_2stream sw_solver_noscat Subroutines public subroutine lw_solver_2stream (ncol, nlay, ngpt, top_at_1, tau, ssa, g, lay_source, lev_source_inc, lev_source_dec, sfc_emis, sfc_src, inc_flux, flux_up, flux_dn) bind(C, name=\"0\") Longwave two-stream calculation:\n  - combine RRTMGP-specific sources at levels\n  - compute layer reflectance, transmittance\n  - compute total source function at levels using linear-in-tau\n  - transport Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Number of columns, layers, g-points integer, intent(in) :: nlay Number of columns, layers, g-points integer, intent(in) :: ngpt Number of columns, layers, g-points logical(kind=wl), intent(in) :: top_at_1 ilay = 1 is the top of the atmosphere? real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: tau Optical thickness, single-scattering albedo, asymmetry parameter [] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: ssa Optical thickness, single-scattering albedo, asymmetry parameter [] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: g Optical thickness, single-scattering albedo, asymmetry parameter [] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: lay_source Planck source at layer average temperature [W/m2] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: lev_source_inc Planck source at layer edge for radiation in increasing ilay direction [W/m2] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: lev_source_dec Planck source at layer edge for radiation in decreasing ilay direction [W/m2] real(kind=wp), intent(in), dimension(ncol,       ngpt) :: sfc_emis Surface emissivity      [] real(kind=wp), intent(in), dimension(ncol,       ngpt) :: sfc_src Surface source function [W/m2] real(kind=wp), intent(in), dimension(ncol,       ngpt) :: inc_flux Incident diffuse flux, probably 0 [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt) :: flux_up Fluxes [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt) :: flux_dn Fluxes [W/m2] public subroutine lw_solver_noscat (ncol, nlay, ngpt, top_at_1, nmus, Ds, weights, tau, lay_source, lev_source_inc, lev_source_dec, sfc_emis, sfc_src, inc_flux, flux_up, flux_dn, do_broadband, broadband_up, broadband_dn, do_Jacobians, sfc_srcJac, flux_upJac, do_rescaling, ssa, g) bind(C, name=\"0\") LW transport, no scattering, multi-angle quadrature\n  Users provide a set of weights and quadrature angles\n  Routine sums over single-angle solutions for each sets of angles/weights Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Number of columns, layers, g-points integer, intent(in) :: nlay Number of columns, layers, g-points integer, intent(in) :: ngpt Number of columns, layers, g-points logical(kind=wl), intent(in) :: top_at_1 ilay = 1 is the top of the atmosphere? integer, intent(in) :: nmus number of quadrature angles real(kind=wp), intent(in), dimension (ncol,      ngpt, nmus) :: Ds quadrature secants real(kind=wp), intent(in), dimension(nmus) :: weights quadrature weights real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: tau Absorption optical thickness [] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: lay_source Planck source at layer average temperature [W/m2] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: lev_source_inc Planck source at layer edge for radiation in increasing ilay direction [W/m2] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: lev_source_dec Planck source at layer edge for radiation in decreasing ilay direction [W/m2] real(kind=wp), intent(in), dimension(ncol,       ngpt) :: sfc_emis Surface emissivity      [] real(kind=wp), intent(in), dimension(ncol,       ngpt) :: sfc_src Surface source function [W/m2] real(kind=wp), intent(in), dimension(ncol,       ngpt) :: inc_flux Incident diffuse flux, probably 0 [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt), target :: flux_up Fluxes [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt), target :: flux_dn Fluxes [W/m2] logical(kind=wl), intent(in) :: do_broadband real(kind=wp), intent(out), dimension(ncol,nlay+1     ), target :: broadband_up Spectrally-integrated fluxes [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1     ), target :: broadband_dn Spectrally-integrated fluxes [W/m2] logical(kind=wl), intent(in) :: do_Jacobians compute Jacobian with respect to surface temeprature? real(kind=wp), intent(in), dimension(ncol       ,ngpt) :: sfc_srcJac surface temperature Jacobian of surface source function [W/m2/K] real(kind=wp), intent(out), dimension(ncol,nlay+1     ), target :: flux_upJac surface temperature Jacobian of Radiances [W/m2-str / K] logical(kind=wl), intent(in) :: do_rescaling Approximate treatment of scattering (10.1175/JAS-D-18-0014.1) real(kind=wp), intent(in), dimension(ncol,nlay  ,ngpt) :: ssa single-scattering albedo, asymmetry parameter real(kind=wp), intent(in), dimension(ncol,nlay  ,ngpt) :: g single-scattering albedo, asymmetry parameter public subroutine sw_solver_2stream (ncol, nlay, ngpt, top_at_1, tau, ssa, g, mu0, sfc_alb_dir, sfc_alb_dif, inc_flux_dir, flux_up, flux_dn, flux_dir, has_dif_bc, inc_flux_dif, do_broadband, broadband_up, broadband_dn, broadband_dir) bind(C, name=\"0\") Shortwave two-stream calculation:\n  compute layer reflectance, transmittance\n  compute solar source function for diffuse radiation\n  transport Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Number of columns, layers, g-points integer, intent(in) :: nlay Number of columns, layers, g-points integer, intent(in) :: ngpt Number of columns, layers, g-points logical(kind=wl), intent(in) :: top_at_1 ilay = 1 is the top of the atmosphere? real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: tau Optical thickness, single-scattering albedo, asymmetry parameter [] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: ssa Optical thickness, single-scattering albedo, asymmetry parameter [] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: g Optical thickness, single-scattering albedo, asymmetry parameter [] real(kind=wp), intent(in), dimension(ncol,nlay       ) :: mu0 cosine of solar zenith angle real(kind=wp), intent(in), dimension(ncol,       ngpt) :: sfc_alb_dir Spectral surface albedo for direct and diffuse radiation real(kind=wp), intent(in), dimension(ncol,       ngpt) :: sfc_alb_dif Spectral surface albedo for direct and diffuse radiation real(kind=wp), intent(in), dimension(ncol,       ngpt) :: inc_flux_dir Direct beam incident flux real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt), target :: flux_up Fluxes [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt), target :: flux_dn Fluxes [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt), target :: flux_dir Fluxes [W/m2] logical(kind=wl), intent(in) :: has_dif_bc Is a boundary condition for diffuse flux supplied? real(kind=wp), intent(in), dimension(ncol,       ngpt) :: inc_flux_dif Boundary condition for diffuse flux [W/m2] logical(kind=wl), intent(in) :: do_broadband Provide broadband-integrated, not spectrally-resolved, fluxes? real(kind=wp), intent(out), dimension(ncol,nlay+1     ) :: broadband_up Broadband integrated fluxes real(kind=wp), intent(out), dimension(ncol,nlay+1     ) :: broadband_dn Broadband integrated fluxes real(kind=wp), intent(out), dimension(ncol,nlay+1     ) :: broadband_dir Broadband integrated fluxes public pure subroutine sw_solver_noscat (ncol, nlay, ngpt, top_at_1, tau, mu0, inc_flux_dir, flux_dir) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Number of columns, layers, g-points integer, intent(in) :: nlay Number of columns, layers, g-points integer, intent(in) :: ngpt Number of columns, layers, g-points logical(kind=wl), intent(in) :: top_at_1 ilay = 1 is the top of the atmosphere? real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: tau Absorption optical thickness [] real(kind=wp), intent(in), dimension(ncol,nlay       ) :: mu0 cosine of solar zenith angle real(kind=wp), intent(in), dimension(ncol,       ngpt) :: inc_flux_dir Direct beam incident flux [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt) :: flux_dir Direct-beam flux, spectral [W/m2]","tags":"","loc":"module/mo_rte_solver_kernels.html"},{"title":"mo_rte_util_array – RTE kernels","text":"Uses mo_rte_kind module~~mo_rte_util_array~~UsesGraph module~mo_rte_util_array mo_rte_util_array mo_rte_kind mo_rte_kind module~mo_rte_util_array->mo_rte_kind Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Used by module~~mo_rte_util_array~~UsedByGraph module~mo_rte_util_array mo_rte_util_array module~mo_rte_solver_kernels mo_rte_solver_kernels module~mo_rte_solver_kernels->module~mo_rte_util_array Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Interfaces zero_array Subroutines zero_array_1D zero_array_2D zero_array_3D zero_array_4D Interfaces public interface zero_array Efficiently set arrays to zero public subroutine zero_array_1D (ni, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni real(kind=wp), intent(out), dimension(ni) :: array public subroutine zero_array_2D (ni, nj, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni integer, intent(in) :: nj real(kind=wp), intent(out), dimension(ni, nj) :: array public subroutine zero_array_3D (ni, nj, nk, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni integer, intent(in) :: nj integer, intent(in) :: nk real(kind=wp), intent(out), dimension(ni, nj, nk) :: array public subroutine zero_array_4D (ni, nj, nk, nl, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni integer, intent(in) :: nj integer, intent(in) :: nk integer, intent(in) :: nl real(kind=wp), intent(out), dimension(ni, nj, nk, nl) :: array Subroutines public subroutine zero_array_1D (ni, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni real(kind=wp), intent(out), dimension(ni) :: array public subroutine zero_array_2D (ni, nj, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni integer, intent(in) :: nj real(kind=wp), intent(out), dimension(ni, nj) :: array public subroutine zero_array_3D (ni, nj, nk, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni integer, intent(in) :: nj integer, intent(in) :: nk real(kind=wp), intent(out), dimension(ni, nj, nk) :: array public subroutine zero_array_4D (ni, nj, nk, nl, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni integer, intent(in) :: nj integer, intent(in) :: nk integer, intent(in) :: nl real(kind=wp), intent(out), dimension(ni, nj, nk, nl) :: array","tags":"","loc":"module/mo_rte_util_array.html"},{"title":"mo_fluxes_broadband_kernels – RTE kernels","text":"Kernels for computing broadband fluxes Uses mo_rte_kind iso_c_binding module~~mo_fluxes_broadband_kernels~~UsesGraph module~mo_fluxes_broadband_kernels mo_fluxes_broadband_kernels mo_rte_kind mo_rte_kind module~mo_fluxes_broadband_kernels->mo_rte_kind iso_c_binding iso_c_binding module~mo_fluxes_broadband_kernels->iso_c_binding Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Interfaces net_broadband Subroutines sum_broadband Interfaces public interface net_broadband Interface for computing net flux private subroutine net_broadband_full(ncol, nlev, ngpt, spectral_flux_dn, spectral_flux_up, broadband_flux_net) bind(C, name=\"0\") Spectral reduction over all points for net flux Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlev Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(ncol, nlev, ngpt) :: spectral_flux_dn Spectrally-resolved flux up and down real(kind=wp), intent(in), dimension(ncol, nlev, ngpt) :: spectral_flux_up Spectrally-resolved flux up and down real(kind=wp), intent(out), dimension(ncol, nlev) :: broadband_flux_net Net (down minus up) summed over ngpt private subroutine net_broadband_precalc(ncol, nlev, flux_dn, flux_up, broadband_flux_net) bind(C, name=\"0\") Net flux when bradband flux up and down are already available Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlev Array sizes real(kind=wp), intent(in), dimension(ncol, nlev) :: flux_dn Broadband downward and upward fluxes real(kind=wp), intent(in), dimension(ncol, nlev) :: flux_up Broadband downward and upward fluxes real(kind=wp), intent(out), dimension(ncol, nlev) :: broadband_flux_net Net (down minus up) Subroutines public subroutine sum_broadband (ncol, nlev, ngpt, spectral_flux, broadband_flux) bind(C, name=\"0\") Spectral reduction over all points Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlev Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(ncol, nlev, ngpt) :: spectral_flux Spectrally-resolved flux real(kind=wp), intent(out), dimension(ncol, nlev) :: broadband_flux Sum of spectrally-resolved flux over ngpt","tags":"","loc":"module/mo_fluxes_broadband_kernels.html"},{"title":"mo_optical_props_kernels.F90 – RTE kernels","text":"Contents Modules mo_optical_props_kernels Source Code mo_optical_props_kernels.F90 Source Code ! This code is part of Radiative Transfer for Energetics (RTE) ! ! Contacts: Robert Pincus and Eli Mlawer ! email:  rrtmgp@aer.com ! ! Copyright 2015-,  Atmospheric and Environmental Research, ! Regents of the University of Colorado, Trustees of Columbia University.  All right reserved. ! ! Use and duplication is permitted under the terms of the !    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause ! ------------------------------------------------------------------------------------------------- ! !> ## Kernels for arrays of optical properties: !>     - delta-scaling !>     - adding two sets of properties !>     - extracting subsets along the column dimension ! ! ------------------------------------------------------------------------------------------------- module mo_optical_props_kernels use , intrinsic :: iso_c_binding use mo_rte_kind , only : wp , wl implicit none public !> Delta-scale two-stream optical properties interface delta_scale_2str_kernel module procedure delta_scale_2str_f_k , delta_scale_2str_k end interface !> Subsetting, meaning extracting some portion of the 3D domain interface extract_subset module procedure extract_subset_dim1_3d , extract_subset_dim2_4d module procedure extract_subset_absorption_tau end interface extract_subset real ( wp ), parameter , private :: eps = 3.0_wp * tiny ( 1.0_wp ) contains ! ------------------------------------------------------------------------------------------------- ! ! Delta-scaling is provided only for two-stream properties at present ! ! ------------------------------------------------------------------------------------------------- !> Delta-scale two-stream optical properties given user-provided value of f (forward scattering) ! pure subroutine delta_scale_2str_f_k ( ncol , nlay , ngpt , tau , ssa , g , f ) & bind ( C , name = \"rte_delta_scale_2str_f_k\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! Array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau , ssa , g !! Optical depth, single-scattering albedo, asymmetry parameter real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: f !! User-provided forward-scattering fraction real ( wp ) :: wf integer :: icol , ilay , igpt do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol wf = ssa ( icol , ilay , igpt ) * f ( icol , ilay , igpt ) tau ( icol , ilay , igpt ) = ( 1._wp - wf ) * tau ( icol , ilay , igpt ) ssa ( icol , ilay , igpt ) = ( ssa ( icol , ilay , igpt ) - wf ) / max ( eps ,( 1.0_wp - wf )) g ( icol , ilay , igpt ) = ( g ( icol , ilay , igpt ) - f ( icol , ilay , igpt )) / & max ( eps ,( 1._wp - f ( icol , ilay , igpt ))) end do end do end do end subroutine delta_scale_2str_f_k ! --------------------------------- !> Delta-scale assuming forward-scatternig fraction is the square of the asymmetry parameter !>    i.e. f = g&#94;2 ! pure subroutine delta_scale_2str_k ( ncol , nlay , ngpt , tau , ssa , g ) & bind ( C , name = \"rte_delta_scale_2str_k\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! Array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau , ssa , g !! Optical depth, single-scattering albedo, asymmetry parameter real ( wp ) :: f , wf integer :: icol , ilay , igpt do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol f = g ( icol , ilay , igpt ) * g ( icol , ilay , igpt ) wf = ssa ( icol , ilay , igpt ) * f tau ( icol , ilay , igpt ) = ( 1._wp - wf ) * tau ( icol , ilay , igpt ) ssa ( icol , ilay , igpt ) = ( ssa ( icol , ilay , igpt ) - wf ) / max ( eps ,( 1.0_wp - wf )) g ( icol , ilay , igpt ) = ( g ( icol , ilay , igpt ) - f ) / max ( eps ,( 1.0_wp - f )) end do end do end do end subroutine delta_scale_2str_k ! ------------------------------------------------------------------------------------------------- ! ! Addition of optical properties: the first set are incremented by the second set. ! !   There are three possible representations of optical properties (scalar = optical depth only; !   two-stream = tau, single-scattering albedo, and asymmetry factor g, and !   n-stream = tau, ssa, and phase function moments p.) Thus we need nine routines, three for !   each choice of representation on the left hand side times three representations of the !   optical properties to be added. ! !   There are two sets of these nine routines. In the first the two sets of optical !   properties are defined at the same spectral resolution. There is also a set of routines !   to add properties defined at lower spectral resolution to a set defined at higher spectral !   resolution (adding properties defined by band to those defined by g-point) ! ! ------------------------------------------------------------------------------------------------- !> increase one absorption optical depth by a second value pure subroutine increment_1scalar_by_1scalar ( ncol , nlay , ngpt , & tau1 , & tau2 ) bind ( C , name = \"rte_increment_1scalar_by_1scalar\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 !! optical properties to be modified real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau2 !! optical properties to be added to original integer :: icol , ilay , igpt do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol tau1 ( icol , ilay , igpt ) = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , igpt ) end do end do end do end subroutine increment_1scalar_by_1scalar ! --------------------------------- !> increase absorption optical depth with extinction optical depth (2-stream form) pure subroutine increment_1scalar_by_2stream ( ncol , nlay , ngpt , & tau1 , & tau2 , ssa2 ) bind ( C , name = \"rte_increment_1scalar_by_2stream\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 !! optical properties to be modified real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau2 , ssa2 !! optical properties to be added to original integer :: icol , ilay , igpt do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol tau1 ( icol , ilay , igpt ) = tau1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , igpt ) * ( 1._wp - ssa2 ( icol , ilay , igpt )) end do end do end do end subroutine increment_1scalar_by_2stream ! --------------------------------- !> increase absorption optical depth with extinction optical depth (n-stream form) pure subroutine increment_1scalar_by_nstream ( ncol , nlay , ngpt , & tau1 , & tau2 , ssa2 ) bind ( C , name = \"rte_increment_1scalar_by_nstream\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 !! optical properties to be modified real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau2 , ssa2 !! optical properties to be added to original integer :: icol , ilay , igpt do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol tau1 ( icol , ilay , igpt ) = tau1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , igpt ) * ( 1._wp - ssa2 ( icol , ilay , igpt )) end do end do end do end subroutine increment_1scalar_by_nstream ! --------------------------------- ! --------------------------------- !> increment two-stream optical properties \\tau, \\omega_0, g with absorption optical depth pure subroutine increment_2stream_by_1scalar ( ncol , nlay , ngpt , & tau1 , ssa1 , & tau2 ) bind ( C , name = \"rte_increment_2stream_by_1scalar\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 , ssa1 !! optical properties to be modified real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau2 !! optical properties to be added to original integer :: icol , ilay , igpt real ( wp ) :: tau12 do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol tau12 = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , igpt ) ssa1 ( icol , ilay , igpt ) = tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) / max ( eps , tau12 ) tau1 ( icol , ilay , igpt ) = tau12 ! g is unchanged end do end do end do end subroutine increment_2stream_by_1scalar ! --------------------------------- !> increment two-stream optical properties \\tau, \\omega_0, g with a second set pure subroutine increment_2stream_by_2stream ( ncol , nlay , ngpt , & tau1 , ssa1 , g1 , & tau2 , ssa2 , g2 ) bind ( C , name = \"rte_increment_2stream_by_2stream\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 , ssa1 , g1 !! optical properties to be modified real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau2 , ssa2 , g2 !! optical properties to be added to original integer :: icol , ilay , igpt real ( wp ) :: tau12 , tauscat12 do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol ! t=tau1 + tau2 tau12 = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , igpt ) ! w=(tau1*ssa1 + tau2*ssa2) / t tauscat12 = tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , igpt ) * ssa2 ( icol , ilay , igpt ) g1 ( icol , ilay , igpt ) = & ( tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) * g1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , igpt ) * ssa2 ( icol , ilay , igpt ) * g2 ( icol , ilay , igpt )) & / max ( eps , tauscat12 ) ssa1 ( icol , ilay , igpt ) = tauscat12 / max ( eps , tau12 ) tau1 ( icol , ilay , igpt ) = tau12 end do end do end do end subroutine increment_2stream_by_2stream ! --------------------------------- !> increment two-stream optical properties \\tau, \\omega_0, g with _n_-stream pure subroutine increment_2stream_by_nstream ( ncol , nlay , ngpt , nmom2 , & tau1 , ssa1 , g1 , & tau2 , ssa2 , p2 ) bind ( C , name = \"rte_increment_2stream_by_nstream\" ) integer , intent ( in ) :: ncol , nlay , ngpt , nmom2 !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 , ssa1 , g1 !! optical properties to be modified real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau2 , ssa2 !! optical properties to be added to original real ( wp ), dimension ( nmom2 , & ncol , nlay , ngpt ), intent ( in ) :: p2 !! moments of the phase function to be added integer :: icol , ilay , igpt real ( wp ) :: tau12 , tauscat12 do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol ! t=tau1 + tau2 tau12 = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , igpt ) ! w=(tau1*ssa1 + tau2*ssa2) / t tauscat12 = & tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , igpt ) * ssa2 ( icol , ilay , igpt ) g1 ( icol , ilay , igpt ) = & ( tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) * g1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , igpt ) * ssa2 ( icol , ilay , igpt ) * p2 ( 1 , icol , ilay , igpt )) / max ( eps , tauscat12 ) ssa1 ( icol , ilay , igpt ) = tauscat12 / max ( eps , tau12 ) tau1 ( icol , ilay , igpt ) = tau12 end do end do end do end subroutine increment_2stream_by_nstream ! --------------------------------- ! --------------------------------- !> increment _n_-stream optical properties \\tau, \\omega_0, p with absorption optical depth pure subroutine increment_nstream_by_1scalar ( ncol , nlay , ngpt , & tau1 , ssa1 , & tau2 ) bind ( C , name = \"rte_increment_nstream_by_1scalar\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 , ssa1 !! optical properties to be modified real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau2 !! optical properties to be added to original integer :: icol , ilay , igpt real ( wp ) :: tau12 do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol tau12 = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , igpt ) ssa1 ( icol , ilay , igpt ) = tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) / max ( eps , tau12 ) tau1 ( icol , ilay , igpt ) = tau12 ! p is unchanged end do end do end do end subroutine increment_nstream_by_1scalar ! --------------------------------- !> increment _n_-stream optical properties \\tau, \\omega_0, p with two-stream values pure subroutine increment_nstream_by_2stream ( ncol , nlay , ngpt , nmom1 , & tau1 , ssa1 , p1 , & tau2 , ssa2 , g2 ) bind ( C , name = \"rte_increment_nstream_by_2stream\" ) integer , intent ( in ) :: ncol , nlay , ngpt , nmom1 !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 , ssa1 !! optical properties to be modified real ( wp ), dimension ( nmom1 , & ncol , nlay , ngpt ), intent ( inout ) :: p1 !! moments of the phase function be modified real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau2 , ssa2 , g2 !! optical properties to be added to original integer :: icol , ilay , igpt real ( wp ) :: tau12 , tauscat12 real ( wp ), dimension ( nmom1 ) :: temp_moms ! TK integer :: imom !TK do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol tau12 = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , igpt ) tauscat12 = & tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , igpt ) * ssa2 ( icol , ilay , igpt ) ! ! Here assume Henyey-Greenstein ! temp_moms ( 1 ) = g2 ( icol , ilay , igpt ) do imom = 2 , nmom1 temp_moms ( imom ) = temp_moms ( imom - 1 ) * g2 ( icol , ilay , igpt ) end do p1 ( 1 : nmom1 , icol , ilay , igpt ) = & ( tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) * p1 ( 1 : nmom1 , icol , ilay , igpt ) + & tau2 ( icol , ilay , igpt ) * ssa2 ( icol , ilay , igpt ) * temp_moms ( 1 : nmom1 ) ) / max ( eps , tauscat12 ) ssa1 ( icol , ilay , igpt ) = tauscat12 / max ( eps , tau12 ) tau1 ( icol , ilay , igpt ) = tau12 end do end do end do end subroutine increment_nstream_by_2stream ! --------------------------------- !> increment one set of _n_-stream optical properties with another set pure subroutine increment_nstream_by_nstream ( ncol , nlay , ngpt , nmom1 , nmom2 , & tau1 , ssa1 , p1 , & tau2 , ssa2 , p2 ) bind ( C , name = \"rte_increment_nstream_by_nstream\" ) integer , intent ( in ) :: ncol , nlay , ngpt , nmom1 , nmom2 !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 , ssa1 !! optical properties to be modified real ( wp ), dimension ( nmom1 , & ncol , nlay , ngpt ), intent ( inout ) :: p1 !! moments of the phase function be modified real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau2 , ssa2 !! optical properties to be added to original real ( wp ), dimension ( nmom2 , & ncol , nlay , ngpt ), intent ( in ) :: p2 !! moments of the phase function to be added integer :: icol , ilay , igpt , mom_lim real ( wp ) :: tau12 , tauscat12 mom_lim = min ( nmom1 , nmom2 ) do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol tau12 = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , igpt ) tauscat12 = & tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , igpt ) * ssa2 ( icol , ilay , igpt ) ! ! If op2 has more moments than op1 these are ignored; !   if it has fewer moments the higher orders are assumed to be 0 ! p1 ( 1 : mom_lim , icol , ilay , igpt ) = & ( tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) * p1 ( 1 : mom_lim , icol , ilay , igpt ) + & tau2 ( icol , ilay , igpt ) * ssa2 ( icol , ilay , igpt ) * p2 ( 1 : mom_lim , icol , ilay , igpt )) / max ( eps , tauscat12 ) ssa1 ( icol , ilay , igpt ) = tauscat12 / max ( eps , tau12 ) tau1 ( icol , ilay , igpt ) = tau12 end do end do end do end subroutine increment_nstream_by_nstream ! ------------------------------------------------------------------------------------------------- ! ! Incrementing when the second set of optical properties is defined at lower spectral resolution !   (e.g. by band instead of by gpoint) ! ! ------------------------------------------------------------------------------------------------- !> increase one absorption optical depth defined on g-points by a second value defined on bands pure subroutine inc_1scalar_by_1scalar_bybnd ( ncol , nlay , ngpt , & tau1 , & tau2 , & nbnd , gpt_lims ) bind ( C , name = \"rte_inc_1scalar_by_1scalar_bybnd\" ) integer , intent ( in ) :: ncol , nlay , ngpt , nbnd !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 !! optical properties to be modified (defined on g-points) real ( wp ), dimension ( ncol , nlay , nbnd ), intent ( in ) :: tau2 !! optical properties to be added to original (defined on bands) integer , dimension ( 2 , nbnd ), intent ( in ) :: gpt_lims !! Starting and ending gpoint for each band integer :: ibnd , igpt do ibnd = 1 , nbnd do igpt = gpt_lims ( 1 , ibnd ), gpt_lims ( 2 , ibnd ) tau1 (:,:, igpt ) = tau1 (:,:, igpt ) + tau2 (:,:, ibnd ) end do end do end subroutine inc_1scalar_by_1scalar_bybnd ! --------------------------------- !> increase absorption optical depth defined on g-points  with extinction optical depth (2-stream form) defined on bands pure subroutine inc_1scalar_by_2stream_bybnd ( ncol , nlay , ngpt , & tau1 , & tau2 , ssa2 , & nbnd , gpt_lims ) bind ( C , name = \"rte_inc_1scalar_by_2stream_bybnd\" ) integer , intent ( in ) :: ncol , nlay , ngpt , nbnd !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 !! optical properties to be modified (defined on g-points) real ( wp ), dimension ( ncol , nlay , nbnd ), intent ( in ) :: tau2 , ssa2 !! optical properties to be added to original (defined on bands) integer , dimension ( 2 , nbnd ), intent ( in ) :: gpt_lims !! Starting and ending gpoint for each band integer :: ibnd , igpt do ibnd = 1 , nbnd do igpt = gpt_lims ( 1 , ibnd ), gpt_lims ( 2 , ibnd ) tau1 (:,:, igpt ) = tau1 (:,:, igpt ) + tau2 (:,:, ibnd ) * ( 1._wp - ssa2 (:,:, ibnd )) end do end do end subroutine inc_1scalar_by_2stream_bybnd ! --------------------------------- !> increase absorption optical depth defined on g-points  with extinction optical depth (n-stream form) defined on bands pure subroutine inc_1scalar_by_nstream_bybnd ( ncol , nlay , ngpt , & tau1 , & tau2 , ssa2 , & nbnd , gpt_lims ) bind ( C , name = \"rte_inc_1scalar_by_nstream_bybnd\" ) integer , intent ( in ) :: ncol , nlay , ngpt , nbnd !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 !! optical properties to be modified (defined on g-points) real ( wp ), dimension ( ncol , nlay , nbnd ), intent ( in ) :: tau2 , ssa2 !! optical properties to be added to original (defined on bands) integer , dimension ( 2 , nbnd ), intent ( in ) :: gpt_lims !! Starting and ending gpoint for each band integer :: ibnd , igpt do ibnd = 1 , nbnd do igpt = gpt_lims ( 1 , ibnd ), gpt_lims ( 2 , ibnd ) tau1 (:,:, igpt ) = tau1 (:,:, igpt ) + tau2 (:,:, ibnd ) * ( 1._wp - ssa2 (:,:, ibnd )) end do end do end subroutine inc_1scalar_by_nstream_bybnd ! --------------------------------- !> increment two-stream optical properties \\tau, \\omega_0, g defined on g-points with absorption optical depth defined on bands pure subroutine inc_2stream_by_1scalar_bybnd ( ncol , nlay , ngpt , & tau1 , ssa1 , & tau2 , & nbnd , gpt_lims ) bind ( C , name = \"rte_inc_2stream_by_1scalar_bybnd\" ) integer , intent ( in ) :: ncol , nlay , ngpt , nbnd !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 , ssa1 !! optical properties to be modified (defined on g-points) real ( wp ), dimension ( ncol , nlay , nbnd ), intent ( in ) :: tau2 !! optical properties to be added to original (defined on bands) integer , dimension ( 2 , nbnd ), intent ( in ) :: gpt_lims !! Starting and ending gpoint for each band integer :: icol , ilay , igpt , ibnd real ( wp ) :: tau12 do ibnd = 1 , nbnd do igpt = gpt_lims ( 1 , ibnd ), gpt_lims ( 2 , ibnd ) do ilay = 1 , nlay do icol = 1 , ncol tau12 = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , ibnd ) ssa1 ( icol , ilay , igpt ) = tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) / max ( eps , tau12 ) tau1 ( icol , ilay , igpt ) = tau12 ! g is unchanged end do end do end do end do end subroutine inc_2stream_by_1scalar_bybnd ! --------------------------------- !> increment 2-stream optical properties defined on g-points with another set defined on bands pure subroutine inc_2stream_by_2stream_bybnd ( ncol , nlay , ngpt , & tau1 , ssa1 , g1 , & tau2 , ssa2 , g2 , & nbnd , gpt_lims ) bind ( C , name = \"rte_inc_2stream_by_2stream_bybnd\" ) integer , intent ( in ) :: ncol , nlay , ngpt , nbnd !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 , ssa1 , g1 !! optical properties to be modified (defined on g-points) real ( wp ), dimension ( ncol , nlay , nbnd ), intent ( in ) :: tau2 , ssa2 , g2 !! optical properties to be added to original (defined on bands) integer , dimension ( 2 , nbnd ), intent ( in ) :: gpt_lims !! Starting and ending gpoint for each band integer :: icol , ilay , igpt , ibnd real ( wp ) :: tau12 , tauscat12 do ibnd = 1 , nbnd do igpt = gpt_lims ( 1 , ibnd ), gpt_lims ( 2 , ibnd ) do ilay = 1 , nlay do icol = 1 , ncol ! t=tau1 + tau2 tau12 = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , ibnd ) ! w=(tau1*ssa1 + tau2*ssa2) / t tauscat12 = & tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , ibnd ) * ssa2 ( icol , ilay , ibnd ) g1 ( icol , ilay , igpt ) = & ( tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) * g1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , ibnd ) * ssa2 ( icol , ilay , ibnd ) * g2 ( icol , ilay , ibnd )) / max ( eps , tauscat12 ) ssa1 ( icol , ilay , igpt ) = tauscat12 / max ( eps , tau12 ) tau1 ( icol , ilay , igpt ) = tau12 end do end do end do end do end subroutine inc_2stream_by_2stream_bybnd ! --------------------------------- !> increment 2-stream optical properties defined on g-points with _n_-stream properties set defined on bands pure subroutine inc_2stream_by_nstream_bybnd ( ncol , nlay , ngpt , nmom2 , & tau1 , ssa1 , g1 , & tau2 , ssa2 , p2 , & nbnd , gpt_lims ) bind ( C , name = \"rte_inc_2stream_by_nstream_bybnd\" ) integer , intent ( in ) :: ncol , nlay , ngpt , nmom2 , nbnd !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 , ssa1 , g1 !! optical properties to be modified (defined on g-points) real ( wp ), dimension ( ncol , nlay , nbnd ), intent ( in ) :: tau2 , ssa2 !! optical properties to be added to original (defined on bands) real ( wp ), dimension ( nmom2 , & ncol , nlay , nbnd ), intent ( in ) :: p2 !! moments of the phase function to be added integer , dimension ( 2 , nbnd ), intent ( in ) :: gpt_lims !! Starting and ending gpoint for each band integer :: icol , ilay , igpt , ibnd real ( wp ) :: tau12 , tauscat12 do ibnd = 1 , nbnd do igpt = gpt_lims ( 1 , ibnd ), gpt_lims ( 2 , ibnd ) do ilay = 1 , nlay do icol = 1 , ncol ! t=tau1 + tau2 tau12 = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , ibnd ) ! w=(tau1*ssa1 + tau2*ssa2) / t tauscat12 = & tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , ibnd ) * ssa2 ( icol , ilay , ibnd ) g1 ( icol , ilay , igpt ) = & ( tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) * g1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , ibnd ) * ssa2 ( icol , ilay , ibnd ) * p2 ( 1 , icol , ilay , ibnd )) / max ( eps , tauscat12 ) ssa1 ( icol , ilay , igpt ) = tauscat12 / max ( eps , tau12 ) tau1 ( icol , ilay , igpt ) = tau12 end do end do end do end do end subroutine inc_2stream_by_nstream_bybnd ! --------------------------------- ! --------------------------------- !> increment _n_-stream optical properties defined on g-points with absorption optical depth defined on bands pure subroutine inc_nstream_by_1scalar_bybnd ( ncol , nlay , ngpt , & tau1 , ssa1 , & tau2 , & nbnd , gpt_lims ) bind ( C , name = \"rte_inc_nstream_by_1scalar_bybnd\" ) integer , intent ( in ) :: ncol , nlay , ngpt , nbnd !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 , ssa1 !! optical properties to be modified (defined on g-points) real ( wp ), dimension ( ncol , nlay , nbnd ), intent ( in ) :: tau2 !! optical properties to be added to original (defined on bands) integer , dimension ( 2 , nbnd ), intent ( in ) :: gpt_lims !! Starting and ending gpoint for each band integer :: icol , ilay , igpt , ibnd real ( wp ) :: tau12 do ibnd = 1 , nbnd do igpt = gpt_lims ( 1 , ibnd ), gpt_lims ( 2 , ibnd ) do ilay = 1 , nlay do icol = 1 , ncol tau12 = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , ibnd ) ssa1 ( icol , ilay , igpt ) = tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) / max ( eps , tau12 ) tau1 ( icol , ilay , igpt ) = tau12 ! p is unchanged end do end do end do end do end subroutine inc_nstream_by_1scalar_bybnd ! --------------------------------- !> increment n-stream optical properties defined on g-points with 2-stream properties set defined on bands pure subroutine inc_nstream_by_2stream_bybnd ( ncol , nlay , ngpt , nmom1 , & tau1 , ssa1 , p1 , & tau2 , ssa2 , g2 , & nbnd , gpt_lims ) bind ( C , name = \"rte_inc_nstream_by_2stream_bybnd\" ) integer , intent ( in ) :: ncol , nlay , ngpt , nmom1 , nbnd !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 , ssa1 !! optical properties to be modified (defined on g-points) real ( wp ), dimension ( nmom1 , & ncol , nlay , ngpt ), intent ( inout ) :: p1 !! moments of the phase function be modified real ( wp ), dimension ( ncol , nlay , nbnd ), intent ( in ) :: tau2 , ssa2 , g2 !! optical properties to be added to original (defined on bands) integer , dimension ( 2 , nbnd ), intent ( in ) :: gpt_lims !! Starting and ending gpoint for each band integer :: icol , ilay , igpt , ibnd real ( wp ) :: tau12 , tauscat12 real ( wp ), dimension ( nmom1 ) :: temp_moms ! TK integer :: imom !TK do ibnd = 1 , nbnd do igpt = gpt_lims ( 1 , ibnd ), gpt_lims ( 2 , ibnd ) do ilay = 1 , nlay do icol = 1 , ncol tau12 = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , ibnd ) tauscat12 = & tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , ibnd ) * ssa2 ( icol , ilay , ibnd ) ! ! Here assume Henyey-Greenstein ! temp_moms ( 1 ) = g2 ( icol , ilay , ibnd ) do imom = 2 , nmom1 temp_moms ( imom ) = temp_moms ( imom - 1 ) * g2 ( icol , ilay , ibnd ) end do p1 ( 1 : nmom1 , icol , ilay , igpt ) = & ( tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) * p1 ( 1 : nmom1 , icol , ilay , igpt ) + & tau2 ( icol , ilay , ibnd ) * ssa2 ( icol , ilay , ibnd ) * temp_moms ( 1 : nmom1 ) ) / max ( eps , tauscat12 ) ssa1 ( icol , ilay , igpt ) = tauscat12 / max ( eps , tau12 ) tau1 ( icol , ilay , igpt ) = tau12 end do end do end do end do end subroutine inc_nstream_by_2stream_bybnd ! --------------------------------- !> increment _n_-stream optical properties defined on g-points with a second set defined on bands pure subroutine inc_nstream_by_nstream_bybnd ( ncol , nlay , ngpt , nmom1 , nmom2 , & tau1 , ssa1 , p1 , & tau2 , ssa2 , p2 , & nbnd , gpt_lims ) bind ( C , name = \"rte_inc_nstream_by_nstream_bybnd\" ) integer , intent ( in ) :: ncol , nlay , ngpt , nmom1 , nmom2 , nbnd !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 , ssa1 !! optical properties to be modified (defined on g-points) real ( wp ), dimension ( nmom1 , & ncol , nlay , ngpt ), intent ( inout ) :: p1 !! moments of the phase function be modified real ( wp ), dimension ( ncol , nlay , nbnd ), intent ( in ) :: tau2 , ssa2 !! optical properties to be added to original (defined on bands) real ( wp ), dimension ( nmom2 , & ncol , nlay , nbnd ), intent ( in ) :: p2 !! moments of the phase function to be added integer , dimension ( 2 , nbnd ), intent ( in ) :: gpt_lims !! Starting and ending gpoint for each band integer :: icol , ilay , igpt , ibnd , mom_lim real ( wp ) :: tau12 , tauscat12 mom_lim = min ( nmom1 , nmom2 ) do ibnd = 1 , nbnd do igpt = gpt_lims ( 1 , ibnd ), gpt_lims ( 2 , ibnd ) do ilay = 1 , nlay do icol = 1 , ncol tau12 = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , ibnd ) tauscat12 = & tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , ibnd ) * ssa2 ( icol , ilay , ibnd ) ! ! If op2 has more moments than op1 these are ignored; !   if it has fewer moments the higher orders are assumed to be 0 ! p1 ( 1 : mom_lim , icol , ilay , igpt ) = & ( tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) * p1 ( 1 : mom_lim , icol , ilay , igpt ) + & tau2 ( icol , ilay , ibnd ) * ssa2 ( icol , ilay , ibnd ) * p2 ( 1 : mom_lim , icol , ilay , ibnd )) / max ( eps , tauscat12 ) ssa1 ( icol , ilay , igpt ) = tauscat12 / max ( eps , tau12 ) tau1 ( icol , ilay , igpt ) = tau12 end do end do end do end do end subroutine inc_nstream_by_nstream_bybnd ! ------------------------------------------------------------------------------------------------- ! ! Subsetting, meaning extracting some portion of the 3D domain ! ! ------------------------------------------------------------------------------------------------- !> !> Extract a subset from the first dimension (normally columns) of a 3D field. !>   Applicable to most variables e.g. tau, ssa, g !> pure subroutine extract_subset_dim1_3d ( ncol , nlay , ngpt , array_in , colS , colE , array_out ) & bind ( C , name = \"rte_extract_subset_dim1_3d\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! Array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: array_in !! Array to subset integer , intent ( in ) :: colS , colE !! Starting and ending index real ( wp ), dimension ( colE - colS + 1 ,& nlay , ngpt ), intent ( out ) :: array_out !! subset of the input array integer :: icol , ilay , igpt do igpt = 1 , ngpt do ilay = 1 , nlay do icol = colS , colE array_out ( icol - colS + 1 , ilay , igpt ) = array_in ( icol , ilay , igpt ) end do end do end do end subroutine extract_subset_dim1_3d ! --------------------------------- !> Extract a subset from the second dimension (normally columns) of a 4D field. !>   Applicable to phase function moments, where the first dimension is the moment pure subroutine extract_subset_dim2_4d ( nmom , ncol , nlay , ngpt , array_in , colS , colE , array_out ) & bind ( C , name = \"rte_extract_subset_dim2_4d\" ) integer , intent ( in ) :: nmom , ncol , nlay , ngpt !! Array sizes real ( wp ), dimension ( nmom , ncol , nlay , ngpt ), intent ( in ) :: array_in !! Array to subset integer , intent ( in ) :: colS , colE !! Starting and ending index real ( wp ), dimension ( nmom , colE - colS + 1 ,& nlay , ngpt ), intent ( out ) :: array_out !! subset of the input array integer :: icol , ilay , igpt , imom do igpt = 1 , ngpt do ilay = 1 , nlay do icol = colS , colE do imom = 1 , nmom array_out ( imom , icol - colS + 1 , ilay , igpt ) = array_in ( imom , icol , ilay , igpt ) end do end do end do end do end subroutine extract_subset_dim2_4d ! --------------------------------- ! !> Extract the absorption optical thickness \\tau_{abs} = 1 - \\omega_0 \\tau_{ext} ! pure subroutine extract_subset_absorption_tau ( ncol , nlay , ngpt , tau_in , ssa_in , & colS , colE , tau_out ) & bind ( C , name = \"rte_extract_subset_absorption_tau\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! Array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau_in , ssa_in !! Optical thickness, single scattering albedo integer , intent ( in ) :: colS , colE !! Starting and ending index real ( wp ), dimension ( colE - colS + 1 ,& nlay , ngpt ), intent ( out ) :: tau_out !! absorption optical thickness subset integer :: icol , ilay , igpt do igpt = 1 , ngpt do ilay = 1 , nlay do icol = colS , colE tau_out ( icol - colS + 1 , ilay , igpt ) = & tau_in ( icol , ilay , igpt ) * ( 1._wp - ssa_in ( icol , ilay , igpt )) end do end do end do end subroutine extract_subset_absorption_tau end module mo_optical_props_kernels","tags":"","loc":"sourcefile/mo_optical_props_kernels.f90.html"},{"title":"mo_rte_solver_kernels.F90 – RTE kernels","text":"This file depends on sourcefile~~mo_rte_solver_kernels.f90~~EfferentGraph sourcefile~mo_rte_solver_kernels.f90 mo_rte_solver_kernels.F90 sourcefile~mo_rte_util_array.f90 mo_rte_util_array.F90 sourcefile~mo_rte_solver_kernels.f90->sourcefile~mo_rte_util_array.f90 Help × Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules mo_rte_solver_kernels Source Code mo_rte_solver_kernels.F90 Source Code ! This code is part of Radiative Transfer for Energetics (RTE) ! ! Contacts: Robert Pincus and Eli Mlawer ! email:  rrtmgp@aer.com ! ! Copyright 2015-,  Atmospheric and Environmental Research, ! Regents of the University of Colorado, Trustees of Columbia University.  All right reserved. ! ! Use and duplication is permitted under the terms of the !    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause ! ------------------------------------------------------------------------------------------------- ! !>## Numeric calculations for radiative transfer solvers !>  - Emission/absorption (no-scattering) calculations !>  - solver for multi-angle Gaussian quadrature !>  - solver for a single angle, calling !>      - source function computation (linear-in-tau) !>      -  transport !>  - Extinction-only calculation (direct solar beam) !>  - Two-stream calculations: !>    solvers for LW and SW with different boundary conditions and source functions !>      - source function calculation for LW, SW !>      - two-stream calculations for LW, SW (using different assumtions about phase function) !>      - transport (adding) !>  - Application of boundary conditions ! ! ------------------------------------------------------------------------------------------------- module mo_rte_solver_kernels use , intrinsic :: iso_c_binding use mo_rte_kind , only : wp , wl use mo_rte_util_array , only : zero_array implicit none private public :: lw_solver_noscat , lw_solver_2stream , & sw_solver_noscat , sw_solver_2stream real ( wp ), parameter :: pi = acos ( - 1._wp ) contains ! ------------------------------------------------------------------------------------------------- ! ! Top-level longwave kernels ! ! ------------------------------------------------------------------------------------------------- ! !>  LW fluxes, no scattering, mu (cosine of integration angle) specified by column !>    Does radiation calculation at user-supplied angles; converts radiances to flux !>    using user-supplied weights ! ! --------------------------------------------------------------- subroutine lw_solver_noscat_oneangle ( ncol , nlay , ngpt , top_at_1 , D , weight , & tau , lay_source , lev_source_inc , lev_source_dec , sfc_emis , sfc_src , & incident_flux , & flux_up , flux_dn , & do_broadband , broadband_up , broadband_dn , & do_Jacobians , sfc_srcJac , flux_upJac , & do_rescaling , ssa , g ) integer , intent ( in ) :: ncol , nlay , ngpt ! Number of columns, layers, g-points logical ( wl ), intent ( in ) :: top_at_1 real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: D ! secant of propagation angle  [] real ( wp ), intent ( in ) :: weight ! quadrature weight real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau ! Absorption optical thickness [] real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: lay_source ! Planck source at layer average temperature [W/m2] ! Planck source at layer edge for radiation in increasing/decreasing ilay direction ! lev_source_dec applies the mapping in layer i to the Planck function at layer i ! lev_source_inc applies the mapping in layer i to the Planck function at layer i+1 real ( wp ), dimension ( ncol , nlay , ngpt ), target , & intent ( in ) :: lev_source_inc , lev_source_dec real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: sfc_emis ! Surface emissivity      [] real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: sfc_src ! Surface source function [W/m2] real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: incident_flux ! Boundary condition for flux [W/m2] real ( wp ), dimension ( ncol , nlay + 1 , ngpt ), target , & ! Fluxes [W/m2] intent ( out ) :: flux_up , flux_dn ! ! Optional variables - arrays aren't referenced if corresponding logical  == False ! logical ( wl ), intent ( in ) :: do_broadband real ( wp ), dimension ( ncol , nlay + 1 ), intent ( out ) :: broadband_up , broadband_dn ! Spectrally-integrated fluxes [W/m2] logical ( wl ), intent ( in ) :: do_Jacobians real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: sfc_srcJac ! surface temperature Jacobian of surface source function [W/m2/K] real ( wp ), dimension ( ncol , nlay + 1 ), intent ( out ) :: flux_upJac ! surface temperature Jacobian of Radiances [W/m2-str / K] logical ( wl ), intent ( in ) :: do_rescaling real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: ssa , g ! single-scattering albedo, asymmetry parameter ! ------------------------------------ ! Local variables, no g-point dependency ! integer :: icol , ilay , igpt integer :: top_level , sfc_level real ( wp ), dimension ( ncol , nlay ) :: tau_loc , & ! path length (tau/mu) trans ! transmissivity  = exp(-tau) real ( wp ), dimension ( ncol , nlay ) :: source_dn , source_up real ( wp ), dimension ( ncol ) :: sfc_albedo real ( wp ), dimension (:,:,:), pointer :: lev_source_up , lev_source_dn ! Mapping increasing/decreasing indicies to up/down real ( wp ), parameter :: pi = acos ( - 1._wp ) ! loc_fluxes hold a single g-point flux if fluxes are being integrated instead of returned !   with spectral detail real ( wp ), dimension ( ncol , nlay + 1 ), & target :: loc_flux_up , loc_flux_dn ! gpt_fluxes point to calculations for the current g-point real ( wp ), dimension (:,:), pointer :: gpt_flux_up , gpt_flux_dn ! ------------------------------------------------------------------------------------------------- ! Optionally, use an approximate treatment of scattering using rescaling !   Implemented based on the paper !   Tang G, et al, 2018: https://doi.org/10.1175/JAS-D-18-0014.1 !   a) relies on rescaling of the optical parameters based on asymetry factor and single scattering albedo !       scaling can be computed  by scaling_1rescl !   b) adds adustment term based on cloud properties (lw_transport_1rescl) !      adustment terms is computed based on solution of the Tang equations !      for \"linear-in-tau\" internal source (not in the paper) ! ! Used when approximating scattering ! real ( wp ) :: ssal , wb , scaleTau real ( wp ), dimension ( ncol , nlay ) :: An , Cn real ( wp ), dimension ( ncol , nlay + 1 ) :: gpt_flux_Jac ! ------------------------------------ ! Which way is up? ! Level Planck sources for upward and downward radiation ! When top_at_1, lev_source_up => lev_source_dec !                lev_source_dn => lev_source_inc, and vice-versa if ( top_at_1 ) then top_level = 1 sfc_level = nlay + 1 lev_source_up => lev_source_dec lev_source_dn => lev_source_inc else top_level = nlay + 1 sfc_level = 1 lev_source_up => lev_source_inc lev_source_dn => lev_source_dec end if ! ! Integrated fluxes need zeroing ! if ( do_broadband ) then call zero_array ( ncol , nlay + 1 , broadband_up ) call zero_array ( ncol , nlay + 1 , broadband_dn ) end if if ( do_Jacobians ) & call zero_array ( ncol , nlay + 1 , flux_upJac ) do igpt = 1 , ngpt if ( do_broadband ) then gpt_flux_up => loc_flux_up gpt_flux_dn => loc_flux_dn else gpt_flux_up => flux_up (:,:, igpt ) gpt_flux_dn => flux_dn (:,:, igpt ) end if ! ! Transport is for intensity !   convert flux at top of domain to intensity assuming azimuthal isotropy ! gpt_flux_dn (:, top_level ) = incident_flux (:, igpt ) / ( 2._wp * pi * weight ) ! ! Optical path and transmission, used in source function and transport calculations ! if ( do_rescaling ) then ! ! The scaling and scaleTau terms are independent of propagation !   angle D and could be pre-computed if several values of D are used ! We re-compute them here to keep not have to localize memory use ! do ilay = 1 , nlay do icol = 1 , ncol ssal = ssa ( icol , ilay , igpt ) ! w is the layer single scattering albedo ! b is phase function parameter (Eq.13 of the paper) ! for the similarity principle scaling scheme ! b = (1-g)/2 (where g is phase function avergae cosine) wb = ssal * ( 1._wp - g ( icol , ilay , igpt )) * 0.5_wp ! scaleTau=1-w(1-b) is a scaling factor of the optical thickness representing ! the radiative transfer equation in a nonscattering form Eq(14) of the paper scaleTau = ( 1._wp - ssal + wb ) ! Cn = 0.5*wb/(1-w(1-b)) is parameter of Eq.21-22 of the Tang paper ! Tang paper, p.2222 advises to replace 0.5 with 0.4 based on simulations Cn ( icol , ilay ) = 0.4_wp * wb / scaleTau ! Eqs.15, 18ab and 19 of the paper, ! rescaling of the optical depth multiplied by path length tau_loc ( icol , ilay ) = tau ( icol , ilay , igpt ) * D ( icol , igpt ) * scaleTau end do trans (:, ilay ) = exp ( - tau_loc (:, ilay )) An (:, ilay ) = ( 1._wp - trans (:, ilay ) ** 2 ) end do else do ilay = 1 , nlay tau_loc (:, ilay ) = tau (:, ilay , igpt ) * D (:, igpt ) trans (:, ilay ) = exp ( - tau_loc (:, ilay )) end do end if ! ! Source function for diffuse radiation ! call lw_source_noscat ( ncol , nlay , & lay_source (:,:, igpt ), lev_source_up (:,:, igpt ), lev_source_dn (:,:, igpt ), & tau_loc , trans , source_dn , source_up ) ! ! Transport down ! call lw_transport_noscat_dn ( ncol , nlay , top_at_1 , trans , source_dn , gpt_flux_dn ) ! ! Surface albedo, surface source function, reflection and emission ! sfc_albedo (:) = 1._wp - sfc_emis (:, igpt ) gpt_flux_up (:, sfc_level ) = gpt_flux_dn (:, sfc_level ) * sfc_albedo (:) + & sfc_emis (:, igpt ) * sfc_src (:, igpt ) if ( do_Jacobians ) & gpt_flux_Jac (:, sfc_level ) = sfc_emis (:, igpt ) * sfc_srcJac (:, igpt ) ! ! Transport up, or up and down again if using rescaling ! if ( do_rescaling ) then call lw_transport_1rescl ( ncol , nlay , top_at_1 , trans , & source_dn , source_up , & gpt_flux_up , gpt_flux_dn , An , Cn , & do_Jacobians , gpt_flux_Jac ) ! Standing in for Jacobian, i.e. rad_up_Jac(:,:,igpt), rad_dn_Jac(:,:,igpt)) else call lw_transport_noscat_up ( ncol , nlay , top_at_1 , trans , source_up , gpt_flux_up , & do_Jacobians , gpt_flux_Jac ) end if if ( do_broadband ) then broadband_up (:,:) = broadband_up (:,:) + gpt_flux_up (:,:) broadband_dn (:,:) = broadband_dn (:,:) + gpt_flux_dn (:,:) else ! ! Convert intensity to flux assuming azimuthal isotropy and quadrature weight ! gpt_flux_dn (:,:) = 2._wp * pi * weight * gpt_flux_dn (:,:) gpt_flux_up (:,:) = 2._wp * pi * weight * gpt_flux_up (:,:) end if ! ! Only broadband-integrated Jacobians are provided ! if ( do_Jacobians ) & flux_upJac (:,:) = flux_upJac (:,:) + gpt_flux_Jac (:,:) end do ! g point loop if ( do_broadband ) then broadband_up (:,:) = 2._wp * pi * weight * broadband_up (:,:) broadband_dn (:,:) = 2._wp * pi * weight * broadband_dn (:,:) end if if ( do_Jacobians ) & flux_upJac (:,:) = 2._wp * pi * weight * flux_upJac (:,:) end subroutine lw_solver_noscat_oneangle ! ------------------------------------------------------------------------------------------------- ! !> LW transport, no scattering, multi-angle quadrature !>   Users provide a set of weights and quadrature angles !>   Routine sums over single-angle solutions for each sets of angles/weights ! ! --------------------------------------------------------------- subroutine lw_solver_noscat ( ncol , nlay , ngpt , top_at_1 , & nmus , Ds , weights , & tau , & lay_source , lev_source_inc , lev_source_dec , & sfc_emis , sfc_src , & inc_flux , & flux_up , flux_dn , & do_broadband , broadband_up , broadband_dn , & do_Jacobians , sfc_srcJac , flux_upJac , & do_rescaling , ssa , g ) bind ( C , name = \"rte_lw_solver_noscat\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! Number of columns, layers, g-points logical ( wl ), intent ( in ) :: top_at_1 !! ilay = 1 is the top of the atmosphere? integer , intent ( in ) :: nmus !! number of quadrature angles real ( wp ), dimension ( ncol , ngpt , & nmus ), intent ( in ) :: Ds !! quadrature secants real ( wp ), dimension ( nmus ), intent ( in ) :: weights !! quadrature weights real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau !! Absorption optical thickness [] real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: lay_source !! Planck source at layer average temperature [W/m2] real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: lev_source_inc !! Planck source at layer edge for radiation in increasing ilay direction [W/m2] real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: lev_source_dec !! Planck source at layer edge for radiation in decreasing ilay direction [W/m2] real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: sfc_emis !! Surface emissivity      [] real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: sfc_src !! Surface source function [W/m2] real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: inc_flux !! Incident diffuse flux, probably 0 [W/m2] real ( wp ), dimension ( ncol , nlay + 1 , ngpt ), target , & intent ( out ) :: flux_up , flux_dn !! Fluxes [W/m2] ! ! Optional variables - arrays aren't referenced if corresponding logical  == False ! logical ( wl ), intent ( in ) :: do_broadband real ( wp ), dimension ( ncol , nlay + 1 ), target , & intent ( out ) :: broadband_up , broadband_dn !! Spectrally-integrated fluxes [W/m2] logical ( wl ), intent ( in ) :: do_Jacobians !! compute Jacobian with respect to surface temeprature? real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: sfc_srcJac !! surface temperature Jacobian of surface source function [W/m2/K] real ( wp ), dimension ( ncol , nlay + 1 ), target , & intent ( out ) :: flux_upJac !! surface temperature Jacobian of Radiances [W/m2-str / K] logical ( wl ), intent ( in ) :: do_rescaling !! Approximate treatment of scattering (10.1175/JAS-D-18-0014.1) real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: ssa , g !! single-scattering albedo, asymmetry parameter ! ------------------------------------ ! ! Local variables - used for a single quadrature angle ! real ( wp ), dimension (:,:,:), pointer :: this_flux_up , this_flux_dn real ( wp ), dimension (:,:), pointer :: this_broadband_up , this_broadband_dn , this_flux_upJac integer :: imu ! ------------------------------------ ! ! For the first angle output arrays store total flux ! call lw_solver_noscat_oneangle ( ncol , nlay , ngpt , & top_at_1 , Ds (:,:, 1 ), weights ( 1 ), tau , & lay_source , lev_source_inc , lev_source_dec , sfc_emis , sfc_src , & inc_flux , & flux_up , flux_dn , & do_broadband , broadband_up , broadband_dn , & do_Jacobians , sfc_srcJac , flux_upJac , & do_rescaling , ssa , g ) ! ! For more than one angle use local arrays ! if ( nmus > 1 ) then if ( do_broadband ) then allocate ( this_broadband_up ( ncol , nlay + 1 ), this_broadband_dn ( ncol , nlay + 1 )) ! Spectrally-resolved fluxes won't be filled in so can point to caller-supplied memory this_flux_up => flux_up this_flux_dn => flux_dn else allocate ( this_flux_up ( ncol , nlay + 1 , ngpt ), this_flux_dn ( ncol , nlay + 1 , ngpt )) ! Spectrally-integrated fluxes won't be filled in so can point to caller-supplied memory this_broadband_up => broadband_up this_broadband_dn => broadband_dn end if if ( do_Jacobians ) then allocate ( this_flux_upJac ( ncol , nlay + 1 )) else this_flux_upJac => flux_upJac end if end if do imu = 2 , nmus call lw_solver_noscat_oneangle ( ncol , nlay , ngpt , & top_at_1 , Ds (:,:, imu ), weights ( imu ), tau , & lay_source , lev_source_inc , lev_source_dec , sfc_emis , sfc_src , & inc_flux , & this_flux_up , this_flux_dn , & do_broadband , this_broadband_up , this_broadband_dn , & do_Jacobians , sfc_srcJac , this_flux_upJac , & do_rescaling , ssa , g ) if ( do_broadband ) then broadband_up (:,:) = broadband_up (:,:) + this_broadband_up (:,:) broadband_dn (:,:) = broadband_dn (:,:) + this_broadband_dn (:,:) else flux_up (:,:,:) = flux_up (:,:,:) + this_flux_up (:,:,:) flux_dn (:,:,:) = flux_dn (:,:,:) + this_flux_dn (:,:,:) end if if ( do_Jacobians ) & flux_upJac (:,:) = flux_upJac (:,: ) + this_flux_upJac (:,: ) end do if ( nmus > 1 ) then if ( do_broadband ) deallocate ( this_broadband_up , this_broadband_dn ) if (. not . do_broadband ) deallocate ( this_flux_up , this_flux_dn ) if ( do_Jacobians ) deallocate ( this_flux_upJac ) end if end subroutine lw_solver_noscat ! ------------------------------------------------------------------------------------------------- ! !> Longwave two-stream calculation: !>   - combine RRTMGP-specific sources at levels !>   - compute layer reflectance, transmittance !>   - compute total source function at levels using linear-in-tau !>   - transport ! ! ------------------------------------------------------------------------------------------------- subroutine lw_solver_2stream ( ncol , nlay , ngpt , top_at_1 , & tau , ssa , g , & lay_source , lev_source_inc , lev_source_dec , sfc_emis , sfc_src , & inc_flux , & flux_up , flux_dn ) bind ( C , name = \"rte_lw_solver_2stream\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! Number of columns, layers, g-points logical ( wl ), intent ( in ) :: top_at_1 !! ilay = 1 is the top of the atmosphere? real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau , ssa , g !! Optical thickness, single-scattering albedo, asymmetry parameter [] real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: lay_source !! Planck source at layer average temperature [W/m2] real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: lev_source_inc !! Planck source at layer edge for radiation in increasing ilay direction [W/m2] real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: lev_source_dec !! Planck source at layer edge for radiation in decreasing ilay direction [W/m2] real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: sfc_emis !! Surface emissivity      [] real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: sfc_src !! Surface source function [W/m2] real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: inc_flux !! Incident diffuse flux, probably 0 [W/m2] real ( wp ), dimension ( ncol , nlay + 1 , ngpt ), intent ( out ) :: flux_up , flux_dn !! Fluxes [W/m2] ! ---------------------------------------------------------------------- integer :: igpt , top_level real ( wp ), dimension ( ncol , nlay ) :: Rdif , Tdif , gamma1 , gamma2 real ( wp ), dimension ( ncol ) :: sfc_albedo real ( wp ), dimension ( ncol , nlay + 1 ) :: lev_source real ( wp ), dimension ( ncol , nlay ) :: source_dn , source_up real ( wp ), dimension ( ncol ) :: source_sfc ! ------------------------------------ top_level = nlay + 1 if ( top_at_1 ) top_level = 1 do igpt = 1 , ngpt ! ! RRTMGP provides source functions at each level using the spectral mapping !   of each adjacent layer. Combine these for two-stream calculations ! call lw_combine_sources ( ncol , nlay , top_at_1 , & lev_source_inc (:,:, igpt ), lev_source_dec (:,:, igpt ), & lev_source ) ! ! Cell properties: reflection, transmission for diffuse radiation !   Coupling coefficients needed for source function ! call lw_two_stream ( ncol , nlay , & tau (:,:, igpt ), ssa (:,:, igpt ), g (:,:, igpt ), & gamma1 , gamma2 , Rdif , Tdif ) ! ! Source function for diffuse radiation ! call lw_source_2str ( ncol , nlay , top_at_1 , & sfc_emis (:, igpt ), sfc_src (:, igpt ), & lay_source (:,:, igpt ), lev_source , & gamma1 , gamma2 , Rdif , Tdif , tau (:,:, igpt ), & source_dn , source_up , source_sfc ) ! ! Transport ! sfc_albedo ( 1 : ncol ) = 1._wp - sfc_emis (:, igpt ) ! ! Boundary condition ! flux_dn (:, top_level , igpt ) = inc_flux (:, igpt ) call adding ( ncol , nlay , top_at_1 , & sfc_albedo , & Rdif , Tdif , & source_dn , source_up , source_sfc , & flux_up (:,:, igpt ), flux_dn (:,:, igpt )) end do end subroutine lw_solver_2stream ! ------------------------------------------------------------------------------------------------- ! !   Top-level shortwave kernels ! ! ------------------------------------------------------------------------------------------------- ! !  !> Extinction-only shortwave solver i.e. solar direct beam ! ! ------------------------------------------------------------------------------------------------- pure subroutine sw_solver_noscat ( ncol , nlay , ngpt , top_at_1 , & tau , mu0 , inc_flux_dir , flux_dir ) bind ( C , name = \"rte_sw_solver_noscat\" ) integer , intent ( in ) :: ncol , nlay , ngpt ! Number of columns, layers, g-points !! Number of columns, layers, g-points logical ( wl ), intent ( in ) :: top_at_1 !! ilay = 1 is the top of the atmosphere? real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau !! Absorption optical thickness [] real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: mu0 !! cosine of solar zenith angle real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: inc_flux_dir !! Direct beam incident flux [W/m2] real ( wp ), dimension ( ncol , nlay + 1 , ngpt ), intent ( out ) :: flux_dir !! Direct-beam flux, spectral [W/m2] integer :: ilev , igpt ! ------------------------------------ ! Indexing into arrays for upward and downward propagation depends on the vertical !   orientation of the arrays (whether the domain top is at the first or last index) ! We write the loops out explicitly so compilers will have no trouble optimizing them. ! Downward propagation if ( top_at_1 ) then ! For the flux at this level, what was the previous level, and which layer has the !   radiation just passed through? ! layer index = level index - 1 ! previous level is up (-1) do igpt = 1 , ngpt flux_dir (:, 1 , igpt ) = inc_flux_dir (:, igpt ) * mu0 (:, 1 ) do ilev = 2 , nlay + 1 flux_dir (:, ilev , igpt ) = flux_dir (:, ilev - 1 , igpt ) * exp ( - tau (:, ilev - 1 , igpt ) / mu0 (:, ilev - 1 )) end do end do else ! layer index = level index ! previous level is up (+1) do igpt = 1 , ngpt flux_dir (:, nlay + 1 , igpt ) = inc_flux_dir (:, igpt ) * mu0 (:, nlay ) do ilev = nlay , 1 , - 1 flux_dir (:, ilev , igpt ) = flux_dir (:, ilev + 1 , igpt ) * exp ( - tau (:, ilev , igpt ) / mu0 (:, ilev )) end do end do end if end subroutine sw_solver_noscat ! ------------------------------------------------------------------------------------------------- ! !> Shortwave two-stream calculation: !>   compute layer reflectance, transmittance !>   compute solar source function for diffuse radiation !>   transport ! ! ------------------------------------------------------------------------------------------------- subroutine sw_solver_2stream ( ncol , nlay , ngpt , top_at_1 , & tau , ssa , g , mu0 , & sfc_alb_dir , sfc_alb_dif , & inc_flux_dir , & flux_up , flux_dn , flux_dir , & has_dif_bc , inc_flux_dif , & do_broadband , broadband_up , & broadband_dn , broadband_dir ) bind ( C , name = \"rte_sw_solver_2stream\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! Number of columns, layers, g-points logical ( wl ), intent ( in ) :: top_at_1 !! ilay = 1 is the top of the atmosphere? real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau , ssa , g !! Optical thickness, single-scattering albedo, asymmetry parameter [] real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: mu0 !! cosine of solar zenith angle real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: sfc_alb_dir , sfc_alb_dif !! Spectral surface albedo for direct and diffuse radiation real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: inc_flux_dir !! Direct beam incident flux real ( wp ), dimension ( ncol , nlay + 1 , ngpt ), target , & intent ( out ) :: flux_up , flux_dn , flux_dir !! Fluxes [W/m2] logical ( wl ), intent ( in ) :: has_dif_bc !! Is a boundary condition for diffuse flux supplied? real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: inc_flux_dif !! Boundary condition for diffuse flux [W/m2] logical ( wl ), intent ( in ) :: do_broadband !! Provide broadband-integrated, not spectrally-resolved, fluxes? real ( wp ), dimension ( ncol , nlay + 1 ), intent ( out ) :: broadband_up , broadband_dn , broadband_dir !! Broadband integrated fluxes ! ------------------------------------------- integer :: igpt , top_level , top_layer real ( wp ), dimension ( ncol , nlay ) :: Rdif , Tdif real ( wp ), dimension ( ncol , nlay ) :: source_up , source_dn real ( wp ), dimension ( ncol ) :: source_srf ! loc_fluxes hold a single g-point flux if fluxes are being integrated instead of returned !   with spectral detail real ( wp ), dimension ( ncol , nlay + 1 ), & target :: loc_flux_up , loc_flux_dn , loc_flux_dir ! gpt_fluxes point to calculations for the current g-point real ( wp ), dimension (:,:), pointer :: gpt_flux_up , gpt_flux_dn , gpt_flux_dir ! ------------------------------------ if ( top_at_1 ) then top_level = 1 top_layer = 1 else top_level = nlay + 1 top_layer = nlay end if ! ! Integrated fluxes need zeroing ! if ( do_broadband ) then call zero_array ( ncol , nlay + 1 , broadband_up ) call zero_array ( ncol , nlay + 1 , broadband_dn ) call zero_array ( ncol , nlay + 1 , broadband_dir ) end if do igpt = 1 , ngpt if ( do_broadband ) then gpt_flux_up => loc_flux_up gpt_flux_dn => loc_flux_dn gpt_flux_dir => loc_flux_dir else gpt_flux_up => flux_up (:,:, igpt ) gpt_flux_dn => flux_dn (:,:, igpt ) gpt_flux_dir => flux_dir (:,:, igpt ) end if ! ! Boundary conditions direct beam... ! gpt_flux_dir (:, top_level ) = inc_flux_dir (:, igpt ) * mu0 (:, top_layer ) ! ! ... and diffuse field, using 0 if no BC is provided ! if ( has_dif_bc ) then gpt_flux_dn (:, top_level ) = inc_flux_dif (:, igpt ) else gpt_flux_dn (:, top_level ) = 0._wp end if ! ! Cell properties: transmittance and reflectance for diffuse radiation !   Direct-beam and source for diffuse radiation ! call sw_dif_and_source ( ncol , nlay , top_at_1 , mu0 , sfc_alb_dir (:, igpt ), & tau (:,:, igpt ), ssa (:,:, igpt ), g (:,:, igpt ), & Rdif , Tdif , source_dn , source_up , source_srf , & gpt_flux_dir ) ! ! Transport ! call adding ( ncol , nlay , top_at_1 , & sfc_alb_dif (:, igpt ), Rdif , Tdif , & source_dn , source_up , source_srf , gpt_flux_up , gpt_flux_dn ) ! ! adding() computes only diffuse flux; flux_dn is total ! if ( do_broadband ) then broadband_up (:,:) = broadband_up (:,:) + gpt_flux_up (:,:) broadband_dn (:,:) = broadband_dn (:,:) + gpt_flux_dn (:,:) + gpt_flux_dir (:,:) broadband_dir (:,:) = broadband_dir (:,:) + gpt_flux_dir (:,:) else gpt_flux_dn (:,:) = gpt_flux_dn (:,:) + gpt_flux_dir (:,:) end if end do end subroutine sw_solver_2stream ! ------------------------------------------------------------------------------------------------- ! !   Lower-level longwave kernels ! ! ------------------------------------------------------------------------------------------------- ! ! Compute LW source function for upward and downward emission at levels using linear-in-tau assumption ! See Clough et al., 1992, doi: 10.1029/92JD01419, Eq 13 ! ! --------------------------------------------------------------- subroutine lw_source_noscat ( ncol , nlay , lay_source , lev_source_up , lev_source_dn , tau , trans , & source_dn , source_up ) integer , intent ( in ) :: ncol , nlay real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: lay_source , & ! Planck source at layer center lev_source_up , & ! Planck source at levels (layer edges), lev_source_dn , & !   increasing/decreasing layer index tau , & ! Optical path (tau/mu) trans ! Transmissivity (exp(-tau)) real ( wp ), dimension ( ncol , nlay ), intent ( out ) :: source_dn , source_up ! Source function at layer edges ! Down at the bottom of the layer, up at the top ! -------------------------------- integer :: icol , ilay real ( wp ) :: fact real ( wp ), parameter :: tau_thresh = sqrt ( sqrt ( epsilon ( tau ))) ! --------------------------------------------------------------- do ilay = 1 , nlay do icol = 1 , ncol ! ! Weighting factor. Use 2nd order series expansion when rounding error (~tau&#94;2) !   is of order epsilon (smallest difference from 1. in working precision) !   Thanks to Peter Blossey !   Updated to 3rd order series and lower threshold based on suggestion from Dmitry Alexeev (Nvidia) ! if ( tau ( icol , ilay ) > tau_thresh ) then fact = ( 1._wp - trans ( icol , ilay )) / tau ( icol , ilay ) - trans ( icol , ilay ) else fact = tau ( icol , ilay ) * ( 0.5_wp + tau ( icol , ilay ) * ( - 1._wp / 3._wp + tau ( icol , ilay ) * 1._wp / 8._wp ) ) end if ! ! Equation below is developed in Clough et al., 1992, doi:10.1029/92JD01419, Eq 13 ! source_dn ( icol , ilay ) = ( 1._wp - trans ( icol , ilay )) * lev_source_dn ( icol , ilay ) + & 2._wp * fact * ( lay_source ( icol , ilay ) - lev_source_dn ( icol , ilay )) source_up ( icol , ilay ) = ( 1._wp - trans ( icol , ilay )) * lev_source_up ( icol , ilay ) + & 2._wp * fact * ( lay_source ( icol , ilay ) - lev_source_up ( icol , ilay )) end do end do end subroutine lw_source_noscat ! ------------------------------------------------------------------------------------------------- ! ! Longwave no-scattering transport - separate routines for up and down ! ! ------------------------------------------------------------------------------------------------- subroutine lw_transport_noscat_dn ( ncol , nlay , top_at_1 , & trans , source_dn , radn_dn ) integer , intent ( in ) :: ncol , nlay ! Number of columns, layers, g-points logical ( wl ), intent ( in ) :: top_at_1 ! real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: trans ! transmissivity = exp(-tau) real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: source_dn ! Diffuse radiation emitted by the layer real ( wp ), dimension ( ncol , nlay + 1 ), intent ( inout ) :: radn_dn ! Radiances [W/m2-str] Top level must contain incident flux boundary condition ! --------------------------------------------------- ! Local variables integer :: ilev ! --------------------------------------------------- if ( top_at_1 ) then ! ! Top of domain is index 1 ! do ilev = 2 , nlay + 1 radn_dn (:, ilev ) = trans (:, ilev - 1 ) * radn_dn (:, ilev - 1 ) + source_dn (:, ilev - 1 ) end do else ! ! Top of domain is index nlay+1 ! do ilev = nlay , 1 , - 1 radn_dn (:, ilev ) = trans (:, ilev ) * radn_dn (:, ilev + 1 ) + source_dn (:, ilev ) end do end if end subroutine lw_transport_noscat_dn ! ------------------------------------------------------------------------------------------------- subroutine lw_transport_noscat_up ( ncol , nlay , top_at_1 , & trans , source_up , radn_up , do_Jacobians , radn_upJac ) integer , intent ( in ) :: ncol , nlay ! Number of columns, layers, g-points logical ( wl ), intent ( in ) :: top_at_1 ! real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: trans ! transmissivity = exp(-tau) real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: source_up ! Diffuse radiation emitted by the layer real ( wp ), dimension ( ncol , nlay + 1 ), intent ( inout ) :: radn_up ! Radiances [W/m2-str] Top level must contain incident flux boundary condition logical ( wl ), intent ( in ) :: do_Jacobians real ( wp ), dimension ( ncol , nlay + 1 ), intent ( inout ) :: radn_upJac ! surface temperature Jacobian of Radiances [W/m2-str / K] ! --------------------------------------------------- ! Local variables integer :: ilev ! --------------------------------------------------- if ( top_at_1 ) then ! ! Top of domain is index 1 ! ! Upward propagation do ilev = nlay , 1 , - 1 radn_up (:, ilev ) = trans (:, ilev ) * radn_up (:, ilev + 1 ) + source_up (:, ilev ) if ( do_Jacobians ) & radn_upJac (:, ilev ) = trans (:, ilev ) * radn_upJac (:, ilev + 1 ) end do else ! ! Top of domain is index nlay+1 ! ! Upward propagation do ilev = 2 , nlay + 1 radn_up (:, ilev ) = trans (:, ilev - 1 ) * radn_up (:, ilev - 1 ) + source_up (:, ilev - 1 ) if ( do_Jacobians ) & radn_upJac (:, ilev ) = trans (:, ilev - 1 ) * radn_upJac (:, ilev - 1 ) end do end if end subroutine lw_transport_noscat_up ! ------------------------------------------------------------------------------------------------- ! Upward and (second) downward transport for re-scaled longwave solution !   adds adjustment factor based on cloud properties ! !   implementation notice: !       the adjustmentFactor computation can be skipped where Cn <= epsilon ! ------------------------------------------------------------------------------------------------- subroutine lw_transport_1rescl ( ncol , nlay , top_at_1 , & trans , source_dn , source_up , & radn_up , radn_dn , An , Cn ,& do_Jacobians , radn_up_Jac ) integer , intent ( in ) :: ncol , nlay ! Number of columns, layers, g-points logical ( wl ), intent ( in ) :: top_at_1 ! real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: trans ! transmissivity = exp(-tau) real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: source_dn , & source_up ! Diffuse radiation emitted by the layer real ( wp ), dimension ( ncol , nlay + 1 ), intent ( inout ) :: radn_up ! Radiances [W/m2-str] real ( wp ), dimension ( ncol , nlay + 1 ), intent ( inout ) :: radn_dn !Top level must contain incident flux boundary condition real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: An , Cn logical ( wl ), intent ( in ) :: do_Jacobians real ( wp ), dimension ( ncol , nlay + 1 ), intent ( inout ) :: radn_up_Jac ! Surface temperature Jacobians [W/m2-str/K] ! ! We could in principle compute a downwelling Jacobian too, but it's small !   (only a small proportion of LW is scattered) and it complicates code and the API, !   so we will not ! ! Local variables integer :: ilev , icol ! --------------------------------------------------- real ( wp ) :: adjustmentFactor if ( top_at_1 ) then ! ! Top of domain is index 1 ! ! Upward propagation ! adjustment factor is obtained as a solution of 18b of the Tang paper ! eqvivalent to Eq.20 of the Tang paper but for linear-in-tau source do ilev = nlay , 1 , - 1 do icol = 1 , ncol adjustmentFactor = Cn ( icol , ilev ) * ( An ( icol , ilev ) * radn_dn ( icol , ilev ) - & trans ( icol , ilev ) * source_dn ( icol , ilev ) - source_up ( icol , ilev ) ) radn_up ( icol , ilev ) = trans ( icol , ilev ) * radn_up ( icol , ilev + 1 ) + source_up ( icol , ilev ) + & adjustmentFactor end do if ( do_Jacobians ) & radn_up_Jac (:, ilev ) = trans (:, ilev ) * radn_up_Jac (:, ilev + 1 ) end do ! Downward propagation ! radn_dn_Jac(:,1) = 0._wp ! adjustment factor is obtained as a solution of 19 of the Tang paper ! eqvivalent to Eq.21 of the Tang paper but for linear-in-tau source do ilev = 1 , nlay ! radn_dn_Jac(:,ilev+1) = trans(:,ilev)*radn_dn_Jac(:,ilev) do icol = 1 , ncol adjustmentFactor = Cn ( icol , ilev ) * ( An ( icol , ilev ) * radn_up ( icol , ilev ) - & trans ( icol , ilev ) * source_up ( icol , ilev ) - source_dn ( icol , ilev ) ) radn_dn ( icol , ilev + 1 ) = trans ( icol , ilev ) * radn_dn ( icol , ilev ) + source_dn ( icol , ilev ) + & adjustmentFactor ! adjustmentFactor         = Cn(icol,ilev)*An(icol,ilev)*radn_up_Jac(icol,ilev) ! radn_dn_Jac(icol,ilev+1) = radn_dn_Jac(icol,ilev+1) + adjustmentFactor enddo end do else ! ! Top of domain is index nlay+1 ! ! Upward propagation ! adjustment factor is obtained as a solution of 18b of the Tang paper ! eqvivalent to Eq.20 of the Tang paper but for linear-in-tau source do ilev = 1 , nlay radn_up (:, ilev + 1 ) = trans (:, ilev ) * radn_up (:, ilev ) + source_up (:, ilev ) do icol = 1 , ncol adjustmentFactor = Cn ( icol , ilev ) * ( An ( icol , ilev ) * radn_dn ( icol , ilev + 1 ) - & trans ( icol , ilev ) * source_dn ( icol , ilev ) - source_up ( icol , ilev ) ) radn_up ( icol , ilev + 1 ) = trans ( icol , ilev ) * radn_up ( icol , ilev ) + source_up ( icol , ilev ) + & adjustmentFactor enddo if ( do_Jacobians ) & radn_up_Jac (:, ilev + 1 ) = trans (:, ilev ) * radn_up_Jac (:, ilev ) end do ! Downward propagation ! adjustment factor is obtained as a solution of 19 of the Tang paper ! eqvivalent to Eq.21 of the Tang paper but for linear-in-tau source ! radn_dn_Jac(:,nlay+1) = 0._wp do ilev = nlay , 1 , - 1 ! radn_dn_Jac(:,ilev) = trans(:,ilev)*radn_dn_Jac(:,ilev+1) do icol = 1 , ncol adjustmentFactor = Cn ( icol , ilev ) * ( An ( icol , ilev ) * radn_up ( icol , ilev ) - & trans ( icol , ilev ) * source_up ( icol , ilev ) - source_dn ( icol , ilev ) ) radn_dn ( icol , ilev ) = trans ( icol , ilev ) * radn_dn ( icol , ilev + 1 ) + source_dn ( icol , ilev ) + & adjustmentFactor ! adjustmentFactor    = Cn(icol,ilev)*An(icol,ilev)*radn_up_Jac(icol,ilev) ! radn_dn_Jac(icol,ilev) = radn_dn_Jac(icol,ilev) + adjustmentFactor enddo end do end if end subroutine lw_transport_1rescl ! ------------------------------------------------------------------------------------------------- ! ! Longwave two-stream solutions to diffuse reflectance and transmittance for a layer !    with optical depth tau, single scattering albedo w0, and asymmetery parameter g. ! ! Equations are developed in Meador and Weaver, 1980, !    doi:10.1175/1520-0469(1980)037<0630:TSATRT>2.0.CO;2 ! ! ------------------------------------------------------------------------------------------------- pure subroutine lw_two_stream ( ncol , nlay , tau , w0 , g , & gamma1 , gamma2 , Rdif , Tdif ) integer , intent ( in ) :: ncol , nlay real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: tau , w0 , g real ( wp ), dimension ( ncol , nlay ), intent ( out ) :: gamma1 , gamma2 , Rdif , Tdif ! ----------------------- integer :: i , j ! Variables used in Meador and Weaver real ( wp ) :: k ( ncol ) ! Ancillary variables real ( wp ) :: RT_term ( ncol ) real ( wp ) :: exp_minusktau ( ncol ), exp_minus2ktau ( ncol ) real ( wp ), parameter :: LW_diff_sec = 1.66 ! 1./cos(diffusivity angle) ! --------------------------------- do j = 1 , nlay do i = 1 , ncol ! ! Coefficients differ from SW implementation because the phase function is more isotropic !   Here we follow Fu et al. 1997, doi:10.1175/1520-0469(1997)054<2799:MSPITI>2.0.CO;2 !   and use a diffusivity sec of 1.66 ! gamma1 ( i , j ) = LW_diff_sec * ( 1._wp - 0.5_wp * w0 ( i , j ) * ( 1._wp + g ( i , j ))) ! Fu et al. Eq 2.9 gamma2 ( i , j ) = LW_diff_sec * 0.5_wp * w0 ( i , j ) * ( 1._wp - g ( i , j )) ! Fu et al. Eq 2.10 ! Eq 18;  k = SQRT(gamma1**2 - gamma2**2), limited below to avoid div by 0. !   k = 0 for isotropic, conservative scattering; this lower limit on k !   gives relative error with respect to conservative solution !   of < 0.1% in Rdif down to tau = 10&#94;-9 k ( i ) = sqrt ( max (( gamma1 ( i , j ) - gamma2 ( i , j )) * ( gamma1 ( i , j ) + gamma2 ( i , j )), 1.e-12_wp )) end do ! Written to encourage vectorization of exponential exp_minusktau ( 1 : ncol ) = exp ( - tau ( 1 : ncol , j ) * k ( 1 : ncol )) ! ! Diffuse reflection and transmission ! do i = 1 , ncol exp_minus2ktau ( i ) = exp_minusktau ( i ) * exp_minusktau ( i ) ! Refactored to avoid rounding errors when k, gamma1 are of very different magnitudes RT_term ( i ) = 1._wp / ( k ( i ) * ( 1._wp + exp_minus2ktau ( i )) + & gamma1 ( i , j ) * ( 1._wp - exp_minus2ktau ( i )) ) ! Equation 25 Rdif ( i , j ) = RT_term ( i ) * gamma2 ( i , j ) * ( 1._wp - exp_minus2ktau ( i )) ! Equation 26 Tdif ( i , j ) = RT_term ( i ) * 2._wp * k ( i ) * exp_minusktau ( i ) end do end do end subroutine lw_two_stream ! ------------------------------------------------------------------------------------------------- ! ! Source function combination ! RRTMGP provides two source functions at each level !   using the spectral mapping from each of the adjascent layers. !   Need to combine these for use in two-stream calculation. ! ! ------------------------------------------------------------------------------------------------- subroutine lw_combine_sources ( ncol , nlay , top_at_1 , & lev_src_inc , lev_src_dec , lev_source ) integer , intent ( in ) :: ncol , nlay logical ( wl ), intent ( in ) :: top_at_1 real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: lev_src_inc , lev_src_dec real ( wp ), dimension ( ncol , nlay + 1 ), intent ( out ) :: lev_source integer :: icol , ilay ! --------------------------------------------------------------- ilay = 1 do icol = 1 , ncol lev_source ( icol , ilay ) = lev_src_dec ( icol , ilay ) end do do ilay = 2 , nlay do icol = 1 , ncol lev_source ( icol , ilay ) = sqrt ( lev_src_dec ( icol , ilay ) * & lev_src_inc ( icol , ilay - 1 )) end do end do ilay = nlay + 1 do icol = 1 , ncol lev_source ( icol , ilay ) = lev_src_inc ( icol , ilay - 1 ) end do end subroutine lw_combine_sources ! --------------------------------------------------------------- ! ! Compute LW source function for upward and downward emission at levels using linear-in-tau assumption !   This version straight from ECRAD !   Source is provided as W/m2-str; factor of pi converts to flux units ! ! --------------------------------------------------------------- subroutine lw_source_2str ( ncol , nlay , top_at_1 , & sfc_emis , sfc_src , & lay_source , lev_source , & gamma1 , gamma2 , rdif , tdif , tau , source_dn , source_up , source_sfc ) & bind ( C , name = \"rte_lw_source_2str\" ) integer , intent ( in ) :: ncol , nlay logical ( wl ), intent ( in ) :: top_at_1 real ( wp ), dimension ( ncol ), intent ( in ) :: sfc_emis , sfc_src real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: lay_source , & ! Planck source at layer center tau , & ! Optical depth (tau) gamma1 , gamma2 ,& ! Coupling coefficients rdif , tdif ! Layer reflectance and transmittance real ( wp ), dimension ( ncol , nlay + 1 ), target , & intent ( in ) :: lev_source ! Planck source at layer edges real ( wp ), dimension ( ncol , nlay ), intent ( out ) :: source_dn , source_up real ( wp ), dimension ( ncol ), intent ( out ) :: source_sfc ! Source function for upward radation at surface integer :: icol , ilay real ( wp ) :: Z , Zup_top , Zup_bottom , Zdn_top , Zdn_bottom real ( wp ), dimension (:), pointer :: lev_source_bot , lev_source_top ! --------------------------------------------------------------- do ilay = 1 , nlay if ( top_at_1 ) then lev_source_top => lev_source (:, ilay ) lev_source_bot => lev_source (:, ilay + 1 ) else lev_source_top => lev_source (:, ilay + 1 ) lev_source_bot => lev_source (:, ilay ) end if do icol = 1 , ncol if ( tau ( icol , ilay ) > 1.0e-8_wp ) then ! ! Toon et al. (JGR 1989) Eqs 26-27 ! Z = ( lev_source_bot ( icol ) - lev_source_top ( icol )) / ( tau ( icol , ilay ) * ( gamma1 ( icol , ilay ) + gamma2 ( icol , ilay ))) Zup_top = Z + lev_source_top ( icol ) Zup_bottom = Z + lev_source_bot ( icol ) Zdn_top = - Z + lev_source_top ( icol ) Zdn_bottom = - Z + lev_source_bot ( icol ) source_up ( icol , ilay ) = pi * ( Zup_top - rdif ( icol , ilay ) * Zdn_top - tdif ( icol , ilay ) * Zup_bottom ) source_dn ( icol , ilay ) = pi * ( Zdn_bottom - rdif ( icol , ilay ) * Zup_bottom - tdif ( icol , ilay ) * Zdn_top ) else source_up ( icol , ilay ) = 0._wp source_dn ( icol , ilay ) = 0._wp end if end do end do do icol = 1 , ncol source_sfc ( icol ) = pi * sfc_emis ( icol ) * sfc_src ( icol ) end do end subroutine lw_source_2str ! ------------------------------------------------------------------------------------------------- ! !   Lower-level shortwave kernels ! ! ------------------------------------------------------------------------------------------------- ! ! Two-stream solutions to diffuse reflectance and transmittance for a layer !    with optical depth tau, single scattering albedo w0, and asymmetery parameter g. ! Direct reflectance and transmittance used to compute direct beam source for diffuse radiation !   in layers and at surface; report direct beam as a byproduct ! Computing the direct-beam source for diffuse radiation at the same time as R and T for !   direct radiation reduces memory traffic and use. ! ! Equations are developed in Meador and Weaver, 1980, !    doi:10.1175/1520-0469(1980)037<0630:TSATRT>2.0.CO;2 ! ! ------------------------------------------------------------------------------------------------- pure subroutine sw_dif_and_source ( ncol , nlay , top_at_1 , mu0 , sfc_albedo , & tau , w0 , g , & Rdif , Tdif , source_dn , source_up , source_sfc , flux_dn_dir ) bind ( C , name = \"rte_sw_source_dir\" ) integer , intent ( in ) :: ncol , nlay logical ( wl ), intent ( in ) :: top_at_1 real ( wp ), dimension ( ncol ), intent ( in ) :: sfc_albedo ! surface albedo for direct radiation real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: tau , w0 , g , mu0 real ( wp ), dimension ( ncol , nlay ), intent ( out ) :: Rdif , Tdif , source_dn , source_up real ( wp ), dimension ( ncol ), intent ( out ) :: source_sfc ! Source function for upward radation at surface real ( wp ), dimension ( ncol , nlay + 1 ), target , & intent ( inout ) :: flux_dn_dir ! Direct beam flux ! ----------------------- integer :: i , j ! Variables used in Meador and Weaver real ( wp ) :: gamma1 , gamma2 , gamma3 , gamma4 , alpha1 , alpha2 ! Ancillary variables real ( wp ), parameter :: min_k = 1.e4_wp * epsilon ( 1._wp ) ! Suggestion from Chiel van Heerwaarden real ( wp ) :: k , exp_minusktau , k_mu , k_gamma3 , k_gamma4 real ( wp ) :: RT_term , exp_minus2ktau real ( wp ) :: Rdir , Tdir , Tnoscat real ( wp ), pointer , dimension (:) :: dir_flux_inc , dir_flux_trans integer :: lay_index real ( wp ) :: tau_s , w0_s , g_s , mu0_s ! --------------------------------- do j = 1 , nlay if ( top_at_1 ) then lay_index = j dir_flux_inc => flux_dn_dir (:, lay_index ) dir_flux_trans => flux_dn_dir (:, lay_index + 1 ) else lay_index = nlay - j + 1 dir_flux_inc => flux_dn_dir (:, lay_index + 1 ) dir_flux_trans => flux_dn_dir (:, lay_index ) end if do i = 1 , ncol ! ! Scalars ! tau_s = tau ( i , lay_index ) w0_s = w0 ( i , lay_index ) g_s = g ( i , lay_index ) mu0_s = mu0 ( i , lay_index ) ! ! Zdunkowski Practical Improved Flux Method \"PIFM\" !  (Zdunkowski et al., 1980;  Contributions to Atmospheric Physics 53, 147-66) ! gamma1 = ( 8._wp - w0_s * ( 5._wp + 3._wp * g_s )) * . 25_wp gamma2 = 3._wp * ( w0_s * ( 1._wp - g_s )) * . 25_wp ! ! Direct reflect and transmission ! ! Eq 18;  k = SQRT(gamma1**2 - gamma2**2), limited below to avoid div by 0. !   k = 0 for isotropic, conservative scattering; this lower limit on k !   gives relative error with respect to conservative solution !   of < 0.1% in Rdif down to tau = 10&#94;-9 k = sqrt ( max (( gamma1 - gamma2 ) * ( gamma1 + gamma2 ), min_k )) exp_minusktau = exp ( - tau_s * k ) exp_minus2ktau = exp_minusktau * exp_minusktau ! Refactored to avoid rounding errors when k, gamma1 are of very different magnitudes RT_term = 1._wp / ( k * ( 1._wp + exp_minus2ktau ) + & gamma1 * ( 1._wp - exp_minus2ktau ) ) ! Equation 25 Rdif ( i , lay_index ) = RT_term * gamma2 * ( 1._wp - exp_minus2ktau ) ! Equation 26 Tdif ( i , lay_index ) = RT_term * 2._wp * k * exp_minusktau ! ! On a round earth, where mu0 can increase with depth in the atmosphere, !   levels with mu0 <= 0 have no direct beam and hence no source for diffuse light ! if ( mu0_s > 0._wp ) then k_mu = k * mu0_s ! ! Equation 14, multiplying top and bottom by exp(-k*tau) !   and rearranging to avoid div by 0. ! RT_term = w0_s * RT_term / merge ( 1._wp - k_mu * k_mu , & epsilon ( 1._wp ), & abs ( 1._wp - k_mu * k_mu ) >= epsilon ( 1._wp )) ! ! Zdunkowski Practical Improved Flux Method \"PIFM\" !  (Zdunkowski et al., 1980;  Contributions to Atmospheric Physics 53, 147-66) ! gamma3 = ( 2._wp - 3._wp * mu0_s * g_s ) * . 25_wp gamma4 = 1._wp - gamma3 alpha1 = gamma1 * gamma4 + gamma2 * gamma3 ! Eq. 16 alpha2 = gamma1 * gamma3 + gamma2 * gamma4 ! Eq. 17 ! ! Transmittance of direct, unscattered beam. ! k_gamma3 = k * gamma3 k_gamma4 = k * gamma4 Tnoscat = exp ( - tau_s / mu0_s ) Rdir = RT_term * & (( 1._wp - k_mu ) * ( alpha2 + k_gamma3 ) - & ( 1._wp + k_mu ) * ( alpha2 - k_gamma3 ) * exp_minus2ktau - & 2.0_wp * ( k_gamma3 - alpha2 * k_mu ) * exp_minusktau * Tnoscat ) ! ! Equation 15, multiplying top and bottom by exp(-k*tau), !   multiplying through by exp(-tau/mu0) to !   prefer underflow to overflow ! Omitting direct transmittance ! Tdir = - RT_term * & (( 1._wp + k_mu ) * ( alpha1 + k_gamma4 ) * Tnoscat - & ( 1._wp - k_mu ) * ( alpha1 - k_gamma4 ) * exp_minus2ktau * Tnoscat - & 2.0_wp * ( k_gamma4 + alpha1 * k_mu ) * exp_minusktau ) ! Final check that energy is not spuriously created, by recognizing that ! the beam can either be reflected, penetrate unscattered to the base of a layer, ! or penetrate through but be scattered on the way - the rest is absorbed ! Makes the equations safer in single precision. Credit: Robin Hogan, Peter Ukkonen Rdir = max ( 0.0_wp , min ( Rdir , ( 1.0_wp - Tnoscat ) )) Tdir = max ( 0.0_wp , min ( Tdir , ( 1.0_wp - Tnoscat - Rdir ) )) source_up ( i , lay_index ) = Rdir * dir_flux_inc ( i ) source_dn ( i , lay_index ) = Tdir * dir_flux_inc ( i ) dir_flux_trans ( i ) = Tnoscat * dir_flux_inc ( i ) else source_up ( i , lay_index ) = 0._wp source_dn ( i , lay_index ) = 0._wp dir_flux_trans ( i ) = 0._wp end if end do end do source_sfc (:) = dir_flux_trans (:) * sfc_albedo (:) end subroutine sw_dif_and_source ! --------------------------------------------------------------- ! ! Transport of diffuse radiation through a vertically layered atmosphere. !   Equations are after Shonk and Hogan 2008, doi:10.1175/2007JCLI1940.1 (SH08) !   This routine is shared by longwave and shortwave ! ! ------------------------------------------------------------------------------------------------- subroutine adding ( ncol , nlay , top_at_1 , & albedo_sfc , & rdif , tdif , & src_dn , src_up , src_sfc , & flux_up , flux_dn ) integer , intent ( in ) :: ncol , nlay logical ( wl ), intent ( in ) :: top_at_1 real ( wp ), dimension ( ncol ), intent ( in ) :: albedo_sfc real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: rdif , tdif real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: src_dn , src_up real ( wp ), dimension ( ncol ), intent ( in ) :: src_sfc real ( wp ), dimension ( ncol , nlay + 1 ), intent ( out ) :: flux_up ! intent(inout) because top layer includes incident flux real ( wp ), dimension ( ncol , nlay + 1 ), intent ( inout ) :: flux_dn ! ------------------ integer :: ilev real ( wp ), dimension ( ncol , nlay + 1 ) :: albedo , & ! reflectivity to diffuse radiation below this level ! alpha in SH08 src ! source of diffuse upwelling radiation from emission or ! scattering of direct beam ! G in SH08 real ( wp ), dimension ( ncol , nlay ) :: denom ! beta in SH08 ! ------------------ ! ! Indexing into arrays for upward and downward propagation depends on the vertical !   orientation of the arrays (whether the domain top is at the first or last index) ! We write the loops out explicitly so compilers will have no trouble optimizing them. ! if ( top_at_1 ) then ilev = nlay + 1 ! Albedo of lowest level is the surface albedo... albedo (:, ilev ) = albedo_sfc (:) ! ... and source of diffuse radiation is surface emission src (:, ilev ) = src_sfc (:) ! ! From bottom to top of atmosphere -- !   compute albedo and source of upward radiation ! do ilev = nlay , 1 , - 1 denom (:, ilev ) = 1._wp / ( 1._wp - rdif (:, ilev ) * albedo (:, ilev + 1 )) ! Eq 10 albedo (:, ilev ) = rdif (:, ilev ) + & tdif (:, ilev ) * tdif (:, ilev ) * albedo (:, ilev + 1 ) * denom (:, ilev ) ! Equation 9 ! ! Equation 11 -- source is emitted upward radiation at top of layer plus !   radiation emitted at bottom of layer, !   transmitted through the layer and reflected from layers below (tdiff*src*albedo) ! src (:, ilev ) = src_up (:, ilev ) + & tdif (:, ilev ) * denom (:, ilev ) * & ( src (:, ilev + 1 ) + albedo (:, ilev + 1 ) * src_dn (:, ilev )) end do ! Eq 12, at the top of the domain upwelling diffuse is due to ... ilev = 1 flux_up (:, ilev ) = flux_dn (:, ilev ) * albedo (:, ilev ) + & ! ... reflection of incident diffuse and src (:, ilev ) ! emission from below ! ! From the top of the atmosphere downward -- compute fluxes ! do ilev = 2 , nlay + 1 flux_dn (:, ilev ) = ( tdif (:, ilev - 1 ) * flux_dn (:, ilev - 1 ) + & ! Equation 13 rdif (:, ilev - 1 ) * src (:, ilev ) + & src_dn (:, ilev - 1 )) * denom (:, ilev - 1 ) flux_up (:, ilev ) = flux_dn (:, ilev ) * albedo (:, ilev ) + & ! Equation 12 src (:, ilev ) end do else ilev = 1 ! Albedo of lowest level is the surface albedo... albedo (:, ilev ) = albedo_sfc (:) ! ... and source of diffuse radiation is surface emission src (:, ilev ) = src_sfc (:) ! ! From bottom to top of atmosphere -- !   compute albedo and source of upward radiation ! do ilev = 1 , nlay denom (:, ilev ) = 1._wp / ( 1._wp - rdif (:, ilev ) * albedo (:, ilev )) ! Eq 10 albedo (:, ilev + 1 ) = rdif (:, ilev ) + & tdif (:, ilev ) * tdif (:, ilev ) * albedo (:, ilev ) * denom (:, ilev ) ! Equation 9 ! ! Equation 11 -- source is emitted upward radiation at top of layer plus !   radiation emitted at bottom of layer, !   transmitted through the layer and reflected from layers below (tdiff*src*albedo) ! src (:, ilev + 1 ) = src_up (:, ilev ) + & tdif (:, ilev ) * denom (:, ilev ) * & ( src (:, ilev ) + albedo (:, ilev ) * src_dn (:, ilev )) end do ! Eq 12, at the top of the domain upwelling diffuse is due to ... ilev = nlay + 1 flux_up (:, ilev ) = flux_dn (:, ilev ) * albedo (:, ilev ) + & ! ... reflection of incident diffuse and src (:, ilev ) ! scattering by the direct beam below ! ! From the top of the atmosphere downward -- compute fluxes ! do ilev = nlay , 1 , - 1 flux_dn (:, ilev ) = ( tdif (:, ilev ) * flux_dn (:, ilev + 1 ) + & ! Equation 13 rdif (:, ilev ) * src (:, ilev ) + & src_dn (:, ilev )) * denom (:, ilev ) flux_up (:, ilev ) = flux_dn (:, ilev ) * albedo (:, ilev ) + & ! Equation 12 src (:, ilev ) end do end if end subroutine adding end module mo_rte_solver_kernels","tags":"","loc":"sourcefile/mo_rte_solver_kernels.f90.html"},{"title":"mo_rte_util_array.F90 – RTE kernels","text":"Files dependent on this one sourcefile~~mo_rte_util_array.f90~~AfferentGraph sourcefile~mo_rte_util_array.f90 mo_rte_util_array.F90 sourcefile~mo_rte_solver_kernels.f90 mo_rte_solver_kernels.F90 sourcefile~mo_rte_solver_kernels.f90->sourcefile~mo_rte_util_array.f90 Help × Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules mo_rte_util_array Source Code mo_rte_util_array.F90 Source Code ! This code is part of Radiative Transfer for Energetics (RTE) ! ! Contacts: Robert Pincus and Eli Mlawer ! email:  rrtmgp@aer.com ! ! Copyright 2015-  Atmospheric and Environmental Research, !    Regents of the University of Colorado, !    Trustees of Columbia University in the City of New York ! All right reserved. ! ! Use and duplication is permitted under the terms of the !    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause ! ------------------------------------------------------------------------------------------------- module mo_rte_util_array use mo_rte_kind , only : wp , wl implicit none !> !> Efficiently set arrays to zero !> interface zero_array module procedure zero_array_1D , zero_array_2D , zero_array_3D , zero_array_4D end interface public :: zero_array contains !------------------------------------------------------------------------------------------------- ! Initializing arrays to 0 !------------------------------------------------------------------------------------------------- subroutine zero_array_1D ( ni , array ) bind ( C , name = \"zero_array_1D\" ) integer , intent ( in ) :: ni real ( wp ), dimension ( ni ), intent ( out ) :: array ! ----------------------- integer :: i ! ----------------------- !$acc parallel loop copyout(array) !$omp target teams distribute parallel do simd map(from:array) do i = 1 , ni array ( i ) = 0.0_wp end do end subroutine zero_array_1D ! ---------------------------------------------------------- subroutine zero_array_2D ( ni , nj , array ) bind ( C , name = \"zero_array_2D\" ) integer , intent ( in ) :: ni , nj real ( wp ), dimension ( ni , nj ), intent ( out ) :: array ! ----------------------- integer :: i , j ! ----------------------- !$acc parallel loop collapse(2) copyout(array) !$omp target teams distribute parallel do simd collapse(2) map(from:array) do j = 1 , nj do i = 1 , ni array ( i , j ) = 0.0_wp end do end do end subroutine zero_array_2D ! ---------------------------------------------------------- subroutine zero_array_3D ( ni , nj , nk , array ) bind ( C , name = \"zero_array_3D\" ) integer , intent ( in ) :: ni , nj , nk real ( wp ), dimension ( ni , nj , nk ), intent ( out ) :: array ! ----------------------- integer :: i , j , k ! ----------------------- !$acc parallel loop collapse(3) copyout(array) !$omp target teams distribute parallel do simd collapse(3) map(from:array) do k = 1 , nk do j = 1 , nj do i = 1 , ni array ( i , j , k ) = 0.0_wp end do end do end do end subroutine zero_array_3D ! ---------------------------------------------------------- subroutine zero_array_4D ( ni , nj , nk , nl , array ) bind ( C , name = \"zero_array_4D\" ) integer , intent ( in ) :: ni , nj , nk , nl real ( wp ), dimension ( ni , nj , nk , nl ), intent ( out ) :: array ! ----------------------- integer :: i , j , k , l ! ----------------------- !$acc parallel loop collapse(4) copyout(array) !$omp target teams distribute parallel do simd collapse(4) map(from:array) do l = 1 , nl do k = 1 , nk do j = 1 , nj do i = 1 , ni array ( i , j , k , l ) = 0.0_wp end do end do end do end do end subroutine zero_array_4D end module mo_rte_util_array","tags":"","loc":"sourcefile/mo_rte_util_array.f90.html"},{"title":"mo_fluxes_broadband_kernels.F90 – RTE kernels","text":"Contents Modules mo_fluxes_broadband_kernels Source Code mo_fluxes_broadband_kernels.F90 Source Code ! This code is part of Radiative Transfer for Energetics (RTE) ! ! Contacts: Robert Pincus and Eli Mlawer ! email:  rrtmgp@aer.com ! ! Copyright 2015-,  Atmospheric and Environmental Research, ! Regents of the University of Colorado, Trustees of Columbia University.  All right reserved. ! ! Use and duplication is permitted under the terms of the !    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause ! ------------------------------------------------------------------------------------------------- !> !> ## Kernels for computing broadband fluxes !> ! ------------------------------------------------------------------------------------------------- module mo_fluxes_broadband_kernels use , intrinsic :: iso_c_binding use mo_rte_kind , only : wp implicit none private public :: sum_broadband , net_broadband interface net_broadband !! Interface for computing net flux module procedure net_broadband_full , net_broadband_precalc end interface net_broadband contains ! ---------------------------------------------------------------------------- !> !> Spectral reduction over all points !> subroutine sum_broadband ( ncol , nlev , ngpt , spectral_flux , broadband_flux ) bind ( C , name = \"rte_sum_broadband\" ) integer , intent ( in ) :: ncol , nlev , ngpt !! Array sizes real ( wp ), dimension ( ncol , nlev , ngpt ), intent ( in ) :: spectral_flux !! Spectrally-resolved flux real ( wp ), dimension ( ncol , nlev ), intent ( out ) :: broadband_flux !! Sum of spectrally-resolved flux over `ngpt` integer :: icol , ilev , igpt real ( wp ) :: bb_flux_s ! local scalar version !$acc enter data copyin(spectral_flux) create(broadband_flux) !$omp target enter data map(to:spectral_flux) map(alloc:broadband_flux) !$acc parallel loop gang vector collapse(2) !$omp target teams distribute parallel do simd collapse(2) do ilev = 1 , nlev do icol = 1 , ncol bb_flux_s = 0.0_wp do igpt = 1 , ngpt bb_flux_s = bb_flux_s + spectral_flux ( icol , ilev , igpt ) end do broadband_flux ( icol , ilev ) = bb_flux_s end do end do !$acc exit data delete(spectral_flux) copyout(broadband_flux) !$omp target exit data map(release:spectral_flux) map(from:broadband_flux) end subroutine sum_broadband ! ---------------------------------------------------------------------------- !> !> Spectral reduction over all points for net flux !> subroutine net_broadband_full ( ncol , nlev , ngpt , spectral_flux_dn , spectral_flux_up , broadband_flux_net ) & bind ( C , name = \"rte_net_broadband_full\" ) integer , intent ( in ) :: ncol , nlev , ngpt !! Array sizes real ( wp ), dimension ( ncol , nlev , ngpt ), intent ( in ) :: spectral_flux_dn , spectral_flux_up !! Spectrally-resolved flux up and down real ( wp ), dimension ( ncol , nlev ), intent ( out ) :: broadband_flux_net !! Net (down minus up) summed over `ngpt` integer :: icol , ilev , igpt real ( wp ) :: diff !$acc enter data copyin(spectral_flux_dn, spectral_flux_up) create(broadband_flux_net) !$omp target enter data map(to:spectral_flux_dn, spectral_flux_up) map(alloc:broadband_flux_net) !$acc parallel loop collapse(2) !$omp target teams distribute parallel do simd collapse(2) do ilev = 1 , nlev do icol = 1 , ncol diff = spectral_flux_dn ( icol , ilev , 1 ) - spectral_flux_up ( icol , ilev , 1 ) broadband_flux_net ( icol , ilev ) = diff end do end do !$acc parallel loop collapse(3) !$omp target teams distribute parallel do simd collapse(3) do igpt = 2 , ngpt do ilev = 1 , nlev do icol = 1 , ncol diff = spectral_flux_dn ( icol , ilev , igpt ) - spectral_flux_up ( icol , ilev , igpt ) !$acc atomic update !$omp atomic update broadband_flux_net ( icol , ilev ) = broadband_flux_net ( icol , ilev ) + diff end do end do end do !$acc exit data delete(spectral_flux_dn, spectral_flux_up) copyout(broadband_flux_net) !$omp target exit data map(release:spectral_flux_dn, spectral_flux_up) map(from:broadband_flux_net) end subroutine net_broadband_full ! ---------------------------------------------------------------------------- !> !> Net flux when bradband flux up and down are already available !> subroutine net_broadband_precalc ( ncol , nlev , flux_dn , flux_up , broadband_flux_net ) & bind ( C , name = \"rte_net_broadband_precalc\" ) integer , intent ( in ) :: ncol , nlev !! Array sizes real ( wp ), dimension ( ncol , nlev ), intent ( in ) :: flux_dn , flux_up !! Broadband downward and upward fluxes real ( wp ), dimension ( ncol , nlev ), intent ( out ) :: broadband_flux_net !! Net (down minus up) integer :: icol , ilev !$acc enter data copyin(flux_dn, flux_up) create(broadband_flux_net) !$omp target enter data map(to:flux_dn, flux_up) map(alloc:broadband_flux_net) !$acc parallel loop collapse(2) !$omp target teams distribute parallel do simd collapse(2) do ilev = 1 , nlev do icol = 1 , ncol broadband_flux_net ( icol , ilev ) = flux_dn ( icol , ilev ) - flux_up ( icol , ilev ) end do end do !$acc exit data delete(flux_dn, flux_up) copyout(broadband_flux_net) !$omp target exit data map(release:flux_dn, flux_up) map(from:broadband_flux_net) end subroutine net_broadband_precalc ! ---------------------------------------------------------------------------- end module mo_fluxes_broadband_kernels","tags":"","loc":"sourcefile/mo_fluxes_broadband_kernels.f90.html"}]}
\ No newline at end of file
+var tipuesearch = {"pages":[{"title":" RTE kernels ","text":"RTE kernels These pages document the low-level computational kernels used by RRTMGP. The listings below are not exhaustive.\nTo see the full listings use the links at the top of the page.\nThere is a search bar in the top right. Return to the Documentation overview or the reference overview . Developer Info The RTE+RRTTMGP consortium","tags":"home","loc":"index.html"},{"title":"delta_scale_2str_f_k – RTE kernels","text":"public pure subroutine delta_scale_2str_f_k(ncol, nlay, ngpt, tau, ssa, g, f) bind(C, name=\"0\") Delta-scale two-stream optical properties given user-provided value of (forward scattering) Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: tau Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: ssa Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: g Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(in), dimension(ncol, nlay, ngpt) :: f User-provided forward-scattering fraction Called by proc~~delta_scale_2str_f_k~~CalledByGraph proc~delta_scale_2str_f_k delta_scale_2str_f_k interface~delta_scale_2str_kernel delta_scale_2str_kernel interface~delta_scale_2str_kernel->proc~delta_scale_2str_f_k Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/delta_scale_2str_f_k.html"},{"title":"delta_scale_2str_k – RTE kernels","text":"public pure subroutine delta_scale_2str_k(ncol, nlay, ngpt, tau, ssa, g) bind(C, name=\"0\") Delta-scale assuming forward-scatternig fraction is the square of the asymmetry parameter\n   i.e. Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: tau Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: ssa Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: g Optical depth, single-scattering albedo, asymmetry parameter Called by proc~~delta_scale_2str_k~~CalledByGraph proc~delta_scale_2str_k delta_scale_2str_k interface~delta_scale_2str_kernel delta_scale_2str_kernel interface~delta_scale_2str_kernel->proc~delta_scale_2str_k Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/delta_scale_2str_k.html"},{"title":"extract_subset_absorption_tau – RTE kernels","text":"public pure subroutine extract_subset_absorption_tau(ncol, nlay, ngpt, tau_in, ssa_in, colS, colE, tau_out) bind(C, name=\"0\") Extract the absorption optical thickness Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau_in Optical thickness, single scattering albedo real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa_in Optical thickness, single scattering albedo integer, intent(in) :: colS Starting and ending index integer, intent(in) :: colE Starting and ending index real(kind=wp), intent(out), dimension(colE-colS+1, nlay,ngpt) :: tau_out absorption optical thickness subset Called by proc~~extract_subset_absorption_tau~~CalledByGraph proc~extract_subset_absorption_tau extract_subset_absorption_tau interface~extract_subset extract_subset interface~extract_subset->proc~extract_subset_absorption_tau Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/extract_subset_absorption_tau.html"},{"title":"extract_subset_dim1_3d – RTE kernels","text":"public pure subroutine extract_subset_dim1_3d(ncol, nlay, ngpt, array_in, colS, colE, array_out) bind(C, name=\"0\") Extract a subset from the first dimension (normally columns) of a 3D field.\n  Applicable to most variables e.g. tau, ssa, g Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: array_in Array to subset integer, intent(in) :: colS Starting and ending index integer, intent(in) :: colE Starting and ending index real(kind=wp), intent(out), dimension(colE-colS+1, nlay,ngpt) :: array_out subset of the input array Called by proc~~extract_subset_dim1_3d~~CalledByGraph proc~extract_subset_dim1_3d extract_subset_dim1_3d interface~extract_subset extract_subset interface~extract_subset->proc~extract_subset_dim1_3d Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/extract_subset_dim1_3d.html"},{"title":"extract_subset_dim2_4d – RTE kernels","text":"public pure subroutine extract_subset_dim2_4d(nmom, ncol, nlay, ngpt, array_in, colS, colE, array_out) bind(C, name=\"0\") Extract a subset from the second dimension (normally columns) of a 4D field.\n  Applicable to phase function moments, where the first dimension is the moment Arguments Type Intent Optional Attributes Name integer, intent(in) :: nmom Array sizes integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(nmom,ncol,nlay,ngpt) :: array_in Array to subset integer, intent(in) :: colS Starting and ending index integer, intent(in) :: colE Starting and ending index real(kind=wp), intent(out), dimension(nmom,colE-colS+1, nlay,ngpt) :: array_out subset of the input array Called by proc~~extract_subset_dim2_4d~~CalledByGraph proc~extract_subset_dim2_4d extract_subset_dim2_4d interface~extract_subset extract_subset interface~extract_subset->proc~extract_subset_dim2_4d Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/extract_subset_dim2_4d.html"},{"title":"inc_1scalar_by_1scalar_bybnd – RTE kernels","text":"public pure subroutine inc_1scalar_by_1scalar_bybnd(ncol, nlay, ngpt, tau1, tau2, nbnd, gpt_lims) bind(C, name=\"0\") increase one absorption optical depth defined on g-points by a second value defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band Contents None","tags":"","loc":"proc/inc_1scalar_by_1scalar_bybnd.html"},{"title":"inc_1scalar_by_2stream_bybnd – RTE kernels","text":"public pure subroutine inc_1scalar_by_2stream_bybnd(ncol, nlay, ngpt, tau1, tau2, ssa2, nbnd, gpt_lims) bind(C, name=\"0\") increase absorption optical depth defined on g-points  with extinction optical depth (2-stream form) defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: ssa2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band Contents None","tags":"","loc":"proc/inc_1scalar_by_2stream_bybnd.html"},{"title":"inc_1scalar_by_nstream_bybnd – RTE kernels","text":"public pure subroutine inc_1scalar_by_nstream_bybnd(ncol, nlay, ngpt, tau1, tau2, ssa2, nbnd, gpt_lims) bind(C, name=\"0\") increase absorption optical depth defined on g-points  with extinction optical depth (n-stream form) defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: ssa2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band Contents None","tags":"","loc":"proc/inc_1scalar_by_nstream_bybnd.html"},{"title":"inc_2stream_by_1scalar_bybnd – RTE kernels","text":"public pure subroutine inc_2stream_by_1scalar_bybnd(ncol, nlay, ngpt, tau1, ssa1, tau2, nbnd, gpt_lims) bind(C, name=\"0\") increment two-stream optical properties defined on g-points with absorption optical depth defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band Contents None","tags":"","loc":"proc/inc_2stream_by_1scalar_bybnd.html"},{"title":"inc_2stream_by_2stream_bybnd – RTE kernels","text":"public pure subroutine inc_2stream_by_2stream_bybnd(ncol, nlay, ngpt, tau1, ssa1, g1, tau2, ssa2, g2, nbnd, gpt_lims) bind(C, name=\"0\") increment 2-stream optical properties defined on g-points with another set defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: g1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: ssa2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: g2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band Contents None","tags":"","loc":"proc/inc_2stream_by_2stream_bybnd.html"},{"title":"inc_2stream_by_nstream_bybnd – RTE kernels","text":"public pure subroutine inc_2stream_by_nstream_bybnd(ncol, nlay, ngpt, nmom2, tau1, ssa1, g1, tau2, ssa2, p2, nbnd, gpt_lims) bind(C, name=\"0\") increment 2-stream optical properties defined on g-points with n -stream properties set defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes integer, intent(in) :: nmom2 array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: g1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: ssa2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(nmom2, ncol,nlay,nbnd) :: p2 moments of the phase function to be added integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band Contents None","tags":"","loc":"proc/inc_2stream_by_nstream_bybnd.html"},{"title":"inc_nstream_by_1scalar_bybnd – RTE kernels","text":"public pure subroutine inc_nstream_by_1scalar_bybnd(ncol, nlay, ngpt, tau1, ssa1, tau2, nbnd, gpt_lims) bind(C, name=\"0\") increment n -stream optical properties defined on g-points with absorption optical depth defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band Contents None","tags":"","loc":"proc/inc_nstream_by_1scalar_bybnd.html"},{"title":"inc_nstream_by_2stream_bybnd – RTE kernels","text":"public pure subroutine inc_nstream_by_2stream_bybnd(ncol, nlay, ngpt, nmom1, tau1, ssa1, p1, tau2, ssa2, g2, nbnd, gpt_lims) bind(C, name=\"0\") increment n-stream optical properties defined on g-points with 2-stream properties set defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes integer, intent(in) :: nmom1 array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(nmom1, ncol,nlay,ngpt) :: p1 moments of the phase function be modified real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: ssa2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: g2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band Contents None","tags":"","loc":"proc/inc_nstream_by_2stream_bybnd.html"},{"title":"inc_nstream_by_nstream_bybnd – RTE kernels","text":"public pure subroutine inc_nstream_by_nstream_bybnd(ncol, nlay, ngpt, nmom1, nmom2, tau1, ssa1, p1, tau2, ssa2, p2, nbnd, gpt_lims) bind(C, name=\"0\") increment n -stream optical properties defined on g-points with a second set defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes integer, intent(in) :: nmom1 array sizes integer, intent(in) :: nmom2 array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(nmom1, ncol,nlay,ngpt) :: p1 moments of the phase function be modified real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: ssa2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(nmom2, ncol,nlay,nbnd) :: p2 moments of the phase function to be added integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band Contents None","tags":"","loc":"proc/inc_nstream_by_nstream_bybnd.html"},{"title":"increment_1scalar_by_1scalar – RTE kernels","text":"public pure subroutine increment_1scalar_by_1scalar(ncol, nlay, ngpt, tau1, tau2) bind(C, name=\"0\") increase one absorption optical depth by a second value Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original Contents None","tags":"","loc":"proc/increment_1scalar_by_1scalar.html"},{"title":"increment_1scalar_by_2stream – RTE kernels","text":"public pure subroutine increment_1scalar_by_2stream(ncol, nlay, ngpt, tau1, tau2, ssa2) bind(C, name=\"0\") increase absorption optical depth with extinction optical depth (2-stream form) Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa2 optical properties to be added to original Contents None","tags":"","loc":"proc/increment_1scalar_by_2stream.html"},{"title":"increment_1scalar_by_nstream – RTE kernels","text":"public pure subroutine increment_1scalar_by_nstream(ncol, nlay, ngpt, tau1, tau2, ssa2) bind(C, name=\"0\") increase absorption optical depth with extinction optical depth (n-stream form) Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa2 optical properties to be added to original Contents None","tags":"","loc":"proc/increment_1scalar_by_nstream.html"},{"title":"increment_2stream_by_1scalar – RTE kernels","text":"public pure subroutine increment_2stream_by_1scalar(ncol, nlay, ngpt, tau1, ssa1, tau2) bind(C, name=\"0\") increment two-stream optical properties with absorption optical depth Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original Contents None","tags":"","loc":"proc/increment_2stream_by_1scalar.html"},{"title":"increment_2stream_by_2stream – RTE kernels","text":"public pure subroutine increment_2stream_by_2stream(ncol, nlay, ngpt, tau1, ssa1, g1, tau2, ssa2, g2) bind(C, name=\"0\") increment two-stream optical properties with a second set Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: g1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: g2 optical properties to be added to original Contents None","tags":"","loc":"proc/increment_2stream_by_2stream.html"},{"title":"increment_2stream_by_nstream – RTE kernels","text":"public pure subroutine increment_2stream_by_nstream(ncol, nlay, ngpt, nmom2, tau1, ssa1, g1, tau2, ssa2, p2) bind(C, name=\"0\") increment two-stream optical properties with n -stream Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes integer, intent(in) :: nmom2 array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: g1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa2 optical properties to be added to original real(kind=wp), intent(in), dimension(nmom2, ncol,nlay,ngpt) :: p2 moments of the phase function to be added Contents None","tags":"","loc":"proc/increment_2stream_by_nstream.html"},{"title":"increment_nstream_by_1scalar – RTE kernels","text":"public pure subroutine increment_nstream_by_1scalar(ncol, nlay, ngpt, tau1, ssa1, tau2) bind(C, name=\"0\") increment n -stream optical properties with absorption optical depth Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original Contents None","tags":"","loc":"proc/increment_nstream_by_1scalar.html"},{"title":"increment_nstream_by_2stream – RTE kernels","text":"public pure subroutine increment_nstream_by_2stream(ncol, nlay, ngpt, nmom1, tau1, ssa1, p1, tau2, ssa2, g2) bind(C, name=\"0\") increment n -stream optical properties with two-stream values Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes integer, intent(in) :: nmom1 array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified real(kind=wp), intent(inout), dimension(nmom1, ncol,nlay,ngpt) :: p1 moments of the phase function be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: g2 optical properties to be added to original Contents None","tags":"","loc":"proc/increment_nstream_by_2stream.html"},{"title":"increment_nstream_by_nstream – RTE kernels","text":"public pure subroutine increment_nstream_by_nstream(ncol, nlay, ngpt, nmom1, nmom2, tau1, ssa1, p1, tau2, ssa2, p2) bind(C, name=\"0\") increment one set of n -stream optical properties with another set Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes integer, intent(in) :: nmom1 array sizes integer, intent(in) :: nmom2 array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified real(kind=wp), intent(inout), dimension(nmom1, ncol,nlay,ngpt) :: p1 moments of the phase function be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa2 optical properties to be added to original real(kind=wp), intent(in), dimension(nmom2, ncol,nlay,ngpt) :: p2 moments of the phase function to be added Contents None","tags":"","loc":"proc/increment_nstream_by_nstream.html"},{"title":"delta_scale_2str_kernel – RTE kernels","text":"public interface delta_scale_2str_kernel Delta-scale two-stream optical properties Calls interface~~delta_scale_2str_kernel~~CallsGraph interface~delta_scale_2str_kernel delta_scale_2str_kernel proc~delta_scale_2str_f_k delta_scale_2str_f_k interface~delta_scale_2str_kernel->proc~delta_scale_2str_f_k proc~delta_scale_2str_k delta_scale_2str_k interface~delta_scale_2str_kernel->proc~delta_scale_2str_k Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Module Procedures delta_scale_2str_f_k delta_scale_2str_k Module Procedures public pure subroutine delta_scale_2str_f_k (ncol, nlay, ngpt, tau, ssa, g, f) bind(C, name=\"0\") Delta-scale two-stream optical properties given user-provided value of (forward scattering) Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: tau Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: ssa Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: g Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(in), dimension(ncol, nlay, ngpt) :: f User-provided forward-scattering fraction public pure subroutine delta_scale_2str_k (ncol, nlay, ngpt, tau, ssa, g) bind(C, name=\"0\") Delta-scale assuming forward-scatternig fraction is the square of the asymmetry parameter\n   i.e. Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: tau Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: ssa Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: g Optical depth, single-scattering albedo, asymmetry parameter","tags":"","loc":"interface/delta_scale_2str_kernel.html"},{"title":"extract_subset – RTE kernels","text":"public interface extract_subset Subsetting, meaning extracting some portion of the 3D domain Calls interface~~extract_subset~~CallsGraph interface~extract_subset extract_subset proc~extract_subset_dim1_3d extract_subset_dim1_3d interface~extract_subset->proc~extract_subset_dim1_3d proc~extract_subset_absorption_tau extract_subset_absorption_tau interface~extract_subset->proc~extract_subset_absorption_tau proc~extract_subset_dim2_4d extract_subset_dim2_4d interface~extract_subset->proc~extract_subset_dim2_4d Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Module Procedures extract_subset_dim1_3d extract_subset_dim2_4d extract_subset_absorption_tau Module Procedures public pure subroutine extract_subset_dim1_3d (ncol, nlay, ngpt, array_in, colS, colE, array_out) bind(C, name=\"0\") Extract a subset from the first dimension (normally columns) of a 3D field.\n  Applicable to most variables e.g. tau, ssa, g Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: array_in Array to subset integer, intent(in) :: colS Starting and ending index integer, intent(in) :: colE Starting and ending index real(kind=wp), intent(out), dimension(colE-colS+1, nlay,ngpt) :: array_out subset of the input array public pure subroutine extract_subset_dim2_4d (nmom, ncol, nlay, ngpt, array_in, colS, colE, array_out) bind(C, name=\"0\") Extract a subset from the second dimension (normally columns) of a 4D field.\n  Applicable to phase function moments, where the first dimension is the moment Arguments Type Intent Optional Attributes Name integer, intent(in) :: nmom Array sizes integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(nmom,ncol,nlay,ngpt) :: array_in Array to subset integer, intent(in) :: colS Starting and ending index integer, intent(in) :: colE Starting and ending index real(kind=wp), intent(out), dimension(nmom,colE-colS+1, nlay,ngpt) :: array_out subset of the input array public pure subroutine extract_subset_absorption_tau (ncol, nlay, ngpt, tau_in, ssa_in, colS, colE, tau_out) bind(C, name=\"0\") Extract the absorption optical thickness Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau_in Optical thickness, single scattering albedo real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa_in Optical thickness, single scattering albedo integer, intent(in) :: colS Starting and ending index integer, intent(in) :: colE Starting and ending index real(kind=wp), intent(out), dimension(colE-colS+1, nlay,ngpt) :: tau_out absorption optical thickness subset","tags":"","loc":"interface/extract_subset.html"},{"title":"lw_solver_2stream – RTE kernels","text":"public subroutine lw_solver_2stream(ncol, nlay, ngpt, top_at_1, tau, ssa, g, lay_source, lev_source_inc, lev_source_dec, sfc_emis, sfc_src, inc_flux, flux_up, flux_dn) bind(C, name=\"0\") Longwave two-stream calculation:\n  - combine RRTMGP-specific sources at levels\n  - compute layer reflectance, transmittance\n  - compute total source function at levels using linear-in-tau\n  - transport Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Number of columns, layers, g-points integer, intent(in) :: nlay Number of columns, layers, g-points integer, intent(in) :: ngpt Number of columns, layers, g-points logical(kind=wl), intent(in) :: top_at_1 ilay = 1 is the top of the atmosphere? real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: tau Optical thickness, single-scattering albedo, asymmetry parameter [] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: ssa Optical thickness, single-scattering albedo, asymmetry parameter [] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: g Optical thickness, single-scattering albedo, asymmetry parameter [] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: lay_source Planck source at layer average temperature [W/m2] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: lev_source_inc Planck source at layer edge for radiation in increasing ilay direction [W/m2] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: lev_source_dec Planck source at layer edge for radiation in decreasing ilay direction [W/m2] real(kind=wp), intent(in), dimension(ncol,       ngpt) :: sfc_emis Surface emissivity      [] real(kind=wp), intent(in), dimension(ncol,       ngpt) :: sfc_src Surface source function [W/m2] real(kind=wp), intent(in), dimension(ncol,       ngpt) :: inc_flux Incident diffuse flux, probably 0 [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt) :: flux_up Fluxes [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt) :: flux_dn Fluxes [W/m2] Contents None","tags":"","loc":"proc/lw_solver_2stream.html"},{"title":"lw_solver_noscat – RTE kernels","text":"public subroutine lw_solver_noscat(ncol, nlay, ngpt, top_at_1, nmus, Ds, weights, tau, lay_source, lev_source_inc, lev_source_dec, sfc_emis, sfc_src, inc_flux, flux_up, flux_dn, do_broadband, broadband_up, broadband_dn, do_Jacobians, sfc_srcJac, flux_upJac, do_rescaling, ssa, g) bind(C, name=\"0\") LW transport, no scattering, multi-angle quadrature\n  Users provide a set of weights and quadrature angles\n  Routine sums over single-angle solutions for each sets of angles/weights Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Number of columns, layers, g-points integer, intent(in) :: nlay Number of columns, layers, g-points integer, intent(in) :: ngpt Number of columns, layers, g-points logical(kind=wl), intent(in) :: top_at_1 ilay = 1 is the top of the atmosphere? integer, intent(in) :: nmus number of quadrature angles real(kind=wp), intent(in), dimension (ncol,      ngpt, nmus) :: Ds quadrature secants real(kind=wp), intent(in), dimension(nmus) :: weights quadrature weights real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: tau Absorption optical thickness [] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: lay_source Planck source at layer average temperature [W/m2] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: lev_source_inc Planck source at layer edge for radiation in increasing ilay direction [W/m2] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: lev_source_dec Planck source at layer edge for radiation in decreasing ilay direction [W/m2] real(kind=wp), intent(in), dimension(ncol,       ngpt) :: sfc_emis Surface emissivity      [] real(kind=wp), intent(in), dimension(ncol,       ngpt) :: sfc_src Surface source function [W/m2] real(kind=wp), intent(in), dimension(ncol,       ngpt) :: inc_flux Incident diffuse flux, probably 0 [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt), target :: flux_up Fluxes [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt), target :: flux_dn Fluxes [W/m2] logical(kind=wl), intent(in) :: do_broadband real(kind=wp), intent(out), dimension(ncol,nlay+1     ), target :: broadband_up Spectrally-integrated fluxes [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1     ), target :: broadband_dn Spectrally-integrated fluxes [W/m2] logical(kind=wl), intent(in) :: do_Jacobians compute Jacobian with respect to surface temeprature? real(kind=wp), intent(in), dimension(ncol       ,ngpt) :: sfc_srcJac surface temperature Jacobian of surface source function [W/m2/K] real(kind=wp), intent(out), dimension(ncol,nlay+1     ), target :: flux_upJac surface temperature Jacobian of Radiances [W/m2-str / K] logical(kind=wl), intent(in) :: do_rescaling Approximate treatment of scattering (10.1175/JAS-D-18-0014.1) real(kind=wp), intent(in), dimension(ncol,nlay  ,ngpt) :: ssa single-scattering albedo, asymmetry parameter real(kind=wp), intent(in), dimension(ncol,nlay  ,ngpt) :: g single-scattering albedo, asymmetry parameter Contents None","tags":"","loc":"proc/lw_solver_noscat.html"},{"title":"sw_solver_2stream – RTE kernels","text":"public subroutine sw_solver_2stream(ncol, nlay, ngpt, top_at_1, tau, ssa, g, mu0, sfc_alb_dir, sfc_alb_dif, inc_flux_dir, flux_up, flux_dn, flux_dir, has_dif_bc, inc_flux_dif, do_broadband, broadband_up, broadband_dn, broadband_dir) bind(C, name=\"0\") Shortwave two-stream calculation:\n  compute layer reflectance, transmittance\n  compute solar source function for diffuse radiation\n  transport Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Number of columns, layers, g-points integer, intent(in) :: nlay Number of columns, layers, g-points integer, intent(in) :: ngpt Number of columns, layers, g-points logical(kind=wl), intent(in) :: top_at_1 ilay = 1 is the top of the atmosphere? real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: tau Optical thickness, single-scattering albedo, asymmetry parameter [] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: ssa Optical thickness, single-scattering albedo, asymmetry parameter [] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: g Optical thickness, single-scattering albedo, asymmetry parameter [] real(kind=wp), intent(in), dimension(ncol,nlay       ) :: mu0 cosine of solar zenith angle real(kind=wp), intent(in), dimension(ncol,       ngpt) :: sfc_alb_dir Spectral surface albedo for direct and diffuse radiation real(kind=wp), intent(in), dimension(ncol,       ngpt) :: sfc_alb_dif Spectral surface albedo for direct and diffuse radiation real(kind=wp), intent(in), dimension(ncol,       ngpt) :: inc_flux_dir Direct beam incident flux real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt), target :: flux_up Fluxes [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt), target :: flux_dn Fluxes [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt), target :: flux_dir Fluxes [W/m2] logical(kind=wl), intent(in) :: has_dif_bc Is a boundary condition for diffuse flux supplied? real(kind=wp), intent(in), dimension(ncol,       ngpt) :: inc_flux_dif Boundary condition for diffuse flux [W/m2] logical(kind=wl), intent(in) :: do_broadband Provide broadband-integrated, not spectrally-resolved, fluxes? real(kind=wp), intent(out), dimension(ncol,nlay+1     ) :: broadband_up Broadband integrated fluxes real(kind=wp), intent(out), dimension(ncol,nlay+1     ) :: broadband_dn Broadband integrated fluxes real(kind=wp), intent(out), dimension(ncol,nlay+1     ) :: broadband_dir Broadband integrated fluxes Calls proc~~sw_solver_2stream~~CallsGraph proc~sw_solver_2stream sw_solver_2stream interface~zero_array zero_array proc~sw_solver_2stream->interface~zero_array proc~zero_array_1d zero_array_1D interface~zero_array->proc~zero_array_1d proc~zero_array_3d zero_array_3D interface~zero_array->proc~zero_array_3d proc~zero_array_4d zero_array_4D interface~zero_array->proc~zero_array_4d proc~zero_array_2d zero_array_2D interface~zero_array->proc~zero_array_2d Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/sw_solver_2stream.html"},{"title":"sw_solver_noscat – RTE kernels","text":"public pure subroutine sw_solver_noscat(ncol, nlay, ngpt, top_at_1, tau, mu0, inc_flux_dir, flux_dir) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Number of columns, layers, g-points integer, intent(in) :: nlay Number of columns, layers, g-points integer, intent(in) :: ngpt Number of columns, layers, g-points logical(kind=wl), intent(in) :: top_at_1 ilay = 1 is the top of the atmosphere? real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: tau Absorption optical thickness [] real(kind=wp), intent(in), dimension(ncol,nlay       ) :: mu0 cosine of solar zenith angle real(kind=wp), intent(in), dimension(ncol,       ngpt) :: inc_flux_dir Direct beam incident flux [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt) :: flux_dir Direct-beam flux, spectral [W/m2] Contents None","tags":"","loc":"proc/sw_solver_noscat.html"},{"title":"zero_array_1D – RTE kernels","text":"public subroutine zero_array_1D(ni, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni real(kind=wp), intent(out), dimension(ni) :: array Called by proc~~zero_array_1d~~CalledByGraph proc~zero_array_1d zero_array_1D interface~zero_array zero_array interface~zero_array->proc~zero_array_1d proc~sw_solver_2stream sw_solver_2stream proc~sw_solver_2stream->interface~zero_array Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/zero_array_1d.html"},{"title":"zero_array_2D – RTE kernels","text":"public subroutine zero_array_2D(ni, nj, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni integer, intent(in) :: nj real(kind=wp), intent(out), dimension(ni, nj) :: array Called by proc~~zero_array_2d~~CalledByGraph proc~zero_array_2d zero_array_2D interface~zero_array zero_array interface~zero_array->proc~zero_array_2d proc~sw_solver_2stream sw_solver_2stream proc~sw_solver_2stream->interface~zero_array Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/zero_array_2d.html"},{"title":"zero_array_3D – RTE kernels","text":"public subroutine zero_array_3D(ni, nj, nk, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni integer, intent(in) :: nj integer, intent(in) :: nk real(kind=wp), intent(out), dimension(ni, nj, nk) :: array Called by proc~~zero_array_3d~~CalledByGraph proc~zero_array_3d zero_array_3D interface~zero_array zero_array interface~zero_array->proc~zero_array_3d proc~sw_solver_2stream sw_solver_2stream proc~sw_solver_2stream->interface~zero_array Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/zero_array_3d.html"},{"title":"zero_array_4D – RTE kernels","text":"public subroutine zero_array_4D(ni, nj, nk, nl, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni integer, intent(in) :: nj integer, intent(in) :: nk integer, intent(in) :: nl real(kind=wp), intent(out), dimension(ni, nj, nk, nl) :: array Called by proc~~zero_array_4d~~CalledByGraph proc~zero_array_4d zero_array_4D interface~zero_array zero_array interface~zero_array->proc~zero_array_4d proc~sw_solver_2stream sw_solver_2stream proc~sw_solver_2stream->interface~zero_array Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/zero_array_4d.html"},{"title":"zero_array – RTE kernels","text":"public interface zero_array Efficiently set arrays to zero Calls interface~~zero_array~~CallsGraph interface~zero_array zero_array proc~zero_array_1d zero_array_1D interface~zero_array->proc~zero_array_1d proc~zero_array_3d zero_array_3D interface~zero_array->proc~zero_array_3d proc~zero_array_4d zero_array_4D interface~zero_array->proc~zero_array_4d proc~zero_array_2d zero_array_2D interface~zero_array->proc~zero_array_2d Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~zero_array~~CalledByGraph interface~zero_array zero_array proc~sw_solver_2stream sw_solver_2stream proc~sw_solver_2stream->interface~zero_array Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Module Procedures zero_array_1D zero_array_2D zero_array_3D zero_array_4D Module Procedures public subroutine zero_array_1D (ni, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni real(kind=wp), intent(out), dimension(ni) :: array public subroutine zero_array_2D (ni, nj, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni integer, intent(in) :: nj real(kind=wp), intent(out), dimension(ni, nj) :: array public subroutine zero_array_3D (ni, nj, nk, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni integer, intent(in) :: nj integer, intent(in) :: nk real(kind=wp), intent(out), dimension(ni, nj, nk) :: array public subroutine zero_array_4D (ni, nj, nk, nl, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni integer, intent(in) :: nj integer, intent(in) :: nk integer, intent(in) :: nl real(kind=wp), intent(out), dimension(ni, nj, nk, nl) :: array","tags":"","loc":"interface/zero_array.html"},{"title":"sum_broadband – RTE kernels","text":"public subroutine sum_broadband(ncol, nlev, ngpt, spectral_flux, broadband_flux) bind(C, name=\"0\") Spectral reduction over all points Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlev Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(ncol, nlev, ngpt) :: spectral_flux Spectrally-resolved flux real(kind=wp), intent(out), dimension(ncol, nlev) :: broadband_flux Sum of spectrally-resolved flux over ngpt Contents None","tags":"","loc":"proc/sum_broadband.html"},{"title":"net_broadband – RTE kernels","text":"public interface net_broadband Interface for computing net flux Contents Module Procedures net_broadband_full net_broadband_precalc Module Procedures private subroutine net_broadband_full(ncol, nlev, ngpt, spectral_flux_dn, spectral_flux_up, broadband_flux_net) bind(C, name=\"0\") Spectral reduction over all points for net flux Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlev Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(ncol, nlev, ngpt) :: spectral_flux_dn Spectrally-resolved flux up and down real(kind=wp), intent(in), dimension(ncol, nlev, ngpt) :: spectral_flux_up Spectrally-resolved flux up and down real(kind=wp), intent(out), dimension(ncol, nlev) :: broadband_flux_net Net (down minus up) summed over ngpt private subroutine net_broadband_precalc(ncol, nlev, flux_dn, flux_up, broadband_flux_net) bind(C, name=\"0\") Net flux when bradband flux up and down are already available Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlev Array sizes real(kind=wp), intent(in), dimension(ncol, nlev) :: flux_dn Broadband downward and upward fluxes real(kind=wp), intent(in), dimension(ncol, nlev) :: flux_up Broadband downward and upward fluxes real(kind=wp), intent(out), dimension(ncol, nlev) :: broadband_flux_net Net (down minus up)","tags":"","loc":"interface/net_broadband.html"},{"title":"mo_optical_props_kernels – RTE kernels","text":"Kernels for arrays of optical properties: - delta-scaling\n- adding two sets of properties\n- extracting subsets along the column dimension Uses iso_c_binding mo_rte_kind module~~mo_optical_props_kernels~~UsesGraph module~mo_optical_props_kernels mo_optical_props_kernels iso_c_binding iso_c_binding module~mo_optical_props_kernels->iso_c_binding mo_rte_kind mo_rte_kind module~mo_optical_props_kernels->mo_rte_kind Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Interfaces delta_scale_2str_kernel extract_subset Subroutines delta_scale_2str_f_k delta_scale_2str_k extract_subset_absorption_tau extract_subset_dim1_3d extract_subset_dim2_4d inc_1scalar_by_1scalar_bybnd inc_1scalar_by_2stream_bybnd inc_1scalar_by_nstream_bybnd inc_2stream_by_1scalar_bybnd inc_2stream_by_2stream_bybnd inc_2stream_by_nstream_bybnd inc_nstream_by_1scalar_bybnd inc_nstream_by_2stream_bybnd inc_nstream_by_nstream_bybnd increment_1scalar_by_1scalar increment_1scalar_by_2stream increment_1scalar_by_nstream increment_2stream_by_1scalar increment_2stream_by_2stream increment_2stream_by_nstream increment_nstream_by_1scalar increment_nstream_by_2stream increment_nstream_by_nstream Interfaces public interface delta_scale_2str_kernel Delta-scale two-stream optical properties public pure subroutine delta_scale_2str_f_k (ncol, nlay, ngpt, tau, ssa, g, f) bind(C, name=\"0\") Delta-scale two-stream optical properties given user-provided value of (forward scattering) Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: tau Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: ssa Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: g Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(in), dimension(ncol, nlay, ngpt) :: f User-provided forward-scattering fraction public pure subroutine delta_scale_2str_k (ncol, nlay, ngpt, tau, ssa, g) bind(C, name=\"0\") Delta-scale assuming forward-scatternig fraction is the square of the asymmetry parameter\n   i.e. Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: tau Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: ssa Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: g Optical depth, single-scattering albedo, asymmetry parameter public interface extract_subset Subsetting, meaning extracting some portion of the 3D domain public pure subroutine extract_subset_dim1_3d (ncol, nlay, ngpt, array_in, colS, colE, array_out) bind(C, name=\"0\") Extract a subset from the first dimension (normally columns) of a 3D field.\n  Applicable to most variables e.g. tau, ssa, g Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: array_in Array to subset integer, intent(in) :: colS Starting and ending index integer, intent(in) :: colE Starting and ending index real(kind=wp), intent(out), dimension(colE-colS+1, nlay,ngpt) :: array_out subset of the input array public pure subroutine extract_subset_dim2_4d (nmom, ncol, nlay, ngpt, array_in, colS, colE, array_out) bind(C, name=\"0\") Extract a subset from the second dimension (normally columns) of a 4D field.\n  Applicable to phase function moments, where the first dimension is the moment Arguments Type Intent Optional Attributes Name integer, intent(in) :: nmom Array sizes integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(nmom,ncol,nlay,ngpt) :: array_in Array to subset integer, intent(in) :: colS Starting and ending index integer, intent(in) :: colE Starting and ending index real(kind=wp), intent(out), dimension(nmom,colE-colS+1, nlay,ngpt) :: array_out subset of the input array public pure subroutine extract_subset_absorption_tau (ncol, nlay, ngpt, tau_in, ssa_in, colS, colE, tau_out) bind(C, name=\"0\") Extract the absorption optical thickness Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau_in Optical thickness, single scattering albedo real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa_in Optical thickness, single scattering albedo integer, intent(in) :: colS Starting and ending index integer, intent(in) :: colE Starting and ending index real(kind=wp), intent(out), dimension(colE-colS+1, nlay,ngpt) :: tau_out absorption optical thickness subset Subroutines public pure subroutine delta_scale_2str_f_k (ncol, nlay, ngpt, tau, ssa, g, f) bind(C, name=\"0\") Delta-scale two-stream optical properties given user-provided value of (forward scattering) Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: tau Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: ssa Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: g Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(in), dimension(ncol, nlay, ngpt) :: f User-provided forward-scattering fraction public pure subroutine delta_scale_2str_k (ncol, nlay, ngpt, tau, ssa, g) bind(C, name=\"0\") Delta-scale assuming forward-scatternig fraction is the square of the asymmetry parameter\n   i.e. Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: tau Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: ssa Optical depth, single-scattering albedo, asymmetry parameter real(kind=wp), intent(inout), dimension(ncol, nlay, ngpt) :: g Optical depth, single-scattering albedo, asymmetry parameter public pure subroutine extract_subset_absorption_tau (ncol, nlay, ngpt, tau_in, ssa_in, colS, colE, tau_out) bind(C, name=\"0\") Extract the absorption optical thickness Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau_in Optical thickness, single scattering albedo real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa_in Optical thickness, single scattering albedo integer, intent(in) :: colS Starting and ending index integer, intent(in) :: colE Starting and ending index real(kind=wp), intent(out), dimension(colE-colS+1, nlay,ngpt) :: tau_out absorption optical thickness subset public pure subroutine extract_subset_dim1_3d (ncol, nlay, ngpt, array_in, colS, colE, array_out) bind(C, name=\"0\") Extract a subset from the first dimension (normally columns) of a 3D field.\n  Applicable to most variables e.g. tau, ssa, g Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: array_in Array to subset integer, intent(in) :: colS Starting and ending index integer, intent(in) :: colE Starting and ending index real(kind=wp), intent(out), dimension(colE-colS+1, nlay,ngpt) :: array_out subset of the input array public pure subroutine extract_subset_dim2_4d (nmom, ncol, nlay, ngpt, array_in, colS, colE, array_out) bind(C, name=\"0\") Extract a subset from the second dimension (normally columns) of a 4D field.\n  Applicable to phase function moments, where the first dimension is the moment Arguments Type Intent Optional Attributes Name integer, intent(in) :: nmom Array sizes integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlay Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(nmom,ncol,nlay,ngpt) :: array_in Array to subset integer, intent(in) :: colS Starting and ending index integer, intent(in) :: colE Starting and ending index real(kind=wp), intent(out), dimension(nmom,colE-colS+1, nlay,ngpt) :: array_out subset of the input array public pure subroutine inc_1scalar_by_1scalar_bybnd (ncol, nlay, ngpt, tau1, tau2, nbnd, gpt_lims) bind(C, name=\"0\") increase one absorption optical depth defined on g-points by a second value defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band public pure subroutine inc_1scalar_by_2stream_bybnd (ncol, nlay, ngpt, tau1, tau2, ssa2, nbnd, gpt_lims) bind(C, name=\"0\") increase absorption optical depth defined on g-points  with extinction optical depth (2-stream form) defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: ssa2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band public pure subroutine inc_1scalar_by_nstream_bybnd (ncol, nlay, ngpt, tau1, tau2, ssa2, nbnd, gpt_lims) bind(C, name=\"0\") increase absorption optical depth defined on g-points  with extinction optical depth (n-stream form) defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: ssa2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band public pure subroutine inc_2stream_by_1scalar_bybnd (ncol, nlay, ngpt, tau1, ssa1, tau2, nbnd, gpt_lims) bind(C, name=\"0\") increment two-stream optical properties defined on g-points with absorption optical depth defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band public pure subroutine inc_2stream_by_2stream_bybnd (ncol, nlay, ngpt, tau1, ssa1, g1, tau2, ssa2, g2, nbnd, gpt_lims) bind(C, name=\"0\") increment 2-stream optical properties defined on g-points with another set defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: g1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: ssa2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: g2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band public pure subroutine inc_2stream_by_nstream_bybnd (ncol, nlay, ngpt, nmom2, tau1, ssa1, g1, tau2, ssa2, p2, nbnd, gpt_lims) bind(C, name=\"0\") increment 2-stream optical properties defined on g-points with n -stream properties set defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes integer, intent(in) :: nmom2 array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: g1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: ssa2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(nmom2, ncol,nlay,nbnd) :: p2 moments of the phase function to be added integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band public pure subroutine inc_nstream_by_1scalar_bybnd (ncol, nlay, ngpt, tau1, ssa1, tau2, nbnd, gpt_lims) bind(C, name=\"0\") increment n -stream optical properties defined on g-points with absorption optical depth defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified (defined on g-points) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band public pure subroutine inc_nstream_by_2stream_bybnd (ncol, nlay, ngpt, nmom1, tau1, ssa1, p1, tau2, ssa2, g2, nbnd, gpt_lims) bind(C, name=\"0\") increment n-stream optical properties defined on g-points with 2-stream properties set defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes integer, intent(in) :: nmom1 array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(nmom1, ncol,nlay,ngpt) :: p1 moments of the phase function be modified real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: ssa2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: g2 optical properties to be added to original (defined on bands) integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band public pure subroutine inc_nstream_by_nstream_bybnd (ncol, nlay, ngpt, nmom1, nmom2, tau1, ssa1, p1, tau2, ssa2, p2, nbnd, gpt_lims) bind(C, name=\"0\") increment n -stream optical properties defined on g-points with a second set defined on bands Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes integer, intent(in) :: nmom1 array sizes integer, intent(in) :: nmom2 array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified (defined on g-points) real(kind=wp), intent(inout), dimension(nmom1, ncol,nlay,ngpt) :: p1 moments of the phase function be modified real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: tau2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(ncol,nlay,nbnd) :: ssa2 optical properties to be added to original (defined on bands) real(kind=wp), intent(in), dimension(nmom2, ncol,nlay,nbnd) :: p2 moments of the phase function to be added integer, intent(in) :: nbnd array sizes integer, intent(in), dimension(2,nbnd) :: gpt_lims Starting and ending gpoint for each band public pure subroutine increment_1scalar_by_1scalar (ncol, nlay, ngpt, tau1, tau2) bind(C, name=\"0\") increase one absorption optical depth by a second value Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original public pure subroutine increment_1scalar_by_2stream (ncol, nlay, ngpt, tau1, tau2, ssa2) bind(C, name=\"0\") increase absorption optical depth with extinction optical depth (2-stream form) Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa2 optical properties to be added to original public pure subroutine increment_1scalar_by_nstream (ncol, nlay, ngpt, tau1, tau2, ssa2) bind(C, name=\"0\") increase absorption optical depth with extinction optical depth (n-stream form) Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa2 optical properties to be added to original public pure subroutine increment_2stream_by_1scalar (ncol, nlay, ngpt, tau1, ssa1, tau2) bind(C, name=\"0\") increment two-stream optical properties with absorption optical depth Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original public pure subroutine increment_2stream_by_2stream (ncol, nlay, ngpt, tau1, ssa1, g1, tau2, ssa2, g2) bind(C, name=\"0\") increment two-stream optical properties with a second set Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: g1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: g2 optical properties to be added to original public pure subroutine increment_2stream_by_nstream (ncol, nlay, ngpt, nmom2, tau1, ssa1, g1, tau2, ssa2, p2) bind(C, name=\"0\") increment two-stream optical properties with n -stream Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes integer, intent(in) :: nmom2 array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: g1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa2 optical properties to be added to original real(kind=wp), intent(in), dimension(nmom2, ncol,nlay,ngpt) :: p2 moments of the phase function to be added public pure subroutine increment_nstream_by_1scalar (ncol, nlay, ngpt, tau1, ssa1, tau2) bind(C, name=\"0\") increment n -stream optical properties with absorption optical depth Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original public pure subroutine increment_nstream_by_2stream (ncol, nlay, ngpt, nmom1, tau1, ssa1, p1, tau2, ssa2, g2) bind(C, name=\"0\") increment n -stream optical properties with two-stream values Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes integer, intent(in) :: nmom1 array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified real(kind=wp), intent(inout), dimension(nmom1, ncol,nlay,ngpt) :: p1 moments of the phase function be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: g2 optical properties to be added to original public pure subroutine increment_nstream_by_nstream (ncol, nlay, ngpt, nmom1, nmom2, tau1, ssa1, p1, tau2, ssa2, p2) bind(C, name=\"0\") increment one set of n -stream optical properties with another set Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol array sizes integer, intent(in) :: nlay array sizes integer, intent(in) :: ngpt array sizes integer, intent(in) :: nmom1 array sizes integer, intent(in) :: nmom2 array sizes real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: tau1 optical properties to be modified real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt) :: ssa1 optical properties to be modified real(kind=wp), intent(inout), dimension(nmom1, ncol,nlay,ngpt) :: p1 moments of the phase function be modified real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: tau2 optical properties to be added to original real(kind=wp), intent(in), dimension(ncol,nlay,ngpt) :: ssa2 optical properties to be added to original real(kind=wp), intent(in), dimension(nmom2, ncol,nlay,ngpt) :: p2 moments of the phase function to be added","tags":"","loc":"module/mo_optical_props_kernels.html"},{"title":"mo_rte_solver_kernels – RTE kernels","text":"Numeric calculations for radiative transfer solvers Emission/absorption (no-scattering) calculations solver for multi-angle Gaussian quadrature solver for a single angle, calling source function computation (linear-in-tau) transport Extinction-only calculation (direct solar beam) Two-stream calculations:\n    solvers for LW and SW with different boundary conditions and source functions source function calculation for LW, SW two-stream calculations for LW, SW (using different assumtions about phase function) transport (adding) Application of boundary conditions Uses iso_c_binding mo_rte_util_array mo_rte_kind module~~mo_rte_solver_kernels~~UsesGraph module~mo_rte_solver_kernels mo_rte_solver_kernels iso_c_binding iso_c_binding module~mo_rte_solver_kernels->iso_c_binding mo_rte_kind mo_rte_kind module~mo_rte_solver_kernels->mo_rte_kind module~mo_rte_util_array mo_rte_util_array module~mo_rte_solver_kernels->module~mo_rte_util_array module~mo_rte_util_array->mo_rte_kind Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Subroutines lw_solver_2stream lw_solver_noscat sw_solver_2stream sw_solver_noscat Subroutines public subroutine lw_solver_2stream (ncol, nlay, ngpt, top_at_1, tau, ssa, g, lay_source, lev_source_inc, lev_source_dec, sfc_emis, sfc_src, inc_flux, flux_up, flux_dn) bind(C, name=\"0\") Longwave two-stream calculation:\n  - combine RRTMGP-specific sources at levels\n  - compute layer reflectance, transmittance\n  - compute total source function at levels using linear-in-tau\n  - transport Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Number of columns, layers, g-points integer, intent(in) :: nlay Number of columns, layers, g-points integer, intent(in) :: ngpt Number of columns, layers, g-points logical(kind=wl), intent(in) :: top_at_1 ilay = 1 is the top of the atmosphere? real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: tau Optical thickness, single-scattering albedo, asymmetry parameter [] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: ssa Optical thickness, single-scattering albedo, asymmetry parameter [] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: g Optical thickness, single-scattering albedo, asymmetry parameter [] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: lay_source Planck source at layer average temperature [W/m2] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: lev_source_inc Planck source at layer edge for radiation in increasing ilay direction [W/m2] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: lev_source_dec Planck source at layer edge for radiation in decreasing ilay direction [W/m2] real(kind=wp), intent(in), dimension(ncol,       ngpt) :: sfc_emis Surface emissivity      [] real(kind=wp), intent(in), dimension(ncol,       ngpt) :: sfc_src Surface source function [W/m2] real(kind=wp), intent(in), dimension(ncol,       ngpt) :: inc_flux Incident diffuse flux, probably 0 [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt) :: flux_up Fluxes [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt) :: flux_dn Fluxes [W/m2] public subroutine lw_solver_noscat (ncol, nlay, ngpt, top_at_1, nmus, Ds, weights, tau, lay_source, lev_source_inc, lev_source_dec, sfc_emis, sfc_src, inc_flux, flux_up, flux_dn, do_broadband, broadband_up, broadband_dn, do_Jacobians, sfc_srcJac, flux_upJac, do_rescaling, ssa, g) bind(C, name=\"0\") LW transport, no scattering, multi-angle quadrature\n  Users provide a set of weights and quadrature angles\n  Routine sums over single-angle solutions for each sets of angles/weights Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Number of columns, layers, g-points integer, intent(in) :: nlay Number of columns, layers, g-points integer, intent(in) :: ngpt Number of columns, layers, g-points logical(kind=wl), intent(in) :: top_at_1 ilay = 1 is the top of the atmosphere? integer, intent(in) :: nmus number of quadrature angles real(kind=wp), intent(in), dimension (ncol,      ngpt, nmus) :: Ds quadrature secants real(kind=wp), intent(in), dimension(nmus) :: weights quadrature weights real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: tau Absorption optical thickness [] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: lay_source Planck source at layer average temperature [W/m2] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: lev_source_inc Planck source at layer edge for radiation in increasing ilay direction [W/m2] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: lev_source_dec Planck source at layer edge for radiation in decreasing ilay direction [W/m2] real(kind=wp), intent(in), dimension(ncol,       ngpt) :: sfc_emis Surface emissivity      [] real(kind=wp), intent(in), dimension(ncol,       ngpt) :: sfc_src Surface source function [W/m2] real(kind=wp), intent(in), dimension(ncol,       ngpt) :: inc_flux Incident diffuse flux, probably 0 [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt), target :: flux_up Fluxes [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt), target :: flux_dn Fluxes [W/m2] logical(kind=wl), intent(in) :: do_broadband real(kind=wp), intent(out), dimension(ncol,nlay+1     ), target :: broadband_up Spectrally-integrated fluxes [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1     ), target :: broadband_dn Spectrally-integrated fluxes [W/m2] logical(kind=wl), intent(in) :: do_Jacobians compute Jacobian with respect to surface temeprature? real(kind=wp), intent(in), dimension(ncol       ,ngpt) :: sfc_srcJac surface temperature Jacobian of surface source function [W/m2/K] real(kind=wp), intent(out), dimension(ncol,nlay+1     ), target :: flux_upJac surface temperature Jacobian of Radiances [W/m2-str / K] logical(kind=wl), intent(in) :: do_rescaling Approximate treatment of scattering (10.1175/JAS-D-18-0014.1) real(kind=wp), intent(in), dimension(ncol,nlay  ,ngpt) :: ssa single-scattering albedo, asymmetry parameter real(kind=wp), intent(in), dimension(ncol,nlay  ,ngpt) :: g single-scattering albedo, asymmetry parameter public subroutine sw_solver_2stream (ncol, nlay, ngpt, top_at_1, tau, ssa, g, mu0, sfc_alb_dir, sfc_alb_dif, inc_flux_dir, flux_up, flux_dn, flux_dir, has_dif_bc, inc_flux_dif, do_broadband, broadband_up, broadband_dn, broadband_dir) bind(C, name=\"0\") Shortwave two-stream calculation:\n  compute layer reflectance, transmittance\n  compute solar source function for diffuse radiation\n  transport Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Number of columns, layers, g-points integer, intent(in) :: nlay Number of columns, layers, g-points integer, intent(in) :: ngpt Number of columns, layers, g-points logical(kind=wl), intent(in) :: top_at_1 ilay = 1 is the top of the atmosphere? real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: tau Optical thickness, single-scattering albedo, asymmetry parameter [] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: ssa Optical thickness, single-scattering albedo, asymmetry parameter [] real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: g Optical thickness, single-scattering albedo, asymmetry parameter [] real(kind=wp), intent(in), dimension(ncol,nlay       ) :: mu0 cosine of solar zenith angle real(kind=wp), intent(in), dimension(ncol,       ngpt) :: sfc_alb_dir Spectral surface albedo for direct and diffuse radiation real(kind=wp), intent(in), dimension(ncol,       ngpt) :: sfc_alb_dif Spectral surface albedo for direct and diffuse radiation real(kind=wp), intent(in), dimension(ncol,       ngpt) :: inc_flux_dir Direct beam incident flux real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt), target :: flux_up Fluxes [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt), target :: flux_dn Fluxes [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt), target :: flux_dir Fluxes [W/m2] logical(kind=wl), intent(in) :: has_dif_bc Is a boundary condition for diffuse flux supplied? real(kind=wp), intent(in), dimension(ncol,       ngpt) :: inc_flux_dif Boundary condition for diffuse flux [W/m2] logical(kind=wl), intent(in) :: do_broadband Provide broadband-integrated, not spectrally-resolved, fluxes? real(kind=wp), intent(out), dimension(ncol,nlay+1     ) :: broadband_up Broadband integrated fluxes real(kind=wp), intent(out), dimension(ncol,nlay+1     ) :: broadband_dn Broadband integrated fluxes real(kind=wp), intent(out), dimension(ncol,nlay+1     ) :: broadband_dir Broadband integrated fluxes public pure subroutine sw_solver_noscat (ncol, nlay, ngpt, top_at_1, tau, mu0, inc_flux_dir, flux_dir) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Number of columns, layers, g-points integer, intent(in) :: nlay Number of columns, layers, g-points integer, intent(in) :: ngpt Number of columns, layers, g-points logical(kind=wl), intent(in) :: top_at_1 ilay = 1 is the top of the atmosphere? real(kind=wp), intent(in), dimension(ncol,nlay,  ngpt) :: tau Absorption optical thickness [] real(kind=wp), intent(in), dimension(ncol,nlay       ) :: mu0 cosine of solar zenith angle real(kind=wp), intent(in), dimension(ncol,       ngpt) :: inc_flux_dir Direct beam incident flux [W/m2] real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt) :: flux_dir Direct-beam flux, spectral [W/m2]","tags":"","loc":"module/mo_rte_solver_kernels.html"},{"title":"mo_rte_util_array – RTE kernels","text":"Uses mo_rte_kind module~~mo_rte_util_array~~UsesGraph module~mo_rte_util_array mo_rte_util_array mo_rte_kind mo_rte_kind module~mo_rte_util_array->mo_rte_kind Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Used by module~~mo_rte_util_array~~UsedByGraph module~mo_rte_util_array mo_rte_util_array module~mo_rte_solver_kernels mo_rte_solver_kernels module~mo_rte_solver_kernels->module~mo_rte_util_array Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Interfaces zero_array Subroutines zero_array_1D zero_array_2D zero_array_3D zero_array_4D Interfaces public interface zero_array Efficiently set arrays to zero public subroutine zero_array_1D (ni, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni real(kind=wp), intent(out), dimension(ni) :: array public subroutine zero_array_2D (ni, nj, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni integer, intent(in) :: nj real(kind=wp), intent(out), dimension(ni, nj) :: array public subroutine zero_array_3D (ni, nj, nk, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni integer, intent(in) :: nj integer, intent(in) :: nk real(kind=wp), intent(out), dimension(ni, nj, nk) :: array public subroutine zero_array_4D (ni, nj, nk, nl, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni integer, intent(in) :: nj integer, intent(in) :: nk integer, intent(in) :: nl real(kind=wp), intent(out), dimension(ni, nj, nk, nl) :: array Subroutines public subroutine zero_array_1D (ni, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni real(kind=wp), intent(out), dimension(ni) :: array public subroutine zero_array_2D (ni, nj, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni integer, intent(in) :: nj real(kind=wp), intent(out), dimension(ni, nj) :: array public subroutine zero_array_3D (ni, nj, nk, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni integer, intent(in) :: nj integer, intent(in) :: nk real(kind=wp), intent(out), dimension(ni, nj, nk) :: array public subroutine zero_array_4D (ni, nj, nk, nl, array) bind(C, name=\"0\") Arguments Type Intent Optional Attributes Name integer, intent(in) :: ni integer, intent(in) :: nj integer, intent(in) :: nk integer, intent(in) :: nl real(kind=wp), intent(out), dimension(ni, nj, nk, nl) :: array","tags":"","loc":"module/mo_rte_util_array.html"},{"title":"mo_fluxes_broadband_kernels – RTE kernels","text":"Kernels for computing broadband fluxes Uses iso_c_binding mo_rte_kind module~~mo_fluxes_broadband_kernels~~UsesGraph module~mo_fluxes_broadband_kernels mo_fluxes_broadband_kernels iso_c_binding iso_c_binding module~mo_fluxes_broadband_kernels->iso_c_binding mo_rte_kind mo_rte_kind module~mo_fluxes_broadband_kernels->mo_rte_kind Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Interfaces net_broadband Subroutines sum_broadband Interfaces public interface net_broadband Interface for computing net flux private subroutine net_broadband_full(ncol, nlev, ngpt, spectral_flux_dn, spectral_flux_up, broadband_flux_net) bind(C, name=\"0\") Spectral reduction over all points for net flux Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlev Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(ncol, nlev, ngpt) :: spectral_flux_dn Spectrally-resolved flux up and down real(kind=wp), intent(in), dimension(ncol, nlev, ngpt) :: spectral_flux_up Spectrally-resolved flux up and down real(kind=wp), intent(out), dimension(ncol, nlev) :: broadband_flux_net Net (down minus up) summed over ngpt private subroutine net_broadband_precalc(ncol, nlev, flux_dn, flux_up, broadband_flux_net) bind(C, name=\"0\") Net flux when bradband flux up and down are already available Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlev Array sizes real(kind=wp), intent(in), dimension(ncol, nlev) :: flux_dn Broadband downward and upward fluxes real(kind=wp), intent(in), dimension(ncol, nlev) :: flux_up Broadband downward and upward fluxes real(kind=wp), intent(out), dimension(ncol, nlev) :: broadband_flux_net Net (down minus up) Subroutines public subroutine sum_broadband (ncol, nlev, ngpt, spectral_flux, broadband_flux) bind(C, name=\"0\") Spectral reduction over all points Arguments Type Intent Optional Attributes Name integer, intent(in) :: ncol Array sizes integer, intent(in) :: nlev Array sizes integer, intent(in) :: ngpt Array sizes real(kind=wp), intent(in), dimension(ncol, nlev, ngpt) :: spectral_flux Spectrally-resolved flux real(kind=wp), intent(out), dimension(ncol, nlev) :: broadband_flux Sum of spectrally-resolved flux over ngpt","tags":"","loc":"module/mo_fluxes_broadband_kernels.html"},{"title":"mo_optical_props_kernels.F90 – RTE kernels","text":"Contents Modules mo_optical_props_kernels Source Code mo_optical_props_kernels.F90 Source Code ! This code is part of Radiative Transfer for Energetics (RTE) ! ! Contacts: Robert Pincus and Eli Mlawer ! email:  rrtmgp@aer.com ! ! Copyright 2015-,  Atmospheric and Environmental Research, ! Regents of the University of Colorado, Trustees of Columbia University.  All right reserved. ! ! Use and duplication is permitted under the terms of the !    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause ! ------------------------------------------------------------------------------------------------- ! !> ## Kernels for arrays of optical properties: !>     - delta-scaling !>     - adding two sets of properties !>     - extracting subsets along the column dimension ! ! ------------------------------------------------------------------------------------------------- module mo_optical_props_kernels use , intrinsic :: iso_c_binding use mo_rte_kind , only : wp , wl implicit none public !> Delta-scale two-stream optical properties interface delta_scale_2str_kernel module procedure delta_scale_2str_f_k , delta_scale_2str_k end interface !> Subsetting, meaning extracting some portion of the 3D domain interface extract_subset module procedure extract_subset_dim1_3d , extract_subset_dim2_4d module procedure extract_subset_absorption_tau end interface extract_subset real ( wp ), parameter , private :: eps = 3.0_wp * tiny ( 1.0_wp ) contains ! ------------------------------------------------------------------------------------------------- ! ! Delta-scaling is provided only for two-stream properties at present ! ! ------------------------------------------------------------------------------------------------- !> Delta-scale two-stream optical properties given user-provided value of f (forward scattering) ! pure subroutine delta_scale_2str_f_k ( ncol , nlay , ngpt , tau , ssa , g , f ) & bind ( C , name = \"rte_delta_scale_2str_f_k\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! Array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau , ssa , g !! Optical depth, single-scattering albedo, asymmetry parameter real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: f !! User-provided forward-scattering fraction real ( wp ) :: wf integer :: icol , ilay , igpt do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol wf = ssa ( icol , ilay , igpt ) * f ( icol , ilay , igpt ) tau ( icol , ilay , igpt ) = ( 1._wp - wf ) * tau ( icol , ilay , igpt ) ssa ( icol , ilay , igpt ) = ( ssa ( icol , ilay , igpt ) - wf ) / max ( eps ,( 1.0_wp - wf )) g ( icol , ilay , igpt ) = ( g ( icol , ilay , igpt ) - f ( icol , ilay , igpt )) / & max ( eps ,( 1._wp - f ( icol , ilay , igpt ))) end do end do end do end subroutine delta_scale_2str_f_k ! --------------------------------- !> Delta-scale assuming forward-scatternig fraction is the square of the asymmetry parameter !>    i.e. f = g&#94;2 ! pure subroutine delta_scale_2str_k ( ncol , nlay , ngpt , tau , ssa , g ) & bind ( C , name = \"rte_delta_scale_2str_k\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! Array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau , ssa , g !! Optical depth, single-scattering albedo, asymmetry parameter real ( wp ) :: f , wf integer :: icol , ilay , igpt do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol f = g ( icol , ilay , igpt ) * g ( icol , ilay , igpt ) wf = ssa ( icol , ilay , igpt ) * f tau ( icol , ilay , igpt ) = ( 1._wp - wf ) * tau ( icol , ilay , igpt ) ssa ( icol , ilay , igpt ) = ( ssa ( icol , ilay , igpt ) - wf ) / max ( eps ,( 1.0_wp - wf )) g ( icol , ilay , igpt ) = ( g ( icol , ilay , igpt ) - f ) / max ( eps ,( 1.0_wp - f )) end do end do end do end subroutine delta_scale_2str_k ! ------------------------------------------------------------------------------------------------- ! ! Addition of optical properties: the first set are incremented by the second set. ! !   There are three possible representations of optical properties (scalar = optical depth only; !   two-stream = tau, single-scattering albedo, and asymmetry factor g, and !   n-stream = tau, ssa, and phase function moments p.) Thus we need nine routines, three for !   each choice of representation on the left hand side times three representations of the !   optical properties to be added. ! !   There are two sets of these nine routines. In the first the two sets of optical !   properties are defined at the same spectral resolution. There is also a set of routines !   to add properties defined at lower spectral resolution to a set defined at higher spectral !   resolution (adding properties defined by band to those defined by g-point) ! ! ------------------------------------------------------------------------------------------------- !> increase one absorption optical depth by a second value pure subroutine increment_1scalar_by_1scalar ( ncol , nlay , ngpt , & tau1 , & tau2 ) bind ( C , name = \"rte_increment_1scalar_by_1scalar\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 !! optical properties to be modified real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau2 !! optical properties to be added to original integer :: icol , ilay , igpt do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol tau1 ( icol , ilay , igpt ) = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , igpt ) end do end do end do end subroutine increment_1scalar_by_1scalar ! --------------------------------- !> increase absorption optical depth with extinction optical depth (2-stream form) pure subroutine increment_1scalar_by_2stream ( ncol , nlay , ngpt , & tau1 , & tau2 , ssa2 ) bind ( C , name = \"rte_increment_1scalar_by_2stream\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 !! optical properties to be modified real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau2 , ssa2 !! optical properties to be added to original integer :: icol , ilay , igpt do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol tau1 ( icol , ilay , igpt ) = tau1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , igpt ) * ( 1._wp - ssa2 ( icol , ilay , igpt )) end do end do end do end subroutine increment_1scalar_by_2stream ! --------------------------------- !> increase absorption optical depth with extinction optical depth (n-stream form) pure subroutine increment_1scalar_by_nstream ( ncol , nlay , ngpt , & tau1 , & tau2 , ssa2 ) bind ( C , name = \"rte_increment_1scalar_by_nstream\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 !! optical properties to be modified real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau2 , ssa2 !! optical properties to be added to original integer :: icol , ilay , igpt do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol tau1 ( icol , ilay , igpt ) = tau1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , igpt ) * ( 1._wp - ssa2 ( icol , ilay , igpt )) end do end do end do end subroutine increment_1scalar_by_nstream ! --------------------------------- ! --------------------------------- !> increment two-stream optical properties \\tau, \\omega_0, g with absorption optical depth pure subroutine increment_2stream_by_1scalar ( ncol , nlay , ngpt , & tau1 , ssa1 , & tau2 ) bind ( C , name = \"rte_increment_2stream_by_1scalar\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 , ssa1 !! optical properties to be modified real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau2 !! optical properties to be added to original integer :: icol , ilay , igpt real ( wp ) :: tau12 do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol tau12 = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , igpt ) ssa1 ( icol , ilay , igpt ) = tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) / max ( eps , tau12 ) tau1 ( icol , ilay , igpt ) = tau12 ! g is unchanged end do end do end do end subroutine increment_2stream_by_1scalar ! --------------------------------- !> increment two-stream optical properties \\tau, \\omega_0, g with a second set pure subroutine increment_2stream_by_2stream ( ncol , nlay , ngpt , & tau1 , ssa1 , g1 , & tau2 , ssa2 , g2 ) bind ( C , name = \"rte_increment_2stream_by_2stream\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 , ssa1 , g1 !! optical properties to be modified real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau2 , ssa2 , g2 !! optical properties to be added to original integer :: icol , ilay , igpt real ( wp ) :: tau12 , tauscat12 do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol ! t=tau1 + tau2 tau12 = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , igpt ) ! w=(tau1*ssa1 + tau2*ssa2) / t tauscat12 = tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , igpt ) * ssa2 ( icol , ilay , igpt ) g1 ( icol , ilay , igpt ) = & ( tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) * g1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , igpt ) * ssa2 ( icol , ilay , igpt ) * g2 ( icol , ilay , igpt )) & / max ( eps , tauscat12 ) ssa1 ( icol , ilay , igpt ) = tauscat12 / max ( eps , tau12 ) tau1 ( icol , ilay , igpt ) = tau12 end do end do end do end subroutine increment_2stream_by_2stream ! --------------------------------- !> increment two-stream optical properties \\tau, \\omega_0, g with _n_-stream pure subroutine increment_2stream_by_nstream ( ncol , nlay , ngpt , nmom2 , & tau1 , ssa1 , g1 , & tau2 , ssa2 , p2 ) bind ( C , name = \"rte_increment_2stream_by_nstream\" ) integer , intent ( in ) :: ncol , nlay , ngpt , nmom2 !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 , ssa1 , g1 !! optical properties to be modified real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau2 , ssa2 !! optical properties to be added to original real ( wp ), dimension ( nmom2 , & ncol , nlay , ngpt ), intent ( in ) :: p2 !! moments of the phase function to be added integer :: icol , ilay , igpt real ( wp ) :: tau12 , tauscat12 do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol ! t=tau1 + tau2 tau12 = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , igpt ) ! w=(tau1*ssa1 + tau2*ssa2) / t tauscat12 = & tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , igpt ) * ssa2 ( icol , ilay , igpt ) g1 ( icol , ilay , igpt ) = & ( tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) * g1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , igpt ) * ssa2 ( icol , ilay , igpt ) * p2 ( 1 , icol , ilay , igpt )) / max ( eps , tauscat12 ) ssa1 ( icol , ilay , igpt ) = tauscat12 / max ( eps , tau12 ) tau1 ( icol , ilay , igpt ) = tau12 end do end do end do end subroutine increment_2stream_by_nstream ! --------------------------------- ! --------------------------------- !> increment _n_-stream optical properties \\tau, \\omega_0, p with absorption optical depth pure subroutine increment_nstream_by_1scalar ( ncol , nlay , ngpt , & tau1 , ssa1 , & tau2 ) bind ( C , name = \"rte_increment_nstream_by_1scalar\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 , ssa1 !! optical properties to be modified real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau2 !! optical properties to be added to original integer :: icol , ilay , igpt real ( wp ) :: tau12 do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol tau12 = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , igpt ) ssa1 ( icol , ilay , igpt ) = tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) / max ( eps , tau12 ) tau1 ( icol , ilay , igpt ) = tau12 ! p is unchanged end do end do end do end subroutine increment_nstream_by_1scalar ! --------------------------------- !> increment _n_-stream optical properties \\tau, \\omega_0, p with two-stream values pure subroutine increment_nstream_by_2stream ( ncol , nlay , ngpt , nmom1 , & tau1 , ssa1 , p1 , & tau2 , ssa2 , g2 ) bind ( C , name = \"rte_increment_nstream_by_2stream\" ) integer , intent ( in ) :: ncol , nlay , ngpt , nmom1 !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 , ssa1 !! optical properties to be modified real ( wp ), dimension ( nmom1 , & ncol , nlay , ngpt ), intent ( inout ) :: p1 !! moments of the phase function be modified real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau2 , ssa2 , g2 !! optical properties to be added to original integer :: icol , ilay , igpt real ( wp ) :: tau12 , tauscat12 real ( wp ), dimension ( nmom1 ) :: temp_moms ! TK integer :: imom !TK do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol tau12 = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , igpt ) tauscat12 = & tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , igpt ) * ssa2 ( icol , ilay , igpt ) ! ! Here assume Henyey-Greenstein ! temp_moms ( 1 ) = g2 ( icol , ilay , igpt ) do imom = 2 , nmom1 temp_moms ( imom ) = temp_moms ( imom - 1 ) * g2 ( icol , ilay , igpt ) end do p1 ( 1 : nmom1 , icol , ilay , igpt ) = & ( tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) * p1 ( 1 : nmom1 , icol , ilay , igpt ) + & tau2 ( icol , ilay , igpt ) * ssa2 ( icol , ilay , igpt ) * temp_moms ( 1 : nmom1 ) ) / max ( eps , tauscat12 ) ssa1 ( icol , ilay , igpt ) = tauscat12 / max ( eps , tau12 ) tau1 ( icol , ilay , igpt ) = tau12 end do end do end do end subroutine increment_nstream_by_2stream ! --------------------------------- !> increment one set of _n_-stream optical properties with another set pure subroutine increment_nstream_by_nstream ( ncol , nlay , ngpt , nmom1 , nmom2 , & tau1 , ssa1 , p1 , & tau2 , ssa2 , p2 ) bind ( C , name = \"rte_increment_nstream_by_nstream\" ) integer , intent ( in ) :: ncol , nlay , ngpt , nmom1 , nmom2 !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 , ssa1 !! optical properties to be modified real ( wp ), dimension ( nmom1 , & ncol , nlay , ngpt ), intent ( inout ) :: p1 !! moments of the phase function be modified real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau2 , ssa2 !! optical properties to be added to original real ( wp ), dimension ( nmom2 , & ncol , nlay , ngpt ), intent ( in ) :: p2 !! moments of the phase function to be added integer :: icol , ilay , igpt , mom_lim real ( wp ) :: tau12 , tauscat12 mom_lim = min ( nmom1 , nmom2 ) do igpt = 1 , ngpt do ilay = 1 , nlay do icol = 1 , ncol tau12 = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , igpt ) tauscat12 = & tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , igpt ) * ssa2 ( icol , ilay , igpt ) ! ! If op2 has more moments than op1 these are ignored; !   if it has fewer moments the higher orders are assumed to be 0 ! p1 ( 1 : mom_lim , icol , ilay , igpt ) = & ( tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) * p1 ( 1 : mom_lim , icol , ilay , igpt ) + & tau2 ( icol , ilay , igpt ) * ssa2 ( icol , ilay , igpt ) * p2 ( 1 : mom_lim , icol , ilay , igpt )) / max ( eps , tauscat12 ) ssa1 ( icol , ilay , igpt ) = tauscat12 / max ( eps , tau12 ) tau1 ( icol , ilay , igpt ) = tau12 end do end do end do end subroutine increment_nstream_by_nstream ! ------------------------------------------------------------------------------------------------- ! ! Incrementing when the second set of optical properties is defined at lower spectral resolution !   (e.g. by band instead of by gpoint) ! ! ------------------------------------------------------------------------------------------------- !> increase one absorption optical depth defined on g-points by a second value defined on bands pure subroutine inc_1scalar_by_1scalar_bybnd ( ncol , nlay , ngpt , & tau1 , & tau2 , & nbnd , gpt_lims ) bind ( C , name = \"rte_inc_1scalar_by_1scalar_bybnd\" ) integer , intent ( in ) :: ncol , nlay , ngpt , nbnd !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 !! optical properties to be modified (defined on g-points) real ( wp ), dimension ( ncol , nlay , nbnd ), intent ( in ) :: tau2 !! optical properties to be added to original (defined on bands) integer , dimension ( 2 , nbnd ), intent ( in ) :: gpt_lims !! Starting and ending gpoint for each band integer :: ibnd , igpt do ibnd = 1 , nbnd do igpt = gpt_lims ( 1 , ibnd ), gpt_lims ( 2 , ibnd ) tau1 (:,:, igpt ) = tau1 (:,:, igpt ) + tau2 (:,:, ibnd ) end do end do end subroutine inc_1scalar_by_1scalar_bybnd ! --------------------------------- !> increase absorption optical depth defined on g-points  with extinction optical depth (2-stream form) defined on bands pure subroutine inc_1scalar_by_2stream_bybnd ( ncol , nlay , ngpt , & tau1 , & tau2 , ssa2 , & nbnd , gpt_lims ) bind ( C , name = \"rte_inc_1scalar_by_2stream_bybnd\" ) integer , intent ( in ) :: ncol , nlay , ngpt , nbnd !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 !! optical properties to be modified (defined on g-points) real ( wp ), dimension ( ncol , nlay , nbnd ), intent ( in ) :: tau2 , ssa2 !! optical properties to be added to original (defined on bands) integer , dimension ( 2 , nbnd ), intent ( in ) :: gpt_lims !! Starting and ending gpoint for each band integer :: ibnd , igpt do ibnd = 1 , nbnd do igpt = gpt_lims ( 1 , ibnd ), gpt_lims ( 2 , ibnd ) tau1 (:,:, igpt ) = tau1 (:,:, igpt ) + tau2 (:,:, ibnd ) * ( 1._wp - ssa2 (:,:, ibnd )) end do end do end subroutine inc_1scalar_by_2stream_bybnd ! --------------------------------- !> increase absorption optical depth defined on g-points  with extinction optical depth (n-stream form) defined on bands pure subroutine inc_1scalar_by_nstream_bybnd ( ncol , nlay , ngpt , & tau1 , & tau2 , ssa2 , & nbnd , gpt_lims ) bind ( C , name = \"rte_inc_1scalar_by_nstream_bybnd\" ) integer , intent ( in ) :: ncol , nlay , ngpt , nbnd !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 !! optical properties to be modified (defined on g-points) real ( wp ), dimension ( ncol , nlay , nbnd ), intent ( in ) :: tau2 , ssa2 !! optical properties to be added to original (defined on bands) integer , dimension ( 2 , nbnd ), intent ( in ) :: gpt_lims !! Starting and ending gpoint for each band integer :: ibnd , igpt do ibnd = 1 , nbnd do igpt = gpt_lims ( 1 , ibnd ), gpt_lims ( 2 , ibnd ) tau1 (:,:, igpt ) = tau1 (:,:, igpt ) + tau2 (:,:, ibnd ) * ( 1._wp - ssa2 (:,:, ibnd )) end do end do end subroutine inc_1scalar_by_nstream_bybnd ! --------------------------------- !> increment two-stream optical properties \\tau, \\omega_0, g defined on g-points with absorption optical depth defined on bands pure subroutine inc_2stream_by_1scalar_bybnd ( ncol , nlay , ngpt , & tau1 , ssa1 , & tau2 , & nbnd , gpt_lims ) bind ( C , name = \"rte_inc_2stream_by_1scalar_bybnd\" ) integer , intent ( in ) :: ncol , nlay , ngpt , nbnd !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 , ssa1 !! optical properties to be modified (defined on g-points) real ( wp ), dimension ( ncol , nlay , nbnd ), intent ( in ) :: tau2 !! optical properties to be added to original (defined on bands) integer , dimension ( 2 , nbnd ), intent ( in ) :: gpt_lims !! Starting and ending gpoint for each band integer :: icol , ilay , igpt , ibnd real ( wp ) :: tau12 do ibnd = 1 , nbnd do igpt = gpt_lims ( 1 , ibnd ), gpt_lims ( 2 , ibnd ) do ilay = 1 , nlay do icol = 1 , ncol tau12 = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , ibnd ) ssa1 ( icol , ilay , igpt ) = tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) / max ( eps , tau12 ) tau1 ( icol , ilay , igpt ) = tau12 ! g is unchanged end do end do end do end do end subroutine inc_2stream_by_1scalar_bybnd ! --------------------------------- !> increment 2-stream optical properties defined on g-points with another set defined on bands pure subroutine inc_2stream_by_2stream_bybnd ( ncol , nlay , ngpt , & tau1 , ssa1 , g1 , & tau2 , ssa2 , g2 , & nbnd , gpt_lims ) bind ( C , name = \"rte_inc_2stream_by_2stream_bybnd\" ) integer , intent ( in ) :: ncol , nlay , ngpt , nbnd !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 , ssa1 , g1 !! optical properties to be modified (defined on g-points) real ( wp ), dimension ( ncol , nlay , nbnd ), intent ( in ) :: tau2 , ssa2 , g2 !! optical properties to be added to original (defined on bands) integer , dimension ( 2 , nbnd ), intent ( in ) :: gpt_lims !! Starting and ending gpoint for each band integer :: icol , ilay , igpt , ibnd real ( wp ) :: tau12 , tauscat12 do ibnd = 1 , nbnd do igpt = gpt_lims ( 1 , ibnd ), gpt_lims ( 2 , ibnd ) do ilay = 1 , nlay do icol = 1 , ncol ! t=tau1 + tau2 tau12 = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , ibnd ) ! w=(tau1*ssa1 + tau2*ssa2) / t tauscat12 = & tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , ibnd ) * ssa2 ( icol , ilay , ibnd ) g1 ( icol , ilay , igpt ) = & ( tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) * g1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , ibnd ) * ssa2 ( icol , ilay , ibnd ) * g2 ( icol , ilay , ibnd )) / max ( eps , tauscat12 ) ssa1 ( icol , ilay , igpt ) = tauscat12 / max ( eps , tau12 ) tau1 ( icol , ilay , igpt ) = tau12 end do end do end do end do end subroutine inc_2stream_by_2stream_bybnd ! --------------------------------- !> increment 2-stream optical properties defined on g-points with _n_-stream properties set defined on bands pure subroutine inc_2stream_by_nstream_bybnd ( ncol , nlay , ngpt , nmom2 , & tau1 , ssa1 , g1 , & tau2 , ssa2 , p2 , & nbnd , gpt_lims ) bind ( C , name = \"rte_inc_2stream_by_nstream_bybnd\" ) integer , intent ( in ) :: ncol , nlay , ngpt , nmom2 , nbnd !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 , ssa1 , g1 !! optical properties to be modified (defined on g-points) real ( wp ), dimension ( ncol , nlay , nbnd ), intent ( in ) :: tau2 , ssa2 !! optical properties to be added to original (defined on bands) real ( wp ), dimension ( nmom2 , & ncol , nlay , nbnd ), intent ( in ) :: p2 !! moments of the phase function to be added integer , dimension ( 2 , nbnd ), intent ( in ) :: gpt_lims !! Starting and ending gpoint for each band integer :: icol , ilay , igpt , ibnd real ( wp ) :: tau12 , tauscat12 do ibnd = 1 , nbnd do igpt = gpt_lims ( 1 , ibnd ), gpt_lims ( 2 , ibnd ) do ilay = 1 , nlay do icol = 1 , ncol ! t=tau1 + tau2 tau12 = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , ibnd ) ! w=(tau1*ssa1 + tau2*ssa2) / t tauscat12 = & tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , ibnd ) * ssa2 ( icol , ilay , ibnd ) g1 ( icol , ilay , igpt ) = & ( tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) * g1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , ibnd ) * ssa2 ( icol , ilay , ibnd ) * p2 ( 1 , icol , ilay , ibnd )) / max ( eps , tauscat12 ) ssa1 ( icol , ilay , igpt ) = tauscat12 / max ( eps , tau12 ) tau1 ( icol , ilay , igpt ) = tau12 end do end do end do end do end subroutine inc_2stream_by_nstream_bybnd ! --------------------------------- ! --------------------------------- !> increment _n_-stream optical properties defined on g-points with absorption optical depth defined on bands pure subroutine inc_nstream_by_1scalar_bybnd ( ncol , nlay , ngpt , & tau1 , ssa1 , & tau2 , & nbnd , gpt_lims ) bind ( C , name = \"rte_inc_nstream_by_1scalar_bybnd\" ) integer , intent ( in ) :: ncol , nlay , ngpt , nbnd !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 , ssa1 !! optical properties to be modified (defined on g-points) real ( wp ), dimension ( ncol , nlay , nbnd ), intent ( in ) :: tau2 !! optical properties to be added to original (defined on bands) integer , dimension ( 2 , nbnd ), intent ( in ) :: gpt_lims !! Starting and ending gpoint for each band integer :: icol , ilay , igpt , ibnd real ( wp ) :: tau12 do ibnd = 1 , nbnd do igpt = gpt_lims ( 1 , ibnd ), gpt_lims ( 2 , ibnd ) do ilay = 1 , nlay do icol = 1 , ncol tau12 = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , ibnd ) ssa1 ( icol , ilay , igpt ) = tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) / max ( eps , tau12 ) tau1 ( icol , ilay , igpt ) = tau12 ! p is unchanged end do end do end do end do end subroutine inc_nstream_by_1scalar_bybnd ! --------------------------------- !> increment n-stream optical properties defined on g-points with 2-stream properties set defined on bands pure subroutine inc_nstream_by_2stream_bybnd ( ncol , nlay , ngpt , nmom1 , & tau1 , ssa1 , p1 , & tau2 , ssa2 , g2 , & nbnd , gpt_lims ) bind ( C , name = \"rte_inc_nstream_by_2stream_bybnd\" ) integer , intent ( in ) :: ncol , nlay , ngpt , nmom1 , nbnd !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 , ssa1 !! optical properties to be modified (defined on g-points) real ( wp ), dimension ( nmom1 , & ncol , nlay , ngpt ), intent ( inout ) :: p1 !! moments of the phase function be modified real ( wp ), dimension ( ncol , nlay , nbnd ), intent ( in ) :: tau2 , ssa2 , g2 !! optical properties to be added to original (defined on bands) integer , dimension ( 2 , nbnd ), intent ( in ) :: gpt_lims !! Starting and ending gpoint for each band integer :: icol , ilay , igpt , ibnd real ( wp ) :: tau12 , tauscat12 real ( wp ), dimension ( nmom1 ) :: temp_moms ! TK integer :: imom !TK do ibnd = 1 , nbnd do igpt = gpt_lims ( 1 , ibnd ), gpt_lims ( 2 , ibnd ) do ilay = 1 , nlay do icol = 1 , ncol tau12 = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , ibnd ) tauscat12 = & tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , ibnd ) * ssa2 ( icol , ilay , ibnd ) ! ! Here assume Henyey-Greenstein ! temp_moms ( 1 ) = g2 ( icol , ilay , ibnd ) do imom = 2 , nmom1 temp_moms ( imom ) = temp_moms ( imom - 1 ) * g2 ( icol , ilay , ibnd ) end do p1 ( 1 : nmom1 , icol , ilay , igpt ) = & ( tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) * p1 ( 1 : nmom1 , icol , ilay , igpt ) + & tau2 ( icol , ilay , ibnd ) * ssa2 ( icol , ilay , ibnd ) * temp_moms ( 1 : nmom1 ) ) / max ( eps , tauscat12 ) ssa1 ( icol , ilay , igpt ) = tauscat12 / max ( eps , tau12 ) tau1 ( icol , ilay , igpt ) = tau12 end do end do end do end do end subroutine inc_nstream_by_2stream_bybnd ! --------------------------------- !> increment _n_-stream optical properties defined on g-points with a second set defined on bands pure subroutine inc_nstream_by_nstream_bybnd ( ncol , nlay , ngpt , nmom1 , nmom2 , & tau1 , ssa1 , p1 , & tau2 , ssa2 , p2 , & nbnd , gpt_lims ) bind ( C , name = \"rte_inc_nstream_by_nstream_bybnd\" ) integer , intent ( in ) :: ncol , nlay , ngpt , nmom1 , nmom2 , nbnd !! array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( inout ) :: tau1 , ssa1 !! optical properties to be modified (defined on g-points) real ( wp ), dimension ( nmom1 , & ncol , nlay , ngpt ), intent ( inout ) :: p1 !! moments of the phase function be modified real ( wp ), dimension ( ncol , nlay , nbnd ), intent ( in ) :: tau2 , ssa2 !! optical properties to be added to original (defined on bands) real ( wp ), dimension ( nmom2 , & ncol , nlay , nbnd ), intent ( in ) :: p2 !! moments of the phase function to be added integer , dimension ( 2 , nbnd ), intent ( in ) :: gpt_lims !! Starting and ending gpoint for each band integer :: icol , ilay , igpt , ibnd , mom_lim real ( wp ) :: tau12 , tauscat12 mom_lim = min ( nmom1 , nmom2 ) do ibnd = 1 , nbnd do igpt = gpt_lims ( 1 , ibnd ), gpt_lims ( 2 , ibnd ) do ilay = 1 , nlay do icol = 1 , ncol tau12 = tau1 ( icol , ilay , igpt ) + tau2 ( icol , ilay , ibnd ) tauscat12 = & tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) + & tau2 ( icol , ilay , ibnd ) * ssa2 ( icol , ilay , ibnd ) ! ! If op2 has more moments than op1 these are ignored; !   if it has fewer moments the higher orders are assumed to be 0 ! p1 ( 1 : mom_lim , icol , ilay , igpt ) = & ( tau1 ( icol , ilay , igpt ) * ssa1 ( icol , ilay , igpt ) * p1 ( 1 : mom_lim , icol , ilay , igpt ) + & tau2 ( icol , ilay , ibnd ) * ssa2 ( icol , ilay , ibnd ) * p2 ( 1 : mom_lim , icol , ilay , ibnd )) / max ( eps , tauscat12 ) ssa1 ( icol , ilay , igpt ) = tauscat12 / max ( eps , tau12 ) tau1 ( icol , ilay , igpt ) = tau12 end do end do end do end do end subroutine inc_nstream_by_nstream_bybnd ! ------------------------------------------------------------------------------------------------- ! ! Subsetting, meaning extracting some portion of the 3D domain ! ! ------------------------------------------------------------------------------------------------- !> !> Extract a subset from the first dimension (normally columns) of a 3D field. !>   Applicable to most variables e.g. tau, ssa, g !> pure subroutine extract_subset_dim1_3d ( ncol , nlay , ngpt , array_in , colS , colE , array_out ) & bind ( C , name = \"rte_extract_subset_dim1_3d\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! Array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: array_in !! Array to subset integer , intent ( in ) :: colS , colE !! Starting and ending index real ( wp ), dimension ( colE - colS + 1 ,& nlay , ngpt ), intent ( out ) :: array_out !! subset of the input array integer :: icol , ilay , igpt do igpt = 1 , ngpt do ilay = 1 , nlay do icol = colS , colE array_out ( icol - colS + 1 , ilay , igpt ) = array_in ( icol , ilay , igpt ) end do end do end do end subroutine extract_subset_dim1_3d ! --------------------------------- !> Extract a subset from the second dimension (normally columns) of a 4D field. !>   Applicable to phase function moments, where the first dimension is the moment pure subroutine extract_subset_dim2_4d ( nmom , ncol , nlay , ngpt , array_in , colS , colE , array_out ) & bind ( C , name = \"rte_extract_subset_dim2_4d\" ) integer , intent ( in ) :: nmom , ncol , nlay , ngpt !! Array sizes real ( wp ), dimension ( nmom , ncol , nlay , ngpt ), intent ( in ) :: array_in !! Array to subset integer , intent ( in ) :: colS , colE !! Starting and ending index real ( wp ), dimension ( nmom , colE - colS + 1 ,& nlay , ngpt ), intent ( out ) :: array_out !! subset of the input array integer :: icol , ilay , igpt , imom do igpt = 1 , ngpt do ilay = 1 , nlay do icol = colS , colE do imom = 1 , nmom array_out ( imom , icol - colS + 1 , ilay , igpt ) = array_in ( imom , icol , ilay , igpt ) end do end do end do end do end subroutine extract_subset_dim2_4d ! --------------------------------- ! !> Extract the absorption optical thickness \\tau_{abs} = 1 - \\omega_0 \\tau_{ext} ! pure subroutine extract_subset_absorption_tau ( ncol , nlay , ngpt , tau_in , ssa_in , & colS , colE , tau_out ) & bind ( C , name = \"rte_extract_subset_absorption_tau\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! Array sizes real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau_in , ssa_in !! Optical thickness, single scattering albedo integer , intent ( in ) :: colS , colE !! Starting and ending index real ( wp ), dimension ( colE - colS + 1 ,& nlay , ngpt ), intent ( out ) :: tau_out !! absorption optical thickness subset integer :: icol , ilay , igpt do igpt = 1 , ngpt do ilay = 1 , nlay do icol = colS , colE tau_out ( icol - colS + 1 , ilay , igpt ) = & tau_in ( icol , ilay , igpt ) * ( 1._wp - ssa_in ( icol , ilay , igpt )) end do end do end do end subroutine extract_subset_absorption_tau end module mo_optical_props_kernels","tags":"","loc":"sourcefile/mo_optical_props_kernels.f90.html"},{"title":"mo_rte_solver_kernels.F90 – RTE kernels","text":"This file depends on sourcefile~~mo_rte_solver_kernels.f90~~EfferentGraph sourcefile~mo_rte_solver_kernels.f90 mo_rte_solver_kernels.F90 sourcefile~mo_rte_util_array.f90 mo_rte_util_array.F90 sourcefile~mo_rte_solver_kernels.f90->sourcefile~mo_rte_util_array.f90 Help × Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules mo_rte_solver_kernels Source Code mo_rte_solver_kernels.F90 Source Code ! This code is part of Radiative Transfer for Energetics (RTE) ! ! Contacts: Robert Pincus and Eli Mlawer ! email:  rrtmgp@aer.com ! ! Copyright 2015-,  Atmospheric and Environmental Research, ! Regents of the University of Colorado, Trustees of Columbia University.  All right reserved. ! ! Use and duplication is permitted under the terms of the !    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause ! ------------------------------------------------------------------------------------------------- ! !>## Numeric calculations for radiative transfer solvers !>  - Emission/absorption (no-scattering) calculations !>  - solver for multi-angle Gaussian quadrature !>  - solver for a single angle, calling !>      - source function computation (linear-in-tau) !>      -  transport !>  - Extinction-only calculation (direct solar beam) !>  - Two-stream calculations: !>    solvers for LW and SW with different boundary conditions and source functions !>      - source function calculation for LW, SW !>      - two-stream calculations for LW, SW (using different assumtions about phase function) !>      - transport (adding) !>  - Application of boundary conditions ! ! ------------------------------------------------------------------------------------------------- module mo_rte_solver_kernels use , intrinsic :: iso_c_binding use mo_rte_kind , only : wp , wl use mo_rte_util_array , only : zero_array implicit none private public :: lw_solver_noscat , lw_solver_2stream , & sw_solver_noscat , sw_solver_2stream real ( wp ), parameter :: pi = acos ( - 1._wp ) contains ! ------------------------------------------------------------------------------------------------- ! ! Top-level longwave kernels ! ! ------------------------------------------------------------------------------------------------- ! !>  LW fluxes, no scattering, mu (cosine of integration angle) specified by column !>    Does radiation calculation at user-supplied angles; converts radiances to flux !>    using user-supplied weights ! ! --------------------------------------------------------------- subroutine lw_solver_noscat_oneangle ( ncol , nlay , ngpt , top_at_1 , D , weight , & tau , lay_source , lev_source_inc , lev_source_dec , sfc_emis , sfc_src , & incident_flux , & flux_up , flux_dn , & do_broadband , broadband_up , broadband_dn , & do_Jacobians , sfc_srcJac , flux_upJac , & do_rescaling , ssa , g ) integer , intent ( in ) :: ncol , nlay , ngpt ! Number of columns, layers, g-points logical ( wl ), intent ( in ) :: top_at_1 real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: D ! secant of propagation angle  [] real ( wp ), intent ( in ) :: weight ! quadrature weight real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau ! Absorption optical thickness [] real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: lay_source ! Planck source at layer average temperature [W/m2] ! Planck source at layer edge for radiation in increasing/decreasing ilay direction ! lev_source_dec applies the mapping in layer i to the Planck function at layer i ! lev_source_inc applies the mapping in layer i to the Planck function at layer i+1 real ( wp ), dimension ( ncol , nlay , ngpt ), target , & intent ( in ) :: lev_source_inc , lev_source_dec real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: sfc_emis ! Surface emissivity      [] real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: sfc_src ! Surface source function [W/m2] real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: incident_flux ! Boundary condition for flux [W/m2] real ( wp ), dimension ( ncol , nlay + 1 , ngpt ), target , & ! Fluxes [W/m2] intent ( out ) :: flux_up , flux_dn ! ! Optional variables - arrays aren't referenced if corresponding logical  == False ! logical ( wl ), intent ( in ) :: do_broadband real ( wp ), dimension ( ncol , nlay + 1 ), intent ( out ) :: broadband_up , broadband_dn ! Spectrally-integrated fluxes [W/m2] logical ( wl ), intent ( in ) :: do_Jacobians real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: sfc_srcJac ! surface temperature Jacobian of surface source function [W/m2/K] real ( wp ), dimension ( ncol , nlay + 1 ), intent ( out ) :: flux_upJac ! surface temperature Jacobian of Radiances [W/m2-str / K] logical ( wl ), intent ( in ) :: do_rescaling real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: ssa , g ! single-scattering albedo, asymmetry parameter ! ------------------------------------ ! Local variables, no g-point dependency ! integer :: icol , ilay , igpt integer :: top_level , sfc_level real ( wp ), dimension ( ncol , nlay ) :: tau_loc , & ! path length (tau/mu) trans ! transmissivity  = exp(-tau) real ( wp ), dimension ( ncol , nlay ) :: source_dn , source_up real ( wp ), dimension ( ncol ) :: sfc_albedo real ( wp ), dimension (:,:,:), pointer :: lev_source_up , lev_source_dn ! Mapping increasing/decreasing indicies to up/down real ( wp ), parameter :: pi = acos ( - 1._wp ) ! loc_fluxes hold a single g-point flux if fluxes are being integrated instead of returned !   with spectral detail real ( wp ), dimension ( ncol , nlay + 1 ), & target :: loc_flux_up , loc_flux_dn ! gpt_fluxes point to calculations for the current g-point real ( wp ), dimension (:,:), pointer :: gpt_flux_up , gpt_flux_dn ! ------------------------------------------------------------------------------------------------- ! Optionally, use an approximate treatment of scattering using rescaling !   Implemented based on the paper !   Tang G, et al, 2018: https://doi.org/10.1175/JAS-D-18-0014.1 !   a) relies on rescaling of the optical parameters based on asymetry factor and single scattering albedo !       scaling can be computed  by scaling_1rescl !   b) adds adustment term based on cloud properties (lw_transport_1rescl) !      adustment terms is computed based on solution of the Tang equations !      for \"linear-in-tau\" internal source (not in the paper) ! ! Used when approximating scattering ! real ( wp ) :: ssal , wb , scaleTau real ( wp ), dimension ( ncol , nlay ) :: An , Cn real ( wp ), dimension ( ncol , nlay + 1 ) :: gpt_flux_Jac ! ------------------------------------ ! Which way is up? ! Level Planck sources for upward and downward radiation ! When top_at_1, lev_source_up => lev_source_dec !                lev_source_dn => lev_source_inc, and vice-versa if ( top_at_1 ) then top_level = 1 sfc_level = nlay + 1 lev_source_up => lev_source_dec lev_source_dn => lev_source_inc else top_level = nlay + 1 sfc_level = 1 lev_source_up => lev_source_inc lev_source_dn => lev_source_dec end if ! ! Integrated fluxes need zeroing ! if ( do_broadband ) then call zero_array ( ncol , nlay + 1 , broadband_up ) call zero_array ( ncol , nlay + 1 , broadband_dn ) end if if ( do_Jacobians ) & call zero_array ( ncol , nlay + 1 , flux_upJac ) do igpt = 1 , ngpt if ( do_broadband ) then gpt_flux_up => loc_flux_up gpt_flux_dn => loc_flux_dn else gpt_flux_up => flux_up (:,:, igpt ) gpt_flux_dn => flux_dn (:,:, igpt ) end if ! ! Transport is for intensity !   convert flux at top of domain to intensity assuming azimuthal isotropy ! gpt_flux_dn (:, top_level ) = incident_flux (:, igpt ) / ( 2._wp * pi * weight ) ! ! Optical path and transmission, used in source function and transport calculations ! if ( do_rescaling ) then ! ! The scaling and scaleTau terms are independent of propagation !   angle D and could be pre-computed if several values of D are used ! We re-compute them here to keep not have to localize memory use ! do ilay = 1 , nlay do icol = 1 , ncol ssal = ssa ( icol , ilay , igpt ) ! w is the layer single scattering albedo ! b is phase function parameter (Eq.13 of the paper) ! for the similarity principle scaling scheme ! b = (1-g)/2 (where g is phase function avergae cosine) wb = ssal * ( 1._wp - g ( icol , ilay , igpt )) * 0.5_wp ! scaleTau=1-w(1-b) is a scaling factor of the optical thickness representing ! the radiative transfer equation in a nonscattering form Eq(14) of the paper scaleTau = ( 1._wp - ssal + wb ) ! Cn = 0.5*wb/(1-w(1-b)) is parameter of Eq.21-22 of the Tang paper ! Tang paper, p.2222 advises to replace 0.5 with 0.4 based on simulations Cn ( icol , ilay ) = 0.4_wp * wb / scaleTau ! Eqs.15, 18ab and 19 of the paper, ! rescaling of the optical depth multiplied by path length tau_loc ( icol , ilay ) = tau ( icol , ilay , igpt ) * D ( icol , igpt ) * scaleTau end do trans (:, ilay ) = exp ( - tau_loc (:, ilay )) An (:, ilay ) = ( 1._wp - trans (:, ilay ) ** 2 ) end do else do ilay = 1 , nlay tau_loc (:, ilay ) = tau (:, ilay , igpt ) * D (:, igpt ) trans (:, ilay ) = exp ( - tau_loc (:, ilay )) end do end if ! ! Source function for diffuse radiation ! call lw_source_noscat ( ncol , nlay , & lay_source (:,:, igpt ), lev_source_up (:,:, igpt ), lev_source_dn (:,:, igpt ), & tau_loc , trans , source_dn , source_up ) ! ! Transport down ! call lw_transport_noscat_dn ( ncol , nlay , top_at_1 , trans , source_dn , gpt_flux_dn ) ! ! Surface albedo, surface source function, reflection and emission ! sfc_albedo (:) = 1._wp - sfc_emis (:, igpt ) gpt_flux_up (:, sfc_level ) = gpt_flux_dn (:, sfc_level ) * sfc_albedo (:) + & sfc_emis (:, igpt ) * sfc_src (:, igpt ) if ( do_Jacobians ) & gpt_flux_Jac (:, sfc_level ) = sfc_emis (:, igpt ) * sfc_srcJac (:, igpt ) ! ! Transport up, or up and down again if using rescaling ! if ( do_rescaling ) then call lw_transport_1rescl ( ncol , nlay , top_at_1 , trans , & source_dn , source_up , & gpt_flux_up , gpt_flux_dn , An , Cn , & do_Jacobians , gpt_flux_Jac ) ! Standing in for Jacobian, i.e. rad_up_Jac(:,:,igpt), rad_dn_Jac(:,:,igpt)) else call lw_transport_noscat_up ( ncol , nlay , top_at_1 , trans , source_up , gpt_flux_up , & do_Jacobians , gpt_flux_Jac ) end if if ( do_broadband ) then broadband_up (:,:) = broadband_up (:,:) + gpt_flux_up (:,:) broadband_dn (:,:) = broadband_dn (:,:) + gpt_flux_dn (:,:) else ! ! Convert intensity to flux assuming azimuthal isotropy and quadrature weight ! gpt_flux_dn (:,:) = 2._wp * pi * weight * gpt_flux_dn (:,:) gpt_flux_up (:,:) = 2._wp * pi * weight * gpt_flux_up (:,:) end if ! ! Only broadband-integrated Jacobians are provided ! if ( do_Jacobians ) & flux_upJac (:,:) = flux_upJac (:,:) + gpt_flux_Jac (:,:) end do ! g point loop if ( do_broadband ) then broadband_up (:,:) = 2._wp * pi * weight * broadband_up (:,:) broadband_dn (:,:) = 2._wp * pi * weight * broadband_dn (:,:) end if if ( do_Jacobians ) & flux_upJac (:,:) = 2._wp * pi * weight * flux_upJac (:,:) end subroutine lw_solver_noscat_oneangle ! ------------------------------------------------------------------------------------------------- ! !> LW transport, no scattering, multi-angle quadrature !>   Users provide a set of weights and quadrature angles !>   Routine sums over single-angle solutions for each sets of angles/weights ! ! --------------------------------------------------------------- subroutine lw_solver_noscat ( ncol , nlay , ngpt , top_at_1 , & nmus , Ds , weights , & tau , & lay_source , lev_source_inc , lev_source_dec , & sfc_emis , sfc_src , & inc_flux , & flux_up , flux_dn , & do_broadband , broadband_up , broadband_dn , & do_Jacobians , sfc_srcJac , flux_upJac , & do_rescaling , ssa , g ) bind ( C , name = \"rte_lw_solver_noscat\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! Number of columns, layers, g-points logical ( wl ), intent ( in ) :: top_at_1 !! ilay = 1 is the top of the atmosphere? integer , intent ( in ) :: nmus !! number of quadrature angles real ( wp ), dimension ( ncol , ngpt , & nmus ), intent ( in ) :: Ds !! quadrature secants real ( wp ), dimension ( nmus ), intent ( in ) :: weights !! quadrature weights real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau !! Absorption optical thickness [] real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: lay_source !! Planck source at layer average temperature [W/m2] real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: lev_source_inc !! Planck source at layer edge for radiation in increasing ilay direction [W/m2] real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: lev_source_dec !! Planck source at layer edge for radiation in decreasing ilay direction [W/m2] real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: sfc_emis !! Surface emissivity      [] real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: sfc_src !! Surface source function [W/m2] real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: inc_flux !! Incident diffuse flux, probably 0 [W/m2] real ( wp ), dimension ( ncol , nlay + 1 , ngpt ), target , & intent ( out ) :: flux_up , flux_dn !! Fluxes [W/m2] ! ! Optional variables - arrays aren't referenced if corresponding logical  == False ! logical ( wl ), intent ( in ) :: do_broadband real ( wp ), dimension ( ncol , nlay + 1 ), target , & intent ( out ) :: broadband_up , broadband_dn !! Spectrally-integrated fluxes [W/m2] logical ( wl ), intent ( in ) :: do_Jacobians !! compute Jacobian with respect to surface temeprature? real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: sfc_srcJac !! surface temperature Jacobian of surface source function [W/m2/K] real ( wp ), dimension ( ncol , nlay + 1 ), target , & intent ( out ) :: flux_upJac !! surface temperature Jacobian of Radiances [W/m2-str / K] logical ( wl ), intent ( in ) :: do_rescaling !! Approximate treatment of scattering (10.1175/JAS-D-18-0014.1) real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: ssa , g !! single-scattering albedo, asymmetry parameter ! ------------------------------------ ! ! Local variables - used for a single quadrature angle ! real ( wp ), dimension (:,:,:), pointer :: this_flux_up , this_flux_dn real ( wp ), dimension (:,:), pointer :: this_broadband_up , this_broadband_dn , this_flux_upJac integer :: imu ! ------------------------------------ ! ! For the first angle output arrays store total flux ! call lw_solver_noscat_oneangle ( ncol , nlay , ngpt , & top_at_1 , Ds (:,:, 1 ), weights ( 1 ), tau , & lay_source , lev_source_inc , lev_source_dec , sfc_emis , sfc_src , & inc_flux , & flux_up , flux_dn , & do_broadband , broadband_up , broadband_dn , & do_Jacobians , sfc_srcJac , flux_upJac , & do_rescaling , ssa , g ) ! ! For more than one angle use local arrays ! if ( nmus > 1 ) then if ( do_broadband ) then allocate ( this_broadband_up ( ncol , nlay + 1 ), this_broadband_dn ( ncol , nlay + 1 )) ! Spectrally-resolved fluxes won't be filled in so can point to caller-supplied memory this_flux_up => flux_up this_flux_dn => flux_dn else allocate ( this_flux_up ( ncol , nlay + 1 , ngpt ), this_flux_dn ( ncol , nlay + 1 , ngpt )) ! Spectrally-integrated fluxes won't be filled in so can point to caller-supplied memory this_broadband_up => broadband_up this_broadband_dn => broadband_dn end if if ( do_Jacobians ) then allocate ( this_flux_upJac ( ncol , nlay + 1 )) else this_flux_upJac => flux_upJac end if end if do imu = 2 , nmus call lw_solver_noscat_oneangle ( ncol , nlay , ngpt , & top_at_1 , Ds (:,:, imu ), weights ( imu ), tau , & lay_source , lev_source_inc , lev_source_dec , sfc_emis , sfc_src , & inc_flux , & this_flux_up , this_flux_dn , & do_broadband , this_broadband_up , this_broadband_dn , & do_Jacobians , sfc_srcJac , this_flux_upJac , & do_rescaling , ssa , g ) if ( do_broadband ) then broadband_up (:,:) = broadband_up (:,:) + this_broadband_up (:,:) broadband_dn (:,:) = broadband_dn (:,:) + this_broadband_dn (:,:) else flux_up (:,:,:) = flux_up (:,:,:) + this_flux_up (:,:,:) flux_dn (:,:,:) = flux_dn (:,:,:) + this_flux_dn (:,:,:) end if if ( do_Jacobians ) & flux_upJac (:,:) = flux_upJac (:,: ) + this_flux_upJac (:,: ) end do if ( nmus > 1 ) then if ( do_broadband ) deallocate ( this_broadband_up , this_broadband_dn ) if (. not . do_broadband ) deallocate ( this_flux_up , this_flux_dn ) if ( do_Jacobians ) deallocate ( this_flux_upJac ) end if end subroutine lw_solver_noscat ! ------------------------------------------------------------------------------------------------- ! !> Longwave two-stream calculation: !>   - combine RRTMGP-specific sources at levels !>   - compute layer reflectance, transmittance !>   - compute total source function at levels using linear-in-tau !>   - transport ! ! ------------------------------------------------------------------------------------------------- subroutine lw_solver_2stream ( ncol , nlay , ngpt , top_at_1 , & tau , ssa , g , & lay_source , lev_source_inc , lev_source_dec , sfc_emis , sfc_src , & inc_flux , & flux_up , flux_dn ) bind ( C , name = \"rte_lw_solver_2stream\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! Number of columns, layers, g-points logical ( wl ), intent ( in ) :: top_at_1 !! ilay = 1 is the top of the atmosphere? real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau , ssa , g !! Optical thickness, single-scattering albedo, asymmetry parameter [] real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: lay_source !! Planck source at layer average temperature [W/m2] real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: lev_source_inc !! Planck source at layer edge for radiation in increasing ilay direction [W/m2] real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: lev_source_dec !! Planck source at layer edge for radiation in decreasing ilay direction [W/m2] real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: sfc_emis !! Surface emissivity      [] real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: sfc_src !! Surface source function [W/m2] real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: inc_flux !! Incident diffuse flux, probably 0 [W/m2] real ( wp ), dimension ( ncol , nlay + 1 , ngpt ), intent ( out ) :: flux_up , flux_dn !! Fluxes [W/m2] ! ---------------------------------------------------------------------- integer :: igpt , top_level real ( wp ), dimension ( ncol , nlay ) :: Rdif , Tdif , gamma1 , gamma2 real ( wp ), dimension ( ncol ) :: sfc_albedo real ( wp ), dimension ( ncol , nlay + 1 ) :: lev_source real ( wp ), dimension ( ncol , nlay ) :: source_dn , source_up real ( wp ), dimension ( ncol ) :: source_sfc ! ------------------------------------ top_level = nlay + 1 if ( top_at_1 ) top_level = 1 do igpt = 1 , ngpt ! ! RRTMGP provides source functions at each level using the spectral mapping !   of each adjacent layer. Combine these for two-stream calculations ! call lw_combine_sources ( ncol , nlay , top_at_1 , & lev_source_inc (:,:, igpt ), lev_source_dec (:,:, igpt ), & lev_source ) ! ! Cell properties: reflection, transmission for diffuse radiation !   Coupling coefficients needed for source function ! call lw_two_stream ( ncol , nlay , & tau (:,:, igpt ), ssa (:,:, igpt ), g (:,:, igpt ), & gamma1 , gamma2 , Rdif , Tdif ) ! ! Source function for diffuse radiation ! call lw_source_2str ( ncol , nlay , top_at_1 , & sfc_emis (:, igpt ), sfc_src (:, igpt ), & lay_source (:,:, igpt ), lev_source , & gamma1 , gamma2 , Rdif , Tdif , tau (:,:, igpt ), & source_dn , source_up , source_sfc ) ! ! Transport ! sfc_albedo ( 1 : ncol ) = 1._wp - sfc_emis (:, igpt ) ! ! Boundary condition ! flux_dn (:, top_level , igpt ) = inc_flux (:, igpt ) call adding ( ncol , nlay , top_at_1 , & sfc_albedo , & Rdif , Tdif , & source_dn , source_up , source_sfc , & flux_up (:,:, igpt ), flux_dn (:,:, igpt )) end do end subroutine lw_solver_2stream ! ------------------------------------------------------------------------------------------------- ! !   Top-level shortwave kernels ! ! ------------------------------------------------------------------------------------------------- ! !  !> Extinction-only shortwave solver i.e. solar direct beam ! ! ------------------------------------------------------------------------------------------------- pure subroutine sw_solver_noscat ( ncol , nlay , ngpt , top_at_1 , & tau , mu0 , inc_flux_dir , flux_dir ) bind ( C , name = \"rte_sw_solver_noscat\" ) integer , intent ( in ) :: ncol , nlay , ngpt ! Number of columns, layers, g-points !! Number of columns, layers, g-points logical ( wl ), intent ( in ) :: top_at_1 !! ilay = 1 is the top of the atmosphere? real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau !! Absorption optical thickness [] real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: mu0 !! cosine of solar zenith angle real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: inc_flux_dir !! Direct beam incident flux [W/m2] real ( wp ), dimension ( ncol , nlay + 1 , ngpt ), intent ( out ) :: flux_dir !! Direct-beam flux, spectral [W/m2] integer :: ilev , igpt ! ------------------------------------ ! Indexing into arrays for upward and downward propagation depends on the vertical !   orientation of the arrays (whether the domain top is at the first or last index) ! We write the loops out explicitly so compilers will have no trouble optimizing them. ! Downward propagation if ( top_at_1 ) then ! For the flux at this level, what was the previous level, and which layer has the !   radiation just passed through? ! layer index = level index - 1 ! previous level is up (-1) do igpt = 1 , ngpt flux_dir (:, 1 , igpt ) = inc_flux_dir (:, igpt ) * mu0 (:, 1 ) do ilev = 2 , nlay + 1 flux_dir (:, ilev , igpt ) = flux_dir (:, ilev - 1 , igpt ) * exp ( - tau (:, ilev - 1 , igpt ) / mu0 (:, ilev - 1 )) end do end do else ! layer index = level index ! previous level is up (+1) do igpt = 1 , ngpt flux_dir (:, nlay + 1 , igpt ) = inc_flux_dir (:, igpt ) * mu0 (:, nlay ) do ilev = nlay , 1 , - 1 flux_dir (:, ilev , igpt ) = flux_dir (:, ilev + 1 , igpt ) * exp ( - tau (:, ilev , igpt ) / mu0 (:, ilev )) end do end do end if end subroutine sw_solver_noscat ! ------------------------------------------------------------------------------------------------- ! !> Shortwave two-stream calculation: !>   compute layer reflectance, transmittance !>   compute solar source function for diffuse radiation !>   transport ! ! ------------------------------------------------------------------------------------------------- subroutine sw_solver_2stream ( ncol , nlay , ngpt , top_at_1 , & tau , ssa , g , mu0 , & sfc_alb_dir , sfc_alb_dif , & inc_flux_dir , & flux_up , flux_dn , flux_dir , & has_dif_bc , inc_flux_dif , & do_broadband , broadband_up , & broadband_dn , broadband_dir ) bind ( C , name = \"rte_sw_solver_2stream\" ) integer , intent ( in ) :: ncol , nlay , ngpt !! Number of columns, layers, g-points logical ( wl ), intent ( in ) :: top_at_1 !! ilay = 1 is the top of the atmosphere? real ( wp ), dimension ( ncol , nlay , ngpt ), intent ( in ) :: tau , ssa , g !! Optical thickness, single-scattering albedo, asymmetry parameter [] real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: mu0 !! cosine of solar zenith angle real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: sfc_alb_dir , sfc_alb_dif !! Spectral surface albedo for direct and diffuse radiation real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: inc_flux_dir !! Direct beam incident flux real ( wp ), dimension ( ncol , nlay + 1 , ngpt ), target , & intent ( out ) :: flux_up , flux_dn , flux_dir !! Fluxes [W/m2] logical ( wl ), intent ( in ) :: has_dif_bc !! Is a boundary condition for diffuse flux supplied? real ( wp ), dimension ( ncol , ngpt ), intent ( in ) :: inc_flux_dif !! Boundary condition for diffuse flux [W/m2] logical ( wl ), intent ( in ) :: do_broadband !! Provide broadband-integrated, not spectrally-resolved, fluxes? real ( wp ), dimension ( ncol , nlay + 1 ), intent ( out ) :: broadband_up , broadband_dn , broadband_dir !! Broadband integrated fluxes ! ------------------------------------------- integer :: igpt , top_level , top_layer real ( wp ), dimension ( ncol , nlay ) :: Rdif , Tdif real ( wp ), dimension ( ncol , nlay ) :: source_up , source_dn real ( wp ), dimension ( ncol ) :: source_srf ! loc_fluxes hold a single g-point flux if fluxes are being integrated instead of returned !   with spectral detail real ( wp ), dimension ( ncol , nlay + 1 ), & target :: loc_flux_up , loc_flux_dn , loc_flux_dir ! gpt_fluxes point to calculations for the current g-point real ( wp ), dimension (:,:), pointer :: gpt_flux_up , gpt_flux_dn , gpt_flux_dir ! ------------------------------------ if ( top_at_1 ) then top_level = 1 top_layer = 1 else top_level = nlay + 1 top_layer = nlay end if ! ! Integrated fluxes need zeroing ! if ( do_broadband ) then call zero_array ( ncol , nlay + 1 , broadband_up ) call zero_array ( ncol , nlay + 1 , broadband_dn ) call zero_array ( ncol , nlay + 1 , broadband_dir ) end if do igpt = 1 , ngpt if ( do_broadband ) then gpt_flux_up => loc_flux_up gpt_flux_dn => loc_flux_dn gpt_flux_dir => loc_flux_dir else gpt_flux_up => flux_up (:,:, igpt ) gpt_flux_dn => flux_dn (:,:, igpt ) gpt_flux_dir => flux_dir (:,:, igpt ) end if ! ! Boundary conditions direct beam... ! gpt_flux_dir (:, top_level ) = inc_flux_dir (:, igpt ) * mu0 (:, top_layer ) ! ! ... and diffuse field, using 0 if no BC is provided ! if ( has_dif_bc ) then gpt_flux_dn (:, top_level ) = inc_flux_dif (:, igpt ) else gpt_flux_dn (:, top_level ) = 0._wp end if ! ! Cell properties: transmittance and reflectance for diffuse radiation !   Direct-beam and source for diffuse radiation ! call sw_dif_and_source ( ncol , nlay , top_at_1 , mu0 , sfc_alb_dir (:, igpt ), & tau (:,:, igpt ), ssa (:,:, igpt ), g (:,:, igpt ), & Rdif , Tdif , source_dn , source_up , source_srf , & gpt_flux_dir ) ! ! Transport ! call adding ( ncol , nlay , top_at_1 , & sfc_alb_dif (:, igpt ), Rdif , Tdif , & source_dn , source_up , source_srf , gpt_flux_up , gpt_flux_dn ) ! ! adding() computes only diffuse flux; flux_dn is total ! if ( do_broadband ) then broadband_up (:,:) = broadband_up (:,:) + gpt_flux_up (:,:) broadband_dn (:,:) = broadband_dn (:,:) + gpt_flux_dn (:,:) + gpt_flux_dir (:,:) broadband_dir (:,:) = broadband_dir (:,:) + gpt_flux_dir (:,:) else gpt_flux_dn (:,:) = gpt_flux_dn (:,:) + gpt_flux_dir (:,:) end if end do end subroutine sw_solver_2stream ! ------------------------------------------------------------------------------------------------- ! !   Lower-level longwave kernels ! ! ------------------------------------------------------------------------------------------------- ! ! Compute LW source function for upward and downward emission at levels using linear-in-tau assumption ! See Clough et al., 1992, doi: 10.1029/92JD01419, Eq 13 ! ! --------------------------------------------------------------- subroutine lw_source_noscat ( ncol , nlay , lay_source , lev_source_up , lev_source_dn , tau , trans , & source_dn , source_up ) integer , intent ( in ) :: ncol , nlay real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: lay_source , & ! Planck source at layer center lev_source_up , & ! Planck source at levels (layer edges), lev_source_dn , & !   increasing/decreasing layer index tau , & ! Optical path (tau/mu) trans ! Transmissivity (exp(-tau)) real ( wp ), dimension ( ncol , nlay ), intent ( out ) :: source_dn , source_up ! Source function at layer edges ! Down at the bottom of the layer, up at the top ! -------------------------------- integer :: icol , ilay real ( wp ) :: fact real ( wp ), parameter :: tau_thresh = sqrt ( sqrt ( epsilon ( tau ))) ! --------------------------------------------------------------- do ilay = 1 , nlay do icol = 1 , ncol ! ! Weighting factor. Use 2nd order series expansion when rounding error (~tau&#94;2) !   is of order epsilon (smallest difference from 1. in working precision) !   Thanks to Peter Blossey !   Updated to 3rd order series and lower threshold based on suggestion from Dmitry Alexeev (Nvidia) ! if ( tau ( icol , ilay ) > tau_thresh ) then fact = ( 1._wp - trans ( icol , ilay )) / tau ( icol , ilay ) - trans ( icol , ilay ) else fact = tau ( icol , ilay ) * ( 0.5_wp + tau ( icol , ilay ) * ( - 1._wp / 3._wp + tau ( icol , ilay ) * 1._wp / 8._wp ) ) end if ! ! Equation below is developed in Clough et al., 1992, doi:10.1029/92JD01419, Eq 13 ! source_dn ( icol , ilay ) = ( 1._wp - trans ( icol , ilay )) * lev_source_dn ( icol , ilay ) + & 2._wp * fact * ( lay_source ( icol , ilay ) - lev_source_dn ( icol , ilay )) source_up ( icol , ilay ) = ( 1._wp - trans ( icol , ilay )) * lev_source_up ( icol , ilay ) + & 2._wp * fact * ( lay_source ( icol , ilay ) - lev_source_up ( icol , ilay )) end do end do end subroutine lw_source_noscat ! ------------------------------------------------------------------------------------------------- ! ! Longwave no-scattering transport - separate routines for up and down ! ! ------------------------------------------------------------------------------------------------- subroutine lw_transport_noscat_dn ( ncol , nlay , top_at_1 , & trans , source_dn , radn_dn ) integer , intent ( in ) :: ncol , nlay ! Number of columns, layers, g-points logical ( wl ), intent ( in ) :: top_at_1 ! real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: trans ! transmissivity = exp(-tau) real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: source_dn ! Diffuse radiation emitted by the layer real ( wp ), dimension ( ncol , nlay + 1 ), intent ( inout ) :: radn_dn ! Radiances [W/m2-str] Top level must contain incident flux boundary condition ! --------------------------------------------------- ! Local variables integer :: ilev ! --------------------------------------------------- if ( top_at_1 ) then ! ! Top of domain is index 1 ! do ilev = 2 , nlay + 1 radn_dn (:, ilev ) = trans (:, ilev - 1 ) * radn_dn (:, ilev - 1 ) + source_dn (:, ilev - 1 ) end do else ! ! Top of domain is index nlay+1 ! do ilev = nlay , 1 , - 1 radn_dn (:, ilev ) = trans (:, ilev ) * radn_dn (:, ilev + 1 ) + source_dn (:, ilev ) end do end if end subroutine lw_transport_noscat_dn ! ------------------------------------------------------------------------------------------------- subroutine lw_transport_noscat_up ( ncol , nlay , top_at_1 , & trans , source_up , radn_up , do_Jacobians , radn_upJac ) integer , intent ( in ) :: ncol , nlay ! Number of columns, layers, g-points logical ( wl ), intent ( in ) :: top_at_1 ! real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: trans ! transmissivity = exp(-tau) real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: source_up ! Diffuse radiation emitted by the layer real ( wp ), dimension ( ncol , nlay + 1 ), intent ( inout ) :: radn_up ! Radiances [W/m2-str] Top level must contain incident flux boundary condition logical ( wl ), intent ( in ) :: do_Jacobians real ( wp ), dimension ( ncol , nlay + 1 ), intent ( inout ) :: radn_upJac ! surface temperature Jacobian of Radiances [W/m2-str / K] ! --------------------------------------------------- ! Local variables integer :: ilev ! --------------------------------------------------- if ( top_at_1 ) then ! ! Top of domain is index 1 ! ! Upward propagation do ilev = nlay , 1 , - 1 radn_up (:, ilev ) = trans (:, ilev ) * radn_up (:, ilev + 1 ) + source_up (:, ilev ) if ( do_Jacobians ) & radn_upJac (:, ilev ) = trans (:, ilev ) * radn_upJac (:, ilev + 1 ) end do else ! ! Top of domain is index nlay+1 ! ! Upward propagation do ilev = 2 , nlay + 1 radn_up (:, ilev ) = trans (:, ilev - 1 ) * radn_up (:, ilev - 1 ) + source_up (:, ilev - 1 ) if ( do_Jacobians ) & radn_upJac (:, ilev ) = trans (:, ilev - 1 ) * radn_upJac (:, ilev - 1 ) end do end if end subroutine lw_transport_noscat_up ! ------------------------------------------------------------------------------------------------- ! Upward and (second) downward transport for re-scaled longwave solution !   adds adjustment factor based on cloud properties ! !   implementation notice: !       the adjustmentFactor computation can be skipped where Cn <= epsilon ! ------------------------------------------------------------------------------------------------- subroutine lw_transport_1rescl ( ncol , nlay , top_at_1 , & trans , source_dn , source_up , & radn_up , radn_dn , An , Cn ,& do_Jacobians , radn_up_Jac ) integer , intent ( in ) :: ncol , nlay ! Number of columns, layers, g-points logical ( wl ), intent ( in ) :: top_at_1 ! real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: trans ! transmissivity = exp(-tau) real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: source_dn , & source_up ! Diffuse radiation emitted by the layer real ( wp ), dimension ( ncol , nlay + 1 ), intent ( inout ) :: radn_up ! Radiances [W/m2-str] real ( wp ), dimension ( ncol , nlay + 1 ), intent ( inout ) :: radn_dn !Top level must contain incident flux boundary condition real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: An , Cn logical ( wl ), intent ( in ) :: do_Jacobians real ( wp ), dimension ( ncol , nlay + 1 ), intent ( inout ) :: radn_up_Jac ! Surface temperature Jacobians [W/m2-str/K] ! ! We could in principle compute a downwelling Jacobian too, but it's small !   (only a small proportion of LW is scattered) and it complicates code and the API, !   so we will not ! ! Local variables integer :: ilev , icol ! --------------------------------------------------- real ( wp ) :: adjustmentFactor if ( top_at_1 ) then ! ! Top of domain is index 1 ! ! Upward propagation ! adjustment factor is obtained as a solution of 18b of the Tang paper ! eqvivalent to Eq.20 of the Tang paper but for linear-in-tau source do ilev = nlay , 1 , - 1 do icol = 1 , ncol adjustmentFactor = Cn ( icol , ilev ) * ( An ( icol , ilev ) * radn_dn ( icol , ilev ) - & trans ( icol , ilev ) * source_dn ( icol , ilev ) - source_up ( icol , ilev ) ) radn_up ( icol , ilev ) = trans ( icol , ilev ) * radn_up ( icol , ilev + 1 ) + source_up ( icol , ilev ) + & adjustmentFactor end do if ( do_Jacobians ) & radn_up_Jac (:, ilev ) = trans (:, ilev ) * radn_up_Jac (:, ilev + 1 ) end do ! Downward propagation ! radn_dn_Jac(:,1) = 0._wp ! adjustment factor is obtained as a solution of 19 of the Tang paper ! eqvivalent to Eq.21 of the Tang paper but for linear-in-tau source do ilev = 1 , nlay ! radn_dn_Jac(:,ilev+1) = trans(:,ilev)*radn_dn_Jac(:,ilev) do icol = 1 , ncol adjustmentFactor = Cn ( icol , ilev ) * ( An ( icol , ilev ) * radn_up ( icol , ilev ) - & trans ( icol , ilev ) * source_up ( icol , ilev ) - source_dn ( icol , ilev ) ) radn_dn ( icol , ilev + 1 ) = trans ( icol , ilev ) * radn_dn ( icol , ilev ) + source_dn ( icol , ilev ) + & adjustmentFactor ! adjustmentFactor         = Cn(icol,ilev)*An(icol,ilev)*radn_up_Jac(icol,ilev) ! radn_dn_Jac(icol,ilev+1) = radn_dn_Jac(icol,ilev+1) + adjustmentFactor enddo end do else ! ! Top of domain is index nlay+1 ! ! Upward propagation ! adjustment factor is obtained as a solution of 18b of the Tang paper ! eqvivalent to Eq.20 of the Tang paper but for linear-in-tau source do ilev = 1 , nlay radn_up (:, ilev + 1 ) = trans (:, ilev ) * radn_up (:, ilev ) + source_up (:, ilev ) do icol = 1 , ncol adjustmentFactor = Cn ( icol , ilev ) * ( An ( icol , ilev ) * radn_dn ( icol , ilev + 1 ) - & trans ( icol , ilev ) * source_dn ( icol , ilev ) - source_up ( icol , ilev ) ) radn_up ( icol , ilev + 1 ) = trans ( icol , ilev ) * radn_up ( icol , ilev ) + source_up ( icol , ilev ) + & adjustmentFactor enddo if ( do_Jacobians ) & radn_up_Jac (:, ilev + 1 ) = trans (:, ilev ) * radn_up_Jac (:, ilev ) end do ! Downward propagation ! adjustment factor is obtained as a solution of 19 of the Tang paper ! eqvivalent to Eq.21 of the Tang paper but for linear-in-tau source ! radn_dn_Jac(:,nlay+1) = 0._wp do ilev = nlay , 1 , - 1 ! radn_dn_Jac(:,ilev) = trans(:,ilev)*radn_dn_Jac(:,ilev+1) do icol = 1 , ncol adjustmentFactor = Cn ( icol , ilev ) * ( An ( icol , ilev ) * radn_up ( icol , ilev ) - & trans ( icol , ilev ) * source_up ( icol , ilev ) - source_dn ( icol , ilev ) ) radn_dn ( icol , ilev ) = trans ( icol , ilev ) * radn_dn ( icol , ilev + 1 ) + source_dn ( icol , ilev ) + & adjustmentFactor ! adjustmentFactor    = Cn(icol,ilev)*An(icol,ilev)*radn_up_Jac(icol,ilev) ! radn_dn_Jac(icol,ilev) = radn_dn_Jac(icol,ilev) + adjustmentFactor enddo end do end if end subroutine lw_transport_1rescl ! ------------------------------------------------------------------------------------------------- ! ! Longwave two-stream solutions to diffuse reflectance and transmittance for a layer !    with optical depth tau, single scattering albedo w0, and asymmetery parameter g. ! ! Equations are developed in Meador and Weaver, 1980, !    doi:10.1175/1520-0469(1980)037<0630:TSATRT>2.0.CO;2 ! ! ------------------------------------------------------------------------------------------------- pure subroutine lw_two_stream ( ncol , nlay , tau , w0 , g , & gamma1 , gamma2 , Rdif , Tdif ) integer , intent ( in ) :: ncol , nlay real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: tau , w0 , g real ( wp ), dimension ( ncol , nlay ), intent ( out ) :: gamma1 , gamma2 , Rdif , Tdif ! ----------------------- integer :: i , j ! Variables used in Meador and Weaver real ( wp ) :: k ( ncol ) ! Ancillary variables real ( wp ) :: RT_term ( ncol ) real ( wp ) :: exp_minusktau ( ncol ), exp_minus2ktau ( ncol ) real ( wp ), parameter :: LW_diff_sec = 1.66 ! 1./cos(diffusivity angle) ! --------------------------------- do j = 1 , nlay do i = 1 , ncol ! ! Coefficients differ from SW implementation because the phase function is more isotropic !   Here we follow Fu et al. 1997, doi:10.1175/1520-0469(1997)054<2799:MSPITI>2.0.CO;2 !   and use a diffusivity sec of 1.66 ! gamma1 ( i , j ) = LW_diff_sec * ( 1._wp - 0.5_wp * w0 ( i , j ) * ( 1._wp + g ( i , j ))) ! Fu et al. Eq 2.9 gamma2 ( i , j ) = LW_diff_sec * 0.5_wp * w0 ( i , j ) * ( 1._wp - g ( i , j )) ! Fu et al. Eq 2.10 ! Eq 18;  k = SQRT(gamma1**2 - gamma2**2), limited below to avoid div by 0. !   k = 0 for isotropic, conservative scattering; this lower limit on k !   gives relative error with respect to conservative solution !   of < 0.1% in Rdif down to tau = 10&#94;-9 k ( i ) = sqrt ( max (( gamma1 ( i , j ) - gamma2 ( i , j )) * ( gamma1 ( i , j ) + gamma2 ( i , j )), 1.e-12_wp )) end do ! Written to encourage vectorization of exponential exp_minusktau ( 1 : ncol ) = exp ( - tau ( 1 : ncol , j ) * k ( 1 : ncol )) ! ! Diffuse reflection and transmission ! do i = 1 , ncol exp_minus2ktau ( i ) = exp_minusktau ( i ) * exp_minusktau ( i ) ! Refactored to avoid rounding errors when k, gamma1 are of very different magnitudes RT_term ( i ) = 1._wp / ( k ( i ) * ( 1._wp + exp_minus2ktau ( i )) + & gamma1 ( i , j ) * ( 1._wp - exp_minus2ktau ( i )) ) ! Equation 25 Rdif ( i , j ) = RT_term ( i ) * gamma2 ( i , j ) * ( 1._wp - exp_minus2ktau ( i )) ! Equation 26 Tdif ( i , j ) = RT_term ( i ) * 2._wp * k ( i ) * exp_minusktau ( i ) end do end do end subroutine lw_two_stream ! ------------------------------------------------------------------------------------------------- ! ! Source function combination ! RRTMGP provides two source functions at each level !   using the spectral mapping from each of the adjascent layers. !   Need to combine these for use in two-stream calculation. ! ! ------------------------------------------------------------------------------------------------- subroutine lw_combine_sources ( ncol , nlay , top_at_1 , & lev_src_inc , lev_src_dec , lev_source ) integer , intent ( in ) :: ncol , nlay logical ( wl ), intent ( in ) :: top_at_1 real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: lev_src_inc , lev_src_dec real ( wp ), dimension ( ncol , nlay + 1 ), intent ( out ) :: lev_source integer :: icol , ilay ! --------------------------------------------------------------- ilay = 1 do icol = 1 , ncol lev_source ( icol , ilay ) = lev_src_dec ( icol , ilay ) end do do ilay = 2 , nlay do icol = 1 , ncol lev_source ( icol , ilay ) = sqrt ( lev_src_dec ( icol , ilay ) * & lev_src_inc ( icol , ilay - 1 )) end do end do ilay = nlay + 1 do icol = 1 , ncol lev_source ( icol , ilay ) = lev_src_inc ( icol , ilay - 1 ) end do end subroutine lw_combine_sources ! --------------------------------------------------------------- ! ! Compute LW source function for upward and downward emission at levels using linear-in-tau assumption !   This version straight from ECRAD !   Source is provided as W/m2-str; factor of pi converts to flux units ! ! --------------------------------------------------------------- subroutine lw_source_2str ( ncol , nlay , top_at_1 , & sfc_emis , sfc_src , & lay_source , lev_source , & gamma1 , gamma2 , rdif , tdif , tau , source_dn , source_up , source_sfc ) & bind ( C , name = \"rte_lw_source_2str\" ) integer , intent ( in ) :: ncol , nlay logical ( wl ), intent ( in ) :: top_at_1 real ( wp ), dimension ( ncol ), intent ( in ) :: sfc_emis , sfc_src real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: lay_source , & ! Planck source at layer center tau , & ! Optical depth (tau) gamma1 , gamma2 ,& ! Coupling coefficients rdif , tdif ! Layer reflectance and transmittance real ( wp ), dimension ( ncol , nlay + 1 ), target , & intent ( in ) :: lev_source ! Planck source at layer edges real ( wp ), dimension ( ncol , nlay ), intent ( out ) :: source_dn , source_up real ( wp ), dimension ( ncol ), intent ( out ) :: source_sfc ! Source function for upward radation at surface integer :: icol , ilay real ( wp ) :: Z , Zup_top , Zup_bottom , Zdn_top , Zdn_bottom real ( wp ), dimension (:), pointer :: lev_source_bot , lev_source_top ! --------------------------------------------------------------- do ilay = 1 , nlay if ( top_at_1 ) then lev_source_top => lev_source (:, ilay ) lev_source_bot => lev_source (:, ilay + 1 ) else lev_source_top => lev_source (:, ilay + 1 ) lev_source_bot => lev_source (:, ilay ) end if do icol = 1 , ncol if ( tau ( icol , ilay ) > 1.0e-8_wp ) then ! ! Toon et al. (JGR 1989) Eqs 26-27 ! Z = ( lev_source_bot ( icol ) - lev_source_top ( icol )) / ( tau ( icol , ilay ) * ( gamma1 ( icol , ilay ) + gamma2 ( icol , ilay ))) Zup_top = Z + lev_source_top ( icol ) Zup_bottom = Z + lev_source_bot ( icol ) Zdn_top = - Z + lev_source_top ( icol ) Zdn_bottom = - Z + lev_source_bot ( icol ) source_up ( icol , ilay ) = pi * ( Zup_top - rdif ( icol , ilay ) * Zdn_top - tdif ( icol , ilay ) * Zup_bottom ) source_dn ( icol , ilay ) = pi * ( Zdn_bottom - rdif ( icol , ilay ) * Zup_bottom - tdif ( icol , ilay ) * Zdn_top ) else source_up ( icol , ilay ) = 0._wp source_dn ( icol , ilay ) = 0._wp end if end do end do do icol = 1 , ncol source_sfc ( icol ) = pi * sfc_emis ( icol ) * sfc_src ( icol ) end do end subroutine lw_source_2str ! ------------------------------------------------------------------------------------------------- ! !   Lower-level shortwave kernels ! ! ------------------------------------------------------------------------------------------------- ! ! Two-stream solutions to diffuse reflectance and transmittance for a layer !    with optical depth tau, single scattering albedo w0, and asymmetery parameter g. ! Direct reflectance and transmittance used to compute direct beam source for diffuse radiation !   in layers and at surface; report direct beam as a byproduct ! Computing the direct-beam source for diffuse radiation at the same time as R and T for !   direct radiation reduces memory traffic and use. ! ! Equations are developed in Meador and Weaver, 1980, !    doi:10.1175/1520-0469(1980)037<0630:TSATRT>2.0.CO;2 ! ! ------------------------------------------------------------------------------------------------- pure subroutine sw_dif_and_source ( ncol , nlay , top_at_1 , mu0 , sfc_albedo , & tau , w0 , g , & Rdif , Tdif , source_dn , source_up , source_sfc , flux_dn_dir ) bind ( C , name = \"rte_sw_source_dir\" ) integer , intent ( in ) :: ncol , nlay logical ( wl ), intent ( in ) :: top_at_1 real ( wp ), dimension ( ncol ), intent ( in ) :: sfc_albedo ! surface albedo for direct radiation real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: tau , w0 , g , mu0 real ( wp ), dimension ( ncol , nlay ), intent ( out ) :: Rdif , Tdif , source_dn , source_up real ( wp ), dimension ( ncol ), intent ( out ) :: source_sfc ! Source function for upward radation at surface real ( wp ), dimension ( ncol , nlay + 1 ), target , & intent ( inout ) :: flux_dn_dir ! Direct beam flux ! ----------------------- integer :: i , j ! Variables used in Meador and Weaver real ( wp ) :: gamma1 , gamma2 , gamma3 , gamma4 , alpha1 , alpha2 ! Ancillary variables real ( wp ), parameter :: min_k = 1.e4_wp * epsilon ( 1._wp ) ! Suggestion from Chiel van Heerwaarden real ( wp ) :: k , exp_minusktau , k_mu , k_gamma3 , k_gamma4 real ( wp ) :: RT_term , exp_minus2ktau real ( wp ) :: Rdir , Tdir , Tnoscat real ( wp ), pointer , dimension (:) :: dir_flux_inc , dir_flux_trans integer :: lay_index real ( wp ) :: tau_s , w0_s , g_s , mu0_s ! --------------------------------- do j = 1 , nlay if ( top_at_1 ) then lay_index = j dir_flux_inc => flux_dn_dir (:, lay_index ) dir_flux_trans => flux_dn_dir (:, lay_index + 1 ) else lay_index = nlay - j + 1 dir_flux_inc => flux_dn_dir (:, lay_index + 1 ) dir_flux_trans => flux_dn_dir (:, lay_index ) end if do i = 1 , ncol ! ! Scalars ! tau_s = tau ( i , lay_index ) w0_s = w0 ( i , lay_index ) g_s = g ( i , lay_index ) mu0_s = mu0 ( i , lay_index ) ! ! Zdunkowski Practical Improved Flux Method \"PIFM\" !  (Zdunkowski et al., 1980;  Contributions to Atmospheric Physics 53, 147-66) ! gamma1 = ( 8._wp - w0_s * ( 5._wp + 3._wp * g_s )) * . 25_wp gamma2 = 3._wp * ( w0_s * ( 1._wp - g_s )) * . 25_wp ! ! Direct reflect and transmission ! ! Eq 18;  k = SQRT(gamma1**2 - gamma2**2), limited below to avoid div by 0. !   k = 0 for isotropic, conservative scattering; this lower limit on k !   gives relative error with respect to conservative solution !   of < 0.1% in Rdif down to tau = 10&#94;-9 k = sqrt ( max (( gamma1 - gamma2 ) * ( gamma1 + gamma2 ), min_k )) exp_minusktau = exp ( - tau_s * k ) exp_minus2ktau = exp_minusktau * exp_minusktau ! Refactored to avoid rounding errors when k, gamma1 are of very different magnitudes RT_term = 1._wp / ( k * ( 1._wp + exp_minus2ktau ) + & gamma1 * ( 1._wp - exp_minus2ktau ) ) ! Equation 25 Rdif ( i , lay_index ) = RT_term * gamma2 * ( 1._wp - exp_minus2ktau ) ! Equation 26 Tdif ( i , lay_index ) = RT_term * 2._wp * k * exp_minusktau ! ! On a round earth, where mu0 can increase with depth in the atmosphere, !   levels with mu0 <= 0 have no direct beam and hence no source for diffuse light ! if ( mu0_s > 0._wp ) then k_mu = k * mu0_s ! ! Equation 14, multiplying top and bottom by exp(-k*tau) !   and rearranging to avoid div by 0. ! RT_term = w0_s * RT_term / merge ( 1._wp - k_mu * k_mu , & epsilon ( 1._wp ), & abs ( 1._wp - k_mu * k_mu ) >= epsilon ( 1._wp )) ! ! Zdunkowski Practical Improved Flux Method \"PIFM\" !  (Zdunkowski et al., 1980;  Contributions to Atmospheric Physics 53, 147-66) ! gamma3 = ( 2._wp - 3._wp * mu0_s * g_s ) * . 25_wp gamma4 = 1._wp - gamma3 alpha1 = gamma1 * gamma4 + gamma2 * gamma3 ! Eq. 16 alpha2 = gamma1 * gamma3 + gamma2 * gamma4 ! Eq. 17 ! ! Transmittance of direct, unscattered beam. ! k_gamma3 = k * gamma3 k_gamma4 = k * gamma4 Tnoscat = exp ( - tau_s / mu0_s ) Rdir = RT_term * & (( 1._wp - k_mu ) * ( alpha2 + k_gamma3 ) - & ( 1._wp + k_mu ) * ( alpha2 - k_gamma3 ) * exp_minus2ktau - & 2.0_wp * ( k_gamma3 - alpha2 * k_mu ) * exp_minusktau * Tnoscat ) ! ! Equation 15, multiplying top and bottom by exp(-k*tau), !   multiplying through by exp(-tau/mu0) to !   prefer underflow to overflow ! Omitting direct transmittance ! Tdir = - RT_term * & (( 1._wp + k_mu ) * ( alpha1 + k_gamma4 ) * Tnoscat - & ( 1._wp - k_mu ) * ( alpha1 - k_gamma4 ) * exp_minus2ktau * Tnoscat - & 2.0_wp * ( k_gamma4 + alpha1 * k_mu ) * exp_minusktau ) ! Final check that energy is not spuriously created, by recognizing that ! the beam can either be reflected, penetrate unscattered to the base of a layer, ! or penetrate through but be scattered on the way - the rest is absorbed ! Makes the equations safer in single precision. Credit: Robin Hogan, Peter Ukkonen Rdir = max ( 0.0_wp , min ( Rdir , ( 1.0_wp - Tnoscat ) )) Tdir = max ( 0.0_wp , min ( Tdir , ( 1.0_wp - Tnoscat - Rdir ) )) source_up ( i , lay_index ) = Rdir * dir_flux_inc ( i ) source_dn ( i , lay_index ) = Tdir * dir_flux_inc ( i ) dir_flux_trans ( i ) = Tnoscat * dir_flux_inc ( i ) else source_up ( i , lay_index ) = 0._wp source_dn ( i , lay_index ) = 0._wp dir_flux_trans ( i ) = 0._wp end if end do end do source_sfc (:) = dir_flux_trans (:) * sfc_albedo (:) end subroutine sw_dif_and_source ! --------------------------------------------------------------- ! ! Transport of diffuse radiation through a vertically layered atmosphere. !   Equations are after Shonk and Hogan 2008, doi:10.1175/2007JCLI1940.1 (SH08) !   This routine is shared by longwave and shortwave ! ! ------------------------------------------------------------------------------------------------- subroutine adding ( ncol , nlay , top_at_1 , & albedo_sfc , & rdif , tdif , & src_dn , src_up , src_sfc , & flux_up , flux_dn ) integer , intent ( in ) :: ncol , nlay logical ( wl ), intent ( in ) :: top_at_1 real ( wp ), dimension ( ncol ), intent ( in ) :: albedo_sfc real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: rdif , tdif real ( wp ), dimension ( ncol , nlay ), intent ( in ) :: src_dn , src_up real ( wp ), dimension ( ncol ), intent ( in ) :: src_sfc real ( wp ), dimension ( ncol , nlay + 1 ), intent ( out ) :: flux_up ! intent(inout) because top layer includes incident flux real ( wp ), dimension ( ncol , nlay + 1 ), intent ( inout ) :: flux_dn ! ------------------ integer :: ilev real ( wp ), dimension ( ncol , nlay + 1 ) :: albedo , & ! reflectivity to diffuse radiation below this level ! alpha in SH08 src ! source of diffuse upwelling radiation from emission or ! scattering of direct beam ! G in SH08 real ( wp ), dimension ( ncol , nlay ) :: denom ! beta in SH08 ! ------------------ ! ! Indexing into arrays for upward and downward propagation depends on the vertical !   orientation of the arrays (whether the domain top is at the first or last index) ! We write the loops out explicitly so compilers will have no trouble optimizing them. ! if ( top_at_1 ) then ilev = nlay + 1 ! Albedo of lowest level is the surface albedo... albedo (:, ilev ) = albedo_sfc (:) ! ... and source of diffuse radiation is surface emission src (:, ilev ) = src_sfc (:) ! ! From bottom to top of atmosphere -- !   compute albedo and source of upward radiation ! do ilev = nlay , 1 , - 1 denom (:, ilev ) = 1._wp / ( 1._wp - rdif (:, ilev ) * albedo (:, ilev + 1 )) ! Eq 10 albedo (:, ilev ) = rdif (:, ilev ) + & tdif (:, ilev ) * tdif (:, ilev ) * albedo (:, ilev + 1 ) * denom (:, ilev ) ! Equation 9 ! ! Equation 11 -- source is emitted upward radiation at top of layer plus !   radiation emitted at bottom of layer, !   transmitted through the layer and reflected from layers below (tdiff*src*albedo) ! src (:, ilev ) = src_up (:, ilev ) + & tdif (:, ilev ) * denom (:, ilev ) * & ( src (:, ilev + 1 ) + albedo (:, ilev + 1 ) * src_dn (:, ilev )) end do ! Eq 12, at the top of the domain upwelling diffuse is due to ... ilev = 1 flux_up (:, ilev ) = flux_dn (:, ilev ) * albedo (:, ilev ) + & ! ... reflection of incident diffuse and src (:, ilev ) ! emission from below ! ! From the top of the atmosphere downward -- compute fluxes ! do ilev = 2 , nlay + 1 flux_dn (:, ilev ) = ( tdif (:, ilev - 1 ) * flux_dn (:, ilev - 1 ) + & ! Equation 13 rdif (:, ilev - 1 ) * src (:, ilev ) + & src_dn (:, ilev - 1 )) * denom (:, ilev - 1 ) flux_up (:, ilev ) = flux_dn (:, ilev ) * albedo (:, ilev ) + & ! Equation 12 src (:, ilev ) end do else ilev = 1 ! Albedo of lowest level is the surface albedo... albedo (:, ilev ) = albedo_sfc (:) ! ... and source of diffuse radiation is surface emission src (:, ilev ) = src_sfc (:) ! ! From bottom to top of atmosphere -- !   compute albedo and source of upward radiation ! do ilev = 1 , nlay denom (:, ilev ) = 1._wp / ( 1._wp - rdif (:, ilev ) * albedo (:, ilev )) ! Eq 10 albedo (:, ilev + 1 ) = rdif (:, ilev ) + & tdif (:, ilev ) * tdif (:, ilev ) * albedo (:, ilev ) * denom (:, ilev ) ! Equation 9 ! ! Equation 11 -- source is emitted upward radiation at top of layer plus !   radiation emitted at bottom of layer, !   transmitted through the layer and reflected from layers below (tdiff*src*albedo) ! src (:, ilev + 1 ) = src_up (:, ilev ) + & tdif (:, ilev ) * denom (:, ilev ) * & ( src (:, ilev ) + albedo (:, ilev ) * src_dn (:, ilev )) end do ! Eq 12, at the top of the domain upwelling diffuse is due to ... ilev = nlay + 1 flux_up (:, ilev ) = flux_dn (:, ilev ) * albedo (:, ilev ) + & ! ... reflection of incident diffuse and src (:, ilev ) ! scattering by the direct beam below ! ! From the top of the atmosphere downward -- compute fluxes ! do ilev = nlay , 1 , - 1 flux_dn (:, ilev ) = ( tdif (:, ilev ) * flux_dn (:, ilev + 1 ) + & ! Equation 13 rdif (:, ilev ) * src (:, ilev ) + & src_dn (:, ilev )) * denom (:, ilev ) flux_up (:, ilev ) = flux_dn (:, ilev ) * albedo (:, ilev ) + & ! Equation 12 src (:, ilev ) end do end if end subroutine adding end module mo_rte_solver_kernels","tags":"","loc":"sourcefile/mo_rte_solver_kernels.f90.html"},{"title":"mo_rte_util_array.F90 – RTE kernels","text":"Files dependent on this one sourcefile~~mo_rte_util_array.f90~~AfferentGraph sourcefile~mo_rte_util_array.f90 mo_rte_util_array.F90 sourcefile~mo_rte_solver_kernels.f90 mo_rte_solver_kernels.F90 sourcefile~mo_rte_solver_kernels.f90->sourcefile~mo_rte_util_array.f90 Help × Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules mo_rte_util_array Source Code mo_rte_util_array.F90 Source Code ! This code is part of Radiative Transfer for Energetics (RTE) ! ! Contacts: Robert Pincus and Eli Mlawer ! email:  rrtmgp@aer.com ! ! Copyright 2015-  Atmospheric and Environmental Research, !    Regents of the University of Colorado, !    Trustees of Columbia University in the City of New York ! All right reserved. ! ! Use and duplication is permitted under the terms of the !    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause ! ------------------------------------------------------------------------------------------------- module mo_rte_util_array use mo_rte_kind , only : wp , wl implicit none !> !> Efficiently set arrays to zero !> interface zero_array module procedure zero_array_1D , zero_array_2D , zero_array_3D , zero_array_4D end interface public :: zero_array contains !------------------------------------------------------------------------------------------------- ! Initializing arrays to 0 !------------------------------------------------------------------------------------------------- subroutine zero_array_1D ( ni , array ) bind ( C , name = \"zero_array_1D\" ) integer , intent ( in ) :: ni real ( wp ), dimension ( ni ), intent ( out ) :: array ! ----------------------- integer :: i ! ----------------------- !$acc parallel loop copyout(array) !$omp target teams distribute parallel do simd map(from:array) do i = 1 , ni array ( i ) = 0.0_wp end do end subroutine zero_array_1D ! ---------------------------------------------------------- subroutine zero_array_2D ( ni , nj , array ) bind ( C , name = \"zero_array_2D\" ) integer , intent ( in ) :: ni , nj real ( wp ), dimension ( ni , nj ), intent ( out ) :: array ! ----------------------- integer :: i , j ! ----------------------- !$acc parallel loop collapse(2) copyout(array) !$omp target teams distribute parallel do simd collapse(2) map(from:array) do j = 1 , nj do i = 1 , ni array ( i , j ) = 0.0_wp end do end do end subroutine zero_array_2D ! ---------------------------------------------------------- subroutine zero_array_3D ( ni , nj , nk , array ) bind ( C , name = \"zero_array_3D\" ) integer , intent ( in ) :: ni , nj , nk real ( wp ), dimension ( ni , nj , nk ), intent ( out ) :: array ! ----------------------- integer :: i , j , k ! ----------------------- !$acc parallel loop collapse(3) copyout(array) !$omp target teams distribute parallel do simd collapse(3) map(from:array) do k = 1 , nk do j = 1 , nj do i = 1 , ni array ( i , j , k ) = 0.0_wp end do end do end do end subroutine zero_array_3D ! ---------------------------------------------------------- subroutine zero_array_4D ( ni , nj , nk , nl , array ) bind ( C , name = \"zero_array_4D\" ) integer , intent ( in ) :: ni , nj , nk , nl real ( wp ), dimension ( ni , nj , nk , nl ), intent ( out ) :: array ! ----------------------- integer :: i , j , k , l ! ----------------------- !$acc parallel loop collapse(4) copyout(array) !$omp target teams distribute parallel do simd collapse(4) map(from:array) do l = 1 , nl do k = 1 , nk do j = 1 , nj do i = 1 , ni array ( i , j , k , l ) = 0.0_wp end do end do end do end do end subroutine zero_array_4D end module mo_rte_util_array","tags":"","loc":"sourcefile/mo_rte_util_array.f90.html"},{"title":"mo_fluxes_broadband_kernels.F90 – RTE kernels","text":"Contents Modules mo_fluxes_broadband_kernels Source Code mo_fluxes_broadband_kernels.F90 Source Code ! This code is part of Radiative Transfer for Energetics (RTE) ! ! Contacts: Robert Pincus and Eli Mlawer ! email:  rrtmgp@aer.com ! ! Copyright 2015-,  Atmospheric and Environmental Research, ! Regents of the University of Colorado, Trustees of Columbia University.  All right reserved. ! ! Use and duplication is permitted under the terms of the !    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause ! ------------------------------------------------------------------------------------------------- !> !> ## Kernels for computing broadband fluxes !> ! ------------------------------------------------------------------------------------------------- module mo_fluxes_broadband_kernels use , intrinsic :: iso_c_binding use mo_rte_kind , only : wp implicit none private public :: sum_broadband , net_broadband interface net_broadband !! Interface for computing net flux module procedure net_broadband_full , net_broadband_precalc end interface net_broadband contains ! ---------------------------------------------------------------------------- !> !> Spectral reduction over all points !> subroutine sum_broadband ( ncol , nlev , ngpt , spectral_flux , broadband_flux ) bind ( C , name = \"rte_sum_broadband\" ) integer , intent ( in ) :: ncol , nlev , ngpt !! Array sizes real ( wp ), dimension ( ncol , nlev , ngpt ), intent ( in ) :: spectral_flux !! Spectrally-resolved flux real ( wp ), dimension ( ncol , nlev ), intent ( out ) :: broadband_flux !! Sum of spectrally-resolved flux over `ngpt` integer :: icol , ilev , igpt real ( wp ) :: bb_flux_s ! local scalar version !$acc enter data copyin(spectral_flux) create(broadband_flux) !$omp target enter data map(to:spectral_flux) map(alloc:broadband_flux) !$acc parallel loop gang vector collapse(2) !$omp target teams distribute parallel do simd collapse(2) do ilev = 1 , nlev do icol = 1 , ncol bb_flux_s = 0.0_wp do igpt = 1 , ngpt bb_flux_s = bb_flux_s + spectral_flux ( icol , ilev , igpt ) end do broadband_flux ( icol , ilev ) = bb_flux_s end do end do !$acc exit data delete(spectral_flux) copyout(broadband_flux) !$omp target exit data map(release:spectral_flux) map(from:broadband_flux) end subroutine sum_broadband ! ---------------------------------------------------------------------------- !> !> Spectral reduction over all points for net flux !> subroutine net_broadband_full ( ncol , nlev , ngpt , spectral_flux_dn , spectral_flux_up , broadband_flux_net ) & bind ( C , name = \"rte_net_broadband_full\" ) integer , intent ( in ) :: ncol , nlev , ngpt !! Array sizes real ( wp ), dimension ( ncol , nlev , ngpt ), intent ( in ) :: spectral_flux_dn , spectral_flux_up !! Spectrally-resolved flux up and down real ( wp ), dimension ( ncol , nlev ), intent ( out ) :: broadband_flux_net !! Net (down minus up) summed over `ngpt` integer :: icol , ilev , igpt real ( wp ) :: diff !$acc enter data copyin(spectral_flux_dn, spectral_flux_up) create(broadband_flux_net) !$omp target enter data map(to:spectral_flux_dn, spectral_flux_up) map(alloc:broadband_flux_net) !$acc parallel loop collapse(2) !$omp target teams distribute parallel do simd collapse(2) do ilev = 1 , nlev do icol = 1 , ncol diff = spectral_flux_dn ( icol , ilev , 1 ) - spectral_flux_up ( icol , ilev , 1 ) broadband_flux_net ( icol , ilev ) = diff end do end do !$acc parallel loop collapse(3) !$omp target teams distribute parallel do simd collapse(3) do igpt = 2 , ngpt do ilev = 1 , nlev do icol = 1 , ncol diff = spectral_flux_dn ( icol , ilev , igpt ) - spectral_flux_up ( icol , ilev , igpt ) !$acc atomic update !$omp atomic update broadband_flux_net ( icol , ilev ) = broadband_flux_net ( icol , ilev ) + diff end do end do end do !$acc exit data delete(spectral_flux_dn, spectral_flux_up) copyout(broadband_flux_net) !$omp target exit data map(release:spectral_flux_dn, spectral_flux_up) map(from:broadband_flux_net) end subroutine net_broadband_full ! ---------------------------------------------------------------------------- !> !> Net flux when bradband flux up and down are already available !> subroutine net_broadband_precalc ( ncol , nlev , flux_dn , flux_up , broadband_flux_net ) & bind ( C , name = \"rte_net_broadband_precalc\" ) integer , intent ( in ) :: ncol , nlev !! Array sizes real ( wp ), dimension ( ncol , nlev ), intent ( in ) :: flux_dn , flux_up !! Broadband downward and upward fluxes real ( wp ), dimension ( ncol , nlev ), intent ( out ) :: broadband_flux_net !! Net (down minus up) integer :: icol , ilev !$acc enter data copyin(flux_dn, flux_up) create(broadband_flux_net) !$omp target enter data map(to:flux_dn, flux_up) map(alloc:broadband_flux_net) !$acc parallel loop collapse(2) !$omp target teams distribute parallel do simd collapse(2) do ilev = 1 , nlev do icol = 1 , ncol broadband_flux_net ( icol , ilev ) = flux_dn ( icol , ilev ) - flux_up ( icol , ilev ) end do end do !$acc exit data delete(flux_dn, flux_up) copyout(broadband_flux_net) !$omp target exit data map(release:flux_dn, flux_up) map(from:broadband_flux_net) end subroutine net_broadband_precalc ! ---------------------------------------------------------------------------- end module mo_fluxes_broadband_kernels","tags":"","loc":"sourcefile/mo_fluxes_broadband_kernels.f90.html"}]}
\ No newline at end of file
diff --git a/release-notes/2023/11/27/v1.8-Release-notes.html b/release-notes/2023/11/27/v1.8-Release-notes.html
new file mode 100644
index 000000000..8fd816f94
--- /dev/null
+++ b/release-notes/2023/11/27/v1.8-Release-notes.html
@@ -0,0 +1,92 @@
+<!DOCTYPE html>
+<html lang="en"><head>
+  <meta charset="utf-8">
+  <meta http-equiv="X-UA-Compatible" content="IE=edge">
+  <meta name="viewport" content="width=device-width, initial-scale=1"><!-- Begin Jekyll SEO tag v2.8.0 -->
+<title>v1.8 Release notes | RTE-RRTMGP</title>
+<meta name="generator" content="Jekyll v4.2.2" />
+<meta property="og:title" content="v1.8 Release notes" />
+<meta property="og:locale" content="en_US" />
+<meta name="description" content="Commit 3ac0636 to branch main makes the following changes:" />
+<meta property="og:description" content="Commit 3ac0636 to branch main makes the following changes:" />
+<link rel="canonical" href="https://earth-system-radiation.github.io//rte-rrtmgp/release-notes/2023/11/27/v1.8-Release-notes.html" />
+<meta property="og:url" content="https://earth-system-radiation.github.io//rte-rrtmgp/release-notes/2023/11/27/v1.8-Release-notes.html" />
+<meta property="og:site_name" content="RTE-RRTMGP" />
+<meta property="og:type" content="article" />
+<meta property="article:published_time" content="2023-11-27T00:00:00+00:00" />
+<meta name="twitter:card" content="summary" />
+<meta property="twitter:title" content="v1.8 Release notes" />
+<script type="application/ld+json">
+{"@context":"https://schema.org","@type":"BlogPosting","dateModified":"2023-11-27T00:00:00+00:00","datePublished":"2023-11-27T00:00:00+00:00","description":"Commit 3ac0636 to branch main makes the following changes:","headline":"v1.8 Release notes","mainEntityOfPage":{"@type":"WebPage","@id":"https://earth-system-radiation.github.io//rte-rrtmgp/release-notes/2023/11/27/v1.8-Release-notes.html"},"url":"https://earth-system-radiation.github.io//rte-rrtmgp/release-notes/2023/11/27/v1.8-Release-notes.html"}</script>
+<!-- End Jekyll SEO tag -->
+<link rel="stylesheet" href="/rte-rrtmgp/assets/main.css"><link type="application/atom+xml" rel="alternate" href="https://earth-system-radiation.github.io//rte-rrtmgp/feed.xml" title="RTE-RRTMGP" /></head>
+<body><header class="site-header" role="banner">
+
+  <div class="wrapper"><a class="site-title" rel="author" href="/rte-rrtmgp/">RTE-RRTMGP</a><nav class="site-nav">
+        <input type="checkbox" id="nav-trigger" class="nav-trigger" />
+        <label for="nav-trigger">
+          <span class="menu-icon">
+            <svg viewBox="0 0 18 15" width="18px" height="15px">
+              <path d="M18,1.484c0,0.82-0.665,1.484-1.484,1.484H1.484C0.665,2.969,0,2.304,0,1.484l0,0C0,0.665,0.665,0,1.484,0 h15.032C17.335,0,18,0.665,18,1.484L18,1.484z M18,7.516C18,8.335,17.335,9,16.516,9H1.484C0.665,9,0,8.335,0,7.516l0,0 c0-0.82,0.665-1.484,1.484-1.484h15.032C17.335,6.031,18,6.696,18,7.516L18,7.516z M18,13.516C18,14.335,17.335,15,16.516,15H1.484 C0.665,15,0,14.335,0,13.516l0,0c0-0.82,0.665-1.483,1.484-1.483h15.032C17.335,12.031,18,12.695,18,13.516L18,13.516z"/>
+            </svg>
+          </span>
+        </label>
+
+        <div class="trigger"><a class="page-link" href="/rte-rrtmgp/">RTE+RRTMGP documentation</a><a class="page-link" href="/rte-rrtmgp/how-tos/">How-to guides</a><a class="page-link" href="/rte-rrtmgp/tutorials/">Tutorials</a><a class="page-link" href="/rte-rrtmgp/explanations/">Explanations</a><a class="page-link" href="/rte-rrtmgp/reference/">Reference (technical documentation)</a></div>
+      </nav></div>
+</header>
+<main class="page-content" aria-label="Content">
+      <div class="wrapper">
+        <article class="post h-entry" itemscope itemtype="http://schema.org/BlogPosting">
+
+  <header class="post-header">
+    <h1 class="post-title p-name" itemprop="name headline">v1.8 Release notes</h1>
+    <p class="post-meta">
+      <time class="dt-published" datetime="2023-11-27T00:00:00+00:00" itemprop="datePublished">Nov 27, 2023
+      </time></p>
+  </header>
+
+  <div class="post-content e-content" itemprop="articleBody">
+    <p>Commit <a href="https://github.com/earth-system-radiation/rte-rrtmgp/commit/3ac0636b17d6a3f11e4085f91679393fceaa4e18">3ac0636</a> 
+to branch <code class="language-plaintext highlighter-rouge">main</code> makes the following changes:</p>
+
+<ul>
+  <li>Libraries can be built in single precision by changes in <code class="language-plaintext highlighter-rouge">rte-kind/mo_rte_kind.F90</code>. Differences with respect to double precision are roughly 0.13 W/m2.</li>
+  <li>A class for computing the optical properties of aerosols following the MERRA representation has been added.</li>
+  <li>The repository is reorganized into <code class="language-plaintext highlighter-rouge">frontend</code> and <code class="language-plaintext highlighter-rouge">kernel</code> directories for <code class="language-plaintext highlighter-rouge">rte</code> and <code class="language-plaintext highlighter-rouge">rrtmgp</code>. Data has been moved to a separate [repository])((https://github.com/earth-system-radiation/rrtmgp-data/).</li>
+  <li>Citation information has been added.</li>
+</ul>
+
+<p>As usual some bugs have been fixed, the use of OpenACC and OpenMP GPU offload directives continues to evolve, and the continous integration continues to be fine-tuned.</p>
+
+  </div><a class="u-url" href="/rte-rrtmgp/release-notes/2023/11/27/v1.8-Release-notes.html" hidden></a>
+</article>
+
+      </div>
+    </main><footer class="site-footer h-card">
+  <data class="u-url" href="/rte-rrtmgp/"></data>
+
+  <div class="wrapper">
+
+    <h2 class="footer-heading">RTE-RRTMGP</h2>
+
+    <div class="footer-col-wrapper">
+      <div class="footer-col footer-col-1">
+        <ul class="contact-list">
+          <li class="p-name">RTE-RRTMGP</li><li><a class="u-email" href="mailto:rrtmgp@aer.com">rrtmgp@aer.com</a></li></ul>
+      </div>
+
+      <div class="footer-col footer-col-2"><ul class="social-media-list"><li><a href="https://github.com/earth-system-radiation"><svg class="svg-icon"><use xlink:href="/rte-rrtmgp/assets/minima-social-icons.svg#github"></use></svg> <span class="username">earth-system-radiation</span></a></li></ul>
+</div>
+
+      <div class="footer-col footer-col-3">
+        <p>RTE+RRTMGP is a set of codes for computing radiative fluxes in planetary atmospheres. RRTMGP uses a k-distribution to provide an optical description (absorption and possibly Rayleigh optical depth) of the gaseous atmosphere, along with the relevant source functions, on a pre-determined spectral grid given temperatures, pressures, and gas concentration. RTE computes fluxes given spectrally-resolved optical descriptions and source functions.</p>
+      </div>
+    </div>
+
+  </div>
+
+</footer>
+</body>
+
+</html>