Home


About us
PALM
PALM-4U
Installation
Release notes
Documentation
Getting Help
Gallery
Developers area

Changeset 1092 for palm/trunk


Ignore:
Timestamp:
Feb 2, 2013 11:24:22 AM (12 years ago)
Author:
raasch
Message:

unused variables remove from several routines

Location:
palm/trunk/SOURCE
Files:
37 edited

Legend:

Unmodified
Added
Removed

  • palm/trunk/SOURCE/advec_s_bc.f90

    r1037 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
    … …  
    8787    INTEGER ::  i, ix, j, k, ngp, sr, type_xz_2
    8888
    89     REAL ::  cim, cimf, cip, cipf, d_new, ffmax, fminus, fplus, f2, f4, f8, &
     89    REAL ::  cim, cimf, cip, cipf, d_new, fminus, fplus, f2, f4, f8,        &
    9090             f12, f24, f48, f1920, im, ip, m2, m3, nenner, snenn, sterm,    &
    9191             tendenz, t1, t2, zaehler

  • palm/trunk/SOURCE/check_open.f90

    r1037 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
    … …  
    129129    CHARACTER (LEN=400) ::  command
    130130
    131     INTEGER ::  av, anzzeile = 1, cranz, file_id, i, iaddres, ierr1, iusern, &
     131    INTEGER ::  av, anzzeile = 1, cranz, file_id, i, iaddres, iusern, &
    132132                j, k, legpos = 1, timodex = 1
    133     INTEGER, DIMENSION(10) ::  cucol, klist, lstyle
     133    INTEGER, DIMENSION(10) ::  klist
    134134
    135135    LOGICAL ::  avs_coor_file_found = .FALSE., avs_data_file_found = .FALSE., &
    … …  
    145145
    146146    NAMELIST /RAHMEN/  anzzeile, cranz, datleg, rtext, swap
    147     NAMELIST /CROSS/   ansx, ansy, cucol, grid, gwid, klist, legpos, lstyle, &
     147    NAMELIST /CROSS/   ansx, ansy, grid, gwid, klist, legpos, &
    148148                       rand, rlegfak, sizex, sizey, texfac, &
    149149                       timodex, twoxa, twoya, xtext

  • palm/trunk/SOURCE/check_parameters.f90

    r1070 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
    … …  
    283283    CHARACTER (LEN=100) ::  action
    284284
    285     INTEGER ::  i, ilen, intervals, iremote = 0, iter, j, k, kk, nnxh, nnyh, &
    286                 position, prec
     285    INTEGER ::  i, ilen, iremote = 0, j, k, kk, position, prec
    287286    LOGICAL ::  found, ldum
    288     REAL    ::  gradient, maxn, maxp, remote = 0.0, &
    289                 simulation_time_since_reference
     287    REAL    ::  gradient, remote = 0.0, simulation_time_since_reference
    290288
    291289!

  • palm/trunk/SOURCE/close_file.f90

    r1037 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
    … …  
    9090    IMPLICIT NONE
    9191
    92     CHARACTER (LEN=2)   ::  suffix
    9392    CHARACTER (LEN=10)  ::  datform = 'lit_endian'
    94     CHARACTER (LEN=80)  ::  rtext, title
    95 
    96     INTEGER ::  av, anzzeile, dimx, dimy, &
    97                 fid, file_id, j, k, planz
    98 
    99     LOGICAL ::  checkuf = .TRUE., datleg = .TRUE., dp = .FALSE., swap
     93    CHARACTER (LEN=80)  ::  title
     94
     95    INTEGER ::  av, dimx, dimy, &
     96                fid, file_id, planz
     97
     98    LOGICAL ::  checkuf = .TRUE., datleg = .TRUE., dp = .FALSE.
    10099
    101100    REAL ::  sizex, sizey, yright
    … …  
    103102    NAMELIST /GLOBAL/  checkuf, datform, dimx, dimy, dp, planz, &
    104103                       title
    105     NAMELIST /RAHMEN/  anzzeile, datleg, rtext, swap
     104    NAMELIST /RAHMEN/  datleg
    106105
    107106!

  • palm/trunk/SOURCE/cpu_statistics.f90

    r1037 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
    … …  
    7272    IMPLICIT NONE
    7373
    74     INTEGER    ::  i, ii(1), iii, lp, sender
     74    INTEGER    ::  i, ii(1), iii, sender
    7575    REAL, SAVE ::  norm = 1.0
    7676    REAL, DIMENSION(:),   ALLOCATABLE ::  pe_max, pe_min, pe_rms, sum

  • palm/trunk/SOURCE/data_output_mask.f90

    r1037 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
    … …  
    7676    IMPLICIT NONE
    7777
    78     INTEGER ::  av, ngp, file_id, i, if, is, j, k, l, n, psi, s, sender, &
     78    INTEGER ::  av, ngp, i, if, j, k, n, psi, sender, &
    7979                ind(6)
    8080    LOGICAL ::  found, resorted

  • palm/trunk/SOURCE/data_output_profiles.f90

    r1037 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
    … …  
    7373
    7474
    75     INTEGER ::  i, id, ilc, ils, j, k, sr
     75    INTEGER ::  i, sr
    7676
    7777!

  • palm/trunk/SOURCE/data_output_tseries.f90

    r1037 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
    … …  
    6464
    6565
    66     INTEGER ::  file_id, i, j, sr
     66    INTEGER ::  i, sr
    6767
    6868

  • palm/trunk/SOURCE/diffusion_s.f90

    r1037 r1092  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
    … …  
    9797
    9898       INTEGER ::  i, j, k
    99        REAL    ::  vertical_gridspace
    10099       REAL    ::  wall_s_flux(0:4)
    101100       REAL, DIMENSION(nysg:nyng,nxlg:nxrg) ::  s_flux_b, s_flux_t
    … …  
    211210
    212211       INTEGER ::  i, j, k
    213        REAL    ::  vertical_gridspace
    214212       REAL    ::  wall_s_flux(0:4)
    215213       REAL, DIMENSION(nysg:nyng,nxlg:nxrg) ::  s_flux_b, s_flux_t
    … …  
    332330
    333331       INTEGER ::  i, j, k
    334        REAL    ::  vertical_gridspace
    335332       REAL    ::  wall_s_flux(0:4)
    336333       REAL, DIMENSION(nysg:nyng,nxlg:nxrg) ::  s_flux_b, s_flux_t

  • palm/trunk/SOURCE/exchange_horiz_2d.f90

    r1037 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
    … …  
    192192
    193193    INTEGER ::  ar(nysg:nyng,nxlg:nxrg)
    194     INTEGER :: i
    195194
    196195#if ! defined( __check )

  • palm/trunk/SOURCE/fft_xy.f90

    r1037 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! variable sizw declared for NEC case only
    2323!
    2424! Former revisions:
    … …  
    591591
    592592       CHARACTER (LEN=*)              ::  direction
    593        INTEGER                        ::  i, k, siza, sizw
     593       INTEGER                        ::  i, k, siza
    594594
    595595       REAL, DIMENSION(0:nx,nz)       ::  ar
    … …  
    597597       REAL, DIMENSION(6*(nx+4),nz+1) ::  work1
    598598#if defined( __nec )
     599       INTEGER                             ::  sizw
    599600       COMPLEX, DIMENSION((nx+4)/2+1,nz+1) ::  work
    600601#endif
    … …  
    727728
    728729       CHARACTER (LEN=*)              ::  direction
    729        INTEGER                        ::  j, k, ny1, siza, sizw
     730       INTEGER                        ::  j, k, ny1, siza
    730731
    731732       REAL, DIMENSION(0:ny1,nz)      ::  ar
    … …  
    733734       REAL, DIMENSION(6*(ny+4),nz+1) ::  work1
    734735#if defined( __nec )
     736       INTEGER                             ::  sizw
    735737       COMPLEX, DIMENSION((ny+4)/2+1,nz+1) ::  work
    736738#endif

  • palm/trunk/SOURCE/header.f90

    r1037 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
    … …  
    187187    CHARACTER (LEN=2)  ::  do2d_mode
    188188    CHARACTER (LEN=5)  ::  section_chr
    189     CHARACTER (LEN=9)  ::  time_to_string
    190189    CHARACTER (LEN=10) ::  coor_chr, host_chr
    191190    CHARACTER (LEN=16) ::  begin_chr
    … …  
    202201
    203202    INTEGER ::  av, bh, blx, bly, bxl, bxr, byn, bys, ch, count, cwx, cwy,  &
    204          cxl, cxr, cyn, cys, dim, i, ihost, io, j, l, ll, m, mpi_type
     203                cxl, cxr, cyn, cys, dim, i, io, j, l, ll, mpi_type
    205204    REAL    ::  cpuseconds_per_simulated_second
    206205

  • palm/trunk/SOURCE/inflow_turbulence.f90

    r1037 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
    … …  
    6161    IMPLICIT NONE
    6262
    63     INTEGER ::  i, imax, j, k, l, ngp_ifd, ngp_pr
    64 
    65     REAL, DIMENSION(1:2) ::  volume_flow_l, volume_flow_offset
     63    INTEGER ::  i, j, k, l, ngp_ifd, ngp_pr
     64
    6665    REAL, DIMENSION(nzb:nzt+1,5,nbgp) ::  avpr, avpr_l
    6766    REAL, DIMENSION(nzb:nzt+1,nysg:nyng,5,nbgp) ::  inflow_dist

  • palm/trunk/SOURCE/init_3d_model.f90

    r1073 r1092  
    2323! Current revisions:
    2424! ------------------
     25! unused variables removed
    2526!
    2627! Former revisions:
    … …  
    239240    INTEGER, DIMENSION(:,:), ALLOCATABLE ::  ngp_2dh_outer_l,  &
    240241                                             ngp_2dh_s_inner_l
    241 
    242     REAL ::  a, b
    243242
    244243    REAL, DIMENSION(1:2) ::  volume_flow_area_l, volume_flow_initial_l

  • palm/trunk/SOURCE/init_grid.f90

    r1070 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
    … …  
    146146
    147147    INTEGER ::  bh, blx, bly, bxl, bxr, byn, bys, ch, cwx, cwy, cxl, cxr, cyn, &
    148                 cys, gls, i, ii, inc, i_center, j, j_center, k, l, nxl_l,      &
    149                 nxr_l, nyn_l, nys_l, nzb_si, nzt_l, vi
     148                cys, gls, i, ii, inc, j, k, l, nxl_l, nxr_l, nyn_l, nys_l,     &
     149                nzb_si, nzt_l, vi
    150150
    151151    INTEGER, DIMENSION(:), ALLOCATABLE   ::  vertical_influence
    … …  
    161161    REAL, DIMENSION(:,:), ALLOCATABLE   ::  topo_height
    162162
    163     REAL, DIMENSION(:,:,:), ALLOCATABLE ::  distance
    164163   
    165164!

  • palm/trunk/SOURCE/init_pegrid.f90

    r1057 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
    … …  
    163163                maximum_grid_level_l, mg_switch_to_pe0_level_l, mg_levels_x, &
    164164                mg_levels_y, mg_levels_z, nnx_y, nnx_z, nny_x, nny_z, nnz_x, &
    165                 nnz_y, numproc_sqr, nx_total, nxl_l, nxr_l, nyn_l, nys_l,    &
     165                nnz_y, numproc_sqr, nxl_l, nxr_l, nyn_l, nys_l,    &
    166166                nzb_l, nzt_l, omp_get_num_threads
    167167
    … …  
    170170    INTEGER, DIMENSION(2) :: pdims_remote
    171171
     172#if defined( __mpi2 )
    172173    LOGICAL ::  found
     174#endif
    173175
    174176!

  • palm/trunk/SOURCE/local_tremain_ini.f90

    r1037 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
    … …  
    5757
    5858#if defined( __ibm )
    59     CHARACTER (LEN=10) ::  value_chr
    60     INTEGER            ::  idum
    6159    INTEGER(8)         ::  IRTC
    6260#elif defined( __lc )
    63     CHARACTER (LEN=10) ::  value_chr
    64     INTEGER            ::  idum
    6561    INTEGER(8)         ::  count, count_rate
    6662#endif

  • palm/trunk/SOURCE/lpm_collision_kernels.f90

    r1072 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
    … …  
    526526       LOGICAL, SAVE ::  first = .TRUE.
    527527
    528        REAL, SAVE ::  cunh, eta, phy, py, rho_a, sigma, stb, stok, &
    529                       t0, xlamb
     528       REAL, SAVE ::  cunh, eta, phy, py, rho_a, sigma, stb, stok, xlamb
    530529
    531530       REAL ::  bond, x, xrey, y
    … …  
    621620       IMPLICIT NONE
    622621
    623        INTEGER ::  i, iq, ir, j, k, kk
     622       INTEGER ::  i, iq, ir, j, k
    624623
    625624       INTEGER, DIMENSION(:), ALLOCATABLE ::  ira
    … …  
    757756       IMPLICIT NONE
    758757
    759        INTEGER :: i, ik, iq, ir, j, k, kk
     758       INTEGER :: i, iq, ir, j, k, kk
    760759
    761760       INTEGER, DIMENSION(:), ALLOCATABLE ::  ira
    762761
    763        REAL ::  particle_radius, pp, qq, rq, x1, x2, x3, y1, y2, y3
     762       REAL ::  particle_radius, pp, qq, rq, y1, y2, y3
    764763
    765764       LOGICAL, SAVE ::  first = .TRUE.

  • palm/trunk/SOURCE/lpm_droplet_collision.f90

    r1072 r1092  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
    … …  
    7474    IMPLICIT NONE
    7575
    76     INTEGER ::  eclass, i, ii, inc, is, j, jj, js, k, kk, n, pse, psi,       &
    77                 rclass_l, rclass_s
    78 
    79     REAL ::  aa, bb, cc, dd, delta_r, delta_v, gg, epsilon, integral, lw_max, &
    80              mean_r, ql_int, ql_int_l, ql_int_u, u_int, u_int_l, u_int_u,     &
    81              v_int, v_int_l, v_int_u, w_int, w_int_l, w_int_u, sl_r3, sl_r4, &
    82              x, y, sum1, sum2, sum3, r3, ddV
     76    INTEGER ::  eclass, i, ii, inc, is, j, jj, js, k, kk, n, pse, psi, rclass_l, &
     77                rclass_s
     78
     79    REAL ::  aa, bb, cc, dd, delta_r, delta_v, gg, epsilon, mean_r, ql_int,    &
     80             ql_int_l, ql_int_u, u_int, u_int_l, u_int_u, v_int, v_int_l,      &
     81             v_int_u, w_int, w_int_l, w_int_u, sl_r3, sl_r4, x, y, sum1, sum2, &
     82             sum3, r3, ddV
    8383
    8484    TYPE(particle_type) ::  tmp_particle

  • palm/trunk/SOURCE/lpm_droplet_condensation.f90

    r1072 r1092  
    7676             dt_ros, dt_ros_next, dt_ros_sum, dt_ros_sum_ini, d2rdtdr, errmax, &
    7777             err_ros, g1, g2, g3, g4, e_a, e_s, gg, new_r, p_int, pt_int,      &
    78              pt_int_l, pt_int_u, q_int, q_int_l, q_int_u, ql_int, ql_int_l,    &
    79              ql_int_u, r_ros, r_ros_ini, sigma, t_int, x, y, re_p
     78             pt_int_l, pt_int_u, q_int, q_int_l, q_int_u, r_ros, r_ros_ini,    &
     79             sigma, t_int, x, y, re_p
    8080
    8181!

  • palm/trunk/SOURCE/lpm_init.f90

    r1037 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
    … …  
    112112#endif
    113113    LOGICAL ::  uniform_particles_l
    114     REAL    ::  factor, pos_x, pos_y, pos_z, value
     114    REAL    ::  pos_x, pos_y, pos_z
    115115
    116116

  • palm/trunk/SOURCE/microphysics.f90

    r1066 r1092  
    33!------------------------------------------------------------------------------!
    44! Current revisions:
    5 ! -----------------
     5! ------------------
     6! unused variables removed
    67!
    78! Former revisions:
    … …  
    7879
    7980       INTEGER ::  i, j, k
    80        REAL    ::  dqdt_precip
    8181
    8282 
    … …  
    101101
    102102       INTEGER ::  i, j, k
    103        REAL    ::  dqdt_precip
    104103
    105104 
    … …  
    124123
    125124       INTEGER ::  i, j, k
    126        REAL    ::  dqdt_precip
    127125
    128126 
    … …  
    147145
    148146       INTEGER ::  i, j, k
    149        REAL    ::  dqdt_precip
    150147
    151148 
    … …  
    170167
    171168       INTEGER ::  i, j, k
    172        REAL    ::  dqdt_precip
    173169
    174170 
    … …  
    193189
    194190       INTEGER ::  i, j, k
    195        REAL    ::  dqdt_precip
    196191
    197192 
    … …  
    216211
    217212       INTEGER ::  i, j, k
    218        REAL    ::  dqdt_precip
    219213
    220214 
    … …  
    596590       IMPLICIT NONE
    597591
    598        INTEGER ::  i, j, k, k_run, n, n_substep
    599        REAL    ::  c_run, d_max, d_mean, d_min, dt_sedi, flux, mean, z_run
    600 
    601        REAL, DIMENSION(nzb:nzt) :: c_nr, c_qr, d_nr, d_qr, nr_slope, qr_slope, &
    602                                    w_nr, w_qr
     592       INTEGER ::  i, j, k, k_run
     593       REAL    ::  c_run, d_max, d_mean, d_min, dt_sedi, flux, z_run
     594
     595       REAL, DIMENSION(nzb:nzt) :: c_nr, c_qr, nr_slope, qr_slope, w_nr, w_qr
     596
    603597!
    604598!--    Computation of sedimentation flux. Implementation according to Stevens

  • palm/trunk/SOURCE/modules.f90

    r1066 r1092  
    1919!
    2020! Current revisions:
    21 ! -----------------
     21! ------------------
     22! character length in some derived type changed for better alignment
     23! test: different dpk definition for CUDA FFT
    2224!
    2325! Former revisions:
    … …  
    368370!------------------------------------------------------------------------------!
    369371
    370     INTEGER, PARAMETER ::  dpk = SELECTED_REAL_KIND( 12 ), &
     372    INTEGER, PARAMETER ::  dpk = SELECTED_REAL_KIND( 12 ),
    371373                           spk = SELECTED_REAL_KIND( 6 )
     374
     375!-- test for CUDA FFT
     376!    INTEGER, PARAMETER ::  single_kind = KIND( 0.0 ), &
     377!                           double_kind = KIND( 0.0D0 )
     378
     379!    INTEGER, PARAMETER ::  dpk = double_kind
    372380
    373381    SAVE
    … …  
    581589
    582590    TYPE plot_precision
    583        CHARACTER (LEN=6) ::  variable
     591       CHARACTER (LEN=8) ::  variable
    584592       INTEGER           ::  precision
    585593    END TYPE plot_precision
    … …  
    10161024
    10171025    TYPE steering
    1018        CHARACTER (LEN=20) ::  name
     1026       CHARACTER (LEN=24) ::  name
    10191027       REAL(4)            ::  min, max
    10201028       INTEGER            ::  imin, imax

  • palm/trunk/SOURCE/netcdf.f90

    r1054 r1092  
    2323! Current revisions:
    2424! ------------------
     25! unused variables removed
    2526!
    2627! Former revisions:
    … …  
    155156    CHARACTER (LEN=10)             ::  netcdf_var_name, precision, var
    156157    CHARACTER (LEN=80)             ::  time_average_text
    157     CHARACTER (LEN=2000)           ::  char_cross_profiles,     &
    158                                        message_cross_profiles,  &
    159                                        var_list, var_list_old
     158    CHARACTER (LEN=2000)           ::  char_cross_profiles, var_list, var_list_old
    160159
    161160    CHARACTER (LEN=100), DIMENSION(1:crmax) ::  cross_profiles_adj,   &

  • palm/trunk/SOURCE/palm.f90

    r1037 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
    … …  
    107107!-- Local variables
    108108    CHARACTER (LEN=9) ::  time_to_string
    109     CHARACTER (LEN=1) ::  cdum
    110     INTEGER           ::  i, run_description_header_i(80)
     109    INTEGER           ::  i
    111110#if defined( __openacc )
    112111    REAL, DIMENSION(100) ::  acc_dum
    … …  
    134133!-- Get the number of accelerator boards per node and assign the MPI processes
    135134!-- to these boards
     135    PRINT*, '*** ACC_DEVICE_NVIDIA = ', ACC_DEVICE_NVIDIA
    136136    num_acc_per_node  = ACC_GET_NUM_DEVICES( ACC_DEVICE_NVIDIA )
     137    IF ( numprocs == 1  .AND.  num_acc_per_node > 0 )  num_acc_per_node = 1
     138    PRINT*, '*** myid = ', myid, ' num_acc_per_node = ', num_acc_per_node
    137139    acc_rank = MOD( myid, num_acc_per_node )
     140!    STOP '****'
    138141    CALL ACC_SET_DEVICE_NUM ( acc_rank, ACC_DEVICE_NVIDIA )
    139142!
    … …  
    144147                                      ACC_GET_DEVICE_NUM( ACC_DEVICE_NVIDIA )
    145148#endif
     149
    146150!
    147151!-- Ensure that OpenACC first attaches the GPU devices by copying a dummy data

  • palm/trunk/SOURCE/parin.f90

    r1066 r1092  
    2020! Current revisions:
    2121! -----------------
     22! unused variables removed
    2223!
    2324! Former revisions:
    … …  
    193194    IMPLICIT NONE
    194195
    195     INTEGER ::  i, idum
     196    INTEGER ::  i
    196197
    197198

  • palm/trunk/SOURCE/poisfft.f90

    r1037 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
    … …  
    952952       IMPLICIT NONE
    953953
    954        character(len=3) ::  myth_char
    955 
    956954       INTEGER ::  i, j, k, m, n, omp_get_thread_num, tn
    957955
    … …  
    14311429
    14321430       REAL, DIMENSION(0:nx,1:nz)     ::  ar
    1433        REAL, DIMENSION(0:nx,0:nz-1)   ::  ar1
    14341431       REAL, DIMENSION(5,0:nx,0:nz-1) ::  tri
    14351432

  • palm/trunk/SOURCE/poismg.f90

    r1057 r1092  
    2323! Current revisions:
    2424! -----------------
    25 !
     25! unused variables removed
    2626!
    2727! Former revisions:
    … …  
    10281028    IMPLICIT NONE
    10291029
    1030     INTEGER ::  i, il, ir, j, jn, js, k, n, nwords, sender
     1030    INTEGER ::  i, il, ir, j, jn, js, k, nwords
    10311031
    10321032    REAL, DIMENSION(nzb:nzt_mg(grid_level)+1,                            &
    … …  
    10931093    IMPLICIT NONE
    10941094
    1095     INTEGER ::  n, nwords, sender
     1095    INTEGER ::  nwords
    10961096
    10971097    REAL, DIMENSION(nzb:nzt_mg(grid_level-1)+1,                            &

  • palm/trunk/SOURCE/pres.f90

    r1037 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
    … …  
    124124    IMPLICIT NONE
    125125
    126     INTEGER ::  i, j, k, sr
     126    INTEGER ::  i, j, k
    127127
    128128    REAL    ::  ddt_3d, localsum, threadsum, d_weight_pres

  • palm/trunk/SOURCE/prognostic_equations.f90

    r1054 r1092  
    1919!
    2020! Current revisions:
    21 ! -----------------
     21! ------------------
     22! unused variables removed
    2223!
    2324! Former revisions:
    … …  
    201202    IMPLICIT NONE
    202203
    203     CHARACTER (LEN=9) ::  time_to_string
    204204    INTEGER ::  i, i_omp_start, j, k, omp_get_thread_num, tn = 0
    205205    LOGICAL ::  loop_start
    … …  
    839839    IMPLICIT NONE
    840840
    841     CHARACTER (LEN=9) ::  time_to_string
    842841    INTEGER ::  i, j, k
    843842    REAL    ::  sbt
    … …  
    14801479    IMPLICIT NONE
    14811480
    1482     CHARACTER (LEN=9) ::  time_to_string
    14831481    INTEGER ::  i, j, k, runge_step
    14841482    REAL    ::  sbt

  • palm/trunk/SOURCE/random_function.f90

    r1037 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
    … …  
    7777
    7878       INTEGER ::  ia, idum, im, iq, ir, ndiv, ntab
    79        REAL    ::  am, eps, random_function, ranf, rnmx
     79       REAL    ::  am, eps, random_function, rnmx
    8080
    8181       PARAMETER ( ia=16807, im=2147483647, am=1.0/im, iq=127773, ir=2836, &

  • palm/trunk/SOURCE/read_var_list.f90

    r1066 r1092  
    2020! Current revisions:
    2121! ------------------
     22! unused variables removed
    2223!
    2324! Former revisions:
    … …  
    174175    CHARACTER (LEN=10) ::  binary_version, version_on_file
    175176    CHARACTER (LEN=30) ::  variable_chr
    176 
    177     LOGICAL ::  ldum
    178177
    179178
    … …  
    792791    CHARACTER (LEN=1)  ::  cdum
    793792
    794     INTEGER ::  idum, max_pr_user_on_file, nz_on_file, &
     793    INTEGER ::  max_pr_user_on_file, nz_on_file, &
    795794                statistic_regions_on_file, tmp_mpru, tmp_sr
    796795

  • palm/trunk/SOURCE/surface_coupler.f90

    r1037 r1092  
    1919!
    2020! Current revisions:
     21! ------------------
     22! unused variables removed
     23!
     24! Former revisions:
    2125! -----------------
    22 !
    23 !
    24 ! Former revisions:
    25 ! ------------------
    2626! $Id$
    2727!
    … …  
    6565
    6666    IMPLICIT NONE
    67 
    68     INTEGER ::  i, j, k
    6967
    7068    REAL    ::  time_since_reference_point_rem

  • palm/trunk/SOURCE/time_integration.f90

    r1066 r1092  
    1919!
    2020! Current revisions:
    21 ! -----------------
     21! ------------------
     22! unused variables removed
    2223!
    2324! Former revisions:
    … …  
    138139
    139140    CHARACTER (LEN=9) ::  time_to_string
    140     INTEGER ::  i, j, k
    141141
    142142!

  • palm/trunk/SOURCE/timestep.f90

    r1054 r1092  
    2020! Current revisions:
    2121! ------------------
     22! unused variables removed
    2223!
    2324! Former revisions:
    … …  
    9192    INTEGER ::  i, j, k, u_max_cfl_ijk(3), v_max_cfl_ijk(3)
    9293
    93     REAL ::  div, dt_diff, dt_diff_l, dt_plant_canopy,                 &
    94              dt_plant_canopy_l,                                        &
    95              dt_plant_canopy_u, dt_plant_canopy_v, dt_plant_canopy_w,  &
    96              dt_u, dt_v, dt_w, lad_max,                                &
    97              u_gtrans_l, u_max_cfl, vabs_max, value, v_gtrans_l, v_max_cfl
     94    REAL ::  div, dt_diff, dt_diff_l, dt_plant_canopy, dt_plant_canopy_l,  &
     95             dt_plant_canopy_u, dt_plant_canopy_v, dt_plant_canopy_w,      &
     96             dt_u, dt_v, dt_w, u_max_cfl, value, v_max_cfl
    9897
    9998    REAL, DIMENSION(2)         ::  uv_gtrans, uv_gtrans_l

  • palm/trunk/SOURCE/transpose.f90

    r1037 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
    … …  
    326326    IMPLICIT NONE
    327327
    328     INTEGER ::  i, j, k, l, m, recvcount_yx, sendcount_yx, xs
     328    INTEGER ::  i, j, k, l, m, xs
    329329
    330330    REAL ::  f_in(1:nz,nys:nyn,nxl:nxr), f_inv(nxl:nxr,1:nz,nys:nyn), &

  • palm/trunk/SOURCE/write_compressed.f90

    r1037 r1092  
    2020!
    2121! Current revisions:
     22! ------------------
     23! unused variables removed
     24!
     25! Former revisions:
    2226! -----------------
    23 !
    24 ! Former revisions:
    25 ! ---------------------
    2627! $Id$
    2728!
    … …  
    7374
    7475    INTEGER ::  ampl, dummy1, dummy2, factor, i, ifieldmax, ifieldmax_l, &
    75                 ifieldmin, ifieldmin_l, ii, j, k, length, nfree, npack, nsize, &
    76                 nx, ny, nz, pos, startpos
     76                ifieldmin, ifieldmin_l, ii, length, nfree, npack, nsize, &
     77                nx, ny, nz, startpos
    7778    INTEGER(ip4) ::  imask (32)
    7879    INTEGER(ip4), DIMENSION(:), ALLOCATABLE ::  ifield, packed_ifield
Note: See TracChangeset for help on using the changeset viewer.
                                                                                                                                                                                                                                                                                                                                                                               
  | Impressum | ©Leibniz Universität Hannover |