Changeset 3241 for palm/trunk/SOURCE/swap_timelevel.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/swap_timelevel.f90 (modified) (5 diffs)

palm/trunk/SOURCE/swap_timelevel.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 2817 2018-02-19 16:32:21Z knoop
 ! Preliminary gust module interface implemented
 ! 
@@ -125 +128 @@
 #if defined( __nopointer )
     USE arrays_3d,                                                             &
-        ONLY:  e, e_p, nc, nc_p, nr, nr_p, pt, pt_p, q, q_p, qc, qc_p, qr,     &
-               qr_p, s, s_p, sa, sa_p, u, u_p, v, v_p, w, w_p
+        ONLY:  nc, nc_p, nr, nr_p, pt, pt_p, q, q_p, qc, qc_p, qr, qr_p, s,    &
+               s_p, sa, sa_p, u, u_p, v, v_p, w, w_p
 #else
     USE arrays_3d,                                                             &
-        ONLY:  e, e_1, e_2, e_p, nc, nc_1, nc_2, nc_p, nr, nr_1, nr_2, nr_p,   &
-               pt, pt_1, pt_2, pt_p, q, q_1, q_2, q_p, qc, qc_1, qc_2, qc_p,   &
-               qr, qr_1, qr_2, qr_p, s, s_1, s_2, s_p, sa, sa_1, sa_2, sa_p,   &
-               u, u_1, u_2, u_p, v, v_1, v_2, v_p, w, w_1, w_2, w_p
-
+        ONLY:  nc, nc_1, nc_2, nc_p, nr, nr_1, nr_2, nr_p, pt, pt_1, pt_2,     &
+               pt_p, q, q_1, q_2, q_p, qc, qc_1, qc_2, qc_p, qr, qr_1, qr_2,   &
+               qr_p, s, s_1, s_2, s_p, sa, sa_1, sa_2, sa_p, u, u_1, u_2, u_p, &
+               v, v_1, v_2, v_p, w, w_1, w_2, w_p
 #endif
 
@@ -146 +148 @@
 
     USE control_parameters,                                                    &
-        ONLY:  air_chemistry, cloud_physics, constant_diffusion,               &
-               humidity, land_surface,                                         &
+        ONLY:  air_chemistry, cloud_physics, humidity, land_surface,           &
                microphysics_morrison, microphysics_seifert, neutral, ocean,    &
                passive_scalar, timestep_count, urban_surface
@@ -154 +155 @@
         ONLY: gust_module_enabled, gust_swap_timelevel
 
+#if defined( __nopointer )
     USE indices,                                                               &
         ONLY:  nxlg, nxrg, nyng, nysg, nzb, nzt
+#endif
 
     USE pmc_interface,                                                         &
@@ -169 +172 @@
     IMPLICIT NONE
 
+#if defined( __nopointer )
     INTEGER ::  i, j, k     !> loop indices
+#endif
     INTEGER ::  swap_level  !> swap_level for steering the pmc data transfer