Changeset 3241 for palm/trunk/SOURCE/poismg_mod.f90

Timestamp:

Sep 12, 2018 3:02:00 PM (6 years ago)

Author:

raasch

Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:

• palm/trunk/SOURCE/poismg_mod.f90 (modified) (8 diffs)

palm/trunk/SOURCE/poismg_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3183 2018-07-27 14:25:55Z suehring
 ! Rename variables in mesoscale-offline nesting mode
 ! 
@@ -305 +308 @@
 
        USE arrays_3d,                                                          &
-           ONLY:  f1_mg, f2_mg, f3_mg, rho_air_mg
+           ONLY:  rho_air_mg
 
        USE control_parameters,                                                 &
@@ -725 +728 @@
 
        USE arrays_3d,                                                          &
-           ONLY:  f1_mg, f2_mg, f3_mg, rho_air_mg
+           ONLY:  rho_air_mg
 
        USE control_parameters,                                                 &
@@ -1033 +1036 @@
 
 
-       USE control_parameters,                                                 &
-           ONLY:  grid_level
-
        USE indices,                                                            &
            ONLY:  nxl_mg, nxr_mg, nys_mg, nyn_mg, nzb, nzt_mg
@@ -1148 +1148 @@
     SUBROUTINE sort_k_to_even_odd_blocks_int( i_mg , glevel )
 
-
-       USE control_parameters,                                                 &
-           ONLY:  grid_level
 
        USE indices,                                                            &
@@ -1409 +1406 @@
        USE control_parameters,                                                 &
            ONLY:  bc_lr_dirrad, bc_lr_raddir, bc_ns_dirrad, bc_ns_raddir,      &
-                  child_domain, gamma_mg, grid_level_count, ibc_p_b, ibc_p_t,  &
-                  maximum_grid_level,  mg_switch_to_pe0_level,                 &
-                  mg_switch_to_pe0, ngsrb 
+                  child_domain, gamma_mg, grid_level_count, maximum_grid_level,&
+                  mg_switch_to_pe0_level, mg_switch_to_pe0, ngsrb
 
        USE indices,                                                            &
@@ -1771 +1767 @@
 
        USE indices,                                                            &
-           ONLY:  nxl_mg, nxr_mg, nys_mg, nyn_mg, nzb, nzt_mg
+           ONLY:  nzb, nzt_mg
 
        IMPLICIT NONE
@@ -1822 +1818 @@
 !> "red" or "black" data points.
 !------------------------------------------------------------------------------!
-     SUBROUTINE special_exchange_horiz ( p_mg, color )
+     SUBROUTINE special_exchange_horiz( p_mg, color )
 
 
        USE control_parameters,                                                 &
-           ONLY:  bc_lr_cyc, bc_ns_cyc, grid_level, ibc_p_b, ibc_p_t,          &
-                  maximum_grid_level,                                          &
-                  mg_switch_to_pe0_level, synchronous_exchange
+           ONLY:  grid_level, mg_switch_to_pe0_level, synchronous_exchange
 
        USE indices,                                                            &
-           ONLY:  mg_loc_ind, nxl, nxl_mg, nxr, nxr_mg, nys, nys_mg, nyn,      &
+           ONLY:  nxl, nxl_mg, nxr, nxr_mg, nys, nys_mg, nyn,      &
                   nyn_mg, nzb, nzt, nzt_mg