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

palm/trunk/SOURCE/urban_surface_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Correct working precision for INTEGER number
+! 
+! 3115 2018-07-10 12:49:26Z suehring
 ! Additional building type to represent bridges 
 ! 
@@ -586 +589 @@
     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE        ::  aheat             !< daily average of anthropogenic heat (W/m2)
     REAL(wp), DIMENSION(:,:), ALLOCATABLE          ::  aheatprof         !< diurnal profiles of anthropogenic heat for particular layers
-    INTEGER(wp)                                    ::  naheatlayers = 1  !< number of layers of anthropogenic heat
+    INTEGER(iwp)                                   ::  naheatlayers = 1  !< number of layers of anthropogenic heat
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!