anchor.diff:    ! Get the units of the given variable.
     function get_var_units(self, var_name, units) result(status)
       type (heat_model), intent (in) :: self
  -    character (len=*), pointer, intent (in) :: var_name
  +    character (len=*), intent (in) :: var_name
       character (len=BMI_MAXVARNAMESTR), intent (out) :: units
       integer :: status
   
  
positive.code:   ! Get size, in bytes, of the given variable.
    function get_var_nbytes(self, var_name, nsize) result(status)
      type (heat_model), intent (in) :: self
      character (len=*), pointer, intent (in) :: var_name
      integer, intent (out) :: nsize
      integer :: s1, s2, s3, grid_id, grid_size, item_size, status
  
  
negative.code:   ! Get memory use per array element, in bytes.
    function get_var_itemsize(self, var_name, size) result(status)
      type (heat_model), intent (in) :: self
      character (len=*), intent (in) :: var_name
      integer, intent (out) :: size
      integer :: status
  
  