Changeset 3938 for palm


Ignore:
Timestamp:
Apr 29, 2019 4:06:25 PM (6 years ago)
Author:
suehring
Message:

Remove unused variables

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

    r3937 r3938  
    2525! -----------------
    2626! $Id$
     27! Remove unused variables
     28!
     29! 3937 2019-04-29 15:09:07Z suehring
    2730! Minor bugfix in case of a very early restart where mc_factor is sill not
    2831! present.
     
    273276    INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  seed           !< seed of random number for rn-generator
    274277
    275     REAL(wp) ::  cosmo_ref = 10.0_wp      !< height of first vertical grid level in mesoscale model, used for calculation of scaling parameters
    276278    REAL(wp) ::  dt_stg_adjust = 300.0_wp !< time interval for adjusting turbulence statistics
    277279    REAL(wp) ::  dt_stg_call = 5.0_wp     !< time interval for calling synthetic turbulence generator
     
    20722074    INTEGER(iwp) :: j            !< loop index in y-direction
    20732075    INTEGER(iwp) :: k            !< loop index in z-direction
    2074     INTEGER(iwp) :: k_ref        !< index in z-direction for COSMO reference height
    2075     INTEGER(iwp) :: k_topo       !< topography top index
    20762076    INTEGER(iwp) :: m            !< surface element index
    20772077
     
    20822082    REAL(wp) ::  shf_mean               !< mean surface sensible heat flux
    20832083    REAL(wp) ::  shf_mean_l             !< mean surface sensible heat flux on subdomain
    2084     REAL(wp) ::  u_int                  !< u-component
    2085     REAL(wp) ::  v_int                  !< v-component
    20862084    REAL(wp) ::  w_convective           !< convective velocity scale
    20872085   
Note: See TracChangeset for help on using the changeset viewer.