Ignore:
Timestamp:
Mar 20, 2014 8:40:49 AM (10 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_init_sgs_tke.f90

    r1310 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! comment fields (!:) to be used for variable explanations added to
     26! all variable declaration statements
    2327!
    2428! Former revisions:
     
    4145!------------------------------------------------------------------------------!
    4246
    43     USE arrays_3d
    44     USE control_parameters
    45     USE grid_variables
    46     USE indices
    47     USE particle_attributes
     47    USE arrays_3d,                                                             &
     48        ONLY:  de_dx, de_dy, de_dz, diss, e, u, v, w, zu
     49
     50    USE grid_variables,                                                        &
     51        ONLY:  ddx, ddy
     52
     53    USE indices,                                                               &
     54        ONLY:  nbgp, ngp_2dh_outer, nx, nxl, nxr, ny, nyn, nys, nz, nzb,       &
     55                      nzb_s_inner, nzb_s_outer, nzt
     56
     57    USE kinds
     58
     59    USE particle_attributes,                                                   &
     60        ONLY:  sgs_wfu_part, sgs_wfv_part, sgs_wfw_part
     61
    4862    USE pegrid
    49     USE statistics
     63
     64    USE statistics,                                                            &
     65        ONLY:  flow_statistics_called, hom, sums, sums_l
    5066
    5167    IMPLICIT NONE
    5268
    53     INTEGER ::  i, j, k
     69    INTEGER(iwp) ::  i      !:
     70    INTEGER(iwp) ::  j      !:
     71    INTEGER(iwp) ::  k      !:
    5472
    5573
Note: See TracChangeset for help on using the changeset viewer.