Changeset 4457 for palm/trunk/SOURCE/init_grid.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/init_grid.f90 (modified) (6 diffs)

palm/trunk/SOURCE/init_grid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! use statement for exchange horiz added,
+! bugfix for call of exchange horiz 2d
+! 
+! 4444 2020-03-05 15:59:50Z raasch
 ! bugfix: cpp-directives for serial mode added
 ! 
@@ -934 +938 @@
         ONLY:  bc_lr_cyc, bc_ns_cyc, message_string, ocean_mode
 
+    USE exchange_horiz_mod,                                                    &
+        ONLY:  exchange_horiz_int, exchange_horiz_2d
+
     USE indices,                                                               &
         ONLY:  nbgp, nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg, nzb,  &
@@ -1315 +1322 @@
 !--    initialization of building-surface properties.
        IF ( ALLOCATED( buildings_f%oro_max ) )  THEN
-          CALL exchange_horiz_2d( buildings_f%oro_max(:,:), nbgp )
+          CALL exchange_horiz_2d( buildings_f%oro_max(:,:) )
        ENDIF
 !
@@ -1377 +1384 @@
     USE control_parameters,                                                    &
         ONLY:  bc_lr_cyc, bc_ns_cyc, message_string
+
+    USE exchange_horiz_mod,                                                    &
+        ONLY:  exchange_horiz_int, exchange_horiz_2d_byte, exchange_horiz_2d_int
 
     USE indices,                                                               &
@@ -1592 +1602 @@
                tunnel_wall_depth
          
+    USE exchange_horiz_mod,                                                    &
+        ONLY:  exchange_horiz_int
+
     USE grid_variables,                                                        &
         ONLY:  dx, dy
@@ -2182 +2195 @@
                scalar_advec, topography, use_surface_fluxes, use_top_fluxes
 
+    USE exchange_horiz_mod,                                                    &
+        ONLY:  exchange_horiz_int
+
     USE indices,                                                               &
         ONLY:  nbgp, nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg, nzb,  &