Changeset 13849

Timestamp:

2020-11-23T11:21:34+01:00 (3 years ago)

Author:

clem

Message:

4.0-HEAD: fix ticket #2577

File:

• NEMO/releases/r4.0/r4.0-HEAD/src/SAS/nemogcm.F90 (modified) (3 diffs)

NEMO/releases/r4.0/r4.0-HEAD/src/SAS/nemogcm.F90

@@ -53 +53 @@
    CHARACTER(lc) ::   cform_aaa="( /, 'AAAAAAAA', / ) "     ! flag for output listing
 
+#if defined key_mpp_mpi
+   ! need MPI_Wtime
+   INCLUDE 'mpif.h'
+#endif
+
    !!----------------------------------------------------------------------
    !! NEMO/SAS 4.0 , NEMO Consortium (2018)
@@ -75 +80 @@
       !!----------------------------------------------------------------------
       INTEGER ::   istp   ! time step index
+      REAL(wp)::   zstptiming   ! elapsed time for 1 time step
       !!----------------------------------------------------------------------
       !
@@ -129 +135 @@
          !
          DO WHILE( istp <= nitend .AND. nstop == 0 )
+
+            ncom_stp = istp
+            IF( ln_timing ) THEN
+               zstptiming = MPI_Wtime()
+               IF ( istp == ( nit000 + 1 ) ) elapsed_time = zstptiming
+               IF ( istp ==         nitend ) elapsed_time = zstptiming - elapsed_time
+            ENDIF
+
             CALL stp        ( istp ) 
             istp = istp + 1
+
+            IF( lwp .AND. ln_timing )   WRITE(numtime,*) 'timing step ', istp-1, ' : ', MPI_Wtime() - zstptiming
          END DO
          !