lass="comment">! transfer coefficient for latent heat</span>
<a name="l00100"></a>00100 
<a name="l00101"></a>00101       <span class="keywordtype">integer (kind=int_kind)</span>, <span class="keywordtype">save</span> :: 
<a name="l00102"></a>00102          icells    <span class="comment">! number of ocean cells</span>
<a name="l00103"></a>00103 
<a name="l00104"></a>00104       <span class="keywordtype">integer (kind=int_kind)</span>, <span class="keywordtype">dimension(nx_block*ny_block)</span>, <span cla