Ignore:
Timestamp:
Mar 20, 2014 4:38:49 PM (8 years ago)
Author:
raasch
Message:

REAL functions and a lot of REAL constants provided with KIND-attribute,
some small bugfixes

File:
1 edited

Legend:

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

    r1321 r1322  
    1919!
    2020! Current revisions:
    21 ! -----------------
    22 !
     21! ------------------
     22! REAL constants defined as wp-kind
    2323!
    2424! Former revisions:
     
    7979    DO  i = 0, nx
    8080       DO  j = 0, ny
    81           randomnumber = random_gauss( iran, 5.0 )
     81          randomnumber = random_gauss( iran, 5.0_wp )
    8282          IF ( nxl <= i  .AND.  nxr >= i  .AND.  nys <= j  .AND.  nyn >= j )   &
    8383          THEN
Note: See TracChangeset for help on using the changeset viewer.