Changeset 1320 for palm/trunk/SOURCE/lpm_init_sgs_tke.f90
- Timestamp:
- Mar 20, 2014 8:40:49 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/lpm_init_sgs_tke.f90
r1310 r1320 20 20 ! Current revisions: 21 21 ! ------------------ 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 23 27 ! 24 28 ! Former revisions: … … 41 45 !------------------------------------------------------------------------------! 42 46 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 48 62 USE pegrid 49 USE statistics 63 64 USE statistics, & 65 ONLY: flow_statistics_called, hom, sums, sums_l 50 66 51 67 IMPLICIT NONE 52 68 53 INTEGER :: i, j, k 69 INTEGER(iwp) :: i !: 70 INTEGER(iwp) :: j !: 71 INTEGER(iwp) :: k !: 54 72 55 73
Note: See TracChangeset
for help on using the changeset viewer.