Changeset 3938

Timestamp:

Apr 29, 2019 4:06:25 PM (6 years ago)

Author:

suehring

Message:

Remove unused variables

File:

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

palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Remove unused variables
+! 
+! 3937 2019-04-29 15:09:07Z suehring
 ! Minor bugfix in case of a very early restart where mc_factor is sill not 
 ! present.
@@ -273 +276 @@
     INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  seed           !< seed of random number for rn-generator
 
-    REAL(wp) ::  cosmo_ref = 10.0_wp      !< height of first vertical grid level in mesoscale model, used for calculation of scaling parameters
     REAL(wp) ::  dt_stg_adjust = 300.0_wp !< time interval for adjusting turbulence statistics
     REAL(wp) ::  dt_stg_call = 5.0_wp     !< time interval for calling synthetic turbulence generator
@@ -2072 +2074 @@
     INTEGER(iwp) :: j            !< loop index in y-direction
     INTEGER(iwp) :: k            !< loop index in z-direction
-    INTEGER(iwp) :: k_ref        !< index in z-direction for COSMO reference height 
-    INTEGER(iwp) :: k_topo       !< topography top index 
     INTEGER(iwp) :: m            !< surface element index
 
@@ -2082 +2082 @@
     REAL(wp) ::  shf_mean               !< mean surface sensible heat flux
     REAL(wp) ::  shf_mean_l             !< mean surface sensible heat flux on subdomain
-    REAL(wp) ::  u_int                  !< u-component
-    REAL(wp) ::  v_int                  !< v-component
     REAL(wp) ::  w_convective           !< convective velocity scale