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

palm/trunk/SOURCE/interaction_droplets_ptq.f90

@@ -60 +60 @@
     SUBROUTINE interaction_droplets_ptq
 
-       USE arrays_3d
-       USE cloud_parameters
-       USE control_parameters
-       USE indices
+       USE arrays_3d,                                                          &
+           ONLY:  pt_p, ql_c, q_p
+           
+       USE cloud_parameters,                                                   &
+           ONLY:  l_d_cp, pt_d_t
+           
+       USE indices,                                                            &
+           ONLY:  nxl, nxr, nyn, nys, nzb_2d, nzt
+           
+       USE kinds
 
        USE pegrid
@@ -69 +75 @@
        IMPLICIT NONE
 
-       INTEGER ::  i, j, k
+       INTEGER(iwp) ::  i !:
+       INTEGER(iwp) ::  j !:
+       INTEGER(iwp) ::  k !:
 
  
@@ -89 +97 @@
     SUBROUTINE interaction_droplets_ptq_ij( i, j )
 
-       USE arrays_3d
-       USE cloud_parameters
-       USE control_parameters
-       USE indices
+       USE arrays_3d,                                                          &
+           ONLY:  pt_p, ql_c, q_p
+
+       USE cloud_parameters,                                                   &
+           ONLY:  l_d_cp, pt_d_t
+
+       USE indices,                                                            &
+           ONLY:  nxl, nxr, nyn, nys, nzb_2d, nzt
+
+       USE kinds,                                                              &
+           ONLY:  iwp, wp
 
        USE pegrid
@@ -98 +113 @@
        IMPLICIT NONE
 
-       INTEGER ::  i, j, k
+       INTEGER(iwp) ::  i !:
+       INTEGER(iwp) ::  j !:
+       INTEGER(iwp) ::  k !: