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/init_advec.f90

    r1354 r1682  
    1  SUBROUTINE init_advec
    2 
     1!> @file init_advec.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 ! Initialize constant coefficients and parameters for certain advection schemes.
     60!> Initialize constant coefficients and parameters for certain advection schemes.
    6261!------------------------------------------------------------------------------!
     62 SUBROUTINE init_advec
     63 
    6364
    6465    USE advection,                                                             &
     
    7273    IMPLICIT NONE
    7374
    74     INTEGER(iwp) ::  i          !:
    75     INTEGER(iwp) ::  intervals  !:
    76     INTEGER(iwp) ::  j          !:
     75    INTEGER(iwp) ::  i          !<
     76    INTEGER(iwp) ::  intervals  !<
     77    INTEGER(iwp) ::  j          !<
    7778   
    78     REAL(wp) :: delt   !:
    79     REAL(wp) :: dn     !:
    80     REAL(wp) :: dnneu  !:
    81     REAL(wp) :: ex1    !:
    82     REAL(wp) :: ex2    !:
    83     REAL(wp) :: ex3    !:
    84     REAL(wp) :: ex4    !:
    85     REAL(wp) :: ex5    !:
    86     REAL(wp) :: ex6    !:
    87     REAL(wp) :: sterm  !:
     79    REAL(wp) :: delt   !<
     80    REAL(wp) :: dn     !<
     81    REAL(wp) :: dnneu  !<
     82    REAL(wp) :: ex1    !<
     83    REAL(wp) :: ex2    !<
     84    REAL(wp) :: ex3    !<
     85    REAL(wp) :: ex4    !<
     86    REAL(wp) :: ex5    !<
     87    REAL(wp) :: ex6    !<
     88    REAL(wp) :: sterm  !<
    8889
    8990
Note: See TracChangeset for help on using the changeset viewer.