/[MITgcm]/MITgcm/model/src/solve_for_pressure.F
ViewVC logotype

Diff of /MITgcm/model/src/solve_for_pressure.F

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

revision 1.56 by heimbach, Wed Jun 7 01:55:13 2006 UTC revision 1.57 by ce107, Wed Jun 14 15:30:14 2006 UTC
# Line 566  CCE107 PAPI summary performance Line 566  CCE107 PAPI summary performance
566        call PAPIF_ipc(real_time, proc_time, instr, ipc, check)        call PAPIF_ipc(real_time, proc_time, instr, ipc, check)
567        WRITE(msgBuf,'(A34,F10.6,A,F10.6)')        WRITE(msgBuf,'(A34,F10.6,A,F10.6)')
568       $     'IPC during this timestep:', ipc, ' ', ipc*proc_time       $     'IPC during this timestep:', ipc, ' ', ipc*proc_time
569       $     /(real_time + 1E-36),       $     /(real_time + 1E-36)
570        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
571  #endif  #endif
572        _END_MASTER( myThid )        _END_MASTER( myThid )
Legend:
Removed from v.1.56  
changed lines
  Added in v.1.57
  ViewVC Help
Powered by ViewVC 1.1.22