<p><b>duda</b> 2011-11-23 14:31:16 -0700 (Wed, 23 Nov 2011)</p><p>BRANCH COMMIT<br>
<br>
Add global attributes to PIO output files.<br>
<br>
<br>
M    src/framework/mpas_io_output.F<br>
M    src/registry/gen_inc.c<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-23 20:15:33 UTC (rev 1210)
+++ branches/pio/src/framework/mpas_io_output.F        2011-11-23 21:31:16 UTC (rev 1211)
@@ -7,6 +7,7 @@
    use mpas_timer
    use pio
    use piolib_mod
+   use pionfatt_mod
    use pio_types
 
    integer, parameter :: OUTPUT = 1

Modified: branches/pio/src/registry/gen_inc.c
===================================================================
--- branches/pio/src/registry/gen_inc.c        2011-11-23 20:15:33 UTC (rev 1210)
+++ branches/pio/src/registry/gen_inc.c        2011-11-23 21:31:16 UTC (rev 1211)
@@ -2567,30 +2567,24 @@
       var_ptr = var_ptr-&gt;next;
    }
 
-/* STILL TO DO 
    nl = namelists;
    while (nl) {
       if (nl-&gt;vtype == INTEGER)
-         fortprintf(fd, &quot;      nferr = nf_put_att_int(output_obj %% wr_ncid, NF_GLOBAL, \'%s\', NF_INT, 1, %s)</font>
<font color="blue">&quot;, nl-&gt;name, nl-&gt;name);
+         fortprintf(fd, &quot;      nferr = put_att_int(output_obj %% pio_file, PIO_GLOBAL, \'%s\', %s)</font>
<font color="red">&quot;, nl-&gt;name, nl-&gt;name);
       else if (nl-&gt;vtype == REAL) {
-         fortprintf(fd, &quot;      if (RKIND == 8) then</font>
<font color="red">&quot;, nl-&gt;name);
-         fortprintf(fd, &quot;         nferr = nf_put_att_double(output_obj %% wr_ncid, NF_GLOBAL, \'%s\', NF_DOUBLE, 1, %s)</font>
<font color="red">&quot;, nl-&gt;name, nl-&gt;name);
-         fortprintf(fd, &quot;      else if (RKIND == 4) then</font>
<font color="red">&quot;, nl-&gt;name);
-         fortprintf(fd, &quot;         nferr = nf_put_att_real(output_obj %% wr_ncid, NF_GLOBAL, \'%s\', NF_FLOAT, 1, %s)</font>
<font color="red">&quot;, nl-&gt;name, nl-&gt;name);
-         fortprintf(fd, &quot;      end if</font>
<font color="blue">&quot;);
+         fortprintf(fd, &quot;      nferr = put_att_double(output_obj %% pio_file, PIO_GLOBAL, \'%s\', %s)</font>
<font color="red">&quot;, nl-&gt;name, nl-&gt;name);
       }
       else if (nl-&gt;vtype == CHARACTER)
-         fortprintf(fd, &quot;      nferr = nf_put_att_text(output_obj %% wr_ncid, NF_GLOBAL, \'%s\', len_trim(%s), trim(%s))</font>
<font color="blue">&quot;, nl-&gt;name, nl-&gt;name, nl-&gt;name);
+         fortprintf(fd, &quot;      nferr = put_att_text(output_obj %% pio_file, PIO_GLOBAL, \'%s\', trim(%s))</font>
<font color="black">&quot;, nl-&gt;name, nl-&gt;name);
       else if (nl-&gt;vtype == LOGICAL) {
          fortprintf(fd, &quot;      if (%s) then</font>
<font color="red">&quot;, nl-&gt;name);
-         fortprintf(fd, &quot;         nferr = nf_put_att_text(output_obj %% wr_ncid, NF_GLOBAL, \'%s\', 1, \'T\')</font>
<font color="blue">&quot;, nl-&gt;name);
+         fortprintf(fd, &quot;         nferr = put_att_text(output_obj %% pio_file, PIO_GLOBAL, \'%s\', \'T\')</font>
<font color="black">&quot;, nl-&gt;name);
          fortprintf(fd, &quot;      else</font>
<font color="red">&quot;);
-         fortprintf(fd, &quot;         nferr = nf_put_att_text(output_obj %% wr_ncid, NF_GLOBAL, \'%s\', 1, \'F\')</font>
<font color="blue">&quot;, nl-&gt;name);
+         fortprintf(fd, &quot;         nferr = put_att_text(output_obj %% pio_file, PIO_GLOBAL, \'%s\', \'F\')</font>
<font color="black">&quot;, nl-&gt;name);
          fortprintf(fd, &quot;      end if</font>
<font color="red">&quot;);
       }
       nl = nl-&gt;next;
    }
-*/
 
    fclose(fd);   
 

</font>
</pre>