Changeset 1808 for palm/trunk/UTIL


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/UTIL/combine_plot_fields.f90

    r1552 r1808  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! cpu measurements are done with standard FORTRAN routine on every machine
    2323!
    2424! Former revisions:
     
    107107                     ze, zza, zze
    108108
    109 #if defined( __lc ) || defined( __decalpha )
    110     INTEGER(8)                  ::  count, count_rate
    111 #elif defined( __nec )
    112     INTEGER(iwp)                ::  count, count_rate
    113 #elif defined( __ibm )
    114     INTEGER(8)                  ::  IRTC
    115 #endif
     109    INTEGER(8)                        ::  count, count_rate
    116110
    117111    INTEGER(iwp), DIMENSION(0:1)      ::  current_level, current_var,          &
     
    180174!
    181175!--       Take current time
    182 #if defined( __lc ) || defined( __decalpha ) || defined( __nec )
    183176          CALL SYSTEM_CLOCK( count, count_rate )
    184177          cpu_start_time = REAL( count ) / REAL( count_rate )
    185 #elif defined( __ibm )
    186           cpu_start_time = IRTC( ) * 1E-9
    187 #else
    188           PRINT*,  '+++ INFORMATIVE: no time measurement defined on this host'
    189 #endif
    190178
    191179          netcdf_parallel = .FALSE.
     
    553541!--       Output required cpu time
    554542          IF ( danz /= 0  .AND.  .NOT. netcdf_parallel )  THEN
    555 #if defined( __lc ) || defined( __decalpha ) || defined( __nec )
    556543             CALL SYSTEM_CLOCK( count, count_rate )
    557544             cpu_end_time = REAL( count ) / REAL( count_rate )
    558545             WRITE (*,'(5X,A,F9.3,A)')  'Required cpu-time: ', &
    559546                                        cpu_end_time-cpu_start_time, ' sec'
    560 #elif defined( __ibm )
    561              cpu_end_time = IRTC( ) * 1E-9
    562              WRITE (*,'(5X,A,F9.3,A)')  'Required cpu-time: ', &
    563                                         cpu_end_time-cpu_start_time, ' sec'
    564 #else
    565              CONTINUE
    566 #endif
    567547          ENDIF
    568548
     
    592572!
    593573!--    Take current time
    594 #if defined( __lc ) || defined( __decalpha ) || defined( __nec )
    595574       CALL SYSTEM_CLOCK( count, count_rate )
    596575       cpu_start_time = REAL( count ) / REAL( count_rate )
    597 #elif defined( __ibm )
    598        cpu_start_time = IRTC( ) * 1E-9
    599 #else
    600        PRINT*,  '+++ INFORMATIVE: no time measurement defined on this host'
    601 #endif
    602576
    603577!
     
    885859!
    886860!--       Output required cpu time
    887 #if defined( __lc ) || defined( __decalpha ) || defined( __nec )
    888861          CALL SYSTEM_CLOCK( count, count_rate )
    889862          cpu_end_time = REAL( count ) / REAL( count_rate )
    890863          WRITE (*,'(5X,A,F9.3,A)')  'Required cpu-time: ', &
    891864                                     cpu_end_time-cpu_start_time, ' sec'
    892 #elif defined( __ibm )
    893           cpu_end_time = IRTC( ) * 1E-9
    894           WRITE (*,'(5X,A,F9.3,A)')  'Required cpu-time: ', &
    895                                      cpu_end_time-cpu_start_time, ' sec'
    896 #endif
    897865
    898866       ENDIF
Note: See TracChangeset for help on using the changeset viewer.