Ignore:
Timestamp:
Apr 3, 2018 11:22:42 AM (3 years ago)
Author:
suehring
Message:

Bugfix in reading restart data of vertical surface elements

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/surface_mod.f90

    r2920 r2940  
    2626! -----------------
    2727! $Id$
     28! Bugfix in reading restart data of vertical surface elements
     29!
     30! 2920 2018-03-22 11:22:01Z kanani
    2831! Correct comment for surface directions
    2932!
     
    39043907!
    39053908!--    Redistribute surface elements on its respective type.
    3906        IF ( horizontal_surface )  THEN
     3909       IF ( horizontal_surface  .AND.                                          &
     3910            .NOT. INDEX( restart_string(1:length), '%start_index' ) /= 0 )     &
     3911       THEN
    39073912          ic = nxlc
    39083913          DO  i = nxlf, nxrf
     
    39533958             ic = ic + 1
    39543959          ENDDO
    3955        ELSEIF ( vertical_surface )  THEN
     3960       ELSEIF ( vertical_surface  .AND.                                        &
     3961            .NOT. INDEX( restart_string(1:length), '%start_index' ) /= 0 )     &
     3962       THEN
    39563963          ic = nxlc
    39573964          DO  i = nxlf, nxrf
Note: See TracChangeset for help on using the changeset viewer.