Changeset 73 for palm/trunk/SOURCE/prognostic_equations.f90
- Timestamp:
- Mar 20, 2007 8:33:14 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/prognostic_equations.f90
r70 r73 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! checking for negative q and limiting for positive values, 6 7 ! z0 removed from arguments in calls of diffusion_u/v/w, 7 8 ! subroutine names changed to .._noopt, .._cache, and .._vector … … 481 482 ) - & 482 483 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) 483 485 ENDDO 484 486 … … 915 917 ) - & 916 918 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) 917 920 ENDDO 918 921 … … 1419 1422 ) - & 1420 1423 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) 1421 1425 ENDDO 1422 1426 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.