imk_save Subroutine

  1. pf_imk.f90
  2. pf_mod_imk
  3. imk_save

public subroutine imk_save(lev)

Save function values so that difference can be computed

Arguments

Type IntentOptional AttributesName
class(pf_level_t), intent(inout) :: lev

Level to save on

Contents

Source Code

imk_save

Source Code

  subroutine imk_save(lev)
    class(pf_level_t), intent(inout) :: lev  !!  Level to save on

    integer :: m

    do m = 1, lev%nnodes
       call lev%pF(m,1)%copy(lev%F(m,1))
    end do
  end subroutine imk_save