Changeset 4778 for palm/trunk/SOURCE/shared_memory_io_mod.f90

Timestamp:

Nov 9, 2020 1:40:05 PM (4 years ago)

Author:

raasch

Message:

first preliminary version for output of particle data time series

File:

• palm/trunk/SOURCE/shared_memory_io_mod.f90 (modified) (8 diffs)

palm/trunk/SOURCE/shared_memory_io_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! additions for output of particle time series
+!
+! 4629 2020-07-29 09:37:56Z raasch
 ! support for MPI Fortran77 interface (mpif.h) removed
 !
@@ -151 +154 @@
     TYPE, PUBLIC ::  sm_class  !<
 
-       INTEGER(iwp) ::  nr_io_pe_per_node = 2         !< typical configuration, 2 sockets per node
+       INTEGER(iwp) ::  nr_io_pe_per_node             !< typical configuration, 2 sockets per node
        LOGICAL      ::  no_shared_Memory_in_this_run  !<
 
@@ -185 +188 @@
           PROCEDURE, PASS(this), PUBLIC ::  sm_free_shared
           PROCEDURE, PASS(this), PUBLIC ::  sm_init_comm
-          PROCEDURE, PASS(this), PUBLIC ::  sm_init_part
+          PROCEDURE, PASS(this), PUBLIC ::  sm_init_data_output_particles
           PROCEDURE, PASS(this), PUBLIC ::  sm_node_barrier
 #if defined( __parallel )
@@ -232 +235 @@
     LOGICAL, INTENT(IN) ::  sm_active  !< flag to activate shared-memory IO
 
+    this%nr_io_pe_per_node = 2
+
     IF ( PRESENT( comm_input ) )  THEN
        this%comm_model = comm_input
@@ -414 +419 @@
 
 !
-!-- TODO: short description required, about the meaning of the following routine
-!--       part must be renamed particles!
- SUBROUTINE sm_init_part( this )
+!-- Initializing setup for output of particle time series.
+!-- This output always uses a shared memory to reduce the number of particle transfers.
+ SUBROUTINE sm_init_data_output_particles( this )
 
     IMPLICIT NONE
@@ -430 +435 @@
     LOGICAL :: sm_active  !<
 
+
+    this%nr_io_pe_per_node = 2
 
     sm_active       = .TRUE.   ! particle IO always uses shared memory
@@ -505 +512 @@
 
        WRITE( *, * ) 'shared_memory_io_mod: internal error'
-       WRITE( *, * ) 'only 2 or 4 shared memory groups per node are allowed'
+       WRITE( *, * ) 'only 1, 2 or 4 shared memory groups per node are allowed '
+       WRITE( *, * ) 'here, ', this%nr_io_pe_per_node, ' groups have been set'
        STOP
 
@@ -540 +548 @@
 #endif
 
-!    write(9,'(a,8i7)') 'sm_init_comm_part ',this%sh_rank,this%sh_npes,this%io_rank,this%io_npes
-
- END SUBROUTINE sm_init_part
+ END SUBROUTINE sm_init_data_output_particles
 
 !--------------------------------------------------------------------------------------------------!