/[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.2 by adcroft, Wed Jul 15 22:11:33 1998 UTC revision 1.3 by cnh, Tue Sep 29 18:50:56 1998 UTC
# Line 358  CEndOfInterface Line 358  CEndOfInterface
358            
359        userTime      = TARRAY(1)        userTime      = TARRAY(1)
360        systemTime    = TARRAY(2)        systemTime    = TARRAY(2)
361  #ifdef ALLOW_USE_MPI        CALL CLOC(wTime)
       wtime         = MPI_Wtime()  
362        wallClockTime = wtime        wallClockTime = wtime
363    
364    #ifdef ALLOW_USE_MPI
365    C     wtime         = MPI_Wtime()
366    C     wallClockTime = wtime
367  #endif /* ALLOW_USE_MPI */  #endif /* ALLOW_USE_MPI */
368  #ifndef ALLOW_USE_MPI  #ifndef ALLOW_USE_MPI
369        wallClockTime = 0.  C     wallClockTime = 0.
370  #endif  #endif
371                
372        RETURN        RETURN

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.22