Changeset 4414 for palm/trunk/SOURCE/poismg_noopt_mod.f90

Timestamp:

Feb 19, 2020 8:16:04 PM (4 years ago)

Author:

suehring

Message:

Remove deprecated topography arrays; Move basic initialization of numerics into an extra module interface

File:

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

palm/trunk/SOURCE/poismg_noopt_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Remove double-declared use only construct.
+! 
+! 4360 2020-01-07 11:25:50Z suehring
 ! Introduction of wall_flags_total_0, which currently sets bits based on static
 ! topography information used in wall_flags_static_0
@@ -84 +87 @@
 
     SUBROUTINE poismg_noopt( r )
-    
 
        USE arrays_3d,                                                          &
            ONLY:  d, p_loc
-
-       USE control_parameters,                                                 &
-           ONLY:  bc_lr_cyc, bc_ns_cyc, gathered_size, grid_level_count,       &
-                  ibc_p_t, maximum_grid_level, message_string, mgcycles,       &
-                  mg_cycles, mg_switch_to_pe0_level, residual_limit,           &
-                  subdomain_size
 
        USE control_parameters,                                                 &
@@ -1655 +1651 @@
 
        USE control_parameters,                                                 &
-           ONLY:  bc_lr_cyc, bc_ns_cyc, masking_method, maximum_grid_level
+           ONLY:  bc_lr_cyc, bc_ns_cyc, masking_method, maximum_grid_level,    &
+                  psolver
 
        USE indices,                                                            &
@@ -1678 +1675 @@
 
        INTEGER(iwp), DIMENSION(:,:,:), ALLOCATABLE ::  topo_tmp
+
+       IF ( psolver /= 'multigrid_noopt' )  RETURN
 !
 !--    Gridpoint increment of the current level.