anchor.diff:    use environment
     use communication
     use misc_routines
  +  use timer
     implicit none
     integer :: ia,i,j
     integer :: ix_m,iy_m
  
positive.code:   call comm_bcast(Time_shutdown,proc_group(1))
  
    if(entrance_option == 'reentrance') then
      call prep_Reentrance_Read
      return
    else if(entrance_option == 'new') then
  
negative.code: 
      ! backup for system failure
      if (need_backup .and. iter > 0 .and. mod(iter, backup_frequency) == 0) then
        if (comm_is_root()) call timer_show_current_hour('Backup...', LOG_ALL)
        call timer_end(LOG_DYNAMICS)
        call timer_end(LOG_ALL)
        iter_now=iter
  