Ignore:
Timestamp:
Mar 22, 2007 9:54:05 AM (15 years ago)
Author:
raasch
Message:

preliminary update for changes concerning non-cyclic boundary conditions

File:
1 edited

Legend:

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

    r4 r75  
    44! Actual revisions:
    55! -----------------
    6 !
     6! moisture renamed humidity
    77!
    88! Former revisions:
     
    7272          ENDIF
    7373
    74           IF ( ( moisture .OR. passive_scalar )  .AND. &
     74          IF ( ( humidity .OR. passive_scalar )  .AND. &
    7575             scalar_advec /= 'bc-scheme' )  THEN
    7676             DO  k = nzb_2d(j,i), nzt+1
     
    9696    ENDIF
    9797
    98     IF ( ( moisture .OR. passive_scalar )  .AND. &
     98    IF ( ( humidity .OR. passive_scalar )  .AND. &
    9999         scalar_advec /= 'bc-scheme' )  THEN
    100100       q = q + asselin_filter_factor * ( q_p - 2.0 * q + q_m )
Note: See TracChangeset for help on using the changeset viewer.