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

palm/trunk/SOURCE/compute_vpt.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:
@@ -32 +38 @@
 ! Bugfix: wrong factor in calculation of vpt in case of cloud droplets
 !
-! 799 2011-12-21 17:48:03Z franke
-! Bugfix: ql is now included in calculation of vpt in case of 
-!         cloud droplets 
-!
-! RCS Log replace by Id keyword, revision history cleaned up
-!
-! Revision 1.5  2001/03/30 06:58:52  raasch
-! Translation of remaining German identifiers (variables, subroutines, etc.)
-!
 ! Revision 1.1  2000/04/13 14:40:53  schroeter
 ! Initial revision
@@ -48 +45 @@
 ! -------------
 ! Computation of the virtual potential temperature 
-!-------------------------------------------------------------------------------!
+!------------------------------------------------------------------------------!
 
-    USE arrays_3d
-    USE indices
-    USE cloud_parameters
-    USE control_parameters
+    USE arrays_3d,                                                             &
+        ONLY:  pt, q, ql, vpt
+        
+    USE indices,                                                               &
+        ONLY:  nzb, nzt
+        
+    USE cloud_parameters,                                                      &
+        ONLY:  l_d_cp, pt_d_t
+        
+    USE control_parameters,                                                    &
+        ONLY:  cloud_droplets, cloud_physics
+        
+    USE kinds
 
     IMPLICIT NONE
 
-    INTEGER :: k
+    INTEGER(iwp) :: k   !: 
 
-    IF ( .NOT. cloud_physics .AND. .NOT. cloud_droplets ) THEN
+    IF ( .NOT. cloud_physics  .AND.  .NOT. cloud_droplets )  THEN
        vpt = pt * ( 1.0 + 0.61 * q )
-    ELSE IF (cloud_physics) THEN
+    ELSE IF (cloud_physics)  THEN
        DO  k = nzb, nzt+1
-          vpt(k,:,:) = ( pt(k,:,:) + pt_d_t(k) * l_d_cp * ql(k,:,:) ) * &
+          vpt(k,:,:) = ( pt(k,:,:) + pt_d_t(k) * l_d_cp * ql(k,:,:) ) *        &
                        ( 1.0 + 0.61 * q(k,:,:) - 1.61 * ql(k,:,:) ) 
        ENDDO