Changeset 1320 for palm/trunk/SOURCE/inflow_turbulence.f90
- Timestamp:
- Mar 20, 2014 8:40:49 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/inflow_turbulence.f90
r1319 r1320 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! ONLY-attribute added to USE-statements, 23 ! kind-parameters added to all INTEGER and REAL declaration statements, 24 ! kinds are defined in new module kinds, 25 ! old module precision_kind is removed, 26 ! revision history before 2012 removed, 27 ! comment fields (!:) to be used for variable explanations added to 28 ! all variable declaration statements 29 ! 30 ! module interfaces removed 23 31 ! 24 32 ! Former revisions: … … 26 34 ! $Id$ 27 35 ! 28 ! 1318 2014-03-17 13:35:16Z raasch29 ! module interfaces removed30 !31 36 ! 1092 2013-02-02 11:24:22Z raasch 32 37 ! unused variables removed … … 34 39 ! 1036 2012-10-22 13:43:42Z raasch 35 40 ! code put under GPL (PALM 3.9) 36 !37 ! 709 2011-03-30 09:31:40Z raasch38 ! formatting adjustments39 !40 ! 667 2010-12-23 12:06:00Z suehring/gryschka41 ! Using nbgp recycling planes for a better resolution of the turbulent flow42 ! near the inflow.43 !44 ! 622 2010-12-10 08:08:13Z raasch45 ! optional barriers included in order to speed up collective operations46 !47 ! 222 2009-01-12 16:04:16Z letzel48 ! Bugfix for nonparallel execution49 41 ! 50 42 ! Initial version (2008/03/07) … … 56 48 !------------------------------------------------------------------------------! 57 49 58 USE arrays_3d 59 USE control_parameters 60 USE cpulog 61 USE grid_variables 62 USE indices 50 USE arrays_3d, & 51 ONLY: e, inflow_damping_factor, mean_inflow_profiles, pt, u, v, w 52 53 USE control_parameters, & 54 ONLY: recycling_plane 55 56 USE cpulog, & 57 ONLY: cpu_log, log_point 58 59 USE grid_variables, & 60 ONLY: 61 62 USE indices, & 63 ONLY: nbgp, nxl, ny, nyn, nys, nyng, nysg, nzb, nzt 64 65 USE kinds 66 63 67 USE pegrid 64 68 … … 66 70 IMPLICIT NONE 67 71 68 INTEGER :: i, j, k, l, ngp_ifd, ngp_pr 69 70 REAL, DIMENSION(nzb:nzt+1,5,nbgp) :: avpr, avpr_l 71 REAL, DIMENSION(nzb:nzt+1,nysg:nyng,5,nbgp) :: inflow_dist 72 INTEGER(iwp) :: i !: 73 INTEGER(iwp) :: j !: 74 INTEGER(iwp) :: k !: 75 INTEGER(iwp) :: l !: 76 INTEGER(iwp) :: ngp_ifd !: 77 INTEGER(iwp) :: ngp_pr !: 78 79 REAL(wp), DIMENSION(nzb:nzt+1,5,nbgp) :: & 80 avpr, avpr_l !: 81 REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,5,nbgp) :: & 82 inflow_dist !: 72 83 73 84 CALL cpu_log( log_point(40), 'inflow_turbulence', 'start' )
Note: See TracChangeset
for help on using the changeset viewer.