Changeset 8825 for issm/trunk/src/m/classes/version/7.7/model.m

Timestamp:

07/06/11 14:36:36 (14 years ago)

Author:

Eric.Larour

Message:

Added deprecated spcvelocity

File:

• issm/trunk/src/m/classes/version/7.7/model.m (modified) (2 diffs)

issm/trunk/src/m/classes/version/7.7/model.m

@@ -400 +400 @@
                  cm_noisedmp;
                  planet;
+                 spcvelocity;
                  % }}}
          end
@@ -454 +455 @@
                                  if isfield(structmd,'gridonnuna'), md.nodeonnuna=structmd.gridonnuna; end
                                  if isfield(structmd,'gridonboundary'), md.nodeonboundary=structmd.gridonboundary; end
+                                 if isfield(structmd,'spcvelocity'), 
+                                         md.spcvx=NaN*ones(md.numberofnodes,1);
+                                         md.spcvy=NaN*ones(md.numberofnodes,1);
+                                         md.spcvz=NaN*ones(md.numberofnodes,1);
+                                         pos=find(structmd.spcvelocity(:,1)); md.spcvx(pos)=structmd.spcvelocity(pos,4); 
+                                         pos=find(structmd.spcvelocity(:,2)); md.spcvy(pos)=structmd.spcvelocity(pos,5); 
+                                         pos=find(structmd.spcvelocity(:,3)); md.spcvz(pos)=structmd.spcvelocity(pos,6); 
+                                 end
 
                                  %Field class change