Index: sm/trunk/src/m/model/QueueJobPeek.m
===================================================================
--- /issm/trunk/src/m/model/QueueJobPeek.m	(revision 9188)
+++ 	(revision )
@@ -1,15 +1,0 @@
-function md=QueueJobPeek(md,executionpath)
-%QUEUEJOBPEEK - ...
-%
-%   Usage:
-%      QueueJobPeek(md,executionpath)
-
-%First try and figure out if there is a special script for thie particular cluster
-function_name=['QueueJobPeek' md.cluster];
-if exist(function_name,'file'),
-	%Call this function:
-	eval(['md=' function_name '(md,executionpath);']);
-else
-	%Call the generic QueueJobPeek:
-	md=QueueJobPeekGeneric(md,executionpath);
-end
Index: sm/trunk/src/m/model/QueueJobPeekGeneric.m
===================================================================
--- /issm/trunk/src/m/model/QueueJobPeekGeneric.m	(revision 9188)
+++ 	(revision )
@@ -1,27 +1,0 @@
-function md=QueueJobPeekGeneric(md,executionpath)
-%QUEUEJOBPEEKGENERIC - ...
-%
-%   Usage:
-%      md=QueueJobPeekGeneric(md,executionpath)
-
-disp('downloading error and output log files');
-
-%download errlog and outlog from cluster
-system(['scp ' md.cluster ':' executionpath '/' md.name '.*log ./']);
-
-%read log files onto  fields
-md.errlog=char(textread([md.name '.errlog'],'%s','delimiter','\n'));
-md.outlog=char(textread([md.name '.outlog'],'%s','delimiter','\n'));
-
-%cat those two files
-disp(sprintf('\n\nerror log:\n\n'));
-system(['cat ' md.name '.errlog']);
-
-disp(sprintf('\n\noutput log:\n\n'));
-system(['cat ' md.name '.outlog']);
-
-%erase the log files
-system(['rm -rf ' md.name '.outlog ' md.name '.errlog']);
-
-%warn user
-disp(sprintf('\n\nerror and output logs are saved in model fields for further checking'));
Index: sm/trunk/src/m/model/peek.m
===================================================================
--- /issm/trunk/src/m/model/peek.m	(revision 9188)
+++ 	(revision )
@@ -1,16 +1,0 @@
-function md=peek(md)
-%PEEK - check on an existing job running on the cluster
-%
-%   Usage:
-%      md=peek(md);
-%
-%   See also: QueueJobPeek
-
-%Get cluster.rc location
-cluster_rc_location=which('cluster.rc');
-
-%Figure out parameters for this particular cluster
-[codepath,executionpath,login]=ClusterParameters(md.cluster,cluster_rc_location);
-
-%peek at the queued job
-md=QueueJobPeek(md,executionpath);