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

palm/trunk/SOURCE/run_control.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:
@@ -38 +44 @@
 ! all actions concerning leapfrog scheme removed
 !
-! 97 2007-06-21 08:23:15Z raasch
-! Timestep and z_i format changed
-!
-! 87 2007-05-22 15:46:47Z raasch
-! var_hom renamed pr_palm
-!
-! 82 2007-04-16 15:40:52Z raasch
-! Preprocessor strings for different linux clusters changed to "lc",
-! routine local_flush is used for buffer flushing
-!
-! RCS Log replace by Id keyword, revision history cleaned up
-!
-! Revision 1.20  2006/06/02 15:23:47  raasch
-! cpp-directives extended for lctit
-!
 ! Revision 1.1  1997/08/11 06:25:38  raasch
 ! Initial revision
@@ -62 +53 @@
 !------------------------------------------------------------------------------!
 
-    USE cpulog
-    USE indices
+    USE cpulog,                                                                &
+        ONLY:  cpu_log, log_point
+
+    USE control_parameters,                                                    &
+        ONLY:  advected_distance_x, advected_distance_y,                       &
+               current_timestep_number, disturbance_created, dt_3d, mgcycles,  &
+               run_control_header, runnr, simulated_time, simulated_time_chr,  &
+               timestep_reason
+
+    USE indices,                                                               &
+        ONLY:  nzb
+
     USE pegrid
-    USE statistics
-    USE control_parameters
+
+    USE statistics,                                                            &
+        ONLY:  flow_statistics_called, hom, pr_palm, u_max, u_max_ijk, v_max,  &
+               v_max_ijk, w_max, w_max_ijk
 
     IMPLICIT NONE