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

Timestamp:

Nov 1, 2017 2:11:20 PM (7 years ago)

Author:

raasch

Message:

small changes concerning r2599, cycle number are now three digits wide

File:

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

palm/trunk/SOURCE/init_pegrid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! calculation of block-I/O quantitites removed (is now done in parin)
+! 
+! 2516 2017-10-04 11:03:04Z suehring
 ! Remove tabs
 ! 
@@ -209 +212 @@
                coupling_topology, gathered_size, grid_level,                   &
                grid_level_count, inflow_l, inflow_n, inflow_r, inflow_s,       &
-               io_blocks, io_group, maximum_grid_level,                        &
-               maximum_parallel_io_streams, message_string,                    &
+               maximum_grid_level, message_string,                             &
                mg_switch_to_pe0_level, momentum_advec, nest_bound_l,           &
                nest_bound_n, nest_bound_r, nest_bound_s, nest_domain, neutral, &
@@ -1372 +1374 @@
     ENDIF
 
-!
-!-- Calculate the number of groups into which parallel I/O is split.
-!-- The default for files which are opened by all PEs (or where each
-!-- PE opens his own independent file) is, that all PEs are doing input/output
-!-- in parallel at the same time. This might cause performance or even more
-!-- severe problems depending on the configuration of the underlying file
-!-- system.
-!-- First, set the default:
-    IF ( maximum_parallel_io_streams == -1  .OR. &
-         maximum_parallel_io_streams > numprocs )  THEN
-       maximum_parallel_io_streams = numprocs
-    ENDIF
-
-!
-!-- Now calculate the number of io_blocks and the io_group to which the
-!-- respective PE belongs. I/O of the groups is done in serial, but in parallel
-!-- for all PEs belonging to the same group. A preliminary setting with myid
-!-- based on MPI_COMM_WORLD has been done in parin.
-    io_blocks = numprocs / maximum_parallel_io_streams
-    io_group  = MOD( myid+1, io_blocks )
-    
-
  END SUBROUTINE init_pegrid