diff --git a/src/restarts_mod.F90 b/src/restarts_mod.F90 index 01186865096905a63b51c9549f9c9da1d78c7930..e6d3d6be46dc6801d1f44a091fd720f6bfee60df 100644 --- a/src/restarts_mod.F90 +++ b/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)