Changeset 763 for palm


Ignore:
Timestamp:
Oct 6, 2011 9:32:09 AM (13 years ago)
Author:
suehring
Message:

comment added

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/poisfft.f90

    r762 r763  
    15481548!
    15491549!--       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.
    15501553          DO  i = 0, nx
    15511554             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.