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:     if(comm_is_root()) then
        read(*,*) directory
        read(*,*) dump_filename
  #ifdef ARTED_MS
        read(*,*) gNt
  #endif
      end if
      call comm_bcast(directory, proc_group(1))
      call comm_bcast(dump_filename, proc_group(1))
  #ifdef ARTED_MS
      call comm_bcast(gNt, proc_group(1))
  #endif
      write (process_directory,'(A,A,I5.5,A)') trim(directory),'/work_p',procid(1),'/'
      open(iounit, status='old', form='unformatted', file=gen_filename(dump_filename, procid(1)), buffered='no')
    end if
  