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

    r1323 r1353  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! REAL constants provided with KIND-attribute
    2323!
    2424! Former revisions:
     
    104104          ELSE
    105105             radius = SQRT( ( i * dx )**2 )
    106              height = 0.0
     106             height = 0.0_wp
    107107          ENDIF
    108           IF ( radius /= 0.0 )  THEN
     108          IF ( radius /= 0.0_wp )  THEN
    109109             alpha = ASIN( height / radius )
    110110          ELSE
    111              alpha = 0.0
     111             alpha = 0.0_wp
    112112          ENDIF
    113113!
     
    140140!--    the rotated coordinate system)
    141141       ALLOCATE( pt_init_local(nzb:nzt+1) )
    142        pt_init_local = 0.0
     142       pt_init_local = 0.0_wp
    143143       DO  i = nxl, nxr
    144144          DO  j =  nys, nyn
Note: See TracChangeset for help on using the changeset viewer.