Changeset 1320 for palm/trunk/SOURCE/inflow_turbulence.f90

Timestamp:

Mar 20, 2014 8:40:49 AM (9 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/inflow_turbulence.f90 (modified) (5 diffs)

palm/trunk/SOURCE/inflow_turbulence.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 
+!
+! module interfaces removed
 !
 ! Former revisions:
@@ -26 +34 @@
 ! $Id$
 !
-! 1318 2014-03-17 13:35:16Z raasch
-! module interfaces removed
-!
 ! 1092 2013-02-02 11:24:22Z raasch
 ! unused variables removed
@@ -34 +39 @@
 ! 1036 2012-10-22 13:43:42Z raasch
 ! code put under GPL (PALM 3.9)
-!
-! 709 2011-03-30 09:31:40Z raasch
-! formatting adjustments
-!
-! 667 2010-12-23 12:06:00Z suehring/gryschka
-! Using nbgp recycling planes for a better resolution of the turbulent flow 
-! near the inflow.
-!
-! 622 2010-12-10 08:08:13Z raasch
-! optional barriers included in order to speed up collective operations
-!
-! 222 2009-01-12 16:04:16Z letzel
-! Bugfix for nonparallel execution
 !
 ! Initial version (2008/03/07)
@@ -56 +48 @@
 !------------------------------------------------------------------------------!
 
-    USE arrays_3d
-    USE control_parameters
-    USE cpulog
-    USE grid_variables
-    USE indices
+    USE arrays_3d,                                                             &
+        ONLY:  e, inflow_damping_factor, mean_inflow_profiles, pt, u, v, w
+        
+    USE control_parameters,                                                    &
+        ONLY:  recycling_plane
+        
+    USE cpulog,                                                                &
+        ONLY:  cpu_log, log_point
+        
+    USE grid_variables,                                                        &
+        ONLY:  
+        
+    USE indices,                                                               &
+        ONLY:  nbgp, nxl, ny, nyn, nys, nyng, nysg, nzb, nzt
+        
+    USE kinds
+    
     USE pegrid
 
@@ -66 +70 @@
     IMPLICIT NONE
 
-    INTEGER ::  i, j, k, l, ngp_ifd, ngp_pr
-
-    REAL, DIMENSION(nzb:nzt+1,5,nbgp) ::  avpr, avpr_l
-    REAL, DIMENSION(nzb:nzt+1,nysg:nyng,5,nbgp) ::  inflow_dist
+    INTEGER(iwp) ::  i        !:
+    INTEGER(iwp) ::  j        !:
+    INTEGER(iwp) ::  k        !:
+    INTEGER(iwp) ::  l        !:
+    INTEGER(iwp) ::  ngp_ifd  !:
+    INTEGER(iwp) ::  ngp_pr   !:
+
+    REAL(wp), DIMENSION(nzb:nzt+1,5,nbgp)           ::                         &
+       avpr, avpr_l  !:
+    REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,5,nbgp) ::                         &
+       inflow_dist   !:
 
     CALL cpu_log( log_point(40), 'inflow_turbulence', 'start' )