anchor.diff:  call init()
   system_clocks = 0._R_P
   do steps=1, steps_max
  -  ! call domain%synchronize(me=me, we=we)
     call synchronize
     if (verbose) print "(A)", id//'    Time step: '//str(n=dt)//', Time: '//str(n=t)
  -  ! dt = domain%local%dt(Nmax=steps_max, Tmax=0._R_P, t=t, CFL=CFL)
     dt = domain%dt(Nmax=steps_max, Tmax=0._R_P, t=t, CFL=CFL)
     call system_clock(profiling(1), count_rate)
  -  ! call rk_integrator%integrate(U=domain%local, stage=rk_stage, dt=dt, t=t)
     call rk_integrator%integrate(U=domain, stage=rk_stage, dt=dt, t=t)
     call system_clock(profiling(2), count_rate)
     system_clocks = system_clocks + real(profiling(2) - profiling(1), kind=R_P)/count_rate
  
positive.code: integer(I_P)                      :: count_rate            !< Counting rate of system clock.
  real(R_P)                         :: system_clocks         !< Profiling result.
  integer(I_P)                      :: steps                 !< Time steps counter.
  ! coarrays-related variables
  ! type(euler_1D_caf)                :: domain                !< Domain of Euler equations.
  integer(I_P)                      :: Ni_image              !< Space dimension of local image.
  #ifdef CAF
  type(euler_1D)                    :: domain[*]             !< Domain of Euler equations.
  integer(I_P)                      :: Ni[*]                 !< Number of grid cells.
  integer(I_P)                      :: steps_max[*]          !< Maximum number of time steps.
  logical                           :: results[*]            !< Flag for activating results saving.
  
negative.code: logical                           :: time_serie[*]         !< Flag for activating time serie-results saving.
  logical                           :: verbose[*]            !< Flag for activating more verbose output.
  #else
  integer(I_P)                      :: Ni                    !< Number of grid cells.
  integer(I_P)                      :: steps_max             !< Maximum number of time steps.
  logical                           :: results               !< Flag for activating results saving.
  