Changeset 82 for palm/trunk/SOURCE/init_pegrid.f90

Timestamp:

Apr 16, 2007 3:40:52 PM (17 years ago)

Author:

raasch

Message:

vorlaeufige Standalone-Version fuer Linux-Cluster

File:

• palm/trunk/SOURCE/init_pegrid.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_pegrid.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Cpp-directive lcmuk changed to intel_openmp_bug, setting of host on lcmuk by
+! cpp-directive removed
 !
 ! Former revisions:
@@ -56 +57 @@
 !-- Get the number of OpenMP threads
     !$OMP PARALLEL
-#if defined( __lcmuk )
+#if defined( __intel_openmp_bug )
     threads_per_task = omp_get_num_threads()
 #else
@@ -72 +73 @@
 !--    Automatic determination of the topology
 !--    The default on SMP- and cluster-hosts is a 1d-decomposition along x
-#if defined( __lcmuk )
-       host = 'lcmuk'
-#endif
        IF ( host(1:3) == 'ibm'  .OR.  host(1:3) == 'nec'  .OR. &
             host(1:2) == 'lc'   .OR.  host(1:3) == 'dec' )  THEN