      <span class="keywordtype">real (kind=dbl_kind)</span>, <span class="keywordtype">parameter</span> :: 
<a name="l00042"></a>00042          cprho = cp_ocn*rhow
<a name="l00043"></a>00043 
<a name="l00044"></a>00044 <span class="comment">!=======================================================================</span>
<a name="l00045"></a>00045 
<a name="l00046"></a>00046       <span class="keyword">contains</span>
<a name="l00047"></a>00047 
<a name="l00048"></a>00048 <span class="comment">!==============