Changeset 366 for palm/trunk/SOURCE/diffusion_u.f90
 Timestamp:
 Aug 25, 2009 8:06:27 AM (12 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/diffusion_u.f90
r110 r366 4 4 ! Actual revisions: 5 5 !  6 ! 6 ! bc_ns replaced by bc_ns_cyc 7 7 ! 8 8 ! Former revisions: … … 101 101 ! velocity components parallel to the outflow boundary in 102 102 ! the direction normal to the outflow boundary. 103 IF ( bc_ns /= 'cyclic') THEN103 IF ( .NOT. bc_ns_cyc ) THEN 104 104 kmyp_y = MAX( kmyp_y, km_damp_y(j) ) 105 105 kmym_y = MAX( kmym_y, km_damp_y(j) ) … … 134 134 ! velocity components parallel to the outflow boundary in 135 135 ! the direction normal to the outflow boundary. 136 IF ( bc_ns /= 'cyclic') THEN136 IF ( .NOT. bc_ns_cyc ) THEN 137 137 kmyp_y = MAX( kmyp_y, km_damp_y(j) ) 138 138 kmym_y = MAX( kmym_y, km_damp_y(j) ) … … 266 266 ! parallel to the outflow boundary in the direction normal to the 267 267 ! outflow boundary. 268 IF ( bc_ns /= 'cyclic') THEN268 IF ( .NOT. bc_ns_cyc ) THEN 269 269 kmyp_y = MAX( kmyp_y, km_damp_y(j) ) 270 270 kmym_y = MAX( kmym_y, km_damp_y(j) ) … … 302 302 ! velocity components parallel to the outflow boundary in 303 303 ! the direction normal to the outflow boundary. 304 IF ( bc_ns /= 'cyclic') THEN304 IF ( .NOT. bc_ns_cyc ) THEN 305 305 kmyp_y = MAX( kmyp_y, km_damp_y(j) ) 306 306 kmym_y = MAX( kmym_y, km_damp_y(j) )
Note: See TracChangeset
for help on using the changeset viewer.