Ignore:
Timestamp:
Oct 7, 2015 11:56:08 PM (6 years ago)
Author:
knoop
Message:

Code annotations made doxygen readable

File:
1 edited

Legend:

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

    r1616 r1682  
    1  SUBROUTINE inflow_turbulence
    2 
     1!> @file inflow_turbulence.f90
    32!--------------------------------------------------------------------------------!
    43! This file is part of PALM.
     
    2019! Current revisions:
    2120! -----------------
    22 !
     21! Code annotations made doxygen readable
    2322!
    2423! Former revisions:
     
    5958! Description:
    6059! ------------
    61 ! Imposing turbulence at the respective inflow using the turbulence
    62 ! recycling method of Kataoka and Mizuno (2002).
     60!> Imposing turbulence at the respective inflow using the turbulence
     61!> recycling method of Kataoka and Mizuno (2002).
    6362!------------------------------------------------------------------------------!
     63 SUBROUTINE inflow_turbulence
     64 
    6465
    6566    USE arrays_3d,                                                             &
     
    8586    IMPLICIT NONE
    8687
    87     INTEGER(iwp) ::  i        !:
    88     INTEGER(iwp) ::  j        !:
    89     INTEGER(iwp) ::  k        !:
    90     INTEGER(iwp) ::  l        !:
    91     INTEGER(iwp) ::  next     !:
    92     INTEGER(iwp) ::  ngp_ifd  !:
    93     INTEGER(iwp) ::  ngp_pr   !:
    94     INTEGER(iwp) ::  prev     !:
     88    INTEGER(iwp) ::  i        !<
     89    INTEGER(iwp) ::  j        !<
     90    INTEGER(iwp) ::  k        !<
     91    INTEGER(iwp) ::  l        !<
     92    INTEGER(iwp) ::  next     !<
     93    INTEGER(iwp) ::  ngp_ifd  !<
     94    INTEGER(iwp) ::  ngp_pr   !<
     95    INTEGER(iwp) ::  prev     !<
    9596
    9697    REAL(wp), DIMENSION(nzb:nzt+1,6,nbgp)           ::                         &
    97        avpr, avpr_l  !:
     98       avpr, avpr_l  !<
    9899    REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,6,nbgp) ::                         &
    99        inflow_dist, local_inflow_dist  !:
     100       inflow_dist, local_inflow_dist  !<
    100101
    101102    CALL cpu_log( log_point(40), 'inflow_turbulence', 'start' )
Note: See TracChangeset for help on using the changeset viewer.