Changeset 4896 for palm/trunk/SOURCE/surface_mod.f90

Timestamp:

Mar 3, 2021 4:10:18 PM (4 years ago)

Author:

raasch

Message:

small re-formatting to follow the coding standard, typo in file appendix removed, more meaningful variable names assigned, redundant code removed

File:

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

palm/trunk/SOURCE/surface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! variable renamed
+!
+! 4893 2021-03-02 16:39:14Z raasch
 ! revised output of surface data via MPI-IO for better performance
 !
@@ -221 +224 @@
                rrd_mpi_io_global_array,                                                            &
                rrd_mpi_io_surface,                                                                 &
-               total_number_of_surface_values,                                                     &
+               total_number_of_surface_elements,                                                   &
                wrd_mpi_io,                                                                         &
                wrd_mpi_io_global_array,                                                            &
@@ -4019 +4022 @@
           IF ( .NOT. surface_data_to_write )  CYCLE
 
-          ns_h_on_file(l) = total_number_of_surface_values
+          ns_h_on_file(l) = total_number_of_surface_elements
 
           CALL wrd_mpi_io( 'global_start_index_h_' // dum, global_start_index )
@@ -4153 +4156 @@
           IF ( .NOT. surface_data_to_write )  CYCLE
 
-          ns_v_on_file(l) = total_number_of_surface_values
+          ns_v_on_file(l) = total_number_of_surface_elements
 
           CALL wrd_mpi_io( 'global_start_index_v_' // dum, global_start_index )