Changeset 229


Ignore:
Timestamp:
Feb 3, 2009 9:55:14 AM (14 years ago)
Author:
raasch
Message:

bugfixes concerning particle tails

Location:
palm/trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/DOC/tec/technical_documentation.html

    r226 r229  
    1212<br><table nosave="" cellpadding="0" cellspacing="0"> <caption>&nbsp; <br> </caption><tbody>
    1313</tbody><tbody> </tbody> <tbody> <tr nosave=""> <td nosave=""><b>Current
    14 model version:</b></td> <td><span style="font-weight: bold;">3.6</span></td> </tr>
     14model version:</b></td> <td><span style="font-weight: bold;">3.6 (rev 228)</span></td> </tr>
    1515<tr nosave=""> <td nosave=""><b>Last
    1616change of this document</b>:&nbsp;</td> <td nosave=""><b>$Id$</b></td> </tr>
     
    24342434init_3d_model, init_dvrp, local_stop, plant_canopy_model, poismg,
    24352435prandtl_fluxes, pres, read_3d_binary, user_interface, wall_fluxes,
    2436 write_3d_binary<br></td></tr><tr><td style="vertical-align: top;">02/02/09</td><td style="vertical-align: top;">SR</td><td style="vertical-align: top;">3.6</td><td style="vertical-align: top;">N</td><td style="vertical-align: top;">This
     2436write_3d_binary<br></td></tr><tr><td style="vertical-align: top;">02/02/09</td><td style="vertical-align: top;">SR</td><td style="vertical-align: top;">3.6<br>(r228)</td><td style="vertical-align: top;">N</td><td style="vertical-align: top;">This
    24372437release contains further additions, changes, and bugfixes for the
    24382438SGI-ICE system, as well as important changes like the splitting of the
  • palm/trunk/SOURCE/CURRENT_MODIFICATIONS

    r227 r229  
    1010------
    1111
     12Bugfix: several tail counters are initialized, particle_tail_coordinates is
     13only written to file if its third index is > 0, arrays for tails are allocated
     14with a minimum size of 10 tails if there is no tail initially (init_particles,
     15advec_particles)
     16 
  • palm/trunk/SOURCE/advec_particles.f90

    r226 r229  
    44! Actual revisions:
    55! -----------------
     6! Bugfix: several tail counters are initialized, particle_tail_coordinates is
     7! only written to file if its third index is > 0
    68! TEST: PRINT statements on unit 9 (commented out)
    79!
     
    159161       WRITE ( 85 )  maximum_number_of_tailpoints, maximum_number_of_tails, &
    160162                     number_of_tails
    161        WRITE ( 85 )  particle_tail_coordinates
     163       IF ( maximum_number_of_tails > 0 )  THEN
     164          WRITE ( 85 )  particle_tail_coordinates
     165       ENDIF
    162166       CALL close_file( 85 )
    163167
     
    823827       trrp_count_recv   = 0
    824828       trsp_count_recv   = 0
     829       trlpt_count_recv  = 0
     830       trnpt_count_recv  = 0
     831       trrpt_count_recv  = 0
     832       trspt_count_recv  = 0
    825833       IF ( use_particle_tails )  THEN
    826834          tail_mask     = .TRUE.
    827           deleted_tails = 0
    828835       ENDIF
     836       deleted_tails = 0
    829837
    830838
  • palm/trunk/SOURCE/init_particles.f90

    r198 r229  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Bugfix: arrays for tails are allocated with a minimum size of 10 tails if
     7! there is no tail initially
    78!
    89! Former revisions:
     
    457458          ENDDO
    458459          maximum_number_of_tails = factor * INT( value )
     460!
     461!--       Create a minimum number of tails in case that there is no tail
     462!--       initially (otherwise, index errors will occur when adressing the
     463!--       arrays below)
     464          IF ( maximum_number_of_tails == 0 )  maximum_number_of_tails = 10
    459465
    460466          ALLOCATE( particle_tail_coordinates(maximum_number_of_tailpoints,5, &
Note: See TracChangeset for help on using the changeset viewer.