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

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.