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

Timestamp:

Jan 21, 2021 5:59:25 PM (3 years ago)

Author:

suehring

Message:

Bugfix in indoor model: consider previous indoor temperature during restarts; Further bugfix in mpi-io restart mechanism for the waste-heat flux from buildings

File:

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

palm/trunk/SOURCE/surface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! +t_prev
+!
+! 4829 2021-01-06 10:11:39Z suehring
 ! Bugfix in creating error-message string
 !
@@ -418 +421 @@
 
 !--    Indoor model variables
+       REAL(wp), DIMENSION(:), ALLOCATABLE ::  t_prev      !< indoor temperature for facade element
        REAL(wp), DIMENSION(:), ALLOCATABLE ::  waste_heat  !< waste heat
 !