Ignore:
Timestamp:
Mar 20, 2014 8:40:49 AM (8 years ago)
Author:
raasch
Message:

ONLY-attribute added to USE-statements,
kind-parameters added to all INTEGER and REAL declaration statements,
kinds are defined in new module kinds,
old module precision_kind is removed,
revision history before 2012 removed,
comment fields (!:) to be used for variable explanations added to all variable declaration statements

File:
1 edited

Legend:

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

    r1319 r1320  
    2020! Current revisions:
    2121! -----------------
    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
    2331!
    2432! Former revisions:
     
    2634! $Id$
    2735!
    28 ! 1318 2014-03-17 13:35:16Z raasch
    29 ! module interfaces removed
    30 !
    3136! 1092 2013-02-02 11:24:22Z raasch
    3237! unused variables removed
     
    3439! 1036 2012-10-22 13:43:42Z raasch
    3540! code put under GPL (PALM 3.9)
    36 !
    37 ! 709 2011-03-30 09:31:40Z raasch
    38 ! formatting adjustments
    39 !
    40 ! 667 2010-12-23 12:06:00Z suehring/gryschka
    41 ! Using nbgp recycling planes for a better resolution of the turbulent flow
    42 ! near the inflow.
    43 !
    44 ! 622 2010-12-10 08:08:13Z raasch
    45 ! optional barriers included in order to speed up collective operations
    46 !
    47 ! 222 2009-01-12 16:04:16Z letzel
    48 ! Bugfix for nonparallel execution
    4941!
    5042! Initial version (2008/03/07)
     
    5648!------------------------------------------------------------------------------!
    5749
    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   
    6367    USE pegrid
    6468
     
    6670    IMPLICIT NONE
    6771
    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   !:
    7283
    7384    CALL cpu_log( log_point(40), 'inflow_turbulence', 'start' )
Note: See TracChangeset for help on using the changeset viewer.