Changeset 763
- Timestamp:
- Oct 6, 2011 9:32:09 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/poisfft.f90
r762 r763 1548 1548 ! 1549 1549 !-- Backward substitution 1550 !-- Note, the add of 1.0E-20 in the denominator is due to avoid divisions 1551 !-- by zero appearing if the pressure bc is set to neumann at the top of 1552 !-- the model domain. 1550 1553 DO i = 0, nx 1551 1554 ar(i,nz) = ar1(i,nz-1) / ( tri(4,i,nz-1) + 1.0E-20 )
Note: See TracChangeset
for help on using the changeset viewer.