Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/local_stop.f90

    r1310 r1320  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! ONLY-attribute added to USE-statements,
     23! revision history before 2012 removed,
    2324!
    2425! Former revisions:
     
    3536! New cpp directive "__check" implemented which is used by check_namelist_files
    3637!
    37 ! 667 2010-12-23 12:06:00Z suehring/gryschka
    38 ! Exchange of terminate_coupled between ocean and atmosphere via PE0
    39 !
    40 ! 213 2008-11-13 10:26:18Z raasch
    41 ! Implementation of a MPI-1 coupling: replaced myid with target_id.
    42 ! The uncoupled case allows stop or mpi_abort depending on new steering
    43 ! parameter abort_mode, which is set in routine message.
    44 !
    45 ! 147 2008-02-01 12:41:46Z raasch
    46 ! Bugfix: a stop command was missing in some cases of the parallel branch
    47 !
    48 ! 108 2007-08-24 15:10:38Z letzel
    49 ! modifications to terminate coupled runs
    50 !
    51 ! RCS Log replace by Id keyword, revision history cleaned up
    52 !
    53 ! Revision 1.2  2003/03/16 09:40:28  raasch
    54 ! Two underscores (_) are placed in front of all define-strings
    55 !
    5638! Revision 1.1  2002/12/19 15:46:23  raasch
    5739! Initial revision
     
    6446
    6547    USE pegrid
    66     USE control_parameters
     48   
     49    USE control_parameters,                                                    &
     50        ONLY:  abort_mode, coupling_mode, coupling_mode_remote, dt_restart,    &
     51               stop_dt, terminate_coupled, terminate_coupled_remote,           &
     52               terminate_run, time_restart
    6753
    6854
Note: See TracChangeset for help on using the changeset viewer.