Changeset 1982 for palm/trunk
- Timestamp:
- Aug 1, 2016 11:04:48 AM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_grid.f90
r1969 r1982 19 19 ! Current revisions: 20 20 ! ----------------- 21 ! 21 ! Bugfix concering consistency check for topography 22 22 ! 23 23 ! Former revisions: … … 880 880 CALL MPI_ALLREDUCE( MAXVAL( nzb_local ), nzb_local_max, 1, MPI_INTEGER, & 881 881 MPI_MAX, comm2d, ierr ) 882 CALL MPI_ALLREDUCE( M AXVAL( nzb_local ), nzb_local_min, 1, MPI_INTEGER, &882 CALL MPI_ALLREDUCE( MINVAL( nzb_local ), nzb_local_min, 1, MPI_INTEGER, & 883 883 MPI_MIN, comm2d, ierr ) 884 884 #else … … 886 886 nzb_local_min = MINVAL( nzb_local ) 887 887 #endif 888 888 889 ! 889 890 !-- Consistency checks
Note: See TracChangeset
for help on using the changeset viewer.