Ignore:
Timestamp:
May 28, 2018 7:55:41 AM (3 years ago)
Author:
Giersch
Message:

Code adjusted according to coding standards, renamed namelists, error messages revised until PA0347, output CASE 108 disabled

File:
1 edited

Legend:

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

    r2718 r3045  
    2525! -----------------
    2626! $Id$
     27! Error messages revised, code adjusted according to PALMs coding standard
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    114117!-- First open the input unit.
    115118    IF ( myid_char == '' )  THEN
    116        OPEN ( 90, FILE='PARTICLE_RESTART_DATA_IN'//myid_char, &
     119       OPEN ( 90, FILE='PARTICLE_RESTART_DATA_IN'//myid_char,                  &
    117120                  FORM='UNFORMATTED' )
    118121    ELSE
    119        OPEN ( 90, FILE='PARTICLE_RESTART_DATA_IN/'//myid_char, &
     122       OPEN ( 90, FILE='PARTICLE_RESTART_DATA_IN/'//myid_char,                 &
    120123                  FORM='UNFORMATTED' )
    121124    ENDIF
     
    126129    particle_binary_version = '4.0'
    127130    IF ( TRIM( version_on_file ) /= TRIM( particle_binary_version ) )  THEN
    128        message_string = 'version mismatch concerning data from prior ' // &
    129                         'run &version on file    = "' //                  &
    130                                       TRIM( version_on_file ) //          &
    131                         '&version in program = "' //                      &
     131       message_string = 'version mismatch concerning data from prior ' //      &
     132                        'run version on file = "' //                           &
     133                                      TRIM( version_on_file ) //               &
     134                        ' version in program = "' //                           &
    132135                                      TRIM( particle_binary_version ) // '"'
    133136       CALL message( 'lpm_read_restart_file', 'PA0214', 1, 2, 0, 6, 0 )
     
    138141!-- min_nr_particle, the remainder is initialized by zero_particle to avoid
    139142!-- errors.
    140     zero_particle = particle_type( 0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp,  &
    141                                    0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp,  &
    142                                    0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp,  &
    143                                    0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp,  &
     143    zero_particle = particle_type( 0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp,     &
     144                                   0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp,     &
     145                                   0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp,     &
     146                                   0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp,     &
    144147                                   0, 0, 0_idp, .FALSE., -1 )
    145148!
    146149!-- Read some particle parameters and the size of the particle arrays,
    147150!-- allocate them and read their contents.
    148     READ ( 90 )  bc_par_b, bc_par_lr, bc_par_ns, bc_par_t,                  &
    149                  number_of_particle_groups, particle_groups, time_prel,     &
     151    READ ( 90 )  bc_par_b, bc_par_lr, bc_par_ns, bc_par_t,                     &
     152                 number_of_particle_groups, particle_groups, time_prel,        &
    150153                 time_write_particle_data
    151154
    152     ALLOCATE( prt_count(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                     &
     155    ALLOCATE( prt_count(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                        &
    153156              grid_particles(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    154157
Note: See TracChangeset for help on using the changeset viewer.