Changeset 1320 for palm/trunk/SOURCE/palm.f90

Timestamp:

Mar 20, 2014 8:40:49 AM (7 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/palm.f90 (modified) (4 diffs)

palm/trunk/SOURCE/palm.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:
@@ -59 +65 @@
 ! 849 2012-03-15 10:35:09Z raasch
 ! write_particles renamed lpm_write_restart_file
-!
-! 759 2011-09-15 13:58:31Z raasch
-! Splitting of parallel I/O, cpu measurement for write_3d_binary and opening
-! of unit 14 moved to here
-!
-! 495 2010-03-02 00:40:15Z raasch
-! Particle data for restart runs are only written if write_binary=.T..
-!
-! 215 2008-11-18 09:54:31Z raasch
-! Initialization of coupled runs modified for MPI-1 and moved to external
-! subroutine init_coupling
-!
-! 197 2008-09-16 15:29:03Z raasch
-! Workaround for getting information about the coupling mode
-!
-! 108 2007-08-24 15:10:38Z letzel
-! Get coupling mode from environment variable, change location of debug output
-!
-! 75 2007-03-22 09:54:05Z raasch
-! __vtk directives removed, write_particles is called only in case of particle
-! advection switched on, open unit 9 for debug output,
-! setting of palm version moved from modules to here
-!
-! RCS Log replace by Id keyword, revision history cleaned up
-!
-! Revision 1.10  2006/08/04 14:53:12  raasch
-! Distibution of run description header removed, call of header moved behind
-! init_3d_model
-!
-! Revision 1.2  2001/01/25 07:15:06  raasch
-! Program name changed to PALM, module test_variables removed.
-! Initialization of dvrp logging as well as exit of dvrp moved to new
-! subroutines init_dvrp_logging and close_dvrp (file init_dvrp.f90)
 !
 ! Revision 1.1  1997/07/24 11:23:35  raasch
@@ -108 +81 @@
 
 
-    USE arrays_3d
-    USE constants
-    USE control_parameters
-    USE cpulog
-    USE dvrp_variables
-    USE grid_variables
-    USE indices
-    USE ls_forcing_mod
-    USE model_1d
-    USE nudge_mod
-    USE particle_attributes
+    USE control_parameters,                                                    &
+        ONLY:  coupling_char, coupling_mode, do2d_at_begin, do3d_at_begin,     &
+               io_blocks, io_group, large_scale_forcing, nudging,              &
+               simulated_time, simulated_time_chr, version, write_binary
+
+    USE cpulog,                                                                &
+        ONLY:  cpu_log, log_point, cpu_statistics
+
+    USE kinds
+
+    USE ls_forcing_mod,                                                        &
+        ONLY:  init_ls_forcing
+
+    USE nudge_mod,                                                             &
+        ONLY:  init_nudge
+
+    USE particle_attributes,                                                   &
+        ONLY:  particle_advection
+
     USE pegrid
-    USE spectrum
-    USE statistics
 
 #if defined( __openacc )
@@ -131 +110 @@
 !
 !-- Local variables
-    CHARACTER (LEN=9) ::  time_to_string
-    INTEGER           ::  i
+    CHARACTER(LEN=9) ::  time_to_string  !:
+    INTEGER(iwp)     ::  i               !:
 #if defined( __openacc )
-    REAL, DIMENSION(100) ::  acc_dum
+    REAL(wp), DIMENSION(100) ::  acc_dum     !:
 #endif