From 0d8aaa24d630df19f92bf6ebdce2d8ac26b9f005 Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Wed, 3 Aug 2022 13:54:16 +0200
Subject: [PATCH] Infos about loading time (temporary)
---
src/restarts_mod.F90 | 17 +++++++++++++++++
1 file changed, 17 insertions(+)
diff --git a/src/restarts_mod.F90 b/src/restarts_mod.F90
index 581b5d27..9d38ce98 100644
--- a/src/restarts_mod.F90
+++ b/src/restarts_mod.F90
@@ -25,6 +25,10 @@ CONTAINS
!******************************************************************************!
SUBROUTINE load_moments
IMPLICIT NONE
+ REAL :: timer_tot_1, timer_find_CP_1, timer_load_mom_1
+ REAL :: timer_tot_2, timer_find_CP_2, timer_load_mom_2
+
+ CALL cpu_time(timer_tot_1)
! Checkpoint filename
WRITE(rstfile,'(a,a1,i2.2,a3)') TRIM(resfile0),'_',job2load,'.h5'
@@ -47,6 +51,8 @@ CONTAINS
CALL load_output_adapt_pj
ELSE
+ CALL cpu_time(timer_find_CP_1)
+
! Find the last results of the checkpoint file by iteration
n_ = n0+1
WRITE(dset_name, "(A, '/', i6.6)") "/data/var5d/moments_i", n_ ! start with moments_e/000001
@@ -67,6 +73,10 @@ CONTAINS
iframe2d = iframe2d-1; iframe5d = iframe5d-1
IF(my_id.EQ.0) WRITE(*,*) '.. restart from t = ', time
+ CALL cpu_time(timer_find_CP_2)
+ IF(my_id.EQ.0) WRITE(*,*) '** Time find CP : ', timer_find_CP_2 - timer_find_CP_1, ' **'
+
+ CALL cpu_time(timer_load_mom_1)
! Read state of system from checkpoint file
IF (KIN_E) THEN
WRITE(dset_name, "(A, '/', i6.6)") "/data/var5d/moments_e", n_
@@ -79,6 +89,13 @@ CONTAINS
IF (my_id .EQ. 0) WRITE(*,'(3x,a)') "Reading from restart file "//TRIM(rstfile)//" completed!"
ENDIF
+ CALL cpu_time(timer_load_mom_2)
+ CALL cpu_time(timer_tot_2)
+
+ CALL mpi_barrier(MPI_COMM_WORLD, ierr)
+
+ IF(my_id.EQ.0) WRITE(*,*) '** Time load mom : ', timer_load_mom_2 - timer_load_mom_1, ' **'
+ IF(my_id.EQ.0) WRITE(*,*) '** Total load time : ', timer_tot_2 - timer_tot_1, ' **'
END SUBROUTINE load_moments
!******************************************************************************!
--
GitLab