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

palm/trunk/SOURCE/local_stop.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! ONLY-attribute added to USE-statements,
+! revision history before 2012 removed,
 !
 ! Former revisions:
@@ -35 +36 @@
 ! New cpp directive "__check" implemented which is used by check_namelist_files
 !
-! 667 2010-12-23 12:06:00Z suehring/gryschka
-! Exchange of terminate_coupled between ocean and atmosphere via PE0
-!
-! 213 2008-11-13 10:26:18Z raasch
-! Implementation of a MPI-1 coupling: replaced myid with target_id.
-! The uncoupled case allows stop or mpi_abort depending on new steering
-! parameter abort_mode, which is set in routine message.
-!
-! 147 2008-02-01 12:41:46Z raasch
-! Bugfix: a stop command was missing in some cases of the parallel branch
-!
-! 108 2007-08-24 15:10:38Z letzel
-! modifications to terminate coupled runs
-!
-! RCS Log replace by Id keyword, revision history cleaned up
-!
-! Revision 1.2  2003/03/16 09:40:28  raasch
-! Two underscores (_) are placed in front of all define-strings
-!
 ! Revision 1.1  2002/12/19 15:46:23  raasch
 ! Initial revision
@@ -64 +46 @@
 
     USE pegrid
-    USE control_parameters
+    
+    USE control_parameters,                                                    &
+        ONLY:  abort_mode, coupling_mode, coupling_mode_remote, dt_restart,    &
+               stop_dt, terminate_coupled, terminate_coupled_remote,           &
+               terminate_run, time_restart