Changeset 6569

Timestamp:

11/12/10 14:46:39 (14 years ago)

Author:

jschierm

Message:

Added keep option for qmudir (part 2 of 2).

Location:

issm/trunk/src/m/model

Files:

• process_solve_options.m (modified) (1 diff)
• solve.m (modified) (1 diff)
• solveparallel.m (modified) (1 diff)

issm/trunk/src/m/model/process_solve_options.m

@@ -40 +40 @@
 outoptions.qmufile=getfieldvalue(options,'qmufile','qmu');% qmufile cannot be changed unless ????script.sh is also changed
 outoptions.overwrite=getfieldvalue(options,'overwrite','n');
+outoptions.keep=getfieldvalue(options,'keep','n');
 outoptions.ivar=getfieldvalue(options,'ivar',1);
 outoptions.iresp=getfieldvalue(options,'iresp',1);

issm/trunk/src/m/model/solve.m

@@ -57 +57 @@
         md=postqmu(md);
         cd ..
-        system(['rm -rf qmu' num2str(GetPId)]);
+        if ~strncmpi(options.keep,'y',1)
+                system(['rm -rf qmu' num2str(GetPId)]);
+        end
 end
 

issm/trunk/src/m/model/solveparallel.m

@@ -44 +44 @@
         %post processes qmu results if necessary
         if md.qmu_analysis,
-                system(['rm -rf qmu' num2str(GetPId)]);
+                if ~strncmpi(options.keep,'y',1)
+                        system(['rm -rf qmu' num2str(GetPId)]);
+                end
         end
 else