Ignore:
Timestamp:
Mar 20, 2014 8:40:49 AM (8 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/run_control.f90

    r1319 r1320  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! ONLY-attribute added to USE-statements,
     23! kind-parameters added to all INTEGER and REAL declaration statements,
     24! kinds are defined in new module kinds,
     25! old module precision_kind is removed,
     26! revision history before 2012 removed,
     27! comment fields (!:) to be used for variable explanations added to
     28! all variable declaration statements
    2329!
    2430! Former revisions:
     
    3844! all actions concerning leapfrog scheme removed
    3945!
    40 ! 97 2007-06-21 08:23:15Z raasch
    41 ! Timestep and z_i format changed
    42 !
    43 ! 87 2007-05-22 15:46:47Z raasch
    44 ! var_hom renamed pr_palm
    45 !
    46 ! 82 2007-04-16 15:40:52Z raasch
    47 ! Preprocessor strings for different linux clusters changed to "lc",
    48 ! routine local_flush is used for buffer flushing
    49 !
    50 ! RCS Log replace by Id keyword, revision history cleaned up
    51 !
    52 ! Revision 1.20  2006/06/02 15:23:47  raasch
    53 ! cpp-directives extended for lctit
    54 !
    5546! Revision 1.1  1997/08/11 06:25:38  raasch
    5647! Initial revision
     
    6253!------------------------------------------------------------------------------!
    6354
    64     USE cpulog
    65     USE indices
     55    USE cpulog,                                                                &
     56        ONLY:  cpu_log, log_point
     57
     58    USE control_parameters,                                                    &
     59        ONLY:  advected_distance_x, advected_distance_y,                       &
     60               current_timestep_number, disturbance_created, dt_3d, mgcycles,  &
     61               run_control_header, runnr, simulated_time, simulated_time_chr,  &
     62               timestep_reason
     63
     64    USE indices,                                                               &
     65        ONLY:  nzb
     66
    6667    USE pegrid
    67     USE statistics
    68     USE control_parameters
     68
     69    USE statistics,                                                            &
     70        ONLY:  flow_statistics_called, hom, pr_palm, u_max, u_max_ijk, v_max,  &
     71               v_max_ijk, w_max, w_max_ijk
    6972
    7073    IMPLICIT NONE
Note: See TracChangeset for help on using the changeset viewer.