/[MITgcm]/MITgcm/pkg/showflops/showflops_insolve.F
ViewVC logotype

Diff of /MITgcm/pkg/showflops/showflops_insolve.F

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

revision 1.1 by heimbach, Fri Jun 1 16:41:12 2007 UTC revision 1.2 by ce107, Tue Jul 31 22:33:43 2007 UTC
# Line 1  Line 1 
1  C $Header$  2222222222C $Header$
2  C $Name$  C $Name$
3    
4  #include "PACKAGES_CONFIG.h"  #include "PACKAGES_CONFIG.h"
# Line 75  CCE107 PAPI summary performance Line 75  CCE107 PAPI summary performance
75  #else  #else
76        call PAPIF_flops(real_time, proc_time, flpops, mflops, check)        call PAPIF_flops(real_time, proc_time, flpops, mflops, check)
77  #endif  #endif
78        WRITE(msgBuf,'(A34,F10.6,A,F10.6)')        WRITE(msgBuf,'(A34,F12.6,A,F12.6)')
79       $     'Mflop/s during this timestep:', mflops, ' ', mflops       $     'Mflop/s during this timestep:', mflops, ' ', mflops
80       $     *proc_time/(real_time + 1E-36)       $     *proc_time/(real_time + 1E-36)
81        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
82  #ifdef PAPI_VERSION  #ifdef PAPI_VERSION
83        call PAPIF_ipc(real_time, proc_time, instr, ipc, check)        call PAPIF_ipc(real_time, proc_time, instr, ipc, check)
84        WRITE(msgBuf,'(A34,F10.6,A,F10.6)')        WRITE(msgBuf,'(A34,F12.6,A,F12.6)')
85       $     'IPC during this timestep:', ipc, ' ', ipc*proc_time       $     'IPC during this timestep:', ipc, ' ', ipc*proc_time
86       $     /(real_time + 1E-36)       $     /(real_time + 1E-36)
87        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
# Line 93  CCE107 PCL summary performance Line 93  CCE107 PCL summary performance
93        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
94        PCLstop(descr, i_result, fp_result, nevents)        PCLstop(descr, i_result, fp_result, nevents)
95        do ipcl = 1, nevents        do ipcl = 1, nevents
96           WRITE(msgBuf,'(A22,A26,F10.6)'),           WRITE(msgBuf,'(A22,A26,F12.6)'),
97       $        pcl_counter_name(pcl_counter_list(ipcl)),       $        pcl_counter_name(pcl_counter_list(ipcl)),
98       $        'during this timestep:', fp_results(ipcl)       $        'during this timestep:', fp_results(ipcl)
99           CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)           CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22