Changeset 1324 for palm/trunk/SOURCE/transpose.f90
- Timestamp:
- Mar 21, 2014 9:13:16 AM (10 years ago)
- File:
-
- 1 edited
-
palm/trunk/SOURCE/transpose.f90 (modified) (8 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/transpose.f90
r1321 r1324 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Bugfix: ONLY statement for module pegrid removed 23 23 ! 24 24 ! Former revisions: … … 264 264 USE kinds 265 265 266 USE pegrid, & 267 ONLY: collective_wait, comm1dx, comm2d, ierr, MPI_DOUBLE_PRECISION, & 268 pdims, sendrecvcount_zx 266 USE pegrid 269 267 270 268 USE transpose_indices, & … … 407 405 USE kinds 408 406 409 USE pegrid, & 410 ONLY: collective_wait, comm1dy, comm2d, ierr, MPI_DOUBLE_PRECISION, & 411 numprocs, pdims, sendrecvcount_xy 407 USE pegrid 412 408 413 409 USE transpose_indices, & … … 504 500 USE kinds 505 501 506 USE pegrid, & 507 ONLY: collective_wait, comm1dx, comm2d, ierr, MPI_DOUBLE_PRECISION, & 508 pdims, sendrecvcount_xy 502 USE pegrid 509 503 510 504 USE transpose_indices, & … … 629 623 USE kinds 630 624 631 USE pegrid, & 632 ONLY: collective_wait, comm1dx, comm2d, ierr, MPI_DOUBLE_PRECISION, & 633 pdims, sendrecvcount_yz 625 USE pegrid 634 626 635 627 USE transpose_indices, & … … 767 759 USE kinds 768 760 769 USE pegrid, & 770 ONLY: collective_wait, comm1dx, comm2d, ierr, MPI_DOUBLE_PRECISION, & 771 pdims, sendrecvcount_zx 761 USE pegrid 772 762 773 763 USE transpose_indices, & … … 909 899 USE kinds 910 900 911 USE pegrid, & 912 ONLY: collective_wait, comm1dx, comm2d, ierr, MPI_DOUBLE_PRECISION, & 913 pdims, sendrecvcount_yz 901 USE pegrid 914 902 915 903 USE transpose_indices, & … … 1007 995 USE kinds 1008 996 1009 USE pegrid, & 1010 ONLY: collective_wait, comm1dy, comm2d, ierr, MPI_DOUBLE_PRECISION, & 1011 pdims, sendrecvcount_zyd 997 USE pegrid 1012 998 1013 999 USE transpose_indices, &
Note: See TracChangeset
for help on using the changeset viewer.
