Changeset 1796

Timestamp:

08/24/09 09:50:13 (16 years ago)

Author:

seroussi

Message:

added check on pressureload size

File:

• issm/trunk/src/m/classes/public/ismodelselfconsistent.m (modified) (1 diff)

issm/trunk/src/m/classes/public/ismodelselfconsistent.m

@@ -64 +64 @@
 end
 
+%ICEFRONT
+if strcmpi(md.type,'2d'),
+        if size(md.pressureload,2)~=3 ,
+                disp(['pressureload in ' md.name ' shoud have three columns']);
+                bool=0;return;
+        end
+elseif strcmpi(md.type,'3d'),
+        if size(md.pressureload,2)~=5 ,
+                disp(['pressureload in ' md.name ' shoud have five columns']);
+                bool=0;return;
+        end
+end
 
 %NO NAN