[skip ci] Remove unnecessary complaint in restart

ElmerCSC · Nov 1, 2024 · 2e7fa3b · 2e7fa3b
1 parent 2a7d2a3
commit 2e7fa3b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/fem/src/ModelDescription.F90 b/fem/src/ModelDescription.F90
@@ -4275,6 +4275,7 @@ SUBROUTINE LoadRestartFile( RestartFile,TimeCount,Mesh,Continuous,EOF,SolverId)
       CALL Info(Caller,'Number of variable to read is: '//I2S(j),Level=10)
       IF( ALLOCATED( ListVariableFound ) ) DEALLOCATE( ListVariableFound ) 
       ALLOCATE( ListVariableFound(j) )
+      ListVariableFound = .FALSE.
       CALL Info(Caller,'Reading only '//I2S(j)//' variables given by: "Restart Variable i"',Level=10)
     ELSE
       CALL Info(Caller,'Reading all variables (if not wanted use "Restart Variable i" )',Level=10)      
@@ -4558,10 +4559,9 @@ SUBROUTINE LoadRestartFile( RestartFile,TimeCount,Mesh,Continuous,EOF,SolverId)
       !-------------------------------
       LoadThis = .TRUE.
 
-      ! If list is give check that variable is on the list.
+      ! If list is given check that variable is on the list.
       !---------------------------------------------------------------------------
       IF( ListVariableCount > 0  ) THEN
-        ListVariableFound = .FALSE.
         DO j=1,ListVariableCount
           LoadThis = .FALSE.
           VarName2 = ListGetString( ResList,'Restart Variable '//I2S(j), Found )