Ignore:
Timestamp:
Sep 12, 2018 3:02:00 PM (6 years ago)
Author:
raasch
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/pmc_parent_mod.f90

    r3182 r3241  
    2626! -----------------
    2727! $Id$
     28! unused variables removed
     29!
     30! 3182 2018-07-27 13:36:03Z suehring
    2831! Comment extended
    2932!
     
    249252
    250253     INTEGER(iwp) ::  ian    !<
    251      INTEGER(iwp) ::  ic     !<
    252254     INTEGER(iwp) ::  ie     !<
    253255     INTEGER(iwp) ::  ip     !<
    254256     INTEGER(iwp) ::  is     !<
    255257     INTEGER(iwp) ::  istat  !<
    256      INTEGER(iwp) ::  n,i    !<
    257258
    258259
     
    472473    INTEGER(iwp)                   ::  i        !<
    473474    INTEGER(iwp)                   ::  ierr     !<
    474     INTEGER(iwp)                   ::  istat    !<
    475475    INTEGER(iwp)                   ::  j        !<
    476476    INTEGER(iwp)                   ::  myindex  !<
     
    633633    INTEGER(iwp)               ::  ij       !<
    634634    INTEGER(iwp)               ::  ip       !<
    635     INTEGER(iwp)               ::  istat    !<
    636635    INTEGER(iwp)               ::  j        !<
    637636    INTEGER(iwp)               ::  myindex  !<
     
    728727    INTEGER(iwp)                   ::  ip_start      !<
    729728    INTEGER(iwp)                   ::  ip_end        !<
    730     INTEGER(iwp)                   ::  istat         !<
    731729    INTEGER(iwp)                   ::  j             !<
    732730    INTEGER(iwp)                   ::  myindex       !<
    733731    INTEGER(iwp)                   ::  nr            !<
    734732    INTEGER(iwp)                   ::  target_pe     !<
    735     INTEGER(kind=MPI_ADDRESS_KIND) ::  target_disp   !<
     733    INTEGER(KIND=MPI_ADDRESS_KIND) ::  target_disp   !<
    736734   
    737735    LOGICAL                        ::  lo_ptrans
     
    926924    INTEGER(iwp), INTENT(IN) ::  iactive   !<
    927925
    928     INTEGER(iwp) :: i   !<
    929926    INTEGER(iwp) :: ip  !<
    930927    INTEGER(iwp) :: j   !<
Note: See TracChangeset for help on using the changeset viewer.