Changeset 3405 for palm/trunk/SOURCE/data_output_3d.f90

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

File:

• palm/trunk/SOURCE/data_output_3d.f90 (modified) (2 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