Passing compilation

channel.f90

@@ -161,6 +161,12 @@ PROGRAM channel
 #endif
     ! Write runtime file
     CALL outstats()
+#ifdef runtimestats
+    IF (rtstats_savenow) THEN
+      CALL runtime_save()
+      rtstats_savenow = .FALSE.
+    END IF
+#endif
 #ifdef chron
     CALL CPU_TIME(timee)
     IF (has_terminal) WRITE(*,*) timee-timei

dnsdata.f90

@@ -75,6 +75,9 @@ MODULE dnsdata
   integer(C_SIZE_T) :: istep,nstep,ifield
   real(C_DOUBLE) :: fr(1:3)
   logical :: prev_was_close = .FALSE.
+#ifdef runtimestats
+  integer :: rtstats_savenow = .FALSE.
+#endif
   !Restart file
   character(len=40) :: fname
   !Convection velocity calculation
@@ -84,7 +87,8 @@ MODULE dnsdata
   integer(C_LONG) :: convvel_cnt=-1
   logical, save :: compute_convvel=.FALSE.
 #endif
-logical::rtd_exists ! flag to check existence of Runtimedata
+  logical::rtd_exists ! flag to check existence of Runtimedata
+
 
 
   CONTAINS
@@ -876,9 +880,9 @@ SUBROUTINE outstats()
    IF ( time+deltat >= (ifield+1)*dt_field ) THEN ! fast evaluation
      IF ( prev_was_close .OR. ((FLOOR((time+0.5*deltat)/dt_field) > FLOOR((time-0.5*deltat)/dt_field)) .AND. (time>time0)) ) THEN ! accurate evaluation
 #ifdef runtimestats
-       call runtime_save()
+       rtstats_savenow = .TRUE.
 #endif
-#ifndef runtimestats
+#ifndef runtime_avoid_savefld
        ifield=ifield+1; WRITE(istring,*) ifield
        IF (has_terminal) WRITE(*,*) "Writing Dati.cart."//TRIM(ADJUSTL(istring))//".out at time ", time
        filename="Dati.cart."//TRIM(ADJUSTL(istring))//".out"; CALL save_restart_file(filename,V)

header.h

@@ -37,7 +37,8 @@
 ! exactly with different parallelisations. Useful for 
 ! testing.
 !#define no_optimising_code
-! File for runtime calculation and disk dump of statistics
+! Files and settings for runtime calculation and disk dump of statistics
+#define runtime_avoid_savefld
 #define HEADER_RUNTIME "runtime_plugin/instabudget/header.inc"
 #define RUNTIME_SETUP_SUBROUTINE "runtime_plugin/instabudget/setup.inc"
 #define RUNTIME_FINALISE_SUBROUTINE "runtime_plugin/instabudget/finalise.inc"