Ignore:
Timestamp:
Mar 18, 2011 7:03:49 AM (10 years ago)
Author:
raasch
Message:

adjustments for openmp usage on ibmkisti (mrun, subjob); OpenMP-bugfixes: work_fftx removed from PRIVATE clauses in fftx_tr_xy and tr_yx_fftx (poisfft); Bugfix: Summation of Wicker-Skamarock scheme fluxes and variances for all threads (flow_statistics)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SCRIPTS/subjob

    r693 r696  
    128128     # 02/02/11 - Siggi - further asjustments for Tsubame concerning openMP
    129129     # 06/03/11 - Siggi - adjustments for ibmkisti
     130     # 17/03/11 - Siggi - adjustments for openmp usage on ibmkisti
    130131
    131132
     
    152153
    153154 typeset  -i   cputime=0  memory=0  Memory=0  minuten  resttime  sekunden  stunden
    154  typeset  -i   inumprocs  nodes=0  processes_per_node=0 tasks_per_node=0  threads_per_task=1
     155 typeset  -i   inumprocs  mpi_tasks=0  nodes=0  processes_per_node=0 tasks_per_node=0  threads_per_task=1
    155156 typeset  -L20 spalte1
    156157 typeset  -R40 spalte2
     
    548549 (( processes_per_node = tasks_per_node * threads_per_task ))
    549550
     551    # Calculate number of MPI tasks
     552 (( mpi_tasks = numprocs / threads_per_task ))
     553
    550554
    551555    # HEADER-AUSGABE
     
    638642       network_to_use="# @ network.MPI = sn_all,shared,US"
    639643       wall_clock_limit="# @ wall_clock_limit = $timestring"
    640        rset="# @ rset = RSET_MCM_AFFINITY"
    641        mcm_affinity_options="# @ mcm_affinity_options = mcm_mem_pref mcm_sni_none mcm_distribute"
     644       if [[ $threads_per_task = 1 ]]
     645       then
     646          rset="# @ rset = RSET_MCM_AFFINITY"
     647          mcm_affinity_options="# @ mcm_affinity_options = mcm_mem_pref mcm_sni_none mcm_distribute"
     648       fi
    642649       environment=""
    643650       use_shell=""
     
    701708
    702709          cat >> $job_to_send << %%END%%
    703 # @ total_tasks = $numprocs
     710# @ total_tasks = $mpi_tasks
    704711# @ blocking = unlimited
    705712# @ queue
     
    733740       fi
    734741
     742    fi
     743
     744       # workaround because of silly job filter on ibmkisti
     745    if [[ $remote_host = ibmkisti  &&  $threads_per_task != 1 ]]
     746    then
     747       echo  "export OMP_NUM_THREADS=$threads_per_task"  >>  $job_to_send
    735748    fi
    736749
Note: See TracChangeset for help on using the changeset viewer.