Changeset 27922

Timestamp:

09/21/23 13:19:42 (18 months ago)

Author:

seroussi

Message:

CHG: adding .run file in localpfe for interactive

File:

• issm/trunk-jpl/src/m/classes/clusters/localpfe.m (modified) (2 diffs)

issm/trunk-jpl/src/m/classes/clusters/localpfe.m

@@ -92 +92 @@
                         fclose(fid);
 
-
-                        %in interactive mode, create a run file, and errlog and outlog file
-                        if cluster.interactive,
+                        %in interactive mode, create a run file, and errlog and outlog file
+                        if cluster.interactive,
+                                fid=fopen([modelname '.run'],'w');
+                                if cluster.interactive==10,
+                                                fprintf(fid,'module unload mpi-mvapich2/1.4.1/gcc\n');
+                                                fprintf(fid,'mpiexec -np %i %s/%s %s %s %s\n',cluster.np,cluster.codepath,executable,solution,[pwd() '/run'],modelname);
+                                else
+                                        if ~isvalgrind,
+                                                fprintf(fid,'mpiexec -np %i %s/%s %s %s %s\n',cluster.np,cluster.codepath,executable,solution,cluster.executionpath,modelname);
+                                                %fprintf(fid,'mpiexec -np %i %s/%s %s %s %s\n',cluster.nprocs(),cluster.codepath,executable,solution,[cluster.executionpath '/Interactive' num2str(cluster.interactive)],modelname);
+                                        else
+                                                fprintf(fid,'mpiexec -np %i valgrind --leak-check=full %s/%s %s %s %s\n',cluster.np,cluster.codepath,executable,solution,[cluster.executionpath '/Interactive' num2str(cluster.interactive)],modelname);
+                                        end
+                                end
+                                if ~io_gather, %concatenate the output files:
+                                        fprintf(fid,'cat %s.outbin.* > %s.outbin',modelname,modelname);
+                                end
+                                fclose(fid);
+
                                 fid=fopen([modelname '.errlog'],'w'); fclose(fid);
                                 fid=fopen([modelname '.outlog'],'w'); fclose(fid);
@@ -224 +240 @@
                                 end
                                 if cluster.interactive,
-                                        compressstring = [compressstring ' ' modelname '.errlog ' modelname '.outlog '];
+                                        compressstring = [compressstring ' ' modelname '.run '  modelname '.errlog ' modelname '.outlog '];
                                 end
                                 system(compressstring);