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

palm/trunk/SOURCE/swap_timelevel.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! ONLY-attribute added to USE-statements,
+! revision history before 2012 removed,
 !
 ! Former revisions:
@@ -50 +51 @@
 ! all actions concerning leapfrog scheme removed
 !
-! 102 2007-07-27 09:09:17Z raasch
-! swaping of uswst, vswst included
-!
-! 95 2007-06-02 16:48:38Z raasch
-! Swaping of salinity
-!
-! 75 2007-03-22 09:54:05Z raasch
-! moisture renamed humidity
-!
-! 19 2007-02-23 04:53:48Z raasch
-! Swaping of top fluxes
-!
-! RCS Log replace by Id keyword, revision history cleaned up
-!
-! Revision 1.8  2004/01/28 15:28:18  raasch
-! Swaping for Runge-Kutta schemes implemented
-!
 ! Revision 1.1  2000/01/10  10:08:58  10:08:58  raasch (Siegfried Raasch)
 ! Initial revision
@@ -76 +60 @@
 !------------------------------------------------------------------------------!
 
-    USE arrays_3d
-    USE cpulog
-    USE control_parameters
+    USE arrays_3d,                                                             &
+        ONLY:  e, e_1, e_2, e_p, nr, nr_1, nr_2, nr_p, pt, pt_1, pt_2, pt_p, q,&
+               q_1, q_2, q_p, qr, qr_1, qr_2, qr_p, sa, sa_1, sa_2, sa_p, u,   &
+               u_1, u_2, u_p, v, v_1, v_2, v_p, w, w_1, w_2, w_p
+
+    USE cpulog,                                                                &
+        ONLY: cpu_log, log_point
+
+    USE control_parameters,                                                    &
+        ONLY:  cloud_physics, constant_diffusion, humidity, icloud_scheme,     &
+               neutral, ocean, passive_scalar, precipitation, timestep_count
 
     IMPLICIT NONE