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

REAL constants provided with KIND-attribute

File:
1 edited

Legend:

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

    r1329 r1353  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! REAL constants provided with KIND-attribute
    2323!
    2424! Former revisions:
     
    218218                      DO  k = nzb, nzt+1
    219219                         psi = prt_start_index(k,j,i)
    220                          s_r3 = 0.0
    221                          s_r4 = 0.0
     220                         s_r3 = 0.0_wp
     221                         s_r4 = 0.0_wp
    222222                         DO  n = psi, psi+prt_count(k,j,i)-1
    223223                            s_r3 = s_r3 + particles(n)%radius**3 * &
     
    226226                                          particles(n)%weight_factor
    227227                         ENDDO
    228                          IF ( s_r3 /= 0.0 )  THEN
     228                         IF ( s_r3 /= 0.0_wp )  THEN
    229229                            mean_r = s_r4 / s_r3
    230230                         ELSE
    231                             mean_r = 0.0
     231                            mean_r = 0.0_wp
    232232                         ENDIF
    233233                         tend(k,j,i) = mean_r
Note: See TracChangeset for help on using the changeset viewer.