Ignore:
Timestamp:
Mar 20, 2014 4:38:49 PM (8 years ago)
Author:
raasch
Message:

REAL functions and a lot of REAL constants provided with KIND-attribute,
some small bugfixes

File:
1 edited

Legend:

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

    r1321 r1322  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! REAL functions provided with KIND-attribute
    2323!
    2424! Former revisions:
     
    113113       ENDIF
    114114       IF ( average_count_sp /= 1 )  THEN
    115           spectrum_x = spectrum_x / REAL( average_count_sp )
    116           spectrum_y = spectrum_y / REAL( average_count_sp )
     115          spectrum_x = spectrum_x / REAL( average_count_sp, KIND=wp )
     116          spectrum_y = spectrum_y / REAL( average_count_sp, KIND=wp )
    117117          average_count_sp = 0
    118118       ENDIF
Note: See TracChangeset for help on using the changeset viewer.