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

Timestamp:

Jun 29, 2017 1:31:14 PM (7 years ago)

Author:

raasch

Message:

NEC related code partly removed, host variable partly removed, host specific code completely removed, default values for host, loop_optimization and termination time_needed changed

File:

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

palm/trunk/SOURCE/init_pegrid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! host-specific settings removed
+! 
+! 2298 2017-06-29 09:28:18Z raasch
 ! MPI2 related parts removed
 ! 
@@ -193 +196 @@
         ONLY:  bc_lr, bc_ns, coupling_mode, coupling_mode_remote,              &
                coupling_topology, gathered_size, grid_level,                   &
-               grid_level_count, host, inflow_l, inflow_n, inflow_r, inflow_s, &
+               grid_level_count, inflow_l, inflow_n, inflow_r, inflow_s,       &
                io_blocks, io_group, maximum_grid_level,                        &
                maximum_parallel_io_streams, message_string,                    &
@@ -315 +318 @@
 
 !
-!-- For communication speedup, set barriers in front of collective
-!-- communications by default on SGI-type systems
-    IF ( host(3:5) == 'sgi' )  collective_wait = .TRUE.
-
-!
 !-- If necessary, set horizontal boundary conditions to non-cyclic
     IF ( bc_lr /= 'cyclic' )  cyclic(1) = .FALSE.