Changeset 27975

Timestamp:

10/27/23 20:40:19 (17 months ago)

Author:

jdquinn

Message:

BUG: Correcting building of queue script

File:

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

issm/trunk-jpl/src/m/classes/clusters/generic_static.m ¶

@@ -88 +88 @@
                                 fid=fopen([modelname '.queue'],'w');
                                 fprintf(fid,'#!%s\n',cluster.shell);
-                                if cluster.interactive
-                                        if IssmConfig('_HAVE_MPI_'),
-                                                fprintf(fid,'mpiexec -np %i %s/%s %s %s %s\n',cluster.np,cluster.codepath,executable,solution,[cluster.executionpath '/' dirname],modelname);
-                                        else
-                                                fprintf(fid,'%s/%s %s %s %s',cluster.codepath,executable,solution,[cluster.executionpath '/' dirname],modelname);
-                                        end
-                                else
-                                        if IssmConfig('_HAVE_MPI_'),
-                                                fprintf(fid,'mpiexec -np %i %s/%s %s %s %s 2> %s.errlog > %s.outlog &',cluster.np,cluster.codepath,executable,solution,[cluster.executionpath '/' dirname],modelname,modelname,modelname);
-                                        else
-                                                fprintf(fid,'%s/%s %s %s %s 2> %s.errlog > %s.outlog &',cluster.codepath,executable,solution,[cluster.executionpath '/' dirname],modelname,modelname,modelname);
-                                        end
-                                end
+                                fprintf(fid,['%s/mpiexec -np %i %s/%s %s %s %s \n'],codepath,cluster.np,codepath,executable,solution,'./',modelname);
                                 fclose(fid);
                         else % Windows
@@ -114 +102 @@
                         end
 
-                        %in interactive mode, create a run file, and errlog and outlog file
-                        if cluster.interactive,
-                                fid=fopen([modelname '.errlog'],'w');
-                                fclose(fid);
-                                fid=fopen([modelname '.outlog'],'w');
-                                fclose(fid);
-                        end
+                        %Create an errlog and outlog file
+                        fid=fopen([modelname '.errlog'],'w');
+                        fclose(fid);
+                        fid=fopen([modelname '.outlog'],'w');
+                        fclose(fid);
                 end
                 %}}}