Ignore:
Timestamp:
Nov 29, 2011 3:11:20 AM (10 years ago)
Author:
raasch
Message:

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

File:
1 edited

Legend:

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

    r708 r790  
    44! Current revisions:
    55! -----------------
    6 !
     6! exchange of ghostpoints for array diss
    77!
    88! Former revisions:
     
    208208             CALL exchange_horiz( prho, nbgp )
    209209          ENDIF
    210           IF (humidity  .OR.  passive_scalar) CALL exchange_horiz( q_p, nbgp )
     210          IF (humidity  .OR.  passive_scalar)  CALL exchange_horiz( q_p, nbgp )
    211211          IF ( cloud_droplets )  THEN
    212212             CALL exchange_horiz( ql, nbgp )
     
    215215             CALL exchange_horiz( ql_vp, nbgp )
    216216          ENDIF
     217          IF ( wang_collision_kernel )  CALL exchange_horiz( diss, nbgp )
    217218
    218219          CALL cpu_log( log_point(26), 'exchange-horiz-progn', 'stop' )
Note: See TracChangeset for help on using the changeset viewer.