Hi Wei-keng,<br><br>Here is a program that shows the problem. Running with pnetcdf I get <br> var = "./none/foo.009.ncuth\000\000\000\000 |\215\000\000\000\000\000p\257\377\377\377\177\000\000\250\260\377\377\377\177\000\000\230\260\377\377\377\177\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000v\377a" ;<br>
<br>while netcdf results in:<br><br> var = "./none/<a href="http://foo.009.nc">foo.009.nc</a>" ;<br><br><br>no garbage, no extra space.<br><br><br>#ifdef PNETCDF<br>program main<br> use pnetcdf<br> implicit none<br>
include 'mpif.h'<br><br> integer i, status, ncid, varid, dimid(1)<br> integer(kind=MPI_OFFSET_KIND) :: len, count(1), offset(1)<br> character*(80) buf, rbuf<br><br> call MPI_Init(status)<br> status = nfmpi_create(MPI_COMM_WORLD, '<a href="http://ptestfile.nc">ptestfile.nc</a>', &<br>
NF_CLOBBER, MPI_INFO_NULL, ncid)<br> len = 80<br> status = nfmpi_def_dim(ncid, "dim", len, dimid(1))<br> status = nfmpi_def_var(ncid, "var", NF_CHAR, 1, dimid, varid)<br>
status = nfmpi_enddef(ncid)<br> status = nfmpi_begin_indep_data(ncid)<br><br> buf = "./none/<a href="http://foo.009.nc">foo.009.nc</a>"<br> status = nfmpi_put_var_text(ncid, varid,trim(buf))<br> status = nfmpi_end_indep_data(ncid)<br>
<br> status = nfmpi_close(ncid)<br> call MPI_Finalize(status)<br>end program<br>#else<br>program main<br> use netcdf<br> implicit none<br><br> integer i, status, ncid, varid, dimid(1)<br> integer :: len, count(1), offset(1)<br>
character*(80) buf, rbuf<br><br> status = nf90_create('<a href="http://ntestfile.nc">ntestfile.nc</a>', &<br> NF90_CLOBBER, ncid)<br> len = 80<br> status = nf90_set_fill(ncid, NF90_NOFILL, i)<br>
status = nf90_def_dim(ncid, "dim", len, dimid(1))<br> status = nf90_def_var(ncid, "var", NF90_CHAR, dimid, varid)<br> status = nf90_enddef(ncid)<br><br> buf = "./none/<a href="http://foo.009.nc">foo.009.nc</a>"<br>
status = nf90_put_var(ncid, varid, trim(buf))<br><br> status = nf90_close(ncid)<br>end program<br>#endif<br><br><br><div class="gmail_quote">On Thu, Aug 2, 2012 at 9:19 PM, Wei-keng Liao <span dir="ltr"><<a href="mailto:wkliao@ece.northwestern.edu" target="_blank">wkliao@ece.northwestern.edu</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><br>
I assume you are calling nfmpi_put_var_text. The "var" APIs are<br>
intended for writing the entire variable, which in your case it writes<br>
80 characters. PnetCDF (and netCDF) will not stop writing at the end<br>
of the string (string length == 17 in your case). Instead, it writes<br>
the whole 80 characters from the I/O buffer into the file.<br>
<br>
Are you seeing those 0s from running ncmpidump, but not from ncdump?<br>
Strangely, I got the same output from both ncmpidump and ncdump (4.1.3).<br>
See below. Let me know if this program is same as your program is doing.<br>
<br>
program main<br>
use pnetcdf<br>
implicit none<br>
include 'mpif.h'<br>
<br>
integer i, status, ncid, varid, dimid(1)<br>
integer(kind=MPI_OFFSET_KIND) :: len, count(1), offset(1)<br>
character*(80) buf, rbuf<br>
<br>
call MPI_Init(status)<br>
status = nfmpi_create(MPI_COMM_WORLD, '<a href="http://testfile.nc" target="_blank">testfile.nc</a>', &<br>
NF_CLOBBER, MPI_INFO_NULL, ncid)<br>
len = 80<br>
status = nfmpi_def_dim(ncid, "dim", len, dimid(1))<br>
status = nfmpi_def_var(ncid, "var", NF_CHAR, 1, dimid, varid)<br>
status = nfmpi_enddef(ncid)<br>
status = nfmpi_begin_indep_data(ncid)<br>
<br>
buf = "./none/<a href="http://foo.009.nc" target="_blank">foo.009.nc</a>"<br>
status = nfmpi_put_var_text(ncid, varid, buf)<br>
status = nfmpi_end_indep_data(ncid)<br>
<br>
status = nfmpi_close(ncid)<br>
call MPI_Finalize(status)<br>
end program<br>
<br>
% ncmpidump <a href="http://testfile.nc" target="_blank">testfile.nc</a><br>
netcdf testfile {<br>
// file format: CDF-1<br>
dimensions:<br>
dim = 80 ;<br>
variables:<br>
char var(dim) ;<br>
data:<br>
<br>
var = "./none/<a href="http://foo.009.nc" target="_blank">foo.009.nc</a> " ;<br>
}<br>
<br>
% 4.1.3/bin/ncdump <a href="http://testfile.nc" target="_blank">testfile.nc</a><br>
netcdf testfile {<br>
dimensions:<br>
dim = 80 ;<br>
variables:<br>
char var(dim) ;<br>
data:<br>
<br>
var = "./none/<a href="http://foo.009.nc" target="_blank">foo.009.nc</a> " ;<br>
}<br>
<span class="HOEnZb"><font color="#888888"><br>
<br>
Wei-keng<br>
</font></span><div class="HOEnZb"><div class="h5"><br>
On Aug 2, 2012, at 9:26 AM, Jim Edwards wrote:<br>
<br>
> Hi Wei-keng,<br>
><br>
> In standard netcdf I set NC_NO_FILL when I open the file and I still get this behavior. I think that you just need to null terminate the string when you pass it from fortran to c.<br>
><br>
> Jim<br>
><br>
> On Wed, Aug 1, 2012 at 7:58 PM, Wei-keng Liao <<a href="mailto:wkliao@ece.northwestern.edu">wkliao@ece.northwestern.edu</a>> wrote:<br>
> Hi, Jim<br>
><br>
> NetCDF's default for fill mode is NC_FILL and the default fill value for char type<br>
> is NC_FILL_CHAR == (char)0. See netCDF user guide below.<br>
> <a href="http://www.unidata.ucar.edu/software/netcdf/docs/netcdf-c.html#nc_005fset_005ffill" target="_blank">http://www.unidata.ucar.edu/software/netcdf/docs/netcdf-c.html#nc_005fset_005ffill</a><br>
> <a href="http://www.unidata.ucar.edu/software/netcdf/docs/netcdf-c.html#Fill-Values" target="_blank">http://www.unidata.ucar.edu/software/netcdf/docs/netcdf-c.html#Fill-Values</a><br>
><br>
> In PnetCDF, only NC_NOFILL is implemented. So, for those spaces that were not<br>
> written by the application, their contents are undefined.<br>
><br>
><br>
> Wei-keng<br>
><br>
> On Aug 1, 2012, at 11:27 AM, Jim Edwards wrote:<br>
><br>
> > If I declare a character string variable with a length x and then write a string of length y<x using nfmpi_put_var_char<br>
> > what is the expected behavior? I think that what I am getting is incorrect (a bunch of garbage in the string from y:x )<br>
> ><br>
> > So for example I want to write string './none/<a href="http://foo.009.nc" target="_blank">foo.009.nc</a>' into a variable of length 80. In the file I am getting:<br>
> ><br>
> > './none/<a href="http://foo.009.nc" target="_blank">foo.009.nc</a> 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0'<br>
> ><br>
> ><br>
> > I think that this is a bug.<br>
> ><br>
> ><br>
> > This is happening with the latest pnetcdf svn trunk code on jaguarpf compiled using:<br>
> ><br>
> > Currently Loaded Modulefiles:<br>
> > 1) modules/<a href="http://3.2.6.6" target="_blank">3.2.6.6</a> 10) xpmem/0.1-2.0400.31280.3.1.gem 19) DefApps<br>
> > 2) xtpe-network-gemini 11) xe-sysroot/4.0.46 20) altd/1.0<br>
> > 3) pgi/12.5.0 12) xt-asyncpe/5.11 21) subversion/1.6.17<br>
> > 4) xt-libsci/11.1.00 13) atp/1.4.1 22) szip/2.1<br>
> > 5) udreg/2.3.2-1.0400.5038.0.0.gem 14) PrgEnv-pgi/4.0.46 23) hdf5/1.8.7<br>
> > 6) ugni/2.3-1.0400.4374.4.88.gem 15) xt-mpich2/5.5.0 24) netcdf/4.1.3<br>
> > 7) pmi/3.0.0-1.0000.8661.28.2807.gem 16) xtpe-interlagos 25) esmf/5.2.0rp1<br>
> > 8) dmapp/3.2.1-1.0400.4782.3.1.gem 17) eswrap/1.0.9<br>
> > 9) gni-headers/2.1-1.0400.4351.3.1.gem 18) lustredu/1.0<br>
> ><br>
> > --<br>
> > Jim Edwards<br>
> ><br>
> > CESM Software Engineering Group<br>
> > National Center for Atmospheric Research<br>
> > Boulder, CO<br>
> > 303-497-1842<br>
> ><br>
><br>
><br>
><br>
><br>
> --<br>
> Jim Edwards<br>
><br>
><br>
><br>
<br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br><pre>Jim Edwards<br><br><br></pre><br>