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/write_3d_binary.f90

    r1321 r1353  
    8080        ONLY:  nxl, nxr, nys, nyn, nzb, nzt
    8181       
    82     USE particle_attributes,                                                               &
     82    USE particle_attributes,                                                   &
    8383        ONLY:  iran_part
    8484       
    8585    USE pegrid
    8686   
    87     USE random_function_mod,                                                               &
     87    USE random_function_mod,                                                   &
    8888        ONLY:  random_iv, random_iy
    8989       
Note: See TracChangeset for help on using the changeset viewer.