Changeset 3123


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

Correct working precision for REAL and INTEGER numbers

Location:
palm/trunk/SOURCE
Files:
3 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 !<
  • palm/trunk/SOURCE/radiation_model_mod.f90

    r3122 r3123  
    2828! -----------------
    2929! $Id$
     30! Correct working precision for INTEGER number
     31!
     32! 3122 2018-07-11 21:46:41Z maronga
    3033! Bugfix: maximum distance for raytracing was set to  -999 m by default,
    3134! effectively switching off all surface reflections when max_raytracing_dist
     
    758761    INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE      ::  pch              !< heights of the plant canopy
    759762    INTEGER(iwp)                                   ::  npcbl = 0        !< number of the plant canopy gridboxes in local processor
    760     INTEGER(wp), DIMENSION(:,:), ALLOCATABLE       ::  pcbl             !< k,j,i coordinates of l-th local plant canopy box pcbl[:,l] = [k, j, i]
     763    INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE      ::  pcbl             !< k,j,i coordinates of l-th local plant canopy box pcbl[:,l] = [k, j, i]
    761764    REAL(wp), DIMENSION(:), ALLOCATABLE            ::  pcbinsw          !< array of absorbed sw radiation for local plant canopy box
    762765    REAL(wp), DIMENSION(:), ALLOCATABLE            ::  pcbinswdir       !< array of absorbed direct sw radiation for local plant canopy box
  • palm/trunk/SOURCE/urban_surface_mod.f90

    r3115 r3123  
    2828! -----------------
    2929! $Id$
     30! Correct working precision for INTEGER number
     31!
     32! 3115 2018-07-10 12:49:26Z suehring
    3033! Additional building type to represent bridges
    3134!
     
    586589    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE        ::  aheat             !< daily average of anthropogenic heat (W/m2)
    587590    REAL(wp), DIMENSION(:,:), ALLOCATABLE          ::  aheatprof         !< diurnal profiles of anthropogenic heat for particular layers
    588     INTEGER(wp)                                    ::  naheatlayers = 1  !< number of layers of anthropogenic heat
     591    INTEGER(iwp)                                   ::  naheatlayers = 1  !< number of layers of anthropogenic heat
    589592
    590593!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Note: See TracChangeset for help on using the changeset viewer.