/[MITgcm]/MITgcm/eesupp/src/timers.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/timers.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.11 by adcroft, Fri Sep 21 14:31:12 2001 UTC revision 1.12 by heimbach, Thu Nov 8 23:40:52 2001 UTC
# Line 14  C--   TIMER_STOP      - Stop CPU tier fo Line 14  C--   TIMER_STOP      - Stop CPU tier fo
14  C--   Routines marked "M" contain specific machine dependent code.  C--   Routines marked "M" contain specific machine dependent code.
15  C--   Routines marked "U" contain UNIX OS calls.  C--   Routines marked "U" contain UNIX OS calls.
16    
17    CGG   Modified following A. Biastoch for use with SP3. Is backwards
18    CGG   compatible. G. Gebbie, gebbie@mit.edu, 20 Oct 2001, Scripps.
19    
20  CBOP  CBOP
21  C     !ROUTINE: TIMER_INDEX  C     !ROUTINE: TIMER_INDEX
22    
# Line 465  C     wallClockTime :: Wall clock time r Line 468  C     wallClockTime :: Wall clock time r
468    
469  C     !USES:  C     !USES:
470  #ifndef TARGET_T3E  #ifndef TARGET_T3E
471  #ifndef TARGET_CRAY_VECTOR  # ifndef TARGET_CRAY_VECTOR
472    #  ifdef TARGET_PWR3
473          Real*8 system_time, user_time, timenow
474    #  else
475        Real*4 ETIME        Real*4 ETIME
476        EXTERNAL ETIME        EXTERNAL ETIME
477  #endif  #  endif
478    # endif
479  #endif  #endif
480    
481  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
# Line 481  CEOP Line 488  CEOP
488  C     Real*8 MPI_Wtime  C     Real*8 MPI_Wtime
489  C     EXTERNAL MPI_Wtime  C     EXTERNAL MPI_Wtime
490    
491  #if (defined (TARGET_T3E) || defined (TARGET_CRAY_VECTOR))  #if (defined (TARGET_PWR3))
492        userTime = 0.        userTime      = user_time()
493        systemTime = 0.        systemTime    = system_time()
494          wallClockTime = timenow()
495    #elif (defined (TARGET_T3E) || defined (TARGET_CRAY_VECTOR))
496          userTime      = 0.
497          systemTime    = 0.
498          wallClockTime = 0.
499  #else  #else
500        ACTUAL = ETIME(TARRAY)        ACTUAL = ETIME(TARRAY)
501        userTime      = TARRAY(1)        userTime      = TARRAY(1)
502        systemTime    = TARRAY(2)        systemTime    = TARRAY(2)
 #endif  
   
 #if (defined (TARGET_T3E) || defined (TARGET_CRAY_VECTOR))  
       wallClockTime = 0.  
 #else  
503        CALL CLOC(wTime)        CALL CLOC(wTime)
504        wallClockTime = wtime        wallClockTime = wtime
505  #endif  #endif
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22