Changeset 1822 for palm/trunk/SOURCE/lpm_init_sgs_tke.f90

Timestamp:

Apr 7, 2016 7:49:42 AM (8 years ago)

Author:

hoffmann

Message:

changes in LPM and bulk cloud microphysics

File:

• palm/trunk/SOURCE/lpm_init_sgs_tke.f90 (modified) (2 diffs)

palm/trunk/SOURCE/lpm_init_sgs_tke.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! Unused variables removed.
 ! 
 ! Former revisions:
@@ -63 +63 @@
 
     USE indices,                                                               &
-        ONLY:  nbgp, ngp_2dh_outer, nx, nxl, nxr, ny, nyn, nys, nz, nzb,       &
-                      nzb_s_inner, nzb_s_outer, nzt
+        ONLY:  nbgp, ngp_2dh_outer, nxl, nxr, nyn, nys, nzb, nzb_s_inner,      &
+               nzb_s_outer, nzt
 
     USE kinds