Changeset 1139 for palm/trunk/SOURCE

Timestamp:

Apr 18, 2013 7:25:03 AM (12 years ago)

Author:

raasch

Message:

bugfix for calculating the id of the PE carrying the recycling plane

File:

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

palm/trunk/SOURCE/init_pegrid.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! bugfix for calculating the id of the PE carrying the recycling plane
 !
 ! Former revisions:
@@ -1093 +1093 @@
 !-- Broadcast the id of the recycling plane
 !-- WARNING: needs to be adjusted in case of inflows other than from left side!
-    IF ( ( recycling_width / dx ) >= nxl  .AND. &
-         ( recycling_width / dx ) <= nxr )  THEN
+    IF ( NINT( recycling_width / dx ) >= nxl  .AND. &
+         NINT( recycling_width / dx ) <= nxr )  THEN
        id_recycling_l = myidx
     ELSE