Changeset 3241 for palm/trunk/SOURCE/pmc_child_mod.f90

Timestamp:

Sep 12, 2018 3:02:00 PM (5 years ago)

Author:

raasch

Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:

• palm/trunk/SOURCE/pmc_child_mod.f90 (modified) (6 diffs)

palm/trunk/SOURCE/pmc_child_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 2841 2018-02-27 15:02:57Z knoop
 ! Bugfix: wrong placement of include 'mpif.h' corrected
 ! 
@@ -226 +229 @@
 
     INTEGER(iwp) ::  mype  !<
-    INTEGER(iwp) ::  my_addiarray = 0  !<
 
 
@@ -565 +567 @@
 !--                                    recv -> parent to child transfer
 !--                                    send -> child to parent transfer
-    CHARACTER(LEN=da_namelen) ::  myname  !<
-
     INTEGER(iwp) ::  arlen    !<
     INTEGER(iwp) ::  myindex  !<
@@ -735 +735 @@
     LOGICAL, INTENT(IN), OPTIONAL   ::  particle_transfer  !<
 
-    CHARACTER(LEN=da_namelen) ::  myname  !<
-    
     LOGICAL                        ::  lo_ptrans!<
     
@@ -870 +868 @@
     LOGICAL, INTENT(IN), OPTIONAL   ::  particle_transfer  !<
 
-    CHARACTER(LEN=da_namelen) ::  myname  !<
-    
     LOGICAL ::  lo_ptrans!<
     
@@ -879 +875 @@
     INTEGER(iwp) ::  j            !<
     INTEGER(iwp) ::  myindex      !<
-    INTEGER(iwp) ::  nr           !< number of elements to get from parent
-    
-    INTEGER(KIND=MPI_ADDRESS_KIND) ::  target_disp  !<
-    
 
     INTEGER(iwp), DIMENSION(1) ::  buf_shape    !<