/[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.18 by ce107, Thu Jan 13 00:10:38 2005 UTC revision 1.19 by edhill, Tue Jun 7 20:52:42 2005 UTC
# Line 491  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    #ifndef IGNORE_TIME
495    
496  CCE107 Fixed for AIX and UNICOS  CCE107 Fixed for AIX and UNICOS
497  #ifdef TARGET_AIX  #ifdef TARGET_AIX
498        ACTUAL = ETIME_(TARRAY)        ACTUAL = ETIME_(TARRAY)
# Line 524  CCE107 Sometimes MPI_Wtime has better re Line 526  CCE107 Sometimes MPI_Wtime has better re
526        wallClockTime = wtime        wallClockTime = wtime
527  #endif /* ALLOW_USE_MPI && USE_MPI_WTIME */  #endif /* ALLOW_USE_MPI && USE_MPI_WTIME */
528                
529    #else   /* IGNORE_TIME */
530          wtime = 0.0
531    #endif  /* IGNORE_TIME */
532    
533        RETURN        RETURN
534        END        END
535    
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22