Changeset 2175

Timestamp:

09/09/09 17:12:54 (15 years ago)

Author:

Mathieu Morlighem

Message:

not needed

Location:

issm/trunk/src/m/utils/Nightly

Files:

• runme.m (deleted)
• runme_core.m (modified) (7 diffs)
• updatearchive.m (deleted)

issm/trunk/src/m/utils/Nightly/runme_core.m

@@ -1 @@
-function md=runme_core(varargin)
-%RUNME_CORE - test deck for ISSM nightly runs
+function md=runme(varargin)
+%RUNME - test deck for ISSM nightly runs
 %
 %   Usage:
-%      md=runme_core(varargin);
+%      md=runme(varargin);
 %
 %   Examples:
-%      md=runme_core('parallel',1,'update');
+%      runme;
+%      runme('analysis_type',{'prognostic','diagnostic'});
+%      runme('analysis_type',{'prognostic','diagnostic'},'parallel',0);
+%      runme('procedure','update','analysis_type',{'prognostic','diagnostic'},'parallel',1);
 %
 %   See Also: UPDATEARCHIVE RUNME
@@ -24 +27 @@
 %check arguments
 if nargout~=1
-        help runme_core
-        error('runme_core error message: bad usage');
-end
-
-%warning if a runme_core already exists:
+        help runme
+        error('runme error message: bad usage');
+end
+
+%warning if a runme already exists:
 if exist('./runme.m')
-        disp('this is the nighlty run runme_core, located in src/m/utils/Nightly/runme_core.m')
+        disp('this is the nighlty run runme, located in src/m/utils/Nightly/runme.m')
         disp('Another local runme exist but is not executed')
 end
@@ -36 +39 @@
 %read configuration
 if ~exist('./configuration.m')
-        error('runme_core error message: configuration file ''configuration.m'' not found');
+        error('runme error message: configuration file ''configuration.m'' not found');
 else
         configuration;
@@ -104 +107 @@
         procedure=find_option(options,'procedure');
         if isempty(procedure),
-                disp('runme_core warning: no procedure found, defaulting to test checking')
+                disp('runme warning: no procedure found, defaulting to test checking')
                 procedure='check';
         end
@@ -151 +154 @@
                         md.fit(:)=2;
                 else
-                        error(['runme_core error message: for control solution, ' control_fit ' fit is not supported!']);
+                        error(['runme error message: for control solution, ' control_fit ' fit is not supported!']);
                 end
         end
@@ -184 +187 @@
                 end
 
-                %CHECK TEST?
-                if strcmpi(testtype,'check'),
+                %UPDATE ARCHIVE?
+                if strcmpi(procedure,'update'),
+
+                        for k=1:length(fields),
+                                field=fields{k};
+                                eval([ archive_name '_field' num2str(k) ' = md.results. ' field  ';']);
+                        end
+                        eval(['save ' archive_name ' ' archive_name '_field*']);
+                        disp(sprintf(['File ' archive_name ' saved\n']));
+
+                %ELSE: CHECK TEST
+                else,
 
                         %load archive
@@ -207 +220 @@
                                 end
                         end
-
-                %UPDATE ARCHIVE?
-                elseif strcmpi(testtype,'update'),
-
-                        for k=1:length(fields),
-                                field=fields{k};
-                                eval([ archive_name '_field' num2str(k) ' = md.results. ' field  ';']);
-                        end
-                        eval(['save ' archive_name ' ' archive_name '_field*']);
-                        disp(sprintf(['File ' archive_name ' saved\n']));
-
-                else
-
-                        error('runme_core error message: unknown runtype. should be ''check'' or ''update''');
-
                 end