Changeset 3123 for palm/trunk/SOURCE/radiation_model_mod.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/radiation_model_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Correct working precision for INTEGER number
+! 
+! 3122 2018-07-11 21:46:41Z maronga
 ! Bugfix: maximum distance for raytracing was set to  -999 m by default,
 ! effectively switching off all surface reflections when max_raytracing_dist
@@ -758 +761 @@
     INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE      ::  pch              !< heights of the plant canopy
     INTEGER(iwp)                                   ::  npcbl = 0        !< number of the plant canopy gridboxes in local processor
-    INTEGER(wp), DIMENSION(:,:), ALLOCATABLE       ::  pcbl             !< k,j,i coordinates of l-th local plant canopy box pcbl[:,l] = [k, j, i]
+    INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE      ::  pcbl             !< k,j,i coordinates of l-th local plant canopy box pcbl[:,l] = [k, j, i]
     REAL(wp), DIMENSION(:), ALLOCATABLE            ::  pcbinsw          !< array of absorbed sw radiation for local plant canopy box
     REAL(wp), DIMENSION(:), ALLOCATABLE            ::  pcbinswdir       !< array of absorbed direct sw radiation for local plant canopy box