Changeset 73 for palm/trunk/SOURCE/check_parameters.f90
- Timestamp:
- Mar 20, 2007 8:33:14 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_parameters.f90
r72 r73 8 8 ! and pt_reference are checked, 9 9 ! output of precipitation amount/rate and roughnes length + check 10 ! possible negative humidities are avoided in initial profile 10 ! possible negative humidities are avoided in initial profile, 11 ! dirichlet/neumann changed to dirichlet/radiation, etc. 11 12 ! 12 13 ! Former revisions: … … 705 706 !-- Check boundary conditions and set internal variables: 706 707 !-- Lateral boundary conditions 707 IF ( bc_lr /= 'cyclic' .AND. bc_lr /= 'dirichlet/ neumann' .AND. &708 bc_lr /= ' neumann/dirichlet' ) THEN708 IF ( bc_lr /= 'cyclic' .AND. bc_lr /= 'dirichlet/radiation' .AND. & 709 bc_lr /= 'radiation/dirichlet' ) THEN 709 710 IF ( myid == 0 ) THEN 710 711 PRINT*, '+++ check_parameters:' … … 713 714 CALL local_stop 714 715 ENDIF 715 IF ( bc_ns /= 'cyclic' .AND. bc_ns /= 'dirichlet/ neumann' .AND. &716 bc_ns /= ' neumann/dirichlet' ) THEN716 IF ( bc_ns /= 'cyclic' .AND. bc_ns /= 'dirichlet/radiation' .AND. & 717 bc_ns /= 'radiation/dirichlet' ) THEN 717 718 IF ( myid == 0 ) THEN 718 719 PRINT*, '+++ check_parameters:' … … 2284 2285 ENDIF 2285 2286 2286 IF ( outflow_l) THEN2287 IF ( bc_lr == 'radiation/dirichlet' ) THEN 2287 2288 dist_nxr = nx - inflow_disturbance_begin 2288 2289 dist_nxl(1) = nx - inflow_disturbance_end 2289 ELSEIF ( outflow_r) THEN2290 ELSEIF ( bc_lr == 'dirichlet/radiation' ) THEN 2290 2291 dist_nxl = inflow_disturbance_begin 2291 2292 dist_nxr(1) = inflow_disturbance_end 2292 ELSEIF ( outflow_s ) THEN 2293 ENDIF 2294 IF ( bc_ns == 'dirichlet/radiation' ) THEN 2293 2295 dist_nyn = ny - inflow_disturbance_begin 2294 2296 dist_nys(1) = ny - inflow_disturbance_end 2295 ELSEIF ( outflow_n) THEN2297 ELSEIF ( bc_ns == 'radiation/dirichlet' ) THEN 2296 2298 dist_nys = inflow_disturbance_begin 2297 2299 dist_nyn(1) = inflow_disturbance_end
Note: See TracChangeset
for help on using the changeset viewer.