Changeset 1682 for palm/trunk/SOURCE/global_min_max.f90

Timestamp:

Oct 7, 2015 11:56:08 PM (9 years ago)

Author:

knoop

Message:

Code annotations made doxygen readable

File:

• palm/trunk/SOURCE/global_min_max.f90 (modified) (4 diffs)

palm/trunk/SOURCE/global_min_max.f90

@@ -1 @@
- SUBROUTINE global_min_max( i1, i2, j1, j2, k1, k2, ar, mode, offset, value, &
-                            value_ijk, value1, value1_ijk )
-
+!> @file global_min_max.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -21 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -53 +51 @@
 ! Description:
 ! ------------
-! Determine the array minimum/maximum and the corresponding indices.
+!> Determine the array minimum/maximum and the corresponding indices.
 !------------------------------------------------------------------------------!
+ SUBROUTINE global_min_max( i1, i2, j1, j2, k1, k2, ar, mode, offset, value, &
+                            value_ijk, value1, value1_ijk )
+ 
 
     USE indices,                                                               &
@@ -65 +66 @@
     IMPLICIT NONE
 
-    CHARACTER (LEN=*) ::  mode  !:
-
-    INTEGER(iwp) ::  i              !:
-    INTEGER(iwp) ::  i1             !:
-    INTEGER(iwp) ::  i2             !:
-    INTEGER(iwp) ::  id_fmax        !:
-    INTEGER(iwp) ::  id_fmin        !:
-    INTEGER(iwp) ::  j              !:
-    INTEGER(iwp) ::  j1             !:
-    INTEGER(iwp) ::  j2             !:
-    INTEGER(iwp) ::  k              !:
-    INTEGER(iwp) ::  k1             !:
-    INTEGER(iwp) ::  k2             !:
-    INTEGER(iwp) ::  fmax_ijk(3)    !:
-    INTEGER(iwp) ::  fmax_ijk_l(3)  !:
-    INTEGER(iwp) ::  fmin_ijk(3)    !:
-    INTEGER(iwp) ::  fmin_ijk_l(3)  !:
-    INTEGER(iwp) ::  value_ijk(3)   !:
+    CHARACTER (LEN=*) ::  mode  !<
+
+    INTEGER(iwp) ::  i              !<
+    INTEGER(iwp) ::  i1             !<
+    INTEGER(iwp) ::  i2             !<
+    INTEGER(iwp) ::  id_fmax        !<
+    INTEGER(iwp) ::  id_fmin        !<
+    INTEGER(iwp) ::  j              !<
+    INTEGER(iwp) ::  j1             !<
+    INTEGER(iwp) ::  j2             !<
+    INTEGER(iwp) ::  k              !<
+    INTEGER(iwp) ::  k1             !<
+    INTEGER(iwp) ::  k2             !<
+    INTEGER(iwp) ::  fmax_ijk(3)    !<
+    INTEGER(iwp) ::  fmax_ijk_l(3)  !<
+    INTEGER(iwp) ::  fmin_ijk(3)    !<
+    INTEGER(iwp) ::  fmin_ijk_l(3)  !<
+    INTEGER(iwp) ::  value_ijk(3)   !<
     
-    INTEGER(iwp), OPTIONAL ::  value1_ijk(3)  !:
+    INTEGER(iwp), OPTIONAL ::  value1_ijk(3)  !<
     
-    REAL(wp) ::  offset                 !:
-    REAL(wp) ::  value                  !:
-    REAL(wp) ::  ar(i1:i2,j1:j2,k1:k2)  !:
+    REAL(wp) ::  offset                 !<
+    REAL(wp) ::  value                  !<
+    REAL(wp) ::  ar(i1:i2,j1:j2,k1:k2)  !<
     
 #if defined( __ibm )
-    REAL(sp) ::  fmax(2)    !:
-    REAL(sp) ::  fmax_l(2)  !:
-    REAL(sp) ::  fmin(2)    !:
-    REAL(sp) ::  fmin_l(2)  !:
+    REAL(sp) ::  fmax(2)    !<
+    REAL(sp) ::  fmax_l(2)  !<
+    REAL(sp) ::  fmin(2)    !<
+    REAL(sp) ::  fmin_l(2)  !<
              ! on 32bit-machines MPI_2REAL must not be replaced 
              ! by MPI_2DOUBLE_PRECISION
 #else
-    REAL(wp) ::  fmax(2)    !:
-    REAL(wp) ::  fmax_l(2)  !:
-    REAL(wp) ::  fmin(2)    !:
-    REAL(wp) ::  fmin_l(2)  !:
-#endif
-    REAL(wp), OPTIONAL ::  value1  !:
+    REAL(wp) ::  fmax(2)    !<
+    REAL(wp) ::  fmax_l(2)  !<
+    REAL(wp) ::  fmin(2)    !<
+    REAL(wp) ::  fmin_l(2)  !<
+#endif
+    REAL(wp), OPTIONAL ::  value1  !<