Changeset 3241 for palm/trunk/SOURCE/pmc_parent_mod.f90
- Timestamp:
- Sep 12, 2018 3:02:00 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/pmc_parent_mod.f90
r3182 r3241 26 26 ! ----------------- 27 27 ! $Id$ 28 ! unused variables removed 29 ! 30 ! 3182 2018-07-27 13:36:03Z suehring 28 31 ! Comment extended 29 32 ! … … 249 252 250 253 INTEGER(iwp) :: ian !< 251 INTEGER(iwp) :: ic !<252 254 INTEGER(iwp) :: ie !< 253 255 INTEGER(iwp) :: ip !< 254 256 INTEGER(iwp) :: is !< 255 257 INTEGER(iwp) :: istat !< 256 INTEGER(iwp) :: n,i !<257 258 258 259 … … 472 473 INTEGER(iwp) :: i !< 473 474 INTEGER(iwp) :: ierr !< 474 INTEGER(iwp) :: istat !<475 475 INTEGER(iwp) :: j !< 476 476 INTEGER(iwp) :: myindex !< … … 633 633 INTEGER(iwp) :: ij !< 634 634 INTEGER(iwp) :: ip !< 635 INTEGER(iwp) :: istat !<636 635 INTEGER(iwp) :: j !< 637 636 INTEGER(iwp) :: myindex !< … … 728 727 INTEGER(iwp) :: ip_start !< 729 728 INTEGER(iwp) :: ip_end !< 730 INTEGER(iwp) :: istat !<731 729 INTEGER(iwp) :: j !< 732 730 INTEGER(iwp) :: myindex !< 733 731 INTEGER(iwp) :: nr !< 734 732 INTEGER(iwp) :: target_pe !< 735 INTEGER( kind=MPI_ADDRESS_KIND) :: target_disp !<733 INTEGER(KIND=MPI_ADDRESS_KIND) :: target_disp !< 736 734 737 735 LOGICAL :: lo_ptrans … … 926 924 INTEGER(iwp), INTENT(IN) :: iactive !< 927 925 928 INTEGER(iwp) :: i !<929 926 INTEGER(iwp) :: ip !< 930 927 INTEGER(iwp) :: j !<
Note: See TracChangeset
for help on using the changeset viewer.