Changeset 19617

Timestamp:

10/01/15 16:55:07 (10 years ago)

Author:

seroussi

Message:

working on interactive runs for mitgcm

File:

• issm/trunk-jpl/src/m/classes/clusters/pfe.m (modified) (3 diffs)

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

@@ -131 +131 @@
                          fprintf(fid,'#PBS -e %s.errlog \n\n',[cluster.executionpath '/' dirname '/' modelname]);
                          fprintf(fid,'. /usr/share/modules/init/bash\n\n');
-                         for i=1:numel(cluster.modules),
-                                 fprintf(fid,['module load ' cluster.modules{i} '\n']);
-                         end
+                         fprintf(fid,'module load comp-intel/2015.0.090\n');
+                         fprintf(fid,'module load mpi-sgi/mpt.2.12r16\n');
                          fprintf(fid,'export PATH="$PATH:."\n\n');
                          fprintf(fid,'export MPI_GROUP_MAX=64\n\n');
@@ -224 +223 @@
                          fprintf(fid,'#PBS -S /bin/bash\n');
                          fprintf(fid,'#PBS -l select=1:ncpus=%i:model=%s\n',np,cluster.processor);
-                         fprintf(fid,'#PBS -l walltime=%i\n',cluster.time); %walltime is in seconds.
+                         fprintf(fid,'#PBS -l walltime=%i\n',cluster.time*60); %walltime is in seconds.
                          fprintf(fid,'#PBS -q %s \n',cluster.queue);
                          fprintf(fid,'#PBS -W group_list=%s\n',cluster.grouplist);
@@ -245 +244 @@
                          fclose(fid);
 
+                         %in interactive mode, create a run file, and errlog and outlog file
+                         if cluster.interactive,
+                                 fid=fopen([modelname '.run'],'w');
+                                 fprintf(fid,['mpiexec -np %i ./mitgcmuv && touch ' modelname '.lock %s\n'],np);
+                                 fclose(fid);
+                                 fid=fopen([modelname '.errlog'],'w');
+                                 fclose(fid);
+                                 fid=fopen([modelname '.outlog'],'w');
+                                 fclose(fid);
+                         end
+
                  end %}}}
                  function UploadQueueJob(cluster,modelname,dirname,filelist)% {{{