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

palm/trunk/SOURCE/init_pt_anomaly.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,
+! revision history before 2012 removed,
+! comment fields (!:) to be used for variable explanations added to
+! all variable declaration statements
 !
 ! Former revisions:
@@ -32 +37 @@
 ! Modification of the amplitude to obtain a visible temperature perturbation.
 !
-! 667 2010-12-23 12:06:00Z suehring/gryschka
-! Call of exchange_horiz are modified.
-!
-! 75 2007-03-22 09:54:05Z raasch
-! 2nd+3rd argument removed from exchange horiz
-!
-! 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.7  2005/03/26 20:36:55  raasch
-! Arguments for non-cyclic boundary conditions added to argument list of
-! routine exchange_horiz
-!
 ! Revision 1.1  1997/08/29 08:58:56  raasch
 ! Initial revision
@@ -56 +46 @@
 !------------------------------------------------------------------------------!
 
-    USE arrays_3d
-    USE constants
-    USE grid_variables
-    USE indices
-    USE control_parameters
+    USE arrays_3d,                                                             &
+        ONLY:  pt, zu
+
+    USE grid_variables,                                                        &
+        ONLY:  dx, dy
+
+    USE indices,                                                               &
+        ONLY:  nbgp, nx, nxl, nxr, nyn, nys, nzb, nzt
+        
+    USE kinds
 
     IMPLICIT NONE
 
-    INTEGER ::  i, ic, j, jc, k, kc
-    REAL    ::  betrag, radius, rc, x, y, z
-
+    INTEGER(iwp) ::  i  !:
+    INTEGER(iwp) ::  ic !:
+    INTEGER(iwp) ::  j  !:
+    INTEGER(iwp) ::  jc !:
+    INTEGER(iwp) ::  k  !:
+    INTEGER(iwp) ::  kc !:
+    
+    REAL(wp)     ::  betrag !:
+    REAL(wp)     ::  radius !:
+    REAL(wp)     ::  rc     !:
+    REAL(wp)     ::  x      !:
+    REAL(wp)     ::  y      !:
+    REAL(wp)     ::  z      !:
+    
 !
 !-- Defaults: radius rc, strength z,