state_recover.f90

Go to the documentation of this file.

 
!
module state_recover
  use case, only: case_t
  use json_file_module, only: json_file
  implicit none
  private
 
  type, abstract, public :: state_recover_t
     private
     class(case_t), pointer, public :: neko_case => null()
     integer :: n_timesteps = 0
   contains
     procedure(state_recover_init), pass(this), public, deferred :: init
     procedure(state_recover_free), pass(this), public, deferred :: free
     procedure(state_recover_reset), pass(this), public, deferred :: reset
     procedure(state_recover_save), pass(this), public, deferred :: save
     procedure(state_recover_restore), pass(this), public, deferred :: restore
     procedure, pass(this), public :: get_n_timesteps => &
          state_recover_get_n_timesteps
     procedure, pass(this), public :: set_n_timesteps => &
          state_recover_set_n_timesteps
  end type state_recover_t
 
  abstract interface
 
     subroutine state_recover_init(this, neko_case, params)
       import state_recover_t, case_t, json_file
       class(state_recover_t), intent(inout) :: this
       class(case_t), target, intent(inout) :: neko_case
       type(json_file), intent(inout) :: params
     end subroutine state_recover_init
 
     subroutine state_recover_free(this)
       import state_recover_t
       class(state_recover_t), intent(inout) :: this
     end subroutine state_recover_free
 
     subroutine state_recover_reset(this)
       import state_recover_t
       class(state_recover_t), intent(inout) :: this
     end subroutine state_recover_reset
 
     subroutine state_recover_save(this)
       import state_recover_t
       class(state_recover_t), intent(inout) :: this
     end subroutine state_recover_save
 
     subroutine state_recover_restore(this, tstep)
       import state_recover_t
       class(state_recover_t), intent(inout) :: this
       integer, intent(in) :: tstep
     end subroutine state_recover_restore
  end interface
 
  interface
     ! Construct and initialize a state recovery object from JSON parameters.
     module subroutine state_recover_factory(recover, neko_case, params)
       class(state_recover_t), allocatable, intent(inout) :: recover
       class(case_t), target, intent(inout) :: neko_case
       type(json_file), intent(inout) :: params
     end subroutine state_recover_factory
  end interface
 
  public :: state_recover_factory
 
contains
 
  pure function state_recover_get_n_timesteps(this) result(n)
    class(state_recover_t), intent(in) :: this
    integer :: n
 
    n = this%n_timesteps
  end function state_recover_get_n_timesteps
 
  subroutine state_recover_set_n_timesteps(this, n)
    class(state_recover_t), intent(inout) :: this
    integer, intent(in) :: n
 
    this%n_timesteps = n
  end subroutine state_recover_set_n_timesteps
 
end module state_recover