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

    r1360 r1682  
    1  MODULE lpm_pack_arrays_mod
    2 
     1!> @file lpm_pack_arrays.f90
    32!--------------------------------------------------------------------------------!
    43! This file is part of PALM.
     
    2019! Current revisions:
    2120! ------------------
    22 !
     21! Code annotations made doxygen readable
    2322!
    2423! Former revisions:
     
    4645! Description:
    4746! ------------
    48 ! Pack particle and tail arrays, which means eliminate those elements marked for
    49 ! deletion and move data with higher index values to these free indices.
    50 ! Determine the new number of particles.
    51 !------------------------------------------------------------------------------!
     47!> Pack particle and tail arrays, which means eliminate those elements marked for
     48!> deletion and move data with higher index values to these free indices.
     49!> Determine the new number of particles.
     50!------------------------------------------------------------------------------!
     51 MODULE lpm_pack_arrays_mod
     52 
    5253
    5354    USE particle_attributes,                                                   &
     
    7071CONTAINS
    7172
     73!------------------------------------------------------------------------------!
     74! Description:
     75! ------------
     76!> @todo Missing subroutine description.
     77!------------------------------------------------------------------------------!
    7278    SUBROUTINE lpm_pack_all_arrays
    7379
     
    8288       IMPLICIT NONE
    8389
    84        INTEGER(iwp) ::  i !:
    85        INTEGER(iwp) ::  j !:
    86        INTEGER(iwp) ::  k !:
     90       INTEGER(iwp) ::  i !<
     91       INTEGER(iwp) ::  j !<
     92       INTEGER(iwp) ::  k !<
    8793
    8894       CALL cpu_log( log_point_s(51), 'lpm_pack_all_arrays', 'start' )
     
    103109    END SUBROUTINE lpm_pack_all_arrays
    104110
     111!------------------------------------------------------------------------------!
     112! Description:
     113! ------------
     114!> @todo Missing subroutine description.
     115!------------------------------------------------------------------------------!
    105116    SUBROUTINE lpm_pack_arrays
    106117
     
    109120       IMPLICIT NONE
    110121
    111        INTEGER(iwp) ::  n       !:
    112        INTEGER(iwp) ::  nd      !:
    113        INTEGER(iwp) ::  nn      !:
     122       INTEGER(iwp) ::  n       !<
     123       INTEGER(iwp) ::  nd      !<
     124       INTEGER(iwp) ::  nn      !<
    114125!
    115126!--    Find out elements marked for deletion and move data from highest index
     
    180191    END SUBROUTINE lpm_pack_arrays
    181192
     193!------------------------------------------------------------------------------!
     194! Description:
     195! ------------
     196!> @todo Missing subroutine description.
     197!------------------------------------------------------------------------------!
    182198    SUBROUTINE lpm_pack_and_sort (ip,jp,kp)
    183199
Note: See TracChangeset for help on using the changeset viewer.