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

    r1354 r1682  
    1  SUBROUTINE global_min_max( i1, i2, j1, j2, k1, k2, ar, mode, offset, value, &
    2                             value_ijk, value1, value1_ijk )
    3 
     1!> @file global_min_max.f90
    42!--------------------------------------------------------------------------------!
    53! This file is part of PALM.
     
    2119! Current revisions:
    2220! ------------------
    23 !
     21! Code annotations made doxygen readable
    2422!
    2523! Former revisions:
     
    5351! Description:
    5452! ------------
    55 ! Determine the array minimum/maximum and the corresponding indices.
     53!> Determine the array minimum/maximum and the corresponding indices.
    5654!------------------------------------------------------------------------------!
     55 SUBROUTINE global_min_max( i1, i2, j1, j2, k1, k2, ar, mode, offset, value, &
     56                            value_ijk, value1, value1_ijk )
     57 
    5758
    5859    USE indices,                                                               &
     
    6566    IMPLICIT NONE
    6667
    67     CHARACTER (LEN=*) ::  mode  !:
    68 
    69     INTEGER(iwp) ::  i              !:
    70     INTEGER(iwp) ::  i1             !:
    71     INTEGER(iwp) ::  i2             !:
    72     INTEGER(iwp) ::  id_fmax        !:
    73     INTEGER(iwp) ::  id_fmin        !:
    74     INTEGER(iwp) ::  j              !:
    75     INTEGER(iwp) ::  j1             !:
    76     INTEGER(iwp) ::  j2             !:
    77     INTEGER(iwp) ::  k              !:
    78     INTEGER(iwp) ::  k1             !:
    79     INTEGER(iwp) ::  k2             !:
    80     INTEGER(iwp) ::  fmax_ijk(3)    !:
    81     INTEGER(iwp) ::  fmax_ijk_l(3)  !:
    82     INTEGER(iwp) ::  fmin_ijk(3)    !:
    83     INTEGER(iwp) ::  fmin_ijk_l(3)  !:
    84     INTEGER(iwp) ::  value_ijk(3)   !:
     68    CHARACTER (LEN=*) ::  mode  !<
     69
     70    INTEGER(iwp) ::  i              !<
     71    INTEGER(iwp) ::  i1             !<
     72    INTEGER(iwp) ::  i2             !<
     73    INTEGER(iwp) ::  id_fmax        !<
     74    INTEGER(iwp) ::  id_fmin        !<
     75    INTEGER(iwp) ::  j              !<
     76    INTEGER(iwp) ::  j1             !<
     77    INTEGER(iwp) ::  j2             !<
     78    INTEGER(iwp) ::  k              !<
     79    INTEGER(iwp) ::  k1             !<
     80    INTEGER(iwp) ::  k2             !<
     81    INTEGER(iwp) ::  fmax_ijk(3)    !<
     82    INTEGER(iwp) ::  fmax_ijk_l(3)  !<
     83    INTEGER(iwp) ::  fmin_ijk(3)    !<
     84    INTEGER(iwp) ::  fmin_ijk_l(3)  !<
     85    INTEGER(iwp) ::  value_ijk(3)   !<
    8586   
    86     INTEGER(iwp), OPTIONAL ::  value1_ijk(3)  !:
     87    INTEGER(iwp), OPTIONAL ::  value1_ijk(3)  !<
    8788   
    88     REAL(wp) ::  offset                 !:
    89     REAL(wp) ::  value                  !:
    90     REAL(wp) ::  ar(i1:i2,j1:j2,k1:k2)  !:
     89    REAL(wp) ::  offset                 !<
     90    REAL(wp) ::  value                  !<
     91    REAL(wp) ::  ar(i1:i2,j1:j2,k1:k2)  !<
    9192   
    9293#if defined( __ibm )
    93     REAL(sp) ::  fmax(2)    !:
    94     REAL(sp) ::  fmax_l(2)  !:
    95     REAL(sp) ::  fmin(2)    !:
    96     REAL(sp) ::  fmin_l(2)  !:
     94    REAL(sp) ::  fmax(2)    !<
     95    REAL(sp) ::  fmax_l(2)  !<
     96    REAL(sp) ::  fmin(2)    !<
     97    REAL(sp) ::  fmin_l(2)  !<
    9798             ! on 32bit-machines MPI_2REAL must not be replaced
    9899             ! by MPI_2DOUBLE_PRECISION
    99100#else
    100     REAL(wp) ::  fmax(2)    !:
    101     REAL(wp) ::  fmax_l(2)  !:
    102     REAL(wp) ::  fmin(2)    !:
    103     REAL(wp) ::  fmin_l(2)  !:
    104 #endif
    105     REAL(wp), OPTIONAL ::  value1  !:
     101    REAL(wp) ::  fmax(2)    !<
     102    REAL(wp) ::  fmax_l(2)  !<
     103    REAL(wp) ::  fmin(2)    !<
     104    REAL(wp) ::  fmin_l(2)  !<
     105#endif
     106    REAL(wp), OPTIONAL ::  value1  !<
    106107
    107108
Note: See TracChangeset for help on using the changeset viewer.