Ignore:
Timestamp:
Mar 20, 2014 8:40:49 AM (8 years ago)
Author:
raasch
Message:

ONLY-attribute added to USE-statements,
kind-parameters added to all INTEGER and REAL declaration statements,
kinds are defined in new module kinds,
old module precision_kind is removed,
revision history before 2012 removed,
comment fields (!:) to be used for variable explanations added to all variable declaration statements

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/lpm_droplet_collision.f90

    r1319 r1320  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! ONLY-attribute added to USE-statements,
     23! kind-parameters added to all INTEGER and REAL declaration statements,
     24! kinds are defined in new module kinds,
     25! revision history before 2012 removed,
     26! comment fields (!:) to be used for variable explanations added to
     27! all variable declaration statements
    2328!
    2429! Former revisions:
    2530! -----------------
    2631! $Id$
    27 !
    28 ! 1318 2014-03-17 13:35:16Z raasch
    29 ! module interfaces removed
    3032!
    3133! 1092 2013-02-02 11:24:22Z raasch
     
    6769!------------------------------------------------------------------------------!
    6870
    69     USE arrays_3d
    70     USE cloud_parameters
    71     USE constants
    72     USE control_parameters
    73     USE cpulog
    74     USE grid_variables
    75     USE indices
    76     USE lpm_collision_kernels_mod
    77     USE particle_attributes
     71    USE arrays_3d,                                                             &
     72        ONLY:  diss, ql, ql_v, ql_vp, u, v, w, zu, zw
     73
     74    USE cloud_parameters,                                                      &
     75        ONLY:  effective_coll_efficiency
     76
     77    USE constants,                                                             &
     78        ONLY:  pi
     79
     80    USE control_parameters,                                                    &
     81        ONLY:  dt_3d, message_string, u_gtrans, v_gtrans, dz
     82
     83    USE cpulog,                                                                &
     84        ONLY:  cpu_log, log_point_s
     85
     86    USE grid_variables,                                                        &
     87        ONLY:  ddx, dx, ddy, dy
     88
     89    USE indices,                                                               &
     90        ONLY:  nxl, nxr, nyn, nys, nzb, nzt
     91
     92    USE kinds
     93
     94    USE lpm_collision_kernels_mod,                                             &
     95        ONLY:  ckernel, collision_efficiency_rogers, recalculate_kernel
     96
     97    USE particle_attributes,                                                   &
     98        ONLY:  deleted_particles, dissipation_classes, hall_kernel,            &
     99               palm_kernel, particles, particle_mask, particle_type,           &
     100               prt_count, prt_start_index, use_kernel_tables, wang_kernel
    78101
    79102    IMPLICIT NONE
    80103
    81     INTEGER ::  eclass, i, ii, inc, is, j, jj, js, k, kk, n, pse, psi, rclass_l, &
    82                 rclass_s
    83 
    84     REAL ::  aa, bb, cc, dd, delta_r, delta_v, gg, epsilon, mean_r, ql_int,    &
    85              ql_int_l, ql_int_u, u_int, u_int_l, u_int_u, v_int, v_int_l,      &
    86              v_int_u, w_int, w_int_l, w_int_u, sl_r3, sl_r4, x, y, sum1, sum2, &
    87              sum3, r3, ddV
    88 
    89     TYPE(particle_type) ::  tmp_particle
    90     REAL, DIMENSION(:), ALLOCATABLE :: rad, weight
     104    INTEGER(iwp) ::  eclass   !:
     105    INTEGER(iwp) ::  i        !:
     106    INTEGER(iwp) ::  ii       !:
     107    INTEGER(iwp) ::  inc      !:
     108    INTEGER(iwp) ::  is       !:
     109    INTEGER(iwp) ::  j        !:
     110    INTEGER(iwp) ::  jj       !:
     111    INTEGER(iwp) ::  js       !:
     112    INTEGER(iwp) ::  k        !:
     113    INTEGER(iwp) ::  kk       !:
     114    INTEGER(iwp) ::  n        !:
     115    INTEGER(iwp) ::  pse      !:
     116    INTEGER(iwp) ::  psi      !:
     117    INTEGER(iwp) ::  rclass_l !:
     118    INTEGER(iwp) ::  rclass_s !:
     119
     120    REAL(wp) ::  aa       !:
     121    REAL(wp) ::  bb       !:
     122    REAL(wp) ::  cc       !:
     123    REAL(wp) ::  dd       !:
     124    REAL(wp) ::  ddV      !:
     125    REAL(wp) ::  delta_r  !:
     126    REAL(wp) ::  delta_v  !:
     127    REAL(wp) ::  epsilon  !:
     128    REAL(wp) ::  gg       !:
     129    REAL(wp) ::  mean_r   !:
     130    REAL(wp) ::  ql_int   !:
     131    REAL(wp) ::  ql_int_l !:
     132    REAL(wp) ::  ql_int_u !:
     133    REAL(wp) ::  r3       !:
     134    REAL(wp) ::  sl_r3    !:
     135    REAL(wp) ::  sl_r4    !:
     136    REAL(wp) ::  sum1     !:
     137    REAL(wp) ::  sum2     !:
     138    REAL(wp) ::  sum3     !:
     139    REAL(wp) ::  u_int    !:
     140    REAL(wp) ::  u_int_l  !:
     141    REAL(wp) ::  u_int_u  !:
     142    REAL(wp) ::  v_int    !:
     143    REAL(wp) ::  v_int_l  !:
     144    REAL(wp) ::  v_int_u  !:
     145    REAL(wp) ::  w_int    !:
     146    REAL(wp) ::  w_int_l  !:
     147    REAL(wp) ::  w_int_u  !:
     148    REAL(wp) ::  x        !:
     149    REAL(wp) ::  y        !:
     150
     151    REAL(wp), DIMENSION(:), ALLOCATABLE ::  rad    !:
     152    REAL(wp), DIMENSION(:), ALLOCATABLE ::  weight !:
     153
     154
     155    TYPE(particle_type) ::  tmp_particle           !:
     156
    91157
    92158
Note: See TracChangeset for help on using the changeset viewer.