Changeset 790 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

Nov 29, 2011 3:11:20 AM (12 years ago)

Author:

raasch

Message:

Bugfix for output of mean particle radius + preliminary works for implementing the Wang collision kernel

File:

• palm/trunk/SOURCE/time_integration.f90 (modified) (3 diffs)

palm/trunk/SOURCE/time_integration.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! exchange of ghostpoints for array diss
 !
 ! Former revisions:
@@ -208 +208 @@
              CALL exchange_horiz( prho, nbgp )
           ENDIF
-          IF (humidity  .OR.  passive_scalar) CALL exchange_horiz( q_p, nbgp )
+          IF (humidity  .OR.  passive_scalar)  CALL exchange_horiz( q_p, nbgp )
           IF ( cloud_droplets )  THEN
              CALL exchange_horiz( ql, nbgp )
@@ -215 +215 @@
              CALL exchange_horiz( ql_vp, nbgp )
           ENDIF
+          IF ( wang_collision_kernel )  CALL exchange_horiz( diss, nbgp )
 
           CALL cpu_log( log_point(26), 'exchange-horiz-progn', 'stop' )