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

palm/trunk/SOURCE/impact_of_latent_heat.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:
@@ -28 +34 @@
 ! 1036 2012-10-22 13:43:42Z raasch
 ! code put under GPL (PALM 3.9)
-!
-! 72 2007-03-19 08:20:46Z
-! precipitation_rate renamed dqdt_precip
-!
-! 19 2007-02-23 04:53:48Z raasch
-! Calculation extended for gridpoint nzt
-! 
-! RCS Log replace by Id keyword, revision history cleaned up
-!
-! Revision 1.5  2004/01/30 10:25:59  raasch
-! Scalar lower k index nzb replaced by 2d-array nzb_2d
 !
 ! Revision 1.1  2000/04/13 14:48:40  schroeter
@@ -66 +61 @@
     SUBROUTINE impact_of_latent_heat
 
-       USE arrays_3d
-       USE cloud_parameters
-       USE constants
-       USE indices
+       USE arrays_3d,                                                          &
+           ONLY:  ql, tend
+           
+       USE cloud_parameters,                                                   &
+           ONLY:  l_d_cp, prec_time_const, pt_d_t, ql_crit
+           
+       USE indices,                                                            &
+           ONLY:  nxl, nxr, nyn, nys, nzb_2d, nzt
+           
+       USE kinds
 
        IMPLICIT NONE
 
-       INTEGER ::  i, j, k
-       REAL    ::  dqdt_precip
+       INTEGER(iwp) ::  i  !:
+       INTEGER(iwp) ::  j  !:
+       INTEGER(iwp) ::  k  !:
+       
+       REAL(wp) ::  dqdt_precip  !:
 
  
@@ -100 +104 @@
     SUBROUTINE impact_of_latent_heat_ij( i, j )
 
-       USE arrays_3d
-       USE cloud_parameters
-       USE constants
-       USE indices
+       USE arrays_3d,                                                          &
+           ONLY:  ql, tend
+           
+       USE cloud_parameters,                                                   &
+           ONLY:  l_d_cp, prec_time_const, pt_d_t, ql_crit
+           
+       USE indices,                                                            &
+           ONLY:  nzb_2d, nzt
+           
+       USE kinds                                                               
    
        IMPLICIT NONE
 
-       INTEGER ::  i, j, k
-       REAL    ::  dqdt_precip
+       INTEGER(iwp) ::  i  !:
+       INTEGER(iwp) ::  j  !:
+       INTEGER(iwp) ::  k  !:
+       
+       REAL(wp) ::  dqdt_precip  !: