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

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

New:
---

Changed:


PALM can be generally installed on any kind of Linux-, IBM-AIX-, or NEC-SX-system by adding appropriate settings to the configuration file.

Scripts are also running under the public domain ksh.

All system relevant compile and link options as well as the host identifier (local_host) are specified in the configuration file.

Filetransfer by ftp removed (options -f removed from mrun and mbuild).

Call of (system-)FLUSH routine moved to new routine local_flush.

return_addres and return_username are read from ENVPAR-NAMELIST-file instead of using local_getenv.

Preprocessor strings for different linux clusters changed to "lc", some preprocessor directives renamed (new: intel_openmp_bug), preprocessor directives for old systems removed

advec_particles, check_open, cpu_log, cpu_statistics, data_output_dvrp, flow_statistics, header, init_dvrp, init_particles, init_1d_model, init_dvrp, init_pegrid, local_getenv, local_system, local_tremain, local_tremain_ini, modules, palm, parin, run_control

new:
local_flush

mbuild, mrun

Errors:


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