<p><b>duda</b> 2013-03-04 10:51:20 -0700 (Mon, 04 Mar 2013)</p><p>BRANCH COMMIT<br>
<br>
Fix an apparent issue with an uninitialized field in one of the I/O<br>
structures when reading or writing super-arrays. For super-arrays,<br>
the first constituent of the array has its structures properly set up,<br>
and the remaining constituents do nothing. In rare cases, the field_type<br>
can end up with a valid value (although it is uninitialized) on some<br>
tasks, causing those tasks to make collective calls that other tasks<br>
don't. <br>
<br>
The simplest fix is to just initialize the offending field to a safe<br>
value, but perhaps a more elegant solution can be devised that avoids<br>
adding all super-array constituents to the linked list in a stream.<br>
<br>
<br>
M src/framework/mpas_io_streams.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/framework/mpas_io_streams.F
===================================================================
--- branches/atmos_physics/src/framework/mpas_io_streams.F 2013-03-04 17:32:49 UTC (rev 2544)
+++ branches/atmos_physics/src/framework/mpas_io_streams.F 2013-03-04 17:51:20 UTC (rev 2545)
@@ -6,7 +6,7 @@
use mpas_io
type field_list_type
- integer :: field_type
+ integer :: field_type = -999
logical :: isDecomposed
integer :: totalDimSize ! Total size of outer dimension across all blocks for decomposed fields
logical, dimension(:), pointer :: isAvailable => null() ! Used for reading super-arrays where one or more
</font>
</pre>