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

Timestamp:

Nov 22, 2012 5:42:36 PM (11 years ago)

Author:

hoffmann

Message:

cloud physics: rain sedimentation and turbulence effects

File:

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

palm/trunk/SOURCE/time_integration.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
+! exchange of diss (dissipation rate) in case of turbulence = .TRUE. added
 !
 ! Former revisions:
@@ -255 +256 @@
              CALL exchange_horiz( ql_vp, nbgp )
           ENDIF
-          IF ( wang_kernel )  CALL exchange_horiz( diss, nbgp )
+          IF ( wang_kernel  .OR.  turbulence )  CALL exchange_horiz( diss, nbgp )
 
           CALL cpu_log( log_point(26), 'exchange-horiz-progn', 'stop' )