Changeset 1394 for palm/trunk/UTIL


Ignore:
Timestamp:
May 6, 2014 10:17:31 AM (7 years ago)
Author:
keck
Message:

bugfix: KIND attribute added to combine_plot_fields.f90

File:
1 edited

Legend:

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

    r1310 r1394  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! KIND-attribute added to all INTEGER and REAL declaration statements
    2323!
    2424! Former revisions:
     
    9090    CHARACTER (LEN=2000), DIMENSION(0:1) ::  var_list
    9191
    92     INTEGER, PARAMETER ::  spk = SELECTED_REAL_KIND( 6 )
    93 
    94     INTEGER ::  av, danz, i, id,             &
    95                 j, k, model, models, nc_stat, nxa, nxag, nxe, nxeg, nya,   &
    96                 nyag, nye, nyeg, nza, nzag, nze, nzeg, pos, time_step, xa, xe, &
    97                 xxa, xxe, ya, ye, yya, yye, za, ze, zza, zze
     92    INTEGER, PARAMETER ::  iwp = 4, spk = SELECTED_REAL_KIND( 6 ), wp = 8
     93
     94    INTEGER(iwp) ::  av, danz, i, id, j, k, model, models, nc_stat,            &
     95                     nxa, nxag, nxe, nxeg, nya, nyag, nye, nyeg,               &
     96                     nza, nzag, nze, nzeg, pos, time_step,                    &
     97                     xa, xe, xxa, xxe, ya, ye, yya, yye, za, ze, zza, zze
    9898
    9999#if defined( __lc ) || defined( __decalpha )
    100100    INTEGER(8)                  ::  count, count_rate
    101101#elif defined( __nec )
    102     INTEGER                     ::  count, count_rate
     102    INTEGER(iwp)                ::  count, count_rate
    103103#elif defined( __ibm )
    104104    INTEGER(8)                  ::  IRTC
    105105#endif
    106106
    107     INTEGER, DIMENSION(0:1) ::  current_level, current_var, fanz, id_set, &
    108          id_var_time, num_var
    109 
    110     INTEGER, DIMENSION(4) ::  id_dims_loc
    111 
    112     INTEGER, DIMENSION(0:1,4) ::  id_dims
    113 
    114     INTEGER, DIMENSION(0:1,1000) ::  id_var, levels
    115 
    116     LOGICAL ::  avs_output, compressed, found, iso2d_output, netcdf_output, &
    117                 netcdf_parallel, netcdf_0, netcdf_1
    118 
    119     REAL ::  cpu_start_time, cpu_end_time, dx, simulated_time
    120     REAL, DIMENSION(:),   ALLOCATABLE   ::  eta, ho, hu
    121     REAL, DIMENSION(:,:), ALLOCATABLE   ::  pf, pf_tmp
     107    INTEGER(iwp), DIMENSION(0:1)      ::  current_level, current_var,          &
     108                                          fanz, id_set, id_var_time, num_var
     109    INTEGER(iwp), DIMENSION(4)        ::  id_dims_loc
     110    INTEGER(iwp), DIMENSION(0:1,4)    ::  id_dims
     111    INTEGER(iwp), DIMENSION(0:1,1000) ::  id_var, levels
     112
     113    LOGICAL  ::  avs_output, compressed, found, iso2d_output, netcdf_output,   &
     114                 netcdf_parallel, netcdf_0, netcdf_1
     115
     116    REAL(wp) ::  cpu_start_time, cpu_end_time, dx, simulated_time
     117    REAL(wp),  DIMENSION(:),   ALLOCATABLE   ::  eta, ho, hu
     118    REAL(wp),  DIMENSION(:,:), ALLOCATABLE   ::  pf, pf_tmp
    122119    REAL(spk), DIMENSION(:,:,:), ALLOCATABLE ::  pf3d, pf3d_tmp
    123120
Note: See TracChangeset for help on using the changeset viewer.