/[MITgcm]/MITgcm_contrib/dfer/matlab_stuff/concatstruct.m
ViewVC logotype

Diff of /MITgcm_contrib/dfer/matlab_stuff/concatstruct.m

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

revision 1.1 by dfer, Mon Feb 15 18:44:46 2010 UTC revision 1.2 by dfer, Wed Mar 7 17:26:42 2018 UTC
# Line 17  for i=1:size(name1,1) Line 17  for i=1:size(name1,1)
17     disp(['Field : ',nameloc])     disp(['Field : ',nameloc])
18       %size(getfield(OldField1,nameloc));       %size(getfield(OldField1,nameloc));
19    
20     if ndims(getfield(OldField2,nameloc)) == 4     if strcmp(nameloc,'T')
21          disp(['    concatenating, 1d'])
22          NewField=setfield(NewField,nameloc, ...
23            cat(1,getfield(OldField1,nameloc),getfield(OldField2,nameloc)));
24       elseif strcmp(nameloc,'iter')
25          disp(['    concatenating, 1d'])
26          NewField=setfield(NewField,nameloc, ...
27            cat(1,getfield(OldField1,nameloc),getfield(OldField2,nameloc)));
28       elseif ( strcmp(nameloc,'iters_read_from_file') | strcmp(nameloc,'iters_from_file') )
29          disp(['    concatenating, 1d'])
30          NewField=setfield(NewField,nameloc, ...
31            cat(1,getfield(OldField1,nameloc),getfield(OldField2,nameloc)));
32       elseif ndims(getfield(OldField2,nameloc)) == 4
33        disp(['    concatenating, 4d'])        disp(['    concatenating, 4d'])
34        NewField=setfield(NewField,nameloc, ...        NewField=setfield(NewField,nameloc, ...
35          cat(4,getfield(OldField1,nameloc),getfield(OldField2,nameloc)));          cat(4,getfield(OldField1,nameloc),getfield(OldField2,nameloc)));
36    
37     elseif ndims(getfield(OldField2,nameloc)) == 3     elseif ndims(getfield(OldField2,nameloc)) == 3
38       if length(getfield(OldField2,'iters_read_from_file')) == 1       if length(getfield(OldField2,'iters_from_file')) == 1
39        disp(['    concatenating, 4d'])        disp(['    concatenating, 4d'])
40        NewField=setfield(NewField,nameloc, ...        NewField=setfield(NewField,nameloc, ...
41          cat(4,getfield(OldField1,nameloc),getfield(OldField2,nameloc)));          cat(4,getfield(OldField1,nameloc),getfield(OldField2,nameloc)));
42      else       else
43        disp(['    concatenating, 3d'])        disp(['    concatenating, 3d'])
44        NewField=setfield(NewField,nameloc, ...        NewField=setfield(NewField,nameloc, ...
45          cat(3,getfield(OldField1,nameloc),getfield(OldField2,nameloc)));          cat(3,getfield(OldField1,nameloc),getfield(OldField2,nameloc)));
46      end       end
47     elseif ndims(getfield(OldField2,nameloc)) == 2     elseif ndims(getfield(OldField2,nameloc)) == 2
48         disp(['    concatenating, 2d'])         disp(['    concatenating, 2d'])
49        NewField=setfield(NewField,nameloc, ...        NewField=setfield(NewField,nameloc, ...
50          cat(3,getfield(OldField1,nameloc),getfield(OldField2,nameloc)));          cat(3,getfield(OldField1,nameloc),getfield(OldField2,nameloc)));
51     elseif strcmp(nameloc,'T')  %   elseif strcmp(nameloc,'iters_from_file')
52        disp(['    concatenating, 1d'])       % disp(['    concatenating, 1d'])
53        NewField=setfield(NewField,nameloc, ...       % NewField=setfield(NewField,nameloc, ...
54          cat(1,getfield(OldField1,nameloc),getfield(OldField2,nameloc)));       %   cat(1,getfield(OldField1,nameloc),getfield(OldField2,nameloc)));
   
    elseif strcmp(nameloc,'iter')  
       disp(['    concatenating, 1d'])  
       NewField=setfield(NewField,nameloc, ...  
         cat(1,getfield(OldField1,nameloc),getfield(OldField2,nameloc)));  
   
    elseif strcmp(nameloc,'iters_read_from_file')  
       disp(['    concatenating, 1d'])  
       NewField=setfield(NewField,nameloc, ...  
         cat(1,getfield(OldField1,nameloc),getfield(OldField2,nameloc)));  
55     else     else
56        disp(['    replacing'])        disp(['    replacing'])
57        NewField=setfield(NewField,nameloc,getfield(OldField1,nameloc));        NewField=setfield(NewField,nameloc,getfield(OldField1,nameloc));
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22