Changeset 4802 for palm/trunk/SOURCE/write_restart_data_mod.f90

Timestamp:

Nov 30, 2020 2:16:31 PM (4 years ago)

Author:

suehring

Message:

Bugfix in time-control of indoor model in case of restarts and at the very first time step

File:

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

palm/trunk/SOURCE/write_restart_data_mod.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! include time_indoor into restart mechanism
+!
+! 4777 2020-11-06 14:50:49Z raasch
 ! bugfix for writing spectra data with MPI-I/O (they are global arrays!)
 !
@@ -109 +112 @@
         ONLY:  nx, nxl, nxr, ny, nys, nyn, nz, nzb, nzt
 
+    USE indoor_model_mod,                                                                          &
+        ONLY:  time_indoor
+
     USE kinds
 
@@ -716 +722 @@
        CALL wrd_write_string( 'time_dots' )
        WRITE ( 14 )  time_dots
+
+       CALL wrd_write_string( 'time_indoor' )
+       WRITE ( 14 )  time_indoor
 
        CALL wrd_write_string( 'time_radiation' )
@@ -1081 +1090 @@
        CALL wrd_mpi_io( 'time_dosp', time_dosp )
        CALL wrd_mpi_io( 'time_dots', time_dots )
+       CALL wrd_mpi_io( 'time_indoor', time_indoor )
        CALL wrd_mpi_io( 'time_radiation', time_radiation )
        CALL wrd_mpi_io( 'time_restart', time_restart )