function tchange3
%
%  This function changes the values for 'T'.
%
% ----------------------------------------------------------------
%  Written by Mike Sparrow, while at
%             AINCO - Interocean, Madrid, Spain, in November 1997
% ----------------------------------------------------------------
%
%
global tone ttwo T11 T22 dT11 dT22 Umean
[rows, cols] = size(Umean)
tone
ttwo
for r = 1:rows,
 for c = 1:cols,
  T11(r,c) = tone
  T22(r,c) = ttwo
  dT11(r,c) = 0;
  dT22(r,c) = 0;
 end;
end;
close
