Changeset 3806 for palm


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

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

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r3770 r3806  
    2525! -----------------
    2626! $Id$
     27! bugfix: intent of dummy arguments changed to inout
     28!
     29! 3770 2019-02-28 11:22:32Z moh.hefny
    2730! removed unused variables in module_interface_check_data_output_ts
    2831!
     
    11201123
    11211124
    1122     LOGICAL,           INTENT(OUT) ::  found    !< flag if variable was found
     1125    LOGICAL, INTENT(INOUT) ::  found    !< flag if variable was found
    11231126
    11241127    IF ( .NOT. found )  CALL bio_rrd_global( found ) ! ToDo: change interface to pass variable
     
    11711174
    11721175
    1173     INTEGER(iwp),      INTENT(IN)  ::  map_index    !<
    1174     INTEGER(iwp),      INTENT(IN)  ::  nxlc         !<
    1175     INTEGER(iwp),      INTENT(IN)  ::  nxlf         !<
    1176     INTEGER(iwp),      INTENT(IN)  ::  nxl_on_file  !<
    1177     INTEGER(iwp),      INTENT(IN)  ::  nxrc         !<
    1178     INTEGER(iwp),      INTENT(IN)  ::  nxrf         !<
    1179     INTEGER(iwp),      INTENT(IN)  ::  nxr_on_file  !<
    1180     INTEGER(iwp),      INTENT(IN)  ::  nync         !<
    1181     INTEGER(iwp),      INTENT(IN)  ::  nynf         !<
    1182     INTEGER(iwp),      INTENT(IN)  ::  nyn_on_file  !<
    1183     INTEGER(iwp),      INTENT(IN)  ::  nysc         !<
    1184     INTEGER(iwp),      INTENT(IN)  ::  nysf         !<
    1185     INTEGER(iwp),      INTENT(IN)  ::  nys_on_file  !<
    1186     LOGICAL,           INTENT(OUT) ::  found        !< flag if variable was found
     1176    INTEGER(iwp), INTENT(IN)  ::  map_index    !<
     1177    INTEGER(iwp), INTENT(IN)  ::  nxlc         !<
     1178    INTEGER(iwp), INTENT(IN)  ::  nxlf         !<
     1179    INTEGER(iwp), INTENT(IN)  ::  nxl_on_file  !<
     1180    INTEGER(iwp), INTENT(IN)  ::  nxrc         !<
     1181    INTEGER(iwp), INTENT(IN)  ::  nxrf         !<
     1182    INTEGER(iwp), INTENT(IN)  ::  nxr_on_file  !<
     1183    INTEGER(iwp), INTENT(IN)  ::  nync         !<
     1184    INTEGER(iwp), INTENT(IN)  ::  nynf         !<
     1185    INTEGER(iwp), INTENT(IN)  ::  nyn_on_file  !<
     1186    INTEGER(iwp), INTENT(IN)  ::  nysc         !<
     1187    INTEGER(iwp), INTENT(IN)  ::  nysf         !<
     1188    INTEGER(iwp), INTENT(IN)  ::  nys_on_file  !<
     1189    LOGICAL,      INTENT(INOUT) ::  found        !< flag if variable was found
    11871190
    11881191    REAL(wp), DIMENSION(nys_on_file-nbgp:nyn_on_file+nbgp,nxl_on_file-nbgp:nxr_on_file+nbgp), INTENT(OUT) :: tmp_2d   !<
  • 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.