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

palm/trunk/SOURCE/exchange_horiz_2d.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:
@@ -26 +32 @@
 ! $Id$
 !
-! 1318 2014-03-17 13:35:16Z raasch
-! module interfaces removed
-!
 ! 1092 2013-02-02 11:24:22Z raasch
 ! unused variables removed
@@ -37 +40 @@
 ! 841 2012-02-28 12:29:49Z maronga
 ! Excluded routine from compilation of namelist_file_check
-!
-! 707 2011-03-29 11:39:40Z raasch
-! bc_lr/ns replaced by bc_lr/ns_cyc
-! 
-! 702 2011-03-24 19:33:15Z suehring
-! Bugfix in declaration of ar in exchange_horiz_2d_int and number of MPI-blocks
-! in MPI_SENDRECV().
-!
-! 667 2010-12-23 12:06:00Z suehring/gryschka
-! Dynamic exchange of ghost points with nbgp, which depends on the advection
-! scheme. Exchange between left and right PEs is now done with MPI-vectors.
-!
-! 73 2007-03-20 08:33:14Z raasch
-! Neumann boundary conditions at inflow/outflow in case of non-cyclic boundary
-! conditions
-!
-! RCS Log replace by Id keyword, revision history cleaned up
-!
-! Revision 1.9  2006/05/12 19:15:52  letzel
-! MPI_REAL replaced by MPI_INTEGER in exchange_horiz_2d_int
 !
 ! Revision 1.1  1998/01/23 09:58:21  raasch
@@ -68 +51 @@
 !------------------------------------------------------------------------------!
 
-    USE control_parameters
-    USE cpulog
-    USE indices
+    USE control_parameters,                                                    &
+        ONLY :  inflow_l, inflow_n, inflow_r, inflow_s, outflow_l, outflow_n,  &
+                outflow_r, outflow_s
+                
+    USE cpulog,                                                                &
+        ONLY :  cpu_log, log_point_s
+        
+    USE indices,                                                               &
+        ONLY :  nbgp, nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg
+        
+    USE kinds
+    
     USE pegrid
 
@@ -76 +68 @@
 
 
-    REAL ::  ar(nysg:nyng,nxlg:nxrg)
-    INTEGER :: i
+    INTEGER(iwp) :: i  !:
+    
+    REAL(wp) ::  ar(nysg:nyng,nxlg:nxrg)  !:
+    
 
 #if ! defined( __check )
@@ -188 +182 @@
 !------------------------------------------------------------------------------!
 
-    USE control_parameters
-    USE cpulog
-    USE indices
+    USE control_parameters,                                                    &
+        ONLY:  bc_lr_cyc, bc_ns_cyc
+        
+    USE cpulog,                                                                &
+        ONLY:  cpu_log, log_point_s
+        
+    USE indices,                                                               &
+        ONLY:  nbgp, nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg
+        
+    USE kinds
+    
     USE pegrid
 
     IMPLICIT NONE
 
-    INTEGER ::  ar(nysg:nyng,nxlg:nxrg)
+    INTEGER(iwp) ::  ar(nysg:nyng,nxlg:nxrg)  !:
 
 #if ! defined( __check )