Ignore:
Timestamp:
Apr 5, 2016 7:44:00 PM (5 years ago)
Author:
raasch
Message:

preprocessor directives using machine dependent flags (lc, ibm, etc.) mostly removed from the code

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/local_tremain.f90

    r1683 r1808  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! cpu measurements are done with standard FORTRAN routine on every machine
    2222!
    2323! Former revisions:
     
    6868    IMPLICIT NONE
    6969
    70     REAL(wp)     ::  remaining_time        !<
    71 #if defined( __ibm )
    72     INTEGER(idp) ::  IRTC                  !<
    73     REAL(wp)     ::  actual_wallclock_time !<
    74 #elif defined( __lc )
    7570    INTEGER(idp) ::  count                 !<
    7671    INTEGER(idp) ::  count_rate            !<
     72
    7773    REAL(wp)     ::  actual_wallclock_time !<
    78 #endif
    79 
    80 #if defined( __ibm )
    81 
    82     actual_wallclock_time = IRTC( ) * 1E-9_wp
    83     remaining_time = maximum_cpu_time_allowed - &
    84                      ( actual_wallclock_time - initial_wallclock_time )
    85 
    86 #elif defined( __lc )
     74    REAL(wp)     ::  remaining_time        !<
    8775
    8876    CALL SYSTEM_CLOCK( count, count_rate )
     
    9179                     ( actual_wallclock_time - initial_wallclock_time )
    9280
    93 #elif defined( __nec )
    94    
    95     CALL TREMAIN( remaining_time )
    96     remaining_time = remaining_time / tasks_per_node
    97 
    98 #else
    99 
    100 !
    101 !-- No stop due to running out of cpu-time on other machines
    102     remaining_time = 9999999.9_wp
    103 
    104 #endif
    105 
    10681 END SUBROUTINE local_tremain
Note: See TracChangeset for help on using the changeset viewer.