Changeset 3200 for palm


Ignore:
Timestamp:
Aug 17, 2018 2:46:36 PM (6 years ago)
Author:
suehring
Message:

Missing pre-processor directive

File:
1 edited

Legend:

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

    r3183 r3200  
    2525! -----------------
    2626! $Id$
     27! Bugfix, missing pre-processor directive
     28!
     29! 3183 2018-07-27 14:25:55Z suehring
    2730! Rename variables in mesoscale-offline nesting mode
    2831!
     
    13471350!-- need to be remove to avoid steep edges at the child-domain boundaries.
    13481351    IF ( input_pids_static )  THEN
    1349 
     1352#if defined( __parallel )
    13501353       CALL MPI_ALLREDUCE( MINVAL( terrain_height_f%var ), oro_min, 1,         &
    13511354                           MPI_REAL, MPI_MIN, MPI_COMM_WORLD, ierr )
    1352                            
     1355#else
     1356       oro_min = MINVAL( terrain_height_f%var )
     1357#endif
     1358
    13531359       terrain_height_f%var = terrain_height_f%var - oro_min
    13541360!                           
Note: See TracChangeset for help on using the changeset viewer.