anchor.diff:         shape_dims3, start_dims3, count_dims3, &
          adios2_constant_dims, ierr)
   
  +  call adios2_define_variable(variables(9), ioWrite, "time", &
  +       adios2_type_integer8, 1, &
  +       shape_time, start_time, count_time, &
  +       adios2_constant_dims, ierr)
  +
     call adios2_open(sstWriter, ioWrite, "ADIOS2Sst", adios2_mode_write, ierr)
   
     !Put array contents to bp buffer, based on var1 metadata
  
positive.code:      call adios2_put(sstWriter, variables(6), data_R64, ierr)
       call adios2_put(sstWriter, variables(7), data_R64_2d, ierr)
       call adios2_put(sstWriter, variables(8), data_R64_2d_rev, ierr)
       call adios2_end_step(sstWriter, ierr)
    end do
  
  
negative.code:   shape_dims3 = (/ isize *nx, 2 /)
    start_dims3 = (/ irank *nx, 0 /)
    count_dims3 = (/ nx, 2 /)
  
    shape_time = (/ isize /)
    start_time = (/ irank /)
    count_time = (/ 1 /)
  
    !Create adios handler passing the communicator, debug mode and error flag
    call adios2_init(adios, MPI_COMM_WORLD, adios2_debug_mode_on, ierr)
  