Changeset 3805 for palm/trunk/UTIL/surface_output_processing/surface_output_to_vtk.f90

Timestamp:

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

Author:

raasch

Message:

output format adjusted, unused variable removed

File:

• palm/trunk/UTIL/surface_output_processing/surface_output_to_vtk.f90 (modified) (2 diffs)

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      
 !