Changeset 1394 for palm

Timestamp:

May 6, 2014 10:17:31 AM (10 years ago)

Author:

keck

Message:

bugfix: KIND attribute added to combine_plot_fields.f90

File:

• palm/trunk/UTIL/combine_plot_fields.f90 (modified) (2 diffs)

palm/trunk/UTIL/combine_plot_fields.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! KIND-attribute added to all INTEGER and REAL declaration statements
 !
 ! Former revisions:
@@ -90 +90 @@
     CHARACTER (LEN=2000), DIMENSION(0:1) ::  var_list
 
-    INTEGER, PARAMETER ::  spk = SELECTED_REAL_KIND( 6 )
-
-    INTEGER ::  av, danz, i, id,             &
-                j, k, model, models, nc_stat, nxa, nxag, nxe, nxeg, nya,   &
-                nyag, nye, nyeg, nza, nzag, nze, nzeg, pos, time_step, xa, xe, &
-                xxa, xxe, ya, ye, yya, yye, za, ze, zza, zze
+    INTEGER, PARAMETER ::  iwp = 4, spk = SELECTED_REAL_KIND( 6 ), wp = 8
+
+    INTEGER(iwp) ::  av, danz, i, id, j, k, model, models, nc_stat,            &
+                     nxa, nxag, nxe, nxeg, nya, nyag, nye, nyeg,               &
+                     nza, nzag, nze, nzeg, pos, time_step,                     &
+                     xa, xe, xxa, xxe, ya, ye, yya, yye, za, ze, zza, zze
 
 #if defined( __lc ) || defined( __decalpha )
     INTEGER(8)                  ::  count, count_rate
 #elif defined( __nec )
-    INTEGER                     ::  count, count_rate
+    INTEGER(iwp)                ::  count, count_rate
 #elif defined( __ibm )
     INTEGER(8)                  ::  IRTC
 #endif
 
-    INTEGER, DIMENSION(0:1) ::  current_level, current_var, fanz, id_set, &
-         id_var_time, num_var
-
-    INTEGER, DIMENSION(4) ::  id_dims_loc
-
-    INTEGER, DIMENSION(0:1,4) ::  id_dims
-
-    INTEGER, DIMENSION(0:1,1000) ::  id_var, levels
-
-    LOGICAL ::  avs_output, compressed, found, iso2d_output, netcdf_output, &
-                netcdf_parallel, netcdf_0, netcdf_1
-
-    REAL ::  cpu_start_time, cpu_end_time, dx, simulated_time
-    REAL, DIMENSION(:),   ALLOCATABLE   ::  eta, ho, hu
-    REAL, DIMENSION(:,:), ALLOCATABLE   ::  pf, pf_tmp
+    INTEGER(iwp), DIMENSION(0:1)      ::  current_level, current_var,          &
+                                          fanz, id_set, id_var_time, num_var
+    INTEGER(iwp), DIMENSION(4)        ::  id_dims_loc
+    INTEGER(iwp), DIMENSION(0:1,4)    ::  id_dims
+    INTEGER(iwp), DIMENSION(0:1,1000) ::  id_var, levels
+
+    LOGICAL  ::  avs_output, compressed, found, iso2d_output, netcdf_output,   &
+                 netcdf_parallel, netcdf_0, netcdf_1
+
+    REAL(wp) ::  cpu_start_time, cpu_end_time, dx, simulated_time
+    REAL(wp),  DIMENSION(:),   ALLOCATABLE   ::  eta, ho, hu
+    REAL(wp),  DIMENSION(:,:), ALLOCATABLE   ::  pf, pf_tmp
     REAL(spk), DIMENSION(:,:,:), ALLOCATABLE ::  pf3d, pf3d_tmp