Changeset 3123 for palm/trunk/SOURCE/pmc_particle_interface.f90

Timestamp:

Jul 12, 2018 4:21:53 PM (6 years ago)

Author:

suehring

Message:

Correct working precision for REAL and INTEGER numbers

File:

• palm/trunk/SOURCE/pmc_particle_interface.f90 (modified) (3 diffs)

palm/trunk/SOURCE/pmc_particle_interface.f90

@@ -26 +26 @@
 ! -----------------! 
 ! $Id$
+! Correct working precision for REAL numbers
+! 
+! 3049 2018-05-29 13:52:36Z Giersch
 ! Error messages revised
 ! 
@@ -986 +989 @@
     INTEGER(iwp) ::  n    !< loop index (number of particles)
     
-    REAL(iwp) ::  x       !< x coordinate
-    REAL(iwp) ::  xo      !< x origin
-    REAL(iwp) ::  x_left  !< absolute left boundary
-    REAL(iwp) ::  x_right !< absolute right boundary
-    REAL(iwp) ::  y       !< left boundary in coarse(parent) index space
-    REAL(iwp) ::  yo      !< y origin
-    REAL(iwp) ::  y_north !< absolute north boundary
-    REAL(iwp) ::  y_south !< absoulte south boundary
-    REAL(iwp) ::  z       !< z coordinate
+    REAL(wp) ::  x       !< x coordinate
+    REAL(wp) ::  xo      !< x origin
+    REAL(wp) ::  x_left  !< absolute left boundary
+    REAL(wp) ::  x_right !< absolute right boundary
+    REAL(wp) ::  y       !< left boundary in coarse(parent) index space
+    REAL(wp) ::  yo      !< y origin
+    REAL(wp) ::  y_north !< absolute north boundary
+    REAL(wp) ::  y_south !< absoulte south boundary
+    REAL(wp) ::  z       !< z coordinate
 
 #if defined( __parallel )
@@ -1097 +1100 @@
     INTEGER(iwp) ::  pindex !< short variable name part_adr
     
-    REAL(iwp) ::  x  !< x coordinate
-    REAL(iwp) ::  xo !< x origin
-    REAL(iwp) ::  y  !< y coordinate
-    REAL(iwp) ::  yo !< y origin
-    REAL(iwp) ::  z  !< z coordinate
+    REAL(wp) ::  x  !< x coordinate
+    REAL(wp) ::  xo !< x origin
+    REAL(wp) ::  y  !< y coordinate
+    REAL(wp) ::  yo !< y origin
+    REAL(wp) ::  z  !< z coordinate
     
     INTEGER(iwp),DIMENSION(1) ::  buf_shape !<