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

palm/trunk/SOURCE/init_cloud_physics.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 mod_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:
@@ -41 +48 @@
 ! calculation of b_cond replaced by calculation of bfactor
 !
-! 221 2009-01-12 15:32:23Z raasch
-! Bugfix: abort in case that absolute temperature is below zero
-!
-! 95 2007-06-02 16:48:38Z raasch
-! hydro_press renamed hyp
-!
-! February 2007
-! RCS Log replace by Id keyword, revision history cleaned up
-!
-! Revision 1.5  2005/06/26 19:55:58  raasch
-! Initialization of cloud droplet constants, gas_constant renamed r_d,
-! latent_heat renamed l_v
-!
 ! Revision 1.1  2000/04/13 14:37:22  schroeter
 ! Initial revision
@@ -63 +57 @@
 !------------------------------------------------------------------------------!
 
-    USE arrays_3d
-    USE cloud_parameters
-    USE constants
-    USE control_parameters
-    USE grid_variables
-    USE indices
+    USE arrays_3d,                                                             &
+        ONLY:  dzu, hyp, pt_init, zu
+        
+    USE cloud_parameters,                                                      &
+        ONLY:  bfactor, cp, c_sedimentation, dpirho_l, dt_precipitation,       &
+               hyrho, l_d_cp, l_d_r, l_d_rv, l_v, mass_of_solute,              &
+               molecular_weight_of_solute, molecular_weight_of_water, pirho_l, &
+               pt_d_t, rho_l, r_d, r_v, schmidt, schmidt_p_1d3, t_d_pt,        &
+               vanthoff, w_precipitation
+        
+    USE constants,                                                             &
+        ONLY:  pi
+        
+    USE control_parameters,                                                    &
+        ONLY:  g, icloud_scheme, message_string, precipitation, pt_surface,    &
+               rho_surface, surface_pressure
+    
+    USE indices,                                                               &
+        ONLY:  nzb, nzt
+    
+    USE kinds
 
     IMPLICIT NONE
 
-    INTEGER ::  k
-    REAL    ::  t_surface
+    INTEGER(iwp) ::  k      !:
+    
+    REAL(wp) ::  t_surface  !:
 
     ALLOCATE( hyp(nzb:nzt+1), pt_d_t(nzb:nzt+1), t_d_pt(nzb:nzt+1),  &