terminal info to know restart time

src/restarts_mod.F90

@@ -61,13 +61,8 @@ CONTAINS
         ENDDO
         n_ = n_ - 1 ! n_ is not a file so take the previous one n_-1
 
-        ! Read state of system from checkpoint file
-        WRITE(dset_name, "(A, '/', i6.6)") "/data/var5d/moments_e", n_
-        CALL getarrnd(fidrst, dset_name, moments_e(ips_e:ipe_e, ijs_e:ije_e, ikrs:ikre, ikzs:ikze, 1),(/1,3/))
-        WRITE(dset_name, "(A, '/', i6.6)") "/data/var5d/moments_i", n_
-        CALL getarrnd(fidrst, dset_name, moments_i(ips_i:ipe_i, ijs_i:ije_i, ikrs:ikre, ikzs:ikze, 1),(/1,3/))
-
         ! Read time dependent attributes to continue simulation
+        WRITE(dset_name, "(A, '/', i6.6)") "/data/var5d/moments_e", n_
         CALL getatt(fidrst, dset_name, 'cstep', cstep)
         CALL getatt(fidrst, dset_name, 'time', time)
         CALL getatt(fidrst, dset_name, 'jobnum', jobnum)
@@ -75,6 +70,13 @@ CONTAINS
         CALL getatt(fidrst, dset_name, 'iframe2d',iframe2d)
         CALL getatt(fidrst, dset_name, 'iframe5d',iframe5d)
         iframe2d = iframe2d-1; iframe5d = iframe5d-1
+        IF(my_id.EQ.0) WRITE(*,*) '.. restart from t = ', time
+
+        ! Read state of system from checkpoint file
+        WRITE(dset_name, "(A, '/', i6.6)") "/data/var5d/moments_e", n_
+        CALL getarrnd(fidrst, dset_name, moments_e(ips_e:ipe_e, ijs_e:ije_e, ikrs:ikre, ikzs:ikze, 1),(/1,3/))
+        WRITE(dset_name, "(A, '/', i6.6)") "/data/var5d/moments_i", n_
+        CALL getarrnd(fidrst, dset_name, moments_i(ips_i:ipe_i, ijs_i:ije_i, ikrs:ikre, ikzs:ikze, 1),(/1,3/))
 
         CALL closef(fidrst)