Changeset 3805

Timestamp:

Mar 20, 2019 3:26:35 PM (6 years ago)

Author:

raasch

Message:

output format adjusted, unused variable removed

Location:

palm/trunk

Files:

• SOURCE/spectra_mod.f90 (modified) (2 diffs)
• UTIL/surface_output_processing/surface_output_to_vtk.f90 (modified) (2 diffs)

palm/trunk/SOURCE/spectra_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variable removed
+! 
+! 3655 2019-01-07 16:51:22Z knoop
 ! Renamed output variables
 ! 
@@ -204 +207 @@
     PUBLIC average_count_sp, averaging_interval_sp, calc_spectra,              &
            calculate_spectra, comp_spectra_level, data_output_sp,              &
-           dosp_time_count, dt_dosp, n_sp_x, n_sp_y, plot_spectra_level,       &
+           dosp_time_count, dt_dosp, n_sp_x, n_sp_y,                           &
            skip_time_dosp, spectra_check_parameters, spectra_direction,        &
            spectra_header, spectra_init, spectra_parin, spectrum_x,            &

palm/trunk/UTIL/surface_output_processing/surface_output_to_vtk.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! output format adjusted
+! 
+! 3755 2019-02-19 17:03:19Z suehring
 ! - Change format description to avoid *** for larger domains
 ! - switch back from to non-standard Fortran ftell and fseek since posix
@@ -262 +265 @@
 
           WRITE( file_id_out_header,'(A)') "DATASET POLYDATA"
-          WRITE( file_id_out_header,'(A,I5,A)') "POINTS ", npoints_total, " float"
+          WRITE( file_id_out_header,'(A,I12,A)') "POINTS ", npoints_total, " float"
        ENDIF      
 !