function Convert2NC_tracer(grd,filename)
%    E. Di Lorenzo (edl@ucsd.edu)
% 
 

nc = netcdf(filename, 'clobber');
if isempty(nc), return, end
 
%% Global attributes:
 
nc.type = ncchar('');
nc.title = ncchar('');
nc.out_file = ncchar('');
nc.grd_file = ncchar('');
nc.inp_file = ncchar('');
nc.history = ncchar('');
 
%% Dimensions:
nc('lon') = grd.L;
nc('lat') = grd.P;
nc('time') = grd.T;


 
%% Variables and attributes:
  
nc{'time'} = ncdouble('time'); %% 1 element.
nc{'time'}.long_name = ncchar('time since initialization');
nc{'time'}.units = ncchar('second');
nc{'time'}.field = ncchar('time, scalar, series');
 
nc{'P'} = ncfloat('time', 'lat', 'lon'); %% 189600 elements.
nc{'P'}.long_name = ncchar('passive tracer');
nc{'P'}.units = ncchar('no dim %');
nc{'P'}.field = ncchar('tracer, scalar, series');
 
endef(nc)
close(nc)

return