<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 &
= 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 => block % next
end do
</font>
</pre>