<p><b>dwj07@fsu.edu</b> 2013-04-11 15:17:28 -0600 (Thu, 11 Apr 2013)</p><p><br>
        -- BRANCH COMMIT --<br>
<br>
        Changing version attribute to model_version<br>
</p><hr noshade><pre><font color="gray">Modified: branches/history_attribute/src/framework/mpas_io_output.F
===================================================================
--- branches/history_attribute/src/framework/mpas_io_output.F        2013-04-11 21:04:16 UTC (rev 2737)
+++ branches/history_attribute/src/framework/mpas_io_output.F        2013-04-11 21:17:28 UTC (rev 2738)
@@ -334,8 +334,6 @@
mesh &
)
- use mpas_constants
-
implicit none
type (domain_type), intent(in) :: domain
@@ -348,9 +346,9 @@
character (len=StrKIND*4) :: runCmd
if(len(trim(domain % history)) > 0) then
- write(runCmd,'(a,a,i0,a,a,a)') trim(domain % history),';mpirun -n ',domain % dminfo % nProcs, ' ', trim(domain % coreName), '_model.exe;'
+ write(runCmd,'(a,a,i0,a,a,a)') trim(domain % history),'; mpirun -n ',domain % dminfo % nProcs, ' ', trim(domain % coreName), '_model.exe; '
else
- write(runCmd,'(a,i0,a,a,a)') 'mpirun -n ',domain % dminfo % nProcs, ' ', trim(domain % coreName), '_model.exe;'
+ write(runCmd,'(a,i0,a,a,a)') 'mpirun -n ',domain % dminfo % nProcs, ' ', trim(domain % coreName), '_model.exe; '
end if
call MPAS_createStream(output_obj % io_stream, trim(output_obj % filename), MPAS_IO_PNETCDF, MPAS_IO_WRITE, 1, nferr)
@@ -365,7 +363,7 @@
call MPAS_writeStreamAtt(output_obj % io_stream, 'sphere_radius', mesh % sphere_radius, nferr)
call MPAS_writeStreamAtt(output_obj % io_stream, 'model_name', domain % modelName, nferr)
call MPAS_writeStreamAtt(output_obj % io_stream, 'core_name', domain % coreName, nferr)
- call MPAS_writeStreamAtt(output_obj % io_stream, 'version', domain % modelVersion, nferr)
+ call MPAS_writeStreamAtt(output_obj % io_stream, 'model_version', domain % modelVersion, nferr)
call MPAS_writeStreamAtt(output_obj % io_stream, 'history', runCmd, nferr)
#include "add_output_atts.inc"
</font>
</pre>