Ignore:
Timestamp:
Oct 16, 2017 5:12:01 PM (4 years ago)
Author:
boeske
Message:

enable simulations with complex terrain

File:
1 edited

Legend:

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

    r2544 r2550  
    2525! -----------------
    2626! $Id$
     27! Added output for complex terrain simulations
     28!
     29! 2544 2017-10-13 18:09:32Z maronga
    2730! Moved initial day of year and time to inipar.
    2831!
     
    403406
    404407    USE surface_mod,                                                           &
    405         ONLY:  surf_def_h
     408        ONLY:  surf_def_h, get_topography_top_index
    406409
    407410    USE synthetic_turbulence_generator_mod,                                    &
     
    972975       ELSEIF ( TRIM( topography_grid_convention ) == 'cell_center' )  THEN
    973976          WRITE ( io, 279 )
     977       ENDIF
     978    ENDIF
     979
     980!-- Complex terrain
     981    IF ( complex_terrain )  THEN
     982       WRITE( io, 280 )
     983       IF ( turbulent_inflow )  THEN
     984          WRITE( io, 281 )  zu( get_topography_top_index( 0, 0, 's' ) )
     985       ENDIF
     986       IF ( TRIM( initializing_actions ) == 'cyclic_fill' )  THEN
     987          WRITE( io, 282 )
    974988       ENDIF
    975989    ENDIF
     
    20512065279 FORMAT (' Topography grid definition convention:'/ &
    20522066            ' cell center (scalar grid points)' /)
     2067280 FORMAT (' Complex terrain simulation is activated.')
     2068281 FORMAT ('    --> Mean inflow profiles are adjusted.' / &
     2069            '    --> Elevation of inflow boundary: ', F7.1, ' m' )
     2070282 FORMAT ('    --> Initial data from 3D-precursor run is shifted' / &
     2071            '        vertically depending on local surface height.')
    20532072300 FORMAT (//' Boundary conditions:'/ &
    20542073             ' -------------------'// &
Note: See TracChangeset for help on using the changeset viewer.