/[MITgcm]/MITgcm_contrib/gael/matlab_class/gcmfaces_IO/write2nctiles.m
ViewVC logotype

Diff of /MITgcm_contrib/gael/matlab_class/gcmfaces_IO/write2nctiles.m

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4 by gforget, Mon Feb 3 14:28:52 2014 UTC revision 1.5 by gforget, Mon Feb 3 19:47:50 2014 UTC
# Line 14  function [dimOut]=write2nctiles(fileOut, Line 14  function [dimOut]=write2nctiles(fileOut,
14  %               'missval' is the missing value (default : NaN).  %               'missval' is the missing value (default : NaN).
15  %               'fillval' is the fill value (default : NaN).  %               'fillval' is the fill value (default : NaN).
16  %               'tileNo' is a map of tile indices (default is face number)  %               'tileNo' is a map of tile indices (default is face number)
17    %               'coord' is auxilliary coordinates attribute (e.g. 'lon lat dep')
18  %netcdf dimensions : array dimensions are simply set to 'i1,i2,...'  %netcdf dimensions : array dimensions are simply set to 'i1,i2,...'
19    
20  gcmfaces_global;  gcmfaces_global;
21    if ~(myenv.useNativeMatlabNetcdf);
22      error('only native matlab nectdf is supported in write2nctiles');
23    end;
24    
25  doCheck=0;%set to one to print stuff to screen  doCheck=0;%set to one to print stuff to screen
26    
# Line 26  rdm=''; Line 30  rdm='';
30  fldName=inputname(2); longName='';  fldName=inputname(2); longName='';
31  units='(unknown)'; missval=NaN; fillval=NaN; dimIn=[];  units='(unknown)'; missval=NaN; fillval=NaN; dimIn=[];
32  tileNo=mygrid.XC; for ff=1:mygrid.nFaces; tileNo{ff}(:)=ff; end;  tileNo=mygrid.XC; for ff=1:mygrid.nFaces; tileNo{ff}(:)=ff; end;
33    coord='';
34    
35  %set more optional paramaters to user defined values  %set more optional paramaters to user defined values
36  for ii=1:nargin-3;  for ii=1:nargin-3;
# Line 51  for ii=1:nargin-3; Line 56  for ii=1:nargin-3;
56                  strcmp(varargin{ii}{1},'missval')|...                  strcmp(varargin{ii}{1},'missval')|...
57                  strcmp(varargin{ii}{1},'fillval')|...                  strcmp(varargin{ii}{1},'fillval')|...
58                  strcmp(varargin{ii}{1},'tileNo')|...                  strcmp(varargin{ii}{1},'tileNo')|...
59                    strcmp(varargin{ii}{1},'coord')|...
60                  strcmp(varargin{ii}{1},'dimIn');                  strcmp(varargin{ii}{1},'dimIn');
61              eval([varargin{ii}{1} '=varargin{ii}{2};']);              eval([varargin{ii}{1} '=varargin{ii}{2};']);
62          else;          else;
# Line 149  if doCreate; Line 155  if doCreate;
155    pp=length(rdm)+1;    pp=length(rdm)+1;
156    netcdf.putAtt(ncid,nc_global,tmp1,'file created using gcmfaces_IO/write2nctiles.m');    netcdf.putAtt(ncid,nc_global,tmp1,'file created using gcmfaces_IO/write2nctiles.m');
157    ncputAtt(ncid,'','date',date);    ncputAtt(ncid,'','date',date);
158      netcdf.putAtt(ncid,nc_global,'Conventions','CF-1.6')  
159    
160      ncputAtt(ncid,'','_FillValue',fillval);
161      ncputAtt(ncid,'','missing_value',missval);
162    
163    ncdefDim(ncid,'itxt',30);    ncdefDim(ncid,'itxt',30);
164    for dd=1:length(dimlist); ncdefDim(ncid,dimlist{dd},dimsize(dd)); end;    for dd=1:length(dimlist); ncdefDim(ncid,dimlist{dd},dimsize(dd)); end;
# Line 156  if doCreate; Line 166  if doCreate;
166    for dd=1:length(dimlist);    for dd=1:length(dimlist);
167      ncdefVar(ncid,dimlist{dd},'double',{dimlist{dd}});      ncdefVar(ncid,dimlist{dd},'double',{dimlist{dd}});
168      ncputAtt(ncid,dimlist{dd},'long_name',dimName{dd});      ncputAtt(ncid,dimlist{dd},'long_name',dimName{dd});
169        ncputAtt(ncid,dimlist{dd},'units','1');
170    end;    end;
171    ncclose(ncid);    ncclose(ncid);
172    
# Line 174  if ~isempty(dimIn); dimlist=dimIn{ff}; e Line 185  if ~isempty(dimIn); dimlist=dimIn{ff}; e
185  %define and fill field:  %define and fill field:
186  %----------------------  %----------------------
187  ncid=ncopen(fileTile,'write');  ncid=ncopen(fileTile,'write');
188  if (myenv.useNativeMatlabNetcdf); netcdf.reDef(ncid); end;  %
189    netcdf.reDef(ncid);
190  ncdefVar(ncid,fldName,'double',flipdim(dimlist,2));%note the direction flip  ncdefVar(ncid,fldName,'double',flipdim(dimlist,2));%note the direction flip
191  if ~isempty(longName); ncputAtt(ncid,fldName,'long_name',longName); end;  if ~isempty(longName); ncputAtt(ncid,fldName,'long_name',longName); end;
192  if ~isempty(units); ncputAtt(ncid,fldName,'units',units); end;  if ~isempty(units); ncputAtt(ncid,fldName,'units',units); end;
193  ncputAtt(ncid,fldName,'missing_value',missval);  if ~isempty(coord); ncputAtt(ncid,fldName,'coordinates',coord); end;
194  if (myenv.useNativeMatlabNetcdf); netcdf.endDef(ncid); end;  if strcmp(fldName,'lon'); ncputAtt(ncid,fldName,'standard_name','longitude'); end;
195    if strcmp(fldName,'lat'); ncputAtt(ncid,fldName,'standard_name','latitude'); end;
196    if strcmp(fldName,'dep'); ncputAtt(ncid,fldName,'standard_name','depth'); end;
197    if strcmp(fldName,'tim'); ncputAtt(ncid,fldName,'standard_name','time'); end;
198    if strcmp(fldName,'land'); ncputAtt(ncid,fldName,'standard_name','land_binary_mask'); end;
199    if strcmp(fldName,'area'); ncputAtt(ncid,fldName,'standard_name','cell_area'); end;
200    if strcmp(fldName,'thic'); ncputAtt(ncid,fldName,'standard_name','cell_thickness'); end;
201    netcdf.endDef(ncid);
202    %
203  ncputvar(ncid,fldName,fldTile);  ncputvar(ncid,fldName,fldTile);
204  ncclose(ncid);  ncclose(ncid);
205    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22