New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11389 – NEMO

Changeset 11389


Ignore:
Timestamp:
2019-08-02T09:51:41+02:00 (5 years ago)
Author:
smasson
Message:

dev_r10984_HPC-13 : add timing of each time step, see #2285

Location:
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/LBC/lib_mpp.F90

    r11317 r11389  
    6767   PUBLIC   mpp_report 
    6868   PUBLIC   tic_tac 
     69#if ! defined key_mpp_mpi 
     70   PUBLIC MPI_Wtime 
     71#endif 
    6972    
    7073   !! * Interfaces 
     
    10591062      INTEGER                            , INTENT(  out) ::   ierror 
    10601063   END SUBROUTINE mpi_wait 
     1064 
     1065    
     1066   FUNCTION MPI_Wtime() 
     1067      REAL(wp) ::  MPI_Wtime 
     1068      MPI_Wtime = -1. 
     1069   END FUNCTION MPI_Wtime 
    10611070#endif 
    10621071 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/nemogcm.F90

    r11385 r11389  
    130130      !!---------------------------------------------------------------------- 
    131131      INTEGER ::   istp   ! time step index 
     132      REAL(wp)::   zstptiming   ! elapsed time for 1 time step 
    132133      !!---------------------------------------------------------------------- 
    133134      ! 
     
    190191         ! 
    191192         DO WHILE( istp <= nitend .AND. nstop == 0 ) 
    192 #if defined key_mpp_mpi 
     193 
    193194            ncom_stp = istp 
    194             IF ( istp == ( nit000 + 1 ) ) elapsed_time = MPI_Wtime() 
    195             IF ( istp ==         nitend ) elapsed_time = MPI_Wtime() - elapsed_time 
    196 #endif 
     195            IF( ln_timing ) THEN 
     196               zstptiming = MPI_Wtime() 
     197               IF ( istp == ( nit000 + 1 ) ) elapsed_time = zstptiming 
     198               IF ( istp ==         nitend ) elapsed_time = zstptiming - elapsed_time 
     199            ENDIF 
     200             
    197201            CALL stp        ( istp )  
    198202            istp = istp + 1 
     203 
     204            IF( lwp .AND. ln_timing )   WRITE(numtime,*) 'timing step ', istp-1, ' : ', MPI_Wtime() - zstptiming 
     205 
    199206         END DO 
    200207         ! 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/timing.F90

    r11373 r11389  
    347347 
    348348      ! write output file 
     349      IF( lwriter ) WRITE(numtime,*)  
     350      IF( lwriter ) WRITE(numtime,*)  
    349351      IF( lwriter ) WRITE(numtime,*) 'Total timing (sum) :' 
    350352      IF( lwriter ) WRITE(numtime,*) '--------------------' 
Note: See TracChangeset for help on using the changeset viewer.