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

Timestamp:

Apr 7, 2016 7:49:42 AM (8 years ago)

Author:

hoffmann

Message:

changes in LPM and bulk cloud microphysics

File:

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

palm/trunk/SOURCE/time_integration.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-!
+! icloud_scheme replaced by microphysics_*
 !
 ! Former revisions:
@@ -213 +213 @@
                dt_dopr_listing, dt_dosp, dt_dots, dt_dvrp, dt_run_control,     &
                end_time, first_call_lpm, galilei_transformation, humidity,     &
-               icloud_scheme, intermediate_timestep_count,                     &
+               intermediate_timestep_count,                                    &
                intermediate_timestep_count_max, large_scale_forcing,           &
-               loop_optimization, lsf_surf, lsf_vert, masks, mid, nest_domain, &
+               loop_optimization, lsf_surf, lsf_vert, masks,                   &
+               microphysics_seifert, mid, nest_domain,                         &
                neutral, nr_timesteps_this_run, nudging,                        &
-               ocean, on_device, passive_scalar, precipitation,                &
+               ocean, on_device, passive_scalar,                               &
                prho_reference, pt_reference, pt_slope_offset, random_heatflux, &
                run_coupled, simulated_time, simulated_time_chr,                &
@@ -486 +487 @@
                 IF (humidity  .OR.  passive_scalar)  THEN
                    CALL exchange_horiz( q_p, nbgp )
-                   IF ( cloud_physics .AND. icloud_scheme == 0 )  THEN
+                   IF ( cloud_physics .AND. microphysics_seifert )  THEN
                       CALL exchange_horiz( qr_p, nbgp )
                       CALL exchange_horiz( nr_p, nbgp )
@@ -553 +554 @@
                 IF (humidity  .OR.  passive_scalar)  THEN
                    CALL exchange_horiz( q_p, nbgp )
-                   IF ( cloud_physics .AND. icloud_scheme == 0 )  THEN
+                   IF ( cloud_physics .AND. microphysics_seifert )  THEN
                       CALL exchange_horiz( qr_p, nbgp )
                       CALL exchange_horiz( nr_p, nbgp )
@@ -642 +643 @@
              IF (humidity  .OR.  passive_scalar)  THEN
                 CALL exchange_horiz( q_p, nbgp )
-                IF ( cloud_physics .AND. icloud_scheme == 0  .AND.  &
-                     precipitation )  THEN
+                IF ( cloud_physics .AND. microphysics_seifert )  THEN
                    CALL exchange_horiz( qr_p, nbgp )
                    CALL exchange_horiz( nr_p, nbgp )