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/local_tremain_ini.f90

    r1310 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! revision history before 2012 removed,
     26! comment fields (!:) to be used for variable explanations added to
     27! all variable declaration statements
    2328!
    2429! Former revisions:
     
    3237! code put under GPL (PALM 3.9)
    3338!
    34 ! 225 2009-01-26 14:44:20Z raasch
    35 ! Type of count and count_rate changed to INTEGER(8) in order to avoid out of
    36 ! range problems (which result in measured negative time intervals)
    37 !
    38 ! 82 2007-04-16 15:40:52Z raasch
    39 ! Cpp-directive lctit renamed lc
    40 !
    41 ! RCS Log replace by Id keyword, revision history cleaned up
    42 !
    43 ! Revision 1.13  2007/02/11 13:07:03  raasch
    44 ! Allowed cpu limit is now read from file instead of reading the value from
    45 ! environment variable (see routine parin)
    46 !
    4739! Revision 1.1  1998/03/18 20:15:05  raasch
    4840! Initial revision
     
    5345! Initialization of CPU-time measurements for different operating systems
    5446!------------------------------------------------------------------------------!
    55 
    56     USE control_parameters
    57     USE cpulog
     47     
     48    USE cpulog,                                                                &
     49        ONLY:  initial_wallclock_time
     50       
     51    USE kinds
    5852
    5953    IMPLICIT NONE
    6054
    6155#if defined( __ibm )
    62     INTEGER(8)         ::  IRTC
     56    INTEGER(idp)     ::  IRTC       !:
    6357#elif defined( __lc )
    64     INTEGER(8)         ::  count, count_rate
     58    INTEGER(idp)     ::  count      !:
     59    INTEGER(idp)     ::  count_rate !:
    6560#endif
    6661
Note: See TracChangeset for help on using the changeset viewer.