Changeset 4731 for palm/trunk/SOURCE/bulk_cloud_model_mod.f90

Timestamp:

Oct 7, 2020 1:25:11 PM (4 years ago)

Author:

schwenkel

Message:

Move exchange_horiz from time_integration to modules

File:

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

palm/trunk/SOURCE/bulk_cloud_model_mod.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! Move exchange_horiz from time_integration to modules
+!
+! 4671 2020-09-09 20:27:58Z pavelkrc
 ! Implementation of downward facing USM and LSM surfaces
 ! 
@@ -1470 +1473 @@
 ! Description:
 ! ------------
-!> Control of microphysics for all grid points
-!--------------------------------------------------------------------------------------------------!
-    SUBROUTINE bcm_exchange_horiz
+!> Exchange ghostpoints
+!--------------------------------------------------------------------------------------------------!
+    SUBROUTINE bcm_exchange_horiz( location )
 
        USE exchange_horiz_mod,                                                                     &
            ONLY:  exchange_horiz
 
-
-       IF ( .NOT. microphysics_sat_adjust  .AND.  ( intermediate_timestep_count == 1  .OR.         &
-            call_microphysics_at_all_substeps ) )                                                  &
-       THEN
-          IF ( microphysics_morrison )  THEN
-             CALL exchange_horiz( nc, nbgp )
-             CALL exchange_horiz( qc, nbgp )
-          ENDIF
-          IF ( microphysics_seifert ) THEN
-             CALL exchange_horiz( qr, nbgp )
-             CALL exchange_horiz( nr, nbgp )
-          ENDIF
-          IF ( microphysics_ice_phase ) THEN
-             CALL exchange_horiz( qi, nbgp )
-             CALL exchange_horiz( ni, nbgp )
-          ENDIF
-          CALL exchange_horiz( q, nbgp )
-          CALL exchange_horiz( pt, nbgp )
-       ENDIF
-
+       CHARACTER (LEN=*), INTENT(IN) ::  location !< call location string
+
+       SELECT CASE ( location )
+
+          CASE ( 'before_prognostic_equation' )
+
+             IF ( .NOT. microphysics_sat_adjust  .AND.  ( intermediate_timestep_count == 1  .OR.   &
+                  call_microphysics_at_all_substeps ) )                                            &
+             THEN
+                IF ( microphysics_morrison )  THEN
+                   CALL exchange_horiz( nc, nbgp )
+                   CALL exchange_horiz( qc, nbgp )
+                ENDIF
+                IF ( microphysics_seifert ) THEN
+                   CALL exchange_horiz( qr, nbgp )
+                   CALL exchange_horiz( nr, nbgp )
+                ENDIF
+                IF ( microphysics_ice_phase ) THEN
+                   CALL exchange_horiz( qi, nbgp )
+                   CALL exchange_horiz( ni, nbgp )
+                ENDIF
+                CALL exchange_horiz( q, nbgp )
+                CALL exchange_horiz( pt, nbgp )
+             ENDIF
+
+          CASE ( 'after_prognostic_equation' )
+
+             IF ( collision_turbulence )  THEN
+                CALL exchange_horiz( diss, nbgp )
+             ENDIF
+             IF ( microphysics_morrison )  THEN
+                CALL exchange_horiz( qc_p, nbgp )
+                CALL exchange_horiz( nc_p, nbgp )
+             ENDIF
+             IF ( microphysics_seifert )  THEN
+                CALL exchange_horiz( qr_p, nbgp )
+                CALL exchange_horiz( nr_p, nbgp )
+             ENDIF
+             IF ( microphysics_ice_phase )  THEN
+                CALL exchange_horiz( qi_p, nbgp )
+                CALL exchange_horiz( ni_p, nbgp )
+             ENDIF
+
+          CASE ( 'after_anterpolation' )
+
+             IF ( microphysics_morrison )  THEN
+                CALL exchange_horiz( qc, nbgp )
+                CALL exchange_horiz( nc, nbgp )
+             ENDIF
+             IF ( microphysics_seifert )  THEN
+                CALL exchange_horiz( qr, nbgp )
+                CALL exchange_horiz( nr, nbgp )
+             ENDIF
+             IF ( microphysics_ice_phase )  THEN
+                CALL exchange_horiz( qi, nbgp )
+                CALL exchange_horiz( ni, nbgp )
+             ENDIF
+
+       END SELECT
 
     END SUBROUTINE bcm_exchange_horiz
-