Changeset 1359 for palm/trunk/SOURCE/check_open.f90
- Timestamp:
- Apr 11, 2014 5:15:14 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_open.f90
r1354 r1359 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Format of particle exchange statistics extended to reasonable numbers of 23 ! particles. 23 24 ! 24 25 ! Former revisions: … … 91 92 92 93 USE indices, & 93 ONLY: nbgp, nx, nxlg, nxrg, ny, nyng, nysg, nz, nzb 94 ONLY: nbgp, nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg, nz, & 95 nzb, nzt 94 96 95 97 USE kinds … … 591 593 !-- unit 85 is changed (see also in routine 592 594 !-- lpm_data_output_particles) 593 rtext = 'data format version 3. 0'595 rtext = 'data format version 3.1' 594 596 WRITE ( 85 ) rtext 595 597 WRITE ( 85 ) number_of_particle_groups, & 596 598 max_number_of_particle_groups 597 599 WRITE ( 85 ) particle_groups 600 WRITE ( 85 ) nxl, nxr, nys, nyn, nzb, nzt, nbgp 598 601 ENDIF 599 602 … … 1136 1139 '#18 pt(zp)'/'#19 splptx'/'#20 splpty'/'#21 splptz') 1137 1140 8000 FORMAT (A/ & 1138 ' step time # of parts lPE sent/recv rPE sent/recv ',&1139 'sPE sent/recv nPE sent/recv max # of parts'/&1140 10 3('-'))1141 ' step time # of parts lPE sent/recv rPE sent/recv ',& 1142 'sPE sent/recv nPE sent/recv max # of parts '/ & 1143 109('-')) 1141 1144 1142 1145 END SUBROUTINE check_open
Note: See TracChangeset
for help on using the changeset viewer.