Changeset 707 for palm/trunk/SOURCE/timestep.f90
- Timestamp:
- Mar 29, 2011 11:39:40 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/timestep.f90
r668 r707 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! bc_lr/ns replaced by bc_lr/ns_cyc 7 7 ! 8 8 ! Former revisions: … … 185 185 !-- may be further restricted by the lateral damping layer (damping only 186 186 !-- along x and y) 187 IF ( bc_lr /= 'cyclic') THEN187 IF ( .NOT. bc_lr_cyc ) THEN 188 188 dt_diff = MIN( dt_diff, 0.125 * dx2 / ( km_damp_max + 1E-20 ) ) 189 ELSEIF ( bc_ns /= 'cyclic') THEN189 ELSEIF ( .NOT. bc_ns_cyc ) THEN 190 190 dt_diff = MIN( dt_diff, 0.125 * dy2 / ( km_damp_max + 1E-20 ) ) 191 191 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.