Changeset 4870

Timestamp:

07/29/10 10:01:20 (15 years ago)

Author:

seroussi

Message:

added a check on pressureload type

File:

• issm/trunk/src/m/classes/public/ismodelselfconsistent.m (modified) (2 diffs)

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

@@ -96 +96 @@
         error('dim should be either 2 3');
 end
+checkvalues(md,{'pressureload(:,end)'},[WaterEnum() AirEnum()]);
 %}}}
 %NO NAN {{{1
@@ -535 +536 @@
 %checkvalues {{{1
 function checkvalues(md,fields,values)
-        %CHECKVALUE - check that a field has a certain value
-        for i=1:length(fields),
-                if eval(['~ismember( md.' fields{i} ',values)']),
+        %CHECKVALUE - check that a field has specified values
+        for i=1:length(fields),
+                if eval(['any(~ismember( md.' fields{i} ',values))']),
                         error(['model not consistent: field ' fields{i} ' should have values in ' num2str(values)]);
                 end