<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->next;
}
-/* STILL TO DO
nl = namelists;
while (nl) {
if (nl->vtype == INTEGER)
- fortprintf(fd, " nferr = nf_put_att_int(output_obj %% wr_ncid, NF_GLOBAL, \'%s\', NF_INT, 1, %s)</font>
<font color="blue">", nl->name, nl->name);
+ fortprintf(fd, " nferr = put_att_int(output_obj %% pio_file, PIO_GLOBAL, \'%s\', %s)</font>
<font color="red">", nl->name, nl->name);
else if (nl->vtype == REAL) {
- fortprintf(fd, " if (RKIND == 8) then</font>
<font color="red">", nl->name);
- fortprintf(fd, " nferr = nf_put_att_double(output_obj %% wr_ncid, NF_GLOBAL, \'%s\', NF_DOUBLE, 1, %s)</font>
<font color="red">", nl->name, nl->name);
- fortprintf(fd, " else if (RKIND == 4) then</font>
<font color="red">", nl->name);
- fortprintf(fd, " nferr = nf_put_att_real(output_obj %% wr_ncid, NF_GLOBAL, \'%s\', NF_FLOAT, 1, %s)</font>
<font color="red">", nl->name, nl->name);
- fortprintf(fd, " end if</font>
<font color="blue">");
+ fortprintf(fd, " nferr = put_att_double(output_obj %% pio_file, PIO_GLOBAL, \'%s\', %s)</font>
<font color="red">", nl->name, nl->name);
}
else if (nl->vtype == CHARACTER)
- fortprintf(fd, " nferr = nf_put_att_text(output_obj %% wr_ncid, NF_GLOBAL, \'%s\', len_trim(%s), trim(%s))</font>
<font color="blue">", nl->name, nl->name, nl->name);
+ fortprintf(fd, " nferr = put_att_text(output_obj %% pio_file, PIO_GLOBAL, \'%s\', trim(%s))</font>
<font color="black">", nl->name, nl->name);
else if (nl->vtype == LOGICAL) {
fortprintf(fd, " if (%s) then</font>
<font color="red">", nl->name);
- fortprintf(fd, " nferr = nf_put_att_text(output_obj %% wr_ncid, NF_GLOBAL, \'%s\', 1, \'T\')</font>
<font color="blue">", nl->name);
+ fortprintf(fd, " nferr = put_att_text(output_obj %% pio_file, PIO_GLOBAL, \'%s\', \'T\')</font>
<font color="black">", nl->name);
fortprintf(fd, " else</font>
<font color="red">");
- fortprintf(fd, " nferr = nf_put_att_text(output_obj %% wr_ncid, NF_GLOBAL, \'%s\', 1, \'F\')</font>
<font color="blue">", nl->name);
+ fortprintf(fd, " nferr = put_att_text(output_obj %% pio_file, PIO_GLOBAL, \'%s\', \'F\')</font>
<font color="black">", nl->name);
fortprintf(fd, " end if</font>
<font color="red">");
}
nl = nl->next;
}
-*/
fclose(fd);
</font>
</pre>