/[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.17 by cnh, Wed Jun 30 00:58:06 2004 UTC revision 1.18 by ce107, Thu Jan 13 00:10:38 2005 UTC
# Line 472  CEH3 that is diagnosed by genmake Line 472  CEH3 that is diagnosed by genmake
472  CEH3 #ifndef HAVE_FDATE  CEH3 #ifndef HAVE_FDATE
473        Real*8 system_time, user_time, timenow        Real*8 system_time, user_time, timenow
474  CEH3 #else  CEH3 #else
475    #ifdef TARGET_AIX
476          Real*4 ETIME_
477          EXTERNAL ETIME_
478    #else
479        Real*4 ETIME        Real*4 ETIME
480        EXTERNAL ETIME        EXTERNAL ETIME
481    #endif
482  CEH3 #endif  CEH3 #endif
483    
484  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
# Line 486  CEOP Line 491  CEOP
491  C     Real*8 MPI_Wtime  C     Real*8 MPI_Wtime
492  C     EXTERNAL MPI_Wtime  C     EXTERNAL MPI_Wtime
493    
494  #if (defined (TARGET_PWR3))  CCE107 Fixed for AIX and UNICOS
495        userTime      = user_time()  #ifdef TARGET_AIX
496        systemTime    = system_time()        ACTUAL = ETIME_(TARRAY)
497          userTime      = TARRAY(1)
498          systemTime    = TARRAY(2)
499        wallClockTime = timenow()        wallClockTime = timenow()
500  #elif (defined (TARGET_T3E) || defined (TARGET_CRAY_VECTOR))  #elif (defined (TARGET_T3E) || defined (TARGET_CRAY_VECTOR))
501        userTime      = 0.        userTime      = SECOND()
502        systemTime    = 0.        systemTime    = 0.
503        wallClockTime = 0.        wallClockTime = SECONDR()
504  #else  #else
505  #ifdef HAVE_ETIME  #ifdef HAVE_ETIME
506        ACTUAL = ETIME(TARRAY)        ACTUAL = ETIME(TARRAY)
507  #else  #else
508        TARRAY(1) = 0.        TARRAY(1) = user_time()
509        TARRAY(2) = 0.        TARRAY(2) = system_time()
510  #endif  #endif
511        userTime      = TARRAY(1)        userTime      = TARRAY(1)
512        systemTime    = TARRAY(2)        systemTime    = TARRAY(2)
513  #ifdef HAVE_CLOC  #ifdef HAVE_CLOC
514        CALL CLOC(wTime)        CALL CLOC(wTime)
515  #else  #else
516        wtime = 0.        wtime = timenow()
517  #endif /* HAVE_CLOC */  #endif /* HAVE_CLOC */
518        wallClockTime = wtime        wallClockTime = wtime
519  #endif /* CRAY defines */  #endif /* CRAY defines */
520    
521  #ifdef ALLOW_USE_MPI  CCE107 Sometimes MPI_Wtime has better resolution...
522  C     wtime         = MPI_Wtime()  #if (defined (ALLOW_USE_MPI) && defined (USE_MPI_WTIME))
523  C     wallClockTime = wtime        wtime         = MPI_Wtime()
524  #endif /* ALLOW_USE_MPI */        wallClockTime = wtime
525  #ifndef ALLOW_USE_MPI  #endif /* ALLOW_USE_MPI && USE_MPI_WTIME */
 C     wallClockTime = 0.  
 #endif  
526                
527        RETURN        RETURN
528        END        END
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22