Changeset 3149

Timestamp:

03/02/10 11:22:10 (15 years ago)

Author:

Eric.Larour

Message:

More generic creation of queuing scripts.

Location:

issm/trunk/src/m/classes/public/queue

Files:

• BuildMultipleQueueingScript.m (deleted)
• BuildMultipleQueueingScriptGeneric.m (deleted)
• BuildMultipleQueueingScriptgemini.m (deleted)
• BuildQueueingScript.m (modified) (1 diff)
• BuildQueueingScriptGeneric.m (deleted)
• BuildQueueingScriptcosmos.m (deleted)
• BuildQueueingScriptgemini.m (deleted)
• BuildQueueingScriptgreenplanet.m (deleted)
• BuildQueueingScriptpfe.m (deleted)
• ClusterScript.m (added)
• LaunchMultipleQueueJob.m (deleted)
• LaunchMultipleQueueJobGeneric.m (deleted)
• LaunchMultipleQueueJobgemini.m (deleted)
• QueueRequirements.m (added)
• multiple (added)
• multiple/BuildMultipleQueueingScript.m (added)
• multiple/BuildMultipleQueueingScriptGeneric.m (added)
• multiple/BuildMultipleQueueingScriptgemini.m (added)
• multiple/LaunchMultipleQueueJob.m (added)
• multiple/LaunchMultipleQueueJobGeneric.m (added)
• multiple/LaunchMultipleQueueJobgemini.m (added)
• old/BuildQueueingScriptGeneric.m (added)
• old/BuildQueueingScriptcosmos.m (added)
• old/BuildQueueingScriptgemini.m (added)
• old/BuildQueueingScriptgreenplanet.m (added)
• old/BuildQueueingScriptpfe.m (added)

issm/trunk/src/m/classes/public/queue/BuildQueueingScript.m

@@ -5 +5 @@
 %      BuildQueueingScript(md,executionpath,codepath)
 
-disp('building queueing script');
+disp('check queue requirements');
+QueueRequirements(md.cluster,md.queue,md.np,md.time);
 
-%First try and figure out if there is a special script for thie particular cluster
-function_name=['BuildQueueingScript' md.cluster];
+disp('write queueing script');
 
-%some specific treatment of identical cluster, gemini, castor and pollux
-if strcmpi(md.cluster,'castor') || strcmpi(md.cluster,'pollux'),
-        function_name='BuildQueueingScriptgemini';
+%open file 
+fid=fopen([md.name '.queue'],'w');
+if fid==-1,
+        error(['BuildQueueingScripterror message: could not open ' [md.name '.queue'] ' file for ascii writing']);
 end
 
-if exist(function_name,'file'),
-        %Call this function:
-        eval([function_name '(md,executionpath,codepath);']);
-else
-        %Call the generic BuildQueueingScript:
-        BuildQueueingScriptGeneric(md,executionpath,codepath);
-end
+%hand down to cluster specific script
+ClusterScript(fid,md.cluster,md.name,md.queue,executionpath,codepath,md.analysis_type,md.np,md.time,md.mem_debug);
+
+%close file
+fclose(fid);
+