FLUSI/runtime_control.f90 at master · dkolom/FLUSI · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
!-------------------------------------------------------------------------------
! Wrapper for different postprocessing tools
!-------------------------------------------------------------------------------
subroutine Initialize_runtime_control_file()
  use vars
  use mpi_header
  implicit none

  open  (14,file='runtime_control.ini',status='replace')
  write (14,'(A)') "# This is flusi's runtime control file"
  write (14,'(A)') "# You can influence a running simulation with this file"
  write (14,'(A)') "# flusi regularily reads it and checks what to do"
  write (14,'(A)') "# "
  write (14,'(A)') "# "
  write (14,'(A)') "# The following is currently available:"
  write (14,'(A)') "# "
  write (14,'(A)') "# ----------------------------------"
  write (14,'(A)') "# Re-read PARAMS.ini file from disk"
  write (14,'(A)') "# ----------------------------------"
  write (14,'(A)') "# This is useful to correct some parameters. "
  write (14,'(A)') "# Be careful: the entire file is reloaded. Some parameters"
  write (14,'(A)') "# can easily be changed, for example the penalization param"
  write (14,'(A)') "# eps or saving flags."
  write (14,'(A)') "# Others cause an immediate crash (eg changing nx,ny,nz)"
  write (14,'(A)') "# runtime_control=reload_params;"
  write (14,'(A)') "# "
  write (14,'(A)') "# ----------------------------------"
  write (14,'(A)') "# Safe stop (dump backup then stop)"
  write (14,'(A)') "# ----------------------------------"
  write (14,'(A)') "# Stop the run but makes a backup first"
  write (14,'(A)') "# Memory is properly dealloacted, unlike KILL"
  write (14,'(A)') "# runtime_control=save_stop;"
  write (14,'(A)') ""
  write (14,'(A)') "[runtime_control]"
  write (14,'(A)') "runtime_control=nothing;"
  close (14)

end subroutine Initialize_runtime_control_file


subroutine runtime_control_command( command )
  use vars
  use mpi_header
  implicit none
  character (len=80), intent(out)     :: command
  character (len=80)  :: file
  character  :: CTRL_FILE(nlines)*256
  integer :: i

  file ="runtime_control.ini"
  ! root reads in the control file
  ! and fetched the command
  if (mpirank ==0) then
    call read_params_file( CTRL_FILE, i, file, .false. ) ! false = non-verbose
  endif
  command = "nothing"
  call GetValue_string(CTRL_FILE, i, "runtime_control","runtime_control", &
                        command, command)

  ! all MPI procs now know what to do.
  return
end subroutine runtime_control_command