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

Timestamp:

Mar 21, 2014 11:00:16 AM (9 years ago)

Author:

raasch

Message:

Changed:

---

-s real64 removed (.mrun.config.hlrnIII)
-r8 removed (.mrun.config.imuk)
deleted: .mrun.config.imuk_ice2_netcdf4 .mrun.config.imuk_hlrn

REAL constants defined as wp-kind in modules

"baroclinicity" renamed "baroclinity", "ocean version" replaced by
"ocean mode"

code parts concerning old output formats "iso2d" and "avs" removed.
netCDF is the only remaining output format.

Errors:

---

bugfix: duplicate error message 56 removed

File:

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

palm/trunk/SOURCE/data_output_spectra.f90

@@ -19 +19 @@
 !
 ! Current revisions:
-! -----------------
+! ------------------
+! -netcdf output queries
 !
 ! Former revisions:
@@ -62 +63 @@
     USE control_parameters,                                                    &
         ONLY:  average_count_sp, averaging_interval_sp, dosp_time_count,       &
-               message_string, netcdf_output, run_description_header,          &
+               message_string, run_description_header,                         &
                time_since_reference_point
 
@@ -99 +100 @@
 !
 !--    Open file for spectra output in NetCDF format
-       IF ( netcdf_output )  CALL check_open( 107 )
+       CALL check_open( 107 )
 
 !
@@ -161 +162 @@
 !
 !--       Output of spectra in NetCDF format
-          IF ( netcdf_output )  THEN
-!
-!--          Output of x-spectra
-             IF ( INDEX( spectra_direction(m), 'x' ) /= 0 ) THEN
-                CALL output_spectra_netcdf( m, 'x' )
-             ENDIF
-!
-!--          Output of y-spectra
-             IF ( INDEX( spectra_direction(m), 'y' ) /= 0 ) THEN
-                CALL output_spectra_netcdf( m, 'y' )
-             ENDIF
+!--       Output of x-spectra
+          IF ( INDEX( spectra_direction(m), 'x' ) /= 0 ) THEN
+             CALL output_spectra_netcdf( m, 'x' )
+          ENDIF
+!
+!--       Output of y-spectra
+          IF ( INDEX( spectra_direction(m), 'y' ) /= 0 ) THEN
+             CALL output_spectra_netcdf( m, 'y' )
           ENDIF