Changeset 3274 for palm/trunk/SOURCE/palm.f90

Timestamp:

Sep 24, 2018 3:42:55 PM (6 years ago)

Author:

knoop

Message:

Modularization of all bulk cloud physics code components

File:

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

palm/trunk/SOURCE/palm.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Modularization of all bulk cloud physics code components
+! 
+! 3258 2018-09-18 07:23:31Z Giersch
 ! current revision for user interface has been changed to 3240
 ! 
@@ -245 +248 @@
 
     USE control_parameters,                                                    &
-        ONLY:  air_chemistry, cloud_physics, constant_diffusion, child_domain, &
+        ONLY:  air_chemistry, constant_diffusion, child_domain,                &
                coupling_char, coupling_mode, do2d_at_begin, do3d_at_begin,     &
                humidity, initializing_actions, io_blocks, io_group,            &
-               message_string, microphysics_morrison, microphysics_seifert,    &
+               message_string,                                                 &
                neutral, passive_scalar, runnr, simulated_time_chr, spinup,     &
                time_since_reference_point, user_interface_current_revision,    &
@@ -259 +262 @@
         ONLY:  nbgp
 
+    USE kinds
+
+    USE bulk_cloud_model_mod,                                                  &
+        ONLY: bulk_cloud_model, microphysics_morrison, microphysics_seifert
+
     USE multi_agent_system_mod,                                                &
         ONLY:  agents_active, mas_last_actions
@@ -265 +273 @@
         ONLY:  netcdf_data_input_inquire_file, netcdf_data_input_init,         &
                netcdf_data_input_surface_data, netcdf_data_input_topo
-
-    USE kinds
 
     USE particle_attributes,                                                   &
@@ -442 +448 @@
              IF ( humidity )  THEN
                 CALL exchange_horiz( q, nbgp )
-                IF ( cloud_physics  .AND.  microphysics_morrison )  THEN
+                IF ( bulk_cloud_model  .AND.  microphysics_morrison )  THEN
                   CALL exchange_horiz( qc, nbgp )
                   CALL exchange_horiz( nc, nbgp )
                 ENDIF
-                IF ( cloud_physics  .AND.  microphysics_seifert )  THEN
+                IF ( bulk_cloud_model  .AND.  microphysics_seifert )  THEN
                    CALL exchange_horiz( qr, nbgp ) 
                    CALL exchange_horiz( nr, nbgp )