Ignore:
Timestamp:
Sep 12, 2018 3:02:00 PM (3 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_child_mod.f90

    r2841 r3241  
    2626! -----------------
    2727! $Id$
     28! unused variables removed
     29!
     30! 2841 2018-02-27 15:02:57Z knoop
    2831! Bugfix: wrong placement of include 'mpif.h' corrected
    2932!
     
    226229
    227230    INTEGER(iwp) ::  mype  !<
    228     INTEGER(iwp) ::  my_addiarray = 0  !<
    229231
    230232
     
    565567!--                                    recv -> parent to child transfer
    566568!--                                    send -> child to parent transfer
    567     CHARACTER(LEN=da_namelen) ::  myname  !<
    568 
    569569    INTEGER(iwp) ::  arlen    !<
    570570    INTEGER(iwp) ::  myindex  !<
     
    735735    LOGICAL, INTENT(IN), OPTIONAL   ::  particle_transfer  !<
    736736
    737     CHARACTER(LEN=da_namelen) ::  myname  !<
    738    
    739737    LOGICAL                        ::  lo_ptrans!<
    740738   
     
    870868    LOGICAL, INTENT(IN), OPTIONAL   ::  particle_transfer  !<
    871869
    872     CHARACTER(LEN=da_namelen) ::  myname  !<
    873    
    874870    LOGICAL ::  lo_ptrans!<
    875871   
     
    879875    INTEGER(iwp) ::  j            !<
    880876    INTEGER(iwp) ::  myindex      !<
    881     INTEGER(iwp) ::  nr           !< number of elements to get from parent
    882    
    883     INTEGER(KIND=MPI_ADDRESS_KIND) ::  target_disp  !<
    884    
    885877
    886878    INTEGER(iwp), DIMENSION(1) ::  buf_shape    !<
Note: See TracChangeset for help on using the changeset viewer.