Changeset 3405

Timestamp:

Oct 23, 2018 3:34:41 PM (6 years ago)

Author:

raasch

Message:

bugfix: BIND attribute added to derived type particle_type, bugfix: nx, ny are required in non-parallel case

Location:

palm/trunk/SOURCE

Files:

• data_output_3d.f90 (modified) (2 diffs)
• mod_particle_attributes.f90 (modified) (3 diffs)

palm/trunk/SOURCE/data_output_3d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: nx, ny are required in non-parallel case
+! 
+! 3337 2018-10-12 15:17:09Z kanani
 ! (from branch resler)
 ! Add Biometeorology
@@ -242 +245 @@
         ONLY: gust_data_output_3d, gust_module_enabled
 
+#if defined( __parallel )
     USE indices,                                                               &
         ONLY:  nbgp, nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt,     &
                wall_flags_0
+#else
+    USE indices,                                                               &
+        ONLY:  nbgp, nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg, nzb,  &
+               nzt, wall_flags_0
+#endif
 
     USE kinds

palm/trunk/SOURCE/mod_particle_attributes.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: BIND attribute added to derived type particle_type
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -102 +105 @@
 MODULE particle_attributes
 
+    USE, INTRINSIC ::  ISO_C_BINDING
 
     USE kinds
@@ -211 +215 @@
 
 
-    TYPE particle_type
+    TYPE, BIND(C) ::  particle_type
         REAL(wp)     ::  aux1          !< auxiliary multi-purpose feature
         REAL(wp)     ::  aux2          !< auxiliary multi-purpose feature