Ignore:
Timestamp:
Mar 18, 2007 11:46:30 PM (15 years ago)
Author:
raasch
Message:

bugs fixed for particle code and bc-scheme

File:
1 edited

Legend:

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

    r60 r70  
    5959!-- length 100, nevertheless, 120 bytes are needed on T3E since integer seems
    6060!-- to be 8 bytes long there)
    61     blocklengths(1)  = 18; blocklengths(2)  = 4; blocklengths(3)  =  1
     61    blocklengths(1)  = 19; blocklengths(2)  = 4; blocklengths(3)  =  1
    6262#if defined( __t3eb )
    6363    displacements(1) = 0; displacements(2) = 152; displacements(3) = 184
Note: See TracChangeset for help on using the changeset viewer.