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

palm/trunk/SOURCE/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,
+! revision history before 2012 removed,
+! comment fields (!:) to be used for variable explanations added to
+! all variable declaration statements
 !
 ! Former revisions:
@@ -38 +43 @@
 ! code put under GPL (PALM 3.9)
 !
-! 667 2010-12-23 12:06:00Z suehring/gyschka
-! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
-!
-! 95 2007-06-02 16:48:38Z raasch
-! hydro_press renamed hyp
-!
-! 19 2007-02-23 04:53:48Z raasch
-! Old comment removed
-!
-! RCS Log replace by Id keyword, revision history cleaned up
-!
-! Revision 1.5  2005/03/26 15:22:06  raasch
-! Arguments for non-cyclic boundary conditions added to argument list of
-! routine exchange_horiz,
-! ql calculated for the ghost points, exchange of ghost points removed
-!
 ! Revision 1.1  2000/04/13 14:50:45  schroeter
 ! Initial revision
@@ -67 +56 @@
 
 
-    USE arrays_3d
-    USE cloud_parameters
-    USE constants
-    USE control_parameters
-    USE grid_variables
-    USE indices
+    USE arrays_3d,                                                             &
+        ONLY:  hyp, pt, q, qc, ql, qr
+
+    USE cloud_parameters,                                                      &
+        ONLY:  l_d_cp, l_d_r, t_d_pt
+
+    USE control_parameters,                                                    &
+        ONLY:  icloud_scheme, precipitation
+
+    USE indices,                                                               &
+        ONLY:  nxlg, nxrg, nyng, nysg, nzb_s_inner, nzt
+
+    USE kinds
+
     USE pegrid
+
 
     IMPLICIT NONE
 
-    INTEGER :: i, j, k
+    INTEGER(iwp) ::  i !:
+    INTEGER(iwp) ::  j !:
+    INTEGER(iwp) ::  k !:
 
-    REAL :: alpha, e_s, q_s, t_l
+    REAL(wp) ::  alpha !:
+    REAL(wp) ::  e_s   !:
+    REAL(wp) ::  q_s   !:
+    REAL(wp) ::  t_l   !:
 
     DO  i = nxlg, nxrg
@@ -91 +94 @@
 !
 !--          Compute saturation water vapor pressure at t_l
-             e_s = 610.78 * EXP( 17.269 * ( t_l - 273.16 ) / &
+             e_s = 610.78 * EXP( 17.269 * ( t_l - 273.16 ) /                   &
                                           ( t_l - 35.86 ) )