Changeset 6609

Timestamp:

2016-05-24T16:36:26+02:00 (8 years ago)

Author:

dkuts

Message:

Adding timing output

File:

• branches/2016/dev_v3_6_STABLE_OMP/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 (modified) (5 diffs)

branches/2016/dev_v3_6_STABLE_OMP/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -119 +119 @@
       !!----------------------------------------------------------------------
       !
+#if defined key_timesteps
+      DOUBLE PRECISION :: tstart,tend,mpi_wtime, sstart, send
+#endif
 #if defined key_agrif
       CALL Agrif_Init_Grids()      ! AGRIF: set the meshes
@@ -148 +151 @@
 #if defined key_c1d
          DO WHILE ( istp <= nitend .AND. nstop == 0 )
-            CALL stp_c1d( istp )
-            istp = istp + 1
+#if defined key_timesteps
+           sstart = mpi_wtime()
+#endif
+         CALL stp_c1d( istp )
+#if defined key_timesteps
+           send = mpi_wtime()
+         print *, "Step ", istp, " - " , send-sstart , "s."
+#endif
+         istp = istp + 1
          END DO
 #else
@@ -166 +176 @@
 
          DO WHILE ( istp <= nitend .AND. nstop == 0 )
+#if defined key_timesteps
+           sstart = mpi_wtime()
+#endif
 #if defined key_agrif
             CALL stp                         ! AGRIF: time stepping
@@ -171 +184 @@
             CALL stp( istp )                 ! standard time stepping
 #endif
-            istp = istp + 1
+#if defined key_timesteps
+           send = mpi_wtime()
+           print *, "Step ", istp, " - " , send-sstart , "s."
+#endif
+         istp = istp + 1
             IF( lk_mpp )   CALL mpp_max( nstop )
          END DO
@@ -179 +196 @@
       !
       IF( ln_icebergs )   CALL icb_end( nitend )
-
+#if defined key_timesteps
+      tend = mpi_wtime()
+     print *,"Steps total time=",tend-tstart, "s."
+     print *,"Average time per step=", ( tend - tstart ) / ( nitend - nit000 + 1 ), "s."
+#endif
       !                            !------------------------!
       !                            !==  finalize the run  ==!