Ignore:
Timestamp:
2018-10-04T17:32:54+02:00 (3 years ago)
Author:
smasson
Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: action 2b: improve of timing, add computing and waiting time, see #2133

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/LBC/lib_mpp.F90

    r10170 r10172  
    170170   INTEGER, PUBLIC                               ::   n_sequence = 0               !: # of communicated arrays 
    171171   LOGICAL                                       ::   l_comm_report_done = .false. !: print report only once 
    172  
     172    
     173   ! timing summary report 
     174   REAL(wp), PUBLIC ::  waiting_time = 0._wp, compute_time = 0._wp, elapsed_time = 0._wp 
     175    
    173176   REAL(wp), DIMENSION(:), ALLOCATABLE, SAVE ::   tampon   ! buffer in case of bsend 
    174177 
     
    16091612      ! 
    16101613   END SUBROUTINE mpp_lnk_2d_icb 
     1614 
     1615    
     1616   SUBROUTINE tic_tac (l_tic) 
     1617 
     1618    LOGICAL, INTENT(IN) :: l_tic 
     1619    REAL(wp), SAVE :: tic_wt, tic_ct = 0._wp 
     1620 
     1621    IF( ncom_stp <= nit000 ) RETURN 
     1622    IF( ncom_stp == nitend ) RETURN 
     1623     
     1624#if defined key_mpp_mpi 
     1625    IF ( l_tic ) THEN 
     1626       tic_wt = MPI_Wtime()                                                        ! start count tic->tac (waiting time) 
     1627       IF ( tic_ct > 0.0_wp ) compute_time = compute_time + MPI_Wtime() - tic_ct   ! cumulate count tac->tic 
     1628    ELSE 
     1629       waiting_time = waiting_time + MPI_Wtime() - tic_wt                          ! cumulate count tic->tac 
     1630       tic_ct = MPI_Wtime()                                                        ! start count tac->tic (waiting time) 
     1631    ENDIF 
     1632#endif 
     1633     
     1634   END SUBROUTINE tic_tac 
     1635 
    16111636    
    16121637#else 
Note: See TracChangeset for help on using the changeset viewer.