- Timestamp:
- Apr 29, 2019 4:06:25 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90
r3937 r3938 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Remove unused variables 28 ! 29 ! 3937 2019-04-29 15:09:07Z suehring 27 30 ! Minor bugfix in case of a very early restart where mc_factor is sill not 28 31 ! present. … … 273 276 INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: seed !< seed of random number for rn-generator 274 277 275 REAL(wp) :: cosmo_ref = 10.0_wp !< height of first vertical grid level in mesoscale model, used for calculation of scaling parameters276 278 REAL(wp) :: dt_stg_adjust = 300.0_wp !< time interval for adjusting turbulence statistics 277 279 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 2073 2075 INTEGER(iwp) :: k !< loop index in z-direction 2074 INTEGER(iwp) :: k_ref !< index in z-direction for COSMO reference height2075 INTEGER(iwp) :: k_topo !< topography top index2076 2076 INTEGER(iwp) :: m !< surface element index 2077 2077 … … 2082 2082 REAL(wp) :: shf_mean !< mean surface sensible heat flux 2083 2083 REAL(wp) :: shf_mean_l !< mean surface sensible heat flux on subdomain 2084 REAL(wp) :: u_int !< u-component2085 REAL(wp) :: v_int !< v-component2086 2084 REAL(wp) :: w_convective !< convective velocity scale 2087 2085
Note: See TracChangeset
for help on using the changeset viewer.