Changeset 1786 for palm/trunk/SOURCE/header.f90

Timestamp:

Mar 8, 2016 5:49:27 AM (8 years ago)

Author:

raasch

Message:

pmc-change in server-client get-put, spectra-directives removed, spectra-package modularized

File:

• palm/trunk/SOURCE/header.f90 (modified) (5 diffs)

palm/trunk/SOURCE/header.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-!
+! cpp-direktives for spectra removed
 !
 ! Former revisions:
@@ -1733 +1733 @@
 #endif
 
-#if defined( __spectra )
 !
 !-- Spectra output
@@ -1753 +1752 @@
                           averaging_interval_sp, dt_averaging_input_pr
     ENDIF
-#endif
 
     WRITE ( io, 99 )
@@ -2234 +2232 @@
 367 FORMAT ('       Polygon reduction for topography: cluster_size = ', I1)
 #endif
-#if defined( __spectra )
 370 FORMAT ('    Spectra:')
 371 FORMAT ('       Output every ',F7.1,' s'/)
@@ -2253 +2250 @@
             '       Profiles for the time averaging are taken every ', &
                     F6.1,' s')
-#endif
 400 FORMAT (//' Physical quantities:'/ &
               ' -------------------'/)