Ignore:
Timestamp:
Mar 20, 2007 8:33:14 AM (15 years ago)
Author:
raasch
Message:

preliminary changes for radiation conditions

File:
1 edited

Legend:

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

    r70 r73  
    44! Actual revisions:
    55! -----------------
     6! checking for negative q and limiting for positive values,
    67! z0 removed from arguments in calls of diffusion_u/v/w,
    78! subroutine names changed to .._noopt, .._cache, and .._vector
     
    481482                                     ) -                                       &
    482483                             tsc(5) * rdf(k) * ( q(k,j,i) - q_init(k) )
     484                IF ( q_p(k,j,i) < 0.0 )  q_p(k,j,i) = 0.1 * q(k,j,i)
    483485             ENDDO
    484486
     
    915917                                        ) -                                    &
    916918                                tsc(5) * rdf(k) * ( q(k,j,i) - q_init(k) )
     919                   IF ( q_p(k,j,i) < 0.0 )  q_p(k,j,i) = 0.1 * q(k,j,i)
    917920                ENDDO
    918921
     
    14191422                                     ) -                                       &
    14201423                             tsc(5) * rdf(k) * ( q(k,j,i) - q_init(k) )
     1424                IF ( q_p(k,j,i) < 0.0 )  q_p(k,j,i) = 0.1 * q(k,j,i)
    14211425             ENDDO
    14221426          ENDDO
Note: See TracChangeset for help on using the changeset viewer.