ocean_restart_destroy Subroutine

private subroutine ocean_restart_destroy(this)

Type Bound

ocean_restart_t

Arguments

Type IntentOptional Attributes Name
class(ocean_restart_t), intent(inout) :: this

Called by

proc~~ocean_restart_destroy~~CalledByGraph proc~ocean_restart_destroy ocean_restart_t%ocean_restart_destroy proc~ocean_state_destroy ocean_state_t%ocean_state_destroy proc~ocean_state_destroy->proc~ocean_restart_destroy

Source Code

   subroutine ocean_restart_destroy(this)
      class(ocean_restart_t), intent(inout) :: this
      this%is_init = .false.
   end subroutine ocean_restart_destroy