ocean_restart_init Subroutine

private subroutine ocean_restart_init(this)

Type Bound

ocean_restart_t

Arguments

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

Source Code

   subroutine ocean_restart_init(this)
      class(ocean_restart_t), intent(inout) :: this
      this%is_init = .true.
   end subroutine ocean_restart_init