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

Timestamp:

Mar 20, 2014 8:40:49 AM (10 years ago)

Author:

raasch

Message:

ONLY-attribute added to USE-statements,
kind-parameters added to all INTEGER and REAL declaration statements,
kinds are defined in new module kinds,
old module precision_kind is removed,
revision history before 2012 removed,
comment fields (!:) to be used for variable explanations added to all variable declaration statements

File:

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

palm/trunk/SOURCE/global_min_max.f90

@@ -21 +21 @@
 ! Current revisions:
 ! ------------------
-! 
+! ONLY-attribute added to USE-statements,
+! kind-parameters added to all INTEGER and REAL declaration statements, 
+! kinds are defined in new module kinds, 
+! old module precision_kind is removed,
+! revision history before 2012 removed,
+! comment fields (!:) to be used for variable explanations added to
+! all variable declaration statements 
 !
 ! Former revisions:
@@ -35 +41 @@
 ! 866 2012-03-28 06:44:41Z raasch
 ! new mode "absoff" accounts for an offset in the respective array
-!
-! 667 2010-12-23 12:06:00Z suehring/gryschka
-! Adapting of the index arrays, because MINLOC assumes lowerbound at 1 and not 
-! at nbgp.
-!
-! 622 2010-12-10 08:08:13Z raasch
-! optional barriers included in order to speed up collective operations
-!
-! Feb. 2007
-! RCS Log replace by Id keyword, revision history cleaned up
-!
-! Revision 1.11  2003/04/16 12:56:58  raasch
-! Index values of the extrema are limited to the range 0..nx, 0..ny
 !
 ! Revision 1.1  1997/07/24 11:14:03  raasch
@@ -58 +51 @@
 !------------------------------------------------------------------------------!
 
-    USE indices
+    USE indices,                                                               &
+        ONLY:  nbgp, ny, nx
+        
+    USE kinds
+    
     USE pegrid
 
     IMPLICIT NONE
 
-    CHARACTER (LEN=*) ::  mode
-
-    INTEGER           ::  i, i1, i2, id_fmax, id_fmin, j, j1, j2, k, k1, k2, &
-                          fmax_ijk(3), fmax_ijk_l(3), fmin_ijk(3), &
-                          fmin_ijk_l(3), value_ijk(3)
-    INTEGER, OPTIONAL ::  value1_ijk(3)
-    REAL              ::  offset, value, &
-                          ar(i1:i2,j1:j2,k1:k2)
+    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)  !:
+    
+    REAL(wp) ::  offset                 !:
+    REAL(wp) ::  value                  !:
+    REAL(wp) ::  ar(i1:i2,j1:j2,k1:k2)  !:
+    
 #if defined( __ibm )
-    REAL (KIND=4)     ::  fmax(2), fmax_l(2), fmin(2), fmin_l(2)  ! on 32bit-
-                          ! machines MPI_2REAL must not be replaced by
-                          ! MPI_2DOUBLE_PRECISION
-#else
-    REAL              ::  fmax(2), fmax_l(2), fmin(2), fmin_l(2)
-#endif
-    REAL, OPTIONAL    ::  value1
+    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  !: