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

Timestamp:

Mar 26, 2013 6:16:16 PM (12 years ago)

Author:

hoffmann

Message:

optimization of two-moments cloud physics

File:

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

palm/trunk/SOURCE/time_integration.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! calculation of qr and nr is restricted to precipitation
 !
 ! Former revisions:
@@ -266 +266 @@
           IF (humidity  .OR.  passive_scalar)  THEN
              CALL exchange_horiz( q_p, nbgp )
-             IF ( cloud_physics .AND. icloud_scheme == 0 )  THEN
+             IF ( cloud_physics  .AND.  icloud_scheme == 0  .AND.              &
+                  precipitation)  THEN
                 CALL exchange_horiz( qr_p, nbgp )
                 CALL exchange_horiz( nr_p, nbgp )
@@ -349 +350 @@
 
 !
-!--       If required, compute virtuell potential temperature
-          IF ( humidity )  THEN
-             CALL compute_vpt
-             !$acc update device( vpt )
-          ENDIF
-
-!
 !--       If required, compute liquid water content
           IF ( cloud_physics )  THEN
@@ -361 +355 @@
              !$acc update device( ql )
           ENDIF
-
+! 
+!--       If required, compute virtual potential temperature 
+          IF ( humidity )  THEN 
+             CALL compute_vpt 
+             !$acc update device( vpt ) 
+          ENDIF 
 !
 !--       Compute the diffusion quantities
@@ -373 +372 @@
                 CALL cpu_log( log_point(19), 'prandtl_fluxes', 'stop' )
              ENDIF
-
 !
 !--          Compute the diffusion coefficients