Changeset 707 for palm/trunk/SOURCE/sor.f90
 Timestamp:
 Mar 29, 2011 11:39:40 AM (13 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/sor.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: … … 110 111 ! 111 112 ! Horizontal (Neumann) boundary conditions in case of noncyclic boundaries 112 IF ( bc_lr /= 'cyclic') THEN113 IF ( .NOT. bc_lr_cyc ) THEN 113 114 IF ( inflow_l .OR. outflow_l ) p(:,:,nxl1) = p(:,:,nxl) 114 115 IF ( inflow_r .OR. outflow_r ) p(:,:,nxr+1) = p(:,:,nxr) 115 116 ENDIF 116 IF ( bc_ns /= 'cyclic') THEN117 IF ( .NOT. bc_ns_cyc ) THEN 117 118 IF ( inflow_n .OR. outflow_n ) p(:,nyn+1,:) = p(:,nyn,:) 118 119 IF ( inflow_s .OR. outflow_s ) p(:,nys1,:) = p(:,nys,:) … … 172 173 ! 173 174 ! Horizontal (Neumann) boundary conditions in case of noncyclic boundaries 174 IF ( bc_lr /= 'cyclic') THEN175 IF ( .NOT. bc_lr_cyc ) THEN 175 176 IF ( inflow_l .OR. outflow_l ) p(:,:,nxl1) = p(:,:,nxl) 176 177 IF ( inflow_r .OR. outflow_r ) p(:,:,nxr+1) = p(:,:,nxr) 177 178 ENDIF 178 IF ( bc_ns /= 'cyclic') THEN179 IF ( .NOT. bc_ns_cyc ) THEN 179 180 IF ( inflow_n .OR. outflow_n ) p(:,nyn+1,:) = p(:,nyn,:) 180 181 IF ( inflow_s .OR. outflow_s ) p(:,nys1,:) = p(:,nys,:)
Note: See TracChangeset
for help on using the changeset viewer.