source: palm/tags/release-3.8/SOURCE/local_tremain_ini.f90 @ 4343

Last change on this file since 4343 was 484, checked in by raasch, 11 years ago

typo in file headers removed

  • Property svn:keywords set to Id
File size: 1.6 KB
Line 
1 SUBROUTINE local_tremain_ini
2
3!------------------------------------------------------------------------------!
4! Current revisions:
5! -----------------
6!
7!
8! Former revisions:
9! -----------------
10! $Id: local_tremain_ini.f90 484 2010-02-05 07:36:54Z oliver.maas $
11!
12! 225 2009-01-26 14:44:20Z raasch
13! Type of count and count_rate changed to INTEGER(8) in order to avoid out of
14! range problems (which result in measured negative time intervals)
15!
16! 82 2007-04-16 15:40:52Z raasch
17! Cpp-directive lctit renamed lc
18!
19! RCS Log replace by Id keyword, revision history cleaned up
20!
21! Revision 1.13  2007/02/11 13:07:03  raasch
22! Allowed cpu limit is now read from file instead of reading the value from
23! environment variable (see routine parin)
24!
25! Revision 1.1  1998/03/18 20:15:05  raasch
26! Initial revision
27!
28!
29! Description:
30! ------------
31! Initialization of CPU-time measurements for different operating systems
32!------------------------------------------------------------------------------!
33
34    USE control_parameters
35    USE cpulog
36
37    IMPLICIT NONE
38
39#if defined( __ibm )
40    CHARACTER (LEN=10) ::  value_chr
41    INTEGER            ::  idum
42    INTEGER(8)         ::  IRTC
43#elif defined( __lc )
44    CHARACTER (LEN=10) ::  value_chr
45    INTEGER            ::  idum
46    INTEGER(8)         ::  count, count_rate
47#endif
48
49
50!
51!-- Get initial wall clock time
52#if defined( __ibm )
53
54    initial_wallclock_time = IRTC( ) * 1E-9
55
56#elif defined( __lc )
57
58    CALL SYSTEM_CLOCK( count, count_rate )
59    initial_wallclock_time = REAL( count ) / REAL( count_rate )
60
61#else
62!
63!-- So far, nothing is done on these machines
64#endif
65
66
67 END SUBROUTINE local_tremain_ini
Note: See TracBrowser for help on using the repository browser.