Changeset 13849


Ignore:
Timestamp:
2020-11-23T11:21:34+01:00 (5 months ago)
Author:
clem
Message:

4.0-HEAD: fix ticket #2577

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/r4.0/r4.0-HEAD/src/SAS/nemogcm.F90

    r13013 r13849  
    5353   CHARACTER(lc) ::   cform_aaa="( /, 'AAAAAAAA', / ) "     ! flag for output listing 
    5454 
     55#if defined key_mpp_mpi 
     56   ! need MPI_Wtime 
     57   INCLUDE 'mpif.h' 
     58#endif 
     59 
    5560   !!---------------------------------------------------------------------- 
    5661   !! NEMO/SAS 4.0 , NEMO Consortium (2018) 
     
    7580      !!---------------------------------------------------------------------- 
    7681      INTEGER ::   istp   ! time step index 
     82      REAL(wp)::   zstptiming   ! elapsed time for 1 time step 
    7783      !!---------------------------------------------------------------------- 
    7884      ! 
     
    129135         ! 
    130136         DO WHILE( istp <= nitend .AND. nstop == 0 ) 
     137 
     138            ncom_stp = istp 
     139            IF( ln_timing ) THEN 
     140               zstptiming = MPI_Wtime() 
     141               IF ( istp == ( nit000 + 1 ) ) elapsed_time = zstptiming 
     142               IF ( istp ==         nitend ) elapsed_time = zstptiming - elapsed_time 
     143            ENDIF 
     144 
    131145            CALL stp        ( istp )  
    132146            istp = istp + 1 
     147 
     148            IF( lwp .AND. ln_timing )   WRITE(numtime,*) 'timing step ', istp-1, ' : ', MPI_Wtime() - zstptiming 
    133149         END DO 
    134150         ! 
Note: See TracChangeset for help on using the changeset viewer.