Changeset 1468 for palm/trunk/SOURCE/init_pegrid.f90
- Timestamp:
- Sep 24, 2014 2:06:57 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_pegrid.f90
r1436 r1468 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! Adapted for use on up to 6-digit processor cores 23 23 ! 24 24 ! Former revisions: … … 242 242 comm2d, ierr ) 243 243 CALL MPI_COMM_RANK( comm2d, myid, ierr ) 244 WRITE (myid_char,'(''_'',I 4.4)') myid244 WRITE (myid_char,'(''_'',I6.6)') myid 245 245 246 246 CALL MPI_CART_COORDS( comm2d, myid, ndim, pcoord, ierr )
Note: See TracChangeset
for help on using the changeset viewer.