anchor.diff:  
       !>----------------------------------------------------------
       !!  Setup a new dimension in a given netcdf file
  -    !! 
  -    !!  Takes an open netcdf file id and a dimension name. 
  +    !!
  +    !!  Takes an open netcdf file id and a dimension name.
       !!  returns the dimension id for the given dimension name and
       !!  if given a dimension length (n) it is checked to make sure
  -    !!  any existing dimension with this name has the write length. 
  -    !! 
  +    !!  any existing dimension with this name has the write length.
  +    !!
       !!  @param      ncid    integer an open netcdf file id
       !!  @param      dimname the name of the dimension to be checked
  -    !!  @param[out] dimid   the existing or newly created dimension id. 
  +    !!  @param[out] dimid   the existing or newly created dimension id.
       !!  @param      n       The length of the dimension
       !!  @retval     error   0 if successful, 1 otherwise
       !!
  
positive.code:         error = error + check_attribute(filename, options%n_dir_values, "n_dir_values")
          error = error + check_attribute(filename, options%n_nsq_values, "n_nsq_values")
          error = error + check_attribute(filename, options%n_spd_values, "n_spd_values")
          
          ! check that the model levels are actually in the same vertical positions too. 
          error = error + check_dz(filename,dz)
          
          if (error/=0) return
  
          ! this is the slow part where we actually read in all the data
  
negative.code:     public :: read_lut
      public :: write_lut
  
      character(len=10), parameter :: lt_lut_version="1.1"
  
      interface write_var
          module procedure write_var_1d,write_var_6d
  