As in the example netcdf4 NC_FILL is OFF.   The issue isn't what ncdump does, its what get_var_text does.   When a string is written with put_var_text as in the example get_var_text cannot properly read it.   I should not have to modify my code to have this work correctly.   <br>
<br><div class="gmail_quote">On Sun, Aug 5, 2012 at 9:44 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">
Hi, Jim,<br>
<br>
Please understand pnetcdf does correctly follow the semantics of "put_var_text"<br>
and those garbage characters are expected. The strategy of netCDF's buffering<br>
the write data until nc_sync or nc_close may cause slow performance for large<br>
variables.<br>
<br>
Even if I added a char(0) at the end of the string, ncmpidump/ncdump will still<br>
print the garbage tailing characters, because both dumps check all tailing<br>
characters against char(0), starting from the end of array toward the begin.<br>
So, in order to get the same output as netcdf4, pnetcdf has to fill all the<br>
non-written part of the variable with char(0), which is equivalent to implementing<br>
the NF_FILL mode.<br>
<br>
In order to get the same netcdf results, you can add the following in your codes.<br>
<br>
    do i=LEN_TRIM(buf)+1, 80<br>
        buf(i:i) = char(0)<br>
    enddo<br>
<div class="im">    status = nfmpi_put_var_text(ncid, varid, buf)<br>
<br>
</div>Hope this helps.<br>
<span class="HOEnZb"><font color="#888888"><br>
Wei-keng<br>
</font></span><div class="HOEnZb"><div class="h5"><br>
On Aug 4, 2012, at 8:01 AM, Jim Edwards wrote:<br>
<br>
> Hi Wei-keng,<br>
><br>
> The tailing junk may be there in the netcdf output but it is preceeded by a char(0) null string terminator so the variable written using netcdf is read correctly.  The pnetcdf variable cannot be read correctly as written.   I don't think that you need to copy to another buffer, you just need to add a terminator to the string.<br>

><br>
> Jim<br>
><br>
> On Fri, Aug 3, 2012 at 3:55 PM, Wei-keng Liao <<a href="mailto:wkliao@ece.northwestern.edu">wkliao@ece.northwestern.edu</a>> wrote:<br>
> Hi, Jim<br>
><br>
> I can reproduce the results you got when using ncmpidump and ncdump.<br>
><br>
> When you used trim(buf) in nf90_put_var(), you are telling netcdf4<br>
> to write 17 characters (implicitly count(1)==17 will be used internally<br>
> due to function overloading in F90). So, in theory, those tailing garbage<br>
> characters are expected.<br>
><br>
> After checking the netcdf 4.1.3 source codes, I found that the data to<br>
> be written will be first copied to an internal buffer (of chunk size<br>
> 8192 by default) and later flushed to the file. The internal buffer<br>
> appears to be initialized to all 0s. NetCDF developers can confirm this.<br>
><br>
> So, in your case, the call to nf90_put_var() is actually copying 17<br>
> characters to that buffer. Since ncdump/ncmpidump skips the tailing<br>
> '\0' characters, the output gives no tailing garbage.<br>
><br>
> In Pnetcdf, we do not copy write data to a temporary buffer, so the<br>
> unwritten part of the variable contains undefined contents.<br>
><br>
> Wei-keng<br>
><br>
> On Aug 3, 2012, at 9:09 AM, Jim Edwards wrote:<br>
><br>
> > 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" target="_blank">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" target="_blank">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" target="_blank">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" target="_blank">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" target="_blank">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>
> > On Thu, Aug 2, 2012 at 9:19 PM, Wei-keng Liao <<a href="mailto:wkliao@ece.northwestern.edu">wkliao@ece.northwestern.edu</a>> wrote:<br>
> ><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>
> ><br>
> ><br>
> > Wei-keng<br>
> ><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>
> ><br>
> ><br>
> ><br>
> > --<br>
> > Jim Edwards<br>
> ><br>
> ><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>