Changeset 4802 for palm/trunk/SOURCE/read_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/read_restart_data_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/read_restart_data_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! include time_indoor into restart mechanism
+!
+! 4777 2020-11-06 14:50:49Z raasch
 ! bugfix for reading spectra data with MPI-I/O (they are global arrays!)
 !
@@ -171 +174 @@
         ONLY:  nbgp, nx, nxl, nxlg, nxr, nxrg, nx_on_file, ny, nys, nysg, nyn, &
                nyng, ny_on_file, nz, nzb, nzt
+
+    USE indoor_model_mod,                                                                          &
+        ONLY:  time_indoor
 
     USE kinds
@@ -719 +725 @@
              CASE ( 'time_dots' )
                 READ ( 13 )  time_dots
+             CASE ( 'time_indoor' )
+                READ ( 13 )  time_indoor
              CASE ( 'time_radiation' )
                 READ ( 13 )  time_radiation
@@ -1099 +1107 @@
        CALL rrd_mpi_io( 'time_dosp', time_dosp )
        CALL rrd_mpi_io( 'time_dots', time_dots )
+       CALL rrd_mpi_io( 'time_indoor', time_indoor )
        CALL rrd_mpi_io( 'time_radiation', time_radiation )
        CALL rrd_mpi_io( 'time_restart', time_restart )