Changeset 151 for palm/trunk/SOURCE/pres.f90
- Timestamp:
- Mar 7, 2008 1:42:18 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/pres.f90
r110 r151 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! 6 ! Bugfix in volume flow control for non-cyclic boundary conditions 7 7 ! 8 8 ! Former revisions: … … 110 110 / volume_flow_area(1) 111 111 112 DO j = nys , nyn112 DO j = nys-1, nyn+1 113 113 DO k = nzb_v_inner(j,i) + 1, nzt 114 114 u(k,j,i) = u(k,j,i) + volume_flow_offset(1) 115 115 ENDDO 116 116 ENDDO 117 118 CALL exchange_horiz( u )119 117 120 118 ENDIF … … 150 148 / volume_flow_area(2) 151 149 152 DO i = nxl , nxr150 DO i = nxl-1, nxr+1 153 151 DO k = nzb_v_inner(j,i) + 1, nzt 154 152 v(k,j,i) = v(k,j,i) + volume_flow_offset(2) 155 153 ENDDO 156 154 ENDDO 157 158 CALL exchange_horiz( v )159 155 160 156 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.