      <span class="c">! 1D nearest grid point weighting in minor radius</span>

       <span class="c">!    RR=spp%vars%Y(:,1)</span>
       <span class="c">!    ZZ=spp%vars%Y(:,3)</span>
       <span class="n">rm</span><span class="p">(</span><span class="n">cc</span><span class="p">)</span><span class="o">=</span><span class="nb">sqrt</span><span class="p">((</span><span class="n">Y_R</span><span class="p">(</span><span class="n">cc</span><span class="p">)</span><span class="o">-</span><span class="n">F</