Changeset 3241 for palm/trunk/UTIL

Timestamp:

Sep 12, 2018 3:02:00 PM (6 years ago)

Author:

raasch

Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:

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

palm/trunk/UTIL/combine_plot_fields.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -126 +129 @@
 
     INTEGER(iwp) ::  av, danz, i, id, j, k, model, models, nc_stat,            &
-                     nxa, nxag, nxe, nxeg, nya, nyag, nye, nyeg,               &
+                     nxa, nxe, nya, nye,               &
                      nza, nze, pos, time_step, xa, xe, xxa, xxe, ya, ya_do,    &
-                     ya_tot, ye, ye_do, ye_tot, yya, yye, za, ze, zza, zze
+                     ya_tot, ye, ye_do, ye_tot, yya, yye, za, ze
 
     INTEGER(8)                        ::  count, count_rate
@@ -141 +144 @@
                  netcdf_1, vnest
 
-    REAL(wp) ::  cpu_start_time, cpu_end_time, dx, simulated_time
+    REAL(wp) ::  cpu_start_time, cpu_end_time, simulated_time
     REAL(wp),  DIMENSION(:,:), ALLOCATABLE   ::  pf, pf_tmp
     REAL(spk), DIMENSION(:,:,:), ALLOCATABLE ::  pf3d, pf3d_tmp
@@ -752 +755 @@
 !--             Allocate the array for storing the total domain data
                 IF ( id == 0  .AND.  fanz(0) == 0  .AND.  fanz(1) == 0 )  THEN
-!                   READ ( id+110 )  nxag, nxeg, nyag, nyeg
                    READ ( id+110 )  nxa, nxe, nya, nye, nza, nze
                    ALLOCATE ( pf3d(nxa:nxe,nya:nye,nza:nze) )