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

Timestamp:

Mar 20, 2014 8:40:49 AM (11 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/write_compressed.f90 (modified) (5 diffs)

palm/trunk/SOURCE/write_compressed.f90

@@ -21 +21 @@
 ! Current revisions:
 ! ------------------
+! 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 
 ! 
 !
@@ -32 +38 @@
 ! 1036 2012-10-22 13:43:42Z raasch
 ! code put under GPL (PALM 3.9)
-!
-! 667 2010-12-23 12:06:00Z suehring/gryschka
-! Array bounds and nx, ny adapted with 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.4  2006/02/23 13:15:09  raasch
-! nz_plot3d renamed nz_do3d
 !
 ! Revision 1.1  1999/03/02 09:25:21  raasch
@@ -69 +63 @@
 !------------------------------------------------------------------------------!
 
+    USE kinds
+    
     USE pegrid         !  needed for MPI_ALLREDUCE
 
     IMPLICIT NONE
 
-    INTEGER, PARAMETER   :: ip4 = SELECTED_INT_KIND ( 9 )
-    INTEGER, PARAMETER   :: spk = SELECTED_REAL_KIND( 6 )
-
-    INTEGER ::  ampl, dummy1, dummy2, factor, i, ifieldmax, ifieldmax_l, &
-                ifieldmin, ifieldmin_l, ii, length, nfree, npack, nsize, &
-                nx, ny, nz, startpos
-    INTEGER(ip4) ::  imask (32)
-    INTEGER(ip4), DIMENSION(:), ALLOCATABLE ::  ifield, packed_ifield
-
-    INTEGER, INTENT(IN) ::  fid_avs, fid_fld, my_id, nxl, nxr, nyn, nys, nzb, &
-                            nz_do3d, prec, nbgp
-
-    REAL(spk), INTENT(IN) :: field(1:((nxr-nxl+1+2*nbgp)*(nyn-nys+1+2*nbgp)*(nz_do3d-nzb+1)))
+    INTEGER(iwp) ::  ampl          !: 
+    INTEGER(iwp) ::  dummy1        !: 
+    INTEGER(iwp) ::  dummy2        !: 
+    INTEGER(iwp) ::  factor        !: 
+    INTEGER(iwp) ::  i             !: 
+    INTEGER(iwp) ::  ifieldmax     !: 
+    INTEGER(iwp) ::  ifieldmax_l   !: 
+    INTEGER(iwp) ::  ifieldmin     !: 
+    INTEGER(iwp) ::  ifieldmin_l   !: 
+    INTEGER(iwp) ::  ii            !: 
+    INTEGER(iwp) ::  length        !: 
+    INTEGER(iwp) ::  nfree         !: 
+    INTEGER(iwp) ::  npack         !: 
+    INTEGER(iwp) ::  nsize         !: 
+    INTEGER(iwp) ::  nx            !: 
+    INTEGER(iwp) ::  ny            !: 
+    INTEGER(iwp) ::  nz            !: 
+    INTEGER(iwp) ::  startpos      !: 
+    
+    INTEGER(isp) ::  imask (32)    !: 
+    
+    INTEGER(isp), DIMENSION(:), ALLOCATABLE ::  ifield          !: 
+    INTEGER(isp), DIMENSION(:), ALLOCATABLE ::  packed_ifield   !: 
+
+    INTEGER, INTENT(IN) ::  fid_avs   !: 
+    INTEGER, INTENT(IN) ::  fid_fld   !: 
+    INTEGER, INTENT(IN) ::  my_id     !: 
+    INTEGER, INTENT(IN) ::  nxl       !: 
+    INTEGER, INTENT(IN) ::  nxr       !: 
+    INTEGER, INTENT(IN) ::  nyn       !: 
+    INTEGER, INTENT(IN) ::  nys       !: 
+    INTEGER, INTENT(IN) ::  nzb       !: 
+    INTEGER, INTENT(IN) ::  nz_do3d   !: 
+    INTEGER, INTENT(IN) ::  prec      !: 
+    INTEGER, INTENT(IN) ::  nbgp      !: 
+
+    REAL(sp), INTENT(IN) ::  field(1:((nxr-nxl+1+2*nbgp)*(nyn-nys+1+2*nbgp)*(nz_do3d-nzb+1)))   !: 
 
 !
@@ -121 +141 @@
 #if defined( __parallel )
     IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
-    CALL MPI_ALLREDUCE( ifieldmax_l, ifieldmax, 1, MPI_INTEGER, MPI_MAX, &
+    CALL MPI_ALLREDUCE( ifieldmax_l, ifieldmax, 1, MPI_INTEGER, MPI_MAX,       &
                         comm2d, ierr )
     IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
-    CALL MPI_ALLREDUCE( ifieldmin_l, ifieldmin, 1, MPI_INTEGER, MPI_MIN, &
+    CALL MPI_ALLREDUCE( ifieldmin_l, ifieldmin, 1, MPI_INTEGER, MPI_MIN,       &
                         comm2d, ierr )
 #else
@@ -236 +256 @@
 !
 !-- Formats
-100 FORMAT ('# precision = ',I4/ &
-            '# feldmin   = ',I8/ &
-            '# nbits     = ',I2/ &
+100 FORMAT ('# precision = ',I4/                                               &
+            '# feldmin   = ',I8/                                               &
+            '# nbits     = ',I2/                                               &
             '# nskip     = ',I8)