Ignore:
Timestamp:
Mar 21, 2019 12:45:50 PM (4 years ago)
Author:
raasch
Message:

bugfix: intent of dummy arguments changed to inout, additional check for lateral boundary conditions added

File:
1 edited

Legend:

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

    r3747 r3806  
    2525! -----------------
    2626! $Id$
     27! additional check for lateral boundary conditions added
     28!
     29! 3747 2019-02-16 15:15:23Z gronemeier
    2730! removed setting of parameter region
    2831!
     
    10291032          IF ( bc_ns == 'radiation/dirichlet' )  bc_ns_raddir = .TRUE.
    10301033!
     1034!--       Radiation-Dirichlet conditions are allowed along one of the horizontal directions only.
     1035!--       In general, such conditions along x and y may work, but require a) some code changes
     1036!--       (e.g. concerning allocation of c_u, c_v ... arrays), and b) a careful model setup by the
     1037!--       user, in order to guarantee that there is a clearly defined outflow at two sides.
     1038!--       Otherwise, the radiation condition may produce wrong results.
     1039          IF ( ( bc_lr_dirrad .OR. bc_lr_raddir )  .AND.  ( bc_ns_dirrad .OR. bc_ns_raddir ) )  THEN
     1040             message_string = 'bc_lr = "' // TRIM( bc_lr ) // '" and bc_ns = "' //                 &
     1041                              TRIM( bc_ns ) // '" are not allowed to be set at the same time'
     1042             CALL message( 'parin', 'PA0589', 1, 2, 0, 6, 0 )
     1043          ENDIF
     1044!
    10311045!--       Check in case of initial run, if the grid point numbers are well
    10321046!--       defined and allocate some arrays which are already needed in
Note: See TracChangeset for help on using the changeset viewer.