_kind)</span>, <span class="keywordtype">intent(in)</span> :: 
<a name="l00078"></a>00078          dt      <span class="comment">! time step</span>
<a name="l00079"></a>00079 <span class="comment">!</span>
<a name="l00080"></a>00080 <span class="comment">!EOP</span>
<a name="l00081"></a>00081 <span class="comment">!</span>
<a name="l00082"></a>00082       <span class="keywordtype">real (kind=dbl_kind) </span>:: 
<a name="l00083"></a>00083          TsfK ,  <span class="comment">! surface temperature (K)</spa