Ignore:
Timestamp:
Sep 12, 2018 3:02:00 PM (3 years ago)
Author:
raasch
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/combine_plot_fields.f90

    r2718 r3241  
    2626! -----------------
    2727! $Id$
     28! unused variables removed
     29!
     30! 2718 2018-01-02 08:49:38Z maronga
    2831! Corrected "Former revisions" section
    2932!
     
    126129
    127130    INTEGER(iwp) ::  av, danz, i, id, j, k, model, models, nc_stat,            &
    128                      nxa, nxag, nxe, nxeg, nya, nyag, nye, nyeg,               &
     131                     nxa, nxe, nya, nye,               &
    129132                     nza, nze, pos, time_step, xa, xe, xxa, xxe, ya, ya_do,    &
    130                      ya_tot, ye, ye_do, ye_tot, yya, yye, za, ze, zza, zze
     133                     ya_tot, ye, ye_do, ye_tot, yya, yye, za, ze
    131134
    132135    INTEGER(8)                        ::  count, count_rate
     
    141144                 netcdf_1, vnest
    142145
    143     REAL(wp) ::  cpu_start_time, cpu_end_time, dx, simulated_time
     146    REAL(wp) ::  cpu_start_time, cpu_end_time, simulated_time
    144147    REAL(wp),  DIMENSION(:,:), ALLOCATABLE   ::  pf, pf_tmp
    145148    REAL(spk), DIMENSION(:,:,:), ALLOCATABLE ::  pf3d, pf3d_tmp
     
    752755!--             Allocate the array for storing the total domain data
    753756                IF ( id == 0  .AND.  fanz(0) == 0  .AND.  fanz(1) == 0 )  THEN
    754 !                   READ ( id+110 )  nxag, nxeg, nyag, nyeg
    755757                   READ ( id+110 )  nxa, nxe, nya, nye, nza, nze
    756758                   ALLOCATE ( pf3d(nxa:nxe,nya:nye,nza:nze) )
Note: See TracChangeset for help on using the changeset viewer.