From b0b16121060be83baac80ca0b88667f5a4d7d013 Mon Sep 17 00:00:00 2001 From: Bryan Herman Date: Thu, 19 Jan 2012 14:31:02 -0500 Subject: [PATCH] added cmfd execute back in and commented out HDF5 writing -- need to integrate with Paul now --- src/cmfd_execute.F90 | 2 +- src/main.F90 | 3 +++ 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/src/cmfd_execute.F90 b/src/cmfd_execute.F90 index 8395165f95..ccac60a140 100644 --- a/src/cmfd_execute.F90 +++ b/src/cmfd_execute.F90 @@ -52,7 +52,7 @@ contains write(108,*) cmfd % dhat ! write cmfd object to hdf5 file - call write_hdf5() +! call write_hdf5() ! solve diffusion equation call cmfd_solver() diff --git a/src/main.F90 b/src/main.F90 index 55aa3db2f2..778bd62b6b 100644 --- a/src/main.F90 +++ b/src/main.F90 @@ -67,6 +67,9 @@ program main call run_problem() end if + ! run diffusion + call execute_cmfd() + ! finalize run call finalize_run()