Changeset 3045 for palm/trunk/SOURCE/lpm_read_restart_file.f90
- Timestamp:
- May 28, 2018 7:55:41 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/lpm_read_restart_file.f90
r2718 r3045 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Error messages revised, code adjusted according to PALMs coding standard 28 ! 29 ! 2718 2018-01-02 08:49:38Z maronga 27 30 ! Corrected "Former revisions" section 28 31 ! … … 114 117 !-- First open the input unit. 115 118 IF ( myid_char == '' ) THEN 116 OPEN ( 90, FILE='PARTICLE_RESTART_DATA_IN'//myid_char, &119 OPEN ( 90, FILE='PARTICLE_RESTART_DATA_IN'//myid_char, & 117 120 FORM='UNFORMATTED' ) 118 121 ELSE 119 OPEN ( 90, FILE='PARTICLE_RESTART_DATA_IN/'//myid_char, &122 OPEN ( 90, FILE='PARTICLE_RESTART_DATA_IN/'//myid_char, & 120 123 FORM='UNFORMATTED' ) 121 124 ENDIF … … 126 129 particle_binary_version = '4.0' 127 130 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 = "' // & 132 135 TRIM( particle_binary_version ) // '"' 133 136 CALL message( 'lpm_read_restart_file', 'PA0214', 1, 2, 0, 6, 0 ) … … 138 141 !-- min_nr_particle, the remainder is initialized by zero_particle to avoid 139 142 !-- 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, & 144 147 0, 0, 0_idp, .FALSE., -1 ) 145 148 ! 146 149 !-- Read some particle parameters and the size of the particle arrays, 147 150 !-- 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, & 150 153 time_write_particle_data 151 154 152 ALLOCATE( prt_count(nzb:nzt+1,nysg:nyng,nxlg:nxrg), &155 ALLOCATE( prt_count(nzb:nzt+1,nysg:nyng,nxlg:nxrg), & 153 156 grid_particles(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ) 154 157
Note: See TracChangeset
for help on using the changeset viewer.