Ignore:
Timestamp:
Mar 4, 2019 12:40:20 PM (2 years ago)
Author:
gronemeier
Message:

removed unused variables

File:
1 edited

Legend:

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

    r3719 r3775  
    2525! -----------------
    2626! $Id$
     27! removed unused variables
     28!
     29! 3719 2019-02-06 13:10:18Z kanani
    2730! Removed log_point measurement from stg_init, since this part is counted to
    2831! log_point(2) 'initialisation' already. Moved other log_points to calls of
     
    520523
    521524    USE arrays_3d,                                                             &
    522         ONLY:  dzw, ddzw, u_init, v_init, zu
     525        ONLY:  ddzw, u_init, v_init
    523526
    524527    USE control_parameters,                                                    &
     
    526529
    527530    USE grid_variables,                                                        &
    528         ONLY:  ddx, ddy, dx, dy
     531        ONLY:  ddy
    529532
    530533    USE indices,                                                               &
     
    558561    REAL(wp) :: d3      !< w profile
    559562    REAL(wp) :: d5      !< e profile
    560     REAL(wp) :: d11     !< vertical interpolation for a11
    561     REAL(wp) :: d21     !< vertical interpolation for a21
    562     REAL(wp) :: d22     !< vertical interpolation for a22
    563563    REAL(wp) :: luy     !< length scale for u in y direction
    564564    REAL(wp) :: luz     !< length scale for u in z direction
     
    10551055
    10561056    USE control_parameters,                                                    &
    1057         ONLY:  child_domain, dt_3d, intermediate_timestep_count,               &
     1057        ONLY:  child_domain, dt_3d,                                            &
    10581058               nesting_offline, rans_mode, time_since_reference_point,         &
    10591059               volume_flow_initial
     
    10641064    USE indices,                                                               &
    10651065        ONLY:  wall_flags_0
    1066 
    1067     USE statistics,                                                            &
    1068         ONLY:  weight_substep
    10691066
    10701067    USE pmc_interface,                                                         &
     
    10861083!
    10871084!-- Calculate time step which is needed for filter functions
    1088     dt_stg = MAX( dt_3d, dt_stg_call ) !* weight_substep(intermediate_timestep_count)
     1085    dt_stg = MAX( dt_3d, dt_stg_call )
    10891086!
    10901087!-- Initial value of fu, fv, fw
     
    18261823
    18271824    IMPLICIT NONE
    1828    
    1829     INTEGER(iwp) ::  k
    1830 
    18311825
    18321826!
     
    18761870
    18771871    USE arrays_3d,                                                             &
    1878         ONLY:  dzw, ddzw, u_init, v_init, zu, zw
     1872        ONLY:  dzw, ddzw, u_init, v_init
    18791873
    18801874    USE grid_variables,                                                        &
    18811875        ONLY:  ddx, ddy, dx, dy
    1882        
    1883     USE statistics,                                                            &
    1884         ONLY:  hom
    18851876
    18861877    IMPLICIT NONE
     
    19851976    USE control_parameters,                                                    &
    19861977        ONLY:  bc_dirichlet_l, bc_dirichlet_n, bc_dirichlet_r, bc_dirichlet_s, &
    1987                humidity, pt_surface
     1978               pt_surface
    19881979             
    19891980    USE indices,                                                               &
     
    20071998    REAL(wp) ::  u_int                  !< u-component
    20081999    REAL(wp) ::  v_int                  !< v-component
    2009     REAL(wp) ::  vpt_surface            !< near-surface virtual potential temperature
    20102000    REAL(wp) ::  w_convective           !< convective velocity scale
    20112001    REAL(wp) ::  z0_mean                !< mean roughness length
Note: See TracChangeset for help on using the changeset viewer.