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

    r1417 r1682  
    1  SUBROUTINE lpm
    2 
     1!> @file lpm.f90
    32!--------------------------------------------------------------------------------!
    43! This file is part of PALM.
     
    2019! Current revisions:
    2120! ------------------
    22 !
     21! Code annotations made doxygen readable
    2322!
    2423! Former revisions:
     
    8382! Description:
    8483! ------------
    85 ! Particle advection
     84!> Particle advection
    8685!------------------------------------------------------------------------------!
     86 SUBROUTINE lpm
     87 
    8788
    8889    USE arrays_3d,                                                             &
     
    122123    IMPLICIT NONE
    123124
    124     INTEGER(iwp)       ::  i                  !:
    125     INTEGER(iwp)       ::  ie                 !:
    126     INTEGER(iwp)       ::  is                 !:
    127     INTEGER(iwp)       ::  j                  !:
    128     INTEGER(iwp)       ::  je                 !:
    129     INTEGER(iwp)       ::  js                 !:
    130     INTEGER(iwp)       ::  k                  !:
    131     INTEGER(iwp)       ::  ke                 !:
    132     INTEGER(iwp)       ::  ks                 !:
    133     INTEGER(iwp)       ::  m                  !:
    134     INTEGER(iwp), SAVE ::  steps = 0          !:
    135 
    136     LOGICAL            ::  first_loop_stride  !:
     125    INTEGER(iwp)       ::  i                  !<
     126    INTEGER(iwp)       ::  ie                 !<
     127    INTEGER(iwp)       ::  is                 !<
     128    INTEGER(iwp)       ::  j                  !<
     129    INTEGER(iwp)       ::  je                 !<
     130    INTEGER(iwp)       ::  js                 !<
     131    INTEGER(iwp)       ::  k                  !<
     132    INTEGER(iwp)       ::  ke                 !<
     133    INTEGER(iwp)       ::  ks                 !<
     134    INTEGER(iwp)       ::  m                  !<
     135    INTEGER(iwp), SAVE ::  steps = 0          !<
     136
     137    LOGICAL            ::  first_loop_stride  !<
    137138
    138139    CALL cpu_log( log_point(25), 'lpm', 'start' )
Note: See TracChangeset for help on using the changeset viewer.