Changeset 8824 for issm/trunk/test/NightlyRun/test1204.m

Timestamp:

07/06/11 14:30:08 (14 years ago)

Author:

Eric.Larour

Message:

Split spcvelocity into spcvx, spcvy and spcvz

File:

• issm/trunk/test/NightlyRun/test1204.m (modified) (1 diff)

issm/trunk/test/NightlyRun/test1204.m

@@ -11 +11 @@
 %Impose a non zero velocity on the upper boundary condition (y=max(y))
 pos=find(md.y==max(md.y));
-md.spcvelocity(pos,5)=400*(((md.x(pos)-100000)/25000).^2-ones(size(pos,1),1)).*heaviside((1+eps)*ones(size(pos,1),1)-((md.x(pos)-100000)/25000).^2);
+md.spcvy(pos)=400*(((md.x(pos)-100000)/25000).^2-ones(size(pos,1),1)).*heaviside((1+eps)*ones(size(pos,1),1)-((md.x(pos)-100000)/25000).^2);
 
 %Compute solution for MacAyeal's model