From 5d62680ab6fac3472982c3cf310c9c3f9e0cf843 Mon Sep 17 00:00:00 2001 From: thomasmelvin Date: Thu, 7 May 2026 16:12:28 +0100 Subject: [PATCH] Remove uneeded norm --- .../science/source/solver/sci_iterative_solver_mod.f90 | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) 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.