Changeset 1139


Ignore:
Timestamp:
Apr 18, 2013 7:25:03 AM (9 years ago)
Author:
raasch
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/init_pegrid.f90

    r1112 r1139  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! bugfix for calculating the id of the PE carrying the recycling plane
    2323!
    2424! Former revisions:
     
    10931093!-- Broadcast the id of the recycling plane
    10941094!-- WARNING: needs to be adjusted in case of inflows other than from left side!
    1095     IF ( ( recycling_width / dx ) >= nxl  .AND. &
    1096          ( recycling_width / dx ) <= nxr )  THEN
     1095    IF ( NINT( recycling_width / dx ) >= nxl  .AND. &
     1096         NINT( recycling_width / dx ) <= nxr )  THEN
    10971097       id_recycling_l = myidx
    10981098    ELSE
Note: See TracChangeset for help on using the changeset viewer.