Changeset 1320 for palm/trunk/SOURCE/lpm_calc_liquid_water_content.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/lpm_calc_liquid_water_content.f90 (modified) (2 diffs)

palm/trunk/SOURCE/lpm_calc_liquid_water_content.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,
+! comment fields (!:) to be used for variable explanations added to
+! all variable declaration statements
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
-!
-! 1318 2014-03-17 13:35:16Z raasch
-! module interfaces removed
 !
 ! 1036 2012-10-22 13:43:42Z raasch
@@ -41 +42 @@
 !------------------------------------------------------------------------------!
 
-    USE arrays_3d
-    USE cloud_parameters
-    USE constants
-    USE control_parameters
-    USE cpulog
-    USE grid_variables
-    USE indices
-    USE particle_attributes
+    USE arrays_3d,                                                             &
+        ONLY:  ql, ql_v, ql_vp
+
+    USE cloud_parameters,                                                      &
+        ONLY:  rho_l
+
+    USE constants,                                                             &
+        ONLY:  pi
+
+    USE control_parameters,                                                    &
+        ONLY:  dz, message_string, rho_surface
+
+    USE cpulog,                                                                &
+        ONLY:  cpu_log, log_point_s
+
+    USE grid_variables,                                                        &
+        ONLY:  dx, dy
+
+    USE indices,                                                               &
+        ONLY:  nxl, nxr, nyn, nys, nzb, nzt
+
+    USE kinds
+
+    USE particle_attributes,                                                   &
+        ONLY:  particles, prt_count, prt_start_index
 
     IMPLICIT NONE
 
-    INTEGER ::  i, j, k, n, psi
+    INTEGER(iwp) ::  i   !:
+    INTEGER(iwp) ::  j   !:
+    INTEGER(iwp) ::  k   !:
+    INTEGER(iwp) ::  n   !:
+    INTEGER(iwp) ::  psi !: