Changeset 3720

Timestamp:

Feb 6, 2019 1:19:55 PM (6 years ago)

Author:

knoop

Message:

Made "particle_type" interoperabel with C by adding "C_BOOL" to "particle_mask"

File:

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

palm/trunk/SOURCE/mod_particle_attributes.f90

@@ -242 +242 @@
         INTEGER(iwp) ::  group         !< number of particle group
         INTEGER(idp) ::  id            !< particle ID (64 bit integer)
-        LOGICAL      ::  particle_mask !< if this parameter is set to false the particle will be deleted
+        LOGICAL(C_BOOL) ::  particle_mask !< if this parameter is set to false the particle will be deleted
         INTEGER(iwp) ::  block_nr      !< number for sorting (removable?)
     END TYPE particle_type