Home

Context Navigation

source: palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90 @ 2273

Last change on this file since 2273 was 2259, checked in by gronemeier, 7 years ago
Implemented synthetic turbulence generator
Property svn:keywords set to `Id`
File size: 34.0 KB

Rev	Line
[2259]	1	!> @synthetic_turbulence_generator_mod.f90
	2	!------------------------------------------------------------------------------!
	3	! This file is part of PALM-4U.
	4	!
	5	! PALM-4U is free software: you can redistribute it and/or modify it under the
	6	! terms of the GNU General Public License as published by the Free Software
	7	! Foundation, either version 3 of the License, or (at your option) any later
	8	! version.
	9	!
	10	! PALM-4U is distributed in the hope that it will be useful, but WITHOUT ANY
	11	! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
	12	! A PARTICULAR PURPOSE. See the GNU General Public License for more details.
	13	!
	14	! You should have received a copy of the GNU General Public License along with
	15	! PALM. If not, see <http://www.gnu.org/licenses/>.
	16	!
	17	! Copyright 2017 Leibniz Universitaet Hannover
	18	!------------------------------------------------------------------------------!
	19	!
	20	! Current revisions:
	21	! -----------------
	22	!
	23	!
	24	! Former revisions:
	25	! -----------------
	26	! $Id: synthetic_turbulence_generator_mod.f90 2259 2017-06-08 09:09:11Z sward $
	27	! Initial revision
	28	!
	29	!
	30	!
	31	! Authors:
	32	! --------
	33	! @author Tobias Gronemeier, Atsushi Inagaki, Micha Gryschka, Christoph Knigge
	34	!
	35	!
	36	! Description:
	37	! ------------
	38	!> The module generates turbulence at the inflow boundary based on a method by
	39	!> Xie and Castro (2008) utilizing a Lund rotation (Lund, 1998) and a mass-flux
	40	!> correction by Kim et al. (2013).
	41	!> The turbulence is correlated based on length scales in y- and z-direction and
	42	!> a time scale for each velocity component. The profiles of length and time
	43	!> scales, mean u, v, w, e and pt, and all components of the Reynolds stress
	44	!> tensor are read from file STG_PROFILES.
	45	!>
	46	!> @todo test restart
	47	!> enable cyclic_fill
	48	!> implement turbulence generation for e and pt
	49	!> @note <Enter notes on the module>
	50	!> @bug Height information from input file is not used. Profiles from input
	51	!> must match with current PALM grid.
	52	!> Transformation of length scales to number of gridpoints does not
	53	!> consider grid stretching.
	54	!> In case of restart, velocity seeds differ from precursor run if a11,
	55	!> a22, or a33 are zero.
	56	!------------------------------------------------------------------------------!
	57	MODULE synthetic_turbulence_generator_mod
	58
	59
	60	USE arrays_3d, &
	61	ONLY: mean_inflow_profiles, u, v, w
	62
	63	USE constants, &
	64	ONLY: pi
	65
	66	USE control_parameters, &
	67	ONLY: initializing_actions, message_string, &
	68	synthetic_turbulence_generator
	69
	70	USE cpulog, &
	71	ONLY: cpu_log, log_point, log_point_s
	72
	73	USE indices, &
	74	ONLY: nbgp, nzb, nzt, nyng, nysg
	75
	76	USE kinds
	77
	78	USE MPI
	79
	80	USE pegrid, &
	81	ONLY: comm1dx, comm1dy, comm2d, id_inflow, ierr, myidx, pdims
	82
	83	USE transpose_indices, &
	84	ONLY: nzb_x, nzt_x
	85
	86
	87	IMPLICIT NONE
	88
	89	LOGICAL :: velocity_seed_initialized = .FALSE. !< true after first call of stg_main
	90	LOGICAL :: use_synthetic_turbulence_generator = .FALSE. !< switch to use synthetic turbulence generator
	91
	92	INTEGER(iwp) :: stg_type_yz !< MPI type for full z range
	93	INTEGER(iwp) :: stg_type_yz_small !< MPI type for small z range
	94	INTEGER(iwp) :: merg !< maximum length scale (in gp)
	95	INTEGER(iwp) :: mergp !< merg + nbgp
	96
	97	REAL(wp) :: mc_factor !< mass flux correction factor
	98
	99	INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: displs !< displacement for MPI_GATHERV
	100	INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: recv_count !< receive count for MPI_GATHERV
	101	INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: nuy !< length scale of u in y direction (in gp)
	102	INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: nuz !< length scale of u in z direction (in gp)
	103	INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: nvy !< length scale of v in y direction (in gp)
	104	INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: nvz !< length scale of v in z direction (in gp)
	105	INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: nwy !< length scale of w in y direction (in gp)
	106	INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: nwz !< length scale of w in z direction (in gp)
	107
	108	INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: seed !< seed of random number for rn-generator
	109
	110	REAL(wp), DIMENSION(:), ALLOCATABLE :: a11 !< coefficient for Lund rotation
	111	REAL(wp), DIMENSION(:), ALLOCATABLE :: a21 !< coefficient for Lund rotation
	112	REAL(wp), DIMENSION(:), ALLOCATABLE :: a22 !< coefficient for Lund rotation
	113	REAL(wp), DIMENSION(:), ALLOCATABLE :: a31 !< coefficient for Lund rotation
	114	REAL(wp), DIMENSION(:), ALLOCATABLE :: a32 !< coefficient for Lund rotation
	115	REAL(wp), DIMENSION(:), ALLOCATABLE :: a33 !< coefficient for Lund rotation
	116	REAL(wp), DIMENSION(:), ALLOCATABLE :: tu !< Lagrangian time scale of u
	117	REAL(wp), DIMENSION(:), ALLOCATABLE :: tv !< Lagrangian time scale of v
	118	REAL(wp), DIMENSION(:), ALLOCATABLE :: tw !< Lagrangian time scale of w
	119
	120	REAL(wp), DIMENSION(:,:), ALLOCATABLE :: buy !< filter function for u in y direction
	121	REAL(wp), DIMENSION(:,:), ALLOCATABLE :: buz !< filter function for u in z direction
	122	REAL(wp), DIMENSION(:,:), ALLOCATABLE :: bvy !< filter function for v in y direction
	123	REAL(wp), DIMENSION(:,:), ALLOCATABLE :: bvz !< filter function for v in z direction
	124	REAL(wp), DIMENSION(:,:), ALLOCATABLE :: bwy !< filter function for w in y direction
	125	REAL(wp), DIMENSION(:,:), ALLOCATABLE :: bwz !< filter function for w in z direction
	126	REAL(wp), DIMENSION(:,:), ALLOCATABLE :: fu !< velocity seed for u
	127	REAL(wp), DIMENSION(:,:), ALLOCATABLE :: fuo !< velocity seed for u with new random number
	128	REAL(wp), DIMENSION(:,:), ALLOCATABLE :: fv !< velocity seed for v
	129	REAL(wp), DIMENSION(:,:), ALLOCATABLE :: fvo !< velocity seed for v with new random number
	130	REAL(wp), DIMENSION(:,:), ALLOCATABLE :: fw !< velocity seed for w
	131	REAL(wp), DIMENSION(:,:), ALLOCATABLE :: fwo !< velocity seed for w with new random number
	132
	133
	134	!
	135	!-- PALM interfaces:
	136	!-- Input parameter checks to be done in check_parameters
	137	INTERFACE stg_check_parameters
	138	MODULE PROCEDURE stg_check_parameters
	139	END INTERFACE stg_check_parameters
	140
	141	!
	142	!-- Calculate filter functions
	143	INTERFACE stg_filter_func
	144	MODULE PROCEDURE stg_filter_func
	145	END INTERFACE stg_filter_func
	146
	147	!
	148	!-- Generate velocity seeds
	149	INTERFACE stg_generate_seed_yz
	150	MODULE PROCEDURE stg_generate_seed_yz
	151	END INTERFACE stg_generate_seed_yz
	152
	153	!
	154	!-- Output of information to the header file
	155	INTERFACE stg_header
	156	MODULE PROCEDURE stg_header
	157	END INTERFACE stg_header
	158
	159	!
	160	!-- Initialization actions
	161	INTERFACE stg_init
	162	MODULE PROCEDURE stg_init
	163	END INTERFACE stg_init
	164
	165	!
	166	!-- Main procedure of synth. turb. gen.
	167	INTERFACE stg_main
	168	MODULE PROCEDURE stg_main
	169	END INTERFACE stg_main
	170
	171	!
	172	!-- Reading of NAMELIST parameters
	173	INTERFACE stg_parin
	174	MODULE PROCEDURE stg_parin
	175	END INTERFACE stg_parin
	176
	177	!
	178	!-- Reading of parameters for restart runs
	179	INTERFACE stg_read_restart_data
	180	MODULE PROCEDURE stg_read_restart_data
	181	END INTERFACE stg_read_restart_data
	182
	183	!
	184	!-- Writing of binary output for restart runs
	185	INTERFACE stg_write_restart_data
	186	MODULE PROCEDURE stg_write_restart_data
	187	END INTERFACE stg_write_restart_data
	188
	189	SAVE
	190
	191	PRIVATE
	192
	193	!
	194	!-- Public interfaces
	195	PUBLIC stg_check_parameters, stg_header, stg_init, stg_main, stg_parin, &
	196	stg_read_restart_data, stg_write_restart_data
	197
	198	!
	199	!-- Public variables
	200	PUBLIC use_synthetic_turbulence_generator
	201
	202
	203	CONTAINS
	204
	205
	206	!------------------------------------------------------------------------------!
	207	! Description:
	208	! ------------
	209	!> Check parameters routine for synthetic turbulence generator
	210	!------------------------------------------------------------------------------!
	211	SUBROUTINE stg_check_parameters
	212
	213
	214	USE control_parameters, &
	215	ONLY: bc_lr, bc_ns, turbulent_inflow
	216
	217
	218	IMPLICIT NONE
	219
	220	IF ( use_synthetic_turbulence_generator ) THEN
	221
	222	IF ( INDEX( initializing_actions, 'set_constant_profiles' ) == 0 .AND. &
	223	INDEX( initializing_actions, 'read_restart_data' ) == 0 ) THEN
	224	message_string = 'Using synthetic turbulence generator ' // &
	225	'requires &initializing_actions = ' // &
	226	'"set_constant_profiles" or "read_restart_data"'
	227	CALL message( 'stg_check_parameters', 'PA0015', 1, 2, 0, 6, 0 )
	228	ENDIF
	229
	230	IF ( bc_lr /= 'dirichlet/radiation' ) THEN
	231	message_string = 'Using synthetic turbulence generator ' // &
	232	'requires &bc_lr = "dirichlet/radiation"'
	233	CALL message( 'stg_check_parameters', 'PA0035', 1, 2, 0, 6, 0 )
	234	ENDIF
	235	IF ( bc_ns /= 'cyclic' ) THEN
	236	message_string = 'Using synthetic turbulence generator ' // &
	237	'requires &bc_ns = "cyclic"'
	238	CALL message( 'stg_check_parameters', 'PA0037', 1, 2, 0, 6, 0 )
	239	ENDIF
	240	IF ( turbulent_inflow ) THEN
	241	message_string = 'Using synthetic turbulence generator ' // &
	242	'in combination &with turbulent_inflow = .T. ' // &
	243	'is not allowed'
	244	CALL message( 'stg_check_parameters', 'PA0039', 1, 2, 0, 6, 0 )
	245	ENDIF
	246
	247	ENDIF
	248
	249	END SUBROUTINE stg_check_parameters
	250
	251
	252	!------------------------------------------------------------------------------!
	253	! Description:
	254	! ------------
	255	!> Header output for synthetic turbulence generator
	256	!------------------------------------------------------------------------------!
	257	SUBROUTINE stg_header ( io )
	258
	259
	260	IMPLICIT NONE
	261
	262	INTEGER(iwp), INTENT(IN) :: io !< Unit of the output file
	263
	264	!
	265	!-- Write synthetic turbulence generator Header
	266	WRITE( io, 1 )
	267	IF ( use_synthetic_turbulence_generator ) THEN
	268	WRITE( io, 2 )
	269	ELSE
	270	WRITE( io, 3 )
	271	ENDIF
	272
	273	1 FORMAT (//' Synthetic turbulence generator information:'/ &
	274	' ------------------------------------------'/)
	275	2 FORMAT (' synthetic turbulence generator switched on')
	276	3 FORMAT (' synthetic turbulence generator switched off')
	277
	278	END SUBROUTINE stg_header
	279
	280
	281	!------------------------------------------------------------------------------!
	282	! Description:
	283	! ------------
	284	!> Initialization of the synthetic turbulence generator
	285	!------------------------------------------------------------------------------!
	286	SUBROUTINE stg_init
	287
	288
	289	USE arrays_3d, &
	290	ONLY: u_init, v_init
	291
	292	USE control_parameters, &
	293	ONLY: coupling_char, dz, e_init
	294
	295	USE grid_variables, &
	296	ONLY: ddy
	297
	298
	299	IMPLICIT NONE
	300
	301	INTEGER(KIND=MPI_ADDRESS_KIND) :: extent !< extent of new MPI type
	302	INTEGER(KIND=MPI_ADDRESS_KIND) :: tob=0 !< dummy variable
	303
	304	INTEGER(iwp) :: j !> loop index
	305	INTEGER(iwp) :: k !< index
	306	INTEGER(iwp) :: newtype !< dummy MPI type
	307	INTEGER(iwp) :: realsize !< size of REAL variables
	308	INTEGER(iwp) :: nseed !< dimension of random number seed
	309	INTEGER(iwp) :: startseed = 1234567890 !< start seed for random number generator
	310
	311	!
	312	!-- Dummy variables used for reading profiles
	313	REAL(wp) :: d1 !< u profile
	314	REAL(wp) :: d2 !< v profile
	315	REAL(wp) :: d3 !< w profile
	316	REAL(wp) :: d5 !< e profile
	317	REAL(wp) :: d11 !< vertical interpolation for a11
	318	REAL(wp) :: d21 !< vertical interpolation for a21
	319	REAL(wp) :: d22 !< vertical interpolation for a22
	320	REAL(wp) :: luy !< length scale for u in y direction
	321	REAL(wp) :: luz !< length scale for u in z direction
	322	REAL(wp) :: lvy !< length scale for v in y direction
	323	REAL(wp) :: lvz !< length scale for v in z direction
	324	REAL(wp) :: lwy !< length scale for w in y direction
	325	REAL(wp) :: lwz !< length scale for w in z direction
	326	REAL(wp) :: zz !< height
	327
	328	REAL(wp),DIMENSION(nzb:nzt+1) :: r11 !< Reynolds parameter
	329	REAL(wp),DIMENSION(nzb:nzt+1) :: r21 !< Reynolds parameter
	330	REAL(wp),DIMENSION(nzb:nzt+1) :: r22 !< Reynolds parameter
	331	REAL(wp),DIMENSION(nzb:nzt+1) :: r31 !< Reynolds parameter
	332	REAL(wp),DIMENSION(nzb:nzt+1) :: r32 !< Reynolds parameter
	333	REAL(wp),DIMENSION(nzb:nzt+1) :: r33 !< Reynolds parameter
	334
	335
	336	#if defined( __parallel )
	337	CALL MPI_BARRIER( comm2d, ierr )
	338	#endif
	339
	340	CALL cpu_log( log_point(57), 'synthetic_turbulence_gen', 'start' )
	341
	342	IF ( .NOT. ALLOCATED( mean_inflow_profiles ) ) &
	343	ALLOCATE( mean_inflow_profiles(nzb:nzt+1,5) )
	344
	345	ALLOCATE ( a11(nzb:nzt+1), a21(nzb:nzt+1), a22(nzb:nzt+1), &
	346	a31(nzb:nzt+1), a32(nzb:nzt+1), a33(nzb:nzt+1), &
	347	nuy(nzb:nzt+1), nuz(nzb:nzt+1), nvy(nzb:nzt+1), &
	348	nvz(nzb:nzt+1), nwy(nzb:nzt+1), nwz(nzb:nzt+1), &
	349	tu(nzb:nzt+1), tv(nzb:nzt+1), tw(nzb:nzt+1) )
	350
	351	!
	352	!-- Define MPI type used in stg_generate_seed_yz to gather vertical splitted
	353	!-- velocity seeds
	354	CALL MPI_TYPE_SIZE( MPI_REAL, realsize, ierr )
	355	extent = 1 * realsize
	356
	357	! stg_type_yz: yz-slice with vertical bounds nzb:nzt+1
	358	CALL MPI_TYPE_CREATE_SUBARRAY( 2, [nzt-nzb+2,nyng-nysg+1], &
	359	[1,nyng-nysg+1], [0,0], MPI_ORDER_FORTRAN, MPI_REAL, newtype, ierr )
	360	CALL MPI_TYPE_CREATE_RESIZED( newtype, tob, extent, stg_type_yz, ierr )
	361	CALL MPI_TYPE_COMMIT( stg_type_yz, ierr )
	362	CALL MPI_TYPE_FREE( newtype, ierr )
	363
	364	! stg_type_yz_small: yz-slice with vertical bounds nzb_x:nzt_x+1
	365	CALL MPI_TYPE_CREATE_SUBARRAY( 2, [nzt_x-nzb_x+2,nyng-nysg+1], &
	366	[1,nyng-nysg+1], [0,0], MPI_ORDER_FORTRAN, MPI_REAL, newtype, ierr )
	367	CALL MPI_TYPE_CREATE_RESIZED( newtype, tob, extent, stg_type_yz_small, ierr )
	368	CALL MPI_TYPE_COMMIT( stg_type_yz_small, ierr )
	369	CALL MPI_TYPE_FREE( newtype, ierr )
	370
	371	! receive count and displacement for MPI_GATHERV in stg_generate_seed_yz
	372	ALLOCATE( recv_count(pdims(1)), displs(pdims(1)) )
	373
	374	recv_count = nzt_x-nzb_x + 1
	375	recv_count(pdims(1)) = recv_count(pdims(1)) + 1
	376
	377	DO j = 1, pdims(1)
	378	displs(j) = 0 + (nzt_x-nzb_x+1) * (j-1)
	379	ENDDO
	380
	381	!
	382	!-- Define seed of random number
	383	CALL RANDOM_SEED()
	384	CALL RANDOM_SEED( size=nseed )
	385	ALLOCATE( seed(1:nseed) )
	386	DO j = 1, nseed
	387	seed(j) = startseed + j
	388	ENDDO
	389	CALL RANDOM_SEED(put=seed)
	390
	391	!
	392	!-- Read inflow profile
	393	!-- Height levels of profiles in input profile is as follows:
	394	!-- zu: luy, luz, tu, lvy, lvz, tv, r11, r21, r22, d1, d2, d5
	395	!-- zw: lwy, lwz, tw, r31, r32, r33, d3
	396	!-- WARNING: zz is not used at the moment
	397	OPEN( 24, FILE='STG_PROFILES'//TRIM( coupling_char ), STATUS='OLD', &
	398	FORM='FORMATTED')
	399
	400	! Skip header
	401	READ( 24, * )
	402
	403	DO k = nzb, nzt+1
	404	READ( 24, * ) zz, luy, luz, tu(k), lvy, lvz, tv(k), lwy, lwz, tw(k), &
	405	r11(k), r21(k), r22(k), r31(k), r32(k), r33(k), &
	406	d1, d2, d3, d5
	407
	408	!
	409	!-- Convert length scales from meter to number of grid points
	410	nuy(k) = INT( luy * ddy )
	411	nuz(k) = INT( luz / dz )
	412	nvy(k) = INT( lvy * ddy )
	413	nvz(k) = INT( lvz / dz )
	414	nwy(k) = INT( lwy * ddy )
	415	nwz(k) = INT( lwz / dz )
	416
	417	!
	418	!-- Save Mean inflow profiles
	419	IF ( TRIM( initializing_actions ) /= 'read_restart_data' ) THEN
	420	mean_inflow_profiles(k,1) = d1
	421	mean_inflow_profiles(k,2) = d2
	422	! mean_inflow_profiles(k,4) = d4
	423	mean_inflow_profiles(k,5) = d5
	424	ENDIF
	425	ENDDO
	426
	427	CLOSE(24)
	428
	429	!
	430	!-- Assign initial profiles
	431	u_init = mean_inflow_profiles(:,1)
	432	v_init = mean_inflow_profiles(:,2)
	433	! pt_init = mean_inflow_profiles(:,4)
	434	e_init = MAXVAL( mean_inflow_profiles(:,5) )
	435
	436	!
	437	!-- Calculate coefficient matrix from Reynolds stress tensor (Lund rotation)
	438	DO k = nzb, nzt+1
	439	IF ( r11(k) > 0.0_wp ) THEN
	440	a11(k) = SQRT( r11(k) )
	441	a21(k) = r21(k) / a11(k)
	442	ELSE
	443	a11(k) = 0.0_wp
	444	a21(k) = 0.0_wp
	445	ENDIF
	446
	447	a22(k) = r22(k) - a21(k)**2
	448	IF ( a22(k) > 0.0_wp ) THEN
	449	a22(k) = SQRT( a22(k) )
	450	a32(k) = ( r32(k) - a21(k) * a31(k) ) / a22(k)
	451	ELSE
	452	a22(k) = 0.0_wp
	453	a32(k) = 0.0_wp
	454	ENDIF
	455
	456	!
	457	!-- a31, a32, a33 must be calculated with interpolated a11, a21, a22 (d11,
	458	!-- d21, d22) because of different vertical grid
	459	IF ( k .le. nzt ) THEN
	460	d11 = 0.5_wp * ( r11(k) + r11(k+1) )
	461	IF ( d11 > 0.0_wp ) THEN
	462	d11 = SQRT( d11 )
	463	d21 = ( 0.5_wp * ( r21(k) + r21(k+1) ) ) / d11
	464	a31(k) = r31(k) / d11
	465	ELSE
	466	d21 = 0.0_wp
	467	a31(k) = 0.0_wp
	468	ENDIF
	469
	470	d22 = 0.5_wp * ( r22(k) + r22(k+1) ) - d21 ** 2
	471	IF ( d22 > 0.0_wp ) THEN
	472	a32(k) = ( r32(k) - d21 * a31(k) ) / SQRT( d22 )
	473	ELSE
	474	a32(k) = 0.0_wp
	475	ENDIF
	476
	477	a33(k) = r33(k) - a31(k) 2 - a32(k) 2
	478	IF ( a33(k) > 0.0_wp ) THEN
	479	a33(k) = SQRT( a33(k) )
	480	ELSE
	481	a33(k) = 0.0_wp
	482	ENDIF
	483	ELSE
	484	a31(k) = a31(k-1)
	485	a32(k) = a32(k-1)
	486	a33(k) = a33(k-1)
	487	ENDIF
	488
	489	ENDDO
	490
	491	!
	492	!-- Define the size of the filter functions and allocate them.
	493	merg = 0
	494
	495	! arrays must be large enough to cover the largest length scale
	496	DO k = nzb, nzt+1
	497	j = MAX( ABS(nuy(k)), ABS(nuz(k)), &
	498	ABS(nvy(k)), ABS(nvz(k)), &
	499	ABS(nwy(k)), ABS(nwz(k)) )
	500	IF ( j > merg ) merg = j
	501	ENDDO
	502
	503	merg = 2 * merg
	504	mergp = merg + nbgp
	505
	506	ALLOCATE ( buy(-merg:merg,nzb:nzt+1), buz(-merg:merg,nzb:nzt+1), &
	507	bvy(-merg:merg,nzb:nzt+1), bvz(-merg:merg,nzb:nzt+1), &
	508	bwy(-merg:merg,nzb:nzt+1), bwz(-merg:merg,nzb:nzt+1) )
	509
	510	!
	511	!-- Allocate velocity seeds
	512	ALLOCATE ( fu( nzb:nzt+1,nysg:nyng), fuo(nzb:nzt+1,nysg:nyng), &
	513	fv( nzb:nzt+1,nysg:nyng), fvo(nzb:nzt+1,nysg:nyng), &
	514	fw( nzb:nzt+1,nysg:nyng), fwo(nzb:nzt+1,nysg:nyng) )
	515
	516	fu = 0._wp
	517	fuo = 0._wp
	518	fv = 0._wp
	519	fvo = 0._wp
	520	fw = 0._wp
	521	fwo = 0._wp
	522
	523	!
	524	!-- Create filter functions
	525	CALL stg_filter_func( nuy, buy ) !filter uy
	526	CALL stg_filter_func( nuz, buz ) !filter uz
	527	CALL stg_filter_func( nvy, bvy ) !filter vy
	528	CALL stg_filter_func( nvz, bvz ) !filter vz
	529	CALL stg_filter_func( nwy, bwy ) !filter wy
	530	CALL stg_filter_func( nwz, bwz ) !filter wz
	531
	532	#if defined( __parallel )
	533	CALL MPI_BARRIER( comm2d, ierr )
	534	#endif
	535
	536	!
	537	!-- In case of restart, calculate velocity seeds fu, fv, fw from former
	538	! time step.
	539	! Bug: fu, fv, fw are different in those heights where a11, a22, a33
	540	! are 0 compared to the prerun. This is mostly for k=nzt+1.
	541	IF ( TRIM( initializing_actions ) == 'read_restart_data' ) THEN
	542	IF ( myidx == id_inflow ) THEN
	543	DO j = nysg, nyng
	544	DO k = nzb, nzt+1
	545
	546	IF ( a11(k) .NE. 0._wp ) THEN
	547	fu(k,j) = ( u(k,j,-1) / mc_factor - &
	548	mean_inflow_profiles(k,1) ) / a11(k)
	549	ELSE
	550	fu(k,j) = 0._wp
	551	ENDIF
	552
	553	IF ( a22(k) .NE. 0._wp ) THEN
	554	fv(k,j) = ( v(k,j,-1) / mc_factor - a21(k) * fu(k,j) - &
	555	mean_inflow_profiles(k,2) ) / a22(k)
	556	ELSE
	557	fv(k,j) = 0._wp
	558	ENDIF
	559
	560	IF ( a33(k) .NE. 0._wp ) THEN
	561	fw(k,j) = ( w(k,j,-1) / mc_factor - a31(k) * fu(k,j) - &
	562	a32(k) * fv(k,j) ) / a33(k)
	563	ELSE
	564	fw = 0._wp
	565	ENDIF
	566
	567	ENDDO
	568	ENDDO
	569	ENDIF
	570	ENDIF
	571
	572	CALL cpu_log( log_point(57), 'synthetic_turbulence_gen', 'stop' )
	573
	574	END SUBROUTINE stg_init
	575
	576
	577	!------------------------------------------------------------------------------!
	578	! Description:
	579	! ------------
	580	!> Calculate filter function bxx from length scale nxx following Eg.9 and 10
	581	!> (Xie and Castro, 2008)
	582	!------------------------------------------------------------------------------!
	583	SUBROUTINE stg_filter_func( nxx, bxx )
	584
	585
	586	IMPLICIT NONE
	587
	588	INTEGER(iwp) :: k !< loop index
	589	INTEGER(iwp) :: n_k !< length scale nXX in height k
	590	INTEGER(iwp) :: n_k2 !< n_k * 2
	591	INTEGER(iwp) :: nf !< index for length scales
	592
	593	REAL(wp) :: bdenom !< denominator for filter functions bXX
	594	REAL(wp) :: qsi = 1.0_wp !< minimization factor
	595
	596	INTEGER(iwp), DIMENSION(:) :: nxx(nzb:nzt+1) !< length scale (in gp)
	597
	598	REAL(wp), DIMENSION(:,:) :: bxx(-merg:merg,nzb:nzt+1) !< filter function
	599
	600
	601	bxx = 0.0_wp
	602
	603	DO k = nzb, nzt+1
	604	bdenom = 0.0_wp
	605	n_k = nxx(k)
	606	IF ( n_k /= 0 ) THEN
	607	n_k2 = n_k * 2
	608
	609	!
	610	!-- ( Eq.10 )^2
	611	DO nf = -n_k2, n_k2
	612	bdenom = bdenom + EXP( -qsi * pi * ABS(nf) / n_k )**2
	613	ENDDO
	614
	615	!
	616	!-- ( Eq.9 )
	617	bdenom = SQRT( bdenom )
	618	DO nf = -n_k2, n_k2
	619	bxx(nf,k) = EXP( -qsi * pi * ABS(nf) / n_k ) / bdenom
	620	ENDDO
	621	ENDIF
	622	ENDDO
	623
	624	END SUBROUTINE stg_filter_func
	625
	626
	627	!------------------------------------------------------------------------------!
	628	! Description:
	629	! ------------
	630	!> Parin for &stg_par for synthetic turbulence generator
	631	!------------------------------------------------------------------------------!
	632	SUBROUTINE stg_parin
	633
	634
	635	IMPLICIT NONE
	636
	637	CHARACTER (LEN=80) :: line !< dummy string that contains the current line of the parameter file
	638
	639
	640	NAMELIST /stg_par/ use_synthetic_turbulence_generator
	641
	642	line = ' '
	643
	644	!
	645	!-- Try to find stg package
	646	REWIND ( 11 )
	647	line = ' '
	648	DO WHILE ( INDEX( line, '&stg_par' ) == 0 )
	649	READ ( 11, '(A)', END=10 ) line
	650	ENDDO
	651	BACKSPACE ( 11 )
	652
	653	!
	654	!-- Read namelist
	655	READ ( 11, stg_par )
	656
	657	!
	658	!-- Set flag that indicates that the synthetic turbulence generator is switched
	659	!-- on
	660	synthetic_turbulence_generator = .TRUE.
	661
	662	10 CONTINUE
	663
	664	END SUBROUTINE stg_parin
	665
	666
	667	!------------------------------------------------------------------------------!
	668	! Description:
	669	! ------------
	670	!> This routine reads the respective restart data.
	671	!------------------------------------------------------------------------------!
	672	SUBROUTINE stg_read_restart_data
	673
	674
	675	IMPLICIT NONE
	676
	677	CHARACTER (LEN=30) :: variable_chr !< dummy variable to read string
	678
	679
	680	READ ( 13 ) variable_chr
	681	DO WHILE ( TRIM( variable_chr ) /= '* end stg module *' )
	682
	683	SELECT CASE ( TRIM( variable_chr ) )
	684
	685	CASE ( 'use_synthetic_turbulence_generator ' )
	686	READ ( 13 ) use_synthetic_turbulence_generator
	687	CASE ( 'mc_factor' )
	688	READ ( 13 ) mc_factor
	689
	690	END SELECT
	691
	692	READ ( 13 ) variable_chr
	693
	694	ENDDO
	695
	696	END SUBROUTINE stg_read_restart_data
	697
	698
	699	!------------------------------------------------------------------------------!
	700	! Description:
	701	! ------------
	702	!> This routine writes the respective restart data.
	703	!------------------------------------------------------------------------------!
	704	SUBROUTINE stg_write_restart_data
	705
	706
	707	IMPLICIT NONE
	708
	709	WRITE ( 14 ) 'use_synthetic_turbulence_generator '
	710	WRITE ( 14 ) use_synthetic_turbulence_generator
	711	WRITE ( 14 ) 'mc_factor '
	712	WRITE ( 14 ) mc_factor
	713
	714	WRITE ( 14 ) '* end stg module * '
	715
	716	END SUBROUTINE stg_write_restart_data
	717
	718
	719	!------------------------------------------------------------------------------!
	720	! Description:
	721	! ------------
	722	!> Create turbulent inflow fields for u, v, w with prescribed length scales and
	723	!> Reynolds stress tensor after a method of Xie and Castro (2008), modified
	724	!> following suggestions of Kim et al. (2013), and using a Lund rotation
	725	!> (Lund, 1998).
	726	!------------------------------------------------------------------------------!
	727	SUBROUTINE stg_main
	728
	729
	730	USE arrays_3d, &
	731	ONLY: dzw
	732
	733	USE control_parameters, &
	734	ONLY: dt_3d, intermediate_timestep_count, simulated_time, &
	735	volume_flow_initial
	736
	737	USE indices, &
	738	ONLY: nyn, nys
	739
	740	USE statistics, &
	741	ONLY: weight_substep
	742
	743
	744	IMPLICIT NONE
	745
	746	INTEGER(iwp) :: j !< loop index in y-direction
	747	INTEGER(iwp) :: k !< loop index in z-direction
	748
	749	REAL(wp) :: dt_stg !< wheighted subtimestep
	750	REAL(wp) :: mc_factor_l !< local mass flux correction factor
	751
	752	REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,5,nbgp) :: inflow_dist !< disturbance for inflow profiles
	753
	754
	755	CALL cpu_log( log_point(57), 'synthetic_turbulence_gen', 'start' )
	756
	757	!
	758	!-- Calculate time step which is needed for filter functions
	759	dt_stg = dt_3d * weight_substep(intermediate_timestep_count)
	760
	761	!
	762	!-- Initial value of fu, fv, fw
	763	IF ( simulated_time == 0.0_wp .AND. .NOT. velocity_seed_initialized ) THEN
	764	CALL stg_generate_seed_yz( nuy, nuz, buy, buz, fu )
	765	CALL stg_generate_seed_yz( nvy, nvz, bvy, bvz, fv )
	766	CALL stg_generate_seed_yz( nwy, nwz, bwy, bwz, fw )
	767	velocity_seed_initialized = .TRUE.
	768	ENDIF
	769	!
	770	!-- New set of fu, fv, fw
	771	CALL stg_generate_seed_yz( nuy, nuz, buy, buz, fuo )
	772	CALL stg_generate_seed_yz( nvy, nvz, bvy, bvz, fvo )
	773	CALL stg_generate_seed_yz( nwy, nwz, bwy, bwz, fwo )
	774
	775	IF ( myidx == id_inflow ) THEN
	776
	777	DO j = nysg, nyng
	778	DO k = nzb, nzt + 1
	779	!
	780	!-- Update fu, fv, fw following Eq. 14 of Xie and Castro (2008)
	781	IF ( tu(k) == 0.0_wp ) THEN
	782	fu(k,j) = fuo(k,j)
	783	ELSE
	784	fu(k,j) = fu(k,j) * EXP( -pi * dt_stg * 0.5_wp / tu(k) ) + &
	785	fuo(k,j) * SQRT( 1.0_wp - EXP( -pi * dt_stg / tu(k) ) )
	786	ENDIF
	787
	788	IF ( tv(k) == 0.0_wp ) THEN
	789	fv(k,j) = fvo(k,j)
	790	ELSE
	791	fv(k,j) = fv(k,j) * EXP( -pi * dt_stg * 0.5_wp / tv(k) ) + &
	792	fvo(k,j) * SQRT( 1.0_wp - EXP( -pi * dt_stg / tv(k) ) )
	793	ENDIF
	794
	795	IF ( tw(k) == 0.0_wp ) THEN
	796	fw(k,j) = fwo(k,j)
	797	ELSE
	798	fw(k,j) = fw(k,j) * EXP( -pi * dt_stg * 0.5_wp / tw(k) ) + &
	799	fwo(k,j) * SQRT( 1.0_wp - EXP( -pi * dt_stg / tw(k) ) )
	800	ENDIF
	801	!
	802	!-- Lund rotation following Eq. 17 in Xie and Castro (2008).
	803	!-- Additional factors are added to improve the variance of v and w
	804	IF( k == 0 ) THEN
	805	inflow_dist(k,j,1,1) = 0.0_wp
	806	inflow_dist(k,j,2,1) = 0.0_wp
	807	inflow_dist(k,j,3,1) = 0.0_wp
	808	inflow_dist(k,j,4,1) = 0.0_wp
	809	inflow_dist(k,j,5,1) = 0.0_wp
	810	ELSE
	811	inflow_dist(k,j,1,1) = a11(k) * fu(k,j)
	812	!experimental test of 1.2
	813	inflow_dist(k,j,2,1) = ( SQRT( a22(k) / MAXVAL(a22) ) &
	814	* 1.2_wp ) &
	815	* ( a21(k) * fu(k,j) &
	816	+ a22(k) * fv(k,j) )
	817	inflow_dist(k,j,3,1) = ( SQRT(a33(k) / MAXVAL(a33) ) &
	818	* 1.3_wp ) &
	819	* ( a31(k) * fu(k,j) &
	820	+ a32(k) * fv(k,j) &
	821	+ a33(k) * fw(k,j) )
	822	! Calculation for pt and e not yet implemented
	823	inflow_dist(k,j,4,1) = 0.0_wp
	824	inflow_dist(k,j,5,1) = 0.0_wp
	825	ENDIF
	826
	827	ENDDO
	828	ENDDO
	829
	830	!
	831	!-- Mass flux correction following Kim et al. (2013)
	832	!-- This correction factor insures that the mass flux is preserved at the
	833	!-- inflow boundary
	834	mc_factor_l = 0.0_wp
	835	mc_factor = 0.0_wp
	836	DO j = nys, nyn
	837	DO k = nzb+1, nzt
	838	mc_factor_l = mc_factor_l + dzw(k) * &
	839	( mean_inflow_profiles(k,1) + inflow_dist(k,j,1,1) )
	840	ENDDO
	841	ENDDO
	842
	843	#if defined( __parallel )
	844	CALL MPI_ALLREDUCE( mc_factor_l, mc_factor, &
	845	1, MPI_REAL, MPI_SUM, comm1dy, ierr )
	846	#else
	847	mc_factor = mc_factor_l
	848	#endif
	849
	850	mc_factor = volume_flow_initial(1) / mc_factor
	851
	852	!
	853	!-- Add disturbance at the inflow
	854	DO j = nysg, nyng
	855	DO k = nzb, nzt+1
	856	u(k,j,-nbgp+1:0) = ( mean_inflow_profiles(k,1) + &
	857	inflow_dist(k,j,1,1) ) * mc_factor
	858	v(k,j,-nbgp:-1) = ( mean_inflow_profiles(k,2) + &
	859	inflow_dist(k,j,2,1) ) * mc_factor
	860	w(k,j,-nbgp:-1) = inflow_dist(k,j,3,1) * mc_factor
	861	ENDDO
	862	ENDDO
	863
	864	ENDIF
	865
	866	CALL cpu_log( log_point(57), 'synthetic_turbulence_gen', 'stop' )
	867
	868	END SUBROUTINE stg_main
	869
	870
	871	!------------------------------------------------------------------------------!
	872	! Description:
	873	! ------------
	874	!> Generate a set of random number rand_it wich is equal on each PE
	875	!> and calculate the velocity seed f_n.
	876	!> f_n is splitted in vertical direction by the number of PEs in x-direction and
	877	!> and each PE calculates a vertical subsection of f_n. At the the end, all
	878	!> parts are collected to form the full array.
	879	!------------------------------------------------------------------------------!
	880	SUBROUTINE stg_generate_seed_yz( n_y, n_z, b_y, b_z, f_n )
	881
	882
	883	USE indices, &
	884	ONLY: ny
	885
	886
	887	IMPLICIT NONE
	888
	889	INTEGER(iwp) :: j !< loop index in y-direction
	890	INTEGER(iwp) :: jj !< loop index in y-direction
	891	INTEGER(iwp) :: k !< loop index in z-direction
	892	INTEGER(iwp) :: kk !< loop index in z-direction
	893	INTEGER(iwp) :: send_count !< send count for MPI_GATHERV
	894
	895	INTEGER(iwp), DIMENSION(nzb:nzt+1) :: n_y !< length scale in y-direction
	896	INTEGER(iwp), DIMENSION(nzb:nzt+1) :: n_z !< length scale in z-direction
	897	INTEGER(iwp), DIMENSION(nzb:nzt+1) :: n_y2 !< n_y*2
	898	INTEGER(iwp), DIMENSION(nzb:nzt+1) :: n_z2 !< n_z*2
	899
	900	REAL(wp) :: nyz_inv !< inverse of number of grid points in yz-slice
	901	REAL(wp) :: rand_av !< average of random number
	902	REAL(wp) :: rand_sigma_inv !< inverse of stdev of random number
	903
	904	REAL(wp), DIMENSION(-merg:merg,nzb:nzt+1) :: b_y !< filter func in y-dir
	905	REAL(wp), DIMENSION(-merg:merg,nzb:nzt+1) :: b_z !< filter func in z-dir
	906	REAL(wp), DIMENSION(nzb_x:nzt_x+1,nysg:nyng) :: f_n_l !< local velocity seed
	907	REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng) :: f_n !< velocity seed
	908	REAL(wp), DIMENSION(:,:), ALLOCATABLE :: rand_it !< random number
	909
	910
	911	!
	912	!-- Generate random numbers using a seed generated in stg_init.
	913	!-- The set of random numbers are modified to have an average of 0 and
	914	!-- unit variance.
	915	ALLOCATE( rand_it(nzb-mergp:nzt+1+mergp,-mergp:ny+mergp) )
	916
	917	rand_av = 0.0_wp
	918	rand_sigma_inv = 0.0_wp
	919	nyz_inv = 1.0_wp / REAL( ( nzt+1 - nzb+1 ) * ( ny+1 ), KIND=wp )
	920
	921	DO j = 0, ny
	922	DO k = nzb, nzt+1
	923	CALL RANDOM_NUMBER( rand_it(k,j) )
	924	rand_av = rand_av + rand_it(k,j)
	925	ENDDO
	926	ENDDO
	927
	928	rand_av = rand_av * nyz_inv
	929
	930	DO j = 0, ny
	931	DO k = nzb, nzt+1
	932	rand_it(k,j) = rand_it(k,j) - rand_av
	933	rand_sigma_inv = rand_sigma_inv + rand_it(k,j) ** 2
	934	ENDDO
	935	ENDDO
	936
	937	rand_sigma_inv = 1.0_wp / SQRT(rand_sigma_inv * nyz_inv)
	938
	939	DO j = 0, ny
	940	DO k = nzb, nzt+1
	941	rand_it(k,j) = rand_it(k,j) * rand_sigma_inv
	942	ENDDO
	943	ENDDO
	944
	945	!
	946	!-- Periodic fill of random number in space
	947	DO j = 0, ny
	948	DO k = 1, mergp
	949	rand_it(nzb -k,j) = rand_it(nzt+2-k,j) ! bottom margin
	950	rand_it(nzt+1+k,j) = rand_it(nzb+k-1,j) ! top margin
	951	ENDDO
	952	ENDDO
	953	DO j = 1, mergp
	954	DO k = nzb-mergp, nzt+1+mergp
	955	rand_it(k, -j) = rand_it(k,ny-j+1) ! south margin
	956	rand_it(k,ny+j) = rand_it(k, j-1) ! north margin
	957	ENDDO
	958	ENDDO
	959
	960	!
	961	!-- Generate velocity seed following Eq.6 of Xie and Castro (2008)
	962	n_y2 = n_y * 2
	963	n_z2 = n_z * 2
	964	f_n_l = 0.0_wp
	965
	966	DO j = nysg, nyng
	967	DO k = nzb_x, nzt_x+1
	968	DO jj = -n_y2(k), n_y2(k)
	969	DO kk = -n_z2(k), n_z2(k)
	970	f_n_l(k,j) = f_n_l(k,j) &
	971	+ b_y(jj,k) * b_z(kk,k) * rand_it(k+kk,j+jj)
	972	ENDDO
	973	ENDDO
	974	ENDDO
	975	ENDDO
	976
	977	DEALLOCATE( rand_it )
	978
	979	!
	980	!-- Gather velocity seeds of full subdomain
	981	send_count = nzt_x - nzb_x + 1
	982	IF ( nzt_x == nzt ) send_count = send_count + 1
	983
	984	#if defined( __parallel )
	985	CALL MPI_GATHERV( f_n_l(nzb_x,nysg), send_count, stg_type_yz_small, &
	986	f_n(nzb+1,nysg), recv_count, displs, stg_type_yz, &
	987	id_inflow, comm1dx, ierr )
	988	#else
	989	f_n(nzb+1:nzt+1,nysg:nyng) = f_n_l(nzb_x:nzt_x+1,nysg:nyng)
	990	#endif
	991
	992
	993	END SUBROUTINE stg_generate_seed_yz
	994
	995	END MODULE synthetic_turbulence_generator_mod

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

| Impressum | ©Leibniz Universität Hannover |