<p><b>dwj07@fsu.edu</b> 2011-10-11 11:36:58 -0600 (Tue, 11 Oct 2011)</p><p><br>
        -- BRANCH COMMIT --<br>
<br>
        Reducing the number of digits printed for global diagnostics.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/performance/src/core_ocean/mpas_ocn_global_diagnostics.F
===================================================================
--- branches/ocean_projects/performance/src/core_ocean/mpas_ocn_global_diagnostics.F        2011-10-11 17:05:12 UTC (rev 1057)
+++ branches/ocean_projects/performance/src/core_ocean/mpas_ocn_global_diagnostics.F        2011-10-11 17:36:58 UTC (rev 1058)
@@ -310,27 +310,27 @@
       if (dminfo % my_proc_id == IO_NODE) then
          fileID = getFreeUnit()
          open(fileID,file='stats_min.txt',ACCESS='append')
-            write (fileID,'(100es24.16)') mins(1:nVariables)
+            write (fileID,'(100es24.14)') mins(1:nVariables)
          close (fileID)
          open(fileID,file='stats_max.txt',ACCESS='append')
-            write (fileID,'(100es24.16)') maxes(1:nVariables)
+            write (fileID,'(100es24.14)') maxes(1:nVariables)
          close (fileID)
          open(fileID,file='stats_sum.txt',ACCESS='append')
-            write (fileID,'(100es24.16)') sums(1:nVariables)
+            write (fileID,'(100es24.14)') sums(1:nVariables)
          close (fileID)
          open(fileID,file='stats_avg.txt',ACCESS='append')
-            write (fileID,'(100es24.16)') averages(1:nVariables)
+            write (fileID,'(100es24.14)') averages(1:nVariables)
          close (fileID)
          open(fileID,file='stats_time.txt',ACCESS='append')
-            write (fileID,'(i5,10x,a,100es24.16)') timeIndex, &amp;
+            write (fileID,'(i5,10x,a,100es24.14)') timeIndex, &amp;
                state % xtime % scalar, dt, &amp;
                CFLNumberGlobal
          close (fileID)
          open(fileID,file='stats_colmin.txt',ACCESS='append')
-            write (fileID,'(100es24.16)') verticalSumMins(1:nVariables)
+            write (fileID,'(100es24.14)') verticalSumMins(1:nVariables)
          close (fileID)
          open(fileID,file='stats_colmax.txt',ACCESS='append')
-            write (fileID,'(100es24.16)') verticalSumMaxes(1:nVariables)
+            write (fileID,'(100es24.14)') verticalSumMaxes(1:nVariables)
          close (fileID)
       end if
 

</font>
</pre>