Changeset 3775 for palm/trunk/SOURCE/turbulence_closure_mod.f90

Timestamp:

Mar 4, 2019 12:40:20 PM (6 years ago)

Author:

gronemeier

Message:

removed unused variables

File:

• palm/trunk/SOURCE/turbulence_closure_mod.f90 (modified) (9 diffs)

palm/trunk/SOURCE/turbulence_closure_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! removed unused variables
+! 
+! 3724 2019-02-06 16:28:23Z kanani
 ! Correct double-used log_point_s units
 ! 
@@ -1228 +1231 @@
 
     USE control_parameters,                                                    &
-        ONLY:  bc_lr_cyc, bc_ns_cyc, f, message_string, wall_adjustment_factor
+        ONLY:  f, message_string, wall_adjustment_factor
 
     USE grid_variables,                                                        &
@@ -1262 +1265 @@
 
     INTEGER(KIND=1), DIMENSION(:,:,:), ALLOCATABLE :: vicinity !< contains topography information of the vicinity of (i/j/k)
-
-    INTEGER(iwp), DIMENSION(:,:,:), ALLOCATABLE :: wall_flags_dummy    !< dummy array required for MPI_ALLREDUCE command
 
     REAL(wp) :: radius           !< search radius in meter
@@ -1927 +1928 @@
  SUBROUTINE tcm_prognostic_equations
 
-    USE arrays_3d,                                                             &
-        ONLY:  ddzu
-
     USE control_parameters,                                                    &
-        ONLY:  f, scalar_advec, tsc
-
-    USE surface_mod,                                                           &
-        ONLY :  surf_def_h
+        ONLY:  scalar_advec, tsc
 
     IMPLICIT NONE
@@ -1941 +1936 @@
     INTEGER(iwp) ::  j       !< loop index
     INTEGER(iwp) ::  k       !< loop index
-    INTEGER(iwp) ::  m       !< loop index
-    INTEGER(iwp) ::  surf_e  !< end index of surface elements at given i-j position
-    INTEGER(iwp) ::  surf_s  !< start index of surface elements at given i-j position
 
     REAL(wp)     ::  sbt     !< wheighting factor for sub-time step
@@ -3677 +3669 @@
  SUBROUTINE diffusion_e( var, var_reference )
 
+#ifdef _OPENACC
     USE arrays_3d,                                                             &
         ONLY:  ddzu, dd2zu, ddzw, drho_air, rho_air_zw
@@ -3683 +3676 @@
         ONLY:  atmos_ocean_sign, use_single_reference_value,                   &
                wall_adjustment, wall_adjustment_factor
-
+#else
+    USE arrays_3d,                                                             &
+        ONLY:  ddzu, ddzw, drho_air, rho_air_zw
+#endif
     USE grid_variables,                                                        &
         ONLY:  ddx2, ddy2
@@ -4433 +4429 @@
  SUBROUTINE tcm_diffusivities_default( var, var_reference )
  
+#ifdef _OPENACC
     USE arrays_3d,                                                             &
         ONLY:  dd2zu
@@ -4439 +4436 @@
         ONLY:  atmos_ocean_sign, use_single_reference_value,                   &
                wall_adjustment, wall_adjustment_factor
+#endif
 
     USE statistics,                                                            &