Changeset 2940 for palm

Timestamp:

Apr 3, 2018 11:22:42 AM (7 years ago)

Author:

suehring

Message:

Bugfix in reading restart data of vertical surface elements

File:

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

palm/trunk/SOURCE/surface_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Bugfix in reading restart data of vertical surface elements
+! 
+! 2920 2018-03-22 11:22:01Z kanani
 ! Correct comment for surface directions
 ! 
@@ -3904 +3907 @@
 !
 !--    Redistribute surface elements on its respective type. 
-       IF ( horizontal_surface )  THEN
+       IF ( horizontal_surface  .AND.                                          &
+            .NOT. INDEX( restart_string(1:length), '%start_index' ) /= 0 )     &
+       THEN
           ic = nxlc
           DO  i = nxlf, nxrf
@@ -3953 +3958 @@
              ic = ic + 1
           ENDDO
-       ELSEIF ( vertical_surface )  THEN
+       ELSEIF ( vertical_surface  .AND.                                        &
+            .NOT. INDEX( restart_string(1:length), '%start_index' ) /= 0 )     &
+       THEN
           ic = nxlc
           DO  i = nxlf, nxrf