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

Diff of /MITgcm/pkg/showflops/showflops_inloop.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 78  CCE107 PAPI summary performance Line 78  CCE107 PAPI summary performance
78  #else  #else
79        call PAPIF_flops(real_time, proc_time, flpops, mflops, check)        call PAPIF_flops(real_time, proc_time, flpops, mflops, check)
80  #endif  #endif
81        WRITE(msgBuf,'(F10.6,A,F10.6,A34,I8)')        WRITE(msgBuf,'(F12.6,A,F12.6,A34,I8)')
82       $     mflops, ' ', mflops*proc_time/(real_time + 1E-36),       $     mflops, ' ', mflops*proc_time/(real_time + 1E-36),
83       $     'Mflop/s during timestep ', iloop       $     'Mflop/s during timestep ', iloop
84        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
85  #ifdef PAPI_VERSION  #ifdef PAPI_VERSION
86        call PAPIF_ipc(real_time, proc_time, instr, ipc, check)        call PAPIF_ipc(real_time, proc_time, instr, ipc, check)
87        WRITE(msgBuf,'(F10.6,A,F10.6,A34,I8)')        WRITE(msgBuf,'(F12.6,A,F12.6,A34,I8)')
88       $     ipc, ' ', ipc*proc_time/(real_time + 1E-36),       $     ipc, ' ', ipc*proc_time/(real_time + 1E-36),
89       $     'IPC during timestep ', iloop       $     'IPC during timestep ', iloop
90        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
# Line 96  CCE107 PCL summary performance Line 96  CCE107 PCL summary performance
96        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
97        res = PCLstop(descr, i_result, fp_result, nevents)        res = PCLstop(descr, i_result, fp_result, nevents)
98        do ipcl = 1, nevents        do ipcl = 1, nevents
99           WRITE(msgBuf,'(F10.6,A2,A22,A17,I8)'), fp_result(ipcl),           WRITE(msgBuf,'(F12.6,A2,A22,A17,I8)'), fp_result(ipcl),
100       $        ' ', pcl_counter_name(pcl_counter_list(ipcl)),       $        ' ', pcl_counter_name(pcl_counter_list(ipcl)),
101       $        'during timestep ', iloop       $        'during timestep ', iloop
102           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