anchor.diff:      call opt_vars_initialize_p1
       call opt_vars_initialize_p2
   
  +#ifdef ARTED_MS
     ! continuous execution (is available only multi-scale mode)
       if (gNt /= Nt) then
         if (comm_is_root()) then
  
positive.code:       Ndata_out_per_proc = Ndata_out / nprocs(1)
        call resize_arrays
      end if
    end if
  
    call comm_sync_all; end_time = get_wtime()
  
negative.code:   use opt_variables,   only: opt_vars_initialize_p1, opt_vars_initialize_p2
    use backup_routines, only: backup_value
    use misc_routines,   only: get_wtime
    use communication
    implicit none
    logical, intent(in) :: is_backup
  
    integer, parameter :: iounit = 500
    character(256)     :: reent_filename, dump_filename
    real(8) :: beg_time, end_time
  #ifdef ARTED_MS
    integer :: gNt
  #endif
  
    call comm_sync_all; beg_time = get_wtime()
  
  