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

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/diffusion_v.f90
r110 r366 4 4 ! Actual revisions: 5 5 !  6 ! 6 ! bc_lr replaced by bc_lr_cyc 7 7 ! 8 8 ! Former revisions: … … 99 99 ! velocity components parallel to the outflow boundary in 100 100 ! the direction normal to the outflow boundary. 101 IF ( bc_lr /= 'cyclic') THEN101 IF ( .NOT. bc_lr_cyc ) THEN 102 102 kmxp_x = MAX( kmxp_x, km_damp_x(i) ) 103 103 kmxm_x = MAX( kmxm_x, km_damp_x(i) ) … … 132 132 ! velocity components parallel to the outflow boundary in 133 133 ! the direction normal to the outflow boundary. 134 IF ( bc_lr /= 'cyclic') THEN134 IF ( .NOT. bc_lr_cyc ) THEN 135 135 kmxp_x = MAX( kmxp_x, km_damp_x(i) ) 136 136 kmxm_x = MAX( kmxm_x, km_damp_x(i) ) … … 263 263 ! parallel to the outflow boundary in the direction normal to the 264 264 ! outflow boundary. 265 IF ( bc_lr /= 'cyclic') THEN265 IF ( .NOT. bc_lr_cyc ) THEN 266 266 kmxp_x = MAX( kmxp_x, km_damp_x(i) ) 267 267 kmxm_x = MAX( kmxm_x, km_damp_x(i) ) … … 301 301 ! velocity components parallel to the outflow boundary in 302 302 ! the direction normal to the outflow boundary. 303 IF ( bc_lr /= 'cyclic') THEN303 IF ( .NOT. bc_lr_cyc ) THEN 304 304 kmxp_x = MAX( kmxp_x, km_damp_x(i) ) 305 305 kmxm_x = MAX( kmxm_x, km_damp_x(i) )
Note: See TracChangeset
for help on using the changeset viewer.