Changeset 70 for palm/trunk/SOURCE/init_particles.f90

Timestamp:

Mar 18, 2007 11:46:30 PM (17 years ago)

Author:

raasch

Message:

bugs fixed for particle code and bc-scheme

File:

• palm/trunk/SOURCE/init_particles.f90 (modified) (1 diff)

palm/trunk/SOURCE/init_particles.f90

@@ -59 +59 @@
 !-- length 100, nevertheless, 120 bytes are needed on T3E since integer seems
 !-- to be 8 bytes long there)
-    blocklengths(1)  = 18; blocklengths(2)  = 4; blocklengths(3)  =  1
+    blocklengths(1)  = 19; blocklengths(2)  = 4; blocklengths(3)  =  1
 #if defined( __t3eb )
     displacements(1) = 0; displacements(2) = 152; displacements(3) = 184