Changeset 4805 for palm

Timestamp:

Dec 2, 2020 12:05:34 PM (4 years ago)

Author:

gronemeier

Message:

Bugfix: add time_dosurf to restart data (surface_data_output_mod)

File:

• palm/trunk/SOURCE/surface_data_output_mod.f90 (modified) (8 diffs)

palm/trunk/SOURCE/surface_data_output_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix: add time_dosurf to restart data
+!
+! 4671 2020-09-09 20:27:58Z pavelkrc
 ! Implementation of downward facing USM and LSM surfaces
 !
@@ -35 +38 @@
 ! - Bugfix in counting of surface elements
 ! - Bugfix in data-output of averaged surface data in case of restarts
-! 
+!
 ! 4577 2020-06-25 09:53:58Z raasch
 ! File re-formatted to follow the PALM coding standard
@@ -4486 +4489 @@
        CASE ( 'average_count_surf' )
           READ ( 13 )  average_count_surf
+       CASE ( 'time_dosurf' )
+          READ ( 13 )  time_dosurf
        CASE ( 'time_dosurf_av' )
           READ ( 13 )  time_dosurf_av
@@ -4507 +4512 @@
 
     CALL rrd_mpi_io( 'average_count_surf', average_count_surf )
+    CALL rrd_mpi_io( 'time_dosurf', time_dosurf )
     CALL rrd_mpi_io( 'time_dosurf_av', time_dosurf_av )
 
@@ -4576 +4582 @@
 !
 !-- Note, surface data which is written to file is organized in a different way than
-!-- the output surface data. The output surface data is a concatenated array of the 
+!-- the output surface data. The output surface data is a concatenated array of the
 !-- different surface types and orientations, while the mpi-io expects surface data that
 !-- is consecutive in terms of start- and end-index, i.e. organized along the (j,i)
@@ -4678 +4684 @@
        WRITE ( 14 )  average_count_surf
 
+       CALL wrd_write_string( 'time_dosurf' )
+       WRITE ( 14 )  time_dosurf
+
        CALL wrd_write_string( 'time_dosurf_av' )
        WRITE ( 14 )  time_dosurf_av
@@ -4684 +4693 @@
 
       CALL wrd_mpi_io( 'average_count_surf', average_count_surf )
+      CALL wrd_mpi_io( 'time_dosurf', time_dosurf )
       CALL wrd_mpi_io( 'time_dosurf_av', time_dosurf_av )
 
@@ -4730 +4740 @@
 !
 !--    Note, surface data which is written to file is organized in a different way than
-!--    the output surface data. The output surface data is a concatenated array of the 
+!--    the output surface data. The output surface data is a concatenated array of the
 !--    different surface types and orientations, while the mpi-io expects surface data that
 !--    is consecutive in terms of start- and end-index, i.e. organized along the (j,i)