Changeset 1982 for palm/trunk/SOURCE/init_grid.f90

Timestamp:

Aug 1, 2016 11:04:48 AM (8 years ago)

Author:

suehring

Message:

Bugfix concering consistency check for topography

File:

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

palm/trunk/SOURCE/init_grid.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix concering consistency check for topography
 ! 
 ! Former revisions:
@@ -880 +880 @@
        CALL MPI_ALLREDUCE( MAXVAL( nzb_local ), nzb_local_max, 1, MPI_INTEGER, &
                            MPI_MAX, comm2d, ierr )
-       CALL MPI_ALLREDUCE( MAXVAL( nzb_local ), nzb_local_min, 1, MPI_INTEGER, &
+       CALL MPI_ALLREDUCE( MINVAL( nzb_local ), nzb_local_min, 1, MPI_INTEGER, &
                            MPI_MIN, comm2d, ierr )                           
 #else
@@ -886 +886 @@
        nzb_local_min = MINVAL( nzb_local )
 #endif
+
 !
 !--    Consistency checks