anchor.diff:  !!------------------------------------------------------------
   module io_routines
       use netcdf
  +    
       implicit none
       ! maximum number of dimensions for a netCDF file
       integer,parameter::io_maxDims=10
  -    
  +    ! maximum length of a dimension name not this could be in data_structures, but that simply adds
  +    ! one more dependency on data_structures and prevents this being compiled in parallel
  +    integer,parameter::MAXDIMLENGTH=255
       !>------------------------------------------------------------
       !! Generic interface to the netcdf read routines
       !!------------------------------------------------------------
  
positive.code:     interface io_write
          module procedure io_write6d, io_write3d, io_write2d, io_write3di
      end interface
  
  !   All routines are public
  contains
  
negative.code:         ! End define mode. This tells netCDF we are done defining metadata.
          call check( nf90_enddef(ncid) )
          
          ! write the actual data to the file
          call check( nf90_put_var(ncid, varid, data_out), trim(filename)//":"//trim(varname))
      
          ! Close the file, freeing all resources.
  