<p><b>duda</b> 2011-11-30 15:40:56 -0700 (Wed, 30 Nov 2011)</p><p>BRANCH COMMIT<br>
<br>
Switch from hard-wired output file name of 'pio_output.nc' to whatever name<br>
is specified in the namelist; this is also necessary to allow multiple output<br>
files (e.g., with frames_per_outfile=1) to be generated.<br>
<br>
<br>
M    src/framework/mpas_io_output.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/pio/src/framework/mpas_io_output.F
===================================================================
--- branches/pio/src/framework/mpas_io_output.F        2011-11-30 21:25:38 UTC (rev 1221)
+++ branches/pio/src/framework/mpas_io_output.F        2011-11-30 22:40:56 UTC (rev 1222)
@@ -449,9 +449,10 @@
 
 write(0,*) 'MGD PIO_createfile'
 #ifdef OFFSET64BIT
-      nferr = PIO_createfile(output_obj % pio_iosystem, output_obj % pio_file, PIO_iotype_pnetcdf, 'pio_output.nc', PIO_64BIT_OFFSET)
+      nferr = PIO_createfile(output_obj % pio_iosystem, output_obj % pio_file, PIO_iotype_pnetcdf, trim(output_obj % filename), &amp;
+                             PIO_64BIT_OFFSET)
 #else
-      nferr = PIO_createfile(output_obj % pio_iosystem, output_obj % pio_file, PIO_iotype_pnetcdf, 'pio_output.nc')
+      nferr = PIO_createfile(output_obj % pio_iosystem, output_obj % pio_file, PIO_iotype_pnetcdf, trim(output_obj % filename))
 #endif
  
 #if 0

</font>
</pre>