tryhing to isolate put problem

E3SM-Project · Jun 6, 2016 · b2f19be · b2f19be
1 parent 378ac20
commit b2f19be
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/src/clib/pio_get_nc_async.c b/src/clib/pio_get_nc_async.c
@@ -140,6 +140,9 @@ int PIOc_get_vars_tc(int ncid, int varid, const PIO_Offset *start, const PIO_Off
 #ifdef PNET_READ_AND_BCAST
 	    LOG((1, "PNET_READ_AND_BCAST"));
 	    ncmpi_begin_indep_data(file->fh);
+
+	    /* Only the IO master does the IO, so we are not really
+	     * getting parallel IO here. */
 	    if (ios->iomaster)
 	    {
 		switch(xtype)

diff --git a/src/clib/pio_put_nc_async.c b/src/clib/pio_put_nc_async.c
@@ -178,6 +178,8 @@ int PIOc_put_vars_tc(int ncid, int varid, const PIO_Offset *start, const PIO_Off
 	    LOG((2, "PIOc_put_vars_tc request = %d", vdesc->request));	    
 
 	    if(ios->io_rank == 0)
+	    {
+		LOG((2, "PIOc_put_vars_tc io_rank 0 doing pnetcdf call"));	    
 		switch(xtype)
 		{
 		case NC_BYTE:
@@ -203,8 +205,9 @@ int PIOc_put_vars_tc(int ncid, int varid, const PIO_Offset *start, const PIO_Off
 		    break;
 		default:
 		    LOG((0, "Unknown type for pnetcdf file! xtype = %d", xtype));
-
 		}
+		LOG((2, "PIOc_put_vars_tc io_rank 0 done with pnetcdf call"));	    
+	    }
 	    else
 		*request = PIO_REQ_NULL;