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.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:
     
    2833! 1036 2012-10-22 13:43:42Z raasch
    2934! code put under GPL (PALM 3.9)
    30 !
    31 ! 225 2009-01-26 14:44:20Z raasch
    32 ! Type of count and count_rate changed to INTEGER(8) in order to avoid out of
    33 ! range problems (which result in measured negative time intervals)
    34 !
    35 ! 82 2007-04-16 15:40:52Z raasch
    36 ! Preprocessor strings for different linux clusters changed to "lc",
    37 ! preprocessor directives for old systems removed
    38 !
    39 ! RCS Log replace by Id keyword, revision history cleaned up
    40 !
    41 ! Revision 1.14  2006/06/02 15:20:33  raasch
    42 ! Extended to TIT Sun Fire X4600 System (lctit)
    4335!
    4436! Revision 1.1  1998/03/18 20:14:47  raasch
     
    5143!------------------------------------------------------------------------------!
    5244
    53     USE control_parameters
    54     USE cpulog
     45    USE control_parameters,                                                    &
     46        ONLY:  maximum_cpu_time_allowed
     47
     48    USE cpulog,                                                                &
     49        ONLY:  initial_wallclock_time
     50
     51    USE kinds
     52
    5553    USE pegrid
    5654
    5755    IMPLICIT NONE
    5856
    59     REAL ::  remaining_time
     57    REAL(wp)     ::  remaining_time        !:
    6058#if defined( __ibm )
    61     INTEGER(8) ::  IRTC
    62     REAL       ::  actual_wallclock_time
     59    INTEGER(idp) ::  IRTC                  !:
     60    REAL(wp)     ::  actual_wallclock_time !:
    6361#elif defined( __lc )
    64     INTEGER(8) ::  count, count_rate
    65     REAL       ::  actual_wallclock_time
     62    INTEGER(idp) ::  count                 !:
     63    INTEGER(idp) ::  count_rate            !:
     64    REAL(wp)     ::  actual_wallclock_time !:
    6665#endif
    6766
Note: See TracChangeset for help on using the changeset viewer.