anchor.diff:    integer(kind = 8), dimension(1)::shape_dims, start_dims, count_dims
     integer(kind = 8), dimension(2)::shape_dims2, start_dims2, count_dims2
     integer(kind = 8), dimension(2)::shape_dims3, start_dims3, count_dims3
  +  integer(kind = 8), dimension(1)::shape_time, start_time, count_time
     integer::inx, irank, isize, ierr, i, insteps
   
     type(adios2_adios)::adios
  
positive.code:   character(len =:), allocatable::variable_name 
    integer::variable_type, ndims
    integer(kind = 8), dimension(:), allocatable::shape_in
    
    !Launch MPI
    call MPI_Init(ierr) 
    call MPI_Comm_rank(MPI_COMM_WORLD, irank, ierr) 
  
negative.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)
       localtime = time()
       call adios2_put(sstWriter, variables(9), loc(localtime), ierr)
       call adios2_end_step(sstWriter, ierr)
    end do
  
  