Changeset 1994


Ignore:
Timestamp:
Aug 15, 2016 9:52:21 AM (8 years ago)
Author:
suehring
Message:

Bugfix in definition of generic topography; missing check for microphysics added

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r1993 r1994  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Add missing check for cloud_physics and cloud_droplets
    2222!
    2323! Former revisions:
     
    973973       CALL message( 'check_parameters', 'PA0029', 1, 2, 0, 6, 0 )
    974974    ENDIF
     975!
     976!-- Check for proper settings for microphysics
     977    IF ( cloud_physics  .AND.  cloud_droplets )  THEN
     978       message_string = 'cloud_physics = .TRUE. is not allowed with ' //  &
     979                        'cloud_droplets = .TRUE.'
     980       CALL message( 'check_parameters', 'PA0442', 1, 2, 0, 6, 0 )
     981    ENDIF
    975982
    976983!
  • palm/trunk/SOURCE/init_grid.f90

    r1983 r1994  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Bugfix in definition of generic topography
    2222!
    2323! Former revisions:
     
    642642             nzb_local(MAX(nys,bys):MIN(nyn,byn),MAX(nxl,bxl):MIN(nxr,bxr)) = bh
    643643
     644          CALL exchange_horiz_2d_int( nzb_local, nys, nyn, nxl, nxr, nbgp )
     645
    644646       CASE ( 'single_street_canyon' )
    645647!
     
    715717                nzb_local(MAX(nys,cys+1):MIN(nyn,cyn-1),:) = 0
    716718          ENDIF
     719
     720          CALL exchange_horiz_2d_int( nzb_local, nys, nyn, nxl, nxr, nbgp )
    717721
    718722       CASE ( 'read_from_file' )
Note: See TracChangeset for help on using the changeset viewer.