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_rankine.f90

    r1354 r1682  
    1  SUBROUTINE init_rankine
    2 
     1!> @file init_rankine.f90
    32!--------------------------------------------------------------------------------!
    43! This file is part of PALM.
     
    2019! Current revisions:
    2120! -----------------
    22 !
     21! Code annotations made doxygen readable
    2322!
    2423! Former revisions:
     
    4948! Description:
    5049! ------------
    51 ! Initialize a (nondivergent) Rankine eddy with a vertical axis in order to test
    52 ! the advection terms and the pressure solver.
     50!> Initialize a (nondivergent) Rankine eddy with a vertical axis in order to test
     51!> the advection terms and the pressure solver.
    5352!------------------------------------------------------------------------------!
     53 SUBROUTINE init_rankine
     54 
    5455
    5556    USE arrays_3d,                                                             &
     
    7273    IMPLICIT NONE
    7374
    74     INTEGER(iwp) ::  i   !:
    75     INTEGER(iwp) ::  ic  !:
    76     INTEGER(iwp) ::  j   !:
    77     INTEGER(iwp) ::  jc  !:
    78     INTEGER(iwp) ::  k   !:
    79     INTEGER(iwp) ::  kc1 !:
    80     INTEGER(iwp) ::  kc2 !:
     75    INTEGER(iwp) ::  i   !<
     76    INTEGER(iwp) ::  ic  !<
     77    INTEGER(iwp) ::  j   !<
     78    INTEGER(iwp) ::  jc  !<
     79    INTEGER(iwp) ::  k   !<
     80    INTEGER(iwp) ::  kc1 !<
     81    INTEGER(iwp) ::  kc2 !<
    8182   
    82     REAL(wp)     ::  alpha  !:
    83     REAL(wp)     ::  betrag !:
    84     REAL(wp)     ::  radius !:
    85     REAL(wp)     ::  rc     !:
    86     REAL(wp)     ::  uw     !:
    87     REAL(wp)     ::  vw     !:
    88     REAL(wp)     ::  x      !:
    89     REAL(wp)     ::  y      !:
     83    REAL(wp)     ::  alpha  !<
     84    REAL(wp)     ::  betrag !<
     85    REAL(wp)     ::  radius !<
     86    REAL(wp)     ::  rc     !<
     87    REAL(wp)     ::  uw     !<
     88    REAL(wp)     ::  vw     !<
     89    REAL(wp)     ::  x      !<
     90    REAL(wp)     ::  y      !<
    9091
    9192!
Note: See TracChangeset for help on using the changeset viewer.