Changeset 1353 for palm/trunk/SOURCE/write_3d_binary.f90

Timestamp:

Apr 8, 2014 3:21:23 PM (10 years ago)

Author:

heinze

Message:

REAL constants provided with KIND-attribute

File:

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

palm/trunk/SOURCE/write_3d_binary.f90

@@ -80 +80 @@
         ONLY:  nxl, nxr, nys, nyn, nzb, nzt
         
-    USE particle_attributes,                                                               &
+    USE particle_attributes,                                                   &
         ONLY:  iran_part
         
     USE pegrid
     
-    USE random_function_mod,                                                               &
+    USE random_function_mod,                                                   &
         ONLY:  random_iv, random_iy