n>
<a name="l00084"></a>00084          swabs    <span class="comment">! surface absorbed shortwave heat flux (W/m^2)</span>
<a name="l00085"></a>00085 
<a name="l00086"></a>00086       <span class="keywordtype">real (kind=dbl_kind)</span>, <span class="keywordtype">parameter</span> :: 
<a name="l00087"></a>00087          frzmlt_max = c1000   <span class="comment">! max magnitude of frzmlt (W/m^2)</span>
<a name="l00088"></a>00088 
<a name="l00089"></a>00089       <span class="keywordtype">integer (kind=int_