Ignore:
Timestamp:
Apr 16, 2007 3:40:52 PM (14 years ago)
Author:
raasch
Message:

vorlaeufige Standalone-Version fuer Linux-Cluster

File:
1 edited

Legend:

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

    r77 r82  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Preprocessor directives for old systems removed
    77!
    88! Former revisions:
     
    5959!
    6060!-- Define MPI derived datatype for FORTRAN datatype particle_type (see module
    61 !-- particle_attributes). Integer length is 4 byte, Real is 8 byte (=> total
    62 !-- length 100, nevertheless, 120 bytes are needed on T3E since integer seems
    63 !-- to be 8 bytes long there)
    64     blocklengths(1)  = 19; blocklengths(2)  = 4; blocklengths(3)  =  1
    65 #if defined( __t3eb )
    66     displacements(1) = 0; displacements(2) = 152; displacements(3) = 184
    67 #else
    68     displacements(1) = 0; displacements(2) = 152; displacements(3) = 168
    69 #endif
     61!-- particle_attributes). Integer length is 4 byte, Real is 8 byte
     62    blocklengths(1)  = 19;  blocklengths(2)  =   4;  blocklengths(3)  =   1
     63    displacements(1) =  0;  displacements(2) = 152;  displacements(3) = 168
     64
    7065    types(1) = MPI_REAL
    7166    types(2) = MPI_INTEGER
Note: See TracChangeset for help on using the changeset viewer.