Changeset 761 for palm/trunk
- Timestamp:
- Oct 5, 2011 5:58:52 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/poisfft.f90
r697 r761 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! Bugfix: Avoid divisions by zero in case of using a 'neumann' bc for the 7 ! pressure at the top of the model domain. 8 ! 7 9 ! 8 10 ! Former revisions: … … 1545 1547 !-- Backward substitution 1546 1548 DO i = 0, nx 1547 ar(i,nz) = ar1(i,nz-1) / tri(4,i,nz-1)1549 ar(i,nz) = ar1(i,nz-1) / ( tri(4,i,nz-1) + 1.0E-20 ) 1548 1550 ENDDO 1549 1551 DO k = nz-2, 0, -1
Note: See TracChangeset
for help on using the changeset viewer.