Add checkpoint-interval option

src/fclaw_options.c

@@ -127,6 +127,9 @@ fclaw_register (fclaw_options_t* fclaw_opt, sc_options_t * opt)
     sc_options_add_bool (opt, 0, "checkpoint", &fclaw_opt->checkpoint, 0,
                             "Enable checkpoint output [F]");
 
+    sc_options_add_int (opt, 0, "checkpoint-interval", &fclaw_opt->checkpoint_interval, 1,
+                        "Output a checkpoint at every n output frames [1]");
+
     /* ------------------------------- Restart options --------------------------------- */
 
     sc_options_add_bool (opt, 0, "restart", &fclaw_opt->restart, 0,
@@ -442,6 +445,12 @@ fclaw_options_check (fclaw_options_t * fclaw_opt)
     }
 #endif
 
+    if (fclaw_opt->checkpoint_interval < 1)
+    {
+        fclaw_global_essentialf("Options : checkpoint-interval must be >= 1\n");
+        return FCLAW_EXIT_ERROR;
+    }
+
     return FCLAW_NOEXIT;
 }
 

src/fclaw_options.h

@@ -222,6 +222,7 @@ struct fclaw_options
 
     int output;                    
     int checkpoint;                    
+    int checkpoint_interval;
 
     int restart;                    
     const char * restart_file; /**< filename of restart file */

src/fclaw_restart.c

@@ -765,7 +765,7 @@ void fclaw_output_checkpoint(fclaw_global_t* glob, int iframe)
 {
     const fclaw_options_t *fclaw_opt = fclaw_get_options(glob);
 
-    if(fclaw_opt->checkpoint)
+    if(fclaw_opt->checkpoint && (iframe % fclaw_opt->checkpoint_interval == 0))
     {
         fclaw_timer_start (&glob->timers[FCLAW_TIMER_OUTPUT]);