source: palm/trunk/SOURCE/local_tremain_ini.f90 @ 82

Last change on this file since 82 was 82, checked in by raasch, 14 years ago

vorlaeufige Standalone-Version fuer Linux-Cluster

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