Home


About us
PALM
PALM-4U
Installation
Release notes
Documentation
Getting Help
Gallery
Developers area

Changeset 3775 for palm/trunk/SOURCE


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

removed unused variables

Location:
palm/trunk/SOURCE
Files:
2 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

  • palm/trunk/SOURCE/turbulence_closure_mod.f90

    r3724 r3775  
    2525! -----------------
    2626! $Id$
     27! removed unused variables
     28!
     29! 3724 2019-02-06 16:28:23Z kanani
    2730! Correct double-used log_point_s units
    2831!
    … …  
    12281231
    12291232    USE control_parameters,                                                    &
    1230         ONLY:  bc_lr_cyc, bc_ns_cyc, f, message_string, wall_adjustment_factor
     1233        ONLY:  f, message_string, wall_adjustment_factor
    12311234
    12321235    USE grid_variables,                                                        &
    … …  
    12621265
    12631266    INTEGER(KIND=1), DIMENSION(:,:,:), ALLOCATABLE :: vicinity !< contains topography information of the vicinity of (i/j/k)
    1264 
    1265     INTEGER(iwp), DIMENSION(:,:,:), ALLOCATABLE :: wall_flags_dummy    !< dummy array required for MPI_ALLREDUCE command
    12661267
    12671268    REAL(wp) :: radius           !< search radius in meter
    … …  
    19271928 SUBROUTINE tcm_prognostic_equations
    19281929
    1929     USE arrays_3d,                                                             &
    1930         ONLY:  ddzu
    1931 
    19321930    USE control_parameters,                                                    &
    1933         ONLY:  f, scalar_advec, tsc
    1934 
    1935     USE surface_mod,                                                           &
    1936         ONLY :  surf_def_h
     1931        ONLY:  scalar_advec, tsc
    19371932
    19381933    IMPLICIT NONE
    … …  
    19411936    INTEGER(iwp) ::  j       !< loop index
    19421937    INTEGER(iwp) ::  k       !< loop index
    1943     INTEGER(iwp) ::  m       !< loop index
    1944     INTEGER(iwp) ::  surf_e  !< end index of surface elements at given i-j position
    1945     INTEGER(iwp) ::  surf_s  !< start index of surface elements at given i-j position
    19461938
    19471939    REAL(wp)     ::  sbt     !< wheighting factor for sub-time step
    … …  
    36773669 SUBROUTINE diffusion_e( var, var_reference )
    36783670
     3671#ifdef _OPENACC
    36793672    USE arrays_3d,                                                             &
    36803673        ONLY:  ddzu, dd2zu, ddzw, drho_air, rho_air_zw
    … …  
    36833676        ONLY:  atmos_ocean_sign, use_single_reference_value,                   &
    36843677               wall_adjustment, wall_adjustment_factor
    3685 
     3678#else
     3679    USE arrays_3d,                                                             &
     3680        ONLY:  ddzu, ddzw, drho_air, rho_air_zw
     3681#endif
    36863682    USE grid_variables,                                                        &
    36873683        ONLY:  ddx2, ddy2
    … …  
    44334429 SUBROUTINE tcm_diffusivities_default( var, var_reference )
    44344430 
     4431#ifdef _OPENACC
    44354432    USE arrays_3d,                                                             &
    44364433        ONLY:  dd2zu
    … …  
    44394436        ONLY:  atmos_ocean_sign, use_single_reference_value,                   &
    44404437               wall_adjustment, wall_adjustment_factor
     4438#endif
    44414439
    44424440    USE statistics,                                                            &
Note: See TracChangeset for help on using the changeset viewer.
                                                                                                                                                                                                                                                                                                                                                                               
  | Impressum | ©Leibniz Universität Hannover |