Ignore:
Timestamp:
Apr 11, 2014 5:15:14 PM (7 years ago)
Author:
hoffmann
Message:

new Lagrangian particle structure integrated

File:
1 edited

Legend:

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

    r1354 r1359  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Format of particle exchange statistics extended to reasonable numbers of     
     23! particles.
    2324!
    2425! Former revisions:
     
    9192
    9293    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
    9496
    9597    USE kinds
     
    591593!--                     unit 85 is changed (see also in routine
    592594!--                     lpm_data_output_particles)
    593              rtext = 'data format version 3.0'
     595             rtext = 'data format version 3.1'
    594596             WRITE ( 85 )  rtext
    595597             WRITE ( 85 )  number_of_particle_groups,                          &
    596598                           max_number_of_particle_groups
    597599             WRITE ( 85 )  particle_groups
     600             WRITE ( 85 )  nxl, nxr, nys, nyn, nzb, nzt, nbgp
    598601          ENDIF
    599602
     
    11361139             '#18 pt(zp)'/'#19 splptx'/'#20 splpty'/'#21 splptz')
    113711408000 FORMAT (A/                                                                &
    1138              '  step    time  # of parts   lPE sent/recv  rPE sent/recv  ',    &
    1139              'sPE sent/recv  nPE sent/recv  max # of parts'/                   &
    1140              103('-'))
     1141             '  step    time    # of parts     lPE sent/recv  rPE sent/recv  ',&
     1142             'sPE sent/recv  nPE sent/recv    max # of parts  '/               &
     1143             109('-'))
    11411144
    11421145 END SUBROUTINE check_open
Note: See TracChangeset for help on using the changeset viewer.