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

palm/trunk/SOURCE/disturb_heatflux.f90

@@ -16 +16 @@
 !
 ! Copyright 1997-2014 Leibniz Universitaet Hannover
-!--------------------------------------------------------------------------------!
+!------------------------------------------------------------------------------!
 !
 ! 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:
@@ -26 +32 @@
 ! $Id$
 !
-! 1318 2014-03-17 13:35:16Z raasch
-! module interfaces removed
-!
 ! 1036 2012-10-22 13:43:42Z raasch
 ! code put under GPL (PALM 3.9)
-!
-! 555 2010-09-07 07:32:53Z raasch
-! Bugfix in if statement
-!
-! RCS Log replace by Id keyword, revision history cleaned up
-!
-! Revision 1.7  2006/08/04 14:35:07  raasch
-! Additional parameter in function random_gauss which limits the range of the
-! created random numbers, izuf renamed iran
 !
 ! Revision 1.1  1998/03/25 20:03:47  raasch
@@ -54 +48 @@
 !------------------------------------------------------------------------------!
 
-    USE arrays_3d
-    USE control_parameters
-    USE cpulog
-    USE grid_variables
-    USE indices
+    USE arrays_3d,                                                             &
+        ONLY:  shf
+        
+    USE control_parameters,                                                    &
+        ONLY:  iran, surface_heatflux, wall_heatflux
+        
+    USE cpulog,                                                                &
+        ONLY:  cpu_log, log_point
+        
+    USE kinds
+    
+    USE indices,                                                               &
+        ONLY:  nx, nxl, nxr, ny, nyn, nys, nzb_s_inner
 
     IMPLICIT NONE
 
-    INTEGER ::  i, j
-    REAL    ::  random_gauss, randomnumber
+    INTEGER(iwp) ::  j  !:
+    INTEGER(iwp) ::  i  !:
+    
+    REAL(wp) ::  random_gauss  !:
+    REAL(wp) ::  randomnumber  !:
 
 
@@ -73 +78 @@
        DO  j = 0, ny
           randomnumber = random_gauss( iran, 5.0 )
-          IF ( nxl <= i  .AND.  nxr >= i  .AND.  nys <= j  .AND.  nyn >= j ) &
+          IF ( nxl <= i  .AND.  nxr >= i  .AND.  nys <= j  .AND.  nyn >= j )   &
           THEN
              IF ( nzb_s_inner(j,i) == 0 )  THEN