Ignore:
Timestamp:
Apr 8, 2014 3:21:23 PM (7 years ago)
Author:
heinze
Message:

REAL constants provided with KIND-attribute

File:
1 edited

Legend:

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

    r1347 r1353  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! REAL constants provided with KIND-attribute
    2323!
    2424! Former revisions:
     
    9090!
    9191!-- Carry out spanwise averaging in the recycling plane
    92     avpr_l = 0.0
     92    avpr_l = 0.0_wp
    9393    ngp_pr = ( nzt - nzb + 2 ) * 5 * nbgp
    9494    ngp_ifd = ngp_pr * ( nyn - nys + 1 + 2 * nbgp )
     
    192192    ELSEIF ( myidx /= id_recycling  .AND.  myidx == id_inflow )  THEN
    193193
    194        inflow_dist = 0.0
     194       inflow_dist = 0.0_wp
    195195       CALL MPI_RECV( inflow_dist(nzb,nysg,1,1), ngp_ifd, MPI_REAL, &
    196196                      id_recycling, 1, comm1dx, status, ierr )
Note: See TracChangeset for help on using the changeset viewer.