diff --git a/components/science/source/solver/sci_iterative_solver_mod.f90 b/components/science/source/solver/sci_iterative_solver_mod.f90 index 48a1fde6a..615845d38 100644 --- a/components/science/source/solver/sci_iterative_solver_mod.f90 +++ b/components/science/source/solver/sci_iterative_solver_mod.f90 @@ -1510,12 +1510,9 @@ module subroutine block_gcr_solve(self, x, b) end do init_err = sum(initial_error) - if (log_at_level( log_level_info )) then - ! Only compute the norm if we are going to write it - write( log_scratch_space, '(A,E15.8,":",E15.8)' ) & - "BLOCK_GCR starting ... ||b|| = ", b%norm(),init_err - call log_event(log_scratch_space, LOG_LEVEL_INFO) - end if + write( log_scratch_space, '(A,E15.8)' ) & + "BLOCK_GCR starting ... ||b|| = ", init_err + call log_event(log_scratch_space, LOG_LEVEL_INFO) end if ! Use special DDT to avoid CCE bug.