Ignore:
Timestamp:
Nov 29, 2011 3:11:20 AM (11 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/write_3d_binary.f90

    r777 r790  
    44! Current revisions:
    55! -----------------
     6! bugfix: output of 'ql' also if cloud droplets are used
    67!
    78! Former revisions:
     
    141142       ENDIF
    142143       WRITE ( 14 )  'q_m                 ';  WRITE ( 14 ) q_m
    143        IF ( cloud_physics ) THEN
     144       IF ( cloud_physics  .OR.  cloud_droplets ) THEN
    144145          WRITE ( 14 )  'ql                  ';  WRITE ( 14 ) ql
    145146          IF ( ALLOCATED( ql_av ) )  THEN
Note: See TracChangeset for help on using the changeset viewer.