/[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.29 by jmc, Tue Dec 8 21:44:41 2009 UTC revision 1.30 by jmc, Sun Jan 19 14:33:43 2014 UTC
# Line 732  C Line 732  C
732       &  SQUEEZE_RIGHT,myThreadId)       &  SQUEEZE_RIGHT,myThreadId)
733        GOTO 1000        GOTO 1000
734    
735    #if (defined USE_PAPI) || (defined USE_PCL)
736   71   FORMAT(A,' per sec ',D13.7,' ',D13.7,', number ', D13.7)   71   FORMAT(A,' per sec ',D13.7,' ',D13.7,', number ', D13.7)
737   72   FORMAT(A,D13.7)  #endif
738    c72   FORMAT(A,D13.7)
739        END        END
740    
741  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
# Line 1006  CCE107 Initialization of common block fo Line 1008  CCE107 Initialization of common block fo
1008        DATA pcl_counter_name(60) /'PCL_MEM_FP_RATIO'/        DATA pcl_counter_name(60) /'PCL_MEM_FP_RATIO'/
1009        END        END
1010    
   
1011  #ifdef USE_PCL  #ifdef USE_PCL
1012  CCE107 Initialization of common block for PCL summary performance  CCE107 Initialization of common block for PCL summary performance
1013        BLOCK DATA setpcls        BLOCK DATA setpcls
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22