<p><b>duda</b> 2010-09-17 10:40:45 -0600 (Fri, 17 Sep 2010)</p><p>BRANCH COMMIT<br>
<br>
Uncomment a NaN-checking block that was commented out during testing<br>
and should have been restored before the previous commit.<br>
<br>
<br>
M    src/core_ocean/module_time_integration.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/registry_reorg/src/core_ocean/module_time_integration.F
===================================================================
--- branches/registry_reorg/src/core_ocean/module_time_integration.F        2010-09-17 16:37:11 UTC (rev 504)
+++ branches/registry_reorg/src/core_ocean/module_time_integration.F        2010-09-17 16:40:45 UTC (rev 505)
@@ -40,10 +40,10 @@
          block % state % time_levs(2) % state % xtime % scalar &amp;
            = block % state % time_levs(1) % state % xtime % scalar + dt
 
-!         if (isNaN(sum(block % state % time_levs(2) % state % u % array))) then
-!            write(0,*) 'Abort: NaN detected'
-!            call dmpar_abort(dminfo)
-!         endif
+         if (isNaN(sum(block % state % time_levs(2) % state % u % array))) then
+            write(0,*) 'Abort: NaN detected'
+            call dmpar_abort(dminfo)
+         endif
 
          block =&gt; block % next
       end do

</font>
</pre>