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

palm/trunk/SOURCE/init_coupling.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)
-!
-! 709 2011-03-30 09:31:40Z raasch
-! formatting adjustments
-!
-! 691 2011-03-04 08:45:30Z maronga
-! Bugfix: combine_plot_fields did not work with data_output_2d_on_each_pe = .T.
-! for precursor ocean runs
-!
-! 667 2010-12-23 12:06:00Z suehring/gryschka
-! determination of target_id's moved to init_pegrid
-!
-! 291 2009-04-16 12:07:26Z raasch
-! Coupling with independent precursor runs.
 !
 ! 222 2009-01-12 16:04:16Z letzel
@@ -51 +44 @@
 !------------------------------------------------------------------------------!
 
+    USE control_parameters,                                                    &
+        ONLY:  coupling_char, coupling_mode
+        
+    USE kinds
+    
     USE pegrid
-    USE control_parameters
-    USE indices
 
     IMPLICIT NONE
@@ -59 +55 @@
 !
 !-- Local variables
-    INTEGER               ::  i, inter_color
-    INTEGER, DIMENSION(:) ::  bc_data(0:3) = 0
+    INTEGER(iwp) ::  i            !:
+    INTEGER(iwp) ::  inter_color  !:
+    
+    INTEGER(iwp), DIMENSION(:) ::  bc_data(0:3) = 0  !:
 
 !