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

Timestamp:

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

Author:

raasch

Message:

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

File:

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

palm/trunk/SOURCE/pmc_parent_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3182 2018-07-27 13:36:03Z suehring
 ! Comment extended
 ! 
@@ -249 +252 @@
 
      INTEGER(iwp) ::  ian    !<
-     INTEGER(iwp) ::  ic     !<
      INTEGER(iwp) ::  ie     !<
      INTEGER(iwp) ::  ip     !<
      INTEGER(iwp) ::  is     !<
      INTEGER(iwp) ::  istat  !<
-     INTEGER(iwp) ::  n,i    !<
 
 
@@ -472 +473 @@
     INTEGER(iwp)                   ::  i        !<
     INTEGER(iwp)                   ::  ierr     !<
-    INTEGER(iwp)                   ::  istat    !<
     INTEGER(iwp)                   ::  j        !<
     INTEGER(iwp)                   ::  myindex  !<
@@ -633 +633 @@
     INTEGER(iwp)               ::  ij       !<
     INTEGER(iwp)               ::  ip       !<
-    INTEGER(iwp)               ::  istat    !<
     INTEGER(iwp)               ::  j        !<
     INTEGER(iwp)               ::  myindex  !<
@@ -728 +727 @@
     INTEGER(iwp)                   ::  ip_start      !<
     INTEGER(iwp)                   ::  ip_end        !<
-    INTEGER(iwp)                   ::  istat         !<
     INTEGER(iwp)                   ::  j             !<
     INTEGER(iwp)                   ::  myindex       !<
     INTEGER(iwp)                   ::  nr            !<
     INTEGER(iwp)                   ::  target_pe     !<
-    INTEGER(kind=MPI_ADDRESS_KIND) ::  target_disp   !<
+    INTEGER(KIND=MPI_ADDRESS_KIND) ::  target_disp   !<
     
     LOGICAL                        ::  lo_ptrans
@@ -926 +924 @@
     INTEGER(iwp), INTENT(IN) ::  iactive   !<
 
-    INTEGER(iwp) :: i   !<
     INTEGER(iwp) :: ip  !<
     INTEGER(iwp) :: j   !<