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

Timestamp:

Apr 7, 2016 1:15:51 PM (8 years ago)

Author:

hoffmann

Message:

cloud physics variables renamed

File:

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

palm/trunk/SOURCE/time_integration.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-!
+! turbulence renamed collision_turbulence
 !
 ! Former revisions:
@@ -233 +233 @@
                time_dots, time_do_av, time_do_sla, time_disturb, time_dvrp,    &
                time_run_control, time_since_reference_point,                   &
-               turbulence,                                                     &
                turbulent_inflow, use_initial_profile_as_reference,             &
                use_single_reference_value, u_gtrans, v_gtrans, ws_scheme_mom,  &
                ws_scheme_sca
+
+    USE cloud_parameters,                                                      &
+        ONLY: collision_turbulence
 
     USE cpulog,                                                                &
@@ -501 +503 @@
                    CALL exchange_horiz( ql_vp, nbgp )
                 ENDIF
-                IF ( wang_kernel  .OR.  turbulence  .OR.  use_sgs_for_particles ) &
-                THEN
+                IF ( wang_kernel  .OR.  collision_turbulence  .OR.             &
+                     use_sgs_for_particles )  THEN
                    CALL exchange_horiz( diss, nbgp )
                 ENDIF
@@ -568 +570 @@
                    CALL exchange_horiz( ql_vp, nbgp )
                 ENDIF
-                IF ( wang_kernel  .OR.  turbulence  .OR.  use_sgs_for_particles ) &
-                THEN
+                IF ( wang_kernel  .OR.  collision_turbulence  .OR.             &
+                     use_sgs_for_particles )  THEN
                    CALL exchange_horiz( diss, nbgp )
                 ENDIF
@@ -657 +659 @@
                 CALL exchange_horiz( ql_vp, nbgp )
              ENDIF
-             IF ( wang_kernel  .OR.  turbulence  .OR.  use_sgs_for_particles ) &
-             THEN
+             IF ( wang_kernel  .OR.  collision_turbulence  .OR.                &
+                  use_sgs_for_particles )  THEN
                 CALL exchange_horiz( diss, nbgp )
              ENDIF