Changeset 1159 for palm/trunk/SOURCE/check_parameters.f90
- Timestamp:
- May 21, 2013 11:58:22 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_parameters.f90
r1116 r1159 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! bc_lr/ns_dirneu/neudir removed 23 23 ! 24 24 ! Former revisions: … … 1440 1440 !-- Lateral boundary conditions 1441 1441 IF ( bc_lr /= 'cyclic' .AND. bc_lr /= 'dirichlet/radiation' .AND. & 1442 bc_lr /= 'radiation/dirichlet' .AND. bc_lr /= 'dirichlet/neumann' & 1443 .AND. bc_lr /= 'neumann/dirichlet' ) THEN 1442 bc_lr /= 'radiation/dirichlet' ) THEN 1444 1443 message_string = 'unknown boundary condition: bc_lr = "' // & 1445 1444 TRIM( bc_lr ) // '"' … … 1447 1446 ENDIF 1448 1447 IF ( bc_ns /= 'cyclic' .AND. bc_ns /= 'dirichlet/radiation' .AND. & 1449 bc_ns /= 'radiation/dirichlet' .AND. bc_ns /= 'dirichlet/neumann' & 1450 .AND. bc_ns /= 'neumann/dirichlet' ) THEN 1448 bc_ns /= 'radiation/dirichlet' ) THEN 1451 1449 message_string = 'unknown boundary condition: bc_ns = "' // & 1452 1450 TRIM( bc_ns ) // '"' … … 1459 1457 IF ( bc_lr == 'dirichlet/radiation' ) bc_lr_dirrad = .TRUE. 1460 1458 IF ( bc_lr == 'radiation/dirichlet' ) bc_lr_raddir = .TRUE. 1461 IF ( bc_lr == 'dirichlet/neumann' ) bc_lr_dirneu = .TRUE.1462 IF ( bc_lr == 'neumann/dirichlet' ) bc_lr_neudir = .TRUE.1463 1459 IF ( bc_ns /= 'cyclic' ) bc_ns_cyc = .FALSE. 1464 1460 IF ( bc_ns == 'dirichlet/radiation' ) bc_ns_dirrad = .TRUE. 1465 1461 IF ( bc_ns == 'radiation/dirichlet' ) bc_ns_raddir = .TRUE. 1466 IF ( bc_ns == 'dirichlet/neumann' ) bc_ns_dirneu = .TRUE.1467 IF ( bc_ns == 'neumann/dirichlet' ) bc_ns_neudir = .TRUE.1468 1462 1469 1463 ! … … 3306 3300 ENDIF 3307 3301 3308 IF ( bc_lr == 'radiation/dirichlet' .OR. bc_lr == 'neumann/dirichlet') THEN3302 IF ( bc_lr == 'radiation/dirichlet' ) THEN 3309 3303 dist_nxr = nx - inflow_disturbance_begin 3310 3304 dist_nxl(1) = nx - inflow_disturbance_end 3311 ELSEIF ( bc_lr == 'dirichlet/radiation' .OR. bc_lr == 'dirichlet/neumann') THEN3305 ELSEIF ( bc_lr == 'dirichlet/radiation' ) THEN 3312 3306 dist_nxl = inflow_disturbance_begin 3313 3307 dist_nxr(1) = inflow_disturbance_end 3314 3308 ENDIF 3315 IF ( bc_ns == 'dirichlet/radiation' .OR. bc_ns == 'dirichlet/neumann') THEN3309 IF ( bc_ns == 'dirichlet/radiation' ) THEN 3316 3310 dist_nyn = ny - inflow_disturbance_begin 3317 3311 dist_nys(1) = ny - inflow_disturbance_end 3318 ELSEIF ( bc_ns == 'radiation/dirichlet' .OR. bc_ns == 'neumann/dirichlet') THEN3312 ELSEIF ( bc_ns == 'radiation/dirichlet' ) THEN 3319 3313 dist_nys = inflow_disturbance_begin 3320 3314 dist_nyn(1) = inflow_disturbance_end … … 3324 3318 !-- A turbulent inflow requires Dirichlet conditions at the respective inflow 3325 3319 !-- boundary (so far, a turbulent inflow is realized from the left side only) 3326 IF ( turbulent_inflow .AND. bc_lr /= 'dirichlet/radiation' .AND. bc_lr /= 'dirichlet/neumann') THEN3320 IF ( turbulent_inflow .AND. bc_lr /= 'dirichlet/radiation' ) THEN 3327 3321 message_string = 'turbulent_inflow = .T. requires a Dirichlet ' // & 3328 3322 'condition at the inflow boundary'
Note: See TracChangeset
for help on using the changeset viewer.