source: issm/trunk/src/m/classes/public/queue/ClusterScript.m@ 3308

function ClusterScript(fid,cluster,name,queue,executionpath,codepath,analysis_type,np,time,mem_debug);
%CLUSTERSCRIPT cluster specific queuing script
%
% Usage:
%      ClusterScript(fid,name,queue,executionpath,codepath,analysis_type,np,time);
%
global ISSM_DIR;


if strcmpi(cluster,'cosmos'),



        %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%cosmos%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
        fprintf(fid,'#!/bin/bash\n');
        fprintf(fid,'#PBS -l select=%i:ncpus=1\n',np);
        fprintf(fid,'#PBS -l walltime=%i\n',time*60); %walltime is in seconds.
        fprintf(fid,'#PBS -q %s\n',queue);
        fprintf(fid,'#PBS -o %s.outlog \n',name);
        fprintf(fid,'#PBS -e %s.errlog \n',name);
        fprintf(fid,'export PBS_O_WORKDIR=%s\n',executionpath);
        fprintf(fid,'cd $PBS_O_WORKDIR\n');
        fprintf(fid,'export OMP_NUM_THREADS=1\n');
        fprintf(fid,'ulimit -s unlimited\n');
        fprintf(fid,'ulimit -c 0\n');
        fprintf(fid,'/opt/mpich/gm/intel10.1/bin/mpirun -np %i %s/%s.exe %s %s.bin %s.outbin %s.lock',np,codepath,AnalysisTypeFromEnum(analysis_type),executionpath,name,name,name);
        %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%




elseif (strcmpi(cluster,'astrid') | strcmpi(cluster,'larsen') | strcmpi(cluster,'wilkes')),




        %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%astrid%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
        fprintf(fid,'#!/bin/sh\n');
        fprintf(fid,'rm -rf %s/%s.lock\n',executionpath,name);
        if mem_debug==0,
                fprintf(fid,'mpirun -np %i %s/%s.exe %s %s.bin %s.outbin %s.lock  2> %s.errlog >%s.outlog & ',np,codepath,AnalysisTypeFromEnum(analysis_type),executionpath,name,name,name,name,name);
        else
                fprintf(fid,'LD_PRELOAD=%s mpirun -np %i %s --leak-check=full %s/%s.exe %s %s.bin %s.outbin %s.lock  2> %s.errlog >%s.outlog & ',[ISSM_DIR '/externalpackages/valgrind/install/lib/libmpidebug.so'],np,[ISSM_DIR '/externalpackages/valgrind/install/bin/valgrind'],codepath,AnalysisTypeFromEnum(analysis_type),executionpath,name,name,name,name,name);
        end
        %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%





elseif (strcmpi(cluster,'gemini') | strcmpi(cluster,'pollux') | strcmpi(cluster,'castor')),

        %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%gemini%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
fprintf(fid,'#!/bin/sh\n');
        fprintf(fid,'#PBS -l walltime=%i\n',time*60); %walltime is in seconds.
        fprintf(fid,'#PBS -l ncpus=%i\n',np);
        if ~isempty(queue),
                fprintf(fid,'#PBS -q %s\n',queue);
        end
        fprintf(fid,'#PBS -o %s.outlog \n',name);
        fprintf(fid,'#PBS -e %s.errlog \n',name);

        fprintf(fid,'export PBS_O_WORKDIR=%s\n',executionpath);
        fprintf(fid,'cd $PBS_O_WORKDIR\n');
        fprintf(fid,'export OMP_NUM_THREADS=1\n');
        fprintf(fid,'dplace -s1 -c0-%i mpirun -np %i %s/%s.exe %s %s.bin %s.outbin %s.lock',np-1,np,codepath,AnalysisTypeFromEnum(analysis_type),executionpath,name,name,name);
        %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



elseif strcmpi(cluster,'pfe'),


        %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%pfe%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
        fprintf(fid,'#PBS -S /bin/bash\n');
        fprintf(fid,'#PBS -N %s\n',name);
        fprintf(fid,'#PBS -l select=%i:ncpus=8:mpiprocs=8\n',np/8);
        fprintf(fid,'#PBS -l walltime=%i\n',time*60); %walltime is in seconds.
        fprintf(fid,'#PBS -W group_list=s1010\n');
        fprintf(fid,'#PBS -m e\n');
        fprintf(fid,'#PBS -o %s.outlog \n',name);
        fprintf(fid,'#PBS -e %s.errlog \n\n',name);

        fprintf(fid,'. /usr/share/modules/init/bash\n\n');

        fprintf(fid,'module load comp-intel/11.1.046\n');
        fprintf(fid,'module load mpi/mpt.1.23.nas\n');
        fprintf(fid,'module load math/intel_mkl_64_10.0.011\n\n');

        fprintf(fid,'export PATH="$PATH:."\n\n');

        fprintf(fid,'cd $PBS_O_WORKDIR\n\n');

        fprintf(fid,'mpiexec -verbose -np %i %s/%s.exe $PBS_O_WORKDIR %s.bin %s.outbin %s.lock',np,codepath,AnalysisTypeFromEnum(analysis_type),name,name,name);
        %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


else
        error(['ClusterScript error message: could not find settings for cluster ' cluster]);
end