Index: /issm/trunk/src/c/io/pfclose.cpp
===================================================================
--- /issm/trunk/src/c/io/pfclose.cpp	(revision 3142)
+++ /issm/trunk/src/c/io/pfclose.cpp	(revision 3143)
@@ -18,5 +18,8 @@
 
 	/*Close file handle: */
-	if(fclose(fid)!=0)throw ErrorException(__FUNCT__,exprintf("%s%s","could not close file ",filename));
+	extern int my_rank;
+	if(my_rank==0){
+		if(fclose(fid)!=0)throw ErrorException(__FUNCT__,exprintf("%s%s","could not close file ",filename));
+	}
 }