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

palm/trunk/SOURCE/timestep.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3120 2018-07-11 18:30:57Z gronemeier
 ! Put ABS( km ) in computation of time step according to the diffusion criterion
 ! 
@@ -188 +191 @@
     REAL(wp) ::  kh_max            !< maximum of Kh in entire domain
     REAL(wp) ::  u_gtrans_l        !< 
-    REAL(wp) ::  u_max_l           !< 
-    REAL(wp) ::  u_min_l           !< 
-    REAL(wp) ::  value             !< 
     REAL(wp) ::  v_gtrans_l        !< 
-    REAL(wp) ::  v_max_l           !< 
-    REAL(wp) ::  v_min_l           !< 
-    REAL(wp) ::  w_max_l           !< 
-    REAL(wp) ::  w_min_l           !< 
  
     REAL(wp), DIMENSION(2)         ::  uv_gtrans   !< 
@@ -313 +309 @@
        ENDDO
 
-       !$OMP PARALLEL private(i,j,k,value) reduction(MIN: dt_diff_l)
+       !$OMP PARALLEL private(i,j,k) reduction(MIN: dt_diff_l)
        !$OMP DO
        DO  i = nxl, nxr