reduced info level of adaptivity info from 12 to 7

ElmerCSC · Nov 13, 2024 · 797cae6 · 797cae6
1 parent 03c0035
commit 797cae6
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/fem/src/ElmerSolver.F90 b/fem/src/ElmerSolver.F90
@@ -3068,7 +3068,7 @@ SUBROUTINE ExecSimulation(TimeIntervals,  CoupledMinIter, &
 
                 IF( .NOT. ASSOCIATED( Solver % Variable ) ) CYCLE
                 IF( .NOT. ASSOCIATED( Solver % Variable  % Values ) ) CYCLE
-                CALL Info(Caller,'Allocating adaptive work space for: '//I2S(i),Level=12)
+                CALL Info(Caller,'Allocating adaptive work space for: '//I2S(i),Level=7)
                 j = SIZE( Solver % Variable % Values )
                 ALLOCATE( AdaptVars(i) % Var % Values( j ), STAT=AllocStat )
                 IF( AllocStat /= 0 ) CALL Fatal(Caller,'Allocation error AdaptVars Values')
@@ -3093,7 +3093,7 @@ SUBROUTINE ExecSimulation(TimeIntervals,  CoupledMinIter, &
                   ! If the next timestep will not get us home but the next one would
                   ! then split the timestep equally into two parts.
                   IF( dt - CumTime - ddt > 1.0d-12 ) THEN
-                    CALL Info(Caller,'Splitted timestep into two equal parts',Level=12)
+                    CALL Info(Caller,'Splitted timestep into two equal parts',Level=7)
                     ddt = MIN( ddt, ( dt - CumTime ) / 2.0_dp )
                   END IF
                 END IF
@@ -3197,7 +3197,7 @@ SUBROUTINE ExecSimulation(TimeIntervals,  CoupledMinIter, &
                END IF
 
                WRITE(Message,'(a,3e20.12)') 'Adaptive(cum,ddt,err): ', cumtime, ddt, maxerr
-               CALL Info(Caller,Message,Level=12)
+               CALL Info(Caller,Message,Level=7)
 
              END DO
             sSize(1) = dt