Ignore:
Timestamp:
Jul 12, 2018 4:21:53 PM (3 years ago)
Author:
suehring
Message:

Correct working precision for REAL and INTEGER numbers

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/pmc_particle_interface.f90

    r3049 r3123  
    2626! -----------------!
    2727! $Id$
     28! Correct working precision for REAL numbers
     29!
     30! 3049 2018-05-29 13:52:36Z Giersch
    2831! Error messages revised
    2932!
     
    986989    INTEGER(iwp) ::  n    !< loop index (number of particles)
    987990   
    988     REAL(iwp) ::  x       !< x coordinate
    989     REAL(iwp) ::  xo      !< x origin
    990     REAL(iwp) ::  x_left  !< absolute left boundary
    991     REAL(iwp) ::  x_right !< absolute right boundary
    992     REAL(iwp) ::  y       !< left boundary in coarse(parent) index space
    993     REAL(iwp) ::  yo      !< y origin
    994     REAL(iwp) ::  y_north !< absolute north boundary
    995     REAL(iwp) ::  y_south !< absoulte south boundary
    996     REAL(iwp) ::  z       !< z coordinate
     991    REAL(wp) ::  x       !< x coordinate
     992    REAL(wp) ::  xo      !< x origin
     993    REAL(wp) ::  x_left  !< absolute left boundary
     994    REAL(wp) ::  x_right !< absolute right boundary
     995    REAL(wp) ::  y       !< left boundary in coarse(parent) index space
     996    REAL(wp) ::  yo      !< y origin
     997    REAL(wp) ::  y_north !< absolute north boundary
     998    REAL(wp) ::  y_south !< absoulte south boundary
     999    REAL(wp) ::  z       !< z coordinate
    9971000
    9981001#if defined( __parallel )
     
    10971100    INTEGER(iwp) ::  pindex !< short variable name part_adr
    10981101   
    1099     REAL(iwp) ::  x  !< x coordinate
    1100     REAL(iwp) ::  xo !< x origin
    1101     REAL(iwp) ::  y  !< y coordinate
    1102     REAL(iwp) ::  yo !< y origin
    1103     REAL(iwp) ::  z  !< z coordinate
     1102    REAL(wp) ::  x  !< x coordinate
     1103    REAL(wp) ::  xo !< x origin
     1104    REAL(wp) ::  y  !< y coordinate
     1105    REAL(wp) ::  yo !< y origin
     1106    REAL(wp) ::  z  !< z coordinate
    11041107   
    11051108    INTEGER(iwp),DIMENSION(1) ::  buf_shape !<
Note: See TracChangeset for help on using the changeset viewer.