Changeset 4457 for palm/trunk/SOURCE/chemistry_model_mod.f90

Timestamp:

Mar 11, 2020 2:20:43 PM (4 years ago)

Author:

raasch

Message:

ghost point exchange modularized, bugfix for wrong 2d-exchange

File:

• palm/trunk/SOURCE/chemistry_model_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! use statement for exchange horiz added,
+! bugfix for call of exchange horiz 2d
+! 
+! 4442 2020-03-04 19:21:13Z suehring
 ! Change order of dimension in surface array %frac to allow for better 
 ! vectorization.
@@ -623 +627 @@
  SUBROUTINE chem_3d_data_averaging( mode, variable )
 
-
     USE control_parameters
+
+    USE exchange_horiz_mod,                                                    &
+        ONLY:  exchange_horiz_2d
+
 
     CHARACTER (LEN=*) ::  mode     !< 
@@ -717 +724 @@
                    ENDDO
                 ENDDO
-                CALL exchange_horiz_2d( chem_species(lsp)%cssws_av, nbgp )                 
+                CALL exchange_horiz_2d( chem_species(lsp)%cssws_av )
              ENDIF
           ENDDO
@@ -2760 +2767 @@
  SUBROUTINE chem_exchange_horiz_bounds
   
+    USE exchange_horiz_mod,                                                    &
+        ONLY:  exchange_horiz
+
    INTEGER(iwp) ::  lsp       !<
    INTEGER(iwp) ::  lsp_usr   !<