Changeset 1411


Ignore:
Timestamp:
May 26, 2014 4:01:51 PM (10 years ago)
Author:
suehring
Message:

Initial horizontal velocity profiles were not set to zero at the first vertical

File:
1 edited

Legend:

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

    r1407 r1411  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Initial horizontal velocity profiles were not set to zero at the first vertical
     23! grid level in case of non-cyclic lateral boundary conditions.
    2324!
    2425! Former revisions:
     
    786787!--       in the limiting formula!). The original values are stored to be later
    787788!--       used for volume flow control.
    788           IF ( ibc_uv_b /= 1 )  THEN
     789          IF ( ibc_uv_b /= 1 .AND. ( .NOT. bc_lr_dirrad .AND.                 &
     790                                     .NOT. bc_lr_raddir .AND.                 &
     791                                     .NOT. bc_ns_dirrad .AND.                 &
     792                                     .NOT. bc_ns_raddir ) )  THEN   
    789793             DO  i = nxlg, nxrg
    790794                DO  j = nysg, nyng
Note: See TracChangeset for help on using the changeset viewer.