Ignore:
Timestamp:
Sep 22, 2020 2:38:38 PM (4 years ago)
Author:
suehring
Message:

Reference model topography to the lowest grid point also in ASCII input case

File:
1 edited

Legend:

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

    r4653 r4691  
    2424! -----------------
    2525! $Id$
     26! Reference model topography to the lowest grid point also in ASCII input case
     27!
     28! 4653 2020-08-27 08:54:43Z pavelkrc
    2629! file re-formatted to follow the PALM coding standard
    2730!
     
    950953!--    Update reference height used within output files
    951954       init_model%origin_z = init_model%origin_z + oro_min
    952 
     955!
     956!-- ASCII topography branch. In this case, in contrast to the static driver input, topography is
     957!-- assumed to be building; thus the minimum building height is substracted from the building array.
     958    ELSE
     959#if defined( __parallel )
     960       CALL MPI_ALLREDUCE( MINVAL( buildings_f%var_2d ), oro_min, 1, MPI_REAL, MPI_MIN,            &
     961                           MPI_COMM_WORLD, ierr )
     962#else
     963       oro_min = MINVAL( buildings_f%var_2d )
     964#endif
     965       buildings_f%var_2d = buildings_f%var_2d - oro_min
     966!
     967!--    Update reference height used within output files
     968       init_model%origin_z = init_model%origin_z + oro_min
    953969    ENDIF
    954970
Note: See TracChangeset for help on using the changeset viewer.