Changeset 1322 for palm/trunk/SOURCE/data_output_spectra.f90

Timestamp:

Mar 20, 2014 4:38:49 PM (10 years ago)

Author:

raasch

Message:

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

File:

• palm/trunk/SOURCE/data_output_spectra.f90 (modified) (2 diffs)

palm/trunk/SOURCE/data_output_spectra.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! REAL functions provided with KIND-attribute
 !
 ! Former revisions:
@@ -113 +113 @@
        ENDIF
        IF ( average_count_sp /= 1 )  THEN
-          spectrum_x = spectrum_x / REAL( average_count_sp )
-          spectrum_y = spectrum_y / REAL( average_count_sp )
+          spectrum_x = spectrum_x / REAL( average_count_sp, KIND=wp )
+          spectrum_y = spectrum_y / REAL( average_count_sp, KIND=wp )
           average_count_sp = 0
        ENDIF