Ignore:
Timestamp:
Apr 16, 2007 3:40:52 PM (14 years ago)
Author:
raasch
Message:

vorlaeufige Standalone-Version fuer Linux-Cluster

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/init_pegrid.f90

    r77 r82  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Cpp-directive lcmuk changed to intel_openmp_bug, setting of host on lcmuk by
     7! cpp-directive removed
    78!
    89! Former revisions:
     
    5657!-- Get the number of OpenMP threads
    5758    !$OMP PARALLEL
    58 #if defined( __lcmuk )
     59#if defined( __intel_openmp_bug )
    5960    threads_per_task = omp_get_num_threads()
    6061#else
     
    7273!--    Automatic determination of the topology
    7374!--    The default on SMP- and cluster-hosts is a 1d-decomposition along x
    74 #if defined( __lcmuk )
    75        host = 'lcmuk'
    76 #endif
    7775       IF ( host(1:3) == 'ibm'  .OR.  host(1:3) == 'nec'  .OR. &
    7876            host(1:2) == 'lc'   .OR.  host(1:3) == 'dec' )  THEN
Note: See TracChangeset for help on using the changeset viewer.