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

    r1321 r1353  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! REAL constants provided with KIND-attribute
    2323!
    2424! Former revisions:
     
    6767    USE indices,                                                               &
    6868        ONLY:  nzb
     69
     70    USE kinds
    6971
    7072    USE pegrid
     
    118120                          hom(nzb+10,1,pr_palm,0), u_max_ijk(1:3),             &
    119121                          v_max_ijk(1:3), w_max_ijk(1:3),                      &
    120                           advected_distance_x/1000.0,                          &
    121                           advected_distance_y/1000.0, mgcycles
     122                          advected_distance_x/1000.0_wp,                       &
     123                          advected_distance_y/1000.0_wp, mgcycles
    122124!
    123125!--    Write buffer contents to disc immediately
Note: See TracChangeset for help on using the changeset viewer.