Changeset 4691 for palm/trunk/SOURCE


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

Location:
palm/trunk/SOURCE
Files:
2 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
  • palm/trunk/SOURCE/surface_layer_fluxes_mod.f90

    r4690 r4691  
    2020! Current revisions:
    2121! -----------------
    22 ! Bugfix for commit 4593 in vector branch of calc_ol
     22!
    2323!
    2424! Former revisions:
    2525! -----------------
    2626! $Id$
     27! Bugfix for commit 4593 in vector branch of calc_ol
     28!
     29! 4671 2020-09-09 20:27:58Z pavelkrc
    2730! Implementation of downward facing USM and LSM surfaces
    2831!
Note: See TracChangeset for help on using the changeset viewer.