Enable separate keyword for result file only

ElmerCSC · Jan 30, 2021 · e575746 · e575746
1 parent 2a20455
commit e575746
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 4 deletions.
diff --git a/fem/src/ElmerSolver.F90 b/fem/src/ElmerSolver.F90
@@ -81,7 +81,7 @@ SUBROUTINE ElmerSolver(initialize)
 
      TYPE(Element_t),POINTER :: CurrentElement
 
-     LOGICAL :: GotIt,Transient,Scanning,LastSaved, MeshMode = .FALSE.
+     LOGICAL :: GotIt,Transient,Scanning, LastSaved, MeshMode = .FALSE.
 
      INTEGER :: TimeIntervals,interval,timestep, &
        TotalTimesteps,SavedSteps,CoupledMaxIter,CoupledMinIter
@@ -2672,7 +2672,13 @@ SUBROUTINE ExecSimulation(TimeIntervals,  CoupledMinIter, &
                IF( ExecThis ) CALL SolverActivate( CurrentModel,Solver,dt,Transient )
              END DO 
 
-             CALL SaveCurrent(Timestep)
+             ! Output file is used to Save the results for restart.
+             ! Optionally we may save just the final stage which saves disk space and time.
+             IF( .NOT. ListGetLogical( CurrentModel % Simulation,'Output File Final Only',GotIt) ) THEN               
+               CALL SaveCurrent(Timestep)
+             END IF
+
+             CALL SaveToPost(TimeStep)
              LastSaved = .TRUE.
 
              DO i=1,nSolvers
@@ -2755,7 +2761,11 @@ SUBROUTINE ExecSimulation(TimeIntervals,  CoupledMinIter, &
        END DO
 
        CALL SaveToPost(0)
-       CALL SaveCurrent(Timestep)
+       CALL SaveToPost(TimeStep)
+
+       IF( .NOT. ListGetLogical( CurrentModel % Simulation,'Output File Final Only',GotIt) ) THEN               
+         CALL SaveCurrent(Timestep)
+       END IF
 
        DO i=1,CurrentModel % NumberOfSolvers
          Solver => CurrentModel % Solvers(i)
@@ -2765,7 +2775,11 @@ SUBROUTINE ExecSimulation(TimeIntervals,  CoupledMinIter, &
          IF ( GotIt ) ExecThis = ( When == 'after saving') 
          IF( ExecThis ) CALL SolverActivate( CurrentModel,Solver,dt,Transient )
        END DO
+     ELSE IF( ListGetLogical( CurrentModel % Simulation,'Output File Final Only',GotIt) ) THEN               
+       CALL SaveCurrent(Timestep)
      END IF
+
+
 
 !------------------------------------------------------------------------------
    END SUBROUTINE ExecSimulation
@@ -2887,7 +2901,8 @@ SUBROUTINE SaveCurrent( CurrentStep )
         Mesh => Mesh % Next
       END DO
     END IF
-    CALL SaveToPost(CurrentStep)
+! We want to seprate saving of ElmerPost file and Result file.    
+!    CALL SaveToPost(CurrentStep)
 !------------------------------------------------------------------------------
   END SUBROUTINE SaveCurrent
 !------------------------------------------------------------------------------

diff --git a/fem/src/SOLVER.KEYWORDS b/fem/src/SOLVER.KEYWORDS
@@ -1809,4 +1809,5 @@ solver:real:         'cyclic system convergence tolerance'
 simulation:logical:  'parallel timestepping'
 simulation:integer:  'periodic timesteps'
 simulation:logical:  'single mesh'
+simulation:logical:  'output file final only'