Ignore:
Timestamp:
Mar 15, 2018 11:47:16 AM (4 years ago)
Author:
suehring
Message:

Relax restrictions for topography input via static input file, terrain and building heights, as well as building IDs can be input separately and are not mandatory any more.

File:
1 edited

Legend:

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

    r2874 r2897  
    2525! -----------------
    2626! $Id$
     27! Relax restrictions for topography input, terrain and building heights can be
     28! input separately and are not mandatory any more.
     29!
     30! 2874 2018-03-13 10:55:42Z knoop
    2731! Bugfix: wrong placement of netcdf cpp-macros fixed
    2832!
     
    18251829       ENDDO
    18261830!
    1827 !--    Check for minimum requirement of topography data in case
    1828 !--    static input file is used. Note, doing this check in check_parameters
     1831!--    Check for minimum requirement to setup building topography. If buildings
     1832!--    are provided, also an ID and a type are required.
     1833!--    Note, doing this check in check_parameters
    18291834!--    will be too late (data will be used for grid inititialization before).
    18301835       IF ( input_pids_static )  THEN
    1831           IF ( .NOT. terrain_height_f%from_file  .OR.                          &
    1832                .NOT. building_id_f%from_file     .OR.                          &
    1833                .NOT. buildings_f%from_file )  THEN                       
    1834              message_string = 'Minimum requirement for topography input ' //   &
    1835                               'is not fulfilled. ' //                          &
    1836                               'Orography, buildings, as well as building ' //  &
    1837                               'IDs are required.'
     1836          IF ( buildings_f%from_file  .AND.                                    &
     1837               .NOT. building_id_f%from_file )  THEN                       
     1838             message_string = 'If building heigths are prescribed in ' //      &
     1839                              'static input file, also an ID is required.'
    18381840             CALL message( 'netcdf_data_input_mod', 'PA0999', 1, 2, 0, 6, 0 )
    18391841          ENDIF
     1842       ENDIF
     1843!
     1844!--    In case no terrain height is provided by static input file, allocate
     1845!--    array nevertheless and set terrain height to 0, which simplifies
     1846!--    topography initialization.
     1847       IF ( .NOT. terrain_height_f%from_file )  THEN
     1848          ALLOCATE ( terrain_height_f%var(nys:nyn,nxl:nxr) )
     1849          terrain_height_f%var = 0.0_wp
    18401850       ENDIF
    18411851!
Note: See TracChangeset for help on using the changeset viewer.