Minor fix to order.

ElmerCSC · Oct 29, 2024 · 82c9bad · 82c9bad
1 parent 6d29a12
commit 82c9bad
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/fem/src/modules/WPotentialSolver.F90 b/fem/src/modules/WPotentialSolver.F90
@@ -564,8 +564,8 @@ SUBROUTINE SaveElementWSolution(Element, n, Wnorm, RotM, Tcoef, NoRotM)
   DO t=1,n
     IF (ASSOCIATED(wpotvar)) THEN
       DO k=1,wpotvar % DOFs
+        IF( CoilType/='stranded' ) Wnorm = 1._dp
         IF (Wnorm > EPSILON(Wnorm)) THEN
-          IF( CoilType/='stranded' ) Wnorm = 1._dp
 !          print *, ParEnv % MyPe, "Wnorm:", Wnorm
           wpotvar % Values( wpotvar % DOFs*(wpotvar % Perm( &
               Element % DGIndexes(t))-1)+k) = wpot(t)/Wnorm

diff --git a/fem/tests/rotflow/rotflow.sif b/fem/tests/rotflow/rotflow.sif
@@ -108,5 +108,5 @@ Boundary Condition $MeltSilicaCrucibleInterface
 End
 
 
-Solver 1 :: Reference Norm = 2.88727356E-01 !Real 0.172138
+Solver 1 :: Reference Norm = 2.88756149E-01
 !End Of File