Changeset 1982 for palm/trunk


Ignore:
Timestamp:
Aug 1, 2016 11:04:48 AM (8 years ago)
Author:
suehring
Message:

Bugfix concering consistency check for topography

File:
1 edited

Legend:

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

    r1969 r1982  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Bugfix concering consistency check for topography
    2222!
    2323! Former revisions:
     
    880880       CALL MPI_ALLREDUCE( MAXVAL( nzb_local ), nzb_local_max, 1, MPI_INTEGER, &
    881881                           MPI_MAX, comm2d, ierr )
    882        CALL MPI_ALLREDUCE( MAXVAL( nzb_local ), nzb_local_min, 1, MPI_INTEGER, &
     882       CALL MPI_ALLREDUCE( MINVAL( nzb_local ), nzb_local_min, 1, MPI_INTEGER, &
    883883                           MPI_MIN, comm2d, ierr )                           
    884884#else
     
    886886       nzb_local_min = MINVAL( nzb_local )
    887887#endif
     888
    888889!
    889890!--    Consistency checks
Note: See TracChangeset for help on using the changeset viewer.