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

    r1321 r1682  
    1  SUBROUTINE data_log( array, i1, i2, j1, j2, k1, k2 )
    2 
     1!> @file data_log.f90
    32!--------------------------------------------------------------------------------!
    43! This file is part of PALM.
     
    2019! Current revisions:
    2120! -----------------
    22 !
     21! Code annotations made doxygen readable
    2322!
    2423! Former revisions:
     
    4544! Description:
    4645! ------------
    47 ! Complete logging of data
     46!> Complete logging of data
    4847!------------------------------------------------------------------------------!
     48 SUBROUTINE data_log( array, i1, i2, j1, j2, k1, k2 )
     49 
    4950#if defined( __logging )
    5051
     
    5859    IMPLICIT NONE
    5960
    60     INTEGER(iwp) ::  i1  !:
    61     INTEGER(iwp) ::  i2  !:
    62     INTEGER(iwp) ::  j1  !:
    63     INTEGER(iwp) ::  j2  !:
    64     INTEGER(iwp) ::  k1  !:
    65     INTEGER(iwp) ::  k2  !:
     61    INTEGER(iwp) ::  i1  !<
     62    INTEGER(iwp) ::  i2  !<
     63    INTEGER(iwp) ::  j1  !<
     64    INTEGER(iwp) ::  j2  !<
     65    INTEGER(iwp) ::  k1  !<
     66    INTEGER(iwp) ::  k2  !<
    6667
    67     REAL(wp), DIMENSION(i1:i2,j1:j2,k1:k2) ::  array  !:
     68    REAL(wp), DIMENSION(i1:i2,j1:j2,k1:k2) ::  array  !<
    6869
    6970
     
    8990
    9091
    91  SUBROUTINE data_log_2d( array, i1, i2, j1, j2)
    92 
    9392!------------------------------------------------------------------------------!
    9493! Description:
    9594! ------------
    96 ! Same as above, for 2d arrays
     95!> Complete logging of data for 2d arrays
    9796!------------------------------------------------------------------------------!
     97 
     98 SUBROUTINE data_log_2d( array, i1, i2, j1, j2)
     99
    98100#if defined( __logging )
    99101
     
    107109    IMPLICIT NONE
    108110
    109     INTEGER(iwp) ::  i1  !:
    110     INTEGER(iwp) ::  i2  !:
    111     INTEGER(iwp) ::  j1  !:
    112     INTEGER(iwp) ::  j2  !:
     111    INTEGER(iwp) ::  i1  !<
     112    INTEGER(iwp) ::  i2  !<
     113    INTEGER(iwp) ::  j1  !<
     114    INTEGER(iwp) ::  j2  !<
    113115
    114     REAL(wp), DIMENSION(i1:i2,j1:j2) ::  array  !:
     116    REAL(wp), DIMENSION(i1:i2,j1:j2) ::  array  !<
    115117
    116118
     
    136138
    137139
    138  SUBROUTINE data_log_2d_int( array, i1, i2, j1, j2)
    139 
    140140!------------------------------------------------------------------------------!
    141141! Description:
    142142! ------------
    143 ! Same as above, for 2d integer arrays
     143!> Complete logging of data for 2d integer arrays
    144144!------------------------------------------------------------------------------!
     145 
     146 SUBROUTINE data_log_2d_int( array, i1, i2, j1, j2)
     147
    145148#if defined( __logging )
    146149
     
    154157    IMPLICIT NONE
    155158
    156     INTEGER(iwp) ::  i1  !:
    157     INTEGER(iwp) ::  i2  !:
    158     INTEGER(iwp) ::  j1  !:
    159     INTEGER(iwp) ::  j2  !:
     159    INTEGER(iwp) ::  i1  !<
     160    INTEGER(iwp) ::  i2  !<
     161    INTEGER(iwp) ::  j1  !<
     162    INTEGER(iwp) ::  j2  !<
    160163
    161     INTEGER(iwp), DIMENSION(i1:i2,j1:j2) ::  array  !:
     164    INTEGER(iwp), DIMENSION(i1:i2,j1:j2) ::  array  !<
    162165
    163166
Note: See TracChangeset for help on using the changeset viewer.