/[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.53 by jmc, Thu Feb 23 20:55:49 2006 UTC revision 1.54 by ce107, Fri May 5 19:00:28 2006 UTC
# Line 80  C     == Timing variables == Line 80  C     == Timing variables ==
80  #ifdef USE_PAPI_FLOPS_SFP  #ifdef USE_PAPI_FLOPS_SFP
81  CCE107 common block for PAPI summary performance  CCE107 common block for PAPI summary performance
82  #include <fpapi.h>  #include <fpapi.h>
83        INTEGER*8 flpops        INTEGER*8 flpops, instr
84        INTEGER check        INTEGER check
85        REAL real_time, proc_time, mflops        REAL*4 real_time, proc_time, mflops, ipc
86        COMMON /papivars/ flpops, real_time, proc_time, mflops, check        COMMON /papivars/ flpops, instr, real_time, proc_time, mflops, ipc
87    #else
88    #ifdef USE_PCL_FLOPS_SFP
89    CCE107 common block for PCL summary performance
90    #include <pclh.f>
91          INTEGER pcl_counter_list(5), flags, nevents, res, ipcl
92          INTEGER*8 i_result(5), descr
93          REAL*8 fp_result(5)
94          COMMON /pclvars/ i_result, descr, fp_result, pcl_counter_list,
95         $     flags, nevents
96          INTEGER nmaxevents
97          PARAMETER (nmaxevents = 61)
98          CHARACTER*22 pcl_counter_name(0:nmaxevents-1)
99          COMMON /pclnames/ pcl_counter_name
100    #endif
101  #endif  #endif
102    
103  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
# Line 528  C Only output timing information after t Line 542  C Only output timing information after t
542  #ifdef USE_PAPI_FLOPS_SFP  #ifdef USE_PAPI_FLOPS_SFP
543  CCE107 PAPI summary performance  CCE107 PAPI summary performance
544        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
545    #ifdef USE_FLIPS
546          call PAPIF_flips(real_time, proc_time, flpops, mflops, check)
547    #else
548        call PAPIF_flops(real_time, proc_time, flpops, mflops, check)        call PAPIF_flops(real_time, proc_time, flpops, mflops, check)
549    #endif
550        WRITE(msgBuf,'(A34,F10.6)')        WRITE(msgBuf,'(A34,F10.6)')
551       $        'Mflop/s during this timestep:', mflops       $        'Mflop/s during this timestep:', mflops
552        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
553    #ifdef PAPI_VERSION
554          call PAPIF_ipc(real_time, proc_time, instr, ipc, check)
555          WRITE(msgBuf,'(A34,F10.6)')
556         $        'IPC during this timestep:', ipc
557          CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
558    #endif
559        _END_MASTER( myThid )        _END_MASTER( myThid )
560    #else
561    #ifdef USE_PCL_FLOPS_SFP
562    CCE107 PCL summary performance
563          _BEGIN_MASTER( myThid )
564          PCLstop(descr, i_result, fp_result, nevents)
565          do ipcl = 1, nevents
566             WRITE(msgBuf,'(A22,A26,F10.6)'),
567         $        pcl_counter_name(pcl_counter_list(ipcl)),
568         $        'during this timestep:', fp_results(ipcl)
569             CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
570          enddo
571          PCLstart(descr, pcl_counter_list, nevents, flags)
572          _END_MASTER( myThid )
573    #endif
574  #endif  #endif
575        RETURN        RETURN
576        END        END
# Line 550  C     == Timing variables == Line 588  C     == Timing variables ==
588  #ifdef USE_PAPI_FLOPS_SFP  #ifdef USE_PAPI_FLOPS_SFP
589  CCE107 Initialization of common block for PAPI summary performance  CCE107 Initialization of common block for PAPI summary performance
590        BLOCK DATA setpapis        BLOCK DATA setpapis
591        INTEGER*8 flpops        INTEGER*8 flpops, instr
592        INTEGER check        REAL real_time, proc_time, mflops, ipc
593        REAL real_time, proc_time, mflops        COMMON /papivars/ flpops, instr, real_time, proc_time, mflops, ipc
594        COMMON /papivars/ flpops, real_time, proc_time, mflops, check        DATA flpops, instr, real_time, proc_time, mflops, ipc /2*0,4*0.E0/
       DATA flpops, real_time, proc_time, mflops, check /0, 3*0.0E0, 0/  
595        END        END
596  #endif  #endif
Legend:
Removed from v.1.53  
changed lines
  Added in v.1.54
  ViewVC Help
Powered by ViewVC 1.1.22