Changeset 4045 for palm/trunk/SOURCE/init_pegrid.f90

Timestamp:

Jun 21, 2019 10:58:47 AM (5 years ago)

Author:

raasch

Message:

bugfix: kind attribute added to NINT function to allow for large integers which may appear in case of default recycling width and small grid spacings

File:

• palm/trunk/SOURCE/init_pegrid.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_pegrid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: kind attribute added to nint function to allow for large integers which may appear in
+! case of default recycling width and small grid spacings
+! 
+! 3999 2019-05-23 16:09:37Z suehring
 ! Spend 3 ghost points also in case of pw-scheme when nesting is applied
 ! 
@@ -1385 +1389 @@
     IF ( turbulent_inflow ) THEN
     
-       IF ( NINT( recycling_width / dx ) >= nxl  .AND. &
-            NINT( recycling_width / dx ) <= nxr )  THEN
+       IF ( NINT( recycling_width / dx, KIND=idp ) >= nxl  .AND.                                   &
+            NINT( recycling_width / dx, KIND=idp ) <= nxr )  THEN
           id_recycling_l = myidx
        ELSE