Changeset 707 for palm/trunk/SOURCE/header.f90
- Timestamp:
- Mar 29, 2011 11:39:40 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/header.f90
r668 r707 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! bc_lr/ns replaced by bc_lr/ns_cyc 6 7 ! 7 8 ! Former revisions: … … 686 687 687 688 WRITE ( io, 317 ) bc_lr, bc_ns 688 IF ( bc_lr /= 'cyclic' .OR. bc_ns /= 'cyclic') THEN689 IF ( .NOT. bc_lr_cyc .OR. .NOT. bc_ns_cyc ) THEN 689 690 WRITE ( io, 318 ) outflow_damping_width, km_damp_max 690 691 IF ( turbulent_inflow ) THEN … … 1477 1478 zu(disturbance_level_ind_b), disturbance_level_ind_b,& 1478 1479 zu(disturbance_level_ind_t), disturbance_level_ind_t 1479 IF ( bc_lr /= 'cyclic' .OR. bc_ns /= 'cyclic') THEN1480 IF ( .NOT. bc_lr_cyc .OR. .NOT. bc_ns_cyc ) THEN 1480 1481 WRITE ( io, 472 ) inflow_disturbance_begin, inflow_disturbance_end 1481 1482 ELSE
Note: See TracChangeset
for help on using the changeset viewer.