></a>00192       <span class="keyword">do</span> ij = 1, icells
<a name="l00193"></a>00193          i = indxi(ij)
<a name="l00194"></a>00194          j = indxj(ij)
<a name="l00195"></a>00195 
<a name="l00196"></a>00196          <span class="comment">! shortwave radiative flux</span>
<a name="l00197"></a>00197          swabs = (<a class="code" href="namespaceice__constants.html#a74c3f6d59942aec40dda487c6af99039">c1</a>-<a class="code" href="namespaceice__flux.html#a0d5c384f44be34217703bef2e23ebdc6">alvdr_ocn