Changeset 1468 for palm/trunk/SOURCE/palm.f90
- Timestamp:
- Sep 24, 2014 2:06:57 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/palm.f90
r1403 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: … … 169 169 ! 170 170 !-- Test output (to be removed later) 171 WRITE (*,'(A,I 4,A,I3,A,I3,A,I3)') '*** Connect MPI-Task ', myid,' to CPU ',&171 WRITE (*,'(A,I6,A,I3,A,I3,A,I3)') '*** Connect MPI-Task ', myid,' to CPU ',& 172 172 acc_rank, ' Devices: ', num_acc_per_node,& 173 173 ' connected to:', & … … 191 191 ! 192 192 !-- Open a file for debug output 193 WRITE (myid_char,'(''_'',I 4.4)') myid193 WRITE (myid_char,'(''_'',I6.6)') myid 194 194 OPEN( 9, FILE='DEBUG'//TRIM( coupling_char )//myid_char, FORM='FORMATTED' ) 195 195
Note: See TracChangeset
for help on using the changeset viewer.