Changeset 1320 for palm/trunk/SOURCE/sum_up_3d_data.f90

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:

• palm/trunk/SOURCE/sum_up_3d_data.f90 (modified) (3 diffs)

palm/trunk/SOURCE/sum_up_3d_data.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! 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 
 !
 ! Former revisions:
@@ -44 +50 @@
 ! 978 2012-08-09 08:28:32Z fricke
 ! +z0h*
-!
-! 790 2011-11-29 03:11:20Z raasch
-! bugfix: calculation of 'pr' must depend on the particle weighting factor
-!
-! 771 2011-10-27 10:56:21Z heinze
-! +lpt_av
-!
-! 667 2010-12-23 12:06:00Z suehring/gryschka
-! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
-!
-! 402 2009-10-21 11:59:41Z maronga
-! Bugfix in calculation of shf*_av, qsws*_av
-!
-! 2009-08-25 08:35:52Z maronga
-! +shf*, qsws*
-!
-! 96 2007-06-04 08:07:41Z raasch
-! +sum-up of density and salinity
-!
-! 72 2007-03-19 08:20:46Z raasch
-! +sum-up of precipitation rate and roughness length (prr*, z0*)
-!
-! RCS Log replace by Id keyword, revision history cleaned up
 !
 ! Revision 1.1  2006/02/23 12:55:23  raasch
@@ -78 +61 @@
 !------------------------------------------------------------------------------!
 
-    USE arrays_3d
-    USE averaging
-    USE cloud_parameters
-    USE control_parameters
-    USE cpulog
-    USE indices
-    USE particle_attributes
+    USE arrays_3d,                                                             &
+        ONLY:  dzw, e, nr, p, pt, q, qc, ql, ql_c, ql_v, qr, qsws, rho, sa,    &
+               shf, ts, u, us, v, vpt, w, z0, z0h
+
+    USE averaging,                                                             &
+        ONLY:  e_av, lpt_av, lwp_av, nr_av, p_av, pc_av, pr_av, prr_av,        &
+               precipitation_rate_av, pt_av, q_av, qc_av, ql_av, ql_c_av,      &
+               ql_v_av, ql_vp_av, qr_av, qsws_av, qv_av, rho_av, s_av, sa_av,  &
+               shf_av, ts_av, u_av, us_av, v_av, vpt_av, w_av, z0_av, z0h_av
+
+    USE cloud_parameters,                                                      &
+        ONLY:  l_d_cp, precipitation_rate, pt_d_t 
+
+    USE control_parameters,                                                    &
+        ONLY:  average_count_3d, cloud_physics, doav, doav_n
+
+    USE cpulog,                                                                &
+        ONLY:  cpu_log, log_point
+
+    USE indices,                                                               &
+        ONLY:  nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt 
+
+    USE kinds
+
+    USE particle_attributes,                                                   &
+        ONLY:  particles, prt_count, prt_start_index
 
     IMPLICIT NONE
 
-    INTEGER ::  i, ii, j, k, n, psi
-
-    REAL    ::  mean_r, s_r3, s_r4
-
+    INTEGER(iwp) ::  i   !: 
+    INTEGER(iwp) ::  ii  !: 
+    INTEGER(iwp) ::  j   !: 
+    INTEGER(iwp) ::  k   !: 
+    INTEGER(iwp) ::  n   !: 
+    INTEGER(iwp) ::  psi !: 
+
+    REAL(wp)     ::  mean_r !: 
+    REAL(wp)     ::  s_r3   !: 
+    REAL(wp)     ::  s_r4   !: 
 
     CALL cpu_log (log_point(34),'sum_up_3d_data','start')