Ignore:
Timestamp:
Mar 21, 2014 9:13:16 AM (7 years ago)
Author:
suehring
Message:

Bugfixes in ONLY statements

File:
1 edited

Legend:

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

    r1321 r1324  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Bugfix: ONLY statement for module pegrid removed
    2323!
    2424! Former revisions:
     
    264264    USE kinds
    265265
    266     USE pegrid,                                                                &
    267         ONLY:  collective_wait, comm1dx, comm2d, ierr, MPI_DOUBLE_PRECISION,   &
    268                pdims, sendrecvcount_zx
     266    USE pegrid
    269267
    270268    USE transpose_indices,                                                     &
     
    407405    USE kinds
    408406
    409     USE pegrid,                                                                &
    410         ONLY:  collective_wait, comm1dy, comm2d, ierr, MPI_DOUBLE_PRECISION,   &
    411                numprocs, pdims, sendrecvcount_xy
     407    USE pegrid
    412408
    413409    USE transpose_indices,                                                     &
     
    504500    USE kinds
    505501
    506     USE pegrid,                                                                &
    507         ONLY:  collective_wait, comm1dx, comm2d, ierr, MPI_DOUBLE_PRECISION,   &
    508                pdims, sendrecvcount_xy
     502    USE pegrid
    509503
    510504    USE transpose_indices,                                                     &
     
    629623    USE kinds
    630624
    631     USE pegrid,                                                                &
    632         ONLY:  collective_wait, comm1dx, comm2d, ierr, MPI_DOUBLE_PRECISION,   &
    633                pdims, sendrecvcount_yz
     625    USE pegrid
    634626
    635627    USE transpose_indices,                                                     &
     
    767759    USE kinds
    768760
    769     USE pegrid,                                                                &
    770         ONLY:  collective_wait, comm1dx, comm2d, ierr, MPI_DOUBLE_PRECISION,   &
    771                pdims, sendrecvcount_zx
     761    USE pegrid
    772762
    773763    USE transpose_indices,                                                     &
     
    909899    USE kinds
    910900
    911     USE pegrid,                                                                &
    912         ONLY:  collective_wait, comm1dx, comm2d, ierr, MPI_DOUBLE_PRECISION,   &
    913                pdims, sendrecvcount_yz
     901    USE pegrid
    914902
    915903    USE transpose_indices,                                                     &
     
    1007995    USE kinds
    1008996
    1009     USE pegrid,                                                                &
    1010         ONLY:  collective_wait, comm1dy, comm2d, ierr, MPI_DOUBLE_PRECISION,   &
    1011                pdims, sendrecvcount_zyd
     997    USE pegrid
    1012998
    1013999    USE transpose_indices,                                                     &
Note: See TracChangeset for help on using the changeset viewer.