Index: /issm/trunk/src/c/io/pfclose.cpp
===================================================================
--- /issm/trunk/src/c/io/pfclose.cpp	(revision 6440)
+++ /issm/trunk/src/c/io/pfclose.cpp	(revision 6441)
@@ -17,4 +17,5 @@
 	/*Close file handle: */
 	extern int my_rank;
+	_assert_(fid);
 	if(fclose(fid)!=0)_error_("%s%s","could not close file ",filename);
 }
Index: /issm/trunk/src/c/modules/OutputResultsx/OutputResultsx.cpp
===================================================================
--- /issm/trunk/src/c/modules/OutputResultsx/OutputResultsx.cpp	(revision 6440)
+++ /issm/trunk/src/c/modules/OutputResultsx/OutputResultsx.cpp	(revision 6441)
@@ -88,4 +88,5 @@
 
 		/*Close output file? :*/
+		/*WARNING: issm.cpp is taking care of it for now (quick fix)
 		if((step==1) && (time==0)){
 			if(io_gather){
@@ -94,4 +95,5 @@
 			else pfclose(fid,cpu_outputfilename);
 		}
+		*/
 	#endif
 
Index: /issm/trunk/src/c/solutions/issm.cpp
===================================================================
--- /issm/trunk/src/c/solutions/issm.cpp	(revision 6440)
+++ /issm/trunk/src/c/solutions/issm.cpp	(revision 6441)
@@ -62,4 +62,8 @@
 	femmodel=new FemModel(argv[3] /*input*/,argv[5] /*output*/,solution_type,analyses,numanalyses);
 
+	/*Open output file once for all*/
+	output_fid=pfopen(argv[5],"wb");
+	femmodel->parameters->SetParam(output_fid,OutputFilePointerEnum);
+
 	/*add petsc options to parameters: */
 	ParsePetscOptions(femmodel->parameters,petscoptionsfilename);
@@ -100,4 +104,5 @@
 
 	/*Close output file and write lock file if requested*/
+	pfclose(output_fid,argv[5]);
 	if (waitonlock>0){
 		_printf_(true,"write lock file:\n");