Changeset 71

Timestamp:

02/12/13 10:05:47 (11 years ago)

Author:

smasson

Message:

add timing of nemo_init and nemo_finalize

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 (modified) (3 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -112 +112 @@
       !!----------------------------------------------------------------------
       !
+#if defined key_mpp_mpi
+      t_start = MPI_Wtime()
+#endif
 #if defined key_agrif
       CALL Agrif_Init_Grids()      ! AGRIF: set the meshes
@@ -129 +132 @@
       IF( lk_mpp )   CALL mpp_max( nstop )
 
+#if defined key_mpp_mpi
+      IF(lwp) WRITE(numout,'(a, f10.5)') 'step nemo init ', MPI_WTIME() - t_start
+#endif
       IF(lwp) WRITE(numout,cform_aaa)   ! Flag AAAAAAA
 
@@ -202 +208 @@
 #endif
 #if defined key_mpp_mpi
-      IF( lwp ) WRITE(*,'(a, i6, f10.5)') 'step finaize ', MPI_WTIME() - t_start
+      IF(lwp) WRITE(*,'(a, f10.5)') 'step finalize ', MPI_WTIME() - t_start
 #endif
       !