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

    r1329 r1353  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! REAL constants provided with KIND-attribute
    2323!
    2424! Former revisions:
     
    104104!
    105105!-- If required, compute temporal average
    106     IF ( averaging_interval_pr == 0.0 )  THEN
     106    IF ( averaging_interval_pr == 0.0_wp )  THEN
    107107       hom_sum(:,:,:) = hom(:,1,:,:)
    108108    ELSE
     
    308308!
    309309!-- If averaging has been done above, the summation counter must be re-set.
    310     IF ( averaging_interval_pr /= 0.0 )  THEN
     310    IF ( averaging_interval_pr /= 0.0_wp )  THEN
    311311       average_count_pr = 0
    312312    ENDIF
Note: See TracChangeset for help on using the changeset viewer.