Write restart files at the end of program execution.

2011-04-14 16:16:58 +02:00 · 2011-04-14 16:16:58 +02:00 · 2d513508db
commit 2d513508db
parent 1e7dec177c
1 changed files with 6 additions and 0 deletions
--- a/src/driver.F90
+++ b/src/driver.F90
@ -247,6 +247,12 @@ program godunov
  call write_data(ftype, no, ncpu)
  call stop_timer(3)

+! write down the restart dump
+!
+  call start_timer(3)
+  call write_data('r', no, ncpu)
+  call stop_timer(3)
+
 #ifdef FORCE
 ! finalize forcing module
 !