Changeset 4045 for palm/trunk


Ignore:
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:
1 edited

Legend:

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

    r3999 r4045  
    2525! -----------------
    2626! $Id$
     27! bugfix: kind attribute added to nint function to allow for large integers which may appear in
     28! case of default recycling width and small grid spacings
     29!
     30! 3999 2019-05-23 16:09:37Z suehring
    2731! Spend 3 ghost points also in case of pw-scheme when nesting is applied
    2832!
     
    13851389    IF ( turbulent_inflow ) THEN
    13861390   
    1387        IF ( NINT( recycling_width / dx ) >= nxl  .AND. &
    1388             NINT( recycling_width / dx ) <= nxr )  THEN
     1391       IF ( NINT( recycling_width / dx, KIND=idp ) >= nxl  .AND.                                  &
     1392            NINT( recycling_width / dx, KIND=idp ) <= nxr )  THEN
    13891393          id_recycling_l = myidx
    13901394       ELSE
Note: See TracChangeset for help on using the changeset viewer.