Changeset 761


Ignore:
Timestamp:
Oct 5, 2011 5:58:52 PM (11 years ago)
Author:
suehring
Message:

Bugfix: Avoid divisions by zero in case of using a 'neumann' bc for the pressure at the top of the model domain.

File:
1 edited

Legend:

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

    r697 r761  
    44! Current revisions:
    55! -----------------
    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!
    79!
    810! Former revisions:
     
    15451547!--       Backward substitution
    15461548          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 )
    15481550          ENDDO
    15491551          DO  k = nz-2, 0, -1
Note: See TracChangeset for help on using the changeset viewer.