Changeset 12371 for issm/trunk-jpl/src/m/classes/clusters/greenplanet.m

Timestamp:

06/05/12 10:43:43 (13 years ago)

Author:

Mathieu Morlighem

Message:

Fixed all clusters

File:

• issm/trunk-jpl/src/m/classes/clusters/greenplanet.m (modified) (1 diff)

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

@@ -102 +102 @@
                          end
                  end %}}}
-                 function LaunchQueueJob(cluster,md,options)% {{{
-                         
-                         %lauch command, to be executed via ssh
-                         if ~cluster.interactive, 
-                                launchcommand=['cd ' cluster.executionpath ' && rm -rf ./' md.private.runtimename ' && mkdir ' md.private.runtimename ...
-                                        ' && cd ' md.private.runtimename ' && mv ../' md.private.runtimename '.tar.gz ./ && tar -zxf ' md.private.runtimename '.tar.gz  && qsub ' md.miscellaneous.name '.queue '];
-                        else
-                                launchcommand=['cd ' cluster.executionpath '/Interactive' num2str(cluster.interactive) ' && tar -zxf ' md.private.runtimename '.tar.gz'];
-                        end
+                 function LaunchQueueJob(cluster,modelname,dirname,filelist)% {{{
 
-                        if ~strcmpi(options.batch,'yes'),
-                                
-                                %compress the files into one zip.
-                                compressstring=['tar -zcf ' md.private.runtimename '.tar.gz ' md.miscellaneous.name '.bin ' md.miscellaneous.name '.queue '  md.miscellaneous.name '.petsc '];
-                                if md.qmu.isdakota,
-                                        compressstring=[compressstring md.miscellaneous.name '.qmu.in '];
-                                end
-                                if cluster.interactive,
-                                        compressstring=[compressstring md.miscellaneous.name '.run ' md.miscellaneous.name '.errlog ' md.miscellaneous.name '.outlog '];
-                                end
-                                system(compressstring);
-                                
-                                disp('uploading input file and queueing script');
-                                if cluster.interactive,
-                                        directory=[cluster.executionpath '/Interactive' num2str(cluster.interactive)];
-                                else 
-                                        directory=cluster.executionpath;
-                                end
-                                
-                                issmscpout(cluster.name,directory,cluster.login,cluster.port,{[md.private.runtimename '.tar.gz']});
-                                
-                                disp('launching solution sequence on remote cluster');
-                                issmssh(cluster.name,cluster.login,cluster.port,launchcommand);
+                         %compress the files into one zip.
+                         compressstring=['tar -zcf ' dirname '.tar.gz '];
+                         for i=1:numel(filelist),
+                                 compressstring = [compressstring ' ' filelist{i}];
+                         end
+                         if cluster.interactive,
+                                 compressstring = [compressstring ' ' modelname '.errlog ' modelname '.outlog '];
+                         end
+                         system(compressstring);
 
-                        else
-                                disp('batch mode requested: not launching job interactively');
-                                disp('launch solution sequence on remote cluster by hand');
-                        end
-                 end
-                 %}}}
+                         disp('uploading input file and queueing script');
+                         issmscpout(cluster.name,cluster.executionpath,cluster.login,cluster.port,{[dirname '.tar.gz']});
+
+                         disp('launching solution sequence on remote cluster');
+                         launchcommand=['cd ' cluster.executionpath ' && rm -rf ./' dirname ' && mkdir ' dirname ...
+                                 ' && cd ' dirname ' && mv ../' dirname '.tar.gz ./ && tar -zxf ' dirname '.tar.gz  && qsub ' modelname '.queue '];
+                         issmssh(cluster.name,cluster.login,cluster.port,launchcommand);
+                 end %}}}
                  function Download(cluster,dirname,filelist)% {{{